- LRBLVAL ; IHS/DIR/FJE - OPTION VALIDATOR 13:18 ; [ 3/9/94 ]
- ;;5.2;LR;;NOV 01, 1997
- ;
- ;;5.2;LAB SERVICE;;Sep 27, 1994
- 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
- LRBLVAL ; IHS/DIR/FJE - OPTION VALIDATOR 13:18 ; [ 3/9/94 ]
- +1 ;;5.2;LR;;NOV 01, 1997
- +2 ;
- +3 ;;5.2;LAB SERVICE;;Sep 27, 1994
- +4 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