ONCLPC5.m

ONCLPC5 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;03/08/01

 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 ;First Course of Treatment 

 S SUR=$$GET1^DIQ(165.5,ONCONUM,58.2)

 S RAD=$$GET1^DIQ(165.5,ONCONUM,51.2,"I")

 S CHE=$$GET1^DIQ(165.5,ONCONUM,53.2,"I")

 K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""

 W @IOF D HEAD^ONCLPC0

 W !," FIRST COURSE OF TREATMENT - SURGERY"

 W !," -----------------------------------"

 S DR(1,165.5,1)="I (SUR="""")!($E(SUR,1,2)=""00"")!($E(SUR,1,2)=99) D NOSUR^ONCLPC5 S Y=$S($D(DUOUT):""@99"",1:""@19"")"

 S DR(1,165.5,2)="W !,"" 15. SCOPE OF OPERATIVE MEDIASTINAL LYMPH NODE ASSESSMENT:"""

 S DR(1,165.5,3)="1419      HIGHEST MEDIASTINAL (level 1)"

 S DR(1,165.5,4)="1419.1      UPPER PARATRACHEAL  (level 2)"

 S DR(1,165.5,5)="1419.2      PREVASCULAR AND RETROTRACHEAL                                                                       (level 3)"

 S DR(1,165.5,6)="1419.3      LOWER PARATRACHEAL  (level 4)"

 S DR(1,165.5,7)="1419.4      SUBAORTIC           (level 5)"

 S DR(1,165.5,8)="1419.5      PARAORTIC           (level 6)"

 S DR(1,165.5,9)="1419.6      SUBCARINAL          (level 7)"

 S DR(1,165.5,10)="1419.7      PARAESOPHAGEAL      (level 8)"

 S DR(1,165.5,11)="1419.8      PULMONARY LIGAMENT  (level 9)"

 S DR(1,165.5,12)="W !"

 S DR(1,165.5,13)="1430 16. HCT (HEMOCRIT) VALUES BEFORE                                                     TRANSFUSION.................."

 S DR(1,165.5,14)="W !"

 S DR(1,165.5,15)="1420 17. TOTAL PERI-OPERATIVE BLOOD                                                       REPLACEMENT.................."

 S DR(1,165.5,16)="W !"

 S DR(1,165.5,17)="1421 18. PERI-OPERATIVE DEATH.........."

 S DR(1,165.5,19)="W ! K DIR,OUT S DIR(0)=""E"" D ^DIR S Y=""@19"" I $D(DUOUT) S Y=""@99"",OUT=""Y"""

 S DR(1,165.5,20)="@19"

 S DR(1,165.5,21)="D HEAD^ONCLPC0"

 S DR(1,165.5,22)="W !,"" FIRST COURSE OF TREATMENT - RADIATION THERAPY"""

 S DR(1,165.5,23)="W !,"" ---------------------------------------------"""

 S DR(1,165.5,24)="I (RAD="""")!(RAD=0)!(RAD=9) D NORAD^ONCLPC5 S Y=$S($D(DUOUT):""@99"",1:""@26"")"

 S DR(1,165.5,25)="442 19. REGIONAL DOSE (cGy)..........."

 S DR(1,165.5,26)="W !"

 S DR(1,165.5,27)="56 20. NUMBER OF TREATMENTS TO THIS                                                     VOLUME......................."

 S DR(1,165.5,28)="W !"

 S DR(1,165.5,29)="363 21. REGIONAL TREATMENT MODALITY..."

 S DR(1,165.5,30)="W !"

 S DR(1,165.5,31)="51.3 22. RADIATION/SURGERY SEQUENCE...."

 S DR(1,165.5,32)="W !"

 S DR(1,165.5,33)="1422 23. BOOST DOSE (cGy).............."

 S DR(1,165.5,34)="W !"

 S DR(1,165.5,35)="127 24. INTENT OF RADIATION TREATMENT."

 S DR(1,165.5,36)="W !"

 S DR(1,165.5,37)="75 25. REASON FOR NO RADIATION......."

 S DR(1,165.5,38)="W ! K DIR,OUT S DIR(0)=""E"" D ^DIR S Y=""@26"" I $D(DUOUT) S Y=""@99"",OUT=""Y"""

 S DR(1,165.5,39)="@26"

 S DR(1,165.5,40)="D HEAD^ONCLPC0"

 S DR(1,165.5,41)="W !,"" FIRST COURSE OF TREATMENT - CHEMOTHERAPY"""

 S DR(1,165.5,42)="W !,"" ----------------------------------------"""

 S DR(1,165.5,43)="I (CHE="""")!(CHE=0)!(CHE=9) D NOCHE^ONCLPC5 S Y=""@99"""

 S DR(1,165.5,44)="W !,"" 26. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"""

 S DR(1,165.5,45)="1423      AGENT #1....................."

 S DR(1,165.5,46)="1423.1      AGENT #2....................."

 S DR(1,165.5,47)="1423.2      AGENT #3....................."

 S DR(1,165.5,48)="W !"

 S DR(1,165.5,49)="1424 27. CHEMOTHERAPEUTIC TOXICITY....."

 S DR(1,165.5,50)="W !"

 S DR(1,165.5,51)="1425 28. CHEMOTHERAPY/SURGERY SEQUENCE."

 S DR(1,165.5,53)="@99"

 D ^DIE

 W !

 G:$G(OUT)="Y" EXIT

 K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"

EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y

 K SUR,RAD,CHE

 Q

NOSUR ;No surgery

 F PIECE=16:1:26 S $P(^ONCO(165.5,D0,"LUN2"),U,PIECE)=""

 S $P(^ONCO(165.5,D0,"LUN2"),U,43)=""

 W !," No surgery of the primary site was performed."

 W !," Do not answer data items 15-18."

 W !," Proceed to data item 19."

 W !

 K DIR S DIR(0)="E" D ^DIR S:$D(DUOUT) Y="@99",OUT="Y"

 K PIECE

 Q

NORAD ;No radiation

 S $P(^ONCO(165.5,D0,"LUN2"),U,27)="00000"

 W !," 19. REGIONAL DOSE (cGy)...........: ",$$GET1^DIQ(165.5,D0,442)

 W !

 W !," 20. NUMBER OF TREATMENTS TO THIS"

 W !,"      VOLUME.......................: ",$$GET1^DIQ(165.5,D0,56)

 W !

 W !," 21. REGIONAL TREATMENT MODALITY...: ",$$GET1^DIQ(165.5,D0,363)

 W !

 W !," 22. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,D0,51.3)

 W !

 W !," 23. BOOST DOSE (cGy)..............: Not administered"

 W !

 W !," 24. INTENT OF RADIATION TREATMENT.: ",$$GET1^DIQ(165.5,D0,127)

 W !

 W !," 25. REASON FOR NO RADIATION.......: ",$$GET1^DIQ(165.5,D0,75)

 W !

 K DIR S DIR(0)="E" D ^DIR S:$D(DUOUT) Y="@99",OUT="Y"

 Q

NOCHE ;No chemotherapy

 F PIECE=28:1:32 S $P(^ONCO(165.5,D0,"LUN2"),U,PIECE)=""

 W !," No chemotherapy was administered."

 W !," Do not answer data items 26-28."

 W !," Proceed to data item 29."

 K PIECE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCLPC5   5008     printed  Mar 13, 2025@21:28:24                                                                                                                                                                                                     Page 2

ONCLPC5   ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;03/08/01

 +1       ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 +2       ;First Course of Treatment 

 +3        SET SUR=$$GET1^DIQ(165.5,ONCONUM,58.2)

 +4        SET RAD=$$GET1^DIQ(165.5,ONCONUM,51.2,"I")

 +5        SET CHE=$$GET1^DIQ(165.5,ONCONUM,53.2,"I")

 +6        KILL DR

           SET DIE="^ONCO(165.5,"

           SET DA=ONCONUM

           SET DR=""

 +7        WRITE @IOF

           DO HEAD^ONCLPC0

 +8        WRITE !," FIRST COURSE OF TREATMENT - SURGERY"

 +9        WRITE !," -----------------------------------"

 +10       SET DR(1,165.5,1)="I (SUR="""")!($E(SUR,1,2)=""00"")!($E(SUR,1,2)=99) D NOSUR^ONCLPC5 S Y=$S($D(DUOUT):""@99"",1:""@19"")"

 +11       SET DR(1,165.5,2)="W !,"" 15. SCOPE OF OPERATIVE MEDIASTINAL LYMPH NODE ASSESSMENT:"""

 +12       SET DR(1,165.5,3)="1419      HIGHEST MEDIASTINAL (level 1)"

 +13       SET DR(1,165.5,4)="1419.1      UPPER PARATRACHEAL  (level 2)"

 +14       SET DR(1,165.5,5)="1419.2      PREVASCULAR AND RETROTRACHEAL                                                                       (level 3)"

 +15       SET DR(1,165.5,6)="1419.3      LOWER PARATRACHEAL  (level 4)"

 +16       SET DR(1,165.5,7)="1419.4      SUBAORTIC           (level 5)"

 +17       SET DR(1,165.5,8)="1419.5      PARAORTIC           (level 6)"

 +18       SET DR(1,165.5,9)="1419.6      SUBCARINAL          (level 7)"

 +19       SET DR(1,165.5,10)="1419.7      PARAESOPHAGEAL      (level 8)"

 +20       SET DR(1,165.5,11)="1419.8      PULMONARY LIGAMENT  (level 9)"

 +21       SET DR(1,165.5,12)="W !"

 +22       SET DR(1,165.5,13)="1430 16. HCT (HEMOCRIT) VALUES BEFORE                                                     TRANSFUSION.................."

 +23       SET DR(1,165.5,14)="W !"

 +24       SET DR(1,165.5,15)="1420 17. TOTAL PERI-OPERATIVE BLOOD                                                       REPLACEMENT.................."

 +25       SET DR(1,165.5,16)="W !"

 +26       SET DR(1,165.5,17)="1421 18. PERI-OPERATIVE DEATH.........."

 +27       SET DR(1,165.5,19)="W ! K DIR,OUT S DIR(0)=""E"" D ^DIR S Y=""@19"" I $D(DUOUT) S Y=""@99"",OUT=""Y"""

 +28       SET DR(1,165.5,20)="@19"

 +29       SET DR(1,165.5,21)="D HEAD^ONCLPC0"

 +30       SET DR(1,165.5,22)="W !,"" FIRST COURSE OF TREATMENT - RADIATION THERAPY"""

 +31       SET DR(1,165.5,23)="W !,"" ---------------------------------------------"""

 +32       SET DR(1,165.5,24)="I (RAD="""")!(RAD=0)!(RAD=9) D NORAD^ONCLPC5 S Y=$S($D(DUOUT):""@99"",1:""@26"")"

 +33       SET DR(1,165.5,25)="442 19. REGIONAL DOSE (cGy)..........."

 +34       SET DR(1,165.5,26)="W !"

 +35       SET DR(1,165.5,27)="56 20. NUMBER OF TREATMENTS TO THIS                                                     VOLUME......................."

 +36       SET DR(1,165.5,28)="W !"

 +37       SET DR(1,165.5,29)="363 21. REGIONAL TREATMENT MODALITY..."

 +38       SET DR(1,165.5,30)="W !"

 +39       SET DR(1,165.5,31)="51.3 22. RADIATION/SURGERY SEQUENCE...."

 +40       SET DR(1,165.5,32)="W !"

 +41       SET DR(1,165.5,33)="1422 23. BOOST DOSE (cGy).............."

 +42       SET DR(1,165.5,34)="W !"

 +43       SET DR(1,165.5,35)="127 24. INTENT OF RADIATION TREATMENT."

 +44       SET DR(1,165.5,36)="W !"

 +45       SET DR(1,165.5,37)="75 25. REASON FOR NO RADIATION......."

 +46       SET DR(1,165.5,38)="W ! K DIR,OUT S DIR(0)=""E"" D ^DIR S Y=""@26"" I $D(DUOUT) S Y=""@99"",OUT=""Y"""

 +47       SET DR(1,165.5,39)="@26"

 +48       SET DR(1,165.5,40)="D HEAD^ONCLPC0"

 +49       SET DR(1,165.5,41)="W !,"" FIRST COURSE OF TREATMENT - CHEMOTHERAPY"""

 +50       SET DR(1,165.5,42)="W !,"" ----------------------------------------"""

 +51       SET DR(1,165.5,43)="I (CHE="""")!(CHE=0)!(CHE=9) D NOCHE^ONCLPC5 S Y=""@99"""

 +52       SET DR(1,165.5,44)="W !,"" 26. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"""

 +53       SET DR(1,165.5,45)="1423      AGENT #1....................."

 +54       SET DR(1,165.5,46)="1423.1      AGENT #2....................."

 +55       SET DR(1,165.5,47)="1423.2      AGENT #3....................."

 +56       SET DR(1,165.5,48)="W !"

 +57       SET DR(1,165.5,49)="1424 27. CHEMOTHERAPEUTIC TOXICITY....."

 +58       SET DR(1,165.5,50)="W !"

 +59       SET DR(1,165.5,51)="1425 28. CHEMOTHERAPY/SURGERY SEQUENCE."

 +60       SET DR(1,165.5,53)="@99"

 +61       DO ^DIE

 +62       WRITE !

 +63       if $GET(OUT)="Y"

               GOTO EXIT

 +64       KILL DIR

           SET DIR(0)="E"

           DO ^DIR

           if $DATA(DIRUT)

               SET OUT="Y"

