85 lines
2.3 KiB
Plaintext
85 lines
2.3 KiB
Plaintext
compile insert ACD_EQU
|
|
* setup constants for ar_cash_detail file
|
|
EQU PAT.ID$ TO 1
|
|
EQU TOT.CHARGES$ TO 2
|
|
EQU AR.SEC.INS$ TO 3
|
|
EQU AR.SEC.INSURED.NO$ TO 4
|
|
EQU DT.POSTED$ TO 5
|
|
EQU AR.DOS$ TO 6
|
|
EQU AR.ON.SITE.PMT$ TO 7
|
|
EQU AR.CHK.ON.SITE$ TO 8
|
|
EQU TOT.BILLED$ TO 9
|
|
*
|
|
EQU AR.ENC.TYPE$ TO 10
|
|
EQU INV.DATE$ TO 11
|
|
EQU AR.INSURED.NO$ TO 12
|
|
EQU BILL.CODE$ TO 13
|
|
EQU PRI.INS.NO$ TO 14
|
|
EQU INV.AMT$ TO 15
|
|
EQU XACT.PST.PERIOD$ TO 16
|
|
EQU INV.AMT.PD$ TO 17
|
|
EQU INV.DT.PD$ TO 18
|
|
EQU INV.CHK.NO$ TO 19
|
|
*
|
|
EQU AR.ADJ.DT$ TO 20
|
|
EQU AR.ADJ.ACCT$ TO 21
|
|
EQU AR.ADJ.AMT$ TO 22
|
|
*
|
|
EQU ASSIGNMENT$ TO 23
|
|
EQU ATTN.PHYS$ TO 24
|
|
EQU PAT.PHYS$ TO 25
|
|
EQU PAT.PMT.STATUS$ TO 26
|
|
EQU COMPANY$ TO 27
|
|
EQU AR.I.BAL$ TO 28
|
|
EQU AR.P.BAL$ TO 29
|
|
EQU AR.PST.NO$ TO 30
|
|
EQU AR.BEG.BAL$ TO 31
|
|
EQU ENC.PST.PER$ TO 32
|
|
EQU AR.CR.NO$ TO 33
|
|
EQU AR.BF$ TO 34
|
|
*
|
|
EQU AR.PAT.PAID$ TO 35
|
|
EQU AR.INS.PAID$ TO 36
|
|
EQU AR.INS.ID$ TO 37
|
|
|
|
EQU ENC.PST.NO$ TO 38
|
|
EQU WH$ TO 39
|
|
|
|
EQU BILL.DT$ TO 45
|
|
EQU BILL.RUN.NO$ TO 46
|
|
|
|
|
|
* 11/18/02 rmc, indicator used to track future reversal of cash posting
|
|
|
|
Equ Rev_Ind$ to 55
|
|
Equ Rev_Amt$ to 56
|
|
Equ Rev_Adj$ to 57
|
|
Equ Rev_Wh$ to 58
|
|
|
|
|
|
* 4/30/02 track insurance filing for this encounter
|
|
|
|
Equ Filed_Ins_ID$ To 50 ;* MV
|
|
Equ Filed_Ins_DT$ To 51 ;* MV
|
|
|
|
Equ Filed_Ins_Method$ to 52 ;* MV
|
|
*HCFA-PAPER
|
|
*HCFA_ECS
|
|
*UB92-PAPER
|
|
*UB92-ECS
|
|
|
|
Equ Filed_Ins_Amt$ to 52 ;* MV, Amt filed with Insurance
|
|
Equ Filed_Ins_Run_No$ to 54 ;* MV, the Run Number for this billing run.
|
|
|
|
|
|
* 08/29/03 jz, add to track who, how, when billed
|
|
|
|
Equ AR.BILLING$ to 59
|
|
Equ AR.DT_BILLING$ to 60
|
|
Equ AR.BILLED_TO_ID$ to 61
|
|
|
|
* 10/07/2003 jz add amt_billed
|
|
Equ AR.INVOICED_AMT$ to 62
|
|
|
|
*** track insurance filing
|