Routine: BHSMSUP

Information

BHSMSUP ;IHS/CIA/MGH - Health Summary for Medication Supplements ;17-Mar-2006 10:36;MGH

Source Information

Source file <BHSMSUP.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	($$FMADD,$$FMDIFF)^XLFDT
VA Fileman	1	(,C)^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
CLN	;GET CLINIC FOR V MEDICATION
DC(V)	;is this d/c'ed
PRTTXT	; GENERALIZED TEXT PRINTER
EOJ	;
PROV	;GET THE PROVIDER FOR ORIGINAL RX OR REFILL
EP2	;PEP - PASS DFN get back array of patient care summary
SITE	;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
GETFRAG
WRITE	;
MEDDSP	;
CHRONIC(N)	;
SIG	;
WR	;write out array
GETMEDS	;
SETARRAY	;set up array containing dm care summary
W(Y,F,C,T)	;set up array
MEDDSP1	;
REF	;
EP	;EP - called from component
DATE(D)	;EP
PRTTXT2

Name	Field # of Occurrence
^%DTC	MEDDSP1+14
C^%DTC	MEDDSP1+16
REGDT4^GMTSU	MEDDSP1+20, MEDDSP1+21
CKP^GMTSUP	EP+5, GETMEDS+38, WRITE+4
$$VAL^XBDIQ1	PROV+2, CLN+1
$$FMADD^XLFDT	GETMEDS+2, GETMEDS+33, GETMEDS+36, MEDDSP+5
$$FMDIFF^XLFDT	GETMEDS+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"DISPENSE UNTIL NEXT SCHEDULED EVALUATION: ________",!!,"SIGNATURE: ________________________________ DATE: ________________",! Line Location: GETMEDS+41
Function Call: WRITE	Prompt: !,X Line Location: W+5
Function Call: WRITE	Prompt: !,X Line Location: W+7
Function Call: WRITE	Prompt: !,X Line Location: W+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMED - [#9000010.14]	GETMEDS+7, MEDDSP1+1, MEDDSP1+19, DC+1, DC+2, CHRONIC+2, CHRONIC+4
^AUPNVMED("AA"	GETMEDS+5, GETMEDS+6
^AUPNVMED("AC"	EP+4, GETMEDS+4
^AUPNVSIT - [#9000010]	MEDDSP1+26, SITE+2, SITE+3, SITE+4
^DIC(4 - [#4]	SITE+4
^PS(51 - [#51]	SIG+4
^PS(55 - [#55]	CHRONIC+6
^PSDRUG - [#50]	GETMEDS+9, GETMEDS+13, MEDDSP1+9, MEDDSP1+17
^PSRX - [#52]	DC+6, REF+3, PROV+3
^PSRX("APCC"	MEDDSP1+2, MEDDSP1+4, DC+4, CHRONIC+5
^TMP($J	EP2+2!, EP2+3!, EP2+4!, EP2+5!, GETMEDS+15, GETMEDS+16, GETMEDS+17, GETMEDS+19, GETMEDS+20, GETMEDS+22 , GETMEDS+23, GETMEDS+25, GETMEDS+27, GETMEDS+28!, GETMEDS+29, GETMEDS+30!, GETMEDS+31, GETMEDS+34, GETMEDS+42!, GETMEDS+43! , GETMEDS+44!, GETMEDS+45!, MEDDSP+2, MEDDSP+6, MEDDSP+7, MEDDSP+8, MEDDSP+9, WRITE+13, WRITE+15
^VA(200 - [#200]	PROV+4

Label References

Name	Line Occurrences
$$CHRONIC	GETMEDS+18
$$DATE	GETMEDS+17, MEDDSP1+16, WRITE+6
$$DC	GETMEDS+28, GETMEDS+30
CLN	MEDDSP1+28
EOJ	WR+5
EP2	WR+3
GETFRAG	PRTTXT2
GETMEDS	SETARRAY+1
MEDDSP	GETMEDS+39, GETMEDS+40
MEDDSP1	MEDDSP+9
PROV	MEDDSP1+27
PRTTXT	WRITE+8
PRTTXT2	PRTTXT+2
REF	MEDDSP1+24
SETARRAY	EP2+6
SIG	MEDDSP1+23
SITE	MEDDSP1+29
W	MEDDSP+3, MEDDSP+4, WRITE+6, WRITE+7, WRITE+11, WRITE+16, WRITE+17, WRITE+19, WRITE+20, WRITE+21 , PRTTXT2
WRITE	MEDDSP1+30

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	W+3~, W+8, W+9
A	EOJ+3!
B	EOJ+3!
BHSBEG	EOJ+1!
BHSCLN	EOJ+1!, WRITE+7, CLN+1*
BHSCRN	EOJ+1!, GETMEDS+39!, GETMEDS+40*
BHSDATM	EOJ+1!, GETMEDS+10*, GETMEDS+21
BHSDC	EOJ+1!, GETMEDS+11, MEDDSP1+7, MEDDSP1+20, MEDDSP1+21
BHSDIEN	EOJ+1!, GETMEDS+14, GETMEDS+15, GETMEDS+16, GETMEDS+17, GETMEDS+19, GETMEDS+20, GETMEDS+22, GETMEDS+23, MEDDSP+8 , MEDDSP+9, MEDDSP1+13*, MEDDSP1+17, WRITE+13, WRITE+15
BHSDLM	EOJ+1!
BHSDOO	EOJ+1!, PRTTXT+3!
BHSDTM	EOJ+1!, MEDDSP1+5*, MEDDSP1+14, MEDDSP1+16, WRITE+6
BHSDYS	EOJ+1!, GETMEDS+12, GETMEDS+21, MEDDSP1+8, MEDDSP1+16, WRITE+7
BHSED	EOJ+1!
BHSEXP	EOJ+1!, MEDDSP1+15, MEDDSP1+16, MEDDSP1+20, MEDDSP1+21, WRITE+6
BHSICL	EOJ+2!, WRITE+8!, PRTTXT+1, PRTTXT2
BHSIG	EOJ+2!, MEDDSP1+11, MEDDSP1+23, WRITE+8, SIG+3, SIG+4
BHSIPRV	EOJ+1!, PROV+3*, PROV+4
BHSITE	EOJ+2!, MEDDSP1+26, WRITE+11, SITE+1, SITE+2, SITE+4
BHSIVD	EOJ+2!, GETMEDS+5, GETMEDS+6, GETMEDS+10, GETMEDS+17, GETMEDS+20, GETMEDS+23, MEDDSP+6, MEDDSP+7, MEDDSP+8 , MEDDSP+9, MEDDSP1+5
BHSM0	EOJ+2!, GETMEDS+7, GETMEDS+8, GETMEDS+9, GETMEDS+11, GETMEDS+12, GETMEDS+13, GETMEDS+14, MEDDSP1+1, MEDDSP1+7 , MEDDSP1+8, MEDDSP1+9, MEDDSP1+10, MEDDSP1+11, MEDDSP1+12, MEDDSP1+13
BHSMIEN	EOJ+1!, GETMEDS+6, GETMEDS+7, GETMEDS+18, GETMEDS+20, GETMEDS+23, MEDDSP+9, MEDDSP1+1, MEDDSP1+2, MEDDSP1+4 , MEDDSP1+19, PROV+2
BHSNAM	EOJ+2!, GETMEDS+13, GETMEDS+15, GETMEDS+16, GETMEDS+17, GETMEDS+19, GETMEDS+20, GETMEDS+22, GETMEDS+23, MEDDSP+7 , MEDDSP+8, MEDDSP+9, MEDDSP1+9*, WRITE+6, WRITE+13, WRITE+15
BHSNARC	EOJ+1!, MEDDSP1+17*, WRITE+19, WRITE+20
BHSNRQ	EOJ+2!, WRITE+8!, PRTTXT+2
BHSP	EOJ+2!, WRITE+8!, SIG+3*, SIG+4
BHSPAGE	WR+2*, EOJ+1!
BHSPAT	EP+1~, EP+2*, EP+3, EP+4, GETMEDS+4, GETMEDS+5, GETMEDS+6
BHSPROV	EOJ+1!, WRITE+7, PROV+1, PROV+2, PROV+4*
BHSQTY	EOJ+2!, MEDDSP1+10*, WRITE+7
BHSQUIT	WR+1!, WR+2*, WR+4, EOJ+1!, GETMEDS+41, MEDDSP+6, MEDDSP+7, MEDDSP+8, WRITE+1, WRITE+5
BHSREF	EOJ+2!, MEDDSP1+25, WRITE+17, REF+2, REF+3, REF+4
BHSRFL	EOJ+2!, REF+3*, REF+4
BHSRTN	EOJ+1!, MEDDSP1+19*, MEDDSP1+20, MEDDSP1+21, MEDDSP1+22!
BHSRX	EOJ+2!, MEDDSP1+2*, MEDDSP1+4, REF+2, REF+3, PROV+2, PROV+3
BHSRXRF	EOJ+2!, MEDDSP1+3, MEDDSP1+4, PROV+3
BHSSGY	EOJ+2!, MEDDSP1+23, SIG+3, SIG+5
BHSTC	EOJ+2!, PRTTXT+3!, GETFRAG+1*, GETFRAG+2
BHSTDLT	PRTTXT+1, PRTTXT+3!, PRTTXT2
BHSTEX	EOJ+2!
BHSTF	PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+2
BHSTILN	EOJ+2!, PRTTXT+1, PRTTXT+3!, PRTTXT2, GETFRAG, GETFRAG+1
BHSTOB	EOJ+2!
BHSTOBN	EOJ+2!
BHSTOP	EOJ+2!, MEDDSP+5*, MEDDSP+6
BHSTQ	EOJ+2!, PRTTXT+2*
BHSTXRF	EOJ+1!
BHSTXT	EOJ+2!, WRITE+8, PRTTXT+2, PRTTXT+3!, GETFRAG, GETFRAG+1, GETFRAG+2
BHSTYPE	EOJ+2!, GETMEDS+39, GETMEDS+40, MEDDSP+2, MEDDSP+3, MEDDSP+4, MEDDSP+6, MEDDSP+7, MEDDSP+8, MEDDSP+9
BHSUPI	EOJ+2!
BHSVIEN	EOJ+2!, MEDDSP1+12*, MEDDSP1+26, SITE+2, SITE+3, SITE+4, CLN+1
BHSX	EOJ+2!
BHSXRX	EOJ+2!, MEDDSP1+2*
BHSY	EOJ+2!
C	EOJ+3!, GETMEDS+31, GETMEDS+32, GETMEDS+33*, GETMEDS+37, W~, W+7
D	EOJ+3!, GETMEDS+27, GETMEDS+28, GETMEDS+29, GETMEDS+30, DATE~, DATE+1, DATE+2
>> DFN	EP+2
DIR	EOJ+3!
DT	GETMEDS+2, GETMEDS+21, GETMEDS+33, GETMEDS+36, MEDDSP+5, MEDDSP1+14
DUZ(2	SITE+4
E	EOJ+3!
F	EOJ+3!, W~, W+1, W+5
G	EOJ+3!
>> GMTSDLM	GETMEDS+2, GETMEDS+3, GETMEDS+5
>> GMTSQIT	EP+5, WR+4*, GETMEDS+38, WRITE+4
H	EOJ+3!
I	EOJ+3!, GETMEDS+27, GETMEDS+28, GETMEDS+29, GETMEDS+30, WRITE+15*
IOSL	WRITE+1
J	EOJ+3!
K	EOJ+3!
L	EOJ+3!, W+7*
M	EOJ+3!, GETMEDS+28, GETMEDS+30
N	EOJ+3!, GETMEDS+27, GETMEDS+28, GETMEDS+29, GETMEDS+30, DC+4, CHRONIC~, CHRONIC+1, CHRONIC+2, CHRONIC+4 , CHRONIC+5
O	EOJ+3!
P	EOJ+3!, DC+3~, DC+4, DC+5, DC+6, CHRONIC+3~, CHRONIC+4, CHRONIC+6
Q	EOJ+3!
R	EOJ+3!, GETMEDS+34, GETMEDS+35, GETMEDS+36*, GETMEDS+37
S	EOJ+3!, DC+3~
T	EOJ+3!, W~, W+2, W+7, W+8, W+9
U	GETMEDS+8, GETMEDS+9, GETMEDS+11, GETMEDS+12, GETMEDS+13, GETMEDS+14, GETMEDS+15, GETMEDS+16, GETMEDS+17, MEDDSP1+7 , MEDDSP1+8, MEDDSP1+9, MEDDSP1+10, MEDDSP1+11, MEDDSP1+12, MEDDSP1+17, MEDDSP1+19, MEDDSP1+26, DC+2, DC+6 , WRITE+13, WRITE+15, SITE+2, SITE+3, SITE+4, REF+3, CHRONIC+4
V	EOJ+3!, DC~, DC+1, DC+2
W	EOJ+3!
X	EOJ+3!, GETMEDS+16, GETMEDS+17, GETMEDS+21, GETMEDS+31, GETMEDS+32, GETMEDS+33, GETMEDS+34, GETMEDS+35, GETMEDS+36 , MEDDSP+1, MEDDSP+3, MEDDSP+4, MEDDSP1+16, MEDDSP1+20, MEDDSP1+21, DC+6, DC+7, DC+8, DC+9 , DC+10, WRITE+6, WRITE+7, WRITE+11, WRITE+12, WRITE+14, WRITE+15, WRITE+16, WRITE+17, WRITE+18 , WRITE+19, WRITE+20, WRITE+21, SIG+3, SIG+4, SIG+5, CHRONIC+3~, CHRONIC+5, CHRONIC+6, W+3~ , W+5, W+6, W+7, W+8, W+9, W+10, PRTTXT2*
X1	EOJ+3!, MEDDSP1+14, MEDDSP1+16
X2	EOJ+3!, MEDDSP1+14, MEDDSP1+16
Y	EOJ+3!, MEDDSP1+5, WRITE+13, WRITE+14, SIG+4, CHRONIC+3~, CHRONIC+6, CHRONIC+7, W~, W+6 , W+7, W+9
Z	EOJ+3!

Customize PDF page

Package: Health Summary Components

Routine: BHSMSUP

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: