Routine: IBCSC4B

Package	Total	Call Graph
Integrated Billing	2	(EVEN,EVENP,ODD,ODDP)^IBCSC4A SELD^IBCSC4C

Package	Total	Caller Graph
Integrated Billing	3	IBCSC4 IBCSCE IBXSC4

Entry Points

External References

Name	Field # of Occurrence
EVEN^IBCSC4A	DX+3
EVENP^IBCSC4A	PRO+4
ODD^IBCSC4A	DX+3
ODDP^IBCSC4A	PRO+4
SELD^IBCSC4C	DX+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "=" Line Location: DX+1
Function Call: WRITE	Prompt: !!," * No DIAGNOSIS CODES in PTF record for this episode of care." Line Location: DX+2
Function Call: WRITE	Prompt: $S($P(IBWO(0),U,4)]"":$P(IBWO(0),U,4)_" ",1:""),Y," " Line Location: WR+1
Function Call: WRITE	Prompt: $E($P(^DIC(42.4,$P(IBWO(0),U,3),0),U),1,12) Condition for execution: $P(IBWO(0),"^",3)]"" Line Location: WR+1
Function Call: WRITE	Prompt: " ",$P(IBWO(0),"^",5) Line Location: WR+1
Function Call: WRITE	Prompt: ?43,"Move: " Line Location: WR+2
Function Call: WRITE	Prompt: $S($P(IBWE(0),U,4)]"":$P(IBWE(0),U,4)_" ",1:""),Y," " Line Location: WR+2
Function Call: WRITE	Prompt: $E($P(^DIC(42.4,$P(IBWE(0),U,3),0),U),1,12) Condition for execution: $P(IBWE(0),"^",3)]"" Line Location: WR+2
Function Call: WRITE	Prompt: " ",$P(IBWE(0),"^",5) Line Location: WR+2
Function Call: WRITE	Prompt: ?43,"* ",IBNC Line Location: WE+0
Function Call: WRITE	Prompt: ?43,IBAE,K," - ",$S(X]"":$J($P(X,U,1),6)_" "_$E($P(X,U,3),1,24),1:IBUC) Line Location: WE+1
Function Call: READ	Timeout: DTIME Variable: A Line Location: ASK+0
Function Call: WRITE	Prompt: !!?4,"Enter <RETURN> to view more ",$S($D(IBP):"operation/procedure",1:"movement dates and diagnosis")," codes",!?4,"or '^' to stop the display." Line Location: ASK+1
Function Call: WRITE	Prompt: !,@IOF,?(40-($L(A)\2)),A,! Line Location: ASK+2
Function Call: WRITE	Prompt: "=" Line Location: ASK+2
Function Call: WRITE	Prompt: X Line Location: PRO+2
Function Call: WRITE	Prompt: !!," * No PROCEDURE CODES in PTF record for this episode of care." Line Location: PRO+3
Function Call: WRITE	Prompt: Y Line Location: WRP+1
Function Call: WRITE	Prompt: ?43,$S($P(IBWE(0),U,3)["*":IBNOR,1:IBSD) Line Location: WRP+1
Function Call: WRITE	Prompt: ?43,$S($P(IBWE(0),U,3)["*":IBNOR,1:IBSD) Line Location: WRP+1
Function Call: WRITE	Prompt: ?43,"* ",IBNC Line Location: WEP+0
Function Call: WRITE	Prompt: ?43,IBAE,K," - ",$S(X]"":$J($P(X,U,1),6)_" "_$E($P(X,U,4),1,24),1:IBUC) Line Location: WEP+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WR+1, WR+2, WRP+1
^DGPT - [#45]	DX
^DIC(42.4 - [#42.4]	WR+1, WR+2
^ICD0 - [#80.1]	WRP+3, WEP+1
^ICD9 - [#80]	WR+4, WE+1
^UTILITY($J	DX+2, DX+3, PRO+3, PRO+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	Q+1!
A	ASK, ASK+1, ASK+2, Q+1!
B	WR, Q+1!, WRP
DIC	Q+1!
DTIME	ASK
F	Q+1!
I	DX+1, DX+3, PRO+4*, Q+1!
IB3	Q!
IB4	Q!
IB5	Q!
IB6	Q!
IB7	Q!
IB8	Q!
IB9	Q!
IBAE	WE, WE+1, Q!, WEP, WEP+1
IBAO	WR+3, WR+4, Q!, WRP+2, WRP+3
IBCT	Q!
IBDIA	DX+2, DX+3, DX+4, WR+2, WR+3, WR+4, ASK, Q!
IBDP	Q!
IBDX	Q!
IBDXC	DX*, Q!
IBDXX	WE*, Q!
IBDXY	WR+3*, Q!
IBI	Q!
IBNC	DX, WR+3, WE, PRO, Q!, WRP+2, WEP
IBNOR	PRO*, Q!, WRP+1
IBOP	Q!
IBOPC	PRO*, Q!
IBOPX	Q!, WEP*
IBOPY	Q!, WRP+2*
IBP	ASK, ASK+1, ASK+2, PRO+3, PRO+4, PRO+5, Q!, WRP+1, WRP+2, WRP+3
IBPP	Q!
>> IBPTF	DX, PRO
IBPX	Q!
IBPY	Q!
IBSD	PRO*, Q!, WRP+1
IBSP	Q!
>> IBUC	DX, WR+4, WE+1, PRO, WRP+3, WEP+1
IBWE	DX!, PRO+1!, Q!
IBWE(	WR, WR+3, WR+4, WE+1, WRP, WRP+3, WEP+1
IBWE(0	WR, WR+2, WE, WRP, WRP+1, WEP
IBWE(1	WE, WEP
IBWE(2	WE, WEP
IBWE(3	WE, WEP
IBWE(4	WE, WEP
IBWE(5	WE, WEP
IBWO	DX!, PRO+1!, Q!
IBWO(	WR+3, WR+4, WRP+2, WRP+3
IBWO(0	WR+1, WR+3, WRP+1, WRP+2
IOF	DX+1, ASK+2, PRO+2
IOSL	DX+3, PRO+4
J	Q+1!
K	WR+3, WR+4, WE+1, Q+1!, WRP+2, WRP+3, WEP+1
M	Q+1!
S	ASK+2*, Q+1!
U	WR+1, WR+2, WR+3, WR+4, WE, WE+1, WRP+1, WRP+2, WRP+3, WEP , WEP+1
X	DX, DX+1, WR+4, WE+1, PRO, PRO+2, Q+1!, WRP+3, WEP+1*
Y	WR+1, WR+2, Q+1!, WRP+1*

Customize PDF page

Package: Integrated Billing

Routine: IBCSC4B

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
ASK	DX+3, ASK+1, PRO+4
Q	DX+2, DX+5, PRO+3
WE	WR+3, WR+4
WEP	WRP+2, WRP+3
WR	DX+3
WRP	PRO+4