ONCLPC9B ;Hines OIFO/GWB - 2001 Lung (NSCLC) PCE Study ;05/17/01
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;Print (continued)
V S TABLE="FIRST COURSE OF TREATMENT - SURGERY"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCLPC0
K LINE S $P(LINE,"-",35)="-"
W !?4,TABLE,!?4,LINE
D P Q:EX=U
ITEM15 W !,"15. SCOPE OF OPERATIVE MEDIASTINAL LYMPH NODE ASSESSMENT:"
D P Q:EX=U
W !," HIGHEST MEDIASTINAL (level 1): ",$$GET1^DIQ(165.5,IE,1419)
D P Q:EX=U
W !," UPPER PARATRACHEAL (level 2): ",$$GET1^DIQ(165.5,IE,1419.1)
D P Q:EX=U
W !," PREVASCULAR AND RETROTRACHEAL"
D P Q:EX=U
W !," (level 3): ",$$GET1^DIQ(165.5,IE,1419.2)
D P Q:EX=U
W !," LOWER PARATRACHEAL (level 4): ",$$GET1^DIQ(165.5,IE,1419.3)
D P Q:EX=U
W !," SUBAORTIC (level 5): ",$$GET1^DIQ(165.5,IE,1419.4)
D P Q:EX=U
W !," PARAORTIC (level 6): ",$$GET1^DIQ(165.5,IE,1419.5)
D P Q:EX=U
W !," SUBCARINAL (level 7): ",$$GET1^DIQ(165.5,IE,1419.6)
D P Q:EX=U
W !," PARAESOPHAGEAL (level 8): ",$$GET1^DIQ(165.5,IE,1419.7)
D P Q:EX=U
W !," PULMONARY LIGAMENT (level 9): ",$$GET1^DIQ(165.5,IE,1419.8)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G ITEM16
W !
D P Q:EX=U
ITEM16 W !,"16. HCT (HEMATOCRIT) VALUES BEFORE"
D P Q:EX=U
W !," TRANSFUSION..................: ",$$GET1^DIQ(165.5,IE,1430)
D P Q:EX=U
W !
D P Q:EX=U
ITEM17 W !,"17. TOTAL PERI-OPERATIVE BLOOD"
D P Q:EX=U
W !," REPLACEMENT..................: ",$$GET1^DIQ(165.5,IE,1420)
D P Q:EX=U
W !
D P Q:EX=U
ITEM18 W !,"18. PERI-OPERATIVE DEATH..........: ",$$GET1^DIQ(165.5,IE,1421)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0
S TABLE="FIRST COURSE OF TREATMENT - RADIATION"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCLPC0
K LINE S $P(LINE,"-",37)="-"
W !?4,TABLE,!?4,LINE
D P Q:EX=U
ITEM19 W !,"19. REGIONAL DOSE (cGy)...........: ",$$GET1^DIQ(165.5,IE,442)
D P Q:EX=U
W !
D P Q:EX=U
ITEM20 W !,"20. NUMBER OF TREATMENTS TO THIS"
D P Q:EX=U
W !," VOLUME.......................: ",$$GET1^DIQ(165.5,IE,56)
D P Q:EX=U
W !
D P Q:EX=U
ITEM21 W !,"21. REGIONAL TREATMENT MODALITY...: ",$$GET1^DIQ(165.5,IE,363)
D P Q:EX=U
W !
D P Q:EX=U
ITEM22 W !,"22. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,IE,51.3)
D P Q:EX=U
W !
D P Q:EX=U
ITEM23 W !,"23. BOOST DOSE (cGy)..............: ",$$GET1^DIQ(165.5,IE,1422)
D P Q:EX=U
W !
D P Q:EX=U
ITEM24 W !,"24. INTENT OF RADIATION TREATMENT.: ",$$GET1^DIQ(165.5,IE,127)
D P Q:EX=U
W !
D P Q:EX=U
ITEM25 W !,"25. REASON FOR NO RADIATION.......: ",$$GET1^DIQ(165.5,IE,75)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0
S TABLE="FIRST COURSE OF TREATMENT - CHEMOTHERAPY"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCLPC0
K LINE S $P(LINE,"-",40)="-"
W !?4,TABLE,!?4,LINE
D P Q:EX=U
ITEM26 W !,"26. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
D P Q:EX=U
W !," AGENT #1.....................: ",$$GET1^DIQ(165.5,IE,1423)
D P Q:EX=U
W !," AGENT #2.....................: ",$$GET1^DIQ(165.5,IE,1423.1)
D P Q:EX=U
W !," AGENT #3.....................: ",$$GET1^DIQ(165.5,IE,1423.2)
D P Q:EX=U
W !
D P Q:EX=U
ITEM27 W !,"27. CHEMOTHERAPEUTIC TOXICITY.....: ",$$GET1^DIQ(165.5,IE,1424)
D P Q:EX=U
W !
D P Q:EX=U
ITEM28 W !,"28. CHEMOTHERAPY/SURGERY SEQUENCE.: ",$$GET1^DIQ(165.5,IE,1425)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0
VI S TABLE="TREATMENT COMPLICATIONS"
I IOST'?1"C".E W !
W !?4,TABLE,!?4,"-----------------------"
D P Q:EX=U
ITEM29 W !,"29. COMPLICATIONS:"
D P Q:EX=U
I TC="No" D G TC2
.W !," COMPLICATION #1..............: 000.00 No complications"
W !," COMPLICATION #1..............: ",$P($$GET1^DIQ(165.5,IE,1426)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426)," ",2,99)
TC2 D P Q:EX=U
W !," COMPLICATION #2..............: ",$P($$GET1^DIQ(165.5,IE,1426.1)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426.1)," ",2,99)
D P Q:EX=U
W !," COMPLICATION #3..............: ",$P($$GET1^DIQ(165.5,IE,1426.2)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426.2)," ",2,99)
D P Q:EX=U
W !," COMPLICATION #4..............: ",$P($$GET1^DIQ(165.5,IE,1426.3)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426.3)," ",2,99)
D P Q:EX=U
W !," COMPLICATION #5..............: ",$P($$GET1^DIQ(165.5,IE,1426.4)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426.4)," ",2,99)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0
VII S TABLE="CASE REGISTRATION"
I IOST'?1"C".E W !
W !?4,TABLE,!?4,"-----------------"
D P Q:EX=U
ITEM30 W !,"29. INITIALS OF CASE ABSTRACTOR...: ",$$GET1^DIQ(165.5,IE,81)
D P Q:EX=U
W !
D P Q:EX=U
ITEM31 W !,"30. DATE CASE WAS ABSTRACTED......: ",$$GET1^DIQ(165.5,IE,90)
D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
Q
P ;Print
I ($Y'<(LIN-1)) D Q:EX=U
.I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
.D HEAD^ONCLPC0 Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCLPC9B 5038 printed Dec 13, 2024@02:23:41 Page 2
ONCLPC9B ;Hines OIFO/GWB - 2001 Lung (NSCLC) PCE Study ;05/17/01
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;Print (continued)
V SET TABLE="FIRST COURSE OF TREATMENT - SURGERY"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCLPC0
+2 KILL LINE
SET $PIECE(LINE,"-",35)="-"
+3 WRITE !?4,TABLE,!?4,LINE
+4 DO P
if EX=U
QUIT
ITEM15 WRITE !,"15. SCOPE OF OPERATIVE MEDIASTINAL LYMPH NODE ASSESSMENT:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," HIGHEST MEDIASTINAL (level 1): ",$$GET1^DIQ(165.5,IE,1419)
+3 DO P
if EX=U
QUIT
+4 WRITE !," UPPER PARATRACHEAL (level 2): ",$$GET1^DIQ(165.5,IE,1419.1)
+5 DO P
if EX=U
QUIT
+6 WRITE !," PREVASCULAR AND RETROTRACHEAL"
+7 DO P
if EX=U
QUIT
+8 WRITE !," (level 3): ",$$GET1^DIQ(165.5,IE,1419.2)
+9 DO P
if EX=U
QUIT
+10 WRITE !," LOWER PARATRACHEAL (level 4): ",$$GET1^DIQ(165.5,IE,1419.3)
+11 DO P
if EX=U
QUIT
+12 WRITE !," SUBAORTIC (level 5): ",$$GET1^DIQ(165.5,IE,1419.4)
+13 DO P
if EX=U
QUIT
+14 WRITE !," PARAORTIC (level 6): ",$$GET1^DIQ(165.5,IE,1419.5)
+15 DO P
if EX=U
QUIT
+16 WRITE !," SUBCARINAL (level 7): ",$$GET1^DIQ(165.5,IE,1419.6)
+17 DO P
if EX=U
QUIT
+18 WRITE !," PARAESOPHAGEAL (level 8): ",$$GET1^DIQ(165.5,IE,1419.7)
+19 DO P
if EX=U
QUIT
+20 WRITE !," PULMONARY LIGAMENT (level 9): ",$$GET1^DIQ(165.5,IE,1419.8)
+21 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCLPC0
GOTO ITEM16
+22 WRITE !
+23 DO P
if EX=U
QUIT
ITEM16 WRITE !,"16. HCT (HEMATOCRIT) VALUES BEFORE"
+1 DO P
if EX=U
QUIT
+2 WRITE !," TRANSFUSION..................: ",$$GET1^DIQ(165.5,IE,1430)
+3 DO P
if EX=U
QUIT
+4 WRITE !
+5 DO P
if EX=U
QUIT
ITEM17 WRITE !,"17. TOTAL PERI-OPERATIVE BLOOD"
+1 DO P
if EX=U
QUIT
+2 WRITE !," REPLACEMENT..................: ",$$GET1^DIQ(165.5,IE,1420)
+3 DO P
if EX=U
QUIT
+4 WRITE !
+5 DO P
if EX=U
QUIT
ITEM18 WRITE !,"18. PERI-OPERATIVE DEATH..........: ",$$GET1^DIQ(165.5,IE,1421)
+1 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCLPC0
+2 SET TABLE="FIRST COURSE OF TREATMENT - RADIATION"
+3 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCLPC0
+4 KILL LINE
SET $PIECE(LINE,"-",37)="-"
+5 WRITE !?4,TABLE,!?4,LINE
+6 DO P
if EX=U
QUIT
ITEM19 WRITE !,"19. REGIONAL DOSE (cGy)...........: ",$$GET1^DIQ(165.5,IE,442)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM20 WRITE !,"20. NUMBER OF TREATMENTS TO THIS"
+1 DO P
if EX=U
QUIT
+2 WRITE !," VOLUME.......................: ",$$GET1^DIQ(165.5,IE,56)
+3 DO P
if EX=U
QUIT
+4 WRITE !
+5 DO P
if EX=U
QUIT
ITEM21 WRITE !,"21. REGIONAL TREATMENT MODALITY...: ",$$GET1^DIQ(165.5,IE,363)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM22 WRITE !,"22. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,IE,51.3)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM23 WRITE !,"23. BOOST DOSE (cGy)..............: ",$$GET1^DIQ(165.5,IE,1422)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM24 WRITE !,"24. INTENT OF RADIATION TREATMENT.: ",$$GET1^DIQ(165.5,IE,127)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM25 WRITE !,"25. REASON FOR NO RADIATION.......: ",$$GET1^DIQ(165.5,IE,75)
+1 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCLPC0
+2 SET TABLE="FIRST COURSE OF TREATMENT - CHEMOTHERAPY"
+3 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCLPC0
+4 KILL LINE
SET $PIECE(LINE,"-",40)="-"
+5 WRITE !?4,TABLE,!?4,LINE
+6 DO P
if EX=U
QUIT
ITEM26 WRITE !,"26. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," AGENT #1.....................: ",$$GET1^DIQ(165.5,IE,1423)
+3 DO P
if EX=U
QUIT
+4 WRITE !," AGENT #2.....................: ",$$GET1^DIQ(165.5,IE,1423.1)
+5 DO P
if EX=U
QUIT
+6 WRITE !," AGENT #3.....................: ",$$GET1^DIQ(165.5,IE,1423.2)
+7 DO P
if EX=U
QUIT
+8 WRITE !
+9 DO P
if EX=U
QUIT
ITEM27 WRITE !,"27. CHEMOTHERAPEUTIC TOXICITY.....: ",$$GET1^DIQ(165.5,IE,1424)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM28 WRITE !,"28. CHEMOTHERAPY/SURGERY SEQUENCE.: ",$$GET1^DIQ(165.5,IE,1425)
+1 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCLPC0
VI SET TABLE="TREATMENT COMPLICATIONS"
+1 IF IOST'?1"C".E
WRITE !
+2 WRITE !?4,TABLE,!?4,"-----------------------"
+3 DO P
if EX=U
QUIT
ITEM29 WRITE !,"29. COMPLICATIONS:"
+1 DO P
if EX=U
QUIT
+2 IF TC="No"
Begin DoDot:1
+3 WRITE !," COMPLICATION #1..............: 000.00 No complications"
End DoDot:1
GOTO TC2
+4 WRITE !," COMPLICATION #1..............: ",$PIECE($$GET1^DIQ(165.5,IE,1426)," ",1),?44,$PIECE($$GET1^DIQ(165.5,IE,1426)," ",2,99)
TC2 DO P
if EX=U
QUIT
+1 WRITE !," COMPLICATION #2..............: ",$PIECE($$GET1^DIQ(165.5,IE,1426.1)," ",1),?44,$PIECE($$GET1^DIQ(165.5,IE,1426.1)," ",2,99)
+2 DO P
if EX=U
QUIT
+3 WRITE !," COMPLICATION #3..............: ",$PIECE($$GET1^DIQ(165.5,IE,1426.2)," ",1),?44,$PIECE($$GET1^DIQ(165.5,IE,1426.2)," ",2,99)
+4 DO P
if EX=U
QUIT
+5 WRITE !," COMPLICATION #4..............: ",$PIECE($$GET1^DIQ(165.5,IE,1426.3)," ",1),?44,$PIECE($$GET1^DIQ(165.5,IE,1426.3)," ",2,99)
+6 DO P
if EX=U
QUIT
+7 WRITE !," COMPLICATION #5..............: ",$PIECE($$GET1^DIQ(165.5,IE,1426.4)," ",1),?44,$PIECE($$GET1^DIQ(165.5,IE,1426.4)," ",2,99)
+8 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCLPC0
VII SET TABLE="CASE REGISTRATION"
+1 IF IOST'?1"C".E
WRITE !
+2 WRITE !?4,TABLE,!?4,"-----------------"
+3 DO P
if EX=U
QUIT
ITEM30 WRITE !,"29. INITIALS OF CASE ABSTRACTOR...: ",$$GET1^DIQ(165.5,IE,81)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM31 WRITE !,"30. DATE CASE WAS ABSTRACTED......: ",$$GET1^DIQ(165.5,IE,90)
+1 DO P
if EX=U
QUIT
+2 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
+3 QUIT
P ;Print
+1 IF ($Y'<(LIN-1))
Begin DoDot:1
+2 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
IF 'Y
SET EX=U
QUIT
+3 DO HEAD^ONCLPC0
QUIT
End DoDot:1
if EX=U
QUIT
+4 QUIT
