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 ---[H[J[2J[HONCLPC6 1863 printed Dec 13, 2024@02:23:38 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
