source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCOPA1A.m@ 1635

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

initial load of FOIAVistA 6/30/08 version
File size: 6.6 KB
Line 
1ONCOPA1A ;Hines OIFO/GWB - PRINT COMPLETE ABSTRACT continued; 08/25/97
2 ;;2.11;ONCOLOGY;**15,19,27,33,34,36,40,44,45,46,47**;Mar 07, 1995;Build 19
3 I COC=1,$E(TOP,3,4)=34,$G(EVADS)'="N" D
4 .W !," Blood in Sputum Per Pt: ",ONCAB(165.5,IEN,174.1)," ",ONCAB(165.5,IEN,174) D P Q:EX=U
5 .W !," Dyspnea: ",ONCAB(165.5,IEN,186.1)," ",ONCAB(165.5,IEN,186) D P Q:EX=U
6 .W !," Increased Cough: ",ONCAB(165.5,IEN,187.1)," ",ONCAB(165.5,IEN,187) D P Q:EX=U
7 .W !," Fever: ",ONCAB(165.5,IEN,188.1)," ",ONCAB(165.5,IEN,188) D P Q:EX=U
8 .W !," Night Sweats: ",ONCAB(165.5,IEN,189.1)," ",ONCAB(165.5,IEN,189) D P Q:EX=U
9 .W !," Weight Loss Per Pt: ",ONCAB(165.5,IEN,190) D P Q:EX=U
10 .W !," Chest X-ray: ",ONCAB(165.5,IEN,175.1)," ",ONCAB(165.5,IEN,175) D P Q:EX=U
11 .W !," CT Scan: ",ONCAB(165.5,IEN,176.1)," ",ONCAB(165.5,IEN,176) D P Q:EX=U
12 .W !," Bronchoscopy: ",ONCAB(165.5,IEN,177.1)," ",ONCAB(165.5,IEN,177) D P Q:EX=U
13 .W !," Mediastinoscopy: ",ONCAB(165.5,IEN,178.1)," ",ONCAB(165.5,IEN,178) D P Q:EX=U
14 .W !," PET Scan: ",ONCAB(165.5,IEN,179.1)," ",ONCAB(165.5,IEN,179) D P Q:EX=U
15 I COC=1,($E(TOP,3,4)=18)!(TOP=67199)!(TOP=67209),$G(EVADS)'="N" D
16 .W !," Ulcerative Colitis (UC): ",ONCAB(165.5,IEN,191) D P Q:EX=U
17 .W !,"Familial Adenomatous Polyps: ",ONCAB(165.5,IEN,711) D P Q:EX=U
18 .W !," HNPCC: ",ONCAB(165.5,IEN,712) D P Q:EX=U
19 .W !," Crohn's Disease: ",ONCAB(165.5,IEN,809) D P Q:EX=U
20 .W !," Inflammatory Bowel Disease: ",ONCAB(165.5,IEN,713) D P Q:EX=U
21 .W !," Sporadic Polyps: ",ONCAB(165.5,IEN,192) D P Q:EX=U
22 .W !," Change Bowel Habits Per Pt: ",ONCAB(165.5,IEN,180.1)," ",ONCAB(165.5,IEN,180) D P Q:EX=U
23 .W !," Fecal Occult Blood Test: ",ONCAB(165.5,IEN,181.1)," ",ONCAB(165.5,IEN,181) D P Q:EX=U
24 .W !," Barium Enema: ",ONCAB(165.5,IEN,182.1)," ",ONCAB(165.5,IEN,182) D P Q:EX=U
25 .W !," Sigmoidoscopy: ",ONCAB(165.5,IEN,183.1)," ",ONCAB(165.5,IEN,183) D P Q:EX=U
26 .W !," Colonoscopy: ",ONCAB(165.5,IEN,185.1)," ",ONCAB(165.5,IEN,185) D P Q:EX=U
27 .W !," CT of Abdomen/Pelvis: ",ONCAB(165.5,IEN,184.1)," ",ONCAB(165.5,IEN,184) D P Q:EX=U
28 .W !," PET Scan: ",ONCAB(165.5,IEN,179.1)," ",ONCAB(165.5,IEN,179) D P Q:EX=U
29 ;
30 S NAME="EXTENT OF DISEASE AT DIAGNOSIS" D FORMAT^ONCOPA1
31 W !!,TITLE
32 W !!," TNM Clinical: ",ONCAB(165.5,IEN,37),?67,"TNM Pathologic: ",ONCAB(165.5,IEN,89.1) D P Q:EX=U
33 W !," Clinical T: ",$E(ONCAB(165.5,IEN,37.1),1,48),?67,"Pathologic T: ",$E(ONCAB(165.5,IEN,85),1,48) D P Q:EX=U
34 W !," Clinical N: ",$E(ONCAB(165.5,IEN,37.2),1,48),?67,"Pathologic N: ",$E(ONCAB(165.5,IEN,86),1,48) D P Q:EX=U
35 W !," Clinical M: ",$E(ONCAB(165.5,IEN,37.3),1,48),?67,"Pathologic M: ",$E(ONCAB(165.5,IEN,87),1,48) D P Q:EX=U
36 W !," Stage Group Clinical: ",ONCAB(165.5,IEN,38),?67,"Stage Group Pathologic: ",ONCAB(165.5,IEN,88) D P Q:EX=U
37 W !," Staged By (Clin): ",ONCAB(165.5,IEN,19),?67,"Staged By (Path): ",ONCAB(165.5,IEN,89) D P Q:EX=U
38 W !," Lymphatic Vessel Invasion (L): ",ONCAB(165.5,IEN,149) D P Q:EX=U
39 W !," Venous Invasion (V): ",ONCAB(165.5,IEN,151) D P Q:EX=U
40 W !," Other Staging System: ",ONCAB(165.5,IEN,39) D P Q:EX=U
41 W !," Physician's Stage: ",ONCAB(165.5,IEN,65),?67,"Physician Staging: ",ONCAB(165.5,IEN,66) D P Q:EX=U
42 W !," TNM Form Assigned: ",ONCAB(165.5,IEN,25,"E"),?67,"TNM Form Completed: ",ONCAB(165.5,IEN,44,"E") D P Q:EX=U
43 W !!," Tumor Size: ",ONCAB(165.5,IEN,29) D P Q:EX=U
44 W !," Extension: ",ONCAB(165.5,IEN,30) D P Q:EX=U
45 I $P($G(^ONCO(165.5,IEN,0)),U,16)>2971231 D
46 .S TPX=$P($G(^ONCO(165.5,IEN,2)),U,1) I TPX'=67619 Q
47 .W !," Pathologic Extension: ",ONCAB(165.5,IEN,30.1) D P Q:EX=U
48 W !," Lymph Nodes: ",ONCAB(165.5,IEN,31),?67,"Metastasis 1: ",ONCAB(165.5,IEN,34) D P Q:EX=U
49 W !," Regional Nodes Examined: ",$E(ONCAB(165.5,IEN,33),1,34),?67,"Metastasis 2: ",ONCAB(165.5,IEN,34.1) D P Q:EX=U
50 W !," Regional Nodes Positive: ",$E(ONCAB(165.5,IEN,32),1,34),?67,"Metastasis 3: ",ONCAB(165.5,IEN,34.2) D P Q:EX=U
51 W !," General Summary Stage: ",ONCAB(165.5,IEN,35) D P Q:EX=U
52 W !," Peripheral Blood Involvement: ",ONCAB(165.5,IEN,30.5) D P Q:EX=U
53 W !," Associated With HIV: ",ONCAB(165.5,IEN,41) D P Q:EX=U
54 ;
55 I $P($G(^ONCO(165.5,IEN,0)),U,16)<3040000 G FCT
56 S NAME="COLLABORATIVE STAGING" D FORMAT^ONCOPA1
57 W !!,TITLE
58 I $L(ONCAB(165.5,IEN,32,"I"))=1 S ONCAB(165.5,IEN,32,"I")="0"_ONCAB(165.5,IEN,32,"I") D P Q:EX=U
59 I $L(ONCAB(165.5,IEN,33,"I"))=1 S ONCAB(165.5,IEN,33,"I")="0"_ONCAB(165.5,IEN,33,"I") D P Q:EX=U
60 W !," Tumor Size (CS): ",ONCAB(165.5,IEN,29.2,"I"),?35,"Derived AJJC T: ",ONCAB(165.5,IEN,160,"E") D P Q:EX=U
61 W !," Extension (CS): ",ONCAB(165.5,IEN,30.2,"I"),?35,"Derived AJCC T Descriptor: ",ONCAB(165.5,IEN,161,"E") D P Q:EX=U
62 W !," Tumor Size/Ext Eval (CS): ",ONCAB(165.5,IEN,29.1,"I"),?35,"Derived AJCC N: ",ONCAB(165.5,IEN,162,"E") D P Q:EX=U
63 W !," Lymph Nodes (CS): ",ONCAB(165.5,IEN,31.1,"I"),?35,"Derived AJCC N Descriptor: ",ONCAB(165.5,IEN,163,"E") D P Q:EX=U
64 W !," Reg Nodes Eval (CS): ",ONCAB(165.5,IEN,32.1,"I"),?35,"Derived AJCC M: ",ONCAB(165.5,IEN,164,"E") D P Q:EX=U
65 W !," Regional Nodes Examined: ",ONCAB(165.5,IEN,33,"I"),?35,"Derived AJCC M Descriptor: ",ONCAB(165.5,IEN,165,"E") D P Q:EX=U
66 W !," Regional Nodes Positive: ",ONCAB(165.5,IEN,32,"I"),?35,"Derived AJCC Stage Group: ",ONCAB(165.5,IEN,166,"E") D P Q:EX=U
67 W !," Mets at DX (CS): ",ONCAB(165.5,IEN,34.3,"I"),?35,"Derived SS1977: ",ONCAB(165.5,IEN,167,"E") D P Q:EX=U
68 W !," Mets Eval (CS): ",ONCAB(165.5,IEN,34.4,"I"),?35,"Derived SS2000: ",ONCAB(165.5,IEN,168,"E") D P Q:EX=U
69 W !," Site-Specific Factor 1: ",ONCAB(165.5,IEN,44.1,"I") D P Q:EX=U
70 W !," Site-Specific Factor 2: ",ONCAB(165.5,IEN,44.2,"I") D P Q:EX=U
71 W !," Site-Specific Factor 3: ",ONCAB(165.5,IEN,44.3,"I") D P Q:EX=U
72 W !," Site-Specific Factor 4: ",ONCAB(165.5,IEN,44.4,"I") D P Q:EX=U
73 W !," Site-Specific Factor 5: ",ONCAB(165.5,IEN,44.5,"I") D P Q:EX=U
74 W !," Site-Specific Factor 6: ",ONCAB(165.5,IEN,44.6,"I") D P Q:EX=U
75 ;
76FCT I IOST?1"C".E W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to continue with this abstract" D ^DIR Q:'Y D HDR G PA2
77 D P Q:EX=U
78PA2 D ^ONCOPA2
79 ; WILL CALL ONCOPA2 ROUTINE FROM HERE TO CONTINUE...
80 ;
81 Q
82P ;
83 I ($Y'<(LINE-1)) D Q:EX=U W !
84 .I IOST?1"C".E W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to continue with this abstract" D ^DIR I 'Y S EX=U Q
85 .D HDR Q
86 Q
87HDR ; Header
88 W @IOF S PG=PG+1
89 W CRA,!
90 W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,!
91 Q
Note: See TracBrowser for help on using the repository browser.