Routine: BHSMEDI

Information

BHSMEDI ;IHS/CIA/MGH - Health Summary for V MED file ;01-May-2014 10:15;DU

Source Information

Source file <BHSMEDI.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Health Summary Components	4	(HOLDDSP,MEDRU,NONVA,RECON)^BHSMED $$CHRONIC^BHSMEDSF DISPREF^BHSRAD PRTTXT^BHSUTL
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
VA Fileman	2	^%DTC $$GET1^DIQ
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
MEDBLD	;BUILD ARRAY OF MEDICATIONS
CONT	; <SETUP>
MEDSNDUP	; *********** ALL, NON DUPLICATED ***********
MEDSCURR	; ************** CURRENT MEDICATIONS * 9000010.14 ********
ALL	;all meds included
SITE	;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
NVADSP	;
CHRONIC	;chronic meds only
MEDDSP	;DISPLAY MEDICATION
MEDSCHRN	; *********** CHRONIC MEDCICATIONS **********
NODUP	;
MEDSALL	; **************** ALL MEDICATIONS * 9000010.14 **********
CURR	; current meds only
MEDX
REF	;DETERMINE THE NUMBER OF REFILLS REMAINING
SIG	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG

External References

Name	Field # of Occurrence
^%DTC	CURR+2, MEDDSP+11
HOLDDSP^BHSMED	CONT+23
MEDRU^BHSMED	CONT+28
NONVA^BHSMED	CONT+14
RECON^BHSMED	MEDDSP+25, MEDDSP+31
$$CHRONIC^BHSMEDSF	MEDBLD+9
DISPREF^BHSRAD	CONT+3, CONT+26
PRTTXT^BHSUTL	MEDDSP+34, NVADSP+11
$$GET1^DIQ	MEDDSP+22, MEDDSP+24
REGDT4^GMTSU	MEDDSP+9, MEDDSP+14, NVADSP+2, NVADSP+5
CKP^GMTSUP	CONT+4, CONT+17, MEDDSP+18, MEDDSP+33, MEDDSP+35, MEDDSP+39, NVADSP+7, NVADSP+10
$$FMTE^XLFDT	CONT+11, CONT+18, MEDDSP+36

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"MEDICATIONS DISPENSED SINCE ",$$FMTE^XLFDT((9999999-GMTSDLM)),! Line Location: CONT+18
Function Call: WRITE	Prompt: "(C) - Chronic Medication, (CRx) - Controlled Drug",!! Line Location: CONT+19
Function Call: WRITE	Prompt: BHSDAT,?10,$S(BHSCRN:"(C)",1:""),?14,BHSMED Line Location: MEDDSP+19
Function Call: WRITE	Prompt: " #",BHSQTY Condition for execution: BHSQTY Line Location: MEDDSP+19
Function Call: WRITE	Prompt: " (",BHSDYS," days) " Condition for execution: BHSDYS Line Location: MEDDSP+20
Function Call: WRITE	Prompt: BHSEXP,! Line Location: MEDDSP+20
Function Call: WRITE	Prompt: ?14,"RxNorm: ",RXNORM,! Line Location: MEDDSP+23
Function Call: WRITE	Prompt: ?14,"Dispensed at: ",BHSITE,! Line Location: MEDDSP+32
Function Call: WRITE	Prompt: ?16,"Most recent issue date: ",$$FMTE^XLFDT($P(^PSRX(BHSRX,0),U,13),5),! Line Location: MEDDSP+36
Function Call: WRITE	Prompt: ?16,"# times prev filled: ",Y-1 Line Location: MEDDSP+40
Function Call: WRITE	Prompt: " " Line Location: MEDDSP+40
Function Call: WRITE	Prompt: " " Line Location: MEDDSP+40
Function Call: WRITE	Prompt: ! Line Location: MEDDSP+41
Function Call: WRITE	Prompt: BHSDAT,?14,BHSMED," ",BHSEXP,! Line Location: NVADSP+8

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMED - [#9000010.14]	CONT+8, MEDBLD+3, MEDBLD+4, MEDDSP+4, MEDDSP+5
^AUPNVMED("AA"	CONT+7, CONT+13
^AUPNVMED("AC"	CONT+3
^AUPNVSIT - [#9000010]	SITE+2, SITE+3, SITE+4
^DIC(4 - [#4]	SITE+4
^PS(51 - [#51]	SIG+2
^PS(55 - [#55]	CHRONIC+3, MEDDSP+8, MEDDSP+30
^PSDRUG - [#50]	MEDBLD+5, MEDBLD+8, MEDDSP+13
^PSRX - [#52]	MEDDSP+36, REF+2
^PSRX("APCC"	CHRONIC+2, MEDDSP+7
^TMP($J	CONT+6!, CONT+9, CONT+10, CONT+11, CONT+12!, CONT+20, MEDX+2!, CURR+1, CURR+3, ALL+1 , NODUP+2, NODUP+3, NODUP+4, CHRONIC+1, CHRONIC+5*, MEDDSP+2, MEDDSP+37, MEDDSP+40, NVADSP+3, NVADSP+4 , NVADSP+6

Name	Line Occurrences
@(	MEDBLD+10
CONT	MEDSCURR+1, MEDSALL+1, MEDSCHRN+1, MEDSNDUP+1
MEDBLD	CONT+13
MEDDSP	CONT+20
NVADSP	MEDDSP+3
REF	MEDDSP+16
SIG	MEDDSP+15
SITE	MEDDSP+17

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BHS11	MEDX+3!, MEDDSP+5*, MEDDSP+28
BHSALL	MEDX+1!
BHSCC	CONT+1~, CONT+20*
BHSCHR	CONT+1~, MEDBLD+9*, NODUP+2, NODUP+4
BHSCRN	MEDX+1!, MEDDSP+8*, MEDDSP+19
BHSDAT	MEDX!, MEDDSP+9, MEDDSP+19, NVADSP+2, NVADSP+8
BHSDC	MEDX!, MEDBLD+7, CURR+3, ALL+1, NODUP+4, CHRONIC+5, MEDDSP+10, MEDDSP+14, NVADSP+3*, NVADSP+5
BHSDLU	MEDX!
BHSDRG	MEDX+1!
BHSDTM	MEDX!, MEDBLD+6, CURR+2, MEDDSP+9, MEDDSP+11, NVADSP+2*
BHSDYS	MEDX!, MEDBLD+7, CURR+2, MEDDSP+10, MEDDSP+20
BHSEXP	MEDX!, MEDDSP+12, MEDDSP+14, MEDDSP+20, NVADSP+1, NVADSP+5, NVADSP+8
BHSFN	CONT+3, CONT+26, CONT+29!
BHSICL	MEDDSP+34!, NVADSP+11!
BHSIEN	MEDX!, MEDDSP+6*, MEDDSP+37, MEDDSP+40
BHSIG	MEDX!, MEDDSP+10, MEDDSP+15, MEDDSP+16, MEDDSP+34, NVADSP+6, NVADSP+11, SIG+1, SIG+2
BHSITE	MEDX+1!, MEDDSP+32, SITE+1, SITE+2, SITE+4*
BHSIVD	CONT+7, CONT+11, CONT+13, CONT+20*, MEDX!, MEDBLD+6, CURR+3, ALL+1, NODUP+2, NODUP+4 , CHRONIC+5, MEDDSP+2, MEDDSP+9, NVADSP+2, NVADSP+3, NVADSP+4, NVADSP+6
BHSMED	MEDX!, MEDDSP+13, MEDDSP+19, NVADSP+4, NVADSP+8
BHSMFX	MEDX!, MEDBLD+8, CURR+1, CURR+3, ALL+1, NODUP+2, NODUP+3, NODUP+4, CHRONIC+1, CHRONIC+5 , MEDDSP+10, MEDDSP+13, MEDDSP+22
BHSMTS	MEDX!
BHSMTY	MEDSCURR+1, MEDSALL+1, MEDSCHRN+1, MEDSNDUP+1, MEDX+1!, MEDBLD+10
BHSMX	CONT+7, CONT+8, CONT+13, MEDX!, MEDBLD+3, MEDBLD+4, MEDBLD+9, CURR+3, ALL+1, NODUP+2 , NODUP+4, CHRONIC+2, CHRONIC+5, MEDDSP+2*, MEDDSP+3, MEDDSP+4, MEDDSP+5, MEDDSP+7
BHSN	MEDX!, MEDBLD+4, MEDBLD+5, MEDBLD+7, MEDBLD+8, MEDDSP+4, MEDDSP+6, MEDDSP+10, MEDDSP+13
BHSNAB	MEDX+1!
BHSNFL	MEDX+1!
BHSNON	MEDX!
BHSNRQ	MEDDSP+34!, NVADSP+11!
BHSNSH	MEDX+1!
BHSORD	MEDX+1!, MEDX+3!, MEDDSP+24, MEDDSP+25, MEDDSP+30, MEDDSP+31
BHSP	MEDX!, MEDDSP+34!, NVADSP+11!, SIG+1*, SIG+2
BHSPAT	CONT+1~, CONT+2*, CONT+3, CONT+7, CONT+13, CHRONIC+3, MEDDSP+8
BHSQ	CONT+1~, CONT+13, CONT+20
BHSQTY	MEDX!, MEDDSP+10*, MEDDSP+19
BHSREF	MEDX+1!, MEDDSP+16, REF+1, REF+2, REF+3*
BHSRFL	MEDX+1!, REF+2*, REF+3
BHSRX	MEDX+1!, MEDDSP+7*, MEDDSP+8, MEDDSP+24, MEDDSP+36, REF+1, REF+2
BHSSGY	MEDX!, MEDDSP+15, SIG+1, SIG+3
BHST	CONT+3, CONT+26, CONT+29!
BHSTXT	MEDX+1!, MEDDSP+34, NVADSP+11
BHSVDF	MEDX!, MEDDSP+10*, SITE+2, SITE+3, SITE+4
BHSVSC	MEDX+1!
>> DFN	CONT+2, MEDDSP+30
DT	CURR+2, MEDDSP+11
DUZ(2	SITE+4
>> GMTSDLM	CONT+7, CONT+13, CONT+18
>> GMTSQIT	CONT+4, CONT+17, CONT+24, MEDDSP+18, MEDDSP+33, MEDDSP+35, MEDDSP+39, NVADSP+7, NVADSP+10
I	MEDX+3!, MEDDSP+40*
M	CONT+8*, CONT+9, CONT+10, CONT+11, MEDX+3!
NVA	MEDX+3!, MEDDSP+27~, MEDDSP+28*, MEDDSP+29, MEDDSP+30
RXNORM	MEDX+3!, MEDDSP+22*, MEDDSP+23
U	CONT+9, CONT+10, CONT+11, CONT+20, MEDBLD+5, MEDBLD+7, MEDBLD+8, MEDDSP+2, MEDDSP+3, MEDDSP+10 , MEDDSP+13, MEDDSP+28, MEDDSP+30, MEDDSP+36, MEDDSP+37, MEDDSP+40, NVADSP+3, NVADSP+4, NVADSP+6, REF+2 , SITE+2, SITE+3, SITE+4
X	CONT+10, CONT+11, MEDX+3!, CURR+2, CHRONIC+2, CHRONIC+3, MEDDSP+9, MEDDSP+14, NVADSP+2, SIG+1 , SIG+2*, SIG+3
X1	MEDX+3!, CURR+2, MEDDSP+11
X2	MEDX+3!, CURR+2, MEDDSP+11
Y	MEDX+3!, CHRONIC+3, CHRONIC+4, MEDDSP+37, MEDDSP+38, MEDDSP+40, NVADSP+5, SIG+2

Customize PDF page

Package: Health Summary Components

Routine: BHSMEDI

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: