ONCGPC4 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;03/08/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^ONCGPC0
W !," TREATMENT COMPLICATIONS"
W !," -----------------------"
S DR(1,165.5,1)="1426.5 47. COMPLICATIONS (YES/NO)........"
S DR(1,165.5,2)="I $G(X)=0 D NOCMP^ONCGPC4 S Y=""@99"""
S DR(1,165.5,3)="1579 COMPLICATION #1.............."
S DR(1,165.5,4)="1579.1 COMPLICATION #2.............."
S DR(1,165.5,5)="1579.2 COMPLICATION #3.............."
S DR(1,165.5,6)="1579.3 COMPLICATION #4.............."
S DR(1,165.5,7)="1579.4 COMPLICATION #5.............."
S DR(1,165.5,8)="@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
NOCMP ;Item 47. COMPLICATIONS
F PIECE=48:1:52 S $P(^ONCO(165.5,D0,"GAS2"),U,PIECE)=""
W !," COMPLICATION #1..............: 000.00 No complications"
W !," COMPLICATION #2..............:"
W !," COMPLICATION #3..............:"
W !," COMPLICATION #4..............:"
W !," COMPLICATION #5..............:"
W !
K PIECE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCGPC4 1209 printed Nov 22, 2024@17:33:03 Page 2
ONCGPC4 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;03/08/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^ONCGPC0
+5 WRITE !," TREATMENT COMPLICATIONS"
+6 WRITE !," -----------------------"
+7 SET DR(1,165.5,1)="1426.5 47. COMPLICATIONS (YES/NO)........"
+8 SET DR(1,165.5,2)="I $G(X)=0 D NOCMP^ONCGPC4 S Y=""@99"""
+9 SET DR(1,165.5,3)="1579 COMPLICATION #1.............."
+10 SET DR(1,165.5,4)="1579.1 COMPLICATION #2.............."
+11 SET DR(1,165.5,5)="1579.2 COMPLICATION #3.............."
+12 SET DR(1,165.5,6)="1579.3 COMPLICATION #4.............."
+13 SET DR(1,165.5,7)="1579.4 COMPLICATION #5.............."
+14 SET DR(1,165.5,8)="@99"
+15 DO ^DIE
+16 WRITE !
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
NOCMP ;Item 47. COMPLICATIONS
+1 FOR PIECE=48:1:52
SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,PIECE)=""
+2 WRITE !," COMPLICATION #1..............: 000.00 No complications"
+3 WRITE !," COMPLICATION #2..............:"
+4 WRITE !," COMPLICATION #3..............:"
+5 WRITE !," COMPLICATION #4..............:"
+6 WRITE !," COMPLICATION #5..............:"
+7 WRITE !
+8 KILL PIECE
+9 QUIT
