Routine: ABPVDG03

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?80-$L(A("TITLE"))\2,A("TITLE"),!!,A("PDT"),?80-$L(LOC)\2,LOC,?73,"page ",ABPV("PG"),!,TME,?80-$L(TITLE)\2,TITLE Line Location: HEADING+3
Function Call: WRITE	Prompt: ?80-$L(X),X,! Line Location: HEADING+3
Function Call: WRITE	Prompt: ?80-$L(TITLE)\2,TITLE Line Location: HEADING+4
Function Call: WRITE	Prompt: !!,"ADMIT DATE",?16,"PATIENT NAME",?38,"CHART #",?47,"INSURANCE CARRIER(S)",! Line Location: H5+0
Function Call: WRITE	Prompt: "-" Line Location: H5+0
Function Call: WRITE	Prompt: ! Line Location: H5+1
Function Call: WRITE	Prompt: !,ABPV("DOS") Line Location: A+1
Function Call: WRITE	Prompt: ?16,A("NAME"),?38,$J(A("CHART"),7) Line Location: PRINT+0
Function Call: WRITE	Prompt: ?47,"*** INCOMPLETE ***" Line Location: INSPRT+0
Function Call: WRITE	Prompt: ! Line Location: INSPRT+0
Function Call: WRITE	Prompt: ?47,"*** INCOMPLETE ***" Line Location: INSPRT+1
Function Call: WRITE	Prompt: ! Line Location: INSPRT+1
Function Call: WRITE	Prompt: ?47,$P(^AUTNINS(A("PTR"),0),"^",1) Line Location: INSPRT+2
Function Call: WRITE	Prompt: ! Line Location: INSPRT+2
Function Call: WRITE	Prompt: ! Line Location: SUMRY+0
Function Call: WRITE	Prompt: "-" Line Location: SUMRY+0
Function Call: WRITE	Prompt: !!," TOTAL ADMISSIONS FOR THIS PERIOD: ",$J(ABPV("TOTAL"),6) Line Location: SUMRY+3
Function Call: WRITE	Prompt: !,"ADMISSIONS WITH THIRD PARTY COVERAGE: ",$J(ABPV("HITS"),6) Line Location: SUMRY+4
Function Call: WRITE	Prompt: !," PERCENTAGE PRIVATE INS. COVERAGE: ",$J(ABPV("%"),6,1),"%" Line Location: SUMRY+5
Function Call: WRITE	Prompt: @IOF Line Location: CLOSE+0

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	CLOSE
^%ZTSK - [#14.4]	A, A1
^AUPNPAT - [#9000001]	CHART, CHART+1
^AUPNPRVT - [#9000006]	PVTINS
^AUTNINS - [#9999999.18]	INSPRT+1, INSPRT+2
^DD("DD"	HEADING+4
^DIC(4 - [#4]	INIT
^DPT - [#2]	NAME, NAME+1

Name	Line Occurrences
A	A1
A1	PVTINS+2
CHART	NAME
CLOSE	START
HEADING	START, A+1, INSPRT, INSPRT+1, INSPRT+2
INIT	START
INSPRT	PVTINS, PVTINS+1
PRINT	CHART
SUMRY	START
XTRACT	START

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	CLOSE!
A("ADFN"	A+1, A1, NAME, NAME+1, CHART, CHART+1, PVTINS
A("ADOS"	XTRACT, A, A+1, A1
A("BEG"	HEADING+4*
A("CHART"	CHART, CHART+1, PRINT
A("END"	HEADING+4*
A("HR"	HEADING+1*, HEADING+2
A("MIN"	HEADING+1, HEADING+2
A("NAME"	NAME, NAME+1, PRINT
A("PDT"	HEADING+2*, HEADING+3
A("PRT"	PVTINS+1*
A("PTR"	PVTINS*, INSPRT, INSPRT+1, INSPRT+2
A("SVCS"	A1+1*
A("TITLE"	INIT+2*, HEADING+3
A("TM"	HEADING+1*
ABPV	CLOSE!
ABPV("%"	SUMRY+1, SUMRY+2, SUMRY+5
ABPV("BEG"	HEADING+4, XTRACT
ABPV("DOS"	A+1*
ABPV("END"	HEADING+4, A
ABPV("HITS"	SUMRY+2, SUMRY+4
ABPV("PG"	INIT, HEADING, HEADING+3
ABPV("SITE"	INIT, A, A1, CHART, CHART+1
ABPV("TASK"	INIT
ABPV("TOTAL"	SUMRY+1, SUMRY+2, SUMRY+3
ASM	CLOSE!
ASM("$Y"	PVTINS*, PVTINS+2
DT	HEADING+2
I	H5, PVTINS, PVTINS+1, SUMRY*, CLOSE!
IOF	HEADING+3, CLOSE
LOC	INIT*, HEADING+3, CLOSE!
TITLE	INIT+1, HEADING+3, HEADING+4, CLOSE!
>> TME	HEADING+2*, HEADING+3
X	HEADING+3, PVTINS, PVTINS+1, CLOSE!
Y	HEADING+4*, CLOSE!
>> ZTSK	INIT*, HEADING+3, A, A1

Customize PDF page

Package: Third Party Tracking

Routine: ABPVDG03

Information

Source Information

Entry Points

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: