Routine: IBCSC5

Package	Total	Call Graph
Integrated Billing	7	(,$$DX,OCC)^IBCSC4 SET^IBCSC4D $$PIN^IBCSC5B (,H)^IBCSCU ^IBCU6 CODMUL^IBCU7 EN4^IBCVA1
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	(D,DT)^DIQ

Package

Total

Call Graph

Integrated Billing

(,$$DX,OCC)^IBCSC4 SET^IBCSC4D $$PIN^IBCSC5B (,H)^IBCSCU ^IBCU6 CODMUL^IBCU7 EN4^IBCVA1

Kernel

$$FMTE^XLFDT

VA Fileman

(D,DT)^DIQ

Package	Total	Caller Graph
Integrated Billing	1	IBCSC4

Package

Total

Caller Graph

Integrated Billing

IBCSC4

Name	Field # of Occurrence
D^DIQ	WRT+4, WRT+5
DT^DIQ	EN+8
^IBCSC4	EN
$$DX^IBCSC4	EN+11, EN+12, EN+13
OCC^IBCSC4	OCC, OCC+2
SET^IBCSC4D	EN+10
$$PIN^IBCSC5B	PD+5
^IBCSCU	EN+4
H^IBCSCU	EN+5
^IBCU6	EN+2
CODMUL^IBCU7	EN+1
EN4^IBCVA1	EN+7
$$FMTE^XLFDT	PD+5, RX+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " Event Date : " Line Location: EN+8
Function Call: WRITE	Prompt: " Prin. Diag.: ",$S('$D(^DGCR(399,IBIFN,"C")):IBU,$P(^DGCR(399,IBIFN,"C"),U,10)'="":$P(^DGCR(399,IBIFN,"C"),U,10),1:IBU) Line Location: EN+9
Function Call: WRITE	Prompt: !?4,"Other Diag.: ",$P(Y,U,4)_" - "_$P(Y,U,2) Line Location: EN+12
Function Call: WRITE	Prompt: !?4,"*There are more diagnoses associated with this bill.*" Line Location: EN+13
Function Call: WRITE	Prompt: " Prin. Diag.: ",$S($D(^ICD9(+$P(IB("C"),U,14),0)):$P(^(0),U,3)_" - "_$P(^(0),U,1),$P(IB(0),U,19)=2:IBU,1:IBUN) Line Location: EN+14
Function Call: WRITE	Prompt: !?4,"Other Diag.: ",$S($D(^ICD9($P(IB("C"),U,I),0)):$P(^(0),U,3)_" - "_$P(^(0),U,1),1:IBU) Line Location: EN+15
Function Call: WRITE	Prompt: !?17 Condition for execution: $X>67 Line Location: OP+0
Function Call: WRITE	Prompt: Y_", " Line Location: OP+0
Function Call: WRITE	Prompt: IBU Line Location: OP+1
Function Call: WRITE	Prompt: " Cod. Method: ",$S($P(IB(0),U,9)="":IBUN,$P(IB(0),U,9)=9:"ICD-9-CM",$P(IB(0),U,9)=4:"CPT-4",1:"HCPCS") Line Location: OP+2
Function Call: WRITE	Prompt: !?4,"CPT Code : ",$P(^ICPT(IBCPT(I),0),U,2)," - ",$P(^(0),U),?55,"Date: " Line Location: OP+4
Function Call: WRITE	Prompt: IBUN Line Location: OP+7
Function Call: WRITE	Prompt: ?58,$P($G(^ICD9(Y,0)),U,1) Line Location: WRT+4
Function Call: WRITE	Prompt: ?67,Y Line Location: WRT+4
Function Call: WRITE	Prompt: ?58,"Date: ",Y Line Location: WRT+5
Function Call: WRITE	Prompt: !,?17,"* There are more Pros. Items associated with this bill.*" Line Location: PD+3
Function Call: WRITE	Prompt: ?17,$E($$PIN^IBCSC5B(+IBN),1,35)," - ",$P(IBN,U,1),?65,$$FMTE^XLFDT(+IBZ) Line Location: PD+4
Function Call: WRITE	Prompt: ?17,$E($P(IBN,U,2),1,35)," - ",$P(IBN,U,1),?65,$$FMTE^XLFDT(+IBZ) Line Location: PD+5
Function Call: WRITE	Prompt: !,?17,"* There are more RX. Refills associated with this bill.*" Line Location: RX+3
Function Call: WRITE	Prompt: ?17,$P(IBN,U,1),?65,$$FMTE^XLFDT(+$P(IBZ,U,3)) Line Location: RX+4

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	OP
^DGCR(399 - [#399]	EN, EN+3, EN+4, OP, OP+1
^IBA(362.3 - [#362.3]	WRT+4
^IBA(362.4 - [#362.4]	RX+1, RX+2
^IBA(362.5 - [#362.5]	PD+1, PD+2
^ICD9 - [#80]	WRT+4
^PSDRUG - [#50]	RX+4

Name	Line Occurrences
$$RX	OP+7
MORE	WRT+1
WRT	OP+3

Name	Field # of Occurrence
^(	EN+4

Local Variables

Name	Comments	DBIA/ICR reference
EN
OCC
RX()	;prints RX REFILLS in external form, returns 0 if there are nonE
PD()	;prints prosthetic device in external form, retuns 0 if there are nonE
WRT	; -write out procedures codes on screen
OP
MORE

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DGOPV	OP+1*
DGRVRCAL	EN+2!
>> I	EN+4, EN+12, OP, MORE, WRT+1*
>> IB(	EN+4*
>> IB(0	EN+6, EN+8, EN+11, OP+2, WRT+4
IBASKCOD	EN+1!
>> IBBT	EN+6*
>> IBIFN	EN, EN+3, EN+4, EN+10, OP, OP+1, PD+1, PD+2, RX+1, RX+2
IBN	PD+1~, PD+5, RX+1~, RX+4
IBPOARR	EN+10~
>> IBPROC	OP+3
>> IBPROC(	WRT+1, WRT+2, WRT+3, WRT+4, WRT+5
>> IBPTF	EN+6*
>> IBSR	EN+4*
>> IBSR1	EN+4*
>> IBU	EN+11, OP+1
>> IBUN	EN+11, OP+2, OP+7, OCC+1
>> IBV	EN+4
>> IBV1	EN+4*
>> IBW	EN+8, EN+11, OP, OP+2, OP+7*
>> IBWW	EN+8, EN+11, OP, OP+2, OP+7
IBX	PD+1~, PD+2, RX+1~, RX+2
IBY	PD+1~, PD+2, RX+1~, RX+2
IBZ	PD+1~, PD+2, PD+5, RX+1~, RX+2, RX+4
>> J	WRT+1*, WRT+2, WRT+3, WRT+4, WRT+5
U	EN+6, EN+8, EN+11, EN+12, OP+2, WRT+1, WRT+4, PD+5, RX+4
X	WRT+1, WRT+2, WRT+3, PD+1~, PD+2, PD+3, PD+5, PD+6, RX+1~, RX+2 , RX+3*, RX+4, RX+5
>> Y	EN+8, EN+11, EN+12, EN+13, OP, OP+7, WRT+4, WRT+5
>> Z	EN+8, EN+11, OP, OP+2, OP+7*

Customize PDF page

Package: Integrated Billing

Routine: IBCSC5

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: