source:
WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRUSET.m@
1046
Last change on this file since 1046 was 613, checked in by , 15 years ago | |
---|---|
File size: 274 bytes |
Line | |
---|---|
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.