source:
WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LROC1.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 409 bytes |
Rev | Line | |
---|---|---|
[613] | 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.