Routine: ABMDRSU1

Package	Total	Call Graph
Third Party Billing	3	^ABMDRSU2 $$SDT^ABMDUTL $$EN^ABMVDF
VA Fileman	1	^DIR

Package

Total

Call Graph

Third Party Billing

^ABMDRSU2 $$SDT^ABMDUTL $$EN^ABMVDF

VA Fileman

^DIR

Package	Total	Caller Graph
Third Party Billing	2	ABMDRSU ABMDRSU2

Package

Total

Caller Graph

Third Party Billing

ABMDRSU ABMDRSU2

Name	Comments	DBIA/ICR reference
HEAD	;EP to print header
VST
HEAD1	;
START	;
DFN	;
VAR
HD	;EP to print mid header

Name	Field # of Occurrence
^ABMDRSU2	VST+7
$$SDT^ABMDUTL	DFN+7, DFN+8, HEAD1+3
$$EN^ABMVDF	HEAD1+1
^DIR	HEAD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Visit",?14,"Discharge" Line Location: VST+2
Function Call: WRITE	Prompt: !?6,"Date",?16,"Date",?26,"Location",?48,"Clinic",?68,"Type" Line Location: VST+3
Function Call: WRITE	Prompt: !?4 Line Location: VST+4
Function Call: WRITE	Prompt: "-" Line Location: VST+4
Function Call: WRITE	Prompt: !?3,ABM("VD"),?14,ABM("DD"),?26,$P(^AUTTLOC(ABM("LOC"),0),U,2),?48,$E(ABM("CLN"),1,14),?68,$E(ABM("VTYPE"),1,10) Line Location: VST+5
Function Call: WRITE	Prompt: !,ABM("PN") Line Location: HD+5
Function Call: WRITE	Prompt: " (",ABM("HRN"),")",?38,ABMP("CDFN"),?50,ABM("DOB"),?66,ABM("SSN") Line Location: HD+6
Function Call: WRITE	Prompt: " (continued from previous page)" Line Location: HD+7
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: HEAD1+1
Function Call: WRITE	Prompt: ! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?6," ",$$SDT^ABMDUTL(DT) Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),?(64-$L(ABMP("PG"))),"Page: ",ABMP("PG")," " Line Location: HEAD1+4
Function Call: WRITE	Prompt: !?6,?((80-ABM("LENG"))/2),ABMP("HEAD2"),?70," " Line Location: HEAD1+5
Function Call: WRITE	Prompt: !?6,?((80-ABM("LENG"))/2),ABMP("HEAD3"),?70," ",! Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,"Patient Name (HRN)",?37,"CLM #",?48,"Date of Birth",?70,"SSN" Line Location: HEAD1+7
Function Call: WRITE	Prompt: !,ABM("80E") Line Location: HEAD1+8
Routine Call	DIR Line Location: HEAD+2

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	DFN+2, DFN+3, DFN+8, VST
^AUPNPAT - [#9000001]	HD+3
^AUTTLOC - [#9999999.06]	VST+5
^DD("DD"	HD+2
^DIC(4 - [#4]	HEAD1+4
^DIC(40.7 - [#40.7]	DFN+5
^DPT - [#2]	DFN+6, HD+2, HD+4

Name	Line Occurrences
DFN	START+4
HD	DFN+12
HEAD	DFN+11
HEAD1	DFN+10, HEAD+1

Name	Field # of Occurrence
^(0	DFN+3, DFN+5
^(6	DFN+8

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%P	HEAD+2!
ABM	VAR!
ABM("80D"	START+2*
ABM("80E"	START+1*, HEAD1+8
ABM("CLN"	DFN+3, DFN+5, VST+5
ABM("CONT"	HD+6, HD+8!
ABM("DD"	DFN+8, DFN+9, VST+5
ABM("DOB"	HD+2*, HD+6
ABM("ERR"	DFN+1*
ABM("HRN"	HD+1, HD+3, HD+6
ABM("LENG"	HEAD1+5, HEAD1+6
ABM("LOC"	DFN+3, DFN+4, VST+5, HD+3
ABM("PDFN"	DFN+3*, DFN+6, HD+2, HD+3, HD+4
ABM("PN"	DFN+6*, HD+5
ABM("SSN"	HD+1, HD+4, HD+6
ABM("VD"	DFN+3, DFN+7, VST+5
ABM("VTYPE"	VST, VST+1, VST+5
>> ABMP("CDFN"	DFN+2, DFN+3, DFN+8, VST, HD+6
>> ABMP("HEAD2"	HEAD1+5
>> ABMP("HEAD3"	HEAD1+6
>> ABMP("PG"	DFN+10, HEAD+1, HEAD1+1*, HEAD1+4
>> ABMP("QUIT"	START+3!, DFN+11, HEAD+2*
DIR	HEAD+2!
DIR(0	HEAD+2*
>> DIROUT	HEAD+2
DT	HEAD1+3
>> DTOUT	HEAD+2
>> DUOUT	HEAD+2
DUZ(2	DFN+2, DFN+3, DFN+4, DFN+8, VST, HEAD1+4
>> I	VST+4*
IO("S"	HEAD+2
IOSL	DFN+11
IOST	HEAD+2, HEAD1+2
U	VAR*, DFN+3, DFN+5, DFN+6, DFN+8, VST, VST+5, HD+2, HD+3, HD+4 , HEAD1+4
>> Y	DFN+8, HD+2

Customize PDF page

Package: Third Party Billing

Routine: ABMDRSU1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: