iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update includes RPMS lab enhancements and CCR RPC

This commit is contained in:
george 2009-07-18 01:06:16 +00:00
parent 6383bcf232
commit c3e6894ccd
3 changed files with 100359 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
p/C0CLA7DD.m
View File

@ -1,4 +1,4 @@
C0CLA7DD ;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine; ;14 Jun 2009 C0CLA7DD ;WV/JMC - CCD/CCR Post Install DD X-Ref Setup Routine; ;6 Jul 2009
;;1.0;C0C;;May 19, 2009; ;;1.0;C0C;;May 19, 2009;
; ;
; Tasked by C0C post-install routine C0CENV to create C0C cross-references on V LAB file. ; Tasked by C0C post-install routine C0CENV to create C0C cross-references on V LAB file.
@ -74,7 +74,7 @@ ALR1 ; Installation of ALR1 cross-reference
S C0CXR("VAL",4)=1201 S C0CXR("VAL",4)=1201
S C0CXR("VAL",4,"SUBSCRIPT")=4 S C0CXR("VAL",4,"SUBSCRIPT")=4
S C0CXR("VAL",4,"COLLATION")="F" S C0CXR("VAL",4,"COLLATION")="F"
D CREIXN^DDMOD(.C0CXR,COCFLAG,.C0CRES,"C0COUT") D CREIXN^DDMOD(.C0CXR,C0CFLAG,.C0CRES,"C0COUT")
; ;
Q Q
; ;

6
p/C0CLA7Q.m
View File

@ -1,4 +1,4 @@
C0CLA7Q ;WV/JMC - CCD/CCR Lab HL7 Query Utility ;May 31, 2009 C0CLA7Q ;WV/JMC - CCD/CCR Lab HL7 Query Utility ;Jul 6, 2009
;;1.0;C0C;;May 19, 2009; ;;1.0;C0C;;May 19, 2009;
; ;
; ;
@ -36,8 +36,8 @@ VCHECK ; If V LAB file present then check for lab results that are only in this
S LA7SC=$G(C0CSC) S LA7SC=$G(C0CSC)
I $T(SCLIST^LA7QRY2)'="" D I $T(SCLIST^LA7QRY2)'="" D
. N TMP . N TMP
. S LA7SCSRC=$G(C0CSC) . S LA7SCRC=$G(C0CSC)
. S TMP=$$SCLIST^LA7QRY2(LA7SCSRC) . S TMP=$$SCLIST^LA7QRY2(LA7SCRC)
. S LA7SC=TMP . S LA7SC=TMP
; ;
I LA7SC'="*" D CHKSC^LA7QRY1 I LA7SC'="*" D CHKSC^LA7QRY1

100354
p/C0C_1_0_0_T15.KID Normal file
View File

File diff suppressed because it is too large Load Diff