Routine: IBTUTL3

Information

IBTUTL3 ;ALB/AAS - CLAIMS TRACKING UTILITY ROUTINE ; 21-JUN-93

Source file <IBTUTL3.m>

Package	Total	Caller Graph
Integrated Billing	13	IBTODD IBTOSUM1 IBTOUR2 IBTRC IBTRC1 IBTRD IBTRD1 IBTRE IBTRKR IBTUTL IBTUTL2 IBTUTL4 ^IBT(356.2

Name	Comments	DBIA/ICR reference
ADDC(IBTRCDT,IBTRN)	; -- add new entry to reviews file, ibt(356.1
ADDCQ
HELP(IBTRC)	; -- dd help for dates authorized and denied.
COMQ
ARRAYQ
MSG(DFN)	; -- set message for display in lower bar
DAY(X,X1,IBTRN)	; -- compute number of days approved for tracking id
DAYQ
WRITE	; -- write extended help
OTBQ
OTB(DFN)	; -- did patient ever have other type of bill
MSGQ
SCP(DFN)	; -- is patient sc, and percent
ARRAY(IBTRC)	; -- see if other reviews have dates
COM(IBTRCDT,IBTRN,IBX,IBTRV)	; -- add initial communication entry

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: WRITE+3
Function Call: WRITE	Prompt: !,"No Authorized or Denied Days on file for this Visit!",!! Line Location: WRITE+4
Function Call: WRITE	Prompt: !,"Care Authorized for entire Admission on ",$$FMTE^XLFDT(+$G(^IBT(356.2,+ARRAY,0))),"." Line Location: WRITE+7
Function Call: WRITE	Prompt: !,"Care Denied for entire Admission on ",$$FMTE^XLFDT(+$G(^IBT(356.2,+ARRAY(0),0))),"." Line Location: WRITE+8
Routine Call	DIE Line Location: COM+17

FileNo	Call Tags
^IBT(356.2 - [#356.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	WRITE+6
^IBE(356.11 - [#356.11]	COM+9, COM+10
^IBT(356 - [#356]	DAY+11, OTB+2, OTB+4
^IBT(356.2 - [#356.2]	COM+15, COM+18, ARRAY+4, ARRAY+5, ARRAY+6, ARRAY+7, ARRAY+8, ARRAY+9, ARRAY+10, ARRAY+11 , WRITE+7, WRITE+8, WRITE+12

Name	Field # of Occurrence
%DT	ADDC+4~
ARRAY	ARRAY+3!, ARRAY+8*, HELP+2~, WRITE+4, WRITE+7
ARRAY(	ARRAY+10, ARRAY+11, WRITE+10, WRITE+11, WRITE+12
ARRAY(0	ARRAY+9*, WRITE+8
DA	COM+6~, COM+12*, COM+17!
DD	ADDC+4~
DFN	COM+16, SCP~, OTB~, OTB+2, OTB+4, MSG~, MSG+2
DIC	ADDC+4~, ADDC+5*, COM+6~
DIC("DR"	ADDC+6*
DIC(0	ADDC+5*
DIE	ADDC+4~, COM+6~, COM+12*, COM+17!
DIFF	DAY+6~, DAY+8, DAY+10, DAY+17, DAY+18*, DAYQ
DLAYGO	ADDC+4~, ADDC+5*
DO	ADDC+4~
DR	ADDC+4~, COM+6~, COM+16*, COM+17!
DT	COM+13, COM+14, DAY+13
DUZ	COM+16
I	OTB+1~, OTB+3, OTB+4, OTB+6, ARRAY+3~, ARRAY+6*, ARRAY+7, ARRAY+8, ARRAY+9, ARRAY+10 , ARRAY+11
>> IBBEG	DAY+13*, DAY+14
IBBET	DAY+6~
IBCDT	DAY+6~, DAY+12*, DAY+13, DAY+17, DAY+18
IBCNS	ARRAY+5*, ARRAY+7, HELP+2~, WRITE+6
IBEND	DAY+6~, DAY+13*, DAY+14
IBMAX	DAY+6~, DAY+14*, DAY+18
>> IBNEW	ADDC+8*
IBNXRV	COM+6~, COM+13, COM+14, COM+16
IBOTB	MSG+1~, MSG+2*, MSG+4
IBSCP	MSG+1~, MSG+2*, MSG+3
IBTRC	ADDC+8*, COM+10, COM+12, COM+15, COM+18, ARRAY~, ARRAY+2, ARRAY+4, ARRAY+5, HELP~ , HELP+2
IBTRCDT	ADDC~, ADDC+7, COM~, COM+7, COM+14
IBTRN	ADDC~, ADDC+6, COM~, COM+7, DAY~, DAY+11, DAY+12, DAY+17, ARRAY+3~, ARRAY+4* , ARRAY+6
IBTRV	COM~, COM+16
IBX	COM~, COM+9
IBXIFN	COM+6~, COM+9, COM+10, COM+16
J	OTB+1~
M	WRITE+3~, WRITE+10*, WRITE+11, WRITE+12
N	WRITE+3~, WRITE+10*, WRITE+11, WRITE+12
VAEL	SCP+1~
VAEL(3	SCP+2, SCP+3
X	ADDC+7*, COM+6~, DAY~, DAY+7, DAY+10, DAY+17, WRITE+3~
X1	DAY~, DAY+8, DAY+9, DAY+10, DAY+17
Y	ADDC+8, COM+6~, SCP+2, SCP+3, SCP+4, OTB+1~, OTB+5, OTB+6, OTBQ, MSG+1~ , MSG+3, MSG+4, MSGQ
>> ZTQUEUED	WRITE+2