Index: ccr/trunk/p/C0CENV.m
===================================================================
--- ccr/trunk/p/C0CENV.m	(revision 557)
+++ ccr/trunk/p/C0CENV.m	(revision 558)
@@ -1,3 +1,3 @@
-C0CENV ;WV/JMC - CCD/CCR Environment Check/Install Routine; July 21, 2009
+C0CENV ;WV/JMC - CCD/CCR Environment Check/Install Routine ; Aug 16, 2009
  ;;1.0;C0C;;May 19, 2009;
  ;
@@ -157,8 +157,10 @@
 	; Load and rename C0CQRY1 to LA7QRY1 if LA*5.2*68 not installed.
 	I '$$PATCH^XPDUTL("LA*5.2*68") D
+	. S MSG="This system missing LAB patch LA*5.2*68"
+	. D BMES(MSG)
 	. S MSG="Renaming routine C0CQRY1 to LA7QRY1"
 	. D BMES(MSG)
 	. D LOAD("C0CQRY1")
-	. D SAVE("C0CQYR1","LA7QRY1")
+	. D SAVE("C0CQRY1","LA7QRY1")
 	;
 	Q
@@ -166,33 +168,6 @@
 	;
 POST7	; Checkpoint call back entry point.
-	; Task setting the data in the indexes.
 	;
-	N MSG,ZTDESC,ZTDTH,ZTIO,ZTSK,ZTRTN,ZTSAVE
-	;
-	; If TaskMan not running then peform post-intall directly (interactively)
-	I '$$TM^%ZTLOAD D  Q
-	. S MSG="TaskMan is not running"
-	. D BMES(MSG)
-	. S MSG="Will run indexing interactively"
-	. D BMES(MSG)
-	. D REINDEX^C0CLA7DD
-	;
-	; If KIDS install has been tasked then run post-install during this task.
-	I $D(ZTQUEUED) D REINDEX^C0CLA7DD Q
-	;
-	S MSG="Tasking setting data into new V LAB indexes"
-	D BMES(MSG)
-	;
-	S ZTRTN="REINDEX^C0CLA7DD",ZTDESC="C0C post-install - V LAB x-refs indexing"
-	S ZTIO="",ZTDTH=$H,ZTSAVE("XP*")=""
-	D ^%ZTLOAD
-	;
-	I ZTSK>0 D
-	. S MSG="Task "_ZTSK_" tasked to set data into ALR* cross-references to V LAB file."
-	. D BMES(MSG)
-	E  D
-	. S MSG="Tasking of indexing of V LAB file failed"
-	. D BMES(MSG)
-	;
+	D REINDEX^C0CLA7DD
 	;
 	Q
@@ -216,5 +191,5 @@
 SAVE(OLD,NEW)	; restore routine X
 	N %,DIE,X,XCM,XCN,XCS
-	S DIE="^TMP($J,"_OLD_",",XCN=0,X=NEW
+	S DIE="^TMP($J,"""_OLD_""",",XCN=0,X=NEW
 	X ^%ZOSF("SAVE")
 	Q
Index: ccr/trunk/p/C0CLA7DD.m
===================================================================
--- ccr/trunk/p/C0CLA7DD.m	(revision 557)
+++ ccr/trunk/p/C0CLA7DD.m	(revision 558)
@@ -1,268 +1,259 @@
-C0CLA7DD	;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine; ;6 Jul 2009
-	;;1.0;C0C;;May 19, 2009;
-	;
-	; Tasked by C0C post-install routine C0CENV to create C0C cross-references on V LAB file.
+C0CLA7DD ;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine ; Aug 31, 2009
+ ;;1.0;C0C;;May 19, 2009;
+ ;
+ ; Tasked by C0C post-install routine C0CENV to create C0C cross-references on V LAB file.
+ ;
+ Q
+ ;
+ ;
+EN ; Add new style cross-references to V LAB file if it exists.
+ ; OLD entry point - see new KIDS check points in C0CENV.
+ ;
+ ;
+ ; Quit if AUPNVLAB global does not exist.
+ I $$VFILE^DILFD(9000010.09)'=1 Q
+ ;
+ N MSG
+ ;
+ S MSG="Starting installation of ALR1 cross-reference at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ D ALR1
+ S MSG="Installation of ALR1 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ ;
+ S MSG="Starting installation of ALR2 cross-reference at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ D ALR2
+ S MSG="Installation of ALR2 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ ;
+ S MSG="Starting installation of ALR3 cross-reference at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ D ALR3
+ S MSG="Installation of ALR3 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ ;
+ S MSG="Starting installation of ALR4 cross-reference at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ D ALR4
+ S MSG="Installation of ALR4 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ ;
+ S MSG="Starting installation of ALR5 cross-reference at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ D ALR5
+ S MSG="Installation of ALR5 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ ;
+ Q
+ ;
+ ;
+ALR1 ; Installation of ALR1 cross-reference
+ ;
+ N C0CFLAG,C0CXR,C0CRES,C0COUT
+ ;
+ S C0CFLAG=""
+ ;
+ S C0CXR("FILE")=9000010.09
+ S C0CXR("NAME")="ALR1"
+ S C0CXR("TYPE")="R"
+ S C0CXR("USE")="S"
+ S C0CXR("EXECUTION")="R"
+ S C0CXR("ACTIVITY")="IR"
+ S C0CXR("SHORT DESCR")="X-ref to link entry with parent in LAB DATA file (#63)"
+ S C0CXR("VAL",1)=.02
+ S C0CXR("VAL",1,"SUBSCRIPT")=1
+ S C0CXR("VAL",1,"COLLATION")="F"
+ S C0CXR("VAL",2)=.06
+ S C0CXR("VAL",2,"SUBSCRIPT")=2
+ S C0CXR("VAL",2,"LENGTH")=30
+ S C0CXR("VAL",2,"COLLATION")="F"
+ S C0CXR("VAL",3)=.01
+ S C0CXR("VAL",3,"SUBSCRIPT")=3
+ S C0CXR("VAL",3,"COLLATION")="F"
+ S C0CXR("VAL",4)=1201
+ S C0CXR("VAL",4,"SUBSCRIPT")=4
+ S C0CXR("VAL",4,"COLLATION")="F"
+ D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
+ ;
+ Q
+ ;
+ ;
+ALR2 ; Installation of ALR2 cross-reference
+ ;
+ N C0CFLAG,C0CXR,C0CRES,C0COUT
+ ;
+ S C0CFLAG=""
+ ;
+ S C0CXR("FILE")=9000010.09
+ S C0CXR("NAME")="ALR2"
+ S C0CXR("TYPE")="MU"
+ S C0CXR("USE")="S"
+ S C0CXR("EXECUTION")="R"
+ S C0CXR("ACTIVITY")="IR"
+ S C0CXR("SHORT DESCR")="X-ref for LOINC code related to test result."
+ S C0CXR("DESCR",1)="This cross-reference is used to identify the LOINC codes"
+ S C0CXR("DESCR",2)="that has been assigned to a lab result. Allows queries to"
+ S C0CXR("DESCR",3)="retrieve the LOINC code associated with a specific test"
+ S C0CXR("DESCR",4)="result."
+ S C0CXR("SET")="S ^AUPNVLAB(""ALR2"",X(1),X(2),X(3),X(4),X(5),DA)="""""
+ S C0CXR("KILL")="K ^AUPNVLAB(""ALR2"",X(1),X(2),X(3),X(4),X(5),DA)"
+ S C0CXR("WHOLE KILL")="K ^AUPNVLAB(""ALR2"")"
+ S C0CXR("VAL",1)=.02
+ S C0CXR("VAL",1,"SUBSCRIPT")=1
+ S C0CXR("VAL",1,"COLLATION")="F"
+ S C0CXR("VAL",2)=1201
+ S C0CXR("VAL",2,"SUBSCRIPT")=2
+ S C0CXR("VAL",2,"COLLATION")="F"
+ S C0CXR("VAL",3)=.06
+ S C0CXR("VAL",3,"SUBSCRIPT")=3
+ S C0CXR("VAL",3,"COLLATION")="F"
+ S C0CXR("VAL",4)=.01
+ S C0CXR("VAL",4,"SUBSCRIPT")=4
+ S C0CXR("VAL",4,"COLLATION")="F"
+ S C0CXR("VAL",5)=1113
+ S C0CXR("VAL",5,"SUBSCRIPT")=5
+ S C0CXR("VAL",5,"COLLATION")="F"
+ D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
+ ;
+ Q
+ ;
+ ;
+ALR3 ; Installation of ALR3 cross-reference
+ ;
+ N C0CFLAG,C0CXR,C0CRES,C0COUT
+ ;
+ S C0CFLAG=""
+ ;
+ S C0CXR("FILE")=9000010.09
+ S C0CXR("NAME")="ALR3"
+ S C0CXR("TYPE")="R"
+ S C0CXR("USE")="S"
+ S C0CXR("EXECUTION")="F"
+ S C0CXR("ACTIVITY")="IR"
+ S C0CXR("SHORT DESCR")="X-ref for LOINC code related to test result - any patient"
+ S C0CXR("DESCR",1)="This cross-reference is used to identify the LOINC codes that has been assigned to a lab result. Allows queries"
+ S C0CXR("DESCR",2)="to retrieve the LOINC code associated with a specific test result. It allows any patient"
+ S C0CXR("DESCR",3)="lab results to be identified by LOINC"
+ S C0CXR("VAL",1)=1113
+ S C0CXR("VAL",1,"SUBSCRIPT")=1
+ S C0CXR("VAL",1,"COLLATION")="F"
+ ;
+ D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
+ ;
+ Q
+ ;
+ ;
+ALR4 ; Installation of ALR4 cross-reference
+ ;
+ N C0CFLAG,C0CXR,C0CRES,C0COUT
+ ;
+ S C0CFLAG=""
+ ;
+ S C0CXR("FILE")=9000010.09
+ S C0CXR("NAME")="ALR4"
+ S C0CXR("TYPE")="R"
+ S C0CXR("USE")="S"
+ S C0CXR("EXECUTION")="R"
+ S C0CXR("ACTIVITY")="IR"
+ S C0CXR("SHORT DESCR")="X-ref by patient and collection date/time"
+ S C0CXR("DESCR",1)="This cross-reference is used to identify all lab results for a"
+ S C0CXR("DESCR",2)="patient by collection date/time. This includes results that are only in"
+ S C0CXR("DESCR",3)="this file and therefore do not have a corresponding entry in LAB DATA"
+ S C0CXR("DESCR",4)="file (#63)."
+ S C0CXR("VAL",1)=.02
+ S C0CXR("VAL",1,"SUBSCRIPT")=1
+ S C0CXR("VAL",1,"COLLATION")="F"
+ S C0CXR("VAL",2)=1201
+ S C0CXR("VAL",2,"SUBSCRIPT")=2
+ S C0CXR("VAL",2,"COLLATION")="F"
+ ;
+ D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
+ ;
+ Q
+ ;
+ ;
+ALR5 ; Installation of ALR5 cross-reference
+ ;
+ N C0CFLAG,C0CXR,C0CRES,C0COUT
+ ;
+ S C0CFLAG=""
+ ;
+ S C0CXR("FILE")=9000010.09
+ S C0CXR("NAME")="ALR5"
+ S C0CXR("TYPE")="R"
+ S C0CXR("USE")="S"
+ S C0CXR("EXECUTION")="R"
+ S C0CXR("ACTIVITY")="IR"
+ S C0CXR("SHORT DESCR")="X-ref by patient and results availble date/time"
+ S C0CXR("DESCR",1)="This cross-reference is used to identify all lab results for a"
+ S C0CXR("DESCR",2)="patient by results available date/time. This includes results that are only in"
+ S C0CXR("DESCR",3)="this file and therefore do not have a corresponding entry in LAB DATA"
+ S C0CXR("DESCR",4)="file (#63)."
+ S C0CXR("VAL",1)=.02
+ S C0CXR("VAL",1,"SUBSCRIPT")=1
+ S C0CXR("VAL",1,"COLLATION")="F"
+ S C0CXR("VAL",2)=1212
+ S C0CXR("VAL",2,"SUBSCRIPT")=2
+ S C0CXR("VAL",2,"COLLATION")="F"
+ ;
+ D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
+ ;
+ Q
+ ;
+ ;
+REINDEX ; Set data into indexes for current entries.
+ ;
+ ;
+ N C0CHLOG,DA,DIK,MSG
+ ;
+ S C0CHLOG("START")=$H
+ S MSG="Starting indexing of ALR1, ALR2, ALR4, ALR5 indexes - "_$$HTE^XLFDT(C0CHLOG("START"),"1Z")
+ D BMES(MSG),SENDXQA(MSG)
+	;
+ S DIK="^AUPNVLAB("
+ S DIK(1)=".02^ALR1^ALR2^ALR4^ALR5"
+ D ENALL^DIK
+ ;
+ S C0CHLOG("END")=$H
+ S MSG="Finished indexing of ALR1, ALR2, ALR4, ALR5 indexes - "_$$HTE^XLFDT(C0CHLOG("END"),"1Z")
+ D BMES(MSG),SENDXQA(MSG)
+ ;
+ S MSG="Elapsed Time: "_$$HDIFF^XLFDT(C0CHLOG("END"),C0CHLOG("START"),3)
+ D BMES(MSG)
+	;
+ S C0CHLOG("START")=$H
+ S MSG="Starting indexing of ALR3 index - "_$$HTE^XLFDT(C0CHLOG("START"),"1Z")
+ D BMES(MSG),SENDXQA(MSG)
+ ;
+ K DA,DIK
+ S DIK="^AUPNVLAB("
+ S DIK(1)="1113^ALR3"
+ D ENALL^DIK
+ ;
+ S C0CHLOG("END")=$H
+ S MSG="Finished indexing of ALR3 index - "_$$HTE^XLFDT(C0CHLOG("END"),"1Z")
+ D BMES(MSG),SENDXQA(MSG)
+ ;
+ S MSG="Elapsed Time: "_$$HDIFF^XLFDT(C0CHLOG("END"),C0CHLOG("START"),3)
+ D BMES(MSG)
+ ;
+ Q
+ ;
+ ;
+BMES(STR) ; Write BMES^XPDUTL statements
+ ;
+ D BMES^XPDUTL($$CJ^XLFSTR(STR,IOM))
+ ;
+ Q
+ ;
+ ;
+SENDXQA(MSG)	; Send alert for reindex status
+	;
+	N XQA,XQAMSG
+	;
+	S XQA(DUZ)=""
+	S XQAMSG=MSG
+	D SETUP^XQALERT
 	;
 	Q
