source:
WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRUSET.m@
1258
| Last change on this file since 1258 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 274 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 1 | LRUSET ;AVAMC/REG - RELEASE REPORTS ; 8/5/87 10:43 ; |
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994 | |
| 3 | F A="ASPA","ACYA" F Y=0:0 S Y=$O(^LR(A,Y)) Q:Y="" F LRAN=0:0 S LRAN=$O(^LR(A,Y,LRAN)) Q:LRAN="" S LRDFN=$O(^(LRAN,0)),LRIDT=$O(^(LRDFN,0)),$P(^LR(LRDFN,$E(A,2,3),LRIDT,0),"^",11)=1 | |
| 4 | Q |
Note:
See TracBrowser
for help on using the repository browser.
