source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRUSET.m@ 1297

Last change on this file since 1297 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 274 bytes
RevLine 
[613]1LRUSET ;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.