-	;
-	;
-EN	; Add new style cross-references to V LAB file if it exists.
-	; OLD entry point - see new KIDS check points in C0CENV.
-	;
-	;
-	; Quit if AUPNVLAB global does not exist.
-	I $$VFILE^DILFD(9000010.09)'=1 Q
-	;
-	N MSG
-	;
-	S MSG="Starting installation of ALR1 cross-reference at "_$$HTE^XLFDT($H,"1Z")
-	D BMES(MSG)
-	D ALR1
-	S MSG="Installation of ALR1 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
-	D BMES(MSG)
-	;
-	S MSG="Starting installation of ALR2 cross-reference at "_$$HTE^XLFDT($H,"1Z")
-	D BMES(MSG)
-	D ALR2
-	S MSG="Installation of ALR2 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
-	D BMES(MSG)
-	;
-	S MSG="Starting installation of ALR3 cross-reference at "_$$HTE^XLFDT($H,"1Z")
-	D BMES(MSG)
-	D ALR3
-	S MSG="Installation of ALR3 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
-	D BMES(MSG)
-	;
-	S MSG="Starting installation of ALR4 cross-reference at "_$$HTE^XLFDT($H,"1Z")
-	D BMES(MSG)
-	D ALR4
-	S MSG="Installation of ALR4 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
-	D BMES(MSG)
-	;
-	S MSG="Starting installation of ALR5 cross-reference at "_$$HTE^XLFDT($H,"1Z")
-	D BMES(MSG)
-	D ALR5
-	S MSG="Installation of ALR5 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
-	D BMES(MSG)
-	;
-	Q
-	;
-	;
-ALR1	; Installation of ALR1 cross-reference
-	;
-	N C0CFLAG,C0CXR,C0CRES,C0COUT
-	;
-	S C0CFLAG=""
-	;
-	S C0CXR("FILE")=9000010.09
-	S C0CXR("NAME")="ALR1"
-	S C0CXR("TYPE")="R"
-	S C0CXR("USE")="S"
-	S C0CXR("EXECUTION")="R"
-	S C0CXR("ACTIVITY")="IR"
-	S C0CXR("SHORT DESCR")="X-ref to link entry with parent in LAB DATA file (#63)"
-	S C0CXR("VAL",1)=.02
-	S C0CXR("VAL",1,"SUBSCRIPT")=1
-	S C0CXR("VAL",1,"COLLATION")="F"
-	S C0CXR("VAL",2)=.06
-	S C0CXR("VAL",2,"SUBSCRIPT")=2
-	S C0CXR("VAL",2,"LENGTH")=30
-	S C0CXR("VAL",2,"COLLATION")="F"
-	S C0CXR("VAL",3)=.01
-	S C0CXR("VAL",3,"SUBSCRIPT")=3
-	S C0CXR("VAL",3,"COLLATION")="F"
-	S C0CXR("VAL",4)=1201
-	S C0CXR("VAL",4,"SUBSCRIPT")=4
-	S C0CXR("VAL",4,"COLLATION")="F"
-	D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
-	;
-	Q
-	;
-	;
-ALR2	; Installation of ALR2 cross-reference
-	;
-	N C0CFLAG,C0CXR,C0CRES,C0COUT
-	;
-	S C0CFLAG=""
-	;
-	S C0CXR("FILE")=9000010.09
-	S C0CXR("NAME")="ALR2"
-	S C0CXR("TYPE")="MU"
-	S C0CXR("USE")="S"
-	S C0CXR("EXECUTION")="R"
-	S C0CXR("ACTIVITY")="IR"
-	S C0CXR("SHORT DESCR")="X-ref for LOINC code related to test result."
-	S C0CXR("DESCR",1)="This cross-reference is used to identify the LOINC codes"
-	S C0CXR("DESCR",2)="that has been assigned to a lab result. Allows queries to"
-	S C0CXR("DESCR",3)="retrieve the LOINC code associated with a specific test"
-	S C0CXR("DESCR",4)="result."
-	S C0CXR("SET")="S ^AUPNVLAB(""ALR2"",X(1),X(2),X(3),X(4),X(5),DA)="""""
-	S C0CXR("KILL")="K ^AUPNVLAB(""ALR2"",X(1),X(2),X(3),X(4),X(5),DA)"
-	S C0CXR("WHOLE KILL")="K ^AUPNVLAB(""ALR2"")"
-	S C0CXR("VAL",1)=.02
-	S C0CXR("VAL",1,"SUBSCRIPT")=1
-	S C0CXR("VAL",1,"COLLATION")="F"
-	S C0CXR("VAL",2)=1201
-	S C0CXR("VAL",2,"SUBSCRIPT")=2
-	S C0CXR("VAL",2,"COLLATION")="F"
-	S C0CXR("VAL",3)=.06
-	S C0CXR("VAL",3,"SUBSCRIPT")=3
-	S C0CXR("VAL",3,"COLLATION")="F"
-	S C0CXR("VAL",4)=.01
-	S C0CXR("VAL",4,"SUBSCRIPT")=4
-	S C0CXR("VAL",4,"COLLATION")="F"
-	S C0CXR("VAL",5)=1113
-	S C0CXR("VAL",5,"SUBSCRIPT")=5
-	S C0CXR("VAL",5,"COLLATION")="F"
-	D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
-	;
-	Q
-	;
-	;
-ALR3	; Installation of ALR3 cross-reference
-	;
-	N C0CFLAG,C0CXR,C0CRES,C0COUT
-	;
-	S C0CFLAG=""
-	;
-	S C0CXR("FILE")=9000010.09
-	S C0CXR("NAME")="ALR3"
-	S C0CXR("TYPE")="R"
-	S C0CXR("USE")="S"
-	S C0CXR("EXECUTION")="F"
-	S C0CXR("ACTIVITY")="IR"
-	S C0CXR("SHORT DESCR")="X-ref for LOINC code related to test result - any patient"
-	S C0CXR("DESCR",1)="This cross-reference is used to identify the LOINC codes that has been assigned to a lab result. Allows queries"
-	S C0CXR("DESCR",2)="to retrieve the LOINC code associated with a specific test result. It allows any patient"
-	S C0CXR("DESCR",3)="lab results to be identified by LOINC"
-	S C0CXR("VAL",1)=1113
-	S C0CXR("VAL",1,"SUBSCRIPT")=1
-	S C0CXR("VAL",1,"COLLATION")="F"
-	;
-	D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
-	;
-	Q
-	;
-	;
-ALR4	; Installation of ALR4 cross-reference
-	;
-	N C0CFLAG,C0CXR,C0CRES,C0COUT
-	;
-	S C0CFLAG=""
-	;
-	S C0CXR("FILE")=9000010.09
-	S C0CXR("NAME")="ALR4"
-	S C0CXR("TYPE")="R"
-	S C0CXR("USE")="S"
-	S C0CXR("EXECUTION")="R"
-	S C0CXR("ACTIVITY")="IR"
-	S C0CXR("SHORT DESCR")="X-ref by patient and collection date/time"
-	S C0CXR("DESCR",1)="This cross-reference is used to identify all lab results for a"
-	S C0CXR("DESCR",2)="patient by collection date/time. This includes results that are only in"
-	S C0CXR("DESCR",3)="this file and therefore do not have a corresponding entry in LAB DATA"
-	S C0CXR("DESCR",4)="file (#63)."
-	S C0CXR("VAL",1)=.02
-	S C0CXR("VAL",1,"SUBSCRIPT")=1
-	S C0CXR("VAL",1,"COLLATION")="F"
-	S C0CXR("VAL",2)=1201
-	S C0CXR("VAL",2,"SUBSCRIPT")=2
-	S C0CXR("VAL",2,"COLLATION")="F"
-	;
-	D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
-	;
-	Q
-	;
-	;
-ALR5	; Installation of ALR5 cross-reference
-	;
-	N C0CFLAG,C0CXR,C0CRES,C0COUT
-	;
-	S C0CFLAG=""
-	;
-	S C0CXR("FILE")=9000010.09
-	S C0CXR("NAME")="ALR5"
-	S C0CXR("TYPE")="R"
-	S C0CXR("USE")="S"
-	S C0CXR("EXECUTION")="R"
-	S C0CXR("ACTIVITY")="IR"
-	S C0CXR("SHORT DESCR")="X-ref by patient and results availble date/time"
-	S C0CXR("DESCR",1)="This cross-reference is used to identify all lab results for a"
-	S C0CXR("DESCR",2)="patient by results available date/time. This includes results that are only in"
-	S C0CXR("DESCR",3)="this file and therefore do not have a corresponding entry in LAB DATA"
-	S C0CXR("DESCR",4)="file (#63)."
-	S C0CXR("VAL",1)=.02
-	S C0CXR("VAL",1,"SUBSCRIPT")=1
-	S C0CXR("VAL",1,"COLLATION")="F"
-	S C0CXR("VAL",2)=1212
-	S C0CXR("VAL",2,"SUBSCRIPT")=2
-	S C0CXR("VAL",2,"COLLATION")="F"
-	;
-	D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
-	;
-	Q
-	;
-	;
-REINDEX	; Set data into indexes for current entries.
-	;
-	;
-	N %,C0CNT,DA,DIK,MSG
-	;
-	S (C0CNT,DA)=0
-	S DIK="^AUPNVLAB("
-	S DIK(1)=".02^ALR1^ALR2^ALR4^ALR5"
-	;
-	; Create checkpoint
-	S %=$$NEWCP^XPDUTL("RPMS7","","")
-	;
-	; Retrieve checkpoint value if previously saved
-	S %=$$PARCP^XPDUTL("RPMS7","")
-	I %'="" S DA=%
-	;
-	S MSG="Starting indexing of ALR1, ALR2, ALR4, ALR5 indexes"
-	D BMES(MSG)
-	;
-	I DA'="END" D
-	. F  S DA=$O(^AUPNVLAB(DA)) Q:DA<1  D
-	. . D EN1^DIK
-	. . S C0CNT=C0CNT+1
-	. . I (C0CNT#100)=0 S %=$$UPCP^XPDUTL("RPMS7",DA)
-	S %=$$UPCP^XPDUTL("RPMS7","END")
-	;
-	S MSG="Finished indexing of ALR1, ALR2, ALR4, ALR5 indexes"
-	D BMES(MSG)
-	;
-	K DA,DIK
-	;
-	S (C0CNT,DA)=0
-	S DIK="^AUPNVLAB("
-	S DIK(1)="1113^ALR3"
-	;
-	; Create checkpoint
-	S %=$$NEWCP^XPDUTL("RPMS8","","")
-	;
-	; Retrieve checkpoint value if previously saved
-	S %=$$PARCP^XPDUTL("RPMS8","")
-	I %'="" S DA=%
-	;
-	S MSG="Starting indexing of ALR3 index"
-	D BMES(MSG)
-	;
-	I DA'="END" D
-	. F  S DA=$O(^AUPNVLAB(DA)) Q:DA<1  D
-	. . D EN1^DIK
-	. . S C0CNT=C0CNT+1
-	. . I (C0CNT#100)=0 S %=$$UPCP^XPDUTL("RPMS8",DA)
-	S %=$$UPCP^XPDUTL("RPMS8","END")
-	;
-	S MSG="Finished indexing of ALR3 index"
-	D BMES(MSG)
-	;
-	;
-	Q
-	;
-	;
-BMES(STR) ; Write BMES^XPDUTL statements
-	;
-	D BMES^XPDUTL($$CJ^XLFSTR(STR,IOM))
-	;
-	Q