Routine: APCLPYR4

Package	Total	Call Graph
IHS Patient	1	$$HRN^AUPNPAT
IHS VA Utilities	1	^XBCLS
VA Fileman	1	^DIR

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLPYR

Entry Points

Name	Comments	DBIA/ICR reference
WRT	;
HEADING	;
STORE	;
PVTLOOP	;EP

External References

Name	Field # of Occurrence
$$HRN^AUPNPAT	PVTLOOP+11, WRT+2
^DIR	PVTLOOP+62
^XBCLS	HEADING+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please be patient. This may take a few minutes.",!! Line Location: PVTLOOP+1
Function Call: WRITE	Prompt: !!,"Total: ",APCLCTR Line Location: PVTLOOP+64
Function Call: WRITE	Prompt: $P(^DPT(APCLDFN,0),U) Line Location: WRT+1
Function Call: WRITE	Prompt: ?32,$J($$HRN^AUPNPAT(APCLDFN,APCLFAC),6) Line Location: WRT+2
Function Call: WRITE	Prompt: ?40,APCLPVNO Line Location: WRT+3
Function Call: WRITE	Prompt: ?68,$E(APCLEND,4,5),"/",$E(APCLEND,6,7),"/",$E(APCLEND,2,3) Line Location: WRT+6
Function Call: WRITE	Prompt: ?58,$E(APCLBEG,4,5),"/",$E(APCLBEG,6,7),"/",$E(APCLBEG,2,3) Line Location: WRT+10
Function Call: WRITE	Prompt: ?68,$E(APCLEND,4,5),"/",$E(APCLEND,6,7),"/",$E(APCLEND,2,3) Line Location: WRT+11
Function Call: WRITE	Prompt: ! Line Location: WRT+12
Function Call: WRITE	Prompt: ! Line Location: HEADING+2
Function Call: WRITE	Prompt: $E(X,4,5),"/",$E(X,6,7),"/",$E(X,2,3) Line Location: HEADING+4
Function Call: WRITE	Prompt: ?((IOM-$L(X))/2),X Line Location: HEADING+6
Function Call: WRITE	Prompt: ?70,"Page ",APCLPAGE Line Location: HEADING+8
Function Call: WRITE	Prompt: ! Line Location: HEADING+9
Function Call: WRITE	Prompt: ?((IOM-$L(X))/2),X,! Line Location: HEADING+12
Function Call: WRITE	Prompt: ?((IOM-$L(X))/2),X,! Line Location: HEADING+16
Function Call: WRITE	Prompt: ?((IOM-$L(X))/2),X,! Line Location: HEADING+26
Function Call: WRITE	Prompt: ! Line Location: HEADING+28
Function Call: WRITE	Prompt: "Patient Name",?33,"HRNO",?42,"Policy #",?60,"Begin",?70,"End" Line Location: HEADING+30
Function Call: WRITE	Prompt: ! Line Location: HEADING+31
Function Call: WRITE	Prompt: "------------",?32,"------",?40,"----------------",?58,"--------",?68,"--------" Line Location: HEADING+33
Function Call: WRITE	Prompt: ! Line Location: HEADING+34
Routine Call	DIR Line Location: PVTLOOP+62

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	PVTLOOP+36
^AUPNMCD("B"	PVTLOOP+22
^AUPNMCR("B"	PVTLOOP+21
^AUPNPRVT - [#9000006]	PVTLOOP+9, PVTLOOP+30, PVTLOOP+32, PVTLOOP+34, PVTLOOP+35, PVTLOOP+36, WRT+8, WRT+9
^AUPNPRVT("B"	PVTLOOP+25
^AUPNRRE("B"	PVTLOOP+23
^AUTNINS - [#9999999.18]	PVTLOOP+2
^DIC(4 - [#4]	HEADING+5
^DPT - [#2]	PVTLOOP+15, WRT+1
^TMP($J	PVTLOOP+3!, PVTLOOP+51, PVTLOOP+53, PVTLOOP+54, STORE+1*

Label References

Name	Line Occurrences
HEADING	PVTLOOP+6, PVTLOOP+61
STORE	PVTLOOP+46, PVTLOOP+47
WRT	PVTLOOP+59

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLACT	PVTLOOP+38, PVTLOOP+40, PVTLOOP+42, PVTLOOP+44, HEADING+19, HEADING+20
>> APCLALL	WRT+4
>> APCLBDAT	PVTLOOP+40, PVTLOOP+44, HEADING+22
>> APCLBEG	PVTLOOP+34, PVTLOOP+38, PVTLOOP+40, PVTLOOP+42, PVTLOOP+56, STORE+1, WRT+5, WRT+8*, WRT+10
>> APCLCTR	PVTLOOP+27, PVTLOOP+31, PVTLOOP+46, PVTLOOP+49, PVTLOOP+60, PVTLOOP+64
>> APCLDFN	PVTLOOP+8, PVTLOOP+9, PVTLOOP+11, PVTLOOP+15, PVTLOOP+21, PVTLOOP+22, PVTLOOP+23, PVTLOOP+25, PVTLOOP+30, PVTLOOP+32 , PVTLOOP+34, PVTLOOP+35, PVTLOOP+36, PVTLOOP+55*, STORE+1, WRT+1, WRT+2, WRT+8, WRT+9
>> APCLEDAT	PVTLOOP+42, HEADING+23, HEADING+25
>> APCLEND	PVTLOOP+35, PVTLOOP+44, PVTLOOP+57, STORE+1, WRT+6, WRT+9*, WRT+11
>> APCLFAC	PVTLOOP+11, WRT+2, HEADING+5
>> APCLFLAG	PVTLOOP+29, PVTLOOP+33, PVTLOOP+38, PVTLOOP+40, PVTLOOP+42, PVTLOOP+44, PVTLOOP+45
>> APCLICTR	PVTLOOP+19, PVTLOOP+20, PVTLOOP+21, PVTLOOP+22, PVTLOOP+23, PVTLOOP+25*
>> APCLIEN	PVTLOOP+28, PVTLOOP+30, PVTLOOP+32, PVTLOOP+33, PVTLOOP+34, PVTLOOP+35, PVTLOOP+36, PVTLOOP+52, PVTLOOP+53, PVTLOOP+54 , STORE+1, WRT+8, WRT+9
>> APCLINAM	PVTLOOP+2*, HEADING+11
>> APCLOTH	PVTLOOP+19, PVTLOOP+46, PVTLOOP+47, HEADING+15
>> APCLPAGE	PVTLOOP+4, HEADING+7, HEADING+8
>> APCLPVNO	PVTLOOP+36, PVTLOOP+58, STORE+1, WRT+3
>> APCLPYR	PVTLOOP+2, PVTLOOP+32
>> APCLSORT	PVTLOOP+15, PVTLOOP+16
>> APCLSRT	PVTLOOP+15, PVTLOOP+16, PVTLOOP+50, PVTLOOP+51, PVTLOOP+53, PVTLOOP+54, STORE+1
DIR	PVTLOOP+62!
DIR(0	PVTLOOP+62*
DT	HEADING+3
>> DUOUT	PVTLOOP+9, PVTLOOP+51, PVTLOOP+53, PVTLOOP+61, PVTLOOP+64
IOM	HEADING+6, HEADING+12, HEADING+16, HEADING+26
IOSL	PVTLOOP+61
IOST	PVTLOOP+1, PVTLOOP+62
U	PVTLOOP+2, PVTLOOP+15, PVTLOOP+32, PVTLOOP+34, PVTLOOP+35, PVTLOOP+36, PVTLOOP+55, PVTLOOP+56, PVTLOOP+57, PVTLOOP+58 , STORE+1, WRT+1, WRT+8, WRT+9, HEADING+5
>> X	PVTLOOP+24, PVTLOOP+25, PVTLOOP+54, PVTLOOP+55, PVTLOOP+56, PVTLOOP+57, PVTLOOP+58, HEADING+3, HEADING+4, HEADING+5* , HEADING+6, HEADING+11, HEADING+12, HEADING+14, HEADING+15, HEADING+16, HEADING+18, HEADING+19, HEADING+21, HEADING+22* , HEADING+24, HEADING+25, HEADING+26
>> Y	PVTLOOP+11*, PVTLOOP+12, PVTLOOP+13, PVTLOOP+16

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLPYR4

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: