Changeset 529 for ccr/trunk/p/C0CLA7DD.m
- Timestamp:
- Jun 1, 2009, 10:27:32 PM (16 years ago)
- File:
-
- 1 edited
-
ccr/trunk/p/C0CLA7DD.m (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CLA7DD.m
r509 r529 1 C0CLA7DD ;xxxx/JMC-CREATE NEW-STYLE XREF ;8:32 PM 18 May 2009 2 ;;1.0;C0C;;May 19, 2009; 3 ; 4 N C0CXR,C0CRES,C0COUT 5 S C0CXR("FILE")=9000010.09 6 S C0CXR("NAME")="ALR5" 7 S C0CXR("TYPE")="R" 8 S C0CXR("USE")="S" 9 S C0CXR("EXECUTION")="R" 10 S C0CXR("ACTIVITY")="IR" 11 S C0CXR("SHORT DESCR")="X-ref by patient and results availble date/time" 12 S C0CXR("DESCR",1)="This cross-reference is used to identify all lab results for a" 13 S C0CXR("DESCR",2)="patient by results available date/time. This includes results that are only in" 14 S C0CXR("DESCR",3)="this file and therefore do not have a corresponding entry in LAB DATA" 15 S C0CXR("DESCR",4)="file (#63)." 16 S C0CXR("VAL",1)=.02 17 S C0CXR("VAL",1,"SUBSCRIPT")=1 18 S C0CXR("VAL",1,"COLLATION")="F" 19 S C0CXR("VAL",2)=1212 20 S C0CXR("VAL",2,"SUBSCRIPT")=2 21 S C0CXR("VAL",2,"COLLATION")="F" 22 D CREIXN^DDMOD(.C0CXR,"SW",.C0CRES,"C0COUT") 23 Q 1 C0CLA7DD ;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine; ;18 May 2009 2 ;;1.0;C0C;;May 19, 2009; 3 ; 4 ; Tasked by C0C post-install routine C0CENV to create C0C cross-references on V LAB file. 5 ; 6 Q 7 ; 8 ; 9 EN ; Add new style cross-references to V LAB file if it exists. 10 ; 11 ; 12 ; Quit if AUPNVLAB global does not exist. 13 I $$VFILE^DILFD(9000010.09)'=1 Q 14 ; 15 N MSG 16 ; 17 S MSG="Starting installation of ALR1 cross-reference at "_$$HTE^XLFDT($H,"1Z") 18 D MES^XPDUTL(MSG) 19 D ALR1 20 S MSG="Installation of ALR1 cross-reference completed at "_$$HTE^XLFDT($H,"1Z") 21 D MES^XPDUTL(MSG) 22 ; 23 S MSG="Starting installation of ALR2 cross-reference at "_$$HTE^XLFDT($H,"1Z") 24 D MES^XPDUTL(MSG) 25 D ALR2 26 S MSG="Installation of ALR2 cross-reference completed at "_$$HTE^XLFDT($H,"1Z") 27 D MES^XPDUTL(MSG) 28 ; 29 S MSG="Starting installation of ALR3 cross-reference at "_$$HTE^XLFDT($H,"1Z") 30 D MES^XPDUTL(MSG) 31 D ALR3 32 S MSG="Installation of ALR3 cross-reference completed at "_$$HTE^XLFDT($H,"1Z") 33 D MES^XPDUTL(MSG) 34 ; 35 S MSG="Starting installation of ALR4 cross-reference at "_$$HTE^XLFDT($H,"1Z") 36 D MES^XPDUTL(MSG) 37 D ALR4 38 S MSG="Installation of ALR4 cross-reference completed at "_$$HTE^XLFDT($H,"1Z") 39 D MES^XPDUTL(MSG) 40 ; 41 S MSG="Starting installation of ALR5 cross-reference at "_$$HTE^XLFDT($H,"1Z") 42 D MES^XPDUTL(MSG) 43 D ALR5 44 S MSG="Installation of ALR5 cross-reference completed at "_$$HTE^XLFDT($H,"1Z") 45 D MES^XPDUTL(MSG) 46 ; 47 Q 48 ; 49 ; 50 ALR1 ; 51 ; 52 N C0CFLAG,C0CXR,C0CRES,C0COUT 53 ; 54 S C0CFLAG="S" 55 I '$D(ZTQUEUED) S C0CFLAG=COCFLAG_"W" 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,COCFLAG,.C0CRES,"C0COUT") 78 ; 79 Q 80 ; 81 ; 82 ALR2 ; 83 ; 84 N C0CFLAG,C0CXR,C0CRES,C0COUT 85 ; 86 S C0CFLAG="S" 87 I '$D(ZTQUEUED) S C0CFLAG=COCFLAG_"W" 88 ; 89 S C0CXR("FILE")=9000010.09 90 S C0CXR("NAME")="ALR2" 91 S C0CXR("TYPE")="MU" 92 S C0CXR("USE")="S" 93 S C0CXR("EXECUTION")="R" 94 S C0CXR("ACTIVITY")="IR" 95 S C0CXR("SHORT DESCR")="X-ref for LOINC code related to test result." 96 S C0CXR("DESCR",1)="This cross-reference is used to identify the LOINC codes" 97 S C0CXR("DESCR",2)="that has been assigned to a lab result. Allows queries to" 98 S C0CXR("DESCR",3)="retrieve the LOINC code associated with a specific test" 99 S C0CXR("DESCR",4)="result." 100 S C0CXR("SET")="S ^AUPNVLAB(""ALR2"",X(1),X(2),X(3),X(4),X(5),DA)=""""" 101 S C0CXR("KILL")="K ^AUPNVLAB(""ALR2"",X(1),X(2),X(3),X(4),X(5),DA)" 102 S C0CXR("WHOLE KILL")="K ^AUPNVLAB(""ALR2"")" 103 S C0CXR("VAL",1)=.02 104 S C0CXR("VAL",1,"SUBSCRIPT")=1 105 S C0CXR("VAL",1,"COLLATION")="F" 106 S C0CXR("VAL",2)=1201 107 S C0CXR("VAL",2,"SUBSCRIPT")=2 108 S C0CXR("VAL",2,"COLLATION")="F" 109 S C0CXR("VAL",3)=.06 110 S C0CXR("VAL",3,"SUBSCRIPT")=3 111 S C0CXR("VAL",3,"COLLATION")="F" 112 S C0CXR("VAL",4)=.01 113 S C0CXR("VAL",4,"SUBSCRIPT")=4 114 S C0CXR("VAL",4,"COLLATION")="F" 115 S C0CXR("VAL",5)=1113 116 S C0CXR("VAL",5,"SUBSCRIPT")=5 117 S C0CXR("VAL",5,"COLLATION")="F" 118 D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT") 119 ; 120 Q 121 ; 122 ; 123 ALR3 ; 124 ; 125 N C0CFLAG,C0CXR,C0CRES,C0COUT 126 ; 127 S C0CFLAG="S" 128 I '$D(ZTQUEUED) S C0CFLAG=COCFLAG_"W" 129 ; 130 S C0CXR("FILE")=9000010.09 131 S C0CXR("NAME")="ALR2" 132 S C0CXR("TYPE")="MU" 133 S C0CXR("USE")="S" 134 S C0CXR("EXECUTION")="R" 135 S C0CXR("ACTIVITY")="IR" 136 S C0CXR("SHORT DESCR")="X-ref for LOINC code related to test result." 137 S C0CXR("DESCR",1)="This cross-reference is used to identify the LOINC codes" 138 S C0CXR("DESCR",2)="that has been assigned to a lab result. Allows queries to" 139 S C0CXR("DESCR",3)="retrieve the LOINC code associated with a specific test" 140 S C0CXR("DESCR",4)="result." 141 S C0CXR("SET")="S ^AUPNVLAB(""ALR2"",X(1),X(2),X(3),X(4),X(5),DA)=""""" 142 S C0CXR("KILL")="K ^AUPNVLAB(""ALR2"",X(1),X(2),X(3),X(4),X(5),DA)" 143 S C0CXR("WHOLE KILL")="K ^AUPNVLAB(""ALR2"")" 144 S C0CXR("VAL",1)=.02 145 S C0CXR("VAL",1,"SUBSCRIPT")=1 146 S C0CXR("VAL",1,"COLLATION")="F" 147 S C0CXR("VAL",2)=1201 148 S C0CXR("VAL",2,"SUBSCRIPT")=2 149 S C0CXR("VAL",2,"COLLATION")="F" 150 S C0CXR("VAL",3)=.06 151 S C0CXR("VAL",3,"SUBSCRIPT")=3 152 S C0CXR("VAL",3,"COLLATION")="F" 153 S C0CXR("VAL",4)=.01 154 S C0CXR("VAL",4,"SUBSCRIPT")=4 155 S C0CXR("VAL",4,"COLLATION")="F" 156 S C0CXR("VAL",5)=1113 157 S C0CXR("VAL",5,"SUBSCRIPT")=5 158 S C0CXR("VAL",5,"COLLATION")="F" 159 D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT") 160 ; 161 Q 162 ; 163 ; 164 ALR4 ; 165 ; 166 N C0CFLAG,C0CXR,C0CRES,C0COUT 167 ; 168 S C0CFLAG="S" 169 I '$D(ZTQUEUED) S C0CFLAG=COCFLAG_"W" 170 ; 171 S C0CXR("FILE")=9000010.09 172 S C0CXR("NAME")="ALR2" 173 S C0CXR("TYPE")="MU" 174 S C0CXR("USE")="S" 175 S C0CXR("EXECUTION")="R" 176 S C0CXR("ACTIVITY")="IR" 177 S C0CXR("SHORT DESCR")="X-ref for LOINC code related to test result." 178 S C0CXR("DESCR",1)="This cross-reference is used to identify the LOINC codes" 179 S C0CXR("DESCR",2)="that has been assigned to a lab result. Allows queries to" 180 S C0CXR("DESCR",3)="retrieve the LOINC code associated with a specific test" 181 S C0CXR("DESCR",4)="result." 182 S C0CXR("SET")="S ^AUPNVLAB(""ALR2"",X(1),X(2),X(3),X(4),X(5),DA)=""""" 183 S C0CXR("KILL")="K ^AUPNVLAB(""ALR2"",X(1),X(2),X(3),X(4),X(5),DA)" 184 S C0CXR("WHOLE KILL")="K ^AUPNVLAB(""ALR2"")" 185 S C0CXR("VAL",1)=.02 186 S C0CXR("VAL",1,"SUBSCRIPT")=1 187 S C0CXR("VAL",1,"COLLATION")="F" 188 S C0CXR("VAL",2)=1201 189 S C0CXR("VAL",2,"SUBSCRIPT")=2 190 S C0CXR("VAL",2,"COLLATION")="F" 191 S C0CXR("VAL",3)=.06 192 S C0CXR("VAL",3,"SUBSCRIPT")=3 193 S C0CXR("VAL",3,"COLLATION")="F" 194 S C0CXR("VAL",4)=.01 195 S C0CXR("VAL",4,"SUBSCRIPT")=4 196 S C0CXR("VAL",4,"COLLATION")="F" 197 S C0CXR("VAL",5)=1113 198 S C0CXR("VAL",5,"SUBSCRIPT")=5 199 S C0CXR("VAL",5,"COLLATION")="F" 200 D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT") 201 ; 202 Q 203 ; 204 ; 205 ALR5 ; 206 ; 207 N C0CFLAG,C0CXR,C0CRES,C0COUT 208 ; 209 S C0CFLAG="S" 210 I '$D(ZTQUEUED) S C0CFLAG=COCFLAG_"W" 211 ; 212 S C0CXR("FILE")=9000010.09 213 S C0CXR("NAME")="ALR2" 214 S C0CXR("TYPE")="MU" 215 S C0CXR("USE")="S" 216 S C0CXR("EXECUTION")="R" 217 S C0CXR("ACTIVITY")="IR" 218 S C0CXR("SHORT DESCR")="X-ref for LOINC code related to test result." 219 S C0CXR("DESCR",1)="This cross-reference is used to identify the LOINC codes" 220 S C0CXR("DESCR",2)="that has been assigned to a lab result. Allows queries to" 221 S C0CXR("DESCR",3)="retrieve the LOINC code associated with a specific test" 222 S C0CXR("DESCR",4)="result." 223 S C0CXR("SET")="S ^AUPNVLAB(""ALR2"",X(1),X(2),X(3),X(4),X(5),DA)=""""" 224 S C0CXR("KILL")="K ^AUPNVLAB(""ALR2"",X(1),X(2),X(3),X(4),X(5),DA)" 225 S C0CXR("WHOLE KILL")="K ^AUPNVLAB(""ALR2"")" 226 S C0CXR("VAL",1)=.02 227 S C0CXR("VAL",1,"SUBSCRIPT")=1 228 S C0CXR("VAL",1,"COLLATION")="F" 229 S C0CXR("VAL",2)=1201 230 S C0CXR("VAL",2,"SUBSCRIPT")=2 231 S C0CXR("VAL",2,"COLLATION")="F" 232 S C0CXR("VAL",3)=.06 233 S C0CXR("VAL",3,"SUBSCRIPT")=3 234 S C0CXR("VAL",3,"COLLATION")="F" 235 S C0CXR("VAL",4)=.01 236 S C0CXR("VAL",4,"SUBSCRIPT")=4 237 S C0CXR("VAL",4,"COLLATION")="F" 238 S C0CXR("VAL",5)=1113 239 S C0CXR("VAL",5,"SUBSCRIPT")=5 240 S C0CXR("VAL",5,"COLLATION")="F" 241 D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT") 242 ; 243 Q
Note:
See TracChangeset
for help on using the changeset viewer.
