Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LRBLVAL

LRBLVAL.m

Go to the documentation of this file.
  1. LRBLVAL ; IHS/DIR/FJE - OPTION VALIDATOR 13:18 ; [ 3/9/94 ]
  1. ;;5.2;LR;;NOV 01, 1997
  1. ;
  1. ;;5.2;LAB SERVICE;;Sep 27, 1994
  1. 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
  1. 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
  1. ;
  1. P K DIC,DA S L=0,DIC="^LAB(66.2,",FLDS="[CAPTIONED]",BY="[LRBLVAL]" G EN1^DIP
  1. Q
  1. ;
  1. END D V^LRU Q