C0CLA7DD	;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine; ;18 May 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.
	;
	;
	; 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 MES^XPDUTL(MSG)
	D ALR1
	S MSG="Installation of ALR1 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
	D MES^XPDUTL(MSG)
	;
	S MSG="Starting installation of ALR2 cross-reference at "_$$HTE^XLFDT($H,"1Z")
	D MES^XPDUTL(MSG)
	D ALR2
	S MSG="Installation of ALR2 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
	D MES^XPDUTL(MSG)
	;
	S MSG="Starting installation of ALR3 cross-reference at "_$$HTE^XLFDT($H,"1Z")
	D MES^XPDUTL(MSG)
	D ALR3
	S MSG="Installation of ALR3 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
	D MES^XPDUTL(MSG)
	;
	S MSG="Starting installation of ALR4 cross-reference at "_$$HTE^XLFDT($H,"1Z")
	D MES^XPDUTL(MSG)
	D ALR4
	S MSG="Installation of ALR4 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
	D MES^XPDUTL(MSG)
	;
	S MSG="Starting installation of ALR5 cross-reference at "_$$HTE^XLFDT($H,"1Z")
	D MES^XPDUTL(MSG)
	D ALR5
	S MSG="Installation of ALR5 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
	D MES^XPDUTL(MSG)
	;
	Q
	;
	;
ALR1	;
	;
	N C0CFLAG,C0CXR,C0CRES,C0COUT
	;
	S C0CFLAG="S"
	I '$D(ZTQUEUED) S C0CFLAG=COCFLAG_"W"
	;
	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,COCFLAG,.C0CRES,"C0COUT")
	;
	Q
	;
	;
ALR2	;
	;
	N C0CFLAG,C0CXR,C0CRES,C0COUT
	;
	S C0CFLAG="S"
	I '$D(ZTQUEUED) S C0CFLAG=COCFLAG_"W"
	;
	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	;
	;
	N C0CFLAG,C0CXR,C0CRES,C0COUT
	;
	S C0CFLAG="S"
	I '$D(ZTQUEUED) S C0CFLAG=COCFLAG_"W"
	;
	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
	;
	;
ALR4	;
	;
	N C0CFLAG,C0CXR,C0CRES,C0COUT
	;
	S C0CFLAG="S"
	I '$D(ZTQUEUED) S C0CFLAG=COCFLAG_"W"
	;
	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
	;
	;
ALR5	;
	;
	N C0CFLAG,C0CXR,C0CRES,C0COUT
	;
	S C0CFLAG="S"
	I '$D(ZTQUEUED) S C0CFLAG=COCFLAG_"W"
	;
	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
