source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCOPOS2.m@ 628

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

initial load of FOIAVistA 6/30/08 version
File size: 7.0 KB
Line 
1ONCOPOS2 ;HIRMFO/GWB-POST-INSTALL ROUTINE FOR PATCH ONC*2.11*5 05/06/96
2 ;;2.11;ONCOLOGY;**5**;Mar 07, 1995
3 ;
4 S IEN=$O(^DIBT("B","ONCO ABSTINCOM-TERMDIG",0)) D STRW
5 S IEN=$O(^DIBT("B","ONCO ABSTRACT DATE/COMPLETE",0)) D STRW
6 S IEN=$O(^DIBT("B","ONCO ABSTRACT NOT-COMPLETE",0)) D STRW
7 S IEN=$O(^DIBT("B","ONCO ABSTRACT RECORD",0)) D STRW
8 S IEN=$O(^DIBT("B","ONCO ACCREG-ACOS80",0)) D STRW
9 S IEN=$O(^DIBT("B","ONCO ACCREG-EOVA132",0)) D STRW
10 S IEN=$O(^DIBT("B","ONCO ACCREG-SITE/GP80",0)) D STRW
11 S IEN=$O(^DIBT("B","ONCO ACOS DOCUMENTATION",0)) D STRW
12 S IEN=$O(^DIBT("B","ONCO ANN/ANAL/STA/SITE/DX AGE",0)) D STRW
13 S IEN=$O(^DIBT("B","ONCO ANNUAL ACCREG80",0)) D STRW
14 S IEN=$O(^DIBT("B","ONCO ANNUAL ACOSACCREG80",0)) D STRW
15 S IEN=$O(^DIBT("B","ONCO ANNUAL ANALYTIC",0)) D STRW
16 S IEN=$O(^DIBT("B","ONCO ANNUAL CLASS/PATIENT",0)) D STRW
17 S IEN=$O(^DIBT("B","ONCO ANNUAL CLASS/SITE",0)) D STRW
18 S IEN=$O(^DIBT("B","ONCO ANNUAL HIST/SITE/ICDO",0)) D STRW
19 S IEN=$O(^DIBT("B","ONCO ANNUAL ICDO/STAGE/TX",0)) D STRW
20 S IEN=$O(^DIBT("B","ONCO ANNUAL PATIENT INDX",0)) D STRW
21 S IEN=$O(^DIBT("B","ONCO ANNUAL SITE/GP",0)) D STRW
22 S IEN=$O(^DIBT("B","ONCO ANNUAL SITE/ICDT/ICDM",0)) D STRW
23 S IEN=$O(^DIBT("B","ONCO ANNUAL SITE/STAGE/TX",0)) D STRW
24 S IEN=$O(^DIBT("B","ONCO CASEFINDING REPORT",0)) D STRW
25 S IEN=$O(^DIBT("B","ONCO CONTACT LIST-A",0)) D STRW
26 S IEN=$O(^DIBT("B","ONCO CONTACT LIST-T",0)) D STRW
27 S IEN=$O(^DIBT("B","ONCO DELINQUENT(LTF) LIST",0)) D STRW
28 S IEN=$O(^DIBT("B","ONCO DUE FOLLOWUP",0)) D STRW
29 S IEN=$O(^DIBT("B","ONCO DUE FOLLOWUP-ADM/DIS",0)) D STRW
30 S IEN=$O(^DIBT("B","ONCO DUE FOLLOWUP/TERMDIG",0)) D STRW
31 S IEN=$O(^DIBT("B","ONCO FOLLOWUP HISTORY",0)) D STRW
32 S IEN=$O(^DIBT("B","ONCO FOLLOWUP PATIENT RPT",0)) D STRW
33 S IEN=$O(^DIBT("B","ONCO FOLLOWUP STATUS RPT",0)) D STRW
34 S IEN=$O(^DIBT("B","ONCO ICDO-SITE",0)) D STRW
35 S IEN=$O(^DIBT("B","ONCO ICDO-SITE132",0)) D STRW
36 S IEN=$O(^DIBT("B","ONCO ICDO-SITE80",0)) D STRW
37 S IEN=$O(^DIBT("B","ONCO LAB-CASEFINDING REPORT",0)) D STRW
38 S IEN=$O(^DIBT("B","ONCO LOSTTOFOLLOWUP",0)) D STRW
39 S IEN=$O(^DIBT("B","ONCO NEG-REPORT",0)) D STRW
40 S IEN=$O(^DIBT("B","ONCO PATIENT INDX-ACOS",0)) D STRW
41 S IEN=$O(^DIBT("B","ONCO PATIENT INDX-EOVA132",0)) D STRW
42 S IEN=$O(^DIBT("B","ONCO PATIENT INDX80",0)) D STRW
43 S IEN=$O(^DIBT("B","ONCO PATIENT ONLY",0)) D STRW
44 S IEN=$O(^DIBT("B","ONCO PCE ANNUAL REPORT",0)) D STRW
45 S IEN=$O(^DIBT("B","ONCO PTF-CASEFINDING RPT",0)) D STRW
46 S IEN=$O(^DIBT("B","ONCO RAD-CASEFINDING RPT",0)) D STRW
47 S IEN=$O(^DIBT("B","ONCO SITE/GP80",0)) D STRW
48 S IEN=$O(^DIBT("B","ONCO STAGE/SITE",0)) D STRW
49 S IEN=$O(^DIBT("B","ONCO SUSPENSE",0)) D STRW
50 S IEN=$O(^DIBT("B","ONCO SUSPENSE-ALL/TERMDIG",0)) D STRW
51 S IEN=$O(^DIBT("B","ONCO SUSPENSE-NO PRIMARY",0)) D STRW
52 S IEN=$O(^DIBT("B","ONCO SUSPENSE/TERMDIG",0)) D STRW
53 S IEN=$O(^DIBT("B","ONCO TOPOG BY SITEGRP",0)) D STRW
54 S IEN=$O(^DIBT("B","ONCO TOPOG SITES",0)) D STRW
55 S IEN=$O(^DIBT("B","ONCO TOPOGRAPHY BY CODE",0)) D STRW
56 S IEN=$O(^DIBT("B","ONCOLOGY INPUT TEMPLATE LIST",0)) D STRW
57 S IEN=$O(^DIBT("B","ONCOLOGY OPTION LIST",0)) D STRW
58 S IEN=$O(^DIBT("B","ONCOLOGY PRINT TEMPLATE LIST",0)) D STRW
59 S IEN=$O(^DIBT("B","ONCOLOGY ROUTINE LIST",0)) D STRW
60 S IEN=$O(^DIBT("B","ONCOLOGY SITE/GROUP-TOPOGRAPHY",0)) D STRW
61 S IEN=$O(^DIBT("B","ONCOLOGY SORT TEMPLATE LIST",0)) D STRW
62 S IEN=$O(^DIBT("B","ONCOS ANAL/STAGE 0",0)) D STRW
63 S IEN=$O(^DIBT("B","ONCOS ANAL/STAGE I",0)) D STRW
64 S IEN=$O(^DIBT("B","ONCOS ANAL/STAGE II",0)) D STRW
65 S IEN=$O(^DIBT("B","ONCOS ANAL/STAGE III",0)) D STRW
66 S IEN=$O(^DIBT("B","ONCOS ANAL/STAGE IV",0)) D STRW
67 S IEN=$O(^DIBT("B","ONCOS ANAL/STAGE NA",0)) D STRW
68 S IEN=$O(^DIBT("B","ONCOS ANAL/STAGE U",0)) D STRW
69 S IEN=$O(^DIBT("B","ONCOS ANALYTIC",0)) D STRW
70 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-140",0)) D STRW
71 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-153",0)) D STRW
72 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-154",0)) D STRW
73 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-160",0)) D STRW
74 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-161",0)) D STRW
75 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-162",0)) D STRW
76 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-193",0)) D STRW
77 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-196",0)) D STRW
78 S IEN=$O(^DIBT("B","ONCOS ANALYTIC_NON",0)) D STRW
79 S IEN=$O(^DIBT("B","ONCOS ANNUAL ANAL/STAGE 0",0)) D STRW
80 S IEN=$O(^DIBT("B","ONCOS ANNUAL ANAL/STAGE I",0)) D STRW
81 S IEN=$O(^DIBT("B","ONCOS ANNUAL ANAL/STAGE II",0)) D STRW
82 S IEN=$O(^DIBT("B","ONCOS ANNUAL ANAL/STAGE III",0)) D STRW
83 S IEN=$O(^DIBT("B","ONCOS ANNUAL ANAL/STAGE IV",0)) D STRW
84 S IEN=$O(^DIBT("B","ONCOS ANNUAL ANAL/STAGE NA",0)) D STRW
85 S IEN=$O(^DIBT("B","ONCOS ANNUAL ANAL/STAGE U",0)) D STRW
86 S IEN=$O(^DIBT("B","ONCOS ANNUAL SUMMARY RPT",0)) D STRW
87 S IEN=$O(^DIBT("B","ONCOS ANNUAL-ALLCASES",0)) D STRW
88 S IEN=$O(^DIBT("B","ONCOS ANNUAL-ANALYTIC",0)) D STRW
89 S IEN=$O(^DIBT("B","ONCOS ANNUAL-NON ANAL",0)) D STRW
90 S IEN=$O(^DIBT("B","ONCOS ANNUAL/ANAL-90",0)) D STRW
91 S IEN=$O(^DIBT("B","ONCOS BLACK-FEMALES",0)) D STRW
92 S IEN=$O(^DIBT("B","ONCOS BLACK-MALES",0)) D STRW
93 S IEN=$O(^DIBT("B","ONCOS KAPOSI",0)) D STRW
94 S IEN=$O(^DIBT("B","ONCOS LARYNX/AN/90",0)) D STRW
95 S IEN=$O(^DIBT("B","ONCOS LUNG/NON-SMALL CELL",0)) D STRW
96 S IEN=$O(^DIBT("B","ONCOS MEMPHIS LUNG",0)) D STRW
97 S IEN=$O(^DIBT("B","ONCOS NON-ANALYTIC",0)) D STRW
98 S IEN=$O(^DIBT("B","ONCOS RACE=BLACK",0)) D STRW
99 S IEN=$O(^DIBT("B","ONCOS RACE=WHITE",0)) D STRW
100 S IEN=$O(^DIBT("B","ONCOS RANGE-ALLCASES",0)) D STRW
101 S IEN=$O(^DIBT("B","ONCOS RANGE-ANALYTIC",0)) D STRW
102 S IEN=$O(^DIBT("B","ONCOS RANGE-NON ANAL",0)) D STRW
103 S IEN=$O(^DIBT("B","ONCOS SEX=FEMALE",0)) D STRW
104 S IEN=$O(^DIBT("B","ONCOS SEX=MALE",0)) D STRW
105 S IEN=$O(^DIBT("B","ONCOS SITE=BLADDER",0)) D STRW
106 S IEN=$O(^DIBT("B","ONCOS SITE=BRAIN",0)) D STRW
107 S IEN=$O(^DIBT("B","ONCOS SITE=BREAST",0)) D STRW
108 S IEN=$O(^DIBT("B","ONCOS SITE=COLON",0)) D STRW
109 S IEN=$O(^DIBT("B","ONCOS SITE=ESOHAGUS",0)) D STRW
110 S IEN=$O(^DIBT("B","ONCOS SITE=HODGKIN'S",0)) D STRW
111 S IEN=$O(^DIBT("B","ONCOS SITE=HODGKINS",0)) D STRW
112 S IEN=$O(^DIBT("B","ONCOS SITE=LARYNX",0)) D STRW
113 S IEN=$O(^DIBT("B","ONCOS SITE=LIP",0)) D STRW
114 S IEN=$O(^DIBT("B","ONCOS SITE=LIVER",0)) D STRW
115 S IEN=$O(^DIBT("B","ONCOS SITE=LUNG",0)) D STRW
116 S IEN=$O(^DIBT("B","ONCOS SITE=LYMPH NODES",0)) D STRW
117 S IEN=$O(^DIBT("B","ONCOS SITE=NON-HODGKINS",0)) D STRW
118 S IEN=$O(^DIBT("B","ONCOS SITE=NON-HODGKINS'S",0)) D STRW
119 S IEN=$O(^DIBT("B","ONCOS SITE=PHARYNX",0)) D STRW
120 S IEN=$O(^DIBT("B","ONCOS SITE=PROSTATE",0)) D STRW
121 S IEN=$O(^DIBT("B","ONCOS SITE=TESTIS",0)) D STRW
122 S IEN=$O(^DIBT("B","ONCOS TOTAL-ANAL",0)) D STRW
123 S IEN=$O(^DIBT("B","ONCOS TOTAL-NON",0)) D STRW
124 S IEN=$O(^DIBT("B","ONCOS TX-CHEMO",0)) D STRW
125 S IEN=$O(^DIBT("B","ONCOS TX-HORMONE",0)) D STRW
126 S IEN=$O(^DIBT("B","ONCOS TX-RADIATION",0)) D STRW
127 S IEN=$O(^DIBT("B","ONCOS TX-SURGERY",0)) D STRW
128 S IEN=$O(^DIBT("B","ONCOS WHITE-FEMALES",0)) D STRW
129 S IEN=$O(^DIBT("B","ONCOS WHITE-MALES",0)) D STRW
130 S IEN=$O(^DIBT("B","ONCOZ LUNG SURVIVAL",0)) D STRW
131 Q
132STRW ;Set sort template READ ACCESS and WRITE ACCESS
133 Q:IEN=""
134 S $P(^DIBT(IEN,0),"^",3)="",$P(^DIBT(IEN,0),"^",6)="@"
135 Q
Note: See TracBrowser for help on using the repository browser.