source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCGPC1.m@ 1259

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

initial load of WorldVistAEHR
File size: 5.4 KB
Line 
1ONCGPC1 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;02/27/01
2 ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
3 ;Patient Information
4 S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
5 W @IOF D HEAD^ONCGPC0
6 W !," PATIENT INFORMATION"
7 W !," -------------------"
8 S DR(1,165.5,1)="1400.6 1. CO-MORBID CONDITIONS (YES/NO)."
9 S DR(1,165.5,2)="I $G(X)=0 D CC1^ONCGPC1,CC2^ONCGPC1,CC3^ONCGPC1,CC4^ONCGPC1,CC5^ONCGPC1,CC6^ONCGPC1 S Y=1500"
10 S DR(1,165.5,3)="1571 CO-MORBID CONDITION #1......."
11 S DR(1,165.5,3.1)="I ($G(X)="""")&($P($G(^ONCO(165.5,DA,""LUN1"")),U,76)=1) D ITEM1ED^ONCGPC1 S Y=1571"
12 S DR(1,165.5,4)="1571.1 CO-MORBID CONDITION #2......."
13 S DR(1,165.5,4.1)="I $G(X)="""" D CC3^ONCGPC1,CC4^ONCGPC1,CC5^ONCGPC1,CC6^ONCGPC1 S Y=1500"
14 S DR(1,165.5,5)="1571.2 CO-MORBID CONDITION #3......."
15 S DR(1,165.5,5.1)="I $G(X)="""" D CC4^ONCGPC1,CC5^ONCGPC1,CC6^ONCGPC1 S Y=1500"
16 S DR(1,165.5,6)="1571.3 CO-MORBID CONDITION #4......."
17 S DR(1,165.5,6.1)="I $G(X)="""" D CC5^ONCGPC1,CC6^ONCGPC1 S Y=1500"
18 S DR(1,165.5,7)="1571.4 CO-MORBID CONDITION #5......."
19 S DR(1,165.5,7.1)="I $G(X)="""" D CC6^ONCGPC1 S Y=1500"
20 S DR(1,165.5,8)="1571.5 CO-MORBID CONDITION #6......."
21 S DR(1,165.5,9)="W !"
22 S DR(1,165.5,10)="1500 2. PRIOR EXPOSURE TO RADIATION..."
23 S DR(1,165.5,11)="W !"
24 S DR(1,165.5,12)="1501 3. ALCOHOL CONSUMPTION..........."
25 S DR(1,165.5,13)="W !"
26 S DR(1,165.5,14)="1572 4. DURATION OF TOBACCO USE......."
27 S DR(1,165.5,15)="W !"
28 S DR(1,165.5,16)="I SEX'=1 S Y=""@5"""
29 S DR(1,165.5,17)="1502////8"
30 S DR(1,165.5,18)="W !,"" 5. MENOPAUSAL STATUS AND HORMONE"""
31 S DR(1,165.5,19)="W !,"" REPLACEMENT THERAPY..........: NA, male patient"""
32 S DR(1,165.5,20)="W !"
33 S DR(1,165.5,21)="S Y=1503"
34 S DR(1,165.5,22)="@5"
35 S DR(1,165.5,23)="1502 5. MENOPAUSAL STATUS AND HORMONE REPLACEMENT THERAPY.........."
36 S DR(1,165.5,24)="W !"
37 S DR(1,165.5,25)="1503 6. H2 BLOCKER/PROTON PUMP INHIBITOR USE................"
38 S DR(1,165.5,26)="W !"
39 S DR(1,165.5,27)="1504 7. FAMILY HISTORY OF GASTRIC CANCER......................."
40 S DR(1,165.5,28)="W !"
41 S DR(1,165.5,29)="S DEF="""" D ITEM3^ONCLPC1 K DEF"
42 S DR(1,165.5,30)="1573 8. PERSONAL HISTORY OF OTHER INVASIVE MALIGNANCIES PRIOR TO THIS CANCER DIAGNOSIS....//^S X=PHDEF"
43 S DR(1,165.5,31)="W !"
44 S DR(1,165.5,32)="W !,"" 9. ASSOCIATED BENIGN CONDTIONS:"""
45 S DR(1,165.5,33)="1505 H-PYLORI INFECTION..........."
46 S DR(1,165.5,34)="1506 DUODENAL ULCER..............."
47 S DR(1,165.5,35)="1507 GASTRIC ULCER................"
48 S DR(1,165.5,36)="1508 HEARTBURN...................."
49 S DR(1,165.5,37)="1509 PERNICIOUS ANEMIA............"
50 S DR(1,165.5,38)="1510 POLYPS OF STOMACH............"
51 S DR(1,165.5,39)="1511 POLYPOSIS OF SMALL OR LARGE BOWEL......................."
52 S DR(1,165.5,40)="1512 BARRET'S ESOPHAGUS..........."
53 S DR(1,165.5,41)="1513 ATROPHIC GASTRITIS..........."
54 S DR(1,165.5,42)="1514 GASTRIC METAPLASIA..........."
55 S DR(1,165.5,43)="W !"
56 S DR(1,165.5,44)="W !,"" 10. H-PYLORI DRUGS GIVEN:"""
57 S DR(1,165.5,44.1)="I ($$GET1^DIQ(165.5,D0,1505,""I"")=2)!($$GET1^DIQ(165.5,D0,1505,""I"")=4) D HDG1^ONCGPC1,HDG2^ONCGPC1,HDG3^ONCGPC1,HDG4^ONCGPC1 S Y=1519"
58 S DR(1,165.5,45)="1515 ANTIBIOTICS.................."
59 S DR(1,165.5,45.1)="I $G(X)=8 D HDG2^ONCGPC1,HDG3^ONCGPC1,HDG4^ONCGPC1 S Y=1519"
60 S DR(1,165.5,46)="1516 PROTON PUMP INHIBITORS......."
61 S DR(1,165.5,46.1)="I $G(X)=8 D HDG3^ONCGPC1,HDG4^ONCGPC1 S Y=1519"
62 S DR(1,165.5,47)="1517 H2 BLOCKERS.................."
63 S DR(1,165.5,47.1)="I $G(X)=8 D HDG4^ONCGPC1 S Y=1519"
64 S DR(1,165.5,48)="1518 BISMUTH COMPOUNDS............"
65 S DR(1,165.5,49)="W !"
66 S DR(1,165.5,50)="1519 11. PRIOR INTRA-ABDOMINAL SURGERY."
67 S DR(1,165.5,51)="W !"
68 S DR(1,165.5,52)="1520 12. YEAR OF PRIOR GASTRIC RESECTION...................."
69 D ^DIE
70 W !
71 K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
72EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
73 K PHDEF
74 Q
75ITEM1ED ;ITEM 1 EDIT
76 W !
77 W !," CO-MORBID CONDITIONS (YES/NO) equals ""Yes"""
78 W !," CO-MORBID CONDITION #1 may not be blank"
79 W !
80 Q
81CC1 S $P(^ONCO(165.5,D0,"GAS2"),U,33)=""
82 W !," CO-MORBID CONDITION #1.......: 000.00 No co-morbidities"
83 Q
84CC2 S $P(^ONCO(165.5,D0,"GAS2"),U,34)=""
85 W !," CO-MORBID CONDITION #2.......:"
86 Q
87CC3 S $P(^ONCO(165.5,D0,"GAS2"),U,35)=""
88 W !," CO-MORBID CONDITION #3.......:"
89 Q
90CC4 S $P(^ONCO(165.5,D0,"GAS2"),U,36)=""
91 W !," CO-MORBID CONDITION #4.......:"
92 Q
93CC5 S $P(^ONCO(165.5,D0,"GAS2"),U,37)=""
94 W !," CO-MORBID CONDITION #5.......:"
95 Q
96CC6 S $P(^ONCO(165.5,D0,"GAS2"),U,38)=""
97 W !," CO-MORBID CONDITION #6.......:"
98 W !
99 Q
100HDG1 S $P(^ONCO(165.5,D0,"GAS1"),U,16)=8
101 W !," ANTIBIOTICS..................: H-pylori not present"
102 Q
103HDG2 S $P(^ONCO(165.5,D0,"GAS1"),U,17)=8
104 W !," PROTON PUMP INHIBITORS.......: H-pylori not present"
105 Q
106HDG3 S $P(^ONCO(165.5,D0,"GAS1"),U,18)=8
107 W !," H2 BLOCKERS..................: H-pylori not present"
108 Q
109HDG4 S $P(^ONCO(165.5,D0,"GAS1"),U,19)=8
110 W !," BISMUTH COMPOUNDS............: H-pylori not present"
111 W !
112 Q
Note: See TracBrowser for help on using the repository browser.