Routine: IBOLK

Package	Total	Call Graph
Integrated Billing	5	DISP^IBARXEU (Q,VIEW)^IBCNQ $$PT^IBEFUNC ^IBOLK1 $$DAT2^IBOUTL
VA Fileman	4	(COMMA,NOW)^%DTC ^DIC DT^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package

Total

Call Graph

Integrated Billing

DISP^IBARXEU (Q,VIEW)^IBCNQ $$PT^IBEFUNC ^IBOLK1 $$DAT2^IBOUTL

VA Fileman

(COMMA,NOW)^%DTC ^DIC DT^DIQ ^DIR

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Integrated Billing	3	IB OUTPUT FULL INQ BY BILL NO IB PATIENT BILLING INQUIRY IBOLK1

Package

Total

Caller Graph

Integrated Billing

IB OUTPUT FULL INQ BY BILL NO IB PATIENT BILLING INQUIRY IBOLK1

Entry Points

Name	Comments	DBIA/ICR reference
END1
ENB	; -entry point for AR to print brief profile for IB actions for	ICR #126 Status: Active Usage: Private
EN	; -Entry to display IB Action data for an AR Bill number	ICR #6753 Status: Active Usage: Private
END
HDR
ENF	; -entry point for AR to print full profile for IB actions for	ICR #126 Status: Active Usage: Private
HDR1
BRIEF
DEV
ENQ
PAUSE
LINE	; -find data for one line, write line, accumulate totals
TOTAL

Name	Field # of Occurrence
COMMA^%DTC	LINE+8, TOTAL
NOW^%DTC	EN+6
^%ZIS	DEV
HOME^%ZIS	DEV+1
^%ZISC	END+5
^%ZTLOAD	DEV+1
^DIC	%+4
DT^DIQ	LINE+5
^DIR	PAUSE+2
DISP^IBARXEU	HDR1+2
Q^IBCNQ	DEV+11
VIEW^IBCNQ	DEV+11
$$PT^IBEFUNC	HDR
^IBOLK1	EN+9
$$DAT2^IBOUTL	EN+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Billing has no Record of this Charge ID.",! Line Location: IBOLK+9
Function Call: WRITE	Prompt: !!?5,"Enter: '<CR>' - To select the Brief Inquiry." Line Location: BRIEF+2
Function Call: WRITE	Prompt: !?12,"'F' - To select the Full Inquiry. This option will" Line Location: BRIEF+3
Function Call: WRITE	Prompt: !?23,"include the Address Inquiry, and more detailed" Line Location: BRIEF+4
Function Call: WRITE	Prompt: !?23,"information for Pharmacy Co-Pay bills." Line Location: BRIEF+5
Function Call: WRITE	Prompt: !?12,"'^' - To quit this option.",! Line Location: BRIEF+6
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: ! Line Location: LINE+3
Function Call: WRITE	Prompt: ?69,X Line Location: LINE+8
Function Call: WRITE	Prompt: !,?5,"Charge Removal Reason: ",$S($D(^IBE(350.3,$P(IBND,"^",10),0)):$P(^(0),"^"),1:"UNKNOWN") Line Location: LINE+10
Function Call: WRITE	Prompt: @IOF,*13 Line Location: HDR1+0
Function Call: WRITE	Prompt: ! Line Location: HDR1+2
Function Call: WRITE	Prompt: !,IBLINE Line Location: HDR1+4
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Routine Call	%ZIS Line Location: DEV+1
Routine Call	DIC Line Location: %+4
Routine Call	DIR Line Location: PAUSE+2
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	%+5
^IB - [#350]	EN+5, EN+8, LINE+2, HDR
^IB("ABIL"	%+6, EN+5, EN+8
^IB("AT"	ENB+6
^IBE(350.1 - [#350.1]	LINE+3, LINE+4
^IBE(350.3 - [#350.3]	LINE+10

Name	Line Occurrences
%	%+6, DEV+1, DEV+10, DEV+11
BRIEF	BRIEF+1
EN	DEV+10
END	DEV, ENQ
END1	%+4, BRIEF, DEV+11
ENQ	EN+5
HDR	EN+6
HDR1	LINE+1
LINE	EN+8, ENB+6
PAUSE	EN+9, LINE+1
TOTAL	EN+9

Name	Field # of Occurrence
^(0	LINE+10
^(1	LINE+2
^(30	LINE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+6
>> %ZIS	DEV*
>> %ZIS("A"	DEV*
D0	END+4!, ENB+7!
DFN	HDR*, HDR1+2, END+4!
DIC	%+4*!
DIC("A"	%+4*
DIC(0	%+4*
DIR	PAUSE+2!
DIR(0	PAUSE+2*
DIRUT	PAUSE+2!
DN	END+4!, ENB+7!
DT	HDR1+2
DTIME	BRIEF
DTOUT	PAUSE+2!, END+4!
DUOUT	PAUSE+2!, END+4!
I	DEV+5*, END+4!
IB	END+4!
IBAC	BRIEF+8*, END+4!
IBCHRG	LINE+7*, LINE+8, LINE+9, END+4!, ENB+7!
IBFULL	BRIEF+7, EN+9, LINE+3, HDR1+3, END1!, ENF+4, ENB+4*, ENB+7!
IBHDT	EN+6*, HDR1+1, END+4!
IBI	EN+8*, END+4!
IBIFN	%+5*, %+6, BRIEF+8, DEV+3, DEV+5, DEV+10, END+4!
IBIL	%+4*, %+5, %+6, EN+5, EN+8, HDR1+1, END+4!
IBJ	PAUSE+1*, END+4!
IBLINE	HDR1+4*!, END+4!
IBN	EN+5, EN+8, LINE+2, HDR, END+4!, ENB+6*, ENB+7!
IBNAME	HDR*, HDR1+1, END+4!
IBND	LINE+2, LINE+3, LINE+4, LINE+6, LINE+7, LINE+10, HDR, END+4!, ENB+7!
IBND1	LINE+2*, LINE+5, END+4!, ENB+7!
IBPAG	EN+6, HDR1, HDR1+1, END+4!, ENB+4*, ENB+7!
IBQUIT	BRIEF+8, EN+6, EN+8, EN+9, LINE+1, PAUSE+2, END+4!, ENB+4, ENB+7!
IBSEQNO	LINE+4*, LINE+7, LINE+10, END+4!, ENB+7!
IBTOTL	EN+6, LINE+9, TOTAL, END+4!, ENB+4*, ENB+7!
IBTRAN	LINE+1, ENB+5*, ENB+6, ENB+7!
IBTYP	LINE+4*, LINE+6, END+4!, ENB+7!
IO	DEV+7
IO("Q"	DEV+1!
IOF	HDR1
IOM	HDR1+4
IOSL	LINE+1, PAUSE+1
IOST	HDR1, PAUSE
>> POP	DEV
VA	END+4!
VADM	END+4!
VAERR	END+4!
X	BRIEF, BRIEF+1, BRIEF+7, LINE+3, LINE+8, TOTAL, TOTAL+1, END+4!, ENB+5, ENB+7!
>> X1	LINE+3*
X2	LINE+3, LINE+8, TOTAL*, END+4!, ENB+7!
X3	LINE+8, TOTAL, END+4!, ENB+7!
Y	%+4, LINE+5*, END+4!, ENB+7!
>> ZTDESC	DEV+2*
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
>> ZTRTN	DEV+3*
>> ZTSAVE(	DEV+5*
>> ZTSAVE("IBFULL"	DEV+4*
>> ZTSAVE("IBIFN"	DEV+4*
>> ZTSAVE("IBIL"	DEV+4*
ZTSK	END+4!

Customize PDF page

Package: Integrated Billing

Routine: IBOLK

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: