ONCLPC6.m

ONCLPC6 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/09/01

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

 ;Treatment Complications 

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

 W @IOF D HEAD^ONCLPC0

 W !," TREATMENT COMPLICATIONS"

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

 S DR(1,165.5,1)="1426.5 29. COMPLICATIONS (YES/NO)........"

 S DR(1,165.5,2)="I $G(X)=0 D TC1^ONCLPC6,TC2^ONCLPC6,TC3^ONCLPC6,TC4^ONCLPC6,TC5^ONCLPC6 S Y=""@99"""

 S DR(1,165.5,3)="1426      COMPLICATION #1.............."

 S DR(1,165.5,4)="I ($G(X)="""")&($P($G(^ONCO(165.5,DA,""LUN2"")),U,40)=1) D ITM29ED^ONCLPC6 S Y=1426"

 S DR(1,165.5,5)="1426.1      COMPLICATION #2.............."

 S DR(1,165.5,6)="I $G(X)="""" D TC3^ONCLPC6,TC4^ONCLPC6,TC5^ONCLPC6 S Y=""@99"""

 S DR(1,165.5,7)="1426.2      COMPLICATION #3.............."

 S DR(1,165.5,8)="I $G(X)="""" D TC4^ONCLPC6,TC5^ONCLPC6 S Y=""@99"""

 S DR(1,165.5,9)="1426.3      COMPLICATION #4.............."

 S DR(1,165.5,10)="I $G(X)="""" D TC5^ONCLPC6 S Y=""@99"""

 S DR(1,165.5,11)="1426.4      COMPLICATION #5.............."

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

 D ^DIE

 W !

 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

 Q

ITM29ED ;ITEM 1 EDIT

 W !

 W !,"     COMPLICATIONS (YES/NO) equals ""Yes"""

 W !,"      COMPLICATION #1 may not be blank"

 W !

 Q 

ITEM29 ;COMPLICATIONS

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

 W !,"      COMPLICATION #1..............: 000.00 No complications"

 Q

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

 W !,"      COMPLICATION #2..............:"

 Q

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

 W !,"      COMPLICATION #3..............:"

 Q

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

 W !,"      COMPLICATION #4..............:"

 Q

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

 W !,"      COMPLICATION #5..............:"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCLPC6   1863     printed  Apr 09, 2024@21:25:33                                                                                                                                                                                                     Page 2

ONCLPC6   ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/09/01

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

 +2       ;Treatment Complications 

 +3        KILL DR

           SET DIE="^ONCO(165.5,"

           SET DA=ONCONUM

           SET DR=""

 +4        WRITE @IOF

           DO HEAD^ONCLPC0

 +5        WRITE !," TREATMENT COMPLICATIONS"

 +6        WRITE !," -----------------------"

 +7        SET DR(1,165.5,1)="1426.5 29. COMPLICATIONS (YES/NO)........"

 +8        SET DR(1,165.5,2)="I $G(X)=0 D TC1^ONCLPC6,TC2^ONCLPC6,TC3^ONCLPC6,TC4^ONCLPC6,TC5^ONCLPC6 S Y=""@99"""

 +9        SET DR(1,165.5,3)="1426      COMPLICATION #1.............."

 +10       SET DR(1,165.5,4)="I ($G(X)="""")&($P($G(^ONCO(165.5,DA,""LUN2"")),U,40)=1) D ITM29ED^ONCLPC6 S Y=1426"

 +11       SET DR(1,165.5,5)="1426.1      COMPLICATION #2.............."

 +12       SET DR(1,165.5,6)="I $G(X)="""" D TC3^ONCLPC6,TC4^ONCLPC6,TC5^ONCLPC6 S Y=""@99"""

 +13       SET DR(1,165.5,7)="1426.2      COMPLICATION #3.............."

 +14       SET DR(1,165.5,8)="I $G(X)="""" D TC4^ONCLPC6,TC5^ONCLPC6 S Y=""@99"""

 +15       SET DR(1,165.5,9)="1426.3      COMPLICATION #4.............."

 +16       SET DR(1,165.5,10)="I $G(X)="""" D TC5^ONCLPC6 S Y=""@99"""

 +17       SET DR(1,165.5,11)="1426.4      COMPLICATION #5.............."

 +18       SET DR(1,165.5,12)="@99"

 +19       DO ^DIE

 +20       WRITE !

 +21       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        QUIT 

ITM29ED   ;ITEM 1 EDIT

 +1        WRITE !

 +2        WRITE !,"     COMPLICATIONS (YES/NO) equals ""Yes"""

 +3        WRITE !,"      COMPLICATION #1 may not be blank"

 +4        WRITE !

 +5        QUIT 

ITEM29    ;COMPLICATIONS

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

 +1        WRITE !,"      COMPLICATION #1..............: 000.00 No complications"

 +2        QUIT 

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

 +1        WRITE !,"      COMPLICATION #2..............:"

 +2        QUIT 

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

 +1        WRITE !,"      COMPLICATION #3..............:"

 +2        QUIT 

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

 +1        WRITE !,"      COMPLICATION #4..............:"

 +2        QUIT 

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

 +1        WRITE !,"      COMPLICATION #5..............:"

 +2        QUIT