FBPAID1 ;WOIFO/SAB - SERVER ROUTINE TO UPDATE PAYMENTS CON'T ;1/11/2012
Source file <FBPAID1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PARSE | ;set-up variables for payment record called from FBPAID
; FBPROG = 3 for Outpatient (file 162) ; = T for Travel (file 162) ; = 5 for Pharmacy (file 162.1) ; = 9 for Inpatient (file 162.5) ; = $E(XMRG,7) fee program and effected file ; FBACT = $E(XMRG,8) type of activity ; FBIEN(x)=$E(XMRG,9,38) IEN for payment record to update ; FBCKNUM= $E(XMRG,39,46) check number ; old format (when total length = 77) ; FBCKDT = $E(XMRG,47,52) check date ; FBINAMT= $E(XMRG,53,60) interest amount ; FBXDT = $E(XMRG,61,66) cancel date ; FBRCOD = $E(XMRG,67) reason code ; FBXCOD = $E(XMRG,68) cancel code ; FBDAMT = $E(XMRG,69,76) disbursed amount ; new format (when total length = 82) ; FBCKDT = $E(XMRG,47,54) check date ; FBINAMT= $E(XMRG,55,62) interest amount ; FBXDT = $E(XMRG,63,70) cancel date ; FBRCOD = $E(XMRG,71) reason code ; FBXCOD = $E(XMRG,72) cancel code ; FBDAMT = $E(XMRG,73,81) disbursed amount ; FBBRTG = $E(XMRG,82,90) bank routing number ;HIPAA 5010 P121 ; FBBACC = $E(XMRG,91,107) bank account number ;HIPAA 5010 P121 ; FBBNAM = $E(XMRG,108,138)bank name ;HIPAA 5010 P121 ; FBAMT = Amount paid out of payment record |
|
| BUL | ;create server bulletin message
|
|
| DATE(X) | ;pass in 'X'=date in yymmdd format and return date in
|
|
| DATE4(X) | ;pass in 'X'=date in yyyymmdd format and return date in
|
|
| CHKMOVE | ;check if payment line item was moved by patient merge process
; input ; FBPROG - fee program (3 or "T") ; FBIEN - ien of payment (from austin) ; FBIEN() - ien(s) of higher level entries (1 for next higher, etc.) ; output ; FBIEN may be changed to reflect current value ; FBIEN() may be changed to reflect current value |
|
| IPACCHK(FBPROG,FBIEN) | ; check if payment is an IPAC payment (FB*3.5*123)
; Function value is 1 if the payment is an IPAC payment, 0 otherwise ; This is determined by the existence of a pointer value to file 161.95. |
|
| IPACKX | ;
|
