source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRAPREF.m@ 1800

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

initial load of FOIAVistA 6/30/08 version

File size: 233 bytes
Line 
1LRAPREF ;AVAMC/REG - SNOMED REFERENCE OPTION SELECTOR ;3/9/94 13:20 ;
2 ;;5.2;LAB SERVICE;;Sep 27, 1994
3L 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 ;
5END D V^LRU Q
Note: See TracBrowser for help on using the repository browser.