source: ccr/branches/ohum/p/C0CLA7DD.m@ 1482

Last change on this file since 1482 was 1433, checked in by Sam Habiel, 13 years ago

Update based on OHUM's latest routines
File size: 7.0 KB
Line 
1C0CLA7DD ;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine ; Aug 31, 2009
2 ;;1.2;C0C;;May 11, 2012;Build 47
3 ;
4 ; Tasked by C0C post-install routine C0CENV to create C0C cross-references on V LAB file.
5 ;
6 Q
7 ;
8 ;
9EN ; Add new style cross-references to V LAB file if it exists.
10 ; OLD entry point - see new KIDS check points in C0CENV.
11 ;
12 ;
13 ; Quit if AUPNVLAB global does not exist.
14 I $$VFILE^DILFD(9000010.09)'=1 Q
15 ;
16 N MSG
17 ;
18 S MSG="Starting installation of ALR1 cross-reference at "_$$HTE^XLFDT($H,"1Z")
19 D BMES(MSG)
20 D ALR1
21 S MSG="Installation of ALR1 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
22 D BMES(MSG)
23 ;
24 S MSG="Starting installation of ALR2 cross-reference at "_$$HTE^XLFDT($H,"1Z")
25 D BMES(MSG)
26 D ALR2
27 S MSG="Installation of ALR2 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
28 D BMES(MSG)
29 ;
30 S MSG="Starting installation of ALR3 cross-reference at "_$$HTE^XLFDT($H,"1Z")
31 D BMES(MSG)
32 D ALR3
33 S MSG="Installation of ALR3 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
34 D BMES(MSG)
35 ;
36 S MSG="Starting installation of ALR4 cross-reference at "_$$HTE^XLFDT($H,"1Z")
37 D BMES(MSG)
38 D ALR4
39 S MSG="Installation of ALR4 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
40 D BMES(MSG)
41 ;
42 S MSG="Starting installation of ALR5 cross-reference at "_$$HTE^XLFDT($H,"1Z")
43 D BMES(MSG)
44 D ALR5
45 S MSG="Installation of ALR5 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
46 D BMES(MSG)
47 ;
48 Q
49 ;
50 ;
51ALR1 ; Installation of ALR1 cross-reference
52 ;
53 N C0CFLAG,C0CXR,C0CRES,C0COUT
54 ;
55 S C0CFLAG=""
56 ;
57 S C0CXR("FILE")=9000010.09
58 S C0CXR("NAME")="ALR1"
59 S C0CXR("TYPE")="R"
60 S C0CXR("USE")="S"
61 S C0CXR("EXECUTION")="R"
62 S C0CXR("ACTIVITY")="IR"
63 S C0CXR("SHORT DESCR")="X-ref to link entry with parent in LAB DATA file (#63)"
64 S C0CXR("VAL",1)=.02
65 S C0CXR("VAL",1,"SUBSCRIPT")=1
66 S C0CXR("VAL",1,"COLLATION")="F"
67 S C0CXR("VAL",2)=.06
68 S C0CXR("VAL",2,"SUBSCRIPT")=2
69 S C0CXR("VAL",2,"LENGTH")=30
70 S C0CXR("VAL",2,"COLLATION")="F"
71 S C0CXR("VAL",3)=.01
72 S C0CXR("VAL",3,"SUBSCRIPT")=3
73 S C0CXR("VAL",3,"COLLATION")="F"
74 S C0CXR("VAL",4)=1201
75 S C0CXR("VAL",4,"SUBSCRIPT")=4
76 S C0CXR("VAL",4,"COLLATION")="F"
77 D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
78 ;
79 Q
80 ;
81 ;
82ALR2 ; Installation of ALR2 cross-reference
83 ;
84 N C0CFLAG,C0CXR,C0CRES,C0COUT
85 ;
86 S C0CFLAG=""
87 ;
88 S C0CXR("FILE")=9000010.09
89 S C0CXR("NAME")="ALR2"
90 S C0CXR("TYPE")="MU"
91 S C0CXR("USE")="S"
92 S C0CXR("EXECUTION")="R"
93 S C0CXR("ACTIVITY")="IR"
94 S C0CXR("SHORT DESCR")="X-ref for LOINC code related to test result."
95 S C0CXR("DESCR",1)="This cross-reference is used to identify the LOINC codes"
96 S C0CXR("DESCR",2)="that has been assigned to a lab result. Allows queries to"
97 S C0CXR("DESCR",3)="retrieve the LOINC code associated with a specific test"
98 S C0CXR("DESCR",4)="result."
99 S C0CXR("SET")="S ^AUPNVLAB(""ALR2"",X(1),X(2),X(3),X(4),X(5),DA)="""""
100 S C0CXR("KILL")="K ^AUPNVLAB(""ALR2"",X(1),X(2),X(3),X(4),X(5),DA)"
101 S C0CXR("WHOLE KILL")="K ^AUPNVLAB(""ALR2"")"
102 S C0CXR("VAL",1)=.02
103 S C0CXR("VAL",1,"SUBSCRIPT")=1
104 S C0CXR("VAL",1,"COLLATION")="F"
105 S C0CXR("VAL",2)=1201
106 S C0CXR("VAL",2,"SUBSCRIPT")=2
107 S C0CXR("VAL",2,"COLLATION")="F"
108 S C0CXR("VAL",3)=.06
109 S C0CXR("VAL",3,"SUBSCRIPT")=3
110 S C0CXR("VAL",3,"COLLATION")="F"
111 S C0CXR("VAL",4)=.01
112 S C0CXR("VAL",4,"SUBSCRIPT")=4
113 S C0CXR("VAL",4,"COLLATION")="F"
114 S C0CXR("VAL",5)=1113
115 S C0CXR("VAL",5,"SUBSCRIPT")=5
116 S C0CXR("VAL",5,"COLLATION")="F"
117 D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
118 ;
119 Q
120 ;
121 ;
122ALR3 ; Installation of ALR3 cross-reference
123 ;
124 N C0CFLAG,C0CXR,C0CRES,C0COUT
125 ;
126 S C0CFLAG=""
127 ;
128 S C0CXR("FILE")=9000010.09
129 S C0CXR("NAME")="ALR3"
130 S C0CXR("TYPE")="R"
131 S C0CXR("USE")="S"
132 S C0CXR("EXECUTION")="F"
133 S C0CXR("ACTIVITY")="IR"
134 S C0CXR("SHORT DESCR")="X-ref for LOINC code related to test result - any patient"
135 S C0CXR("DESCR",1)="This cross-reference is used to identify the LOINC codes that has been assigned to a lab result. Allows queries"
136 S C0CXR("DESCR",2)="to retrieve the LOINC code associated with a specific test result. It allows any patient"
137 S C0CXR("DESCR",3)="lab results to be identified by LOINC"
138 S C0CXR("VAL",1)=1113
139 S C0CXR("VAL",1,"SUBSCRIPT")=1
140 S C0CXR("VAL",1,"COLLATION")="F"
141 ;
142 D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
143 ;
144 Q
145 ;
146 ;
147ALR4 ; Installation of ALR4 cross-reference
148 ;
149 N C0CFLAG,C0CXR,C0CRES,C0COUT
150 ;
151 S C0CFLAG=""
152 ;
153 S C0CXR("FILE")=9000010.09
154 S C0CXR("NAME")="ALR4"
155 S C0CXR("TYPE")="R"
156 S C0CXR("USE")="S"
157 S C0CXR("EXECUTION")="R"
158 S C0CXR("ACTIVITY")="IR"
159 S C0CXR("SHORT DESCR")="X-ref by patient and collection date/time"
160 S C0CXR("DESCR",1)="This cross-reference is used to identify all lab results for a"
161 S C0CXR("DESCR",2)="patient by collection date/time. This includes results that are only in"
162 S C0CXR("DESCR",3)="this file and therefore do not have a corresponding entry in LAB DATA"
163 S C0CXR("DESCR",4)="file (#63)."
164 S C0CXR("VAL",1)=.02
165 S C0CXR("VAL",1,"SUBSCRIPT")=1
166 S C0CXR("VAL",1,"COLLATION")="F"
167 S C0CXR("VAL",2)=1201
168 S C0CXR("VAL",2,"SUBSCRIPT")=2
169 S C0CXR("VAL",2,"COLLATION")="F"
170 ;
171 D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
172 ;
173 Q
174 ;
175 ;
176ALR5 ; Installation of ALR5 cross-reference
177 ;
178 N C0CFLAG,C0CXR,C0CRES,C0COUT
179 ;
180 S C0CFLAG=""
181 ;
182 S C0CXR("FILE")=9000010.09
183 S C0CXR("NAME")="ALR5"
184 S C0CXR("TYPE")="R"
185 S C0CXR("USE")="S"
186 S C0CXR("EXECUTION")="R"
187 S C0CXR("ACTIVITY")="IR"
188 S C0CXR("SHORT DESCR")="X-ref by patient and results availble date/time"
189 S C0CXR("DESCR",1)="This cross-reference is used to identify all lab results for a"
190 S C0CXR("DESCR",2)="patient by results available date/time. This includes results that are only in"
191 S C0CXR("DESCR",3)="this file and therefore do not have a corresponding entry in LAB DATA"
192 S C0CXR("DESCR",4)="file (#63)."
193 S C0CXR("VAL",1)=.02
194 S C0CXR("VAL",1,"SUBSCRIPT")=1
195 S C0CXR("VAL",1,"COLLATION")="F"
196 S C0CXR("VAL",2)=1212
197 S C0CXR("VAL",2,"SUBSCRIPT")=2
198 S C0CXR("VAL",2,"COLLATION")="F"
199 ;
200 D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
201 ;
202 Q
203 ;
204 ;
205REINDEX ; Set data into indexes for current entries.
206 ;
207 ;
208 N C0CHLOG,DA,DIK,MSG
209 ;
210 S C0CHLOG("START")=$H
211 S MSG="Starting indexing of ALR1, ALR2, ALR4, ALR5 indexes - "_$$HTE^XLFDT(C0CHLOG("START"),"1Z")
212 D BMES(MSG),SENDXQA(MSG)
213 ;
214 S DIK="^AUPNVLAB("
215 S DIK(1)=".02^ALR1^ALR2^ALR4^ALR5"
216 D ENALL^DIK
217 ;
218 S C0CHLOG("END")=$H
219 S MSG="Finished indexing of ALR1, ALR2, ALR4, ALR5 indexes - "_$$HTE^XLFDT(C0CHLOG("END"),"1Z")
220 D BMES(MSG),SENDXQA(MSG)
221 ;
222 S MSG="Elapsed Time: "_$$HDIFF^XLFDT(C0CHLOG("END"),C0CHLOG("START"),3)
223 D BMES(MSG)
224 ;
225 S C0CHLOG("START")=$H
226 S MSG="Starting indexing of ALR3 index - "_$$HTE^XLFDT(C0CHLOG("START"),"1Z")
227 D BMES(MSG),SENDXQA(MSG)
228 ;
229 K DA,DIK
230 S DIK="^AUPNVLAB("
231 S DIK(1)="1113^ALR3"
232 D ENALL^DIK
233 ;
234 S C0CHLOG("END")=$H
235 S MSG="Finished indexing of ALR3 index - "_$$HTE^XLFDT(C0CHLOG("END"),"1Z")
236 D BMES(MSG),SENDXQA(MSG)
237 ;
238 S MSG="Elapsed Time: "_$$HDIFF^XLFDT(C0CHLOG("END"),C0CHLOG("START"),3)
239 D BMES(MSG)
240 ;
241 Q
242 ;
243 ;
244BMES(STR) ; Write BMES^XPDUTL statements
245 ;
246 D BMES^XPDUTL($$CJ^XLFSTR(STR,IOM))
247 ;
248 Q
249 ;
250 ;
251SENDXQA(MSG) ; Send alert for reindex status
252 ;
253 N XQA,XQAMSG
254 ;
255 S XQA(DUZ)=""
256 S XQAMSG=MSG
257 D SETUP^XQALERT
258 ;
259 Q
Note: See TracBrowser for help on using the repository browser.