Routine: ABMDRCO3

Package	Total	Call Graph
Third Party Billing	1	$$EN^ABMVDF
VA Fileman	1	^DIR

Package

Total

Call Graph

Third Party Billing

$$EN^ABMVDF

VA Fileman

^DIR

Package	Total	Caller Graph
Third Party Billing	1	ABMDRCO2

Package

Total

Caller Graph

Third Party Billing

ABMDRCO2

Name	Comments	DBIA/ICR reference
PRV9
HEAD	;EP to print page heading
TOTAL	;EP to print visit total
PAGE	;EP to form feed to new page
PRVTINS	;EP does patient have co dep info in prvt ins file?

Name	Field # of Occurrence
$$EN^ABMVDF	HEAD+1
^DIR	PAGE+4, TOTAL+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF"),!,?11,"***Confidential Patient Data Covered by Privacy Act***",! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,?132-$L(ABMD("FAC"))/2,ABMD("FAC") Line Location: HEAD+2
Function Call: WRITE	Prompt: !,?45,"COMMISSIONED OFFICERS & DEPENDENTS VISITS" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,?55,ABMD("BDT")_" to "_ABMD("EDT") Line Location: HEAD+4
Function Call: WRITE	Prompt: !,?132-$L(X)/2,X,! Line Location: HEAD+6
Function Call: WRITE	Prompt: "-" Line Location: HEAD+7
Function Call: WRITE	Prompt: !,"Patient Name",?23,"Chart #",?36,"SSN",?45,"CO or Dep" Line Location: HEAD+8
Function Call: WRITE	Prompt: ?58,"Sponsor",?80,"SSN" Line Location: HEAD+9
Function Call: WRITE	Prompt: ?97,$S(ABMD("II")="I":"Admit Date",1:"Visit Date") Line Location: HEAD+10
Function Call: WRITE	Prompt: ?110,$S(ABMD("II")="I":"Dsch Date",1:"No. of Visits") Line Location: HEAD+11
Function Call: WRITE	Prompt: ?122,"# of Days" Line Location: HEAD+12
Function Call: WRITE	Prompt: ! Line Location: HEAD+13
Function Call: WRITE	Prompt: "-" Line Location: HEAD+13
Function Call: WRITE	Prompt: ! Line Location: HEAD+14
Function Call: WRITE	Prompt: ! Line Location: PAGE+2
Function Call: WRITE	Prompt: ?58,$P(ABMD("STR1"),"^",4) Line Location: PRVTINS+5
Function Call: WRITE	Prompt: ?80,$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,9) Line Location: PRVTINS+6
Function Call: WRITE	Prompt: !!,?80,"TOTAL OUTPATIENT VISITS:",?112,$J(ABMD("TOT"),3) Line Location: TOTAL+3
Function Call: WRITE	Prompt: !!,?95,"TOTAL INPATIENT DAYS:",?121,$J(ABMD("TOT"),3) Line Location: TOTAL+4
Function Call: WRITE	Prompt: !!,?80,"TOTAL DENTAL VISITS:",?112,$J(ABMD("TOT"),3) Line Location: TOTAL+5
Function Call: WRITE	Prompt: ! Line Location: TOTAL+7
Routine Call	DIR Line Location: PAGE+4 TOTAL+7

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPRVT - [#9000006]	PRVTINS+4, PRVTINS+5
^AUPNPRVT("I"	PRVTINS+3

Name	Line Occurrences
HEAD	PAGE+1, PAGE+6
PAGE	TOTAL+2
PRV9	PRVTINS+1, PRVTINS+2, PRVTINS+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABMD("BDT"	HEAD+4
>> ABMD("BENP"	PRVTINS+2
>> ABMD("CHMP"	PRVTINS+1, PRVTINS+3
>> ABMD("DFN"	PRVTINS+3, PRVTINS+4, PRVTINS+5
>> ABMD("EDT"	HEAD+4
>> ABMD("FAC"	HEAD+2
>> ABMD("II"	HEAD+5, HEAD+10, HEAD+11, HEAD+12, TOTAL+3, TOTAL+4, TOTAL+5
>> ABMD("INS"	PRVTINS+3*, PRVTINS+4, PRVTINS+5
>> ABMD("J"	HEAD+7*
>> ABMD("STOP"	PAGE+5, TOTAL+1, TOTAL+7
>> ABMD("STR1"	PRVTINS+5*, PRVTINS+6
>> ABMD("TOT"	TOTAL+3, TOTAL+4, TOTAL+5, TOTAL+6*
>> ABMDSTOP	PAGE+2*
DIR	PAGE+2!, PAGE+4!, TOTAL+7!
DIR("A"	PAGE+3, TOTAL+7
DIR(0	PAGE+2, TOTAL+7
>> DIROUT	PAGE+5, TOTAL+7
>> DTOUT	PAGE+5, TOTAL+7
>> DUOUT	PAGE+5, TOTAL+7
IOSL	TOTAL+2
IOST	PAGE+1, TOTAL+7
>> J	HEAD+13*
U	PRVTINS+4
>> X	HEAD+5, HEAD+6, PRVTINS+6

Customize PDF page

Package: Third Party Billing

Routine: ABMDRCO3

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: