Routine: IBCF10

Package	Total	Call Graph
Integrated Billing	6	($$BDATE,$$CPT,$$ICD0,$$ICD9)^IBACSV 13^IBCF11 SET^IBCSC4D (Q1,Q2,Q3,Q4)^IBCVA (EN2,EN3)^IBCVA0 (EN4,EN5)^IBCVA1

Package	Total	Caller Graph
Integrated Billing	1	IBCF1

Entry Points

Name	Comments	DBIA/ICR reference
7
8
9
10
11
12
ICW
NWREVC	;print for mult bedsections/rev codes
NWREVC1	;
NWREVC2
ADDCOD	;Additional Procedures Print

External References

Name	Field # of Occurrence
$$BDATE^IBACSV	12+4
$$CPT^IBACSV	ADDCOD+3
$$ICD0^IBACSV	ADDCOD+2
$$ICD9^IBACSV	12+6, ICW
13^IBCF11	12+8
SET^IBCSC4D	12+3
Q1^IBCVA	8+4
Q2^IBCVA	11+7
Q3^IBCVA	9+3, 10+3
Q4^IBCVA	8+4
EN2^IBCVA0	9+3, 10+3
EN3^IBCVA0	8+4
EN4^IBCVA1	11+7
EN5^IBCVA1	11+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $P(IBMA,"^",4),! Line Location: 7+1
Function Call: WRITE	Prompt: $P(IBMA,"^",5) Condition for execution: $P(IBMA,"^",5)]"" Line Location: 7+1
Function Call: WRITE	Prompt: ?30,IBCC(1) Condition for execution: $D(IBCC(1)) Line Location: 7+1
Function Call: WRITE	Prompt: ?33,IBCC(2) Condition for execution: $D(IBCC(2)) Line Location: 7+1
Function Call: WRITE	Prompt: ?36,IBCC(3) Condition for execution: $D(IBCC(3)) Line Location: 7+1
Function Call: WRITE	Prompt: ?39,IBCC(4) Condition for execution: $D(IBCC(4)) Line Location: 7+1
Function Call: WRITE	Prompt: ?42,IBCC(5) Condition for execution: $D(IBCC(5)) Line Location: 7+1
Function Call: WRITE	Prompt: ?61,$P(IB("U1"),U,7) Condition for execution: $P(IB("U1"),U,7)]"" Line Location: 7+2
Function Call: WRITE	Prompt: !,$P(IBMA,"^",6) Condition for execution: $P(IBMA,"^",6)]"" Line Location: 7+2
Function Call: WRITE	Prompt: !,$P(IB("M1"),"^",1) Condition for execution: $P(IB("M1"),"^",1)]"" Line Location: 7+2
Function Call: WRITE	Prompt: !,$P(IBMA,"^",7),?$X+2,IBPST,?$X+2,$P(IBMA,"^",9) Line Location: 7+2
Function Call: WRITE	Prompt: ! Line Location: 8+0
Function Call: WRITE	Prompt: " (page ",DGPAG," of ",DGTOTPAG,")" Line Location: 8+2
Function Call: WRITE	Prompt: ! Line Location: 8+3
Function Call: WRITE	Prompt: ! Line Location: 9+0
Function Call: WRITE	Prompt: "MEDICARE ESRD" Line Location: 9+2
Function Call: WRITE	Prompt: ?24,$S($P(IB("U"),U,5)=0:"Y",1:"R"),?27,$S($P(IB("U"),U,6)["N":"N",$P(IB("U"),U,6)["n":"N",$P(IB("U"),U,6)=0:"N",1:"Y") Line Location: 9+3
Function Call: WRITE	Prompt: !,$E(X,1,23),?24,$S($P(IB("U"),U,5)=0:"Y",1:"R"),?27,$S(M["N":"N",M["n":"N",M=0:"N",1:"Y") Line Location: 9+4
Function Call: WRITE	Prompt: ! Line Location: 10+0
Function Call: WRITE	Prompt: !,$P(IBDD(I,0),U,17),?23,$E(IBISEX(I),1),?26,IBIRN(I),?29,$P(IBDD(I,0),U,2),?46,$E($P(IBDD(I,0),U,15),1,14),?61,$P(IBDD(I,0),U,3) Line Location: 10+2
Function Call: WRITE	Prompt: !,VADM(1),?23,$P(VADM(5),"^"),?26,"01",?29,$P(VADM(2),"^") Line Location: 11+0
Function Call: WRITE	Prompt: ! Line Location: 11+1
Function Call: WRITE	Prompt: "P" Line Location: 11+5
Function Call: WRITE	Prompt: ?2,$S('$D(IBEC):9,IBEC:IBEC,1:9),?4,$P(IBEMPD,U),?42,$P(IBEMPD,U,2),?$X+2,$S($P(IBEMPD,U,7)'="":$P(^DIC(5,$P(IBEMPD,U,7),0),U,2),1:""),?$X+2,$P(IBEMPD,U,8) Line Location: 11+5
Function Call: WRITE	Prompt: ! Line Location: 12+0
Function Call: WRITE	Prompt: Condition for execution: $P(IB("C"),U,14)'="" $P(^ICD9($P(IB("C"),U,14),0),U,3) K X2 S X=$P(IB("C"),U,14) D ICW W ?44,X S X2=44 F I=15:1:18 Q:'$D(IBDIN(I)) Line Location: 12+1
Function Call: WRITE	Prompt: ?X2,X Line Location: 12+1
Function Call: WRITE	Prompt: $P($$ICD9^IBACSV(+IBINDXX(I),IBEVDT),U,3) Line Location: 12+6
Function Call: WRITE	Prompt: ?X2,X Line Location: 12+7
Function Call: WRITE	Prompt: ! Line Location: NWREVC1+1
Function Call: WRITE	Prompt: !,$P(DGTEXT,"^") Line Location: NWREVC1+3
Function Call: WRITE	Prompt: ! Line Location: NWREVC1+4
Function Call: WRITE	Prompt: +$E(DGTEXT1,4,5)_"/"_+$E(DGTEXT1,6,7)_"/"_$E(DGTEXT1,2,3) Condition for execution: $L(DGTEXT1) Line Location: NWREVC1+4
Function Call: WRITE	Prompt: !,$E($P(^DGCR(399.2,+DGREVC,0),"^",2),1,22),?22,$J($P(DGREVC,"^",2),7,2),?31,$P(^(0),"^"),?35,$J($P(DGREVC,"^",3),3),?39,$J($P(DGREVC,"^",4),9,2) Line Location: NWREVC2+0
Function Call: WRITE	Prompt: ?11,$P(IBCPT,U) Line Location: ADDCOD+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	9+2, 9+3, 11, 11+3, NWREVC1+5
^DGCR(399.2 - [#399.2]	NWREVC2
^DGCR(399.3 - [#399.3]	9+2, 11
^DIC(36 - [#36]	9+4
^DIC(5 - [#5]	7, 11+4, 11+5
^DPT - [#2]	11+4
^UTILITY($J	NWREVC+1

Label References

Name	Line Occurrences
11	9+3
ADDCOD	NWREVC1+4
ICW	12+7
NWREVC	8+1
NWREVC1	NWREVC+1
NWREVC2	NWREVC1+5

Naked Globals

Name	Field # of Occurrence
^(	11+4, NWREVC+1
^("I1"	11+3
^(0	7, NWREVC1+5, NWREVC2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	11+4
>> DGCNT	NWREVC+1, NWREVC+2
>> DGPAG	8+2, NWREVC+1
>> DGREVC	NWREVC1+5*, NWREVC2
>> DGTEXT	NWREVC+1*, NWREVC1+1, NWREVC1+2, NWREVC1+3, NWREVC1+4, NWREVC1+5, ADDCOD+1, ADDCOD+2, ADDCOD+3
>> DGTEXT1	NWREVC1+4*, ADDCOD+2, ADDCOD+3
>> DGTOTPAG	8+2
>> I	8, 8+3, 9, 9+4, 10, 10+2, 11+1, 12, 12+5, 12+6 , 12+7, NWREVC+1*
>> IB("M"	7
>> IB("M1"	7+2
>> IB("U"	9+3, 9+4
>> IB("U1"	7+2
>> IB(0	9+2, 11
IB01	8+4!
>> IBCC(1	7+1
>> IBCC(2	7+1
>> IBCC(3	7+1
>> IBCC(4	7+1
>> IBCC(5	7+1
>> IBCPT	ADDCOD+1, ADDCOD+2, ADDCOD+3*, ADDCOD+4
>> IBDD	9+4, 10+2
>> IBDD(	9+4, 10+2
>> IBEC	11+5
>> IBEMPD	11+5
IBEVDT	12+2~, 12+4*, 12+6
>> IBIFN	9+2, 9+3, 11, 11+3, 12+3, 12+4, NWREVC1+5
>> IBIN	9+4, 10+2
IBINDXX	12+2~, 12+3
IBINDXX(	12+6, 12+7
IBINDXX(0	12+5
>> IBIRN(	10+2
>> IBISEX(	10+2
>> IBMA	7*, 7+1, 7+2
>> IBPST	7*, 7+2
IBROI	11+3*, 11+4, 11+5, 11+6!
IBSPEM	11+4*!
>> M	9+4*
U	7, 7+2, 9+3, 9+4, 10+2, 11+3, 11+4, 11+5, 12+6, ICW , ADDCOD+1, ADDCOD+2, ADDCOD+3, ADDCOD+4
>> VADM(1	11
>> VADM(2	11
>> VADM(5	11
>> X	9+4, 12+7, ICW*
>> X2	12+7, ICW

Customize PDF page

Package: Integrated Billing

Routine: IBCF10

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: