source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCGPC4.m@ 1074

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1ONCGPC4 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;03/08/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^ONCGPC0
6 W !," TREATMENT COMPLICATIONS"
7 W !," -----------------------"
8 S DR(1,165.5,1)="1426.5 47. COMPLICATIONS (YES/NO)........"
9 S DR(1,165.5,2)="I $G(X)=0 D NOCMP^ONCGPC4 S Y=""@99"""
10 S DR(1,165.5,3)="1579 COMPLICATION #1.............."
11 S DR(1,165.5,4)="1579.1 COMPLICATION #2.............."
12 S DR(1,165.5,5)="1579.2 COMPLICATION #3.............."
13 S DR(1,165.5,6)="1579.3 COMPLICATION #4.............."
14 S DR(1,165.5,7)="1579.4 COMPLICATION #5.............."
15 S DR(1,165.5,8)="@99"
16 D ^DIE
17 W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
18EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
19 Q
20NOCMP ;Item 47. COMPLICATIONS
21 F PIECE=48:1:52 S $P(^ONCO(165.5,D0,"GAS2"),U,PIECE)=""
22 W !," COMPLICATION #1..............: 000.00 No complications"
23 W !," COMPLICATION #2..............:"
24 W !," COMPLICATION #3..............:"
25 W !," COMPLICATION #4..............:"
26 W !," COMPLICATION #5..............:"
27 W !
28 K PIECE
29 Q
Note: See TracBrowser for help on using the repository browser.