|
Last change
on this file since 1093 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
507 bytes
|
| Line | |
|---|
| 1 | FBAAPIN1 ;AISC/GRR-INVOICE DISPLAY CONTINUED ;04APR90
|
|---|
| 2 | ;;3.5;FEE BASIS;;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | K ^UTILITY($J,"W") S DIWL=3,DIWF="WC79"
|
|---|
| 5 | F FBRR=0:0 S FBRR=$O(@(FBFILE_FBRR_")")) Q:FBRR'>0 S FBXX=^(FBRR,0),X=FBXX D ^DIWP I ($Y+5)>IOSL S DIR(0)="E" D ^DIR K DIR S:'Y FBAAOUT=1 Q:FBAAOUT D HED^FBAAPIN
|
|---|
| 6 | Q:FBAAOUT
|
|---|
| 7 | D ^DIWW:$D(FBXX) K FBXX
|
|---|
| 8 | Q
|
|---|
| 9 | HELP I X=" " W !,*7,"Answer must be numeric" Q
|
|---|
| 10 | W @IOF S DIC="^FBAAC(",DIC(0)="",D="C",DZ="??" D DQ^DICQ
|
|---|
| 11 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
