#!/usr/bin/perl #require 'sybperl.pl'; require 'cgi-lib.pl'; $STRNAMEFILE = "./struct_names.dat"; %PROTOCOL = ( "9803", "9803", "0022", "0022", "0117", "0117", "0126", "0126", "0225", "0225", "0234", "0234", "0236", "0236", "0321", "0321", "0421", "0421", "0413", "NSABP B-39/RTOG 0413", "0415", "0415", "0418", "0418", "0436", "0436", "0438", "0438", "0515", "0515", "0521", "0521", "0534", "0534", "0522", "0522", "0529", "0529", "0615", "0615", "0618", "0618", "0619", "0619", "0621", "0621", "0622", "0622", "0623", "0623", "0712", "0712", "0813", "0813", "0822", "0822", "G0238", "GOG 0238", "JCOG0403", "JCOG 0403", "JCOG0702", "JCOG 0702", "E22042", "EORTC 22042-26042", "Z6474", "Trial 62 HNSCC", "RPCIMRT", "" ); %SITE = ( "9803", "Supratentorial GBM", "0022", "Oropharynx 3DCRT/IMRT", "0117", "Lung", "0126", "Prostate", "0225", "Nasopharynx IMRT", "0234", "Head and Neck", "0236", "Lung SBRT", "0321", "HDR Prostate", "0413", "Partial Breast", "0415", "Prostate", "0418", "Gyn Pelvis IMRT", "0421", "Head and Neck", "0436", "Esophagus", "0438", "Liver", "0515", "Lung", "0521", "Prostate", "0534", "Prostate", "0522", "Head and Neck", "0529", "Anal Canal", "0615", "Nasopharynx", "0618", "Lung SBRT", "0619", "H/N High-Risk Chemo-RT", "0621", "High-Risk Prostate", "0622", "High-Risk Prostate", "0623", "SC Lung", "0712", "Bladder", "0813", "Lung SBRT", "0822", "Rectum", "G0238", "Uterine Corpus IMRT", "JCOG0403", "Lung SBRT Protocol", "JCOG0702", "Lung SBRT Protocol", "E22042", "Meningioma", "Z6474", "AstraZeneca ZD6474", "RPCIMRT", "RPC IMRT Head Phantom" ); $ID = $ARGV[0] unless ($#ARGV < 0); $ID =~ s/^\s*(.*)\s*$/\1/; if (!defined($PROTOCOL{$ID})) { print "
Standard Name | Description | Reference Dose (Gy) |
---|---|---|
$str | $desc | \n". "$refdose | \n". "
Send email to: itc@wustl.edu
EOF
print <<'EOF';