Routine: IBOAMS

Package	Total	Call Graph
VA FileMan	5	^%DT (COMMA,NOW)^%DTC ^DIC (D,DT)^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	PID^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Accounts Receivable	1	PRCAD REV CODE TOTALS
Integrated Billing	1	IB REV CODE TOTALS
Kernel	1	^DIC(19
Registration	1	DGCRAMS1

Entry Points

Name	Comments	DBIA/ICR reference
EN	; - Report of inpatient and nhcu per diems
DATE
DATE1
DEV
DQ	; - start report here
ENQ	;
BLD	;
BLD1
TOTALS	; - print revenue code totals
HDR	; - patient data header
PAUSE

External References

Name	Field # of Occurrence
^%DT	DATE, DATE1
COMMA^%DTC	BLD+8, TOTALS+5, TOTALS+6
NOW^%DTC	DQ+3
^%ZIS	DEV
HOME^%ZIS	EN+4
^%ZISC	ENQ+5
^%ZTLOAD	DEV+1
^DIC	EN+7
D^DIQ	DQ+3
DT^DIQ	HDR+4
^DIR	DATE1+2, PAUSE+2
PID^VADPT	BLD+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?19,"Report of Revenue Code Totals by Rate Type",!!! Line Location: EN+4
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: READ	Formatting: ! Prompt: "GO TO DATE FIRST PRINTED: " Variable: X Timeout: DTIME Line Location: DATE1+0
Function Call: WRITE	Prompt: ! Line Location: DATE1+0
Function Call: WRITE	Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE." Line Location: DATE1+0
Function Call: WRITE	Prompt: ! Line Location: DATE1+2
Function Call: WRITE	Prompt: ! Line Location: DEV+0
Function Call: WRITE	Prompt: !,"No Matches Found" Line Location: DQ+9
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),"^"),1,20),?23,VA("PID"),?38,$P(^DGCR(399,IBIFN,0),"^") Line Location: BLD+7
Function Call: WRITE	Prompt: ?59,$S($D(^DGCR(399.2,+R,0)):$P(^(0),"^"),1:R),?67 Line Location: BLD+8
Function Call: WRITE	Prompt: X,! Line Location: BLD+8
Function Call: WRITE	Prompt: !,"Revenue Code: ",$S($D(^DGCR(399.2,+R,0)):$P(^(0),"^"),1:R)," .........." Line Location: TOTALS+5
Function Call: WRITE	Prompt: ?32,X,?50,$J(IBCNT(R),8)," Bills" Line Location: TOTALS+5
Function Call: WRITE	Prompt: !,?31,"--------------",!," ",?32,X,?50,$J(IBCNT,8)," Bills" Line Location: TOTALS+6
Function Call: WRITE	Prompt: "Revenue Code Totals for ",$P(^DGCR(399.3,IBRT,0),"^",1),?(IOM-32),IBPDT," PAGE ",IBPAG Line Location: HDR+3
Function Call: WRITE	Prompt: !,"For Bills First Printed " Line Location: HDR+4
Function Call: WRITE	Prompt: " to " Line Location: HDR+4
Function Call: WRITE	Prompt: !,IBLINE Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Routine Call	DIC Line Location: EN+7
Routine Call	DIR Line Location: DATE1+2 PAUSE+2
Routine Call	%ZIS Line Location: DEV
Routine Call	%ZIS Line Location: EN+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGCR(399.3 - [#399.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	DQ+6, BLD+2, BLD+3, BLD+4, BLD+7, BLD1
^DGCR(399.2 - [#399.2]	BLD+8, TOTALS+5
^DGCR(399.3 - [#399.3]	EN+6, HDR+3
^DPT - [#2]	BLD+7

Label References

Name	Line Occurrences
BLD	DQ+6
BLD1	BLD+3
DATE1	DATE1
ENQ	EN+7, DATE, DATE1, DATE1+2, DEV, DEV+1
HDR	DQ+4, BLD+6, TOTALS+2
PAUSE	DQ+10, BLD+6, TOTALS+2
TOTALS	DQ+8

Naked Globals

Name	Field # of Occurrence
^(	EN+6
^("S"	BLD+2
^(0	BLD+8, TOTALS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DQ+3
%DT	DATE!, DATE1!, ENQ+4!
%DT("A"	DATE*
>> %ZIS	DEV*
>> %ZIS("A"	DEV*
DFN	ENQ+4!, BLD+7*
DIC	EN+5*, EN+7!, ENQ+4!
DIC("A"	EN+5*
DIC("B"	EN+6*
DIC(0	EN+5*
DIR	DATE1+2!, ENQ+4!, PAUSE+2!
DIR("A"	DATE1+2*
DIR("B"	DATE1+2*
DIR(0	DATE1+2, PAUSE+2
DIRUT	DATE1+2, PAUSE+2!
DTIME	DATE1
DTOUT	PAUSE+2!
DUOUT	PAUSE+2!
IB	ENQ+4!, BLD+1!, BLD1*
IB(	BLD+8, BLD1*
IBBDT	DATE*, DATE1, DQ+5, ENQ+4!, HDR+4
IBC	ENQ+4!, BLD+3, BLD+6, BLD1
IBCNT	DQ+3, ENQ+4!, BLD+4, TOTALS+6
IBCNT(	BLD+4*, TOTALS+5
IBDT	DQ+5, DQ+6, ENQ+4!
IBEDT	DATE1*, DQ+6, ENQ+4!, HDR+4
IBGT	ENQ+4!, TOTALS+3, TOTALS+5, TOTALS+6
IBIFN	DQ+6*, ENQ+4!, BLD+2, BLD+3, BLD+4, BLD+7, BLD1
IBLINE	ENQ+4!, HDR+6*
IBPAG	DQ+3, ENQ+4!, HDR+1, HDR+2, HDR+3
IBPDT	DQ+3*, ENQ+4!, HDR+3
IBQUIT	DQ+3, DQ+6, DQ+8, DQ+10, ENQ+4!, BLD+6, TOTALS+2, PAUSE+2
IBRT	EN+6, EN+7, ENQ+4!, BLD+2, HDR+3
IBSUM	DATE1+2, ENQ+4!, BLD+5, TOTALS+2, TOTALS+4, HDR+5
IBT	DQ+5!, DQ+9, ENQ+4!, TOTALS+1
IBT(	BLD1*, TOTALS+5
IBTC	DQ+3, ENQ+4!, BLD1, TOTALS+2
IBY	ENQ+4!, PAUSE+1*
IO	DEV+2
IO("Q"	DEV+1!
IOF	EN+4, HDR+2
IOM	HDR+3, HDR+6
IOSL	BLD+6, TOTALS+2, PAUSE+1
IOST	HDR+2, PAUSE
>> POP	DEV
R	ENQ+4!, BLD+3, BLD+4, BLD+8, BLD1, TOTALS+5
VA	ENQ+4!
VA("PID"	BLD+7
VAERR	ENQ+4!
X	DATE1, ENQ+4!, BLD+8, TOTALS+5, TOTALS+6
X2	ENQ+4!, BLD+8, TOTALS+5, TOTALS+6*
X3	ENQ+4!, BLD+8, TOTALS+5, TOTALS+6*
Y	EN+7, DATE, DATE1, DATE1+2, DQ+3, ENQ+4!, HDR+4
>> ZTDESC	DEV+1*
>> ZTQUEUED	ENQ+3
>> ZTREQ	ENQ+3*
>> ZTRTN	DEV+1*
>> ZTSAVE("IB*"	DEV+1*
ZTSK	DEV+1!

Customize PDF page

Package: Integrated Billing

Routine: IBOAMS

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: