source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCLPC6.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1ONCLPC6 ;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"
23EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
24 Q
25ITM29ED ;ITEM 1 EDIT
26 W !
27 W !," COMPLICATIONS (YES/NO) equals ""Yes"""
28 W !," COMPLICATION #1 may not be blank"
29 W !
30 Q
31ITEM29 ;COMPLICATIONS
32TC1 S $P(^ONCO(165.5,D0,"LUN2"),U,33)=""
33 W !," COMPLICATION #1..............: 000.00 No complications"
34 Q
35TC2 S $P(^ONCO(165.5,D0,"LUN2"),U,34)=""
36 W !," COMPLICATION #2..............:"
37 Q
38TC3 S $P(^ONCO(165.5,D0,"LUN2"),U,35)=""
39 W !," COMPLICATION #3..............:"
40 Q
41TC4 S $P(^ONCO(165.5,D0,"LUN2"),U,36)=""
42 W !," COMPLICATION #4..............:"
43 Q
44TC5 S $P(^ONCO(165.5,D0,"LUN2"),U,37)=""
45 W !," COMPLICATION #5..............:"
46 Q
Note: See TracBrowser for help on using the repository browser.