LRBLVAL.m

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 ---LRBLVAL   495     printed  Apr 09, 2024@21:16:23                                                                                                                                                                                                      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