source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCOPOS1.m@ 1606

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

initial load of FOIAVistA 6/30/08 version
File size: 6.6 KB
Line 
1ONCOPOS1 ;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(^DIPT("B","ONCO ABSTRACT NOT-COMPLETE",0)) D PTRW
5 S IEN=$O(^DIPT("B","ONCO ACCREG-ACOS80",0)) D PTRW
6 S IEN=$O(^DIPT("B","ONCO ACCREG-EOVA132",0)) D PTRW
7 S IEN=$O(^DIPT("B","ONCO ACCREG-SITE/GP80",0)) D PTRW
8 S IEN=$O(^DIPT("B","ONCO ACOS DOCUMENTATION",0)) D PTRW
9 S IEN=$O(^DIPT("B","ONCO AJCC SUMMARY STAGE GPS",0)) D PTRW
10 S IEN=$O(^DIPT("B","ONCO ANNUAL ACCREG80",0)) D PTRW
11 S IEN=$O(^DIPT("B","ONCO ANNUAL ACCREG80-HDR",0)) D PTRW
12 S IEN=$O(^DIPT("B","ONCO ANNUAL CLASS/PATIENT",0)) D PTRW
13 S IEN=$O(^DIPT("B","ONCO ANNUAL CLASS/PATIENT-HDR",0)) D PTRW
14 S IEN=$O(^DIPT("B","ONCO ANNUAL HIST/SITE/ICDO",0)) D PTRW
15 S IEN=$O(^DIPT("B","ONCO ANNUAL ICDO/STAGE/TX",0)) D PTRW
16 S IEN=$O(^DIPT("B","ONCO ANNUAL PATIENT INDX",0)) D PTRW
17 S IEN=$O(^DIPT("B","ONCO ANNUAL PATIENT INDX-HDR",0)) D PTRW
18 S IEN=$O(^DIPT("B","ONCO ANNUAL PATIENT INFO",0)) D PTRW
19 S IEN=$O(^DIPT("B","ONCO ANNUAL PATIENT INFO-HDR",0)) D PTRW
20 S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/GP",0)) D PTRW
21 S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/GP-HDR",0)) D PTRW
22 S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/ICDT/ICDM",0)) D PTRW
23 S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/STAGE/TX",0)) D PTRW
24 S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/STAGE/TX-HDR",0)) D PTRW
25 S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/STG/TX",0)) D PTRW
26 S IEN=$O(^DIPT("B","ONCO ANNUAL TREATMENT",0)) D PTRW
27 S IEN=$O(^DIPT("B","ONCO CASEFINDING REPORT",0)) D PTRW
28 S IEN=$O(^DIPT("B","ONCO CASEFINDING-HDR",0)) D PTRW
29 S IEN=$O(^DIPT("B","ONCO CONTACT LIST-A",0)) D PTRW
30 S IEN=$O(^DIPT("B","ONCO CONTACT LIST-T",0)) D PTRW
31 S IEN=$O(^DIPT("B","ONCO DELINQUENT(LTF) LIST",0)) D PTRW
32 S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP",0)) D PTRW
33 S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP-ADM/DIS",0)) D PTRW
34 S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP-ADM/DIS-HDR",0)) D PTRW
35 S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP-HDR",0)) D PTRW
36 S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP/TERMDIG",0)) D PTRW
37 S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP/TERMDIG-HDR",0)) D PTRW
38 S IEN=$O(^DIPT("B","ONCO F/U HISTORY (NEW)",0)) D PTRW
39 S IEN=$O(^DIPT("B","ONCO FOLLOW-UP STATUS LIST",0)) D PTRW
40 S IEN=$O(^DIPT("B","ONCO FOLLOWUP HISTORY",0)) D PTRW
41 S IEN=$O(^DIPT("B","ONCO FOLLOWUP HISTORY-HDR",0)) D PTRW
42 S IEN=$O(^DIPT("B","ONCO FOLLOWUP PATIENT RPT",0)) D PTRW
43 S IEN=$O(^DIPT("B","ONCO FOLLOWUP PATIENT RPT-HDR",0)) D PTRW
44 S IEN=$O(^DIPT("B","ONCO FOLLOWUP STATUS RPT",0)) D PTRW
45 S IEN=$O(^DIPT("B","ONCO ICDO PATIENT LIST",0)) D PTRW
46 S IEN=$O(^DIPT("B","ONCO ICDO-SITE132",0)) D PTRW
47 S IEN=$O(^DIPT("B","ONCO ICDO-SITE132-HDR",0)) D PTRW
48 S IEN=$O(^DIPT("B","ONCO ICDO-SITE80",0)) D PTRW
49 S IEN=$O(^DIPT("B","ONCO ICDO-SITE80-HDR",0)) D PTRW
50 S IEN=$O(^DIPT("B","ONCO LAB-CASEFINDING REPORT",0)) D PTRW
51 S IEN=$O(^DIPT("B","ONCO LAB-CASEFINDING-HDR",0)) D PTRW
52 S IEN=$O(^DIPT("B","ONCO NEG-REPORT",0)) D PTRW
53 S IEN=$O(^DIPT("B","ONCO PATIENT INDX-ACOS",0)) D PTRW
54 S IEN=$O(^DIPT("B","ONCO PATIENT INDX-ACOS-HDR",0)) D PTRW
55 S IEN=$O(^DIPT("B","ONCO PATIENT INDX-EOVA132",0)) D PTRW
56 S IEN=$O(^DIPT("B","ONCO PATIENT INDX80",0)) D PTRW
57 S IEN=$O(^DIPT("B","ONCO PATIENT ONLY",0)) D PTRW
58 S IEN=$O(^DIPT("B","ONCO PATIENT ONLY-HDR",0)) D PTRW
59 S IEN=$O(^DIPT("B","ONCO PRIMARY EXTENT CODE AUDIT",0)) D PTRW
60 S IEN=$O(^DIPT("B","ONCO PRIMARY INFORMATION132",0)) D PTRW
61 S IEN=$O(^DIPT("B","ONCO PRIMARY SURGERY AUDIT",0)) D PTRW
62 S IEN=$O(^DIPT("B","ONCO PTF-CASEFINDING RPT",0)) D PTRW
63 S IEN=$O(^DIPT("B","ONCO PTF-CASEFINDING-HDR",0)) D PTRW
64 S IEN=$O(^DIPT("B","ONCO RAD-CASEFINDING RPT",0)) D PTRW
65 S IEN=$O(^DIPT("B","ONCO RAD-CASEFINDING-HDR",0)) D PTRW
66 S IEN=$O(^DIPT("B","ONCO SITE HEADING",0)) D PTRW
67 S IEN=$O(^DIPT("B","ONCO SITE-QA REPORT",0)) D PTRW
68 S IEN=$O(^DIPT("B","ONCO SITE/GP80",0)) D PTRW
69 S IEN=$O(^DIPT("B","ONCO SITE/GP80-HDR",0)) D PTRW
70 S IEN=$O(^DIPT("B","ONCO SITE80",0)) D PTRW
71 S IEN=$O(^DIPT("B","ONCO SITE80-HEADER",0)) D PTRW
72 S IEN=$O(^DIPT("B","ONCO SUSPENSE",0)) D PTRW
73 S IEN=$O(^DIPT("B","ONCO SUSPENSE-ALL/TERMDIG",0)) D PTRW
74 S IEN=$O(^DIPT("B","ONCO SUSPENSE-ALL/TERMDIG-HDR",0)) D PTRW
75 S IEN=$O(^DIPT("B","ONCO SUSPENSE-HDR",0)) D PTRW
76 S IEN=$O(^DIPT("B","ONCO SUSPENSE/TERMDIG",0)) D PTRW
77 S IEN=$O(^DIPT("B","ONCO SUSPENSE/TERMDIG-HDR",0)) D PTRW
78 S IEN=$O(^DIPT("B","ONCO TOPOG BY SITEGRP",0)) D PTRW
79 S IEN=$O(^DIPT("B","ONCO TOPOG SITES",0)) D PTRW
80 S IEN=$O(^DIPT("B","ONCO TOPOGRAPHY BY CODE",0)) D PTRW
81 S IEN=$O(^DIPT("B","ONCO TREATMENT",0)) D PTRW
82 S IEN=$O(^DIPT("B","ONCO WORKSHEET",0)) D PTRW
83 S IEN=$O(^DIPT("B","ONCO XABSTRACT RECORD",0)) D PTRW
84 S IEN=$O(^DIPT("B","ONCO XADMISSION",0)) D PTRW
85 S IEN=$O(^DIPT("B","ONCO XCONTACT LIST",0)) D PTRW
86 S IEN=$O(^DIPT("B","ONCO XDEATH INFO",0)) D PTRW
87 S IEN=$O(^DIPT("B","ONCO XINCIDENCE RPRT",0)) D PTRW
88 S IEN=$O(^DIPT("B","ONCO XPATIENT CONTACTS",0)) D PTRW
89 S IEN=$O(^DIPT("B","ONCO XPATIENT DATA",0)) D PTRW
90 S IEN=$O(^DIPT("B","ONCO XPATIENT INFO",0)) D PTRW
91 S IEN=$O(^DIPT("B","ONCO XPATIENT STATUS",0)) D PTRW
92 S IEN=$O(^DIPT("B","ONCO XSITE PARAMETERS",0)) D PTRW
93 S IEN=$O(^DIPT("B","ONCOLOGY INPUT TEMPLATE LIST",0)) D PTRW
94 S IEN=$O(^DIPT("B","ONCOLOGY OPTION LIST",0)) D PTRW
95 S IEN=$O(^DIPT("B","ONCOLOGY PRINT TEMPLATE LIST",0)) D PTRW
96 S IEN=$O(^DIPT("B","ONCOLOGY ROUTINE LIST",0)) D PTRW
97 S IEN=$O(^DIPT("B","ONCOLOGY SORT TEMPLATE LIST",0)) D PTRW
98 S IEN=$O(^DIPT("B","ONCOS ANNUAL SUMMARY RPT",0)) D PTRW
99 S IEN=$O(^DIPT("B","ONCOS ANNUAL SUMMARY RPT-HDR",0)) D PTRW
100 S IEN=$O(^DIPT("B","ONCOW1",0)) D PTRW
101 S IEN=$O(^DIPT("B","ONCOX1",0)) D PTRW
102 S IEN=$O(^DIPT("B","ONCOX10",0)) D PTRW
103 S IEN=$O(^DIPT("B","ONCOX11",0)) D PTRW
104 S IEN=$O(^DIPT("B","ONCOX2",0)) D PTRW
105 S IEN=$O(^DIPT("B","ONCOX3",0)) D PTRW
106 S IEN=$O(^DIPT("B","ONCOX4",0)) D PTRW
107 S IEN=$O(^DIPT("B","ONCOX5",0)) D PTRW
108 S IEN=$O(^DIPT("B","ONCOX6",0)) D PTRW
109 S IEN=$O(^DIPT("B","ONCOX7",0)) D PTRW
110 S IEN=$O(^DIPT("B","ONCOX8",0)) D PTRW
111 S IEN=$O(^DIPT("B","ONCOX9",0)) D PTRW
112 S IEN=$O(^DIPT("B","ONCOX99",0)) D PTRW
113 S IEN=$O(^DIPT("B","ONCOXA1",0)) D PTRW
114 S IEN=$O(^DIPT("B","ONCOXA2",0)) D PTRW
115 S IEN=$O(^DIPT("B","ONCOXA3",0)) D PTRW
116 S IEN=$O(^DIPT("B","ONCOXA4",0)) D PTRW
117 S IEN=$O(^DIPT("B","ONCOY49",0)) D PTRW
118 S IEN=$O(^DIPT("B","ONCOY50",0)) D PTRW
119 S IEN=$O(^DIPT("B","ONCOY51",0)) D PTRW
120 S IEN=$O(^DIPT("B","ONCOY52",0)) D PTRW
121 S IEN=$O(^DIPT("B","ONCOY53",0)) D PTRW
122 S IEN=$O(^DIPT("B","ONCOY54",0)) D PTRW
123 S IEN=$O(^DIPT("B","ONCOY55",0)) D PTRW
124 S IEN=$O(^DIPT("B","ONCOY56",0)) D PTRW
125 S IEN=$O(^DIPT("B","ONCOY57",0)) D PTRW
126 S IEN=$O(^DIPT("B","ONCOY58",0)) D PTRW
127 K IEN Q
128PTRW ;Set print template READ ACCESS and WRITE ACCESS
129 Q:IEN=""
130 S $P(^DIPT(IEN,0),"^",3)="",$P(^DIPT(IEN,0),"^",6)="@"
131 Q
Note: See TracBrowser for help on using the repository browser.