Routine: BHSMBN

Information

BHSMBN ;IHS/CIA/MGH - Health Summary for V MED file ;01-May-2014 11:09;DU

Source Information

Source file <BHSMBN.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Health Summary Components	3	(HOLDDSP,MEDRU,NONVA,RECON)^BHSMED DISPREF^BHSRAD PRTTXT^BHSUTL
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
VA Fileman	2	(,C)^%DTC $$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
MEDBLD	;BUILD ARRAY OF MEDICATIONS
CONT	; <SETUP>
MEDSNDUP	; *********** ALL, NON DUPLICATED ***********
MEDSCURR	; ************** CURRENT MEDICATIONS * 9000010.14 ********
SITE	;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
NVADSP	;
CHRONIC	;chronic meds only
MEDSCHRN	; *********** CHRONIC MEDCICATIONS **********
MEDDSP	;DISPLAY MEDICATION
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
C^%DTC	MEDDSP+13
HOLDDSP^BHSMED	CONT+11
MEDRU^BHSMED	CONT+15
NONVA^BHSMED	CONT+9
RECON^BHSMED	MEDDSP+32, MEDDSP+38
DISPREF^BHSRAD	CONT+13
PRTTXT^BHSUTL	MEDDSP+30, NVADSP+10
$$GET1^DIQ	MEDDSP+26, MEDDSP+31
REGDT4^GMTSU	MEDDSP+8, MEDDSP+13, MEDDSP+15, NVADSP+2, NVADSP+5
CKP^GMTSUP	CONT+4, MEDDSP+23, MEDDSP+29, NVADSP+7, NVADSP+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: BHSDAT,?10,$S(BHSCRN:"(C)",1:""),?14,BHSMED," #",BHSQTY," (",BHSDYS," days) ",BHSEXP,! Line Location: MEDDSP+24
Function Call: WRITE	Prompt: ?14,"RxNorm: ",RXNORM,! Line Location: MEDDSP+27
Function Call: WRITE	Prompt: ?14,"Dispensed at: ",BHSITE,! Line Location: MEDDSP+28
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]	MEDBLD+3, MEDBLD+4, CURR+3, CHRONIC+6, MEDDSP+3, MEDDSP+4, MEDDSP+17
^AUPNVMED("AA"	CONT+7
^AUPNVMED("AC"	CONT+3
^AUPNVSIT - [#9000010]	MEDDSP+5, SITE+2, SITE+3, SITE+4
^DIC(4 - [#4]	SITE+4
^PS(51 - [#51]	SIG+3
^PS(55 - [#55]	CHRONIC+3, MEDDSP+7, MEDDSP+37
^PSDRUG - [#50]	MEDBLD+5, CURR+4, CHRONIC+7, MEDDSP+14
^PSRX - [#52]	REF+2
^PSRX("APCC"	CHRONIC+2, MEDDSP+6
^TMP($J	CONT+6!, CONT+10, MEDX+2!, CURR+1, CURR+5, CHRONIC+1, CHRONIC+8, MEDDSP+2, NVADSP+3, NVADSP+4 , NVADSP+6

Name	Line Occurrences
@(	MEDBLD+9
CONT	MEDSCURR+1, MEDSCHRN+1, MEDSNDUP+1
MEDBLD	CONT+7
MEDDSP	CONT+10
NVADSP	MEDDSP+2
REF	MEDDSP+21
SIG	MEDDSP+20
SITE	MEDDSP+22

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Health Summary Components

Routine: BHSMBN

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: