source:
WorldVistAEHR/tag/Release_6_08/r/LAB_SERVICE-LR-LS/LROC1.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 409 bytes |
Line | |
---|---|
1 | LROC1 ;SLC/CJS - TO CLEAN UP LAB ANCILLARY FILE ;2/6/91 10:53 ; |
2 | ;;5.2;LAB SERVICE;;Sep 27, 1994 |
3 | S X="T-14",%DT="" D ^%DT S LRKDT=Y,%H=$H-14 |
4 | S LAB="ET" D LAH |
5 | S LAB="LOST" D LAD |
6 | S LAB="SMAC" D LAD |
7 | S LAB="TIME" D LAD |
8 | K LAB,LRKDT,LRIX |
9 | Q |
10 | LAH S LRIX="" F I=1:1 S LRIX=$O(^LA(LAB,LRIX)) Q:(LRIX<1)!(LRIX>%H) K ^(LRIX) |
11 | Q |
12 | LAD S LRIX="" F I=1:1 S LRIX=$O(^LA(LAB,LRIX)) Q:(LRIX<1)!(LRIX>LRKDT) K ^(LRIX) |
13 | Q |
Note:
See TracBrowser
for help on using the repository browser.