ONCGPC1 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;02/27/01
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;Patient Information
S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
W @IOF D HEAD^ONCGPC0
W !," PATIENT INFORMATION"
W !," -------------------"
S DR(1,165.5,1)="1400.6 1. CO-MORBID CONDITIONS (YES/NO)."
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"
S DR(1,165.5,3)="1571 CO-MORBID CONDITION #1......."
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"
S DR(1,165.5,4)="1571.1 CO-MORBID CONDITION #2......."
S DR(1,165.5,4.1)="I $G(X)="""" D CC3^ONCGPC1,CC4^ONCGPC1,CC5^ONCGPC1,CC6^ONCGPC1 S Y=1500"
S DR(1,165.5,5)="1571.2 CO-MORBID CONDITION #3......."
S DR(1,165.5,5.1)="I $G(X)="""" D CC4^ONCGPC1,CC5^ONCGPC1,CC6^ONCGPC1 S Y=1500"
S DR(1,165.5,6)="1571.3 CO-MORBID CONDITION #4......."
S DR(1,165.5,6.1)="I $G(X)="""" D CC5^ONCGPC1,CC6^ONCGPC1 S Y=1500"
S DR(1,165.5,7)="1571.4 CO-MORBID CONDITION #5......."
S DR(1,165.5,7.1)="I $G(X)="""" D CC6^ONCGPC1 S Y=1500"
S DR(1,165.5,8)="1571.5 CO-MORBID CONDITION #6......."
S DR(1,165.5,9)="W !"
S DR(1,165.5,10)="1500 2. PRIOR EXPOSURE TO RADIATION..."
S DR(1,165.5,11)="W !"
S DR(1,165.5,12)="1501 3. ALCOHOL CONSUMPTION..........."
S DR(1,165.5,13)="W !"
S DR(1,165.5,14)="1572 4. DURATION OF TOBACCO USE......."
S DR(1,165.5,15)="W !"
S DR(1,165.5,16)="I SEX'=1 S Y=""@5"""
S DR(1,165.5,17)="1502////8"
S DR(1,165.5,18)="W !,"" 5. MENOPAUSAL STATUS AND HORMONE"""
S DR(1,165.5,19)="W !,"" REPLACEMENT THERAPY..........: NA, male patient"""
S DR(1,165.5,20)="W !"
S DR(1,165.5,21)="S Y=1503"
S DR(1,165.5,22)="@5"
S DR(1,165.5,23)="1502 5. MENOPAUSAL STATUS AND HORMONE REPLACEMENT THERAPY.........."
S DR(1,165.5,24)="W !"
S DR(1,165.5,25)="1503 6. H2 BLOCKER/PROTON PUMP INHIBITOR USE................"
S DR(1,165.5,26)="W !"
S DR(1,165.5,27)="1504 7. FAMILY HISTORY OF GASTRIC CANCER......................."
S DR(1,165.5,28)="W !"
S DR(1,165.5,29)="S DEF="""" D ITEM3^ONCLPC1 K DEF"
S DR(1,165.5,30)="1573 8. PERSONAL HISTORY OF OTHER INVASIVE MALIGNANCIES PRIOR TO THIS CANCER DIAGNOSIS....//^S X=PHDEF"
S DR(1,165.5,31)="W !"
S DR(1,165.5,32)="W !,"" 9. ASSOCIATED BENIGN CONDTIONS:"""
S DR(1,165.5,33)="1505 H-PYLORI INFECTION..........."
S DR(1,165.5,34)="1506 DUODENAL ULCER..............."
S DR(1,165.5,35)="1507 GASTRIC ULCER................"
S DR(1,165.5,36)="1508 HEARTBURN...................."
S DR(1,165.5,37)="1509 PERNICIOUS ANEMIA............"
S DR(1,165.5,38)="1510 POLYPS OF STOMACH............"
S DR(1,165.5,39)="1511 POLYPOSIS OF SMALL OR LARGE BOWEL......................."
S DR(1,165.5,40)="1512 BARRET'S ESOPHAGUS..........."
S DR(1,165.5,41)="1513 ATROPHIC GASTRITIS..........."
S DR(1,165.5,42)="1514 GASTRIC METAPLASIA..........."
S DR(1,165.5,43)="W !"
S DR(1,165.5,44)="W !,"" 10. H-PYLORI DRUGS GIVEN:"""
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"
S DR(1,165.5,45)="1515 ANTIBIOTICS.................."
S DR(1,165.5,45.1)="I $G(X)=8 D HDG2^ONCGPC1,HDG3^ONCGPC1,HDG4^ONCGPC1 S Y=1519"
S DR(1,165.5,46)="1516 PROTON PUMP INHIBITORS......."
S DR(1,165.5,46.1)="I $G(X)=8 D HDG3^ONCGPC1,HDG4^ONCGPC1 S Y=1519"
S DR(1,165.5,47)="1517 H2 BLOCKERS.................."
S DR(1,165.5,47.1)="I $G(X)=8 D HDG4^ONCGPC1 S Y=1519"
S DR(1,165.5,48)="1518 BISMUTH COMPOUNDS............"
S DR(1,165.5,49)="W !"
S DR(1,165.5,50)="1519 11. PRIOR INTRA-ABDOMINAL SURGERY."
S DR(1,165.5,51)="W !"
S DR(1,165.5,52)="1520 12. YEAR OF PRIOR GASTRIC RESECTION...................."
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
K PHDEF
Q
ITEM1ED ;ITEM 1 EDIT
W !
W !," CO-MORBID CONDITIONS (YES/NO) equals ""Yes"""
W !," CO-MORBID CONDITION #1 may not be blank"
W !
Q
CC1 S $P(^ONCO(165.5,D0,"GAS2"),U,33)=""
W !," CO-MORBID CONDITION #1.......: 000.00 No co-morbidities"
Q
CC2 S $P(^ONCO(165.5,D0,"GAS2"),U,34)=""
W !," CO-MORBID CONDITION #2.......:"
Q
CC3 S $P(^ONCO(165.5,D0,"GAS2"),U,35)=""
W !," CO-MORBID CONDITION #3.......:"
Q
CC4 S $P(^ONCO(165.5,D0,"GAS2"),U,36)=""
W !," CO-MORBID CONDITION #4.......:"
Q
CC5 S $P(^ONCO(165.5,D0,"GAS2"),U,37)=""
W !," CO-MORBID CONDITION #5.......:"
Q
CC6 S $P(^ONCO(165.5,D0,"GAS2"),U,38)=""
W !," CO-MORBID CONDITION #6.......:"
W !
Q
HDG1 S $P(^ONCO(165.5,D0,"GAS1"),U,16)=8
W !," ANTIBIOTICS..................: H-pylori not present"
Q
HDG2 S $P(^ONCO(165.5,D0,"GAS1"),U,17)=8
W !," PROTON PUMP INHIBITORS.......: H-pylori not present"
Q
HDG3 S $P(^ONCO(165.5,D0,"GAS1"),U,18)=8
W !," H2 BLOCKERS..................: H-pylori not present"
Q
HDG4 S $P(^ONCO(165.5,D0,"GAS1"),U,19)=8
W !," BISMUTH COMPOUNDS............: H-pylori not present"
W !
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCGPC1 5621 printed Oct 16, 2024@18:23:37 Page 2
ONCGPC1 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;02/27/01
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;Patient Information
+3 SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
SET DR=""
+4 WRITE @IOF
DO HEAD^ONCGPC0
+5 WRITE !," PATIENT INFORMATION"
+6 WRITE !," -------------------"
+7 SET DR(1,165.5,1)="1400.6 1. CO-MORBID CONDITIONS (YES/NO)."
+8 SET 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"
+9 SET DR(1,165.5,3)="1571 CO-MORBID CONDITION #1......."
+10 SET 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"
+11 SET DR(1,165.5,4)="1571.1 CO-MORBID CONDITION #2......."
+12 SET DR(1,165.5,4.1)="I $G(X)="""" D CC3^ONCGPC1,CC4^ONCGPC1,CC5^ONCGPC1,CC6^ONCGPC1 S Y=1500"
+13 SET DR(1,165.5,5)="1571.2 CO-MORBID CONDITION #3......."
+14 SET DR(1,165.5,5.1)="I $G(X)="""" D CC4^ONCGPC1,CC5^ONCGPC1,CC6^ONCGPC1 S Y=1500"
+15 SET DR(1,165.5,6)="1571.3 CO-MORBID CONDITION #4......."
+16 SET DR(1,165.5,6.1)="I $G(X)="""" D CC5^ONCGPC1,CC6^ONCGPC1 S Y=1500"
+17 SET DR(1,165.5,7)="1571.4 CO-MORBID CONDITION #5......."
+18 SET DR(1,165.5,7.1)="I $G(X)="""" D CC6^ONCGPC1 S Y=1500"
+19 SET DR(1,165.5,8)="1571.5 CO-MORBID CONDITION #6......."
+20 SET DR(1,165.5,9)="W !"
+21 SET DR(1,165.5,10)="1500 2. PRIOR EXPOSURE TO RADIATION..."
+22 SET DR(1,165.5,11)="W !"
+23 SET DR(1,165.5,12)="1501 3. ALCOHOL CONSUMPTION..........."
+24 SET DR(1,165.5,13)="W !"
+25 SET DR(1,165.5,14)="1572 4. DURATION OF TOBACCO USE......."
+26 SET DR(1,165.5,15)="W !"
+27 SET DR(1,165.5,16)="I SEX'=1 S Y=""@5"""
+28 SET DR(1,165.5,17)="1502////8"
+29 SET DR(1,165.5,18)="W !,"" 5. MENOPAUSAL STATUS AND HORMONE"""
+30 SET DR(1,165.5,19)="W !,"" REPLACEMENT THERAPY..........: NA, male patient"""
+31 SET DR(1,165.5,20)="W !"
+32 SET DR(1,165.5,21)="S Y=1503"
+33 SET DR(1,165.5,22)="@5"
+34 SET DR(1,165.5,23)="1502 5. MENOPAUSAL STATUS AND HORMONE REPLACEMENT THERAPY.........."
+35 SET DR(1,165.5,24)="W !"
+36 SET DR(1,165.5,25)="1503 6. H2 BLOCKER/PROTON PUMP INHIBITOR USE................"
+37 SET DR(1,165.5,26)="W !"
+38 SET DR(1,165.5,27)="1504 7. FAMILY HISTORY OF GASTRIC CANCER......................."
+39 SET DR(1,165.5,28)="W !"
+40 SET DR(1,165.5,29)="S DEF="""" D ITEM3^ONCLPC1 K DEF"
+41 SET DR(1,165.5,30)="1573 8. PERSONAL HISTORY OF OTHER INVASIVE MALIGNANCIES PRIOR TO THIS CANCER DIAGNOSIS....//^S X=PHDEF"
+42 SET DR(1,165.5,31)="W !"
+43 SET DR(1,165.5,32)="W !,"" 9. ASSOCIATED BENIGN CONDTIONS:"""
+44 SET DR(1,165.5,33)="1505 H-PYLORI INFECTION..........."
+45 SET DR(1,165.5,34)="1506 DUODENAL ULCER..............."
+46 SET DR(1,165.5,35)="1507 GASTRIC ULCER................"
+47 SET DR(1,165.5,36)="1508 HEARTBURN...................."
+48 SET DR(1,165.5,37)="1509 PERNICIOUS ANEMIA............"
+49 SET DR(1,165.5,38)="1510 POLYPS OF STOMACH............"
+50 SET DR(1,165.5,39)="1511 POLYPOSIS OF SMALL OR LARGE BOWEL......................."
+51 SET DR(1,165.5,40)="1512 BARRET'S ESOPHAGUS..........."
+52 SET DR(1,165.5,41)="1513 ATROPHIC GASTRITIS..........."
+53 SET DR(1,165.5,42)="1514 GASTRIC METAPLASIA..........."
+54 SET DR(1,165.5,43)="W !"
+55 SET DR(1,165.5,44)="W !,"" 10. H-PYLORI DRUGS GIVEN:"""
+56 SET 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"
+57 SET DR(1,165.5,45)="1515 ANTIBIOTICS.................."
+58 SET DR(1,165.5,45.1)="I $G(X)=8 D HDG2^ONCGPC1,HDG3^ONCGPC1,HDG4^ONCGPC1 S Y=1519"
+59 SET DR(1,165.5,46)="1516 PROTON PUMP INHIBITORS......."
+60 SET DR(1,165.5,46.1)="I $G(X)=8 D HDG3^ONCGPC1,HDG4^ONCGPC1 S Y=1519"
+61 SET DR(1,165.5,47)="1517 H2 BLOCKERS.................."
+62 SET DR(1,165.5,47.1)="I $G(X)=8 D HDG4^ONCGPC1 S Y=1519"
+63 SET DR(1,165.5,48)="1518 BISMUTH COMPOUNDS............"
+64 SET DR(1,165.5,49)="W !"
+65 SET DR(1,165.5,50)="1519 11. PRIOR INTRA-ABDOMINAL SURGERY."
+66 SET DR(1,165.5,51)="W !"
+67 SET DR(1,165.5,52)="1520 12. YEAR OF PRIOR GASTRIC RESECTION...................."
+68 DO ^DIE
+69 WRITE !
+70 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 KILL PHDEF
+2 QUIT
ITEM1ED ;ITEM 1 EDIT
+1 WRITE !
+2 WRITE !," CO-MORBID CONDITIONS (YES/NO) equals ""Yes"""
+3 WRITE !," CO-MORBID CONDITION #1 may not be blank"
+4 WRITE !
+5 QUIT
CC1 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,33)=""
+1 WRITE !," CO-MORBID CONDITION #1.......: 000.00 No co-morbidities"
+2 QUIT
CC2 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,34)=""
+1 WRITE !," CO-MORBID CONDITION #2.......:"
+2 QUIT
CC3 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,35)=""
+1 WRITE !," CO-MORBID CONDITION #3.......:"
+2 QUIT
CC4 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,36)=""
+1 WRITE !," CO-MORBID CONDITION #4.......:"
+2 QUIT
CC5 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,37)=""
+1 WRITE !," CO-MORBID CONDITION #5.......:"
+2 QUIT
CC6 SET $PIECE(^ONCO(165.5,D0,"GAS2"),U,38)=""
+1 WRITE !," CO-MORBID CONDITION #6.......:"
+2 WRITE !
+3 QUIT
HDG1 SET $PIECE(^ONCO(165.5,D0,"GAS1"),U,16)=8
+1 WRITE !," ANTIBIOTICS..................: H-pylori not present"
+2 QUIT
HDG2 SET $PIECE(^ONCO(165.5,D0,"GAS1"),U,17)=8
+1 WRITE !," PROTON PUMP INHIBITORS.......: H-pylori not present"
+2 QUIT
HDG3 SET $PIECE(^ONCO(165.5,D0,"GAS1"),U,18)=8
+1 WRITE !," H2 BLOCKERS..................: H-pylori not present"
+2 QUIT
HDG4 SET $PIECE(^ONCO(165.5,D0,"GAS1"),U,19)=8
+1 WRITE !," BISMUTH COMPOUNDS............: H-pylori not present"
+2 WRITE !
+3 QUIT
