Routine: APCLPYR3

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	;
MCDLOOP	;EP
STORE	;
HEADING	;

External References

Name	Field # of Occurrence
$$HRN^AUPNPAT	MCDLOOP+17, WRT+2
^DIR	MCDLOOP+73
^XBCLS	HEADING+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please be patient. This may take a few minutes.",!! Line Location: MCDLOOP+1
Function Call: WRITE	Prompt: !!,"Total: ",APCLCTR Line Location: MCDLOOP+75
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,APCLMCNO Line Location: WRT+3
Function Call: WRITE	Prompt: ?52,APCLRATE Line Location: WRT+4
Function Call: WRITE	Prompt: ?70,$E(APCLEND,4,5),"/",$E(APCLEND,6,7),"/",$E(APCLEND,2,3) Line Location: WRT+7
Function Call: WRITE	Prompt: ?70,$E(APCLEND,4,5),"/",$E(APCLEND,6,7),"/",$E(APCLEND,2,3) Line Location: WRT+15
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: ! Line Location: HEADING+13
Function Call: WRITE	Prompt: ?((IOM-$L(X))/2),X,! Line Location: HEADING+17
Function Call: WRITE	Prompt: ?((IOM-$L(X))/2),X,! Line Location: HEADING+27
Function Call: WRITE	Prompt: ! Line Location: HEADING+29
Function Call: WRITE	Prompt: "Patient Name",?33,"HRNO",?43,"MCD #",?53,"Rate",?62,"Begin",?72,"End" Line Location: HEADING+31
Function Call: WRITE	Prompt: ! Line Location: HEADING+32
Function Call: WRITE	Prompt: "------------",?32,"------",?41,"---------",?52,"------",?60,"--------",?70,"--------" Line Location: HEADING+34
Function Call: WRITE	Prompt: ! Line Location: HEADING+35
Routine Call	DIR Line Location: MCDLOOP+73

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD - [#9000004]	MCDLOOP+12, MCDLOOP+13, MCDLOOP+14, MCDLOOP+16, MCDLOOP+37, MCDLOOP+40, MCDLOOP+41, MCDLOOP+42, MCDLOOP+43, MCDLOOP+44 , WRT+10, WRT+11, WRT+13
^AUPNMCR("B"	MCDLOOP+27
^AUPNPRVT("B"	MCDLOOP+31
^AUPNRRE("B"	MCDLOOP+29
^AUTNINS - [#9999999.18]	MCDLOOP+7, MCDLOOP+45
^DIC(4 - [#4]	HEADING+5
^DIC(5 - [#5]	MCDLOOP+6
^DPT - [#2]	MCDLOOP+21, WRT+1
^TMP($J	MCDLOOP+3!, MCDLOOP+61, MCDLOOP+63, MCDLOOP+64, STORE+1*

Label References

Name	Line Occurrences
HEADING	MCDLOOP+9, MCDLOOP+72
STORE	MCDLOOP+56, MCDLOOP+57
WRT	MCDLOOP+70

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLACT	MCDLOOP+48, MCDLOOP+50, MCDLOOP+52, MCDLOOP+54, WRT+12, HEADING+20, HEADING+21
>> APCLALL	WRT+5
>> APCLBDAT	MCDLOOP+50, MCDLOOP+54, WRT+12, HEADING+23
>> APCLBEG	MCDLOOP+40, MCDLOOP+48, MCDLOOP+50, MCDLOOP+52, MCDLOOP+66, STORE+1, WRT+6, WRT+11*, WRT+12, WRT+14
>> APCLCTR	MCDLOOP+33, MCDLOOP+38, MCDLOOP+56, MCDLOOP+59, MCDLOOP+71, MCDLOOP+75
>> APCLDFN	MCDLOOP+16, MCDLOOP+17, MCDLOOP+21, MCDLOOP+27, MCDLOOP+29, MCDLOOP+31, MCDLOOP+65, STORE+1, WRT+1, WRT+2
>> APCLEDAT	MCDLOOP+52, HEADING+24, HEADING+26
>> APCLEND	MCDLOOP+41, MCDLOOP+54, MCDLOOP+67, STORE+1, WRT+7, WRT+13*, WRT+15
>> APCLFAC	MCDLOOP+17, WRT+2, HEADING+5
>> APCLFLAG	MCDLOOP+35, MCDLOOP+39, MCDLOOP+48, MCDLOOP+50, MCDLOOP+52, MCDLOOP+54, MCDLOOP+55
>> APCLICTR	MCDLOOP+25, MCDLOOP+26, MCDLOOP+27, MCDLOOP+29, MCDLOOP+31
>> APCLIEN	MCDLOOP+34, MCDLOOP+37, MCDLOOP+39, MCDLOOP+40, MCDLOOP+41, WRT+9, WRT+10, WRT+11, WRT+13
>> APCLINAM	MCDLOOP+2, MCDLOOP+6, MCDLOOP+7*, HEADING+11
>> APCLMCNO	MCDLOOP+43, MCDLOOP+68, STORE+1, WRT+3
>> APCLMCST	MCDLOOP+6, MCDLOOP+13
>> APCLMIEN	MCDLOOP+11, MCDLOOP+12, MCDLOOP+13, MCDLOOP+14, MCDLOOP+16, MCDLOOP+37, MCDLOOP+40, MCDLOOP+41, MCDLOOP+42, MCDLOOP+43 , MCDLOOP+44, MCDLOOP+62, MCDLOOP+63, MCDLOOP+64, STORE+1, WRT+10, WRT+11, WRT+13
>> APCLOTH	MCDLOOP+25, MCDLOOP+56, MCDLOOP+57, HEADING+16
>> APCLPAGE	MCDLOOP+4, HEADING+7, HEADING+8
>> APCLPLAN	MCDLOOP+36, MCDLOOP+46
>> APCLPYR	MCDLOOP+7, MCDLOOP+14
>> APCLRATE	MCDLOOP+36, MCDLOOP+42, MCDLOOP+69*, STORE+1, WRT+4
>> APCLSORT	MCDLOOP+21, MCDLOOP+22
>> APCLSRT	MCDLOOP+21, MCDLOOP+22, MCDLOOP+60, MCDLOOP+61, MCDLOOP+63, MCDLOOP+64, STORE+1
DIR	MCDLOOP+73!
DIR(0	MCDLOOP+73*
DT	HEADING+3
>> DUOUT	MCDLOOP+12, MCDLOOP+61, MCDLOOP+63, MCDLOOP+72, MCDLOOP+75
IOM	HEADING+6, HEADING+12, HEADING+17, HEADING+27
IOSL	MCDLOOP+72
IOST	MCDLOOP+1, MCDLOOP+73
U	MCDLOOP+6, MCDLOOP+7, MCDLOOP+13, MCDLOOP+14, MCDLOOP+16, MCDLOOP+21, MCDLOOP+40, MCDLOOP+41, MCDLOOP+42, MCDLOOP+43 , MCDLOOP+44, MCDLOOP+45, MCDLOOP+65, MCDLOOP+66, MCDLOOP+67, MCDLOOP+68, MCDLOOP+69, STORE+1, WRT+1, WRT+11 , WRT+13, HEADING+5
>> X	MCDLOOP+30, MCDLOOP+31, MCDLOOP+44, MCDLOOP+45, MCDLOOP+46, MCDLOOP+64, MCDLOOP+65, MCDLOOP+66, MCDLOOP+67, MCDLOOP+68 , MCDLOOP+69, HEADING+3, HEADING+4, HEADING+5, HEADING+6, HEADING+11, HEADING+12, HEADING+15, HEADING+16, HEADING+17 , HEADING+19, HEADING+20, HEADING+22, HEADING+23, HEADING+25, HEADING+26, HEADING+27
>> Y	MCDLOOP+17*, MCDLOOP+18, MCDLOOP+19, MCDLOOP+22

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLPYR3

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: