source:
WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRUV.m@
1042
| Last change on this file since 1042 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 222 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 1 | LRUV ;AVAMC/REG - EDIT REF FILE ;3/9/94 13:38 ; |
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994 | |
| 3 | D END W ! S (DIC,DIE,DLAYGO)=67,DIC(0)="AEQLM" D ^DIC K DIC G:Y<1 END S DA=+Y,DR=".01:62.99;64:99" D ^DIE G LRUV | |
| 4 | ; | |
| 5 | END D V^LRU K DLAYGO Q |
Note:
See TracBrowser
for help on using the repository browser.
