Changeset 558
- Timestamp:
- Sep 14, 2009, 9:46:28 PM (15 years ago)
- Location:
- ccr/trunk/p
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CENV.m
r536 r558 1 C0CENV ;WV/JMC - CCD/CCR Environment Check/Install Routine ; July 21, 20091 C0CENV ;WV/JMC - CCD/CCR Environment Check/Install Routine ; Aug 16, 2009 2 2 ;;1.0;C0C;;May 19, 2009; 3 3 ; … … 157 157 ; Load and rename C0CQRY1 to LA7QRY1 if LA*5.2*68 not installed. 158 158 I '$$PATCH^XPDUTL("LA*5.2*68") D 159 . S MSG="This system missing LAB patch LA*5.2*68" 160 . D BMES(MSG) 159 161 . S MSG="Renaming routine C0CQRY1 to LA7QRY1" 160 162 . D BMES(MSG) 161 163 . D LOAD("C0CQRY1") 162 . D SAVE("C0CQ YR1","LA7QRY1")164 . D SAVE("C0CQRY1","LA7QRY1") 163 165 ; 164 166 Q … … 166 168 ; 167 169 POST7 ; Checkpoint call back entry point. 168 ; Task setting the data in the indexes.169 170 ; 170 N MSG,ZTDESC,ZTDTH,ZTIO,ZTSK,ZTRTN,ZTSAVE 171 ; 172 ; If TaskMan not running then peform post-intall directly (interactively) 173 I '$$TM^%ZTLOAD D Q 174 . S MSG="TaskMan is not running" 175 . D BMES(MSG) 176 . S MSG="Will run indexing interactively" 177 . D BMES(MSG) 178 . D REINDEX^C0CLA7DD 179 ; 180 ; If KIDS install has been tasked then run post-install during this task. 181 I $D(ZTQUEUED) D REINDEX^C0CLA7DD Q 182 ; 183 S MSG="Tasking setting data into new V LAB indexes" 184 D BMES(MSG) 185 ; 186 S ZTRTN="REINDEX^C0CLA7DD",ZTDESC="C0C post-install - V LAB x-refs indexing" 187 S ZTIO="",ZTDTH=$H,ZTSAVE("XP*")="" 188 D ^%ZTLOAD 189 ; 190 I ZTSK>0 D 191 . S MSG="Task "_ZTSK_" tasked to set data into ALR* cross-references to V LAB file." 192 . D BMES(MSG) 193 E D 194 . S MSG="Tasking of indexing of V LAB file failed" 195 . D BMES(MSG) 196 ; 171 D REINDEX^C0CLA7DD 197 172 ; 198 173 Q … … 216 191 SAVE(OLD,NEW) ; restore routine X 217 192 N %,DIE,X,XCM,XCN,XCS 218 S DIE="^TMP($J," _OLD_",",XCN=0,X=NEW193 S DIE="^TMP($J,"""_OLD_""",",XCN=0,X=NEW 219 194 X ^%ZOSF("SAVE") 220 195 Q -
ccr/trunk/p/C0CLA7DD.m
r533 r558 1 C0CLA7DD ;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine; ;6 Jul 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. 1 C0CLA7DD ;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine ; Aug 31, 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 ; 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 ; 51 ALR1 ; 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 ; 82 ALR2 ; 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 ; 122 ALR3 ; 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 ; 147 ALR4 ; 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 ; 176 ALR5 ; 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 ; 205 REINDEX ; 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 ; 244 BMES(STR) ; Write BMES^XPDUTL statements 245 ; 246 D BMES^XPDUTL($$CJ^XLFSTR(STR,IOM)) 247 ; 248 Q 249 ; 250 ; 251 SENDXQA(MSG) ; Send alert for reindex status 252 ; 253 N XQA,XQAMSG 254 ; 255 S XQA(DUZ)="" 256 S XQAMSG=MSG 257 D SETUP^XQALERT 5 258 ; 6 259 Q 7 ;8 ;9 EN ; 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 Q15 ;16 N MSG17 ;18 S MSG="Starting installation of ALR1 cross-reference at "_$$HTE^XLFDT($H,"1Z")19 D BMES(MSG)20 D ALR121 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 ALR227 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 ALR333 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 ALR439 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 ALR545 S MSG="Installation of ALR5 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")46 D BMES(MSG)47 ;48 Q49 ;50 ;51 ALR1 ; Installation of ALR1 cross-reference52 ;53 N C0CFLAG,C0CXR,C0CRES,C0COUT54 ;55 S C0CFLAG=""56 ;57 S C0CXR("FILE")=9000010.0958 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)=.0265 S C0CXR("VAL",1,"SUBSCRIPT")=166 S C0CXR("VAL",1,"COLLATION")="F"67 S C0CXR("VAL",2)=.0668 S C0CXR("VAL",2,"SUBSCRIPT")=269 S C0CXR("VAL",2,"LENGTH")=3070 S C0CXR("VAL",2,"COLLATION")="F"71 S C0CXR("VAL",3)=.0172 S C0CXR("VAL",3,"SUBSCRIPT")=373 S C0CXR("VAL",3,"COLLATION")="F"74 S C0CXR("VAL",4)=120175 S C0CXR("VAL",4,"SUBSCRIPT")=476 S C0CXR("VAL",4,"COLLATION")="F"77 D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")78 ;79 Q80 ;81 ;82 ALR2 ; Installation of ALR2 cross-reference83 ;84 N C0CFLAG,C0CXR,C0CRES,C0COUT85 ;86 S C0CFLAG=""87 ;88 S C0CXR("FILE")=9000010.0989 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)=.02103 S C0CXR("VAL",1,"SUBSCRIPT")=1104 S C0CXR("VAL",1,"COLLATION")="F"105 S C0CXR("VAL",2)=1201106 S C0CXR("VAL",2,"SUBSCRIPT")=2107 S C0CXR("VAL",2,"COLLATION")="F"108 S C0CXR("VAL",3)=.06109 S C0CXR("VAL",3,"SUBSCRIPT")=3110 S C0CXR("VAL",3,"COLLATION")="F"111 S C0CXR("VAL",4)=.01112 S C0CXR("VAL",4,"SUBSCRIPT")=4113 S C0CXR("VAL",4,"COLLATION")="F"114 S C0CXR("VAL",5)=1113115 S C0CXR("VAL",5,"SUBSCRIPT")=5116 S C0CXR("VAL",5,"COLLATION")="F"117 D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")118 ;119 Q120 ;121 ;122 ALR3 ; Installation of ALR3 cross-reference123 ;124 N C0CFLAG,C0CXR,C0CRES,C0COUT125 ;126 S C0CFLAG=""127 ;128 S C0CXR("FILE")=9000010.09129 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)=1113139 S C0CXR("VAL",1,"SUBSCRIPT")=1140 S C0CXR("VAL",1,"COLLATION")="F"141 ;142 D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")143 ;144 Q145 ;146 ;147 ALR4 ; Installation of ALR4 cross-reference148 ;149 N C0CFLAG,C0CXR,C0CRES,C0COUT150 ;151 S C0CFLAG=""152 ;153 S C0CXR("FILE")=9000010.09154 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)=.02165 S C0CXR("VAL",1,"SUBSCRIPT")=1166 S C0CXR("VAL",1,"COLLATION")="F"167 S C0CXR("VAL",2)=1201168 S C0CXR("VAL",2,"SUBSCRIPT")=2169 S C0CXR("VAL",2,"COLLATION")="F"170 ;171 D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")172 ;173 Q174 ;175 ;176 ALR5 ; Installation of ALR5 cross-reference177 ;178 N C0CFLAG,C0CXR,C0CRES,C0COUT179 ;180 S C0CFLAG=""181 ;182 S C0CXR("FILE")=9000010.09183 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)=.02194 S C0CXR("VAL",1,"SUBSCRIPT")=1195 S C0CXR("VAL",1,"COLLATION")="F"196 S C0CXR("VAL",2)=1212197 S C0CXR("VAL",2,"SUBSCRIPT")=2198 S C0CXR("VAL",2,"COLLATION")="F"199 ;200 D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")201 ;202 Q203 ;204 ;205 REINDEX ; Set data into indexes for current entries.206 ;207 ;208 N %,C0CNT,DA,DIK,MSG209 ;210 S (C0CNT,DA)=0211 S DIK="^AUPNVLAB("212 S DIK(1)=".02^ALR1^ALR2^ALR4^ALR5"213 ;214 ; Create checkpoint215 S %=$$NEWCP^XPDUTL("RPMS7","","")216 ;217 ; Retrieve checkpoint value if previously saved218 S %=$$PARCP^XPDUTL("RPMS7","")219 I %'="" S DA=%220 ;221 S MSG="Starting indexing of ALR1, ALR2, ALR4, ALR5 indexes"222 D BMES(MSG)223 ;224 I DA'="END" D225 . F S DA=$O(^AUPNVLAB(DA)) Q:DA<1 D226 . . D EN1^DIK227 . . S C0CNT=C0CNT+1228 . . I (C0CNT#100)=0 S %=$$UPCP^XPDUTL("RPMS7",DA)229 S %=$$UPCP^XPDUTL("RPMS7","END")230 ;231 S MSG="Finished indexing of ALR1, ALR2, ALR4, ALR5 indexes"232 D BMES(MSG)233 ;234 K DA,DIK235 ;236 S (C0CNT,DA)=0237 S DIK="^AUPNVLAB("238 S DIK(1)="1113^ALR3"239 ;240 ; Create checkpoint241 S %=$$NEWCP^XPDUTL("RPMS8","","")242 ;243 ; Retrieve checkpoint value if previously saved244 S %=$$PARCP^XPDUTL("RPMS8","")245 I %'="" S DA=%246 ;247 S MSG="Starting indexing of ALR3 index"248 D BMES(MSG)249 ;250 I DA'="END" D251 . F S DA=$O(^AUPNVLAB(DA)) Q:DA<1 D252 . . D EN1^DIK253 . . S C0CNT=C0CNT+1254 . . I (C0CNT#100)=0 S %=$$UPCP^XPDUTL("RPMS8",DA)255 S %=$$UPCP^XPDUTL("RPMS8","END")256 ;257 S MSG="Finished indexing of ALR3 index"258 D BMES(MSG)259 ;260 ;261 Q262 ;263 ;264 BMES(STR) ; Write BMES^XPDUTL statements265 ;266 D BMES^XPDUTL($$CJ^XLFSTR(STR,IOM))267 ;268 Q
Note:
See TracChangeset
for help on using the changeset viewer.