VistA-FOIAVistA/r/FEE_BASIS-FB/FBAARP.m

5 lines
193 B
Mathematica

FBAARP ;AISC/GRR-FEE BASIS REIMBURSEMENT PAYMENT ;22APR86
;;3.5;FEE BASIS;;JAN 30, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
S FBAAPTC="R",FBINTOT=0 G ^FBAACO