FBCHCO ;AISC/DMK-CONTRACT HOSPITAL OUTPATIENT PAYMENTS ;16MAY90
;;3.5;FEE BASIS;;JAN 30, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
EN583 ;entry point for 583
S FBCHCO=1 D ^FBAACO
Q K FB583,FB7078,FBCHCO,FBCNUM,FBCONT,FBD1,FBLOC,FBPOP,FBPSA,FBSITE,FBVEN,PRC,PRCSI,FBFLG,FBSW,FBTV,PSA,TBN,XCNP,X,Y Q
;
PRBT ;entry point for patient reimbursement
S FBAAPTC="R"
G FBCHCO
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFBCHCO 414 printed Nov 22, 2024@17:07:44 Page 2
FBCHCO ;AISC/DMK-CONTRACT HOSPITAL OUTPATIENT PAYMENTS ;16MAY90
+1 ;;3.5;FEE BASIS;;JAN 30, 1995
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
EN583 ;entry point for 583
+1 SET FBCHCO=1
DO ^FBAACO
Q KILL FB583,FB7078,FBCHCO,FBCNUM,FBCONT,FBD1,FBLOC,FBPOP,FBPSA,FBSITE,FBVEN,PRC,PRCSI,FBFLG,FBSW,FBTV,PSA,TBN,XCNP,X,Y
QUIT
+1 ;
PRBT ;entry point for patient reimbursement
+1 SET FBAAPTC="R"
+2 GOTO FBCHCO
