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