|
Last change
on this file since 1538 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
508 bytes
|
| Line | |
|---|
| 1 | FBAAPII ;AISC/GRR-PHARMACY INVOICE DISPLAY ;03JUN86
|
|---|
| 2 | ;;3.5;FEE BASIS;;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | RD W !! S DIC="^FBAA(162.1,",DIC(0)="AEQM" D ^DIC G Q:X=""!(X="^"),RD:Y<0 S DA=+Y
|
|---|
| 5 | S VAR="DA",VAL=DA,PGM="START^FBAAPII" D ZIS^FBAAUTL G:FBPOP Q S:IO=IO(0) FBAANQ=1
|
|---|
| 6 | START U IO W:$E(IOST,1,2)["C-" @IOF S DIC="^FBAA(162.1,",DIC(0)="AEQM",DR="0;RX" D EN^DIQ
|
|---|
| 7 | Q D CLOSE^FBAAUTL K DIC,DIE,DR,DA,X,Y,A,D0,DQ,DL,DRX,DX,PGM,S,VAL,VAR
|
|---|
| 8 | I $D(FBAANQ) K FBAANQ G RD
|
|---|
| 9 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
