Routine: IBCSC9

Package	Total	Call Graph
Integrated Billing	4	$$FT^IBCEF EN^IBCSC10 ^IBCSCP (,H)^IBCSCU
VA FileMan	3	EN^DDIOL $$GET1^DIQ ^DIWP

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: " Ambulance Transport Data" Line Location: EN+16
Function Call: WRITE	Prompt: !,?4,"P/U Address1: ",$P(IB("U5"),U,2) Line Location: EN+25
Function Call: WRITE	Prompt: !,?4,"P/U Address2: ",$P(IB("U5"),U,3) Line Location: EN+26
Function Call: WRITE	Prompt: !,?4,"P/U City: ",$P(IB("U5"),U,4) Line Location: EN+27
Function Call: WRITE	Prompt: !,?4,"D/O Location: ",$P(IB("U6"),U) Line Location: EN+30
Function Call: WRITE	Prompt: !,?4,"D/O Address1: ",$P(IB("U6"),U,2) Line Location: EN+31
Function Call: WRITE	Prompt: !,?4,"D/O Address2: ",$P(IB("U6"),U,3) Line Location: EN+32
Function Call: WRITE	Prompt: !,?4,"D/O City: ",$P(IB("U6"),U,4) Line Location: EN+33
Function Call: WRITE	Prompt: !,?4,"Patient Weight: ",$P(IB("U7"),U,1),?41,"Transport Distance: ",$P(IB("U7"),U,3) Line Location: EN+36
Function Call: WRITE	Prompt: !,?4,"R/T Purpose: " Line Location: EN+38
Function Call: WRITE	Prompt: !,?4,"Stretcher Purpose: " Line Location: EN+39
Function Call: WRITE	Prompt: " Ambulance Certification Data" Line Location: EN+40
Function Call: WRITE	Prompt: !,?4,"Condition Indicator:" Line Location: EN+41
Function Call: WRITE	Prompt: ?25,$$GET1^DIQ(353.5,IBACI_",",.01)," - ",$$GET1^DIQ(353.5,IBACI_",",.02),! Line Location: EN+45
Function Call: WRITE	Prompt: ! Line Location: EN+47
Function Call: WRITE	Prompt: !,?(IBLM) Condition for execution: Y>1 Line Location: IBWP+4
Function Call: WRITE	Prompt: $G(^UTILITY($J,"W",1,Y,0)) Line Location: IBWP+4

FileNo	Call Tags
^IBE(353.4 - [#353.4]	GET1^DIQ
^IBE(353.5 - [#353.5]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	EN+5, EN+7, EN+8, EN+9, EN+10, EN+11, EN+12, EN+13, EN+14, SCREEN1+2
^DIC(5 - [#5]	EN+28, EN+34
^UTILITY($J	IBWP+1!, IBWP+4, IBWP+5!

Name	Line Occurrences
IBWP	EN+37, EN+38, EN+39

Name	Field # of Occurrence
A	SCREEN1+1~, SCREEN1+4
A(1	SCREEN1+3*
DA1	SCREEN1~, SCREEN1+2
DIWF	IBWP+2~, IBWP+3*
DIWL	IBWP+2~, IBWP+3*
DIWR	IBWP+2~, IBWP+3*
IB	EN+3~
IB("U"	EN+7*
IB("U1"	EN+8*
IB("U4"	EN+9*
IB("U5"	EN+10*, EN+25, EN+26, EN+27, EN+28, EN+29
IB("U6"	EN+11*, EN+30, EN+31, EN+32, EN+33, EN+34, EN+35
IB("U7"	EN+12*, EN+36, EN+37, EN+38, EN+39
IB("U8"	EN+13*
IB("U9"	EN+14*, EN+43, EN+44, EN+46!
IBACI	EN+3~, EN+44*, EN+45
IBACIX	EN+3~, EN+42, EN+43, EN+44
>> IBIFN	EN+2, EN+5, EN+7, EN+8, EN+9, EN+10, EN+11, EN+12, EN+13, EN+14
IBLM	IBWP~, IBWP+4
IBRM	IBWP~, IBWP+3
>> IBSR	EN+6*
>> IBSR1	EN+6*
IBT	EN+3~, EN+5*, EN+6
>> IBV	EN+6
>> IBV1	EN+6*
>> IBW	EN+16, EN+40
>> IBWW	EN+16, EN+40
IBX	IBWP~, IBWP+2
RESPONSE	SCREEN1+1~, SCREEN1+2, SCREEN1+5
U	EN+5, EN+25, EN+26, EN+27, EN+28, EN+29, EN+30, EN+31, EN+32, EN+33 , EN+34, EN+35, EN+36, EN+37, EN+38, EN+39, SCREEN1+2
X	IBWP+2~*
Y	IBWP+2~, IBWP+4*
>> Z	EN+16, EN+40