Routine: IBCSC4

Package	Total	Call Graph
Integrated Billing	9	DX^IBCSC4A Q^IBCSC4B SET^IBCSC4D ($$PD,EN,WRT)^IBCSC5 ^IBCSCP (,H)^IBCSCU ^IBCU6 CODMUL^IBCU7 (OCC,VC)^IBCVA1

Package

Total

Call Graph

Integrated Billing

DX^IBCSC4A Q^IBCSC4B SET^IBCSC4D ($$PD,EN,WRT)^IBCSC5 ^IBCSCP (,H)^IBCSCU ^IBCU6 CODMUL^IBCU7
(OCC,VC)^IBCVA1

Package	Total	Caller Graph
Integrated Billing	2	IBCSC5 IBCVA1

Package

Total

Caller Graph

Integrated Billing

IBCSC5 IBCVA1

Entry Points

Name	Comments	DBIA/ICR reference
SET	;S ^DD(399.0304,0,"ID","WRITE")="N X S X=^(0) W "" "",$E($P($G(@(U_$P($P(X,U),"";"",2)_+X_"",0)"")),U,$S($P(X,U,1)[""CPT"":2,1:4)),1,30)"
DX(ORDER)	;
OCC	;I $O(^DGCR(399,IBIFN,"CP",0)) S I=0 F I1=1:1 S I=$O(^DGCR(399,IBIFN,"CP",I)) D:I1>9 MORE Q:'I W !,?17 S Y=$P(^(I,0),"^",2) D:+Y D^DIQ D OCC1
INP
OCC1
EN

