Routine: IBCSC10H

Package	Total	Call Graph
Integrated Billing	14	($$BDATE,$$ICD9)^IBACSV $$INPAT^IBCEF ($$MRASEC,$$TXMT)^IBCEF4 ($$PROVTAX,$$SPECTAX)^IBCEF73A DEFSEC^IBCEF74 ($$B,GETBP)^IBCEF79 ($$CLIA,$$CLIAREQ,$$XRAY)^IBCEP8A ($$CKPROV,$$PSRV,GETPRV)^IBCEU $$BBB^IBCSC10 ^IBCSCP (,H)^IBCSCU $$FT^IBCU3 $$REQMRA^IBEFUNC $$EXPAND^IBTRE
VA FileMan	3	^DIE $$EXTERNAL^DILFD $$GET1^DIQ

Package	Total	Caller Graph
Integrated Billing	7	IBCEU IBCEXTRP IBCSC10 IBCSC102 IBCU7B IBXSA21 IBXSAH1

Name	Comments	DBIA/ICR reference
EN	;
Q
WRT1(IBCRED)	; Write credentials mismatch
NSAME(DA)	; Returns 1 if div on bill is not the default billing facility
WRAP(STRING,ROOM,SUBS,IBARY)	; wrap long lines without breaking up words
FILTERP(IBIEN,TYPE)	;filter input of provider for dental claims

Name	Field # of Occurrence
^DIE	EN+102, EN+114
$$EXTERNAL^DILFD	EN+173
$$GET1^DIQ	EN+87, EN+88, EN+130, EN+151, EN+152
$$BDATE^IBACSV	EN+19
$$ICD9^IBACSV	EN+33
$$INPAT^IBCEF	EN+33
$$MRASEC^IBCEF4	EN+171
$$TXMT^IBCEF4	EN+175
$$PROVTAX^IBCEF73A	EN+63
$$SPECTAX^IBCEF73A	EN+64
DEFSEC^IBCEF74	EN+61
$$B^IBCEF79	EN+147
GETBP^IBCEF79	EN+147
$$CLIA^IBCEP8A	EN+98
$$CLIAREQ^IBCEP8A	EN+96
$$XRAY^IBCEP8A	EN+111
$$CKPROV^IBCEU	EN+42
$$PSRV^IBCEU	EN+83
GETPRV^IBCEU	EN+21
$$BBB^IBCSC10	EN+9
^IBCSCP	EN+180
^IBCSCU	EN+2
H^IBCSCU	EN+25
$$FT^IBCU3	EN+13, EN+128
$$REQMRA^IBEFUNC	EN+170
$$EXPAND^IBTRE	EN+68, EN+82

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?4,"ICN/DCN(s) : ",IBZ(0) Line Location: EN+39
Function Call: WRITE	Prompt: !?25,IBZ(IBZCNT) Line Location: EN+40
Function Call: WRITE	Prompt: !,?3," Auth/Referral : ",IBZ(0) Line Location: EN+51
Function Call: WRITE	Prompt: !?25,IBZ(IBZCNT) Line Location: EN+52
Function Call: WRITE	Prompt: !,?5,"- " Line Location: EN+67
Function Call: WRITE	Prompt: $E(A_$J("",16),1,16),": " Line Location: EN+70
Function Call: WRITE	Prompt: IBU Line Location: EN+71
Function Call: WRITE	Prompt: $E($P(IB("PRV",IBZ),U)_$J("",16),1,16) Line Location: EN+73
Function Call: WRITE	Prompt: " Taxonomy: ",$S($P(IBTAX,U,IBZ)'="":$P(IBTAX,U,IBZ),1:IBU),$S($P(IBSPEC,U,IBZ)'="":" ("_$P(IBSPEC,U,IBZ)_")",1:"") Line Location: EN+74
Function Call: WRITE	Prompt: !,?30,$E(IBQ,1,49) Line Location: EN+76
Function Call: WRITE	Prompt: " Other Facility (VA/non): " Line Location: EN+82
Function Call: WRITE	Prompt: ?53,"Taxonomy: " Line Location: EN+86
Function Call: WRITE	Prompt: !,?4,"Lab CLIA # : ",IBZ1 Line Location: EN+105
Function Call: WRITE	Prompt: !?4,"Mammography Cert # : ",IBZ1 Line Location: EN+118
Function Call: WRITE	Prompt: " Dental Claim Note : " Line Location: EN+130
Function Call: WRITE	Prompt: IBUN Line Location: EN+131
Function Call: WRITE	Prompt: !,?23,": ",IBNOTE(2) Line Location: EN+134
Function Call: WRITE	Prompt: !,?4,"Homebound : ",$$EXPAND^IBTRE(399,236,$P(IB("U2"),U,14)) Line Location: EN+138
Function Call: WRITE	Prompt: !,?4,"Date Last Seen : ",$$EXPAND^IBTRE(399,237,$P(IB("U2"),U,15)) Line Location: EN+139
Function Call: WRITE	Prompt: " Billing Provider : " Line Location: EN+145
Function Call: WRITE	Prompt: !?3," Taxonomy Code : " Line Location: EN+150
Function Call: WRITE	Prompt: " Alt Prim Payer ID : " Line Location: EN+158
Function Call: WRITE	Prompt: ?23,IBUN Line Location: EN+164
Function Call: WRITE	Prompt: " Provider ID Maint : (Edit Provider ID information)",! Line Location: EN+179
Function Call: WRITE	Prompt: !,7," Warning* Credentials differ from those found in NEW PERSON or IB NON VA",!,$J("",14),"BILLING PROVIDER file (",$S(IBCRED="":"none",1:IBCRED),")" Line Location: WRT1+1
Function Call: WRITE	Prompt: !,$J("",14),"Changes will print local, but only credentials on file transmit" Line Location: WRT1+2
Routine Call	DIE Line Location: EN+102 EN+114

FileNo	Call Tags
^DGCR(399 - [#399]	EXTERNAL^DILFD, GET1^DIQ
^USC(8932.1 - [#8932.1]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+28, EN+29, EN+122
^DG(40.8 - [#40.8]	NSAME+1
^DGCR(399 - [#399]	EN+15, EN+128, NSAME+1, FILTERP+3, FILTERP+4, FILTERP+5, FILTERP+6, FILTERP+7, FILTERP+8, FILTERP+9 , FILTERP+10, FILTERP+11, FILTERP+12, FILTERP+13, FILTERP+14, FILTERP+15
^IBE(350.9 - [#350.9]	NSAME+1

Name	Line Occurrences
$$WRAP	EN+133

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	EN+59~, EN+68, EN+69, EN+70, EN+75*
A1	EN+59~, EN+69*
C	WRAP+11~, WRAP+21*, WRAP+23, WRAP+25
CLIAREQ	EN+95~, EN+96*, EN+97
DA	EN+95~, EN+102, EN+112~, EN+114, NSAME~, NSAME+1
DEFCLIA	EN+95~, EN+98*, EN+99, EN+101, EN+102
DIE	EN+95~, EN+102, EN+112~, EN+114
DR	EN+95~, EN+102, EN+112~, EN+114
END	WRAP+11~, WRAP+20, WRAP+23
I	EN+1~, EN+15, WRAP+11~, WRAP+16, WRAP+23*, WRAP+24
IB	EN+1~
IB(	EN+15*
IB("M2"	EN+161, EN+162, EN+163
IB("PRV"	EN+22!, EN+23*, EN+57, EN+58, EN+65, EN+69, EN+71, EN+72, EN+73, EN+78!
IB("TX"	EN+173, EN+174*, EN+175
IB("U"	EN+28, EN+29, EN+44
IB("U2"	EN+33, EN+45, EN+46, EN+82, EN+92
IB("U3"	EN+87, EN+88, EN+108, EN+122, EN+151, EN+152
IB("UF3"	EN+35, EN+36, EN+37
IB("UF32"	EN+47, EN+48, EN+49
IBARR	EN+59~, EN+61
IBARR(	EN+75
IBARY	WRAP~
IBARY(	WRAP+16, WRAP+23
IBARY(1	WRAP+13, WRAP+18, WRAP+24*
IBCRED	WRT1~, WRT1+1
IBDATE	EN+17~, EN+19*, EN+33
IBIEN	FILTERP~, FILTERP+3, FILTERP+4, FILTERP+5, FILTERP+6, FILTERP+7, FILTERP+8, FILTERP+9, FILTERP+10, FILTERP+11 , FILTERP+12, FILTERP+13, FILTERP+14, FILTERP+15
>> IBIFN	EN+9, EN+13, EN+15, EN+19, EN+21, EN+33, EN+42, EN+61, EN+63, EN+64 , EN+83, EN+96, EN+98, EN+102, EN+111, EN+114, EN+128, EN+130, EN+147, EN+170 , EN+171, EN+175
IBMDOTCN	EN+100!
IBMRASEC	EN+17~, EN+171*, EN+174
IBNOSPEC	EN+59~, EN+64
IBNOTAX	EN+59~, EN+63
IBNOTE	EN+132~, EN+133*
IBNOTE(1	EN+134
IBNOTE(2	EN+134
IBPRV	EN+17~, EN+20*, EN+21
IBPRV(	EN+23
IBQ	EN+59~, EN+66, EN+75, EN+76
IBREQ	EN+17~, EN+170*, EN+172, EN+173, EN+175
IBSPEC	EN+59~, EN+64*, EN+74
>> IBSR	EN+8*
>> IBSR1	EN+8*
IBTAX	EN+59~, EN+63*, EN+74
>> IBU	EN+57, EN+71, EN+74, EN+83, EN+87, EN+99, EN+100, EN+149, EN+151
>> IBUN	EN+28, EN+29, EN+33, EN+38, EN+50, EN+83, EN+97, EN+113, EN+117, EN+122 , EN+128, EN+131, EN+164
>> IBV	EN+10, EN+13
>> IBV1	EN+8, EN+9, EN+10, EN+13
>> IBW	EN+28, EN+32, EN+56, EN+81, EN+121, EN+125, EN+144, EN+157, EN+169, EN+178
>> IBWW	EN+28, EN+33, EN+56, EN+81, EN+121, EN+125, EN+144, EN+157, EN+169, EN+178
IBX1	FILTERP+1~, FILTERP+2, FILTERP+3, FILTERP+4, FILTERP+5, FILTERP+6, FILTERP+7, FILTERP+8, FILTERP+9, FILTERP+11* , FILTERP+12, FILTERP+14*, FILTERP+15
IBX2	FILTERP+1~, FILTERP+5, FILTERP+6, FILTERP+8, FILTERP+9
IBZ	EN+17~, EN+23, EN+33, EN+41!, EN+42, EN+53!, EN+60, EN+65, EN+68, EN+69 , EN+71, EN+72, EN+73, EN+74, EN+75, EN+82, EN+83, EN+84, EN+87, EN+88* , EN+92, EN+94, EN+108, EN+111, EN+117, EN+128, EN+130, EN+131, EN+133, EN+146! , EN+147, EN+148, EN+149, EN+151, EN+152, EN+159!, EN+166!, EN+173, EN+174*, EN+175
IBZ(	EN+34, EN+35, EN+36, EN+37, EN+40, EN+43, EN+44, EN+45, EN+46, EN+47* , EN+48, EN+49, EN+52, EN+161, EN+162, EN+163*, EN+165
IBZ("CMS-1500	SCREEN 8" , EN+148
IBZ(0	EN+38, EN+39, EN+50, EN+51
IBZ1	EN+17~, EN+92, EN+97, EN+99, EN+100, EN+101, EN+105, EN+108, EN+113, EN+117 , EN+118, EN+165*
IBZCNT	EN+17~, EN+34, EN+35, EN+36, EN+37, EN+40, EN+43, EN+44, EN+45, EN+46 , EN+47, EN+48, EN+49, EN+52, EN+160, EN+161, EN+162, EN+163*, EN+164, EN+165
LEN	WRAP+15~*, WRAP+16
OK	FILTERP+1~, FILTERP+2, FILTERP+3, FILTERP+4, FILTERP+6, FILTERP+7, FILTERP+9, FILTERP+10, FILTERP+12, FILTERP+13 , FILTERP+15*, FILTERP+16
ROOM	WRAP~, WRAP+13, WRAP+16, WRAP+18, WRAP+20
START	WRAP+11~, WRAP+20, WRAP+21, WRAP+23
STOP	WRAP+11~, WRAP+21, WRAP+24*
STRING	WRAP~, WRAP+13, WRAP+14, WRAP+15, WRAP+16, WRAP+18, WRAP+20, WRAP+21, WRAP+23, WRAP+24
SUBS	WRAP~, WRAP+23
TYPE	FILTERP~, FILTERP+4, FILTERP+7, FILTERP+10, FILTERP+13
U	EN+28, EN+29, EN+33, EN+35, EN+36, EN+37, EN+44, EN+45, EN+46, EN+47 , EN+48, EN+49, EN+69, EN+71, EN+72, EN+73, EN+74, EN+82, EN+87, EN+88 , EN+92, EN+108, EN+122, EN+128, EN+151, EN+152, EN+161, EN+162, EN+163, EN+173 , EN+174, EN+175, NSAME+1
Y	EN+1~, EN+28, EN+29, EN+122*
Z	EN+1~, EN+28, EN+32, EN+56, EN+81, EN+121, EN+125, EN+144, EN+157, EN+169* , EN+178*

Customize PDF page

Package: Integrated Billing

Routine: IBCSC10H

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: