Routine: IBCSC10H

Package	Total	Call Graph
Integrated Billing	13	($$BDATE,$$ICD9)^IBACSV $$INPAT^IBCEF ($$MRASEC,$$TXMT)^IBCEF4 ($$PROVTAX,$$SPECTAX)^IBCEF73A DEFSEC^IBCEF74 ($$B,GETBP)^IBCEF79 ($$CLIA,$$CLIAREQ,$$XRAY)^IBCEP8A ($$CKPROV,$$PSRV,GETPRV)^IBCEU ^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+97, EN+109
$$EXTERNAL^DILFD	EN+168
$$GET1^DIQ	EN+82, EN+83, EN+125, EN+146, EN+147
$$BDATE^IBACSV	EN+14
$$ICD9^IBACSV	EN+28
$$INPAT^IBCEF	EN+28
$$MRASEC^IBCEF4	EN+166
$$TXMT^IBCEF4	EN+170
$$PROVTAX^IBCEF73A	EN+58
$$SPECTAX^IBCEF73A	EN+59
DEFSEC^IBCEF74	EN+56
$$B^IBCEF79	EN+142
GETBP^IBCEF79	EN+142
$$CLIA^IBCEP8A	EN+93
$$CLIAREQ^IBCEP8A	EN+91
$$XRAY^IBCEP8A	EN+106
$$CKPROV^IBCEU	EN+37
$$PSRV^IBCEU	EN+78
GETPRV^IBCEU	EN+16
^IBCSCP	EN+175
^IBCSCU	EN+2
H^IBCSCU	EN+20
$$FT^IBCU3	EN+8, EN+123
$$REQMRA^IBEFUNC	EN+165
$$EXPAND^IBTRE	EN+63, EN+77

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?4,"ICN/DCN(s) : ",IBZ(0) Line Location: EN+34
Function Call: WRITE	Prompt: !?25,IBZ(IBZCNT) Line Location: EN+35
Function Call: WRITE	Prompt: !,?3," Auth/Referral : ",IBZ(0) Line Location: EN+46
Function Call: WRITE	Prompt: !?25,IBZ(IBZCNT) Line Location: EN+47
Function Call: WRITE	Prompt: !,?5,"- " Line Location: EN+62
Function Call: WRITE	Prompt: $E(A_$J("",16),1,16),": " Line Location: EN+65
Function Call: WRITE	Prompt: IBU Line Location: EN+66
Function Call: WRITE	Prompt: $E($P(IB("PRV",IBZ),U)_$J("",16),1,16) Line Location: EN+68
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+69
Function Call: WRITE	Prompt: !,?30,$E(IBQ,1,49) Line Location: EN+71
Function Call: WRITE	Prompt: " Other Facility (VA/non): " Line Location: EN+77
Function Call: WRITE	Prompt: ?53,"Taxonomy: " Line Location: EN+81
Function Call: WRITE	Prompt: !,?4,"Lab CLIA # : ",IBZ1 Line Location: EN+100
Function Call: WRITE	Prompt: !?4,"Mammography Cert # : ",IBZ1 Line Location: EN+113
Function Call: WRITE	Prompt: " Dental Claim Note : " Line Location: EN+125
Function Call: WRITE	Prompt: IBUN Line Location: EN+126
Function Call: WRITE	Prompt: !,?23,": ",IBNOTE(2) Line Location: EN+129
Function Call: WRITE	Prompt: !,?4,"Homebound : ",$$EXPAND^IBTRE(399,236,$P(IB("U2"),U,14)) Line Location: EN+133
Function Call: WRITE	Prompt: !,?4,"Date Last Seen : ",$$EXPAND^IBTRE(399,237,$P(IB("U2"),U,15)) Line Location: EN+134
Function Call: WRITE	Prompt: " Billing Provider : " Line Location: EN+140
Function Call: WRITE	Prompt: !?3," Taxonomy Code : " Line Location: EN+145
Function Call: WRITE	Prompt: " Alt Prim Payer ID : " Line Location: EN+153
Function Call: WRITE	Prompt: ?23,IBUN Line Location: EN+159
Function Call: WRITE	Prompt: " Provider ID Maint : (Edit Provider ID information)",! Line Location: EN+174
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+97 EN+109

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+23, EN+24, EN+117
^DG(40.8 - [#40.8]	NSAME+1
^DGCR(399 - [#399]	EN+10, EN+123, 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+128

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	EN+54~, EN+63, EN+64, EN+65, EN+70*
A1	EN+54~, EN+64*
C	WRAP+11~, WRAP+21*, WRAP+23, WRAP+25
CLIAREQ	EN+90~, EN+91*, EN+92
DA	EN+90~, EN+97, EN+107~, EN+109, NSAME~, NSAME+1
DEFCLIA	EN+90~, EN+93*, EN+94, EN+96, EN+97
DIE	EN+90~, EN+97, EN+107~, EN+109
DR	EN+90~, EN+97, EN+107~, EN+109
END	WRAP+11~, WRAP+20, WRAP+23
I	EN+1~, EN+10, WRAP+11~, WRAP+16, WRAP+23*, WRAP+24
IB	EN+1~
IB(	EN+10*
IB("M2"	EN+156, EN+157, EN+158
IB("PRV"	EN+17!, EN+18*, EN+52, EN+53, EN+60, EN+64, EN+66, EN+67, EN+68, EN+73!
IB("TX"	EN+168, EN+169*, EN+170
IB("U"	EN+23, EN+24, EN+39
IB("U2"	EN+28, EN+40, EN+41, EN+77, EN+87
IB("U3"	EN+82, EN+83, EN+103, EN+117, EN+146, EN+147
IB("UF3"	EN+30, EN+31, EN+32
IB("UF32"	EN+42, EN+43, EN+44
IBARR	EN+54~, EN+56
IBARR(	EN+70
IBARY	WRAP~
IBARY(	WRAP+16, WRAP+23
IBARY(1	WRAP+13, WRAP+18, WRAP+24*
IBCRED	WRT1~, WRT1+1
IBDATE	EN+12~, EN+14*, EN+28
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+8, EN+10, EN+14, EN+16, EN+28, EN+37, EN+56, EN+58, EN+59, EN+78 , EN+91, EN+93, EN+97, EN+106, EN+109, EN+123, EN+125, EN+142, EN+165, EN+166 , EN+170
IBMDOTCN	EN+95!
IBMRASEC	EN+12~, EN+166*, EN+169
IBNOSPEC	EN+54~, EN+59
IBNOTAX	EN+54~, EN+58
IBNOTE	EN+127~, EN+128*
IBNOTE(1	EN+129
IBNOTE(2	EN+129
IBPRV	EN+12~, EN+15*, EN+16
IBPRV(	EN+18
IBQ	EN+54~, EN+61, EN+70, EN+71
IBREQ	EN+12~, EN+165*, EN+167, EN+168, EN+170
IBSPEC	EN+54~, EN+59*, EN+69
>> IBSR	EN+6*
>> IBSR1	EN+6*
IBTAX	EN+54~, EN+58*, EN+69
>> IBU	EN+52, EN+66, EN+69, EN+78, EN+82, EN+94, EN+95, EN+144, EN+146
>> IBUN	EN+23, EN+24, EN+28, EN+33, EN+45, EN+78, EN+92, EN+108, EN+112, EN+117 , EN+123, EN+126, EN+159
>> IBV	EN+6, EN+8
>> IBV1	EN+6, EN+8
>> IBW	EN+23, EN+27, EN+51, EN+76, EN+116, EN+120, EN+139, EN+152, EN+164, EN+173
>> IBWW	EN+23, EN+28, EN+51, EN+76, EN+116, EN+120, EN+139, EN+152, EN+164, EN+173
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+12~, EN+18, EN+28, EN+36!, EN+37, EN+48!, EN+55, EN+60, EN+63, EN+64 , EN+66, EN+67, EN+68, EN+69, EN+70, EN+77, EN+78, EN+79, EN+82, EN+83* , EN+87, EN+89, EN+103, EN+106, EN+112, EN+123, EN+125, EN+126, EN+128, EN+141! , EN+142, EN+143, EN+144, EN+146, EN+147, EN+154!, EN+161!, EN+168, EN+169*, EN+170
IBZ(	EN+29, EN+30, EN+31, EN+32, EN+35, EN+38, EN+39, EN+40, EN+41, EN+42* , EN+43, EN+44, EN+47, EN+156, EN+157, EN+158*, EN+160
IBZ("CMS-1500	SCREEN 8" , EN+143
IBZ(0	EN+33, EN+34, EN+45, EN+46
IBZ1	EN+12~, EN+87, EN+92, EN+94, EN+95, EN+96, EN+100, EN+103, EN+108, EN+112 , EN+113, EN+160*
IBZCNT	EN+12~, EN+29, EN+30, EN+31, EN+32, EN+35, EN+38, EN+39, EN+40, EN+41 , EN+42, EN+43, EN+44, EN+47, EN+155, EN+156, EN+157, EN+158*, EN+159, EN+160
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+23, EN+24, EN+28, EN+30, EN+31, EN+32, EN+39, EN+40, EN+41, EN+42 , EN+43, EN+44, EN+64, EN+66, EN+67, EN+68, EN+69, EN+77, EN+82, EN+83 , EN+87, EN+103, EN+117, EN+123, EN+146, EN+147, EN+156, EN+157, EN+158, EN+168 , EN+169, EN+170, NSAME+1
Y	EN+1~, EN+23, EN+24, EN+117*
Z	EN+1~, EN+23, EN+27, EN+51, EN+76, EN+116, EN+120, EN+139, EN+152, EN+164* , EN+173*

Customize PDF page

Package: Integrated Billing

Routine: IBCSC10H

Information

Source Information

Call Graph

Call Graph Total: 16

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: