|
Last change
on this file since 509 was 509, checked in by George Lilly, 17 years ago |
|
creates cross reference on V LAB file in RPMS
|
|
File size:
872 bytes
|
| Line | |
|---|
| 1 | C0CLA7DD ;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.