Name	Field # of Occurrence
DX^IBCSC4A	EN+9
Q^IBCSC4B	OCC+14
SET^IBCSC4D	EN+17
$$PD^IBCSC5	OCC+2
EN^IBCSC5	EN
WRT^IBCSC5	EN+23
^IBCSCP	OCC+14
^IBCSCU	EN+4
H^IBCSCU	EN+6
^IBCU6	EN+2
CODMUL^IBCU7	EN+1
OCC^IBCVA1	EN+9
VC^IBCVA1	OCC+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: I Line Location: EN+12
Function Call: WRITE	Prompt: $S(Y]"":Y,1:IBU) Line Location: EN+15
Function Call: WRITE	Prompt: !?4,"Other Diag.: ",$P(Y,U,4)_" - "_$P(Y,U,2) Line Location: EN+19
Function Call: WRITE	Prompt: !?4,"*There are more diagnoses associated with this bill.*" Line Location: EN+20
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+21
Function Call: WRITE	Prompt: " Cod. Method: ",$S(DGPCM="":IBUN,DGPCM=9:"ICD-9-CM",DGPCM=4:"CPT-4",1:"HCPCS") Line Location: EN+22
Function Call: WRITE	Prompt: !?4,"Pro. Code : ",IBUN Line Location: EN+24
Function Call: WRITE	Prompt: !?4,"CPT Code : ",$P(^ICPT(IBCPT(I),0),U,2)," - ",$P(^(0),U),?55,"Date: " Line Location: EN+25
Function Call: WRITE	Prompt: !?4,"ICD Code : ",$S($D(^ICD0(IBICD(I),0)):$E($P(^(0),U,4),1,20)_" - "_$P(^(0),U,1),1:IBUC),?55,"Date: " Line Location: EN+27
Function Call: WRITE	Prompt: !?4,"HCFA Code : ",$P(^ICPT(IBHC(I),0),U,2)," - ",IBHCN(I),?55,"Date: " Line Location: EN+29
Function Call: WRITE	Prompt: !,?17 Line Location: OCC+0
Function Call: WRITE	Prompt: IBUN Line Location: OCC+2
Function Call: WRITE	Prompt: !?4,"Occ. Code : ",$E(IBOCN(I),1,27) Condition for execution: I>1 Line Location: OCC+4
Function Call: WRITE	Prompt: $E(IBOCN(I),1,27) Condition for execution: I=1 Line Location: OCC+4
Function Call: WRITE	Prompt: ?55,Y Line Location: OCC+4
Function Call: WRITE	Prompt: " - ",Y Line Location: OCC+4
Function Call: WRITE	Prompt: IBUN Line Location: OCC+5
Function Call: WRITE	Prompt: IBUN Line Location: OCC+6
Function Call: WRITE	Prompt: IBUN Line Location: OCC+9
Function Call: WRITE	Prompt: IBUN Line Location: OCC+10
Function Call: WRITE	Prompt: !,?3," Value Code : " Condition for execution: J>1 Line Location: OCC+12
Function Call: WRITE	Prompt: ?17,$E($P(IBVC(I),U,2),1,40),?58,$P(IBVC(I),U,3) Line Location: OCC+12

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+11, EN+15, OCC+4
^DD(399	EN+12
^DGCR(399 - [#399]	EN, EN+3, OCC1, INP, INP+2
^DGCR(399.1 - [#399.1]	EN+16
^DGPT - [#45]	INP+1
^ICD9 - [#80]	DX+1

Name	Line Occurrences
$$DX	EN+18, EN+19, EN+20
@(	EN+6
INP	EN+7

Name	Field # of Occurrence
^(	INP, INP+1, INP+2
^(0	EN+16, OCC1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DGPCM	EN+22*
>> DGPT(	INP+1*
>> DGPT(0	EN+9, EN+10, EN+11, INP+3
>> DGPT(70	INP+3, INP+4
DGRVRCAL	EN+2!
>> I	EN+6, EN+12, EN+19, OCC+4, OCC+8, OCC+12, OCC1, INP, INP+1, INP+2*
>> IB(	INP, INP+2
>> IB("U"	EN+11, EN+12, EN+13, EN+16, INP+3, INP+4
>> IB(0	EN+8, EN+22, OCC+1, OCC+3, OCC+7, OCC+11, INP+1, INP+3
IBASKCOD	EN+1!
>> IBBT	EN+8*
>> IBCC	OCC+9, OCC+10
>> IBCC(	OCC+8
>> IBCCN(	OCC+8
>> IBIFN	EN, EN+3, EN+17, OCC1, INP, INP+2
>> IBIP	EN+11, EN+15, INP+3, INP+4
>> IBO	OCC+5, OCC+6
>> IBO(	OCC+4
>> IBOCD(	OCC+4
>> IBOCD2(	OCC+4
>> IBOCN(	OCC+4
IBPOARR	EN+17~, DX+1
IBPOARR(	DX+1
>> IBPROC	EN+23
>> IBPTF	INP+1*, INP+3
>> IBSR	EN+4*
>> IBSR1	EN+4*
>> IBU	EN+11, EN+13, EN+15, EN+16
>> IBUC	EN+4*
>> IBUN	EN+18, EN+22, OCC+2, OCC+5, OCC+6, OCC+9, OCC+10, OCC+13
>> IBV	EN+5
>> IBV1	EN+4, EN+5
IBVC	OCC+12, OCC+13!
IBVC(	OCC+12
>> IBW	EN+18, EN+22, OCC+2*
>> IBWW	EN+11, EN+14, EN+18, EN+22, OCC+2, OCC+3, OCC+7, OCC+12
IBX	DX+1~*, DX+2
IBY	DX+1~*
>> J	OCC+12*
ORDER	DX~, DX+1*
U	EN+10, EN+11, EN+12, EN+13, EN+15, EN+16, EN+18, EN+19, EN+22, OCC+1 , OCC+3, OCC+7, OCC+11, OCC+12, OCC1, INP+1
>> Y	EN+6, EN+11, EN+15, EN+18, EN+19, EN+20, OCC+2, OCC+4, OCC1
>> Z	EN+11, EN+14, EN+18, EN+22, OCC+1, OCC+3, OCC+7, OCC+11

Customize PDF page

Package: Integrated Billing

Routine: IBCSC4

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: