Routine: BHSMEDH

Call Graph

Call Graph Total: 10

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
IHS VA Utilities	1	$$VALI^XBDIQ1
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

Health Summary Components

(HOLDDSP,MEDRU,NONVA,RECON)^BHSMED $$CHRONIC^BHSMEDSF DISPREF^BHSRAD PRTTXT^BHSUTL

Health Summary

REGDT4^GMTSU CKP^GMTSUP

^%DTC $$GET1^DIQ

$$VALI^XBDIQ1

$$FMTE^XLFDT

Name	Comments	DBIA/ICR reference
MEDBLD	;BUILD ARRAY OF MEDICATIONS
CONT	; <SETUP>
CTR(X,Y)	;EP - Center X in a field Y wide.
MEDSNDUP	; *********** ALL, NON DUPLICATED ***********
NODUP	;
SITE	;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
NVADSP	;
SIG	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
MEDDSP	;DISPLAY MEDICATION
CRX(D)	;
MEDX
REF	;DETERMINE THE NUMBER OF REFILLS REMAINING

External References

Name	Field # of Occurrence
^%DTC	MEDDSP+12
HOLDDSP^BHSMED	CONT+25
MEDRU^BHSMED	CONT+30
NONVA^BHSMED	CONT+14
RECON^BHSMED	MEDDSP+30, MEDDSP+36
$$CHRONIC^BHSMEDSF	MEDBLD+7
DISPREF^BHSRAD	CONT+2, CONT+28
PRTTXT^BHSUTL	MEDDSP+40, NVADSP+10
$$GET1^DIQ	MEDDSP+27, MEDDSP+29
REGDT4^GMTSU	MEDDSP+10, MEDDSP+17, NVADSP+2, NVADSP+5
CKP^GMTSUP	CONT+3, MEDDSP+21, MEDDSP+39, MEDDSP+43, NVADSP+7, NVADSP+9
$$VALI^XBDIQ1	MEDDSP+16
$$FMTE^XLFDT	CONT+10, MEDDSP+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: BHSDAT,?10,$S(BHSCRX:"CRX",1:""),?14,BHSMED Line Location: MEDDSP+22
Function Call: WRITE	Prompt: " #",BHSQTY Condition for execution: BHSQTY Line Location: MEDDSP+22
Function Call: WRITE	Prompt: " (",BHSDYS," days) " Condition for execution: BHSDYS Line Location: MEDDSP+23
Function Call: WRITE	Prompt: BHSEXP Line Location: MEDDSP+23
Function Call: WRITE	Prompt: "(expires "_APCHEXPD_")" Line Location: MEDDSP+24
Function Call: WRITE	Prompt: ! Line Location: MEDDSP+25
Function Call: WRITE	Prompt: ?14,"RxNorm: ",RXNORM,! Line Location: MEDDSP+28
Function Call: WRITE	Prompt: ?14,"Dispensed at: ",BHSITE,! Line Location: MEDDSP+37
Function Call: WRITE	Prompt: ?14,"("_BHSALT_")",! Line Location: MEDDSP+38
Function Call: WRITE	Prompt: ?16,"# times prev filled: ",Y-1 Line Location: MEDDSP+44
Function Call: WRITE	Prompt: " " Line Location: MEDDSP+44
Function Call: WRITE	Prompt: " " Line Location: MEDDSP+44
Function Call: WRITE	Prompt: ! Line Location: MEDDSP+45
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+7, MEDBLD+3, MEDBLD+4, MEDDSP+5, MEDDSP+6, MEDDSP+15
^AUPNVMED("AA"	CONT+6, CONT+12
^AUPNVMED("AC"	CONT+2
^AUPNVSIT - [#9000010]	SITE+2, SITE+3, SITE+4
^DIC(4 - [#4]	SITE+4
^PS(51 - [#51]	SIG+2
^PS(55 - [#55]	MEDDSP+9, MEDDSP+35
^PSDRUG - [#50]	MEDBLD+5, MEDBLD+7, MEDDSP+14, CRX+1, CRX+2
^PSRX - [#52]	REF+2
^PSRX("APCC"	MEDDSP+8
^TMP($J	CONT+5!, CONT+8, CONT+9, CONT+10, CONT+11!, CONT+16, CONT+18, CONT+20, CONT+22, MEDX+2! , NODUP+1, NODUP+2*, MEDDSP+2, MEDDSP+4, MEDDSP+41, MEDDSP+44, NVADSP+3, NVADSP+4, NVADSP+6

Name	Line Occurrences
$$CRX	MEDBLD+8
$$CTR	CONT+17, CONT+19, CONT+21, CONT+23
@(	MEDBLD+9
MEDBLD	CONT+12
MEDDSP	CONT+17, CONT+19, CONT+21, CONT+23
NVADSP	MEDDSP+3
REF	MEDDSP+19
SIG	MEDDSP+18
SITE	MEDDSP+20

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Health Summary Components

Routine: BHSMEDH

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: