113 lines
5.4 KiB
Mathematica
113 lines
5.4 KiB
Mathematica
ONCGPC1 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;02/27/01
|
|
;;2.11;ONCOLOGY;**29**;Mar 07, 1995
|
|
;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
|