Routine: IBTODD1

Package	Total	Call Graph
Integrated Billing	3	$$DAT1^IBOUTL (SUBH,SUBT,SUM)^IBTODD2 $$EXPAND^IBTRE
VA FileMan	2	COMMA^%DTC DT^DICRW
Kernel	1	($$FMDIFF,$$FMTE)^XLFDT
List Manager	1	PAUSE^VALM1
Registration	1	PID^VADPT

Package	Total	Caller Graph
Integrated Billing	10	IBTODD IBTODD2 IBTOSUM1 IBTOUR2 IBTOUR4 IBTRC3 IBTRE IBTRE5 IBTRE6 IBTUTL3

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	; -- print data ; -- ^tmp($j,"ibtodd",event type,primary sort,secondary sort,ibtrc)=DFN ^ attending ^ treating specialty ^ service ^ ^ billing rate
PRINTQ
ONE	; -- print one entry ; -- ^tmp($j,"ibtodd",event type,primary sort,secondary sort,ibtrc)=DFN ^ attending ^ treating specialty ^ service ^ ^ billing rate
L1
L2
ONEQ
LO	; -- print one line for non-inpatient
CNTS	; -- develop summary data
HDR	; -- Print header for billing report
HDRO	; -- Print Header for non-Inpatient denials
CDT(IBTRN)	; -- compute dates of care
APPEAL(IBTRC)	; -- Find appeals
AP(IBTRC)	; -- count days approved
CHRG(D)	; return charge for output

External References

Name	Field # of Occurrence
COMMA^%DTC	CHRG+1
DT^DICRW	%
$$DAT1^IBOUTL	L1+2, L1+5, L2, L2+1
SUBH^IBTODD2	PRINT+11, ONE+8
SUBT^IBTODD2	PRINT+10, PRINT+15
SUM^IBTODD2	PRINT+18
$$EXPAND^IBTRE	L1+9, L1+12, L2+3, L2+5
PID^VADPT	ONE+9
PAUSE^VALM1	HDR+2
$$FMDIFF^XLFDT	AP+5
$$FMTE^XLFDT	LO+3, HDR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Denials Found in Date Range." Line Location: PRINT+7
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),"^"),1,19),?22,VA("BID") Line Location: L1+0
Function Call: WRITE	Prompt: ?28,$$DAT1^IBOUTL(+IBCDT\1) Line Location: L1+2
Function Call: WRITE	Prompt: " to" Condition for execution: $P(IBCDT,"^",2) Line Location: L1+2
Function Call: WRITE	Prompt: ?40,$J($P(IBDATA,"^",2),8) Line Location: L1+3
Function Call: WRITE	Prompt: ?54,"ALL" Line Location: L1+4
Function Call: WRITE	Prompt: ?54,$$DAT1^IBOUTL($P(IBTRCD,"^",15),"2P") Line Location: L1+5
Function Call: WRITE	Prompt: " to" Condition for execution: $P(IBTRCD,"^",16) Line Location: L1+5
Function Call: WRITE	Prompt: " (",$P(IBDATA,"^",7),")" Line Location: L1+6
Function Call: WRITE	Prompt: ?98,$S(+$P(IBAPL,"^",2):"YES",1:"NO") Line Location: L1+10
Function Call: WRITE	Prompt: ?103,$J(+IBAPL,8) Line Location: L1+11
Function Call: WRITE	Prompt: ?116,$E($$EXPAND^IBTRE(42.4,3,$P(IBDATA,"^",4)),1,4) Line Location: L1+12
Function Call: WRITE	Prompt: "UNKN" Condition for execution: $P(IBDATA,"^",4)="" Line Location: L1+12
Function Call: WRITE	Prompt: ?120,$$CHRG(+$P(IBDATA,"^",6)) Line Location: L1+13
Function Call: WRITE	Prompt: !?28,$$DAT1^IBOUTL($P(IBCDT,"^",2)\1,"2P") Line Location: L2+0
Function Call: WRITE	Prompt: ?54,$$DAT1^IBOUTL($P(IBTRCD,"^",16),"2P") Line Location: L2+1
Function Call: WRITE	Prompt: " (",$P(IBDATA,"^",7),")" Line Location: L2+2
Function Call: WRITE	Prompt: ?68,$E($$EXPAND^IBTRE(356.212,.01,$G(IBC(2))),1,25) Line Location: L2+3
Function Call: WRITE	Prompt: !?70,$E($$EXPAND^IBTRE(356.212,.01,$G(IBC(IBDEN))),1,25) Line Location: L2+5
Function Call: WRITE	Prompt: ! Line Location: ONEQ+0
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),"^"),1,19),?22,VA("BID") Line Location: LO+1
Function Call: WRITE	Prompt: ?28,$$FMTE^XLFDT(+IBCDT,2) Line Location: LO+3
Function Call: WRITE	Prompt: ?50,$P(IBTRCD,"^",26) Line Location: LO+4
Function Call: WRITE	Prompt: ?78,$S(+$P(IBAPL,"^",2):"YES",1:"NO") Line Location: LO+5
Function Call: WRITE	Prompt: ?88,$S(+IBAPL:"YES",1:"NO") Line Location: LO+6
Function Call: WRITE	Prompt: ?98,$$CHRG(+$P(IBDATA,"^",6)) Line Location: LO+7
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: ?(IOM-33),"Page ",IBPAG," ",IBHDT Line Location: HDR+6
Function Call: WRITE	Prompt: !!,?28,"Dates of",?54,"Dates",?103,"Days Approved" Line Location: HDR+8
Function Call: WRITE	Prompt: !,"Patient",?22,"PtID",?28,"Care",?40,"Attending",?54,"Denied",?68,"Denial Reason",?94,"Appealed",?105,"on Appeal",?116,"SRVS",?125,"Amount" Line Location: HDR+9
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-") Line Location: HDR+10
Function Call: WRITE	Prompt: !!,"Patient",?22,"PtID",?28,"Episode Date",?50,"Outpatient Treatment",?75,"Appealed",?85,"Approved",?103,"Amount" Line Location: HDRO+1
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-") Line Location: HDRO+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	CDT+2, CDT+4
^DPT - [#2]	L1, LO+1
^IBE(356.6 - [#356.6]	HDR+1
^IBT(356 - [#356]	LO+2, CDT+1, AP+3
^IBT(356.2 - [#356.2]	ONE+5, ONE+10, L1+8, APPEAL+3, AP+3, AP+5
^TMP($J	PRINT+5, PRINT+7, PRINT+9, PRINT+12, PRINT+14

Label References

Name	Line Occurrences
$$AP	APPEAL+3
$$APPEAL	ONE+3
$$CDT	L1+1
$$CHRG	L1+13, LO+7
CNTS	ONE+4
HDR	PRINT+6, ONE+8
HDRO	HDR+7
LO	ONE+11
ONE	PRINT+14
PRINTQ	PRINT+17

Naked Globals

Name	Field # of Occurrence
^(	PRINT+14, L1+8, AP+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AP	AP+1~, AP+3*, AP+4
D	CHRG~, CHRG+1
>> DFN	ONE+9*, L1, LO+1
>> DGPM	CDT+2*, CDT+3, CDT+4
>> DIRUT	HDR+2
DT	%
EV	AP+1~, AP+3*, AP+4
IBAPEAL	APPEAL+1~
>> IBAPL	ONE+3*, L1+10, L1+11, LO+5, LO+6, CNTS+10, CNTS+18, CNTS+19
>> IBBDT	HDR+5
IBC	L1+7!, L1+8
IBC(	L1+8*, L2+5
IBC(1	L1+9
IBC(2	L2+3, L2+5
>> IBCDT	L1+1, L1+2, L2, LO+2, LO+3
IBCNT	PRINT+3!
IBCNT(	CNTS+6, CNTS+7, CNTS+8, CNTS+9, CNTS+10*
IBCNTO	PRINT+3!
IBCNTO(	CNTS+15, CNTS+16, CNTS+17, CNTS+18, CNTS+19*
>> IBDATA	PRINT+14*, ONE+9, L1+3, L1+6, L1+12, L1+13, L2+2, LO+7, CNTS+1, CNTS+3 , CNTS+7, CNTS+8, CNTS+12, CNTS+16
IBDEN	L1+7!, L1+8, L2+5*
>> IBEDT	HDR+5
IBEVNTYP	PRINT+3!, PRINT+5*, PRINT+7, PRINT+9, PRINT+12, PRINT+14, ONE+11, CNTS+5, CNTS+14, HDR+1 , HDR+7
IBEVO	HDR+1~*, HDR+5
>> IBHDT	HDR+6
>> IBI	PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+14, ONE+8
>> IBISV	PRINT+8, PRINT+10, PRINT+11
>> IBJ	PRINT+12*, PRINT+14
>> IBPAG	HDR+2, HDR+3, HDR+4*, HDR+6
>> IBQUIT	PRINT+5, PRINT+9, PRINT+11, PRINT+12, PRINT+14, PRINT+17, HDR+1, HDR+2*
>> IBSERV	CNTS+1, CNTS+2, CNTS+6, CNTS+7, CNTS+8, CNTS+9, CNTS+10, CNTS+15, CNTS+16, CNTS+17 , CNTS+18, CNTS+19
>> IBSORT	PRINT+10
>> IBSUBT	CNTS+3*
>> IBSUM	PRINT+6, PRINT+7, PRINT+15, ONE+6
>> IBTALL	ONE+5*, L1+4, L1+5, L1+6, L2+2
>> IBTOTL	CNTS+12*
IBTRC	PRINT+13, PRINT+14, ONE+3, ONE+5, ONE+10, L1+8, APPEAL~, APPEAL+2, APPEAL+3*, AP~ , AP+3, AP+5
>> IBTRCD	ONE+10*, L1+1, L1+5, L1+6, L2+1, L2+2, LO+2, LO+4
IBTRN	CDT~, CDT+1, APPEAL+1~
IBTRSV	APPEAL+1~, APPEAL+2*, APPEAL+3
IOF	HDR+3
IOM	HDR+6, HDR+10, HDRO+2
IOSL	ONE+8
IOST	HDR+2, HDR+3
U	LO+2, CNTS+18, AP+3, AP+4
>> VA("BID"	L1, LO+1
X	CDT+1~, CDT+2, CDT+5, APPEAL+1~, APPEAL+3, APPEAL+5, AP+1~, AP+2, AP+5, CHRG+1~ , CHRG+2
X2	CHRG+1~*
Y	CDT+1~, CDT+3, CDT+4, CDT+5, CDT+6, APPEAL+1~, APPEAL+3, APPEAL+5, AP+1~, AP+5*
Z	AP+1~, AP+2, AP+4, AP+5*, AP+6

Customize PDF page

Package: Integrated Billing

Routine: IBTODD1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: