FBCHCO.m

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 ---FBCHCO   414     printed  Apr 09, 2024@21:04:39                                                                                                                                                                                                       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