Routine: APCHS7R

Package	Total	Call Graph
Patient Care Component	2	$$CHRONIC^APCHS72 GETMEDS^APCHSMU1
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Kernel	1	($$FMADD,$$FMDIFF,$$FMTE)^XLFDT
VA Fileman	1	^DIWP

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;DISPLAY MEDS
CONT	; <SETUP>
CS(D)	;
SIG	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
D(D)	;
REF	;DETERMINE THE NUMBER OF REFILLS REMAINING
PENDING	;
SET	;
CTR(X,Y)	;EP - Center X in a field Y wide.
EXPIRED	;
OUT	;OUTSIDE MEDICATIONS
MEDDSP	;DISPLAY MEDICATION
SITE	;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
SUSPEND	;
GETNVA	;NVA from file 55
HOLD	;HOLD MEDICATIONS
MEDDSPP	;DISPLAY MEDICATION
DISCONT	;
MEDDSPN	;
MEDDSPO	;DISPLAY MEDICATION
GETPEND	;
MEDX	;
MEDRCON	; *********** MEDS BY PRESCRIPTION STATUS ***********

External References

Name	Field # of Occurrence
$$CHRONIC^APCHS72	CONT+32
GETMEDS^APCHSMU1	CONT+8
^DIWP	MEDDSPP+5, MEDDSPO+8, MEDDSPN+7, MEDDSP+8
$$VAL^XBDIQ1	GETPEND+4
$$VALI^XBDIQ1	CONT+25
$$FMADD^XLFDT	CONT+8
$$FMDIFF^XLFDT	CONT+35, CONT+41, CONT+48
$$FMTE^XLFDT	MEDDSPN+13, MEDDSP+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CONT+2
Function Call: WRITE	Prompt: "ACTIVE MEDICATIONS",! Line Location: DISP+4
Function Call: WRITE	Prompt: "--------------------",! Line Location: OUT+2
Function Call: WRITE	Prompt: "OUTSIDE MEDICATIONS",! Line Location: OUT+3
Function Call: WRITE	Prompt: "--------------------",! Line Location: HOLD+3
Function Call: WRITE	Prompt: "ACTIVE NOT DISPENSED MEDICATIONS",! Line Location: HOLD+4
Function Call: WRITE	Prompt: !,"--------------------",! Line Location: SUSPEND+3
Function Call: WRITE	Prompt: "SUSPENDED MEDICATIONS",! Line Location: SUSPEND+4
Function Call: WRITE	Prompt: "--------------------",! Line Location: PENDING+2
Function Call: WRITE	Prompt: "PENDING MEDICATIONS",! Line Location: PENDING+3
Function Call: WRITE	Prompt: "--------------------",! Line Location: EXPIRED+3
Function Call: WRITE	Prompt: "CHRONIC AND RECENTLY EXPIRED MEDICATIONS",! Line Location: EXPIRED+4
Function Call: WRITE	Prompt: "--------------------",! Line Location: DISCONT+3
Function Call: WRITE	Prompt: "RECENTLY DISCONTINUED MEDICATIONS",! Line Location: DISCONT+4
Function Call: WRITE	Prompt: ! Line Location: MEDDSPP+3
Function Call: WRITE	Prompt: ?6,"Directions: "_$S($L($G(^UTILITY($J,"W",0,1,0)))>1:$G(^UTILITY($J,"W",0,1,0)),$L($G(^UTILITY($J,"W",0,1,0)))=1:"No directions on file",1:" "),! Line Location: MEDDSPP+6
Function Call: WRITE	Prompt: ! Line Location: MEDDSPO+4
Function Call: WRITE	Prompt: ?6,"Directions: "_$S($L($G(^UTILITY($J,"W",0,1,0)))>1:$G(^UTILITY($J,"W",0,1,0)),$L($G(^UTILITY($J,"W",0,1,0)))=1:"No directions on file",1:" "),! Line Location: MEDDSPO+10
Function Call: WRITE	Prompt: ! Line Location: MEDDSPN+3
Function Call: WRITE	Prompt: ?6,"Directions: "_$S($L($G(^UTILITY($J,"W",0,1,0)))>1:$G(^UTILITY($J,"W",0,1,0)),$L($G(^UTILITY($J,"W",0,1,0)))=1:"No directions on file",1:" "),! Line Location: MEDDSPN+9
Function Call: WRITE	Prompt: !?19,"DATE DISCONTINUED: ",$$FMTE^XLFDT($P(APCHZ,U,9)) Line Location: MEDDSPN+13
Function Call: WRITE	Prompt: ?6,"Directions: "_$S($L($G(^UTILITY($J,"W",0,1,0)))>1:$G(^UTILITY($J,"W",0,1,0)),$L($G(^UTILITY($J,"W",0,1,0)))=1:"No directions on file",1:" "),! Line Location: MEDDSP+10
Function Call: WRITE	Prompt: ?6,"Last Filled: ",$$D(9999999-APCHDT) Line Location: MEDDSP+16
Function Call: WRITE	Prompt: " ---",APCHSORT," ",$$FMTE^XLFDT($P(^AUPNVMED(APCHM,0),U,8),"2D") Line Location: MEDDSP+18
Function Call: WRITE	Prompt: ?30,"Expired: ",$$D(E) Line Location: MEDDSP+19
Function Call: WRITE	Prompt: ! Line Location: MEDDSP+20
Function Call: WRITE	Prompt: ?6,"Hold Reason: " Line Location: MEDDSP+21
Function Call: WRITE	Prompt: $P($G(^PSRX($P(APCHZ,U,1),"H")),U,1) Line Location: MEDDSP+21
Function Call: WRITE	Prompt: ?6,"Discontinued: " Line Location: MEDDSP+22

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMED - [#9000010.14]	CONT+17, CONT+18, CONT+46, GETNVA+2, MEDDSPO+1, MEDDSPO+6, MEDDSP+1, MEDDSP+6, MEDDSP+17, MEDDSP+18 , MEDDSP+23, REF+1
^AUPNVMED("AC"	CONT+1
^AUPNVSIT - [#9000010]	CONT+20, SITE+2, SITE+3, SITE+4
^DIC(4 - [#4]	SITE+4
^PS(50.606 - [#50.606]	GETPEND+3
^PS(50.7 - [#50.7]	GETNVA+11, GETPEND+3
^PS(51 - [#51]	SIG+2
^PS(52.41 - [#52.41]	CONT+1, GETPEND+2, GETPEND+5
^PS(55 - [#55]	CONT+1, GETNVA+1, GETNVA+2, GETNVA+5, GETNVA+9, GETNVA+11, GETNVA+12
^PSDRUG - [#50]	CONT+19, GETNVA+11, GETPEND+3, CS+1, CS+2
^PSRX - [#52]	SET+3, CONT+24, CONT+31, CONT+47, MEDDSP+19, MEDDSP+21, MEDDSP+24, REF+2
^PSRX("APCC"	CONT+22
^UTILITY($J	MEDDSPP+5!, MEDDSPP+6, MEDDSPP+7, MEDDSPP+9, MEDDSPP+10!, MEDDSPO+8!, MEDDSPO+10, MEDDSPO+11, MEDDSPO+13, MEDDSPO+14! , MEDDSPN+7!, MEDDSPN+9, MEDDSPN+10, MEDDSPN+12, MEDDSPN+14!, MEDDSP+8!, MEDDSP+10, MEDDSP+11, MEDDSP+13, MEDDSP+14!

Label References

Name	Line Occurrences
$$D	MEDDSP+16, MEDDSP+19, MEDDSP+25
DISCONT	EXPIRED+1
EXPIRED	PENDING+1
HOLD	OUT+1
MEDDSP	DISP+10, HOLD+8, SUSPEND+8, EXPIRED+8, DISCONT+8
MEDDSPN	OUT+12
MEDDSPO	OUT+7
MEDDSPP	PENDING+6
MEDX	DISCONT+1
OUT	DISP+3
PENDING	SUSPEND+1
REF	SET+2
SET	CONT+20, CONT+23, CONT+24, CONT+26, CONT+27, CONT+28, CONT+39, CONT+44, CONT+50
SIG	MEDDSPO+6, MEDDSPN+5, MEDDSP+6
SUSPEND	HOLD+1

Naked Globals

Name	Field # of Occurrence
^(21	SITE+2
^(9	SIG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCHCNT	CONT+4~, CONT+6, DISP+5, MEDDSPP+1, MEDDSPP+3, MEDDSPO+2, MEDDSPO+4, MEDDSPN+1, MEDDSPN+3, MEDDSP+2 , MEDDSP+4
APCHD	CONT+4~, GETPEND+2*, GETPEND+3
APCHDI	CONT+4~, DISP+8, DISP+9, DISP+10, OUT+5, OUT+6, OUT+7, OUT+10, OUT+11, OUT+12 , HOLD+6, HOLD+7, HOLD+8, SUSPEND+6, SUSPEND+7, SUSPEND+8, PENDING+5, PENDING+6, EXPIRED+6, EXPIRED+7 , EXPIRED+8, DISCONT+6, DISCONT+7, DISCONT+8
APCHDT	CONT+4~, DISP+9, DISP+10, OUT+6, OUT+7, OUT+11, OUT+12, HOLD+7, HOLD+8, SUSPEND+7* , SUSPEND+8, EXPIRED+7, EXPIRED+8, DISCONT+7, DISCONT+8, MEDDSP+16
APCHI	CONT+4~, GETPEND+2*, GETPEND+3
APCHM	CONT+4~, DISP+10, OUT+7, HOLD+8, SUSPEND+8, EXPIRED+8, DISCONT+8, MEDDSPO+1, MEDDSPO+6, MEDDSP+1 , MEDDSP+6, MEDDSP+17, MEDDSP+18, MEDDSP+23
APCHMDSP	CONT+4~, CONT+7!
APCHMDSP(	SET+4*, CONT+38, CONT+43, CONT+49
APCHMEDS	CONT+4~, CONT+7!, CONT+8
APCHMEDS(	CONT+12, CONT+14, CONT+15, CONT+16
APCHN	CONT+4~, GETPEND+3, GETPEND+4, GETPEND+6, DISP+7, DISP+8, DISP+9, DISP+10, OUT+4, OUT+5 , OUT+6, OUT+7, OUT+9, OUT+10, OUT+11, OUT+12, HOLD+5, HOLD+6, HOLD+7, HOLD+8 , SUSPEND+5, SUSPEND+6, SUSPEND+7, SUSPEND+8, PENDING+4, PENDING+5, PENDING+6, EXPIRED+5, EXPIRED+6, EXPIRED+7 , EXPIRED+8, DISCONT+5*, DISCONT+6, DISCONT+7, DISCONT+8, MEDDSPP+3, MEDDSPO+4, MEDDSPN+3, MEDDSP+4
>> APCHSBRK	CONT+2
>> APCHSCKP	CONT+2, DISP+2, MEDDSPP+2, MEDDSPP+4, MEDDSPP+8, MEDDSPO+3, MEDDSPO+5, MEDDSPO+9, MEDDSPO+12, MEDDSPN+2 , MEDDSPN+4, MEDDSPN+8, MEDDSPN+11, MEDDSP+3, MEDDSP+5, MEDDSP+9, MEDDSP+12, MEDDSP+15
APCHSIG	CONT+4~, MEDDSPO+6, MEDDSPN+5, MEDDSP+6*, SIG+1, SIG+2
>> APCHSITE	SITE+1, SITE+2, SITE+4*
APCHSN	CONT+4~, MEDDSPO+1, MEDDSP+1
>> APCHSNPG	CONT+2
>> APCHSORT	MEDDSP+17*, MEDDSP+18
>> APCHSP	SIG+1*, SIG+2
>> APCHSPAT	CONT+1, CONT+8, GETNVA+1, GETNVA+2, GETNVA+5, GETNVA+9, GETNVA+11, GETNVA+12, GETPEND+2
>> APCHSQIT	CONT+2, DISP+2, DISP+7, DISP+8, DISP+9, DISP+10, OUT+4, OUT+5, OUT+6, OUT+7 , OUT+9, OUT+10, OUT+11, HOLD+5, HOLD+6, HOLD+7, HOLD+8, SUSPEND+5, SUSPEND+6, SUSPEND+7 , SUSPEND+8, PENDING+4, PENDING+5, EXPIRED+5, EXPIRED+6, EXPIRED+7, EXPIRED+8, DISCONT+5, DISCONT+6, DISCONT+7 , DISCONT+8, MEDDSPP+2, MEDDSPP+4, MEDDSPP+7, MEDDSPP+8, MEDDSPO+3, MEDDSPO+5, MEDDSPO+9, MEDDSPO+11, MEDDSPO+12 , MEDDSPN+2, MEDDSPN+4, MEDDSPN+8, MEDDSPN+10, MEDDSPN+11, MEDDSP+3, MEDDSP+5, MEDDSP+9, MEDDSP+11, MEDDSP+12 , MEDDSP+15
>> APCHSREF	SET+2, SET+3, REF+1, REF+2, REF+3
>> APCHSRFL	REF+2*, REF+3
>> APCHSRX	SET+2*, REF+1, REF+2
APCHSSGY	CONT+4~, MEDDSPO+7, MEDDSPN+6, MEDDSP+7, SIG+1, SIG+3
APCHST	CONT+4~
APCHSTAT	CONT+4~, CONT+11!
APCHSTAT(	SET+3*
APCHSTAT("ACT	IVE MEDICATIONS" , DISP+3, DISP+7, DISP+8, DISP+9, DISP+10
APCHSTAT("DIS	CONTINUED MEDICATIONS" , DISCONT+1, DISCONT+5, DISCONT+6, DISCONT+7, DISCONT+8
APCHSTAT("EXP	IRED MEDICATIONS" , EXPIRED+1, EXPIRED+5, EXPIRED+6, EXPIRED+7, EXPIRED+8
APCHSTAT("HOL	D MEDICATIONS" , HOLD+1, HOLD+5, HOLD+6, HOLD+7, HOLD+8
APCHSTAT("NVA"	GETNVA+12*, OUT+1, OUT+9, OUT+10, OUT+11, OUT+12
APCHSTAT("OUT	SIDE MEDICATIONS" , OUT+1, OUT+4, OUT+5, OUT+6, OUT+7
APCHSTAT("PENDING"	GETPEND+4, GETPEND+6, PENDING+1, PENDING+4, PENDING+5, PENDING+6
APCHSTAT("SUS	PEND MEDICATIONS" , SUSPEND+1, SUSPEND+5, SUSPEND+6, SUSPEND+7, SUSPEND+8
>> APCHSVDF	SITE+2, SITE+3, SITE+4
>> APCHT	DISP+6, HOLD+2, SUSPEND+2, EXPIRED+2, DISCONT+2*, MEDDSP+16, MEDDSP+17, MEDDSP+19, MEDDSP+21, MEDDSP+22
APCHZ	CONT+4~, DISP+10, OUT+7, OUT+12, HOLD+8, SUSPEND+8, PENDING+6, EXPIRED+8, DISCONT+8, MEDDSPP+3 , MEDDSPP+5, MEDDSPO+4, MEDDSPN+5, MEDDSPN+13, MEDDSP+4, MEDDSP+19, MEDDSP+21, MEDDSP+24
C	SET+3, CONT+5~, CONT+20, CONT+23, CONT+24, CONT+26, CONT+27, CONT+28, CONT+39, CONT+44 , CONT+50, GETPEND+5
D	SET+3, SET+4, CONT+5~, CONT+17, CONT+19, CONT+38, CONT+43, CONT+49, GETNVA+9, GETNVA+10* , GETNVA+11, GETNVA+12, D~, D+1, D+2, CS~, CS+1, CS+2
>> DIWL	MEDDSPP+5, MEDDSPO+8, MEDDSPN+7, MEDDSP+8
>> DIWR	MEDDSPP+5, MEDDSPO+8, MEDDSPN+7, MEDDSP+8
DT	CONT+8, CONT+35, CONT+41, CONT+48
DUZ(2	SITE+4
E	CONT+5~, CONT+31, CONT+35, CONT+41, CONT+46, CONT+47, CONT+48, MEDDSP+19, MEDDSP+23, MEDDSP+24 , MEDDSP+25
F	SET+3, SET+4, CONT+5~, CONT+14, CONT+38, CONT+43, CONT+49, MEDDSPP+7, MEDDSPP+9, MEDDSPO+11* , MEDDSPO+13, MEDDSPN+10, MEDDSPN+12, MEDDSP+11, MEDDSP+13
IOM	CTR+1
J	CONT+5~, CONT+35, CONT+36, CONT+41, CONT+42
>> L	GETNVA+5, GETNVA+6, GETNVA+12
M	SET+3, CONT+5~, CONT+15*, CONT+17, CONT+18, CONT+22, CONT+32, CONT+46, REF+1
N	SET+3, SET+4, CONT+5~, CONT+18, CONT+19, CONT+38, CONT+43, CONT+49, GETNVA+11*, GETNVA+12
ORD	GETPEND+1~, GETPEND+2*
P	SET+2, SET+3, CONT+5~, CONT+13, CONT+22, CONT+23, CONT+24*, CONT+25, CONT+31, CONT+47
PEN	GETPEND+1~, GETPEND+2*, GETPEND+4, GETPEND+5, GETPEND+6
R	CONT+5~, CONT+32*, CONT+33
S	CONT+5~, CONT+25*, CONT+26, CONT+27, CONT+28, CONT+29, CONT+45
U	SET+3, CONT+14, CONT+15, CONT+16, CONT+17, CONT+18, CONT+19, CONT+20, CONT+31, CONT+46 , CONT+47, GETNVA+2, GETNVA+5, GETNVA+9, GETNVA+11, GETNVA+12, GETPEND+6, MEDDSPP+3, MEDDSPP+5, MEDDSPO+4 , MEDDSPO+6, MEDDSPN+5, MEDDSPN+13, MEDDSP+4, MEDDSP+6, MEDDSP+17, MEDDSP+18, MEDDSP+19, MEDDSP+21, MEDDSP+23 , MEDDSP+24, REF+1, REF+2, SITE+2, SITE+3, SITE+4, CS+1, CS+2
V	CONT+5~, CONT+16*
X	CONT+5~, CONT+12, CONT+14, CONT+15, CONT+16, CONT+20, GETNVA+1, GETNVA+2, GETNVA+5, GETNVA+9 , GETNVA+11, GETNVA+12, GETPEND+5, GETPEND+6, MEDDSPP+5, MEDDSPO+7, MEDDSPN+6, MEDDSP+7, SIG+1, SIG+2* , SIG+3, CTR~, CTR+1
Y	SIG+2, CS+2~, CS+4, CS+5, CS+6, CS+7, CTR~, CTR+1

Customize PDF page

Package: Patient Care Component

Routine: APCHS7R

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: