Routine: BHSMED

Package	Total	Call Graph
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
Health Summary Components	2	DISPREF^BHSRAD PRTTXT^BHSUTL
VA Fileman	2	(,C)^%DTC $$GET1^DIQ
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	($$LASTMLR,$$LASTMLU,$$LASTNAM)^APCLAPI6

Package	Total	Caller Graph
Health Summary Components	8	BHSMBN BHSMEDAL BHSMEDCS BHSMEDG BHSMEDH BHSMEDI BHSMEDR BHSMEDSF

Entry Points

Name	Comments	DBIA/ICR reference
CONT	; <SETUP>
MEDSNDUP	; *********** ALL, NON DUPLICATED ***********
MEDRU	;EP
MEDSCHRN	; *********** CHRONIC MEDCICATIONS **********
CURR	; current meds only
NONVA	;EP - ;NEW DFN,PSOACT S DFN=BHSPAT,PSOACT=1 D ^PSOHCSUM
REF	;DETERMINE THE NUMBER OF REFILLS REMAINING
HOLDDSP1	;write out med
NODUP	;
CHRONIC	;chronic meds only
MEDSALL	; **************** ALL MEDICATIONS * 9000010.14 **********
HOLDMEDS(P,R)	;EP - get meds on hold for display
HOLD(S)	;EP - is this prescription on hold?
MEDDSP	;DISPLAY MEDICATION
RECON(RX,TYP)	;Get last date reconciled
ALL	;all meds included
SITE	;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
NVADSP	;
HOLDDSP	;EP - display all meds on hold
MEDBLD	;BUILD ARRAY OF MEDICATIONS
MEDSCURR	; ************** CURRENT MEDICATIONS * 9000010.14 ********
MEDSCHR1	; ***** CHRONIC MEDICATIONS, W/O D/C'ED *****
SIG	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
MEDX

External References

Name	Field # of Occurrence
^%DTC	CURR+2, MEDDSP+10
C^%DTC	MEDDSP+12
$$LASTMLR^APCLAPI6	MEDRU+3
$$LASTMLU^APCLAPI6	MEDRU+6
$$LASTNAM^APCLAPI6	MEDRU+9
DISPREF^BHSRAD	CONT+3, CONT+14
PRTTXT^BHSUTL	MEDDSP+29, NVADSP+10, HOLDDSP1+13, HOLDDSP1+18
$$GET1^DIQ	MEDDSP+25, MEDDSP+30, RECON+7, RECON+8
REGDT4^GMTSU	MEDDSP+7, MEDDSP+12, MEDDSP+14, NVADSP+2, NVADSP+5, HOLDDSP1+2
CKP^GMTSUP	CONT+4, MEDDSP+22, MEDDSP+28, NVADSP+7, NVADSP+9, HOLDDSP+4, HOLDDSP+10, HOLDDSP+12, HOLDDSP+14, HOLDDSP+16 , HOLDDSP1+9, HOLDDSP1+12, HOLDDSP1+16, MEDRU+4, MEDRU+7, MEDRU+10
$$VAL^XBDIQ1	HOLDDSP1+10, HOLDDSP1+15, HOLDDSP1+17
$$FMTE^XLFDT	MEDRU+5, MEDRU+8, MEDRU+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: BHSDAT,?10,$S(BHSCRN:"(C)",1:""),?14,BHSMED," #",BHSQTY," (",BHSDYS," days) ",BHSEXP,! Line Location: MEDDSP+23
Function Call: WRITE	Prompt: ?14,"RxNorm: ",RXNORM,! Line Location: MEDDSP+26
Function Call: WRITE	Prompt: ?14,"Dispensed at: ",BHSITE,! Line Location: MEDDSP+27
Function Call: WRITE	Prompt: BHSDAT,?14,BHSMED," ",BHSEXP,! Line Location: NVADSP+8
Function Call: WRITE	Prompt: !,"The following medications have been processed in the Pharmacy " Line Location: HOLDDSP+5
Function Call: WRITE	Prompt: !,"system, but are currently active but not dispensed:",!,! Line Location: HOLDDSP+6
Function Call: WRITE	Prompt: !,"Medications may be on hold for several reasons including: Too early" Line Location: HOLDDSP+11
Function Call: WRITE	Prompt: !,"for refill, patient has sufficient amount on hand,pharmacy resolving issue" Line Location: HOLDDSP+13
Function Call: WRITE	Prompt: !,"with prescriber, etc. Contact Pharmacy staff for details or view " Line Location: HOLDDSP+15
Function Call: WRITE	Prompt: !,"prescription details in Pharmacy system.",! Line Location: HOLDDSP+17
Function Call: WRITE	Prompt: BHSDAT,?10,$S(BHSCRN:"(C)",1:""),?14,$$VAL^XBDIQ1(52,BHSRX,6)," #",BHSQTY," (",BHSDYS," days) ",! Line Location: HOLDDSP1+10
Function Call: WRITE	Prompt: ?14,"Dispensed at: ",APCHSITE,! Line Location: HOLDDSP1+11
Function Call: WRITE	Prompt: ?14,"Ordering Provider: ",$$VAL^XBDIQ1(52,BHSRX,4),! Line Location: HOLDDSP1+15
Function Call: WRITE	Prompt: !,"Medication List Reviewed On: ",?36,$$FMTE^XLFDT($P(BHSX,U,1)) Line Location: MEDRU+5
Function Call: WRITE	Prompt: ?51,"By: ",?56,$E($S($P(BHSX,U,3):$P($G(^VA(200,$P(BHSX,U,3),0)),U),1:""),1,22),! Line Location: MEDRU+5
Function Call: WRITE	Prompt: "Medication List Updated On: ",?36,$$FMTE^XLFDT($P(BHSX,U,1)) Line Location: MEDRU+8
Function Call: WRITE	Prompt: ?51,"By: ",?56,$E($S($P(BHSX,U,3):$P($G(^VA(200,$P(BHSX,U,3),0)),U),1:""),1,22),! Line Location: MEDRU+8
Function Call: WRITE	Prompt: "No Active Medications Documented On: ",?36,$$FMTE^XLFDT($P(BHSX,U,1)) Line Location: MEDRU+11
Function Call: WRITE	Prompt: ?51,"By: ",?56,$E($S($P(BHSX,U,3):$P($G(^VA(200,$P(BHSX,U,3),0)),U),1:""),1,22),! Line Location: MEDRU+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
90461.632	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMED - [#9000010.14]	MEDBLD+3, MEDBLD+4, NONVA+5, MEDDSP+4, MEDDSP+16
^AUPNVMED("AA"	CONT+7
^AUPNVMED("AC"	CONT+3
^AUPNVSIT - [#9000010]	SITE+2, SITE+3, SITE+4
^BEHOCIR("G"	RECON+4, RECON+5
^DIC(4 - [#4]	SITE+4
^PS(50.7 - [#50.7]	NONVA+11
^PS(51 - [#51]	SIG+3
^PS(55 - [#55]	NONVA+4, NONVA+5, NONVA+6, NONVA+9, NONVA+11, NONVA+12, NONVA+13, CHRONIC+3, MEDDSP+6, MEDDSP+34 , HOLDMEDS+5, HOLDMEDS+6, HOLDDSP1+1
^PSDRUG - [#50]	MEDBLD+5, NONVA+11, MEDDSP+13
^PSRX - [#52]	REF+2, HOLD+2, HOLD+7, HOLDDSP1+2, HOLDDSP1+3, HOLDDSP1+4, HOLDDSP1+5
^PSRX("APCC"	CHRONIC+2, MEDDSP+5
^TMP($J	CONT+6!, CONT+10, MEDX+2!, NONVA+12, NONVA+13, CURR+1, CURR+3, ALL+1, NODUP+1, NODUP+2* , CHRONIC+1, CHRONIC+6*, MEDDSP+2, NVADSP+3, NVADSP+4, NVADSP+6, NVADSP+11
^VA(200 - [#200]	MEDRU+5, MEDRU+8, MEDRU+11

Label References

Name	Line Occurrences
$$HOLD	HOLDMEDS+7
@(	MEDBLD+9
CONT	MEDSCURR+1, MEDSALL+1, MEDSCHRN+1, MEDSNDUP+1, MEDSCHR1+1
HOLDDSP	CONT+12
HOLDDSP1	HOLDDSP+8
HOLDMEDS	HOLDDSP+2
MEDBLD	CONT+7
MEDDSP	CONT+10
MEDRU	CONT+16
NONVA	CONT+8
NVADSP	MEDDSP+3
RECON	MEDDSP+35, NVADSP+12
REF	MEDDSP+20, HOLDDSP1+7
SIG	MEDDSP+19, HOLDDSP1+6
SITE	MEDDSP+21

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AIEN	RECON+1~, RECON+6*, RECON+7, RECON+8
APCHORTS	MEDX!, MEDDSP+16*, MEDDSP+17, MEDDSP+33
BHHMED	HOLDDSP+1!, HOLDDSP+2, HOLDDSP+3, HOLDDSP+18!
BHHMED(	HOLDDSP+7
BHSALL	MEDX+1!
BHSCRN	MEDX+1!, MEDDSP+6, MEDDSP+23, HOLDDSP1+1, HOLDDSP1+10
BHSDAT	MEDX!, MEDDSP+7, MEDDSP+23, NVADSP+2, NVADSP+8, HOLDDSP1+2*, HOLDDSP1+10
BHSDC	MEDX!, MEDBLD+7, CURR+3, ALL+1, NODUP+2, CHRONIC+5, CHRONIC+6, MEDDSP+8, MEDDSP+14, MEDDSP+17 , NVADSP+3*, NVADSP+5
BHSDCP	MEDSCHR1+1*, MEDX!, CHRONIC+5
BHSDRG	MEDX+1!
BHSDTM	MEDX!, MEDBLD+6, CURR+2, MEDDSP+7, MEDDSP+10, MEDDSP+12, NVADSP+2, HOLDDSP1+2
BHSDYS	MEDX!, MEDBLD+7, MEDBLD+8, CURR+2, MEDDSP+8, MEDDSP+9, MEDDSP+12, MEDDSP+23, HOLDDSP1+3*, HOLDDSP1+10
BHSEXP	MEDX!, MEDDSP+11, MEDDSP+12, MEDDSP+14, MEDDSP+17, MEDDSP+23, NVADSP+1, NVADSP+5, NVADSP+8
BHSFN	CONT+3, CONT+14, CONT+17!
BHSICL	MEDDSP+29!, NVADSP+10!, HOLDDSP1+13, HOLDDSP1+14!, HOLDDSP1+17, HOLDDSP1+18!
BHSIG	MEDX!, MEDDSP+8, MEDDSP+19, MEDDSP+20, MEDDSP+29, NVADSP+6, NVADSP+10, SIG+2, SIG+3, HOLDDSP1+5* , HOLDDSP1+6, HOLDDSP1+7, HOLDDSP1+13
BHSITE	MEDX+1!, MEDDSP+27, SITE+1, SITE+2, SITE+4*
BHSIVD	CONT+7, CONT+10, MEDX!, MEDBLD+6, CURR+3, ALL+1, NODUP+2, CHRONIC+6, MEDDSP+2, MEDDSP+7 , NVADSP+2, NVADSP+3, NVADSP+4, NVADSP+6, NVADSP+11
BHSMED	MEDX!, MEDDSP+13, MEDDSP+23, NVADSP+4, NVADSP+8
BHSMFX	MEDX!, MEDBLD+7, CURR+1, CURR+3, ALL+1, NODUP+1, NODUP+2, CHRONIC+1, CHRONIC+6, MEDDSP+8 , MEDDSP+13, MEDDSP+25
BHSMTS	MEDX!
BHSMTY	MEDSCURR+1, MEDSALL+1, MEDSCHRN+1, MEDSNDUP+1, MEDSCHR1+1*, MEDX+1!, MEDBLD+9, NONVA+3
BHSMX	CONT+7, MEDX!, MEDBLD+3, MEDBLD+4, CURR+3, ALL+1, NODUP+2, CHRONIC+2, CHRONIC+6, MEDDSP+2 , MEDDSP+3, MEDDSP+4, MEDDSP+5, MEDDSP+16
BHSN	MEDX!, MEDBLD+4, MEDBLD+5, MEDBLD+7, MEDDSP+4, MEDDSP+8, MEDDSP+13
BHSNAB	MEDX+1!
BHSNFL	MEDX+1!
BHSNRQ	MEDDSP+29!, NVADSP+10!, HOLDDSP1+13, HOLDDSP1+14!, HOLDDSP1+17, HOLDDSP1+18!
BHSNSH	MEDX+1!
BHSORD	MEDX+1!, MEDDSP+30, MEDDSP+31, MEDDSP+34, MEDDSP+35
BHSP	MEDX!, MEDDSP+29!, NVADSP+10!, SIG+2*, SIG+3, HOLDDSP1+14!, HOLDDSP1+18!
BHSPAT	CONT+1~, CONT+2*, CONT+3, CONT+7, NONVA+4, NONVA+5, NONVA+6, NONVA+9, NONVA+11, NONVA+12 , NONVA+13, CHRONIC+3, MEDDSP+6, HOLDDSP+2, HOLDDSP1+1, MEDRU+3, MEDRU+6, MEDRU+9
BHSQ	CONT+1~, CONT+7, CONT+10
BHSQTY	MEDX!, MEDDSP+8, MEDDSP+23, HOLDDSP1+4, HOLDDSP1+10
BHSREF	MEDX+1!, MEDDSP+20, REF+1, REF+2, REF+3*, HOLDDSP1+7
BHSRFL	MEDX+1!, REF+2*, REF+3
BHSRX	MEDX+1!, MEDDSP+5, MEDDSP+6, MEDDSP+30, REF+1, REF+2, HOLDDSP+7, HOLDDSP1+1, HOLDDSP1+2, HOLDDSP1+3 , HOLDDSP1+4, HOLDDSP1+5, HOLDDSP1+10, HOLDDSP1+15, HOLDDSP1+17
BHSSGY	MEDX!, MEDDSP+19, SIG+2, SIG+4, HOLDDSP1+6
BHST	CONT+3, CONT+14, CONT+17!
BHSTXT	MEDX+1!, MEDDSP+29, NVADSP+10, HOLDDSP1+13, HOLDDSP1+17
BHSVDF	MEDX!, MEDDSP+8*, SITE+2, SITE+3, SITE+4
BHSVSC	MEDX+1!
BHSX	MEDRU+2~, MEDRU+3, MEDRU+5, MEDRU+6, MEDRU+8, MEDRU+9*, MEDRU+11
BY	RECON+1~, RECON+8*, RECON+9
C	HOLDMEDS+3~
D	NONVA+2~, NONVA+9, NONVA+10, NONVA+11, HOLDMEDS+3~, HOLDMEDS+4, HOLDMEDS+5, HOLDMEDS+6
>> DFN	CONT+2, MEDDSP+34
DT	CURR+2, MEDDSP+10, HOLDMEDS+4, MEDRU+3, MEDRU+6, MEDRU+9
DUZ(2	SITE+4
>> GMTSDLM	CONT+7, NONVA+8
>> GMTSQIT	CONT+4, MEDDSP+22, MEDDSP+28, NVADSP+7, NVADSP+9, HOLDDSP+4, HOLDDSP+7, HOLDDSP+10, HOLDDSP+12, HOLDDSP+14 , HOLDDSP+16, HOLDDSP1+9, HOLDDSP1+12, HOLDDSP1+16, MEDRU+4, MEDRU+7, MEDRU+10
IEN	RECON+1~, RECON+5*, RECON+6
L	NONVA+2~, NONVA+6, NONVA+7, NONVA+8, NONVA+12
N	NONVA+2~, NONVA+11, NONVA+12, NONVA+13, HOLDMEDS+3~, HOLDMEDS+6, HOLDMEDS+7, HOLDMEDS+8
NIEN	MEDX+3!, NVADSP+11*, NVADSP+12
NVA	MEDDSP+32~, MEDDSP+33*, MEDDSP+34
P	HOLDMEDS~, HOLDMEDS+2, HOLDMEDS+5, HOLDMEDS+6
R	HOLDMEDS~
R(	HOLDMEDS+8*
REC	RECON+1~, RECON+3, RECON+4, RECON+5, RECON+6
RX	RECON~, RECON+2, RECON+4, RECON+5
RXNORM	MEDX+3!, MEDDSP+25*, MEDDSP+26
S	HOLD~, HOLD+2, HOLD+7
TYP	RECON~, RECON+4, RECON+5
U	MEDBLD+5, MEDBLD+7, NONVA+5, NONVA+6, NONVA+9, NONVA+11, NONVA+12, NONVA+13, MEDDSP+3, MEDDSP+8 , MEDDSP+13, MEDDSP+33, MEDDSP+34, NVADSP+3, NVADSP+4, NVADSP+6, NVADSP+11, REF+2, SITE+2, SITE+3 , SITE+4, HOLD+2, HOLD+7, HOLDDSP1+2, HOLDDSP1+3, HOLDDSP1+4, HOLDDSP1+5, MEDRU+5, MEDRU+8, MEDRU+11
WHEN	RECON+1~, RECON+7*, RECON+9
X	MEDX+3!, NONVA+4, NONVA+5, NONVA+6, NONVA+9, NONVA+11, NONVA+12, NONVA+13, CURR+2, CHRONIC+2 , CHRONIC+3, MEDDSP+7, MEDDSP+12, MEDDSP+14, MEDDSP+17, NVADSP+2, SIG+2, SIG+3, SIG+4, HOLD+1~ , HOLD+2, HOLD+3, HOLD+4, HOLD+5, HOLD+7, HOLD+8, HOLD+9, HOLD+10, HOLDDSP1+2
X1	MEDX+3!, CURR+2, MEDDSP+10, MEDDSP+12*
X2	MEDX+3!, CURR+2, MEDDSP+10, MEDDSP+12*
Y	MEDX+3!, CHRONIC+3, CHRONIC+4, NVADSP+5, SIG+3*

Customize PDF page

Package: Health Summary Components

Routine: BHSMED

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller 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: