source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRUV.m@ 811

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

initial load of FOIAVistA 6/30/08 version

File size: 222 bytes
Line 
1LRUV ;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 ;
5END D V^LRU K DLAYGO Q
Note: See TracBrowser for help on using the repository browser.