Routine: IBCSC3

Package	Total	Call Graph
Integrated Billing	6	(D1,HDR)^IBCNS ALL^IBCNS1 ^IBCSCP (,H)^IBCSCU ^IBCU6 3^IBCVA0

Package

Total

Call Graph

(D1,HDR)^IBCNS ALL^IBCNS1 ^IBCSCP (,H)^IBCSCU ^IBCU6 3^IBCVA0

Name	Field # of Occurrence
D1^IBCNS	LST+1
HDR^IBCNS	LST
ALL^IBCNS1	UP
^IBCSCP	MAIL+4, MAIL+8
^IBCSCU	EN+1
H^IBCSCU	EN+2
^IBCU6	EN
3^IBCVA0	EN+2

Name	Line Occurrences
Function Call: WRITE	Prompt: ?45,"Form Type: ",$P($G(^IBE(353,+$P(IB(0),U,19),0)),U,1) Line Location: EN+6
Function Call: WRITE	Prompt: !?4,"Insurance : NO REIMBURSABLE INSURANCE INFORMATION ON FILE",!?17,"[Add Insurance Information by entering '1' at the prompt below]" Line Location: EN+12
Function Call: WRITE	Prompt: !,X Line Location: EN+13
Function Call: WRITE	Prompt: !,"Not currently Selectable:" Line Location: LST+2
Function Call: WRITE	Prompt: ?26,$S(X="v":"VETERAN",X="s":"SPOUSE",1:"OTHER") Line Location: LST1+0
Function Call: WRITE	Prompt: Y,?64 Line Location: LST1+3
Function Call: WRITE	Prompt: Y Line Location: LST1+3
Function Call: WRITE	Prompt: ! Line Location: MAIL+1
Function Call: WRITE	Prompt: " Primary Provider # : ",$P(IB("M1"),U,2),!?4,"Secondary Provider #: ",$P(IB("M1"),U,3),?45,"Tertiary Provider#: ",$P(IB("M1"),U,4) Line Location: MAIL+1
Function Call: WRITE	Prompt: ! Line Location: MAIL+2
Function Call: WRITE	Prompt: !?4,"NO MAILING ADDRESS HAS BEEN SPECIFIED!",!?4,"Send Bill to PAYER listed above." Line Location: MAIL+4
Function Call: WRITE	Prompt: !,?4,$S($P(X,"^",4)]"":$P(X,"^",4),1:"'MAIL TO' PERSON/PLACE UNSPECIFIED"),!?4,$S($P(X,"^",5)]"":$P(X,"^",5),1:"STREET ADDRESS UNSPECIFIED") Line Location: MAIL+5
Function Call: WRITE	Prompt: ", ",$P(X,"^",6) Condition for execution: $P(X,"^",6)]"" Line Location: MAIL+5
Function Call: WRITE	Prompt: ! Line Location: MAIL+5
Function Call: WRITE	Prompt: ?4,$P(IB("M1"),"^",1),", " Condition for execution: $P(IB("M1"),"^",1)]"" Line Location: MAIL+5
Function Call: WRITE	Prompt: $E(Z,1,25) Line Location: SHW1+0
Function Call: WRITE	Prompt: ?45,"Policy #: ",$S($P(X,"^",2)]"":$P(X,"^",2),1:IBU) Line Location: SHW1+0

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	LST1+3
^DGCR(399 - [#399]	EN+3, EN+11, MAIL
^DGCR(399.3 - [#399.3]	EN+5
^DIC(36 - [#36]	LST1, SHW1
^DIC(4 - [#4]	EN+10
^DIC(5 - [#5]	MAIL+6
^IBE(350.9 - [#350.9]	EN+6
^IBE(353 - [#353]	EN+6

Name	Line Occurrences
LST	EN+12
MAIL	EN+8, EN+9, EN+10, EN+12, LST+3
SHW	EN+11
SHW1	SHW
UP	EN+12

Name	Field # of Occurrence
^(	EN+3
^("M"	MAIL
^("M1"	MAIL
^(0	EN+5, EN+10, LST1, MAIL+6, SHW1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	UP
DGRVRCAL	EN!
DT	EN+4
I	EN+3, SHW, MAIL+3*, MAIL+7!, SHW1, SHW1+3
>> IB(	EN+3*
>> IB("M"	EN+10, MAIL*, MAIL+3, MAIL+5
>> IB("M1"	MAIL*, MAIL+1, MAIL+5
>> IB("U"	EN+4
>> IB(0	EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, MAIL*
IBADI	MAIL+7!
IBDD	EN+11, EN+12, SHW, MAIL+7!, UP!
IBDD(	LST+1, LST1, LST1+2, LST1+3, SHW, SHW1
>> IBIFN	EN+3, EN+11, MAIL
IBINDT	EN+4*, MAIL+7!, UP
>> IBINS	LST+1*
>> IBIR(	SHW1+3
>> IBISEX(	SHW1+3
IBOUTP	EN+4*, MAIL+7!
>> IBSR	EN+1*
>> IBSR1	EN+1*
>> IBU	EN+5, EN+7, EN+10, SHW1, SHW1+1, SHW1+3
>> IBUN	EN+5
>> IBV	EN+1
>> IBV1	EN+1*
>> IBW	EN+5, MAIL+1, MAIL+2*
>> IBWW	EN+5, MAIL+1, MAIL+2
>> IBX	LST+1*, LST1, LST1+2, LST1+3
U	EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, MAIL+1
X	LST1, LST1+1, LST1+2, LST1+3, MAIL+3, MAIL+4, MAIL+5, MAIL+6, MAIL+7!, SHW1 , SHW1+1, SHW1+2, SHW1+3
X1	LST1+2*, MAIL+7!
>> Y	LST1+3*
>> Z	EN+5, MAIL+1, MAIL+2, SHW1

Customize PDF page

Package: Integrated Billing

Routine: IBCSC3

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: