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+103, EN+115
$$EXTERNAL^DILFD	EN+174
$$GET1^DIQ	EN+88, EN+89, EN+131, EN+152, EN+153
$$BDATE^IBACSV	EN+20
$$ICD9^IBACSV	EN+34
$$INPAT^IBCEF	EN+34
$$MRASEC^IBCEF4	EN+172
$$TXMT^IBCEF4	EN+176
$$PROVTAX^IBCEF73A	EN+64
$$SPECTAX^IBCEF73A	EN+65
DEFSEC^IBCEF74	EN+62
$$B^IBCEF79	EN+148
GETBP^IBCEF79	EN+148
$$CLIA^IBCEP8A	EN+99
$$CLIAREQ^IBCEP8A	EN+97
$$XRAY^IBCEP8A	EN+112
$$CKPROV^IBCEU	EN+43
$$PSRV^IBCEU	EN+84
GETPRV^IBCEU	EN+22
$$BBB^IBCSC10	EN+9
^IBCSCP	EN+181
^IBCSCU	EN+2
H^IBCSCU	EN+26
$$FT^IBCU3	EN+14, EN+129
$$REQMRA^IBEFUNC	EN+171
$$EXPAND^IBTRE	EN+69, EN+83

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?4,"ICN/DCN(s) : ",IBZ(0) Line Location: EN+40
Function Call: WRITE	Prompt: !?25,IBZ(IBZCNT) Line Location: EN+41
Function Call: WRITE	Prompt: !,?3," Auth/Referral : ",IBZ(0) Line Location: EN+52
Function Call: WRITE	Prompt: !?25,IBZ(IBZCNT) Line Location: EN+53
Function Call: WRITE	Prompt: !,?5,"- " Line Location: EN+68
Function Call: WRITE	Prompt: $E(A_$J("",16),1,16),": " Line Location: EN+71
Function Call: WRITE	Prompt: IBU Line Location: EN+72
Function Call: WRITE	Prompt: $E($P(IB("PRV",IBZ),U)_$J("",16),1,16) Line Location: EN+74
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+75
Function Call: WRITE	Prompt: !,?30,$E(IBQ,1,49) Line Location: EN+77
Function Call: WRITE	Prompt: " Other Facility (VA/non): " Line Location: EN+83
Function Call: WRITE	Prompt: ?53,"Taxonomy: " Line Location: EN+87
Function Call: WRITE	Prompt: !,?4,"Lab CLIA # : ",IBZ1 Line Location: EN+106
Function Call: WRITE	Prompt: !?4,"Mammography Cert # : ",IBZ1 Line Location: EN+119
Function Call: WRITE	Prompt: " Dental Claim Note : " Line Location: EN+131
Function Call: WRITE	Prompt: IBUN Line Location: EN+132
Function Call: WRITE	Prompt: !,?23,": ",IBNOTE(2) Line Location: EN+135
Function Call: WRITE	Prompt: !,?4,"Homebound : ",$$EXPAND^IBTRE(399,236,$P(IB("U2"),U,14)) Line Location: EN+139
Function Call: WRITE	Prompt: !,?4,"Date Last Seen : ",$$EXPAND^IBTRE(399,237,$P(IB("U2"),U,15)) Line Location: EN+140
Function Call: WRITE	Prompt: " Billing Provider : " Line Location: EN+146
Function Call: WRITE	Prompt: !?3," Taxonomy Code : " Line Location: EN+151
Function Call: WRITE	Prompt: " Alt Prim Payer ID : " Line Location: EN+159
Function Call: WRITE	Prompt: ?23,IBUN Line Location: EN+165
Function Call: WRITE	Prompt: " Provider ID Maint : (Edit Provider ID information)",! Line Location: EN+180
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+103 EN+115

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+29, EN+30, EN+123
^DG(40.8 - [#40.8]	NSAME+1
^DGCR(399 - [#399]	EN+16, EN+129, 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+134

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	EN+60~, EN+69, EN+70, EN+71, EN+76*
A1	EN+60~, EN+70*
C	WRAP+11~, WRAP+21*, WRAP+23, WRAP+25
CLIAREQ	EN+96~, EN+97*, EN+98
DA	EN+96~, EN+103, EN+113~, EN+115, NSAME~, NSAME+1
DEFCLIA	EN+96~, EN+99*, EN+100, EN+102, EN+103
DIE	EN+96~, EN+103, EN+113~, EN+115
DR	EN+96~, EN+103, EN+113~, EN+115
END	WRAP+11~, WRAP+20, WRAP+23
I	EN+1~, EN+16, WRAP+11~, WRAP+16, WRAP+23*, WRAP+24
IB	EN+1~
IB(	EN+16*
IB("M2"	EN+162, EN+163, EN+164
IB("PRV"	EN+23!, EN+24*, EN+58, EN+59, EN+66, EN+70, EN+72, EN+73, EN+74, EN+79!
IB("TX"	EN+174, EN+175*, EN+176
IB("U"	EN+29, EN+30, EN+45
IB("U2"	EN+34, EN+46, EN+47, EN+83, EN+93
IB("U3"	EN+88, EN+89, EN+109, EN+123, EN+152, EN+153
IB("UF3"	EN+36, EN+37, EN+38
IB("UF32"	EN+48, EN+49, EN+50
IBARR	EN+60~, EN+62
IBARR(	EN+76
IBARY	WRAP~
IBARY(	WRAP+16, WRAP+23
IBARY(1	WRAP+13, WRAP+18, WRAP+24*
IBCRED	WRT1~, WRT1+1
IBDATE	EN+18~, EN+20*, EN+34
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+14, EN+16, EN+20, EN+22, EN+34, EN+43, EN+62, EN+64, EN+65 , EN+84, EN+97, EN+99, EN+103, EN+112, EN+115, EN+129, EN+131, EN+148, EN+171 , EN+172, EN+176
IBMDOTCN	EN+101!
IBMRASEC	EN+18~, EN+172*, EN+175
IBNOSPEC	EN+60~, EN+65
IBNOTAX	EN+60~, EN+64
IBNOTE	EN+133~, EN+134*
IBNOTE(1	EN+135
IBNOTE(2	EN+135
IBPRV	EN+18~, EN+21*, EN+22
IBPRV(	EN+24
IBQ	EN+60~, EN+67, EN+76, EN+77
IBREQ	EN+18~, EN+171*, EN+173, EN+174, EN+176
IBSPEC	EN+60~, EN+65*, EN+75
>> IBSR	EN+8*
>> IBSR1	EN+8*
IBTAX	EN+60~, EN+64*, EN+75
>> IBU	EN+58, EN+72, EN+75, EN+84, EN+88, EN+100, EN+101, EN+150, EN+152
>> IBUN	EN+29, EN+30, EN+34, EN+39, EN+51, EN+84, EN+98, EN+114, EN+118, EN+123 , EN+129, EN+132, EN+165
>> IBV	EN+10, EN+14
>> IBV1	EN+8, EN+9, EN+10, EN+14
>> IBW	EN+29, EN+33, EN+57, EN+82, EN+122, EN+126, EN+145, EN+158, EN+170, EN+179
>> IBWW	EN+29, EN+34, EN+57, EN+82, EN+122, EN+126, EN+145, EN+158, EN+170, EN+179
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+18~, EN+24, EN+34, EN+42!, EN+43, EN+54!, EN+61, EN+66, EN+69, EN+70 , EN+72, EN+73, EN+74, EN+75, EN+76, EN+83, EN+84, EN+85, EN+88, EN+89* , EN+93, EN+95, EN+109, EN+112, EN+118, EN+129, EN+131, EN+132, EN+134, EN+147! , EN+148, EN+149, EN+150, EN+152, EN+153, EN+160!, EN+167!, EN+174, EN+175*, EN+176
IBZ(	EN+35, EN+36, EN+37, EN+38, EN+41, EN+44, EN+45, EN+46, EN+47, EN+48* , EN+49, EN+50, EN+53, EN+162, EN+163, EN+164*, EN+166
IBZ("CMS-1500	SCREEN 8" , EN+149
IBZ(0	EN+39, EN+40, EN+51, EN+52
IBZ1	EN+18~, EN+93, EN+98, EN+100, EN+101, EN+102, EN+106, EN+109, EN+114, EN+118 , EN+119, EN+166*
IBZCNT	EN+18~, EN+35, EN+36, EN+37, EN+38, EN+41, EN+44, EN+45, EN+46, EN+47 , EN+48, EN+49, EN+50, EN+53, EN+161, EN+162, EN+163, EN+164*, EN+165, EN+166
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+29, EN+30, EN+34, EN+36, EN+37, EN+38, EN+45, EN+46, EN+47, EN+48 , EN+49, EN+50, EN+70, EN+72, EN+73, EN+74, EN+75, EN+83, EN+88, EN+89 , EN+93, EN+109, EN+123, EN+129, EN+152, EN+153, EN+162, EN+163, EN+164, EN+174 , EN+175, EN+176, NSAME+1
Y	EN+1~, EN+29, EN+30, EN+123*
Z	EN+1~, EN+29, EN+33, EN+57, EN+82, EN+122, EN+126, EN+145, EN+158, EN+170* , EN+179*

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: