diff --git a/codes/target_therapy_cnv.pl b/codes/target_therapy_cnv.pl index 2bafe53..884d801 100755 --- a/codes/target_therapy_cnv.pl +++ b/codes/target_therapy_cnv.pl @@ -91,7 +91,7 @@ open IN, "$input"; my $h2 = ; chomp $h2; -my $h = $h2 . "\tcn\tfun_change\t" . join("\t", (split("\t", $h1))[0 .. 9, 14]) . "\tLabel\tDrugCn\tIndication"; +my $h = $h2 . "\tcn\tfun_change\t" . join("\t", (split("\t", $h1))[0 .. 9, 14]) . "\tLabel\tDrugCn\tIndication\treport_need_note"; print POS "$h\n"; print VUS "$h\n";; diff --git a/codes/target_therapy_fusion.pl b/codes/target_therapy_fusion.pl index 544fb76..618276e 100755 --- a/codes/target_therapy_fusion.pl +++ b/codes/target_therapy_fusion.pl @@ -96,7 +96,7 @@ open VUS, ">$output.vus.txt"; my $h2 = ; chomp $h2; -print POS $h2 . "\tOncogenic\t" . join("\t", (split("\t", $h1))[0 .. 9, 14]) . "\tLabel\tDrugCn\tIndication\n"; +print POS $h2 . "\tOncogenic\t" . join("\t", (split("\t", $h1))[0 .. 9, 14]) . "\tLabel\tDrugCn\tIndication\treport_need_note\n"; print NEG $h2 . "\tOncogenic\n"; print VUS $h2 . "\tOncogenic\n"; diff --git a/codes/target_therapy_longindel.pl b/codes/target_therapy_longindel.pl index feeb7a6..dbdcedb 100755 --- a/codes/target_therapy_longindel.pl +++ b/codes/target_therapy_longindel.pl @@ -98,7 +98,7 @@ open POS, ">$output.pos.txt"; my $h2 = ; chomp $h2; -print POS $h2 . "\t" . join("\t", (split("\t", $h1))[0 .. 9, 14]) . "\tLabel\tDrugCn\tIndication\n"; +print POS $h2 . "\t" . join("\t", (split("\t", $h1))[0 .. 9, 14]) . "\tLabel\tDrugCn\tIndication\treport_need_note\n"; my @pos; while () {