Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FBAAPIN1

FBAAPIN1.m

Go to the documentation of this file.
  1. FBAAPIN1 ;AISC/GRR-INVOICE DISPLAY CONTINUED ;04APR90
  1. ;;3.5;FEE BASIS;;JAN 30, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. K ^UTILITY($J,"W") S DIWL=3,DIWF="WC79"
  1. 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
  1. Q:FBAAOUT
  1. D ^DIWW:$D(FBXX) K FBXX
  1. Q
  1. HELP I X=" " W !,*7,"Answer must be numeric" Q
  1. W @IOF S DIC="^FBAAC(",DIC(0)="",D="C",DZ="??" D DQ^DICQ
  1. Q