Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
470 bytes
|
Rev | Line | |
---|
[613] | 1 | LRBLVAL ;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
|
---|
| 5 | 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
|
---|
| 6 | ;
|
---|
| 7 | P K DIC,DA S L=0,DIC="^LAB(66.2,",FLDS="[CAPTIONED]",BY="[LRBLVAL]" G EN1^DIP
|
---|
| 8 | Q
|
---|
| 9 | ;
|
---|
| 10 | END D V^LRU Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.