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
 
--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFBAARP   197     printed  Sep 23, 2025@19:32:32                                                                                                                                                                                                       Page 2
FBAARP    ;AISC/GRR-FEE BASIS REIMBURSEMENT PAYMENT ;22APR86
 +1       ;;3.5;FEE BASIS;;JAN 30, 1995
 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.
 +3        SET FBAAPTC="R"
           SET FBINTOT=0
           GOTO ^FBAACO