Routine: IBOBL

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
Integrated Billing	3	$$GETDT^IBCRU1 $$PB^IBJTU2 $$ARSTATA^IBJTU4
Accounts Receivable	1	$$BILL^RCJIBFN2
CPT HCPCS Codes	1	$$CPT^ICPTCOD
VA FileMan	1	^DIR

Package	Total	Caller Graph
Integrated Billing	1	IB LIST BILLS FOR EPISODE

Entry Points

Name	Comments	DBIA/ICR reference
EN	;get parameters then run the report
DEV	;get the device
RPT	;find, save, and print the data that satisfies the search parameters
EXIT	;clean up and quit
FIND	; compile list of all related bills
FIND1(DFN,IBEPDT)	; find all bills for a patient with a specific event date or opt visit date
FIND2	; compile list of related bills based on Primary Bill of bills already found
PRINT	;print the report from the temp sort file to the appropriate device
PRTLN(IBIFN,IBADDCPT)	; print one bill with all it's CPTs
HDR	;print the report header
HDRLNS	; set up header lines
DATE(X)	;
LNCHK(LNS)	; check if new page is needed
PAUSE	;pause at end of screen if beeing displayed on a terminal
STOP()	;determine if user has requested the queued report to stop
CPT()	; return true if include bills CPT procedures
CANC()	; return true if include canceled bills

External References

Name	Field # of Occurrence
^%ZIS	DEV+2
HOME^%ZIS	EN+1
^%ZISC	EXIT+2
^%ZTLOAD	DEV+3
$$S^%ZTLOAD	STOP+1
^DIR	PAUSE+2, CPT+3, CANC+3
$$GETDT^IBCRU1	EN+7
$$PB^IBJTU2	EN+6
$$ARSTATA^IBJTU4	PRTLN+8
$$CPT^ICPTCOD	PRTLN+19
$$BILL^RCJIBFN2	PRTLN+11
$$FMTE^XLFDT	HDR+3
$$NOW^XLFDT	HDR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Episode of Care Bill List:",!,"--------------------------" Line Location: EN+1
Function Call: WRITE	Prompt: !,"Enter a Bill Number to get a list of all bills that match the selected bill's",!,"event date or any of it's outpatient visit dates." Line Location: EN+2
Function Call: WRITE	Prompt: !,"Enter a Patient Name and Episode Date to get a list of all bills for a patient",!,"that have either that date as the event date or as an outpatient visit date." Line Location: EN+3
Function Call: WRITE	Prompt: !,"This report also includes bills related as continuing episodes of care." Line Location: EN+4
Function Call: WRITE	Prompt: ! Line Location: EN+6
Function Call: WRITE	Prompt: ! Line Location: EN+7
Function Call: WRITE	Prompt: ! Line Location: EN+9
Function Call: WRITE	Prompt: !,"Report requires 132 columns." Line Location: DEV+1
Function Call: WRITE	Prompt: !,$P(IB0,U,1),?12,$P($G(^DGCR(399.3,+$P(IB0,U,7),0)),U,4) Line Location: PRTLN+4
Function Call: WRITE	Prompt: ?24,$S(IBX=1:"INPT",IBX=2:"INPT-H",IBX=3:"OPT",IBX=4:"OPT-H",1:"") Line Location: PRTLN+5
Function Call: WRITE	Prompt: ?32,$S(IBX=1:"INST",IBX=2:"PROF",1:"") Line Location: PRTLN+6
Function Call: WRITE	Prompt: ?39,$$DATE(+$P(IB0,U,3)),?49,$$DATE(+IBU),?59,$$DATE(+$P(IBU,U,2)) Line Location: PRTLN+7
Function Call: WRITE	Prompt: ?70,$P($$ARSTATA^IBJTU4(IBIFN),U,2) Line Location: PRTLN+8
Function Call: WRITE	Prompt: ?75,$S(IBX="P":"PRIM",IBX="S":"SEC",IBX="T":"TER",IBX="A":"PAT",1:"") Line Location: PRTLN+9
Function Call: WRITE	Prompt: ?82,$E($S(IBX="i":$P($G(^DIC(36,+IBMP,0)),U,1),IBX="o":$P($G(^DIC(4,+$P(IBM,U,11),0)),U,1),IBX="p":$P($G(^DPT(+$P(IB0,U,2),0)),U,1),1:""),1,23) Line Location: PRTLN+10
Function Call: WRITE	Prompt: ?107,$J(+$P($$BILL^RCJIBFN2(IBIFN),U,1),10,2) Line Location: PRTLN+11
Function Call: WRITE	Prompt: ! Line Location: PRTLN+13
Function Call: WRITE	Prompt: @IOF Line Location: HDR+4
Function Call: WRITE	Prompt: !,IBHDR1,?(IOM-30),IBNOW,?(IOM-8),"PAGE ",IBPGN,!,IBHDR2 Line Location: HDR+6
Function Call: WRITE	Prompt: !,"BILL #",?12,"RATE",?24,"CLASSIFICATION",?39,"EVENT",?49,"FROM",?59,"TO",?70,"AR",?75,"COB",?82,"PAYER",?112,"TOTAL",?120,"CPT'S",! Line Location: HDR+7
Function Call: WRITE	Prompt: IBI Line Location: HDR+8
Function Call: WRITE	Prompt: ! Line Location: HDR+9
Function Call: WRITE	Prompt: !,"*TASK STOPPED BY USER*" Line Location: STOP+1
Routine Call	%ZIS Line Location: DEV+2
Routine Call	%ZIS Line Location: EN+1
Routine Call	DIR Line Location: PAUSE+2 CPT+3 CANC+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	FIND+4, FIND+6, FIND+7, FIND1+4, FIND1+5, FIND1+6, FIND1+11, FIND1+12, FIND1+13, FIND2+3 , FIND2+4, PRINT+5, PRTLN+2, PRTLN+3, PRTLN+15, PRTLN+16, HDRLNS+4
^DGCR(399.3 - [#399.3]	PRTLN+4
^DIC(36 - [#36]	PRTLN+10
^DIC(4 - [#4]	PRTLN+10
^DPT - [#2]	PRTLN+10, HDRLNS+3, HDRLNS+5
^TMP($J	RPT+3!, EXIT+1!, FIND1+7, FIND1+8, FIND1+14, FIND1+15, FIND2+2, FIND2+5*, PRINT+4

Label References

Name	Line Occurrences
$$CANC	EN+9
$$CPT	EN+8
$$DATE	PRTLN+7, HDRLNS+3, HDRLNS+5
$$LNCHK	PRINT+4, PRTLN+18
$$STOP	HDR+2
EXIT	DEV+2, DEV+3, RPT+3
FIND	RPT+5
FIND1	FIND+5, FIND+7, FIND+10
FIND2	FIND+12
HDR	PRINT+2, LNCHK+1
HDRLNS	PRINT+2
PAUSE	PRINT+8, LNCHK+1
PRINT	RPT+6
PRTLN	PRINT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV+2*
>> %ZIS("A"	DEV+2*
DFN	FIND+1~, FIND+5, FIND+7, FIND+10, FIND1~, FIND1+4, FIND1+5, FIND1+13, HDRLNS+1~, HDRLNS+3 , HDRLNS+4*, HDRLNS+5
DIR	PAUSE+1~, PAUSE+2!, CPT+1~, CPT+3!, CANC+1~, CANC+3!
DIR("?"	CPT+2, CANC+2
DIR("A"	CPT+3, CANC+3
DIR("B"	CPT+3, CANC+3
DIR(0	PAUSE+2, CPT+3, CANC+3*
DIRUT	PAUSE+1~, PAUSE+3, CPT+1~, CPT+3, CANC+1~, CANC+3
DTOUT	PAUSE+1~, CPT+1~, CANC+1~
DUOUT	PAUSE+1~, PAUSE+3, CPT+1~, CANC+1~
IB0	FIND+1~, FIND+4, FIND+5, PRTLN+1~, PRTLN+2, PRTLN+4, PRTLN+5, PRTLN+7, PRTLN+8, PRTLN+9 , PRTLN+10
IBADDCPT	EN+8*, EXIT+1!, PRINT+6, PRTLN~, PRTLN+13
IBASK	EN+1~, EN+6, EN+7, RPT+3, EXIT+1!, FIND+4, FIND+10, HDRLNS+3, HDRLNS+4
IBBILL	FIND2+1~, FIND2+2*, FIND2+3
IBCANC	EN+1~, EN+9*, EXIT+1!, PRINT+5
IBCPT	PRTLN+1~, PRTLN+16, PRTLN+18, PRTLN+19
IBCPT(	PRTLN+16*, PRTLN+18, PRTLN+19
IBDT	FIND1+1~, FIND1+4, FIND1+5, FIND1+11, FIND1+12
IBEPDT	FIND+1~, FIND+5, FIND+7, FIND+10, FIND1~, FIND1+1, FIND1+4, FIND1+11
IBHDR1	PRINT+1~, HDR+6, HDRLNS+2, HDRLNS+3, HDRLNS+4*
IBHDR2	PRINT+1~, HDR+6, HDRLNS+5*
IBI	HDR+1~, HDR+8*
IBIFN	FIND+1~, FIND+4, FIND+6, FIND+7, FIND1+1~, FIND1+5, FIND1+6, FIND1+7, FIND1+12, FIND1+13 , FIND1+14, FIND2+1~, FIND2+3, FIND2+4, FIND2+5, PRINT+1~, PRINT+4*, PRINT+5, PRINT+6, PRTLN~ , PRTLN+2, PRTLN+3, PRTLN+8, PRTLN+11, PRTLN+15, PRTLN+16
IBLN	PRINT+1~, PRTLN+1, PRTLN+19, HDR+2*, LNCHK+1
IBM	PRTLN+1~, PRTLN+3*, PRTLN+10
IBMP	PRTLN+1~, PRTLN+3*, PRTLN+10
IBNOW	HDR+1~, HDR+3*, HDR+6
IBPGN	PRINT+1~, PRINT+2, HDR+2, HDR+4, HDR+6, STOP+1
IBQUIT	PRINT+1~, PRINT+2, PRINT+8, HDR+2, LNCHK+1, LNCHK+2, PAUSE+3*
IBU	PRTLN+1~, PRTLN+2*, PRTLN+7
IBX	EN+1~, EN+7, EXIT+1!, FIND+1~, FIND+6, FIND+7, FIND1+1~, FIND1+6, FIND1+8, FIND1+13 , FIND1+15, FIND2+1~, FIND2+4, PRTLN+1~, PRTLN+4, PRTLN+5, PRTLN+6, PRTLN+8, PRTLN+9, PRTLN+10 , PRTLN+15, PRTLN+16, PRTLN+19, HDRLNS+1~, HDRLNS+4, HDRLNS+5, CPT+1~, CPT+3, CPT+4, CANC+1~ , CANC+3*, CANC+4
IO	DEV+4
IO("Q"	DEV+3!
IOF	HDR+4
IOM	HDR+6, HDR+8
IOSL	LNCHK+1
IOST	HDR+4, PAUSE+1
LNS	LNCHK~, LNCHK+1
>> POP	DEV+2
U	EN+7, FIND+4, FIND+5, FIND+10, FIND1+8, FIND1+13, FIND1+15, PRINT+5, PRTLN+4, PRTLN+5 , PRTLN+7, PRTLN+8, PRTLN+9, PRTLN+10, PRTLN+11, PRTLN+16, PRTLN+19, HDRLNS+3, HDRLNS+4, HDRLNS+5
X	DATE~, DATE+1, CPT+1~, CANC+1~
Y	CPT+1~, CPT+3, CANC+1~, CANC+3
>> ZTDESC	DEV+3*
>> ZTQUEUED	EXIT+1, STOP+1
ZTREQ	STOP+1!
>> ZTRTN	DEV+3*
>> ZTSAVE("IB*"	DEV+3*
>> ZTSTOP	STOP+1*, STOP+2

Customize PDF page

Package: Integrated Billing

Routine: IBOBL

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: