source: ccr/trunk/p/C0CLA7DD.m@ 520

Last change on this file since 520 was 509, checked in by George Lilly, 15 years ago

creates cross reference on V LAB file in RPMS

File size: 872 bytes
Line 
1C0CLA7DD ;xxxx/JMC-CREATE NEW-STYLE XREF ;8:32 PM 18 May 2009
2 ;;1.0;C0C;;May 19, 2009;
3 ;
4 N C0CXR,C0CRES,C0COUT
5 S C0CXR("FILE")=9000010.09
6 S C0CXR("NAME")="ALR5"
7 S C0CXR("TYPE")="R"
8 S C0CXR("USE")="S"
9 S C0CXR("EXECUTION")="R"
10 S C0CXR("ACTIVITY")="IR"
11 S C0CXR("SHORT DESCR")="X-ref by patient and results availble date/time"
12 S C0CXR("DESCR",1)="This cross-reference is used to identify all lab results for a"
13 S C0CXR("DESCR",2)="patient by results available date/time. This includes results that are only in"
14 S C0CXR("DESCR",3)="this file and therefore do not have a corresponding entry in LAB DATA"
15 S C0CXR("DESCR",4)="file (#63)."
16 S C0CXR("VAL",1)=.02
17 S C0CXR("VAL",1,"SUBSCRIPT")=1
18 S C0CXR("VAL",1,"COLLATION")="F"
19 S C0CXR("VAL",2)=1212
20 S C0CXR("VAL",2,"SUBSCRIPT")=2
21 S C0CXR("VAL",2,"COLLATION")="F"
22 D CREIXN^DDMOD(.C0CXR,"SW",.C0CRES,"C0COUT")
23 Q
Note: See TracBrowser for help on using the repository browser.