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