Routine: APCLPYR2

Package	Total	Call Graph
IHS Patient	1	$$HRN^AUPNPAT
IHS Patient Registration	1	$$GETMCR^AGUTL
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
MRDLOOP	;EP
MRBLOOP	;EP
MRALOOP	;EP
WRT	;
HEADING	;
STORE	;

External References

Name	Field # of Occurrence
$$GETMCR^AGUTL	MRALOOP+46, MRBLOOP+46, MRDLOOP+46
$$HRN^AUPNPAT	MRALOOP+11, MRBLOOP+11, MRDLOOP+11, WRT+2
^DIR	MRALOOP+65, MRBLOOP+65, MRDLOOP+65
^XBCLS	HEADING+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please be patient. This may take a few minutes.",!! Line Location: MRALOOP+1
Function Call: WRITE	Prompt: !!,"Total: ",APCLCTR Line Location: MRALOOP+67
Function Call: WRITE	Prompt: !!,"Please be patient. This may take a few minutes.",!! Line Location: MRBLOOP+1
Function Call: WRITE	Prompt: !!,"Total: ",APCLCTR Line Location: MRBLOOP+67
Function Call: WRITE	Prompt: !!,"Please be patient. This may take a few minutes.",!! Line Location: MRDLOOP+1
Function Call: WRITE	Prompt: !!,"Total: ",APCLCTR Line Location: MRDLOOP+67
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: ?41,APCLMRNO Line Location: WRT+3
Function Call: WRITE	Prompt: ?53,APCLMRSF Line Location: WRT+4
Function Call: WRITE	Prompt: ?67,$E(APCLEND,4,5),"/",$E(APCLEND,6,7),"/",$E(APCLEND,2,3) Line Location: WRT+7
Function Call: WRITE	Prompt: ?67,$E(APCLEND,4,5),"/",$E(APCLEND,6,7),"/",$E(APCLEND,2,3) Line Location: WRT+18
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+29
Function Call: WRITE	Prompt: ! Line Location: HEADING+31
Function Call: WRITE	Prompt: "Patient Name",?33,"HRNO",?43,"MCR #",?52,"SUF",?59,"Begin",?69,"End" Line Location: HEADING+33
Function Call: WRITE	Prompt: ! Line Location: HEADING+34
Function Call: WRITE	Prompt: "------------",?32,"------",?41,"---------",?52,"---",?57,"--------",?67,"--------" Line Location: HEADING+36
Function Call: WRITE	Prompt: ! Line Location: HEADING+37
Routine Call	DIR Line Location: MRALOOP+65 MRBLOOP+65 MRDLOOP+65

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD("B"	MRALOOP+22, MRBLOOP+22, MRDLOOP+22
^AUPNMCR - [#9000003]	MRALOOP+9, MRALOOP+30, MRALOOP+32, MRALOOP+34, MRALOOP+35, MRALOOP+48, MRBLOOP+9, MRBLOOP+30, MRBLOOP+32, MRBLOOP+34 , MRBLOOP+35, MRBLOOP+48, MRDLOOP+9, MRDLOOP+30, MRDLOOP+32, MRDLOOP+34, MRDLOOP+35, MRDLOOP+48, WRT+10, WRT+11 , WRT+13, WRT+14, WRT+15, WRT+16
^AUPNMCR("B"	MRALOOP+21, MRBLOOP+21, MRDLOOP+21
^AUPNPRVT("B"	MRALOOP+25, MRBLOOP+25, MRDLOOP+25
^AUPNRRE("B"	MRALOOP+23, MRBLOOP+23, MRDLOOP+23
^AUTTMCS - [#9999999.32]	MRALOOP+49, MRBLOOP+49, MRDLOOP+49
^DIC(4 - [#4]	HEADING+5
^DPT - [#2]	MRALOOP+15, MRBLOOP+15, MRDLOOP+15, WRT+1
^TMP($J	MRALOOP+3!, MRALOOP+55, MRALOOP+56, MRBLOOP+3!, MRBLOOP+55, MRBLOOP+56, MRDLOOP+3!, MRDLOOP+55, MRDLOOP+56, STORE+1*

Label References

Name	Line Occurrences
HEADING	MRALOOP+6, MRALOOP+64, MRBLOOP+6, MRBLOOP+64, MRDLOOP+6, MRDLOOP+64
STORE	MRALOOP+50, MRALOOP+51, MRBLOOP+50, MRBLOOP+51, MRDLOOP+50, MRDLOOP+51
WRT	MRALOOP+62, MRBLOOP+62, MRDLOOP+62

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLACT	MRALOOP+37, MRALOOP+39, MRALOOP+41, MRALOOP+43, MRBLOOP+37, MRBLOOP+39, MRBLOOP+41, MRBLOOP+43, MRDLOOP+37, MRDLOOP+39 , MRDLOOP+41, MRDLOOP+43, WRT+12, HEADING+19, HEADING+20
>> APCLALL	WRT+5
>> APCLBDAT	MRALOOP+39, MRALOOP+43, MRBLOOP+39, MRBLOOP+43, MRDLOOP+39, MRDLOOP+43, WRT+12, HEADING+22, HEADING+23, HEADING+24 , HEADING+25
>> APCLBEG	MRALOOP+34, MRALOOP+37, MRALOOP+39, MRALOOP+41, MRALOOP+58, MRBLOOP+34, MRBLOOP+37, MRBLOOP+39, MRBLOOP+41, MRBLOOP+58 , MRDLOOP+34, MRDLOOP+37, MRDLOOP+39, MRDLOOP+41, MRDLOOP+58, STORE+1, WRT+6, WRT+11*, WRT+12, WRT+17
>> APCLCTR	MRALOOP+27, MRALOOP+31, MRALOOP+50, MRALOOP+53, MRALOOP+63, MRALOOP+67, MRBLOOP+27, MRBLOOP+31, MRBLOOP+50, MRBLOOP+53* , MRBLOOP+63, MRBLOOP+67, MRDLOOP+27, MRDLOOP+31, MRDLOOP+50, MRDLOOP+53, MRDLOOP+63*, MRDLOOP+67
>> APCLDFN	MRALOOP+8, MRALOOP+9, MRALOOP+11, MRALOOP+15, MRALOOP+21, MRALOOP+22, MRALOOP+23, MRALOOP+25, MRALOOP+30, MRALOOP+32 , MRALOOP+34, MRALOOP+35, MRALOOP+46, MRALOOP+48, MRALOOP+57, MRBLOOP+8, MRBLOOP+9, MRBLOOP+11, MRBLOOP+15, MRBLOOP+21 , MRBLOOP+22, MRBLOOP+23, MRBLOOP+25, MRBLOOP+30, MRBLOOP+32, MRBLOOP+34, MRBLOOP+35, MRBLOOP+46, MRBLOOP+48, MRBLOOP+57 , MRDLOOP+8, MRDLOOP+9, MRDLOOP+11, MRDLOOP+15, MRDLOOP+21, MRDLOOP+22, MRDLOOP+23, MRDLOOP+25, MRDLOOP+30, MRDLOOP+32 , MRDLOOP+34, MRDLOOP+35, MRDLOOP+46, MRDLOOP+48, MRDLOOP+57*, STORE+1, WRT+1, WRT+2, WRT+10, WRT+11 , WRT+13, WRT+14, WRT+15, WRT+16
>> APCLEDAT	MRALOOP+41, MRBLOOP+41, MRDLOOP+41, HEADING+22, HEADING+23, HEADING+25, HEADING+26, HEADING+28
>> APCLEND	MRALOOP+35, MRALOOP+43, MRALOOP+59, MRBLOOP+35, MRBLOOP+43, MRBLOOP+59, MRDLOOP+35, MRDLOOP+43, MRDLOOP+59, STORE+1 , WRT+7, WRT+13*, WRT+18
>> APCLFAC	MRALOOP+11, MRBLOOP+11, MRDLOOP+11, WRT+2, HEADING+5
>> APCLFLAG	MRALOOP+29, MRALOOP+33, MRALOOP+37, MRALOOP+39, MRALOOP+41, MRALOOP+43, MRALOOP+44, MRBLOOP+29, MRBLOOP+33, MRBLOOP+37* , MRBLOOP+39, MRBLOOP+41, MRBLOOP+43, MRBLOOP+44, MRDLOOP+29, MRDLOOP+33, MRDLOOP+37, MRDLOOP+39, MRDLOOP+41, MRDLOOP+43* , MRDLOOP+44
>> APCLICTR	MRALOOP+19, MRALOOP+20, MRALOOP+21, MRALOOP+22, MRALOOP+23, MRALOOP+25, MRBLOOP+19, MRBLOOP+20, MRBLOOP+21, MRBLOOP+22 , MRBLOOP+23, MRBLOOP+25, MRDLOOP+19, MRDLOOP+20, MRDLOOP+21, MRDLOOP+22, MRDLOOP+23, MRDLOOP+25*
>> APCLIEN	MRALOOP+28, MRALOOP+30, MRALOOP+32, MRALOOP+33, MRALOOP+34, MRALOOP+35, MRBLOOP+28, MRBLOOP+30, MRBLOOP+32, MRBLOOP+33 , MRBLOOP+34, MRBLOOP+35, MRDLOOP+28, MRDLOOP+30, MRDLOOP+32, MRDLOOP+33, MRDLOOP+34, MRDLOOP+35, WRT+9, WRT+10 , WRT+11, WRT+13, WRT+14, WRT+15, WRT+16
>> APCLINAM	MRALOOP+2, MRBLOOP+2, MRDLOOP+2*, HEADING+11
>> APCLMRNO	MRALOOP+46, MRALOOP+60, MRBLOOP+46, MRBLOOP+60, MRDLOOP+46, MRDLOOP+60, STORE+1, WRT+3
>> APCLMRSF	MRALOOP+47, MRALOOP+49, MRALOOP+61, MRBLOOP+47, MRBLOOP+49, MRBLOOP+61, MRDLOOP+47, MRDLOOP+49, MRDLOOP+61*, STORE+1 , WRT+4
>> APCLOTH	MRALOOP+19, MRALOOP+50, MRALOOP+51, MRBLOOP+19, MRBLOOP+50, MRBLOOP+51, MRDLOOP+19, MRDLOOP+50, MRDLOOP+51, HEADING+15
>> APCLPAGE	MRALOOP+4, MRBLOOP+4, MRDLOOP+4, HEADING+7, HEADING+8
>> APCLSORT	MRALOOP+15, MRALOOP+16, MRBLOOP+15, MRBLOOP+16, MRDLOOP+15, MRDLOOP+16
>> APCLSRT	MRALOOP+15, MRALOOP+16, MRALOOP+54, MRALOOP+55, MRALOOP+56, MRBLOOP+15, MRBLOOP+16, MRBLOOP+54, MRBLOOP+55, MRBLOOP+56 , MRDLOOP+15, MRDLOOP+16, MRDLOOP+54, MRDLOOP+55, MRDLOOP+56, STORE+1
>> APCLTYP	WRT+14, WRT+15, WRT+16
DIR	MRALOOP+65!, MRBLOOP+65!, MRDLOOP+65!
DIR(0	MRALOOP+65, MRBLOOP+65, MRDLOOP+65*
DT	HEADING+3
>> DUOUT	MRALOOP+9, MRALOOP+55, MRALOOP+64, MRALOOP+67, MRBLOOP+9, MRBLOOP+55, MRBLOOP+64, MRBLOOP+67, MRDLOOP+9, MRDLOOP+55 , MRDLOOP+64, MRDLOOP+67
IOM	HEADING+6, HEADING+12, HEADING+16, HEADING+29
IOSL	MRALOOP+64, MRBLOOP+64, MRDLOOP+64
IOST	MRALOOP+1, MRALOOP+65, MRBLOOP+1, MRBLOOP+65, MRDLOOP+1, MRDLOOP+65
U	MRALOOP+15, MRALOOP+32, MRALOOP+34, MRALOOP+35, MRALOOP+48, MRALOOP+57, MRALOOP+58, MRALOOP+59, MRALOOP+60, MRALOOP+61 , MRBLOOP+15, MRBLOOP+32, MRBLOOP+34, MRBLOOP+35, MRBLOOP+48, MRBLOOP+57, MRBLOOP+58, MRBLOOP+59, MRBLOOP+60, MRBLOOP+61 , MRDLOOP+15, MRDLOOP+32, MRDLOOP+34, MRDLOOP+35, MRDLOOP+48, MRDLOOP+57, MRDLOOP+58, MRDLOOP+59, MRDLOOP+60, MRDLOOP+61 , STORE+1, WRT+1, WRT+11, WRT+13, WRT+14, WRT+15, WRT+16, HEADING+5
>> X	MRALOOP+24, MRALOOP+25, MRALOOP+48, MRALOOP+49, MRALOOP+56, MRALOOP+57, MRALOOP+58, MRALOOP+59, MRALOOP+60, MRALOOP+61 , MRBLOOP+24, MRBLOOP+25, MRBLOOP+48, MRBLOOP+49, MRBLOOP+56, MRBLOOP+57, MRBLOOP+58, MRBLOOP+59, MRBLOOP+60, MRBLOOP+61 , MRDLOOP+24, MRDLOOP+25, MRDLOOP+48, MRDLOOP+49, MRDLOOP+56, MRDLOOP+57, MRDLOOP+58, MRDLOOP+59, MRDLOOP+60, MRDLOOP+61 , 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+23, HEADING+24, HEADING+27, HEADING+28*, HEADING+29
>> Y	MRALOOP+11, MRALOOP+12, MRALOOP+13, MRALOOP+16, MRBLOOP+11, MRBLOOP+12, MRBLOOP+13, MRBLOOP+16, MRDLOOP+11*, MRDLOOP+12 , MRDLOOP+13, MRDLOOP+16

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLPYR2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: