Routine: BHSMEDR

Information

BHSMEDR ;IHS/MSC/MGH - Health Summary for MED RECONCILIATION ;01-May-2014 11:12;DU

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Patient Care Component	2	$$CHRONIC^APCHS72 GETMEDS^APCHSMU1
VA Fileman	2	$$GET1^DIQ ^DIWP
Health Summary	1	CKP^GMTSUP
Health Summary Components	1	RECON^BHSMED
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Kernel	1	($$FMADD,$$FMDIFF,$$FMTE)^XLFDT

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+36
GETMEDS^APCHSMU1	CONT+10
RECON^BHSMED	MEDDSPP+14, MEDDSPP+20, MEDDSPO+18, MEDDSPO+24, MEDDSP+30, MEDDSP+36, MEDDSPN+17, MEDDSPN+23
$$GET1^DIQ	MEDDSPP+13, MEDDSPO+17, MEDDSP+29
^DIWP	MEDDSPP+7, MEDDSPO+9, MEDDSP+10, MEDDSPN+7
CKP^GMTSUP	CONT+4, DISP+2, DISP+11, MEDDSPP+4, MEDDSPP+6, MEDDSPP+10, MEDDSPO+4, MEDDSPO+6, MEDDSPO+10, MEDDSPO+13 , MEDDSP+5, MEDDSP+7, MEDDSP+11, MEDDSP+14, MEDDSP+17, MEDDSPN+2, MEDDSPN+4, MEDDSPN+8, MEDDSPN+11
$$VAL^XBDIQ1	GETPEND+4
$$VALI^XBDIQ1	CONT+28, CONT+29
$$FMADD^XLFDT	CONT+10
$$FMDIFF^XLFDT	CONT+39, CONT+45, CONT+52
$$FMTE^XLFDT	MEDDSP+20, MEDDSPN+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "ACTIVE MEDICATIONS",! Line Location: DISP+4
Function Call: WRITE	Prompt: "OUTSIDE PHARMACY MEDS",! Line Location: DISP+13
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+5
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+8
Function Call: WRITE	Prompt: ! Line Location: MEDDSPO+5
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+11
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+12
Function Call: WRITE	Prompt: ?6,"Last Filled: ",$$D(9999999-BHDT) Line Location: MEDDSP+18
Function Call: WRITE	Prompt: " ---",BHSORT," ",$$FMTE^XLFDT($P(^AUPNVMED(BHM,0),U,8),"2D") Line Location: MEDDSP+20
Function Call: WRITE	Prompt: ?30,"Expired: ",$$D(E) Line Location: MEDDSP+21
Function Call: WRITE	Prompt: ! Line Location: MEDDSP+22
Function Call: WRITE	Prompt: ?6,"Hold Reason: " Line Location: MEDDSP+23
Function Call: WRITE	Prompt: $P($G(^PSRX($P(BHZ,U,1),"H")),U,1) Line Location: MEDDSP+23
Function Call: WRITE	Prompt: ?6,"Discontinued: " Line Location: MEDDSP+24
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(BHZ,U,9)) Line Location: MEDDSPN+13

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ
^PS(52.41 - [#52.41]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMED - [#9000010.14]	CONT+19, CONT+20, CONT+50, GETNVA+5, MEDDSPP+3, MEDDSPO+2, MEDDSPO+7, MEDDSP+2, MEDDSP+3, MEDDSP+8 , MEDDSP+19, MEDDSP+20, MEDDSP+25, REF+1
^AUPNVMED("AC"	CONT+3
^AUPNVSIT - [#9000010]	CONT+22, CONT+23, 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+3, GETPEND+2, GETPEND+5
^PS(55 - [#55]	GETNVA+2, GETNVA+4, GETNVA+5, GETNVA+6, GETNVA+7, GETNVA+9, GETNVA+11, GETNVA+12, MEDDSPP+19, MEDDSPO+23 , MEDDSP+35, MEDDSPN+16, MEDDSPN+22
^PSDRUG - [#50]	CONT+21, GETNVA+11, GETPEND+3, CS+1, CS+2
^PSRX - [#52]	SET+2, CONT+26, CONT+35, CONT+51, MEDDSP+21, MEDDSP+23, MEDDSP+26, REF+2
^PSRX("APCC"	CONT+24
^UTILITY($J	MEDDSPP+7!, MEDDSPP+8, MEDDSPP+9, MEDDSPP+11, MEDDSPP+12!, MEDDSPO+9!, MEDDSPO+11, MEDDSPO+12, MEDDSPO+14, MEDDSPO+15! , MEDDSP+10!, MEDDSP+12, MEDDSP+13, MEDDSP+15, MEDDSP+16!, MEDDSPN+7!, MEDDSPN+9, MEDDSPN+10, MEDDSPN+12, MEDDSPN+14!

Label References

Name	Line Occurrences
$$D	MEDDSP+18, MEDDSP+21, MEDDSP+27
DISCONT	EXPIRED+1
EXPIRED	PENDING+1
HOLD	OUT+1
MEDDSP	DISP+10, DISP+19, HOLD+8, SUSPEND+8, EXPIRED+8, DISCONT+8
MEDDSPN	OUT+12
MEDDSPO	OUT+7
MEDDSPP	PENDING+6
MEDX	DISCONT+1
OUT	DISP+3, DISP+12
PENDING	SUSPEND+1
REF	SET+1
SET	CONT+22, CONT+23, CONT+25, CONT+26, CONT+28, CONT+30, CONT+31, CONT+32, CONT+43, CONT+48 , CONT+54
SIG	MEDDSPO+7, MEDDSP+8, MEDDSPN+5
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
BHCNT	CONT+6~, CONT+8, DISP+5, DISP+14, MEDDSPP+2, MEDDSPP+5, MEDDSPO+3, MEDDSPO+5, MEDDSP+4, MEDDSP+6 , MEDDSPN+1*, MEDDSPN+3
BHD	CONT+6~, GETPEND+2*, GETPEND+3
BHDI	CONT+6~, DISP+8, DISP+9, DISP+10, DISP+17, DISP+18, DISP+19, 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, MEDDSPP+13
BHDT	CONT+6~, DISP+9, DISP+10, DISP+18, DISP+19, 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+18
BHI	CONT+6~, GETPEND+2*, GETPEND+3
BHM	CONT+6~, DISP+10, DISP+19, OUT+7, HOLD+8, SUSPEND+8, EXPIRED+8, DISCONT+8*, MEDDSPO+2, MEDDSPO+7 , MEDDSP+2, MEDDSP+3, MEDDSP+8, MEDDSP+19, MEDDSP+20, MEDDSP+25
BHMDSP	CONT+6~, CONT+9!
BHMDSP(	SET+4*, CONT+42, CONT+47, CONT+53
BHMEDS	CONT+6~, CONT+9!, CONT+10
BHMEDS(	CONT+14, CONT+16, CONT+17, CONT+18
BHN	CONT+6~, GETPEND+3, GETPEND+4, GETPEND+6, DISP+7, DISP+8, DISP+9, DISP+10, DISP+16, DISP+17 , DISP+18, DISP+19, 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+5 , MEDDSPO+5, MEDDSP+6, MEDDSPN+3
BHS11	CONT+6~, MEDDSPP+3, MEDDSPP+17, MEDDSP+3
BHSIG	CONT+6~, MEDDSPO+7, MEDDSP+8, MEDDSPN+5*, SIG+1, SIG+2
BHSITE	CONT+7~, SITE+1, SITE+2, SITE+4*
BHSN	CONT+6~, MEDDSPO+2, MEDDSP+2
BHSNVA	CONT+7~, MEDDSPN+15*, MEDDSPN+16, MEDDSPN+20
BHSORD	MEDDSPP+1~, MEDDSPP+13, MEDDSPP+14, MEDDSPP+19, MEDDSPP+20, MEDDSPO+1~, MEDDSPO+17, MEDDSPO+18, MEDDSPO+23, MEDDSPO+24 , MEDDSP+1~, MEDDSP+29, MEDDSP+30, MEDDSP+35, MEDDSP+36, MEDDSPN+16, MEDDSPN+17, MEDDSPN+22, MEDDSPN+23
BHSORT	CONT+7~, MEDDSP+19*, MEDDSP+20
BHSP	CONT+7~, SIG+1*, SIG+2
BHSPAT	CONT+1~, CONT+2*, CONT+3, CONT+10, GETNVA+2, GETNVA+4, GETNVA+5, GETNVA+6, GETNVA+7, GETNVA+9 , GETNVA+11, GETNVA+12, GETPEND+2
BHSQ	CONT+1~
BHSREF	SET+1, SET+2, CONT+7~, REF+1, REF+2, REF+3
BHSRFL	CONT+7~, REF+2*, REF+3
BHSRX	SET+1, CONT+7~, MEDDSPP+1~, MEDDSPO+1~, MEDDSPO+16, MEDDSPO+17, MEDDSPO+21, MEDDSP+1~, MEDDSP+28*, MEDDSP+29 , MEDDSP+33, REF+1, REF+2
BHSSGY	CONT+6~, MEDDSPO+8, MEDDSP+9, MEDDSPN+6, SIG+1, SIG+3
BHST	CONT+6~
BHSTAT	CONT+6~, CONT+13!
BHSTAT(	SET+2, SET+3
BHSTAT("ACTIV	E MEDICATIONS" , DISP+3, DISP+7, DISP+8, DISP+9, DISP+10
BHSTAT("DISCO	NTINUED MEDICATIONS" , DISCONT+1, DISCONT+5, DISCONT+6, DISCONT+7, DISCONT+8
BHSTAT("EXPIR	ED MEDICATIONS" , EXPIRED+1, EXPIRED+5, EXPIRED+6, EXPIRED+7, EXPIRED+8
BHSTAT("HOLD	MEDICATIONS" , HOLD+1, HOLD+5, HOLD+6, HOLD+7, HOLD+8
BHSTAT("NVA"	GETNVA+12, GETNVA+13, OUT+1, OUT+9, OUT+10, OUT+11, OUT+12
BHSTAT("OUTSI	DE MEDICATIONS" , OUT+1, OUT+4, OUT+5, OUT+6, OUT+7, DE PHARMACY MEDS" , DISP+12, DISP+16, DISP+17 , DISP+18, DISP+19
BHSTAT("PENDING"	GETPEND+4, GETPEND+6, PENDING+1, PENDING+4, PENDING+5, PENDING+6
BHSTAT("SUSPE	ND MEDICATIONS" , SUSPEND+1, SUSPEND+5, SUSPEND+6, SUSPEND+7, SUSPEND+8
BHSVDF	CONT+7~, SITE+2, SITE+3, SITE+4
BHT	CONT+7~, DISP+6, DISP+15, HOLD+2, SUSPEND+2, EXPIRED+2, DISCONT+2, MEDDSP+18, MEDDSP+19, MEDDSP+21 , MEDDSP+23, MEDDSP+24
BHZ	CONT+6~, DISP+10, DISP+19, OUT+7, OUT+12, HOLD+8, SUSPEND+8, PENDING+6, EXPIRED+8, DISCONT+8* , MEDDSPP+3, MEDDSPP+5, MEDDSPP+7, MEDDSPO+5, MEDDSPO+16, MEDDSP+6, MEDDSP+21, MEDDSP+23, MEDDSP+26, MEDDSP+28 , MEDDSPN+5, MEDDSPN+13, MEDDSPN+15
C	SET+2, SET+3, CONT+7~, CONT+22, CONT+23, CONT+25, CONT+26, CONT+28, CONT+30, CONT+31* , CONT+32, CONT+43, CONT+48, CONT+54, GETPEND+5*
D	SET+2, SET+3, SET+4, CONT+7~, CONT+19, CONT+21, CONT+42, CONT+47, CONT+53, GETNVA+1~ , GETNVA+9, GETNVA+10*, GETNVA+11, GETNVA+12, GETNVA+13, D~, D+1, D+2, CS~, CS+1 , CS+2
DC	GETNVA+1~, GETNVA+3, GETNVA+4, GETNVA+6
>> DFN	CONT+2, MEDDSPP+19, MEDDSPO+23, MEDDSP+35, MEDDSPN+16, MEDDSPN+22
>> DIWL	MEDDSPP+7, MEDDSPO+9, MEDDSP+10, MEDDSPN+7
>> DIWR	MEDDSPP+7, MEDDSPO+9, MEDDSP+10, MEDDSPN+7
DT	CONT+10, CONT+39, CONT+45, CONT+52
DUZ(2	SITE+4
E	CONT+7~, CONT+35, CONT+39, CONT+45, CONT+50, CONT+51, CONT+52, MEDDSP+21, MEDDSP+25, MEDDSP+26 , MEDDSP+27
F	SET+2, SET+3, SET+4, CONT+7~, CONT+16, CONT+42, CONT+47, CONT+53, MEDDSPP+9, MEDDSPP+11 , MEDDSPO+12, MEDDSPO+14, MEDDSP+13, MEDDSP+15, MEDDSPN+10*, MEDDSPN+12
>> GMTSQIT	CONT+4, DISP+2, DISP+7, DISP+8, DISP+9, DISP+10, DISP+11, DISP+16, DISP+17, DISP+18 , DISP+19, 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+4, MEDDSPP+6, MEDDSPP+9, MEDDSPP+10 , MEDDSPO+4, MEDDSPO+6, MEDDSPO+10, MEDDSPO+12, MEDDSPO+13, MEDDSP+5, MEDDSP+7, MEDDSP+11, MEDDSP+13, MEDDSP+14 , MEDDSP+17, MEDDSPN+2, MEDDSPN+4, MEDDSPN+8, MEDDSPN+10, MEDDSPN+11
IOM	CTR+1
J	CONT+7~, CONT+39, CONT+40, CONT+45, CONT+46
L	GETNVA+1~, GETNVA+7, GETNVA+8, GETNVA+12, GETNVA+13
M	SET+2, SET+3, CONT+7~, CONT+17*, CONT+19, CONT+20, CONT+24, CONT+36, CONT+50, REF+1
N	SET+2, SET+3, SET+4, CONT+7~, CONT+20, CONT+21, CONT+42, CONT+47, CONT+53, GETNVA+1~ , GETNVA+11*, GETNVA+12, GETNVA+13
NVA	MEDDSPP+16~, MEDDSPP+17, MEDDSPP+18, MEDDSPP+19, MEDDSPO+20~, MEDDSPO+21, MEDDSPO+22, MEDDSPO+23, MEDDSP+32~, MEDDSP+33* , MEDDSP+34, MEDDSP+35, MEDDSPN+19~, MEDDSPN+20*, MEDDSPN+21, MEDDSPN+22
ORD	GETPEND+1~, GETPEND+2*
P	SET+1, SET+2, SET+3, CONT+7~, CONT+15, CONT+24, CONT+25, CONT+26*, CONT+28, CONT+29 , CONT+35, CONT+51
PEN	GETPEND+1~, GETPEND+2*, GETPEND+4, GETPEND+5, GETPEND+6
R	CONT+7~, CONT+36*, CONT+37
S	CONT+7~, CONT+29*, CONT+30, CONT+31, CONT+32, CONT+33, CONT+49
U	SET+2, SET+3, CONT+16, CONT+17, CONT+18, CONT+19, CONT+20, CONT+21, CONT+22, CONT+23 , CONT+35, CONT+50, CONT+51, GETNVA+4, GETNVA+5, GETNVA+6, GETNVA+7, GETNVA+9, GETNVA+11, GETNVA+12 , GETNVA+13, GETPEND+6, MEDDSPP+5, MEDDSPP+7, MEDDSPP+17, MEDDSPP+19, MEDDSPO+5, MEDDSPO+7, MEDDSPO+16, MEDDSPO+23 , MEDDSP+6, MEDDSP+8, MEDDSP+19, MEDDSP+20, MEDDSP+21, MEDDSP+23, MEDDSP+25, MEDDSP+26, MEDDSP+28, MEDDSP+35 , MEDDSPN+5, MEDDSPN+13, MEDDSPN+15, MEDDSPN+16, MEDDSPN+22, REF+1, REF+2, SITE+2, SITE+3, SITE+4 , CS+1, CS+2
V	CONT+7~, CONT+18*
X	CONT+7~, CONT+14, CONT+16, CONT+17, CONT+18, CONT+22, CONT+23, GETNVA+1~, GETNVA+2, GETNVA+4 , GETNVA+5, GETNVA+6, GETNVA+7, GETNVA+9, GETNVA+11, GETNVA+12, GETNVA+13, GETPEND+5, GETPEND+6, MEDDSPP+7 , MEDDSPO+8, MEDDSP+9, MEDDSPN+6, 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: Health Summary Components

Routine: BHSMEDR

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: