Routine: IBCDC

Information

IBCDC ;ALB/ARH - AUTOMATED BILLER (CLEAN-UP) ; 9/5/93

Source file <IBCDC.m>

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE ^DIK
Integrated Billing	1	($$COMM1,$$FINDB,COMM2,SETCOMM)^IBCDE

Package	Total	Caller Graph
Integrated Billing	6	IBCC IBCCC2 IBCD IBCF11 IBCF2 IBCF3

Name	Comments	DBIA/ICR reference
SCTB	;set Claims Tracking/Bill file (356,.17) entries (causes .17 set)
EABD(DA,EABD)	; set EABD (356,.17) of claims tracking entry DA to the value in EABD
COPYB(IFN,IFN1)	;function for copy a bill, adds comment to comment file (362.1) for bill and event
BSTATQ
BSTAT(IFN)	; updates certain files/fields based on the status of the bill passed in
FBILLE
SEABD	;reset EABD on events
FBILL(IFN)	;returns all events associated with a bill (356.399), string of event IFN's separated by "^"
CTB(TRN,IFN)	; set Claims Tracking/Bill file (356.399) entries which also sets (356,.17)
COPYBE

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	BSTAT+5, COPYB+2, FBILL+1
^IBT(356 - [#356]	EABD+1, BSTAT+7
^IBT(356.399 - [#356.399]	CTB+2, FBILL+2
^TMP("IBCE"	IBCDC+5
^TMP("IBEABD"	IBCDC+4, SEABD+2, SEABD+3
^TMP("IBILL"	IBCDC+6, SCTB+2, SCTB+3

Name	Field # of Occurrence
COMM	COPYB+2~, COPYB+3*, COPYB+4
DA	EABD~, EABD+1, BSTAT+7!, BSTAT+9!
DD	CTB+2!
DIC	CTB+2*, CTB+3!
DIC("DR"	CTB+2*
DIC(0	CTB+2*
DIE	EABD+1~, EABD+2, CTB+1~, BSTAT+7!
DIK	BSTAT+9*!
DO	CTB+2!
DR	EABD+1~, EABD+2, CTB+1~, BSTAT+7!
DTOUT	EABD+1~, CTB+1~
EABD	EABD~, EABD+1*, EABD+2
IBEABD	SEABD+3*, SEABD+4!
IBI	BSTAT+5~, BSTAT+6, BSTAT+8, COPYB+2~, COPYB+4*
IBIFN	SCTB+3*, SCTB+4!
IBTRN	SEABD+2, SEABD+3, SEABD+4!, SCTB+2, SCTB+3, SCTB+4!
IBX	BSTAT+5~, BSTAT+6, BSTAT+8, COPYB+2~, COPYB+3, COPYB+4
IBX1	COPYB+2~, COPYB+4*
IBY	BSTAT+5~, BSTAT+8, BSTAT+9, COPYB+2~, COPYB+4
IFN	CTB~, CTB+1, CTB+2, BSTAT~, BSTAT+5, BSTAT+6, BSTAT+7, BSTAT+8, COPYB~, COPYB+2 , COPYB+3, FBILL~, FBILL+1*, FBILL+2
IFN1	COPYB~, COPYB+4
STAT	BSTAT+5~*, BSTAT+6, BSTAT+8
TRN	CTB~, CTB+1, CTB+2, BSTAT+5~, BSTAT+6*, BSTAT+7
U	BSTAT+5, BSTAT+6, BSTAT+7, BSTAT+8, COPYB+3, COPYB+4, FBILL+2
X	EABD+1~, CTB+1~, CTB+2, CTB+3!, BSTAT+5~, COPYB+2~, FBILL+1~, FBILL+2*, FBILLE
Y	EABD+1~, CTB+1~, CTB+3!, BSTAT+5~, COPYB+2~, FBILL+1~, FBILL+2*