source:
FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRAPREF.m@
1397
| Last change on this file since 1397 was 628, checked in by , 15 years ago | |
|---|---|
| File size: 233 bytes | |
| Line | |
|---|---|
| 1 | LRAPREF ;AVAMC/REG - SNOMED REFERENCE OPTION SELECTOR ;3/9/94 13:20 ; |
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994 |
| 3 | L D END W ! S (DIC,DIE)=95,DIC(0)="AEOQLM",DLAYGO=95 D ^DIC K DIC,DLAYGO G:Y<1 END S DA=+Y,DR="0:99" D ^DIE G L |
| 4 | ; |
| 5 | END D V^LRU Q |
Note:
See TracBrowser
for help on using the repository browser.
