Routine: BHSMEDCS

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Health Summary Components	3	(MEDRU,NONVA,RECON)^BHSMED $$CHRONIC^BHSMEDG PRTTXT^BHSUTL
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
VA Fileman	2	^%DTC $$GET1^DIQ
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

Health Summary Components

(MEDRU,NONVA,RECON)^BHSMED $$CHRONIC^BHSMEDG PRTTXT^BHSUTL

Health Summary

REGDT4^GMTSU CKP^GMTSUP

VA Fileman

^%DTC $$GET1^DIQ

IHS VA Utilities

($$VAL,$$VALI)^XBDIQ1

Kernel

$$FMTE^XLFDT

Entry Points

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
CS(D)	;
NVADSP	;
SIG	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
MEDDSP	;DISPLAY MEDICATION
MEDX
REF	;DETERMINE THE NUMBER OF REFILLS REMAINING

External References

Name	Field # of Occurrence
^%DTC	MEDDSP+11
MEDRU^BHSMED	CONT+27
NONVA^BHSMED	CONT+14
RECON^BHSMED	MEDDSP+42, MEDDSP+48
$$CHRONIC^BHSMEDG	MEDBLD+8
PRTTXT^BHSUTL	MEDDSP+31, NVADSP+10
$$GET1^DIQ	MEDDSP+26, MEDDSP+41
REGDT4^GMTSU	MEDDSP+9, MEDDSP+16, NVADSP+2, NVADSP+5
CKP^GMTSUP	CONT+2, MEDDSP+20, MEDDSP+30, MEDDSP+34, MEDDSP+37, NVADSP+7, NVADSP+9
$$VAL^XBDIQ1	CONT+11
$$VALI^XBDIQ1	MEDDSP+15
$$FMTE^XLFDT	CONT+11, MEDDSP+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: BHSDAT,?10,?14,BHSMED Line Location: MEDDSP+21
Function Call: WRITE	Prompt: " #",BHSQTY Condition for execution: BHSQTY Line Location: MEDDSP+21
Function Call: WRITE	Prompt: " (",BHSDYS," days) " Condition for execution: BHSDYS Line Location: MEDDSP+22
Function Call: WRITE	Prompt: BHSEXP Line Location: MEDDSP+22
Function Call: WRITE	Prompt: "(expires "_BHEXPD_")" Line Location: MEDDSP+23
Function Call: WRITE	Prompt: ! 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: ?14,"("_BHSALT_")",! Line Location: MEDDSP+29
Function Call: WRITE	Prompt: ?16,"Previous fill dates:",! Line Location: MEDDSP+35
Function Call: WRITE	Prompt: ! Line Location: MEDDSP+49
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+6, CONT+11, MEDBLD+3, MEDBLD+4, MEDDSP+5, MEDDSP+14
^AUPNVMED("AA"	CONT+5, CONT+13
^AUPNVMED("AC"	CONT+1
^AUPNVSIT - [#9000010]	SITE+2, SITE+3, SITE+4
^DIC(4 - [#4]	SITE+4
^PS(51 - [#51]	SIG+2
^PS(55 - [#55]	MEDDSP+8, MEDDSP+47
^PSDRUG - [#50]	CONT+7, MEDBLD+5, MEDBLD+8, MEDDSP+13, CS+1, CS+2
^PSRX - [#52]	REF+2
^PSRX("APCC"	MEDDSP+7
^TMP($J	CONT+4!, CONT+9, CONT+10, CONT+11, CONT+12!, CONT+17, CONT+19, CONT+21, CONT+23, MEDX+2! , NODUP+3, NODUP+4, NODUP+5, MEDDSP+2, MEDDSP+4, MEDDSP+32, MEDDSP+36, MEDDSP+38, MEDDSP+39, MEDDSP+40 , NVADSP+3, NVADSP+4, NVADSP+6

Name	Line Occurrences
$$CS	CONT+8, MEDBLD+6, MEDBLD+9
@(	MEDBLD+10
MEDBLD	CONT+13
MEDDSP	CONT+18, CONT+20, CONT+22, CONT+24
NVADSP	MEDDSP+3
REF	MEDDSP+18
SIG	MEDDSP+17
SITE	MEDDSP+19

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Health Summary Components

Routine: BHSMEDCS

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: