source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRBLVAL.m@ 1006

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

initial load of WorldVistAEHR

File size: 470 bytes
Line 
1LRBLVAL ;AVAMC/REG - OPTION VALIDATOR ;3/9/94 13:18
2 ;;5.2;LAB SERVICE;**247**;Sep 27, 1994
3 ;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
4 K DIC,DA W ! S (DIC,DIE)=66.2,DIC(0)="AEQM" D ^DIC G:Y<1 END S DA=+Y,DR=".07:99" D ^DIE G LRBLVAL
5I K DIC,DA W ! S DIC="^LAB(66.2,",DIC(0)="AEQM" D ^DIC G:Y<1 END S DA=+Y D EN^DIQ G I
6 ;
7P K DIC,DA S L=0,DIC="^LAB(66.2,",FLDS="[CAPTIONED]",BY="[LRBLVAL]" G EN1^DIP
8 Q
9 ;
10END D V^LRU Q
Note: See TracBrowser for help on using the repository browser.