Last change
on this file since 1593 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
496 bytes
|
Rev | Line | |
---|
[613] | 1 | FBAABS ;AISC/GRR-DISPLAY BATCH STATUS ;02MAY86
|
---|
| 2 | ;;3.5;FEE BASIS;;JAN 30, 1995
|
---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
| 4 | BT K FBAANQ W !! S DIC="^FBAA(161.7,",DIC(0)="AEQM" D ^DIC G Q:X="^"!(X=""),BT:Y<0 S DA=+Y
|
---|
| 5 | S VAR="DA",VAL=DA,PGM="START^FBAABS" D ZIS^FBAAUTL G Q:FBPOP S:IO=IO(0) FBAANQ=1
|
---|
| 6 | START U IO W:$E(IOST,1,2)="C-" @IOF S DIC="^FBAA(161.7,",DIC(0)="AEQM",DR="0;ST" D EN^DIQ
|
---|
| 7 | G:$D(FBAANQ) BT
|
---|
| 8 | Q D CLOSE^FBAAUTL K DIC,DA,DR,X,Y,FBAANQ,A,D0,DL,DRX,PGM,S,VAL,VAR Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.