update to RPMS labs install
This commit is contained in:
george
parent
1dbbb222bf
commit
e44283a4ca
37
p/C0CENV.m
37
p/C0CENV.m
|
|
@ -1,4 +1,4 @@
|
|||
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;
|
||||
;
|
||||
;
|
||||
|
|
@ -156,44 +156,19 @@ POST6 ; Checkpoint call back entry point.
|
|||
;
|
||||
; 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
|
||||
;
|
||||
;
|
||||
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
|
||||
;
|
||||
|
|
@ -215,6 +190,6 @@ LOAD(X) ; load routine X
|
|||
;
|
||||
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
|
||||
|
|
|
|||
519
p/C0CLA7DD.m
519
p/C0CLA7DD.m
|
|
@ -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.
|
||||
;
|
||||
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
|
||||
;
|
||||
;
|
||||
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
|
||||
;
|
||||
D BMES^XPDUTL($$CJ^XLFSTR(STR,IOM))
|
||||
N XQA,XQAMSG
|
||||
;
|
||||
S XQA(DUZ)=""
|
||||
S XQAMSG=MSG
|
||||
D SETUP^XQALERT
|
||||
;
|
||||
Q
|
||||
|
|
|
|||
Loading…
Reference in New Issue