source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRAUFIX.m@ 1300

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

initial load of WorldVistAEHR
File size: 204 bytes
Line 
1LRAUFIX ;AVAMC/REG - RELEASE AUTOPSY REPORTS ;2/18/93 13:47 ;
2 ;;5.2;LAB SERVICE;;Sep 27, 1994
3 F LRDFN=0:0 S LRDFN=$O(^LR(LRDFN)) Q:'LRDFN S Y=$P($G(^LR(LRDFN,"AU")),"^",3) S:Y $P(^("AU"),"^",15)=Y
4 Q
Note: See TracBrowser for help on using the repository browser.