LRBLVAL ;AVAMC/REG - OPTION VALIDATOR ;3/9/94 13:18
;;5.2;LAB SERVICE;**247,408**;Sep 27, 1994;Build 8
;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
Q 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
I 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
;
P K DIC,DA S L=0,DIC="^LAB(66.2,",FLDS="[CAPTIONED]",BY="[LRBLVAL]" G EN1^DIP
Q
;
END D V^LRU Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRBLVAL 495 printed Dec 13, 2024@02:12:25 Page 2
LRBLVAL ;AVAMC/REG - OPTION VALIDATOR ;3/9/94 13:18
+1 ;;5.2;LAB SERVICE;**247,408**;Sep 27, 1994;Build 8
+2 ;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
+3 QUIT
KILL DIC,DA
WRITE !
SET (DIC,DIE)=66.2
SET DIC(0)="AEQM"
DO ^DIC
if Y<1
GOTO END
SET DA=+Y
SET DR=".07:99"
DO ^DIE
GOTO LRBLVAL
I KILL DIC,DA
WRITE !
SET DIC="^LAB(66.2,"
SET DIC(0)="AEQM"
DO ^DIC
if Y<1
GOTO END
SET DA=+Y
DO EN^DIQ
GOTO I
+1 ;
P KILL DIC,DA
SET L=0
SET DIC="^LAB(66.2,"
SET FLDS="[CAPTIONED]"
SET BY="[LRBLVAL]"
GOTO EN1^DIP
+1 QUIT
+2 ;
END DO V^LRU
QUIT
