Routine: IBCU64

Information

IBCU64 ;ALB/ARH - AUTOMATED BILLER (INPT CONT) ; 8/6/93

Source file <IBCU64.m>

Package	Total	Caller Graph
Integrated Billing	9	IBXX10 IBXX11 ^DGCR(399 IBCD5 IBCU6 IBCU82 IBXSC6 IBXSC7 IBXSC72

Name	Comments	DBIA/ICR reference
LOS1Q
LOSQ
ADQ
ADME
ADM(DFN,IBDT)	; -- send back adm dt for dfn on vaindt (or now) if any, 0 otherwise
AD(DGPMCA)	; returns inpatient admit and discharge date, DFN, PTF, Facility Treating Specialty, if one/both don't exist "0^0"
DUPCHKI(DT1,DT2,PTF,RTG,DISP,IFN)	;Check for duplicate billing of inpt admission - checks for overlapping date range on other
LOS1(IFN)	; returns length of stay for a bill's date range
DCIQ
LOS(DGBDT,DGEDT,BTF,DGPMCA)	; calculate the inpatient length of stay for a given time period

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?10,$P(Y,U,2) Line Location: DCIQ+0

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	LOS1+1, LOS1+5, DUPCHKI+11, DUPCHKI+14, DUPCHKI+15, DUPCHKI+16, DUPCHKI+18
^DGCR(399.3 - [#399.3]	DUPCHKI+19
^DGPM - [#405]	AD+2, AD+3, ADM+6, ADM+7
^DGPM("AMV1"	LOS1+4
^DGPM("ATID1"	ADM+5, ADM+6
^DGPT - [#45]	LOS1+3
^DPT - [#2]	ADM+3

Name	Field # of Occurrence
%	ADM+2~
BTF	LOS~, LOS+7
DFN	LOS1+1~, LOS1+3, LOS1+4, LOS+6~, LOS+9, ADM~, ADM+3, ADM+5, ADM+6
DGA	LOS+6~
DGADM	LOS1+1~, LOS1+3, LOS1+4, LOS+6~, LOS+9*, LOS+11
DGBDT	LOS~, LOS+6, LOS+7, LOS+8, LOS+11*, LOS+12
DGEDT	LOS~, LOS+6, LOS+7, LOS+8, LOS+11, LOS+12
DGMVTP	LOS+6~
DGPMCA	LOS1+1~, LOS1+4, LOS1+6, AD~, AD+1, AD+2, LOS~, LOS+9
DGREC	LOS+6~, LOS+13
DISP	DUPCHKI~, DCIQ
DT1	DUPCHKI~, DUPCHKI+13, DUPCHKI+14, DUPCHKI+18
DT2	DUPCHKI~, DUPCHKI+13, DUPCHKI+14, DUPCHKI+18
IBADM	ADM+2~, ADM+6*
IBADT1	ADM+2~, ADM+6*, ADM+7, ADM+9
IBADT2	ADM+2~, ADM+4, ADM+7, ADM+8*, ADM+9
IBDIS	ADM+2~, ADM+7*
IBDISDT	LOS+6~, LOS+9*, LOS+11
IBDT	ADM~, ADM+3*, ADM+4, ADM+9
IBINPT	ADM+2~, ADM+3, ADM+5, ADM+9, ADME
IBNDT	ADM+2~, ADM+4, ADM+5, ADM+6
IBNOW	ADM+2~*, ADM+3, ADM+4
IBX	LOS+6~, LOS+8, LOS+12, LOS+13, LOSQ
IBY	LOS+6~, LOS+9*
IFN	LOS1~, LOS1+1, LOS1+5, DUPCHKI~, DUPCHKI+11*, DUPCHKI+15
IFN2	DUPCHKI+11~, DUPCHKI+15*, DUPCHKI+16, DUPCHKI+18, DUPCHKI+19
PTF	DUPCHKI~, DUPCHKI+12*, DUPCHKI+14, DUPCHKI+15
RTG	DUPCHKI~, DUPCHKI+12*, DUPCHKI+17
U	LOS1+1, LOS1+3, LOS1+6, AD+3, LOS+9, DUPCHKI+12, DUPCHKI+13, DUPCHKI+16, DUPCHKI+17, DUPCHKI+18 , DUPCHKI+19, DCIQ, ADM+7
X	LOS1+1~, LOS1+5, LOS1+6, LOS1Q, AD+1~, AD+3, ADQ, LOS+6~, DUPCHKI+11~, DUPCHKI+12 , DUPCHKI+18*, ADM+2~
X1	DUPCHKI+11~, DUPCHKI+13, DUPCHKI+16, DUPCHKI+17, DUPCHKI+19
Y	LOS1+1~, LOS1+3, LOS1+6, AD+1~, AD+2, AD+3, DUPCHKI+11~, DUPCHKI+15, DUPCHKI+19, DCIQ , DCIQ+1, ADM+2~