| 1 | ONCLPC6 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/09/01
|
|---|
| 2 | ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
|
|---|
| 3 | ;Treatment Complications
|
|---|
| 4 | K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
|
|---|
| 5 | W @IOF D HEAD^ONCLPC0
|
|---|
| 6 | W !," TREATMENT COMPLICATIONS"
|
|---|
| 7 | W !," -----------------------"
|
|---|
| 8 | S DR(1,165.5,1)="1426.5 29. COMPLICATIONS (YES/NO)........"
|
|---|
| 9 | S DR(1,165.5,2)="I $G(X)=0 D TC1^ONCLPC6,TC2^ONCLPC6,TC3^ONCLPC6,TC4^ONCLPC6,TC5^ONCLPC6 S Y=""@99"""
|
|---|
| 10 | S DR(1,165.5,3)="1426 COMPLICATION #1.............."
|
|---|
| 11 | 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"
|
|---|
| 12 | S DR(1,165.5,5)="1426.1 COMPLICATION #2.............."
|
|---|
| 13 | S DR(1,165.5,6)="I $G(X)="""" D TC3^ONCLPC6,TC4^ONCLPC6,TC5^ONCLPC6 S Y=""@99"""
|
|---|
| 14 | S DR(1,165.5,7)="1426.2 COMPLICATION #3.............."
|
|---|
| 15 | S DR(1,165.5,8)="I $G(X)="""" D TC4^ONCLPC6,TC5^ONCLPC6 S Y=""@99"""
|
|---|
| 16 | S DR(1,165.5,9)="1426.3 COMPLICATION #4.............."
|
|---|
| 17 | S DR(1,165.5,10)="I $G(X)="""" D TC5^ONCLPC6 S Y=""@99"""
|
|---|
| 18 | S DR(1,165.5,11)="1426.4 COMPLICATION #5.............."
|
|---|
| 19 | S DR(1,165.5,12)="@99"
|
|---|
| 20 | D ^DIE
|
|---|
| 21 | W !
|
|---|
| 22 | K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
|
|---|
| 23 | EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
|
|---|
| 24 | Q
|
|---|
| 25 | ITM29ED ;ITEM 1 EDIT
|
|---|
| 26 | W !
|
|---|
| 27 | W !," COMPLICATIONS (YES/NO) equals ""Yes"""
|
|---|
| 28 | W !," COMPLICATION #1 may not be blank"
|
|---|
| 29 | W !
|
|---|
| 30 | Q
|
|---|
| 31 | ITEM29 ;COMPLICATIONS
|
|---|
| 32 | TC1 S $P(^ONCO(165.5,D0,"LUN2"),U,33)=""
|
|---|
| 33 | W !," COMPLICATION #1..............: 000.00 No complications"
|
|---|
| 34 | Q
|
|---|
| 35 | TC2 S $P(^ONCO(165.5,D0,"LUN2"),U,34)=""
|
|---|
| 36 | W !," COMPLICATION #2..............:"
|
|---|
| 37 | Q
|
|---|
| 38 | TC3 S $P(^ONCO(165.5,D0,"LUN2"),U,35)=""
|
|---|
| 39 | W !," COMPLICATION #3..............:"
|
|---|
| 40 | Q
|
|---|
| 41 | TC4 S $P(^ONCO(165.5,D0,"LUN2"),U,36)=""
|
|---|
| 42 | W !," COMPLICATION #4..............:"
|
|---|
| 43 | Q
|
|---|
| 44 | TC5 S $P(^ONCO(165.5,D0,"LUN2"),U,37)=""
|
|---|
| 45 | W !," COMPLICATION #5..............:"
|
|---|
| 46 | Q
|
|---|