EXIT       KILL DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y

 +1        KILL SUR,RAD,CHE

 +2        QUIT 

NOSUR     ;No surgery

 +1        FOR PIECE=16:1:26

               SET $PIECE(^ONCO(165.5,D0,"LUN2"),U,PIECE)=""

 +2        SET $PIECE(^ONCO(165.5,D0,"LUN2"),U,43)=""

 +3        WRITE !," No surgery of the primary site was performed."

 +4        WRITE !," Do not answer data items 15-18."

 +5        WRITE !," Proceed to data item 19."

 +6        WRITE !

 +7        KILL DIR

           SET DIR(0)="E"

           DO ^DIR

           if $DATA(DUOUT)

               SET Y="@99"

               SET OUT="Y"

 +8        KILL PIECE

 +9        QUIT 

NORAD     ;No radiation

 +1        SET $PIECE(^ONCO(165.5,D0,"LUN2"),U,27)="00000"

 +2        WRITE !," 19. REGIONAL DOSE (cGy)...........: ",$$GET1^DIQ(165.5,D0,442)

 +3        WRITE !

 +4        WRITE !," 20. NUMBER OF TREATMENTS TO THIS"

 +5        WRITE !,"      VOLUME.......................: ",$$GET1^DIQ(165.5,D0,56)

 +6        WRITE !

 +7        WRITE !," 21. REGIONAL TREATMENT MODALITY...: ",$$GET1^DIQ(165.5,D0,363)

 +8        WRITE !

 +9        WRITE !," 22. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,D0,51.3)

 +10       WRITE !

 +11       WRITE !," 23. BOOST DOSE (cGy)..............: Not administered"

 +12       WRITE !

 +13       WRITE !," 24. INTENT OF RADIATION TREATMENT.: ",$$GET1^DIQ(165.5,D0,127)

 +14       WRITE !

 +15       WRITE !," 25. REASON FOR NO RADIATION.......: ",$$GET1^DIQ(165.5,D0,75)

 +16       WRITE !

 +17       KILL DIR

           SET DIR(0)="E"

           DO ^DIR

           if $DATA(DUOUT)

               SET Y="@99"

               SET OUT="Y"

 +18       QUIT 

NOCHE     ;No chemotherapy

 +1        FOR PIECE=28:1:32

               SET $PIECE(^ONCO(165.5,D0,"LUN2"),U,PIECE)=""

 +2        WRITE !," No chemotherapy was administered."

 +3        WRITE !," Do not answer data items 26-28."

 +4        WRITE !," Proceed to data item 29."

 +5        KILL PIECE

 +6        QUIT