Routine: IBERS3

Package	Total	Call Graph
Integrated Billing	1	$$DAT1^IBOUTL

Entry Points

External References

Name	Field # of Occurrence
$$DAT1^IBOUTL	DX1+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DX2
^DGCR(399 - [#399]	BILLDX+3, BILLDX+4, BILLDX+5
^DGPT - [#45]	PTFDX+5
^DGPT("AAD"	PTFDX+3, PTFDX+4
^ICD9 - [#80]	DX1+4
^TMP("IBRSP"	ENDLN*

Label References

Name	Line Occurrences
DX	PTFDX+7, BILLDX+7
DX1	PTFDX+8, BILLDX+8
DX2	PTFDX+9, BILLDX+9
ENDBILL	BILLDX+6, BILLDX+7, BILLDX+8
ENDLN	BILLDX+8, END, DX2+1, DX2+2, LINE+3
ENDPTF	PTFDX+6, PTFDX+7, PTFDX+8
LINE	DX2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	PTFDX+3, PTFDX+4, BILLDX+3
>> IB1	DX1+6, LINE+3, LINE+5
>> IB2	LINE+3, LINE+4
>> IB3	DX1+6, LINE+4
>> IB4	DX1+6, LINE+4
IBADT	PTFDX+1, PTFDX+3, PTFDX+4, ENDPTF!
IBBN	BILLDX+1, BILLDX+3, BILLDX+4, BILLDX+5, ENDBILL!
IBCNT	PTFDX+6, ENDPTF!, BILLDX+6, ENDBILL!, DX+1, DX+2, DX+3, DX+4, DX1, DX1+5 , DX1+7
IBCOL	DX1, DX1+5, DX1+8!
IBD	PTFDX+7, BILLDX+7, DX1+8!
IBD(	DX+4*, DX1+2, DX1+3
IBDDT	DX+1, DX+2, DX+3, DX+4, DX+5, DX+6!, DX1, DX1+2*, DX1+3, DX1+8!
IBDDTE	DX1+3*, DX1+4, DX1+8!
>> IBDSH	END
>> IBDT	PTFDX+1, BILLDX+1, DX2
IBDX	DX+3, DX+4, DX+5, DX+6!, DX1+3, DX1+4, DX1+6, DX1+8!, DX2+2, DX2+3!
IBDXP1	PTFDX+6, BILLDX+6, DX+3, DX+6!
IBDXP2	PTFDX+6, BILLDX+6, DX+3, DX+6!
IBDXP3	PTFDX+6, BILLDX+6, DX+3, DX+6!
IBEDT	BILLDX+4*, BILLDX+5, ENDBILL!
IBEG	BILLDX+1, BILLDX+4, ENDBILL!, DX2, DX2+1, DX2+3!
IBEND	PTFDX+1, PTFDX+3, PTFDX+5, ENDPTF!, BILLDX+1, BILLDX+4, ENDBILL!, DX2*, DX2+1, DX2+3!
IBFD	IBERS3+8, END, END+1!, DX1
IBG	PTFDX+6, BILLDX+6, DX+6!
IBG(	PTFDX+5, BILLDX+5, DX+1, DX+2
IBI	DX+3*, DX+4, DX+6!
IBL	LINE+4*, LINE+5, LINE+6, LINE+7, ENDLN+1!
IBLBL	PTFDX+8, BILLDX+8, DX2+1, DX2+3!
>> IBLC	ENDLN*
IBN	PTFDX+5, ENDPTF!, BILLDX+5, ENDBILL!, DX+2*, DX+3, DX+6!
IBPDN	IBERS3+8*, END+1!, DX+1, DX+2, DX+3, DX+4
IBPTF	PTFDX+3, PTFDX+4, PTFDX+5, ENDPTF!
IBR	DX+6!
IBR(	DX+3, DX+5*
IBRMAX	DX1, DX1+5, DX1+8!
IBROW	DX1, DX1+5, DX1+6, DX1+7*, DX1+8!
IBST	PTFDX+1, ENDPTF!, BILLDX+1, ENDBILL!, DX+4*, DX2
IBT	LINE+3, LINE+4, LINE+6, LINE+7, ENDLN+1!
IBTMP	PTFDX+8, BILLDX+8, DX2+3!
IBTMP(	DX1+6*, DX2+2
>> IBW	DX2+1*, LINE+3, LINE+4, LINE+7
IBX	BILLDX+8, ENDBILL!, END, DX+2, DX+6!, DX1+2, DX1+3, DX1+8!, DX2+1, DX2+2 , DX2+3!, LINE+3, LINE+5, LINE+6, LINE+7, ENDLN
>> IBY	LINE+6*
>> IBZ	LINE+7*
IOM	DX2+2
Y	DX2*, DX2+3!

Customize PDF page

Package: Integrated Billing

Routine: IBERS3

Information

Source Information

Call Graph

Call Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ENDLN
END
BILLDX	;print billing dx's, or at most 3 dx's from last 6 bills
ENDBILL
DX2
DX1
ENDPTF
PTFDX	;701 dx's for last year, or at most 3 dx's from last 6 ptf's
DX	;get appropriate number of DX codes from choosen records
LINE	;prints 1 (IBW=1) 2 (IBW=2) or three (IBW=3) pieces of data on a formated line