Routine: APCHS9M2

Package	Total	Call Graph
VA Fileman	2	(,C)^%DTC ^DIR
IHS Patient	1	$$HRN^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
PRTTXT	; GENERALIZED TEXT PRINTER
EOJ	;
W(Y,F,C,T)	;set up array
SIG	;
WR	;write out array
SETARRAY	;set up array containing dm care summary
MEDDSP1	;
REF	;
PRTTXT2
GETMEDS	;
DATE(D)	;EP
CLN	;GET CLINIC FOR V MEDICATION
MEDDSP	;
SITE	;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
GETFRAG
WRITE	;
HEADER	;
CHRONIC(N)	;
EP	;EP - called from component
HEAD1	;
DC(V)	;is this d/c'ed
PROV	;GET THE PROVIDER FOR ORIGINAL RX OR REFILL
EP2	;PEP - PASS DFN get back array of patient care summary

External References

Name	Field # of Occurrence
^%DTC	MEDDSP1+14
C^%DTC	EP2+16, MEDDSP1+16
$$HRN^AUPNPAT	HEAD1+5
^DIR	EP+3, HEADER+2
$$VAL^XBDIQ1	PROV+2, CLN+1
$$VALI^XBDIQ1	SIG+2
$$FMADD^XLFDT	GETMEDS+2
$$FMTE^XLFDT	HEAD1+4, EP2+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EP+3
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,APCHSHDR,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,"MEDICATION REORDER DOCUMENT Date: "_$$FMTE^XLFDT(DT)_" Page: "_APCHPAGE Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,"Patient: ",$P(^DPT(APCHSPAT,0),U)," HRN: ",$$HRN^AUPNPAT(APCHSPAT,DUZ(2)),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: !!!,"DISPENSE UNTIL NEXT SCHEDULED EVALUATION: ________",!!,"SIGNATURE: _______________________________ DATE: ________________",! Line Location: GETMEDS+49
Function Call: WRITE	Prompt: !,X Line Location: W+5
Function Call: WRITE	Prompt: !,X Line Location: W+7
Function Call: WRITE	Prompt: !,X Line Location: W+10
Routine Call	DIR Line Location: EP+3 HEADER+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCHSCTL - [#9001015]	EP2+7
^AUPNVMED - [#9000010.14]	GETMEDS+7, MEDDSP1+1, MEDDSP1+19, DC+1, DC+2, CHRONIC+2, CHRONIC+4
^AUPNVMED("AA"	GETMEDS+5, GETMEDS+6
^AUPNVMED("AC"	EP+2, GETMEDS+4
^AUPNVSIT - [#9000010]	MEDDSP1+26, SITE+2, SITE+3, SITE+4
^DIC(4 - [#4]	SITE+4
^DPT - [#2]	HEAD1+5
^PS(51 - [#51]	SIG+4
^PS(55 - [#55]	CHRONIC+6
^PSDRUG - [#50]	GETMEDS+9, GETMEDS+13, MEDDSP1+9, MEDDSP1+17
^PSRX - [#52]	DC+6, DC+11, REF+3, PROV+3
^PSRX("APCC"	MEDDSP1+2, MEDDSP1+4, DC+4, CHRONIC+5
^TMP($J	EP2+2!, EP2+3!, EP2+4!, EP2+5!, GETMEDS+15, GETMEDS+16, GETMEDS+17, GETMEDS+19, GETMEDS+20, GETMEDS+22 , GETMEDS+23, GETMEDS+25, GETMEDS+27, GETMEDS+28!, GETMEDS+29, GETMEDS+30!, GETMEDS+39!, GETMEDS+41, GETMEDS+42, GETMEDS+43 , GETMEDS+44, GETMEDS+45*, GETMEDS+50!, GETMEDS+51!, GETMEDS+52!, GETMEDS+53!, MEDDSP+2, MEDDSP+6, MEDDSP+7, MEDDSP+8 , MEDDSP+9, WRITE+13, WRITE+15
^VA(200 - [#200]	PROV+4

Label References

Name	Line Occurrences
$$CHRONIC	GETMEDS+18
$$DATE	GETMEDS+17, MEDDSP1+16, WRITE+6
$$DC	GETMEDS+28, GETMEDS+30
CLN	MEDDSP1+28
EOJ	WR+5
EP2	WR+3
GETFRAG	PRTTXT2
GETMEDS	SETARRAY+1
HEAD1	HEADER+1
HEADER	GETMEDS+46, WRITE+4
MEDDSP	GETMEDS+47, GETMEDS+48
MEDDSP1	MEDDSP+9
PROV	MEDDSP1+27
PRTTXT	WRITE+8
PRTTXT2	PRTTXT+2
REF	MEDDSP1+24
SETARRAY	EP2+18
SIG	MEDDSP1+23
SITE	MEDDSP1+29
W	MEDDSP+3, MEDDSP+4, WRITE+6, WRITE+7, WRITE+11, WRITE+16, WRITE+17, WRITE+19, WRITE+20, WRITE+21 , PRTTXT2
WRITE	MEDDSP1+30

Naked Globals

Name	Field # of Occurrence
^(	DC+4, CHRONIC+5
^(21	SITE+2
^(9	SIG+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	W+3~, W+8, W+9
A	EOJ+4!
APCHCLN	EOJ+1!, WRITE+7, CLN+1*
APCHDATM	EOJ+1!, GETMEDS+10*
APCHDIEN	EOJ+1!, GETMEDS+14, GETMEDS+15, GETMEDS+16, GETMEDS+17, GETMEDS+19, GETMEDS+20, GETMEDS+22, GETMEDS+23, MEDDSP+7 , MEDDSP+8, MEDDSP+9, MEDDSP1+13*, MEDDSP1+17, WRITE+13, WRITE+15
APCHIPRV	EOJ+1!, PROV+3*, PROV+4
APCHMIEN	EOJ+1!, GETMEDS+6, GETMEDS+7, GETMEDS+18, GETMEDS+20, GETMEDS+23, MEDDSP+9, MEDDSP1+1, MEDDSP1+2, MEDDSP1+4 , MEDDSP1+19, PROV+2
APCHNARC	EOJ+1!, MEDDSP1+17*, WRITE+19, WRITE+20
APCHPAGE	WR+2, EOJ+1!, HEADER+1, HEAD1+1, HEAD1+4
APCHPROV	EOJ+1!, WRITE+7, PROV+1, PROV+2, PROV+4*
APCHQUIT	WR+1!, WR+2, WR+4, EOJ+1!, HEADER+2, GETMEDS+49, MEDDSP+6, MEDDSP+7, MEDDSP+8, WRITE+1 , WRITE+5
APCHRTN	EOJ+1!, MEDDSP1+19*, MEDDSP1+20, MEDDSP1+21, MEDDSP1+22!
>> APCHRXRF	MEDDSP1+3, MEDDSP1+4, PROV+3
APCHSBEG	EOJ+1!
APCHSCRN	EOJ+1!, GETMEDS+47!, GETMEDS+48*
>> APCHSCVD	MEDDSP1+20, MEDDSP1+21
APCHSDC	EOJ+1!, GETMEDS+11, MEDDSP1+7, MEDDSP1+20, MEDDSP1+21
APCHSDLM	EOJ+1!, EP2+6, EP2+7, EP2+8, EP2+9, EP2+10, EP2+11, EP2+12, EP2+15, EP2+16 , GETMEDS+42
APCHSDLS	EP2+9, EP2+10, EP2+11, EP2+13, EP2+14!
APCHSDOO	EOJ+1!, PRTTXT+3!
APCHSDTM	EOJ+1!, MEDDSP1+5*, MEDDSP1+14, MEDDSP1+16, WRITE+6
APCHSDYS	EOJ+1!, GETMEDS+12, MEDDSP1+8, MEDDSP1+16, WRITE+7
APCHSED	EOJ+1!
APCHSEXP	EOJ+1!, MEDDSP1+15, MEDDSP1+16, MEDDSP1+20, MEDDSP1+21, WRITE+6
>> APCHSFOR	EP2+7
>> APCHSHDR	HEAD1+3
APCHSICL	EOJ+2!, WRITE+8!, PRTTXT+1, PRTTXT2
APCHSIG	EOJ+2!, MEDDSP1+11, MEDDSP1+23, WRITE+8, SIG+2, SIG+3, SIG+4
APCHSITE	EOJ+2!, MEDDSP1+26, WRITE+11, SITE+1, SITE+2, SITE+4
APCHSIVD	EOJ+2!, GETMEDS+5, GETMEDS+6, GETMEDS+10, GETMEDS+17, GETMEDS+20, GETMEDS+23, MEDDSP+8, MEDDSP+9, MEDDSP1+5
APCHSM0	EOJ+2!, GETMEDS+7, GETMEDS+8, GETMEDS+9, GETMEDS+11, GETMEDS+12, GETMEDS+13, GETMEDS+14, MEDDSP1+1, MEDDSP1+7 , MEDDSP1+8, MEDDSP1+9, MEDDSP1+10, MEDDSP1+11, MEDDSP1+12, MEDDSP1+13
APCHSMSD	EOJ+3!, EP2+17*, MEDDSP+3, MEDDSP+4
APCHSMSI	EOJ+3!, EP2+17*, GETMEDS+2
APCHSNAM	EOJ+2!, GETMEDS+13, GETMEDS+15, GETMEDS+16, GETMEDS+17, GETMEDS+19, GETMEDS+20, GETMEDS+22, GETMEDS+23, MEDDSP+6 , MEDDSP+7, MEDDSP+8, MEDDSP+9, MEDDSP1+9*, WRITE+6, WRITE+13, WRITE+15
APCHSNRQ	EOJ+2!, WRITE+8!, PRTTXT+2
APCHSP	EOJ+2!, WRITE+8!, SIG+3*, SIG+4
>> APCHSPAT	EP+1, EP+2, HEAD1+5, GETMEDS+4, GETMEDS+5, GETMEDS+6
>> APCHSQIT	EP+3, WR+4
APCHSQTY	EOJ+2!, MEDDSP1+10*, WRITE+7
APCHSREF	EOJ+2!, MEDDSP1+25, WRITE+17, REF+2, REF+3, REF+4
APCHSRFL	EOJ+2!, REF+3*, REF+4
APCHSRX	EOJ+2!, MEDDSP1+2*, MEDDSP1+4, REF+2, REF+3, PROV+2, PROV+3
APCHSSGY	EOJ+2!, MEDDSP1+23, SIG+2, SIG+3, SIG+5*
APCHSTEX	EOJ+2!
APCHSTOB	EOJ+2!
APCHSTOP	EOJ+2!, GETMEDS+2, GETMEDS+3, GETMEDS+5
APCHSTXT	EOJ+2!, WRITE+8, PRTTXT+2, PRTTXT+3!, GETFRAG, GETFRAG+1, GETFRAG+2
>> APCHSTYP	EP2+7, SIG+2
APCHSUPI	EOJ+2!
APCHTC	EOJ+2!, PRTTXT+3!, GETFRAG+1*, GETFRAG+2
APCHTDLT	PRTTXT+1, PRTTXT+3!, PRTTXT2
APCHTF	PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+2
APCHTILN	EOJ+2!, PRTTXT+1, PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+1
APCHTOB	EOJ+2!
APCHTOBN	EOJ+2!
APCHTQ	EOJ+2!, PRTTXT+2*
APCHTXRF	EOJ+1!
APCHTYPE	EOJ+2!, GETMEDS+47, GETMEDS+48, MEDDSP+2, MEDDSP+3, MEDDSP+4, MEDDSP+6, MEDDSP+7, MEDDSP+8, MEDDSP+9
APCHVIEN	EOJ+2!, MEDDSP1+12*, MEDDSP1+26, SITE+2, SITE+3, SITE+4, CLN+1
APCHX	EOJ+2!
APCHXRX	EOJ+2!, MEDDSP1+2*
APCHY	EOJ+2!
B	EOJ+4!
C	EOJ+4!, W~, W+7
D	EOJ+4!, GETMEDS+27, GETMEDS+28, GETMEDS+29, GETMEDS+30, GETMEDS+42*, GETMEDS+43, GETMEDS+44, GETMEDS+45, DATE~ , DATE+1, DATE+2
DIR	EP+3!, EOJ+4!, HEADER+2!
DIR("A"	EP+3*
DIR(0	EP+3, HEADER+2
>> DIRUT	EP+3
DT	HEAD1+4, EP2+16, MEDDSP1+14
>> DTOUT	HEADER+2
DUZ(2	HEAD1+5, SITE+4
E	EOJ+4!
F	EOJ+4!, W~, W+1, W+5
G	EOJ+4!
H	EOJ+4!
I	EOJ+4!, GETMEDS+27, GETMEDS+28, GETMEDS+29, GETMEDS+30, WRITE+15*
IO	EP+3, HEADER+2
IO(0	EP+3, HEADER+2
IOF	HEAD1+2
IOSL	WRITE+1
IOST	EP+3, HEADER+2
J	EOJ+4!
K	EOJ+4!
L	EOJ+4!, W+7*
M	EOJ+4!, GETMEDS+28, GETMEDS+30, GETMEDS+45*
N	EOJ+4!, GETMEDS+27, GETMEDS+28, GETMEDS+29, GETMEDS+30, GETMEDS+43*, GETMEDS+44, GETMEDS+45, DC+4, CHRONIC~ , CHRONIC+1, CHRONIC+2, CHRONIC+4, CHRONIC+5
O	EOJ+4!
P	EOJ+4!, DC+3~, DC+4, DC+5, DC+6, DC+11, CHRONIC+3~, CHRONIC+4, CHRONIC+6
Q	EOJ+4!
R	EOJ+4!
S	EOJ+4!, DC+3~
T	EOJ+4!, W~, W+2, W+7, W+8, W+9
U	HEAD1+5, EP2+7, GETMEDS+8, GETMEDS+9, GETMEDS+11, GETMEDS+12, GETMEDS+13, GETMEDS+14, GETMEDS+15, GETMEDS+16 , GETMEDS+17, MEDDSP1+7, MEDDSP1+8, MEDDSP1+9, MEDDSP1+10, MEDDSP1+11, MEDDSP1+12, MEDDSP1+17, MEDDSP1+19, MEDDSP1+26 , WRITE+13, WRITE+15, SITE+2, SITE+3, SITE+4, DC+2, DC+6, DC+11, REF+3, CHRONIC+4
V	EOJ+4!, DC~, DC+1, DC+2
W	EOJ+4!
X	EOJ+4!, EP2+16, EP2+17, GETMEDS+16, GETMEDS+17, GETMEDS+41, GETMEDS+42, GETMEDS+43, GETMEDS+44, GETMEDS+45 , MEDDSP+1, MEDDSP+3, MEDDSP+4, MEDDSP1+16, WRITE+6, WRITE+7, WRITE+11, WRITE+12, WRITE+14, WRITE+15* , WRITE+16, WRITE+17, WRITE+18, WRITE+19, WRITE+20, WRITE+21, DC+6, DC+7, DC+8, DC+9 , DC+10, DC+11, DC+12, DC+13, DC+14, DC+15, SIG+3, SIG+4, SIG+5, CHRONIC+3~ , CHRONIC+5, CHRONIC+6, W+3~, W+5, W+6, W+7, W+8, W+9, W+10, PRTTXT2*
X1	EOJ+4!, EP2+16!, MEDDSP1+14, MEDDSP1+16*
X2	EOJ+4!, EP2+16!, MEDDSP1+14, MEDDSP1+16*
Y	EOJ+4!, HEADER+2, GETMEDS+44, GETMEDS+45, MEDDSP1+5, MEDDSP1+20, MEDDSP1+21, WRITE+13, WRITE+14, SIG+4 , CHRONIC+3~, CHRONIC+6*, CHRONIC+7, W~, W+6, W+7, W+9
Z	EOJ+4!

Customize PDF page

Package: Patient Care Component

Routine: APCHS9M2

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: