Routine: IBCSC8

Information

IBCSC8 ;ALB/MJB/AAS - MCCR SCREEN 8 (BILLING - CLAIM INFORMATION SCREEN) ;27 MAY 88 10:15

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Integrated Billing	4	^IBCSCP (,H)^IBCSCU $$WNRBILL^IBEFUNC $$EXPAND^IBTRE
VA FileMan	2	COMMA^%DTC $$GET1^DIQ
Kernel	1	$$FMTE^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Integrated Billing	1	IBCSC7

Entry Points

Name	Comments	DBIA/ICR reference
EN
REV
IBTEETH	;Create array of teeth status
DENTAL	;Dental Information for Form Type 7(J430D)
WRT	;write out teeth status on screen
MORE	;

External References

Name	Field # of Occurrence
COMMA^%DTC	EN+14
$$GET1^DIQ	DENTAL+8, DENTAL+10, DENTAL+11, WRT+3
^IBCSCP	REV
^IBCSCU	EN
H^IBCSCU	EN+1
$$WNRBILL^IBEFUNC	EN+45
$$EXPAND^IBTRE	EN+45, EN+46, EN+47
$$FMTE^XLFDT	EN+21, EN+40, EN+41, DENTAL+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: X Line Location: EN+14
Function Call: WRITE	Prompt: " Property Casualty Information" Line Location: EN+15
Function Call: WRITE	Prompt: !,?4,"Claim Number: ",$P(IB("U4"),U,2) Line Location: EN+17
Function Call: WRITE	Prompt: !,?4,"Contact Name: ",$P(IB("U4"),U,9) Line Location: EN+20
Function Call: WRITE	Prompt: !,?4,"Date of 1st Contact: ",$$FMTE^XLFDT($P(IB("U4"),U,3)),?41,"Contact Phone: ",$P(IB("U4"),U,10)," ",$P(IB("U4"),U,11) Line Location: EN+21
Function Call: WRITE	Prompt: " Ambulance Information" Line Location: EN+23
Function Call: WRITE	Prompt: " Surgical Codes for Anesthesia Claims" Line Location: EN+33
Function Call: WRITE	Prompt: " Paperwork Attachment Information" Line Location: EN+36
Function Call: WRITE	Prompt: ?41,"Transmission Method: ",$P(IB("U8"),U,3) Line Location: EN+38
Function Call: WRITE	Prompt: !,?4,"Attachment Control #: ",$P(IB("U8"),U) Line Location: EN+39
Function Call: WRITE	Prompt: " Disability Start Date: ",$$FMTE^XLFDT($P(IB("U4"),U,4)),?41,"Disability End Date: ",$$FMTE^XLFDT($P(IB("U4"),U,5)) Line Location: EN+40
Function Call: WRITE	Prompt: " Assumed Care Date: ",$$FMTE^XLFDT($P(IB("U4"),U,13)),?41,"Relinquished Care Date: ",$$FMTE^XLFDT($P(IB("U4"),U,14)) Line Location: EN+41
Function Call: WRITE	Prompt: " Special Program: " Line Location: EN+45
Function Call: WRITE	Prompt: " Homebound: ",$$EXPAND^IBTRE(399,236,$P(IB("U2"),U,14)) Line Location: EN+46
Function Call: WRITE	Prompt: " Date Last Seen: ",$$EXPAND^IBTRE(399,237,$P(IB("U2"),U,15)) Line Location: EN+47
Function Call: WRITE	Prompt: ?4,"Tooth Status" Line Location: DENTAL+2
Function Call: WRITE	Prompt: ?4,"Orthodontic Information" Line Location: DENTAL+4
Function Call: WRITE	Prompt: $$FMTE^XLFDT($P(IB("DEN"),U),2) Line Location: DENTAL+5
Function Call: WRITE	Prompt: !?4,"Treatment Months Count: ",$P(IB("DEN"),U,2) Line Location: DENTAL+6
Function Call: WRITE	Prompt: !?4,"Treatment Months Remaining Count: ",$P(IB("DEN"),U,3) Line Location: DENTAL+7
Function Call: WRITE	Prompt: !?4,"Treatment Indicator: ",$$GET1^DIQ(399,IBIFN_",",95,"E") Line Location: DENTAL+8
Function Call: WRITE	Prompt: ?4,"Dental Paperwork Attachment" Line Location: DENTAL+9
Function Call: WRITE	Prompt: $$GET1^DIQ(353.3,$P(IB("U8"),U,2)_",",.01)," (",$E($$GET1^DIQ(353.3,$P(IB("U8"),U,2)_",",1),1,18),")" Line Location: DENTAL+10
Function Call: WRITE	Prompt: $$GET1^DIQ(399,IBIFN_",",286,"I")," (",$E($$GET1^DIQ(399,IBIFN_",",286,"E"),1,20),")" Line Location: DENTAL+11
Function Call: WRITE	Prompt: !?4,"Attachment Control #: ",$P(IB("U8"),U) Line Location: DENTAL+12
Function Call: WRITE	Prompt: !?4,"Tooth Number: ",$P(IBTEETH(J),U),?41,"Status Code: ",$$GET1^DIQ(399.096,J_","_IBIFN_",",.02) Line Location: WRT+3
Function Call: WRITE	Prompt: !?4,"*There are more teeth statuses associated with this bill.*" Line Location: MORE+1

FileNo	Call Tags
^IBE(353.3 - [#353.3]	GET1^DIQ
^DGCR(399 - [#399]	GET1^DIQ
399.096	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	EN, EN+7, IBTEETH+3, IBTEETH+5, DENTAL+1
^IBE(353.3 - [#353.3]	EN+37
^ICPT - [#81]	EN+34, EN+35

Label References

Name	Line Occurrences
DENTAL	EN+11
IBTEETH	EN+11
MORE	WRT+2
REV	EN+18
WRT	DENTAL+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
I	WRT+1~, WRT+2, MORE+1
>> IB("DEN"	DENTAL+1*, DENTAL+5, DENTAL+6, DENTAL+7
>> IB("U2"	EN*, EN+45, EN+46, EN+47
>> IB("U4"	EN*, EN+14, EN+17, EN+20, EN+21, EN+34, EN+35, EN+40, EN+41
>> IB("U5"	EN*
>> IB("U6"	EN*
>> IB("U8"	EN*, EN+37, EN+38, EN+39, DENTAL+10, DENTAL+11, DENTAL+12
>> IBIFN	EN, EN+7, EN+45, IBTEETH+3, IBTEETH+5, DENTAL+1, DENTAL+8, DENTAL+11, WRT+3
>> IBSR	EN*
>> IBSR1	EN*
>> IBT	EN+7*, EN+10, EN+11, EN+14, EN+15, EN+18
IBTEETH	EN+11!, IBTEETH+2!*, DENTAL+3
IBTEETH(	IBTEETH+5*, WRT+2, WRT+3
IBTEETH(0	IBTEETH+3*
>> IBV	EN+10
>> IBV1	EN+10*
>> IBW	EN+14, DENTAL+2, DENTAL+4, DENTAL+9
>> IBWW	EN+14, EN+15, EN+33, EN+36, EN+40, EN+41, EN+45, EN+46, EN+47, DENTAL+2 , DENTAL+4, DENTAL+9
>> IBZ	EN+45*
J	WRT+1~, WRT+2*, WRT+3
TH	IBTEETH+1~, IBTEETH+4, IBTEETH+5
U	EN+7, EN+14, EN+17, EN+20, EN+21, EN+34, EN+35, EN+37, EN+38, EN+39 , EN+40, EN+41, EN+45, EN+46, EN+47, IBTEETH+3, DENTAL+5, DENTAL+6, DENTAL+7, DENTAL+10 , DENTAL+11, DENTAL+12, WRT+3
>> X	EN+14*
>> X2	EN+14*
>> Z	EN+14, EN+15, EN+33, EN+36, EN+40, EN+41, EN+45, EN+46, EN+47, DENTAL+2 , DENTAL+4, DENTAL+9

Customize PDF page

Package: Integrated Billing