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

creates cross reference on V LAB file in RPMS

This commit is contained in:
george 2009-05-21 18:03:49 +00:00
parent b9eb852128
commit 33c1446dac
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
p/C0CLA7DD.m Normal file
View File

@ -0,0 +1,23 @@
C0CLA7DD ;xxxx/JMC-CREATE NEW-STYLE XREF ;8:32 PM 18 May 2009
;;1.0;C0C;;May 19, 2009;
;
N C0CXR,C0CRES,C0COUT
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,"SW",.C0CRES,"C0COUT")
Q