Routine: IBCD4

Information

IBCD4 ;ALB/ARH - AUTOMATED BILLER (ADD NEW BILL - GATHER DX AND PROCEDURES) ; 9/5/93

Source file <IBCD4.m>

Package	Total	Call Graph
Kernel	1	$$FMTE^XLFDT
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Integrated Billing	3	IBCD2 IBCD3 IBCD5

Name	Comments	DBIA/ICR reference
IPRC(PTF,DT1,DT2)	;find 401 and 601 procedures for a PTF record
GVARSE
IDX(PTF,DT1,DT2)	;find all 501 movement Diagnosis' for PTF record, check for billable bedsection and SC treatement
CHKSYS()	;various checks to determine if bill can be created, returns true if passes XXXXXX
GVARS(IFN)	;get data on bill IFN
IPRCE
CHKSYSE
IDXE
RXRF(PIFN,RIFN,IBDT)	; returns data on refill on date for rx (RX # ^ DRUG ^ DAYS SUPPLY ^ REFILL DATE ^ QTY ^ NDC #)
CHK()	;other checks

Name	Field # of Occurrence
$$SITE^VASITE	CHKSYS+5
$$FMTE^XLFDT	IDX+13, IDX+14

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	GVARS+1, GVARS+2
^DGPT - [#45]	IDX+4, IDX+6, IDX+7, IDX+9, IDX+11, IDX+12, IPRC+3, IPRC+5, IPRC+8
^DIC(36 - [#36]	GVARS+3
^DIC(42.4 - [#42.4]	IDX+14
^DPT - [#2]	CHK+1
^IBE(350.9 - [#350.9]	CHKSYS+4
^PSDRUG - [#50]	RXRF+3
^PSRX - [#52]	RXRF+1, RXRF+2
^TMP("IBDX"	IDX+4!, IDX+10, IDX+15
^TMP("IBIPRC"	IPRC+3!, IPRC+4, IPRC+7, IPRC+10*

Name	Field # of Occurrence
>> DGINPAR	GVARS+3*
DT	IDX+9, IDX+12
DT1	IDX~, IDX+6, IDX+7, IDX+12, IPRC~, IPRC+4*, IPRC+5, IPRC+8
DT2	IDX~, IDX+9, IDX+12, IPRC~, IPRC+4, IPRC+5, IPRC+8
I	CHKSYS+3~, GVARS+1~, GVARS+2*
>> IB(	GVARS+2*
>> IB("M"	GVARS+3
>> IBBS	IDX+11, IDX+14, IDX+17, IDX+18
>> IBCNT	IDX+11, IDX+13, IDX+14, IDX+16, IDX+17*, IDX+18
IBDA	IDX+4~, IDX+11*, IDX+12
>> IBDFN	CHK+1
IBDT	RXRF~, RXRF+2
IBI	IDX+4~, IDX+15, IPRC+3~, IPRC+6, IPRC+9*
IBMDT	IDX+4~, IDX+12*, IDX+13, IDX+14
IBMSG	IDX+4!
IBMSG(	IDX+13, IDX+14, IDX+16, IDX+17, IDX+18*
>> IBSC	IDX+11, IDX+13, IDX+16, IDX+18
IBT	IDX+4!, IDX+11, IDX+13, IDX+16, IDX+17, IDX+18*
IBX	IDX+4~, IDX+6, IDX+7, IDX+9, IDX+12, IDX+13, IDX+14, IDX+15, IPRC+3~, IPRC+5* , IPRC+8*
IBY	IDX+4~, IDX+15, IPRC+3~, IPRC+5, IPRC+6, IPRC+7, IPRC+8*, IPRC+9, IPRC+10
IBZ	IDX+4~, IDX+15, IPRC+3~, IPRC+6, IPRC+7, IPRC+9*, IPRC+10
IFN	GVARS~, GVARS+1, GVARS+2
PIFN	RXRF~, RXRF+1, RXRF+2
PLN	RXRF+1~*, RXRF+3
PTF	IDX~, IDX+4, IDX+6, IDX+7, IDX+9, IDX+10, IDX+11, IDX+12, IPRC~, IPRC+3 , IPRC+4, IPRC+5, IPRC+8
RIFN	RXRF~, RXRF+2*
>> RLN	RXRF+2*, RXRF+3
U	IDX+6, IDX+12, IDX+13, IDX+14, IDX+15, IPRC+6, IPRC+9, RXRF+3, CHKSYS+4, CHKSYS+5 , GVARS+3
X	RXRF+1~, RXRF+3, RXRF+4, CHK+1~, CHK+2, CHKSYS+3~, CHKSYS+4, CHKSYS+5, CHKSYSE, GVARS+1* , GVARSE
Y	RXRF+1~, CHKSYS+3~