source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBAAPIN1.m@ 1638

Last change on this file since 1638 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 507 bytes
Line 
1FBAAPIN1 ;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
9HELP 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.