Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BHSMSUP

Package: Health Summary Components

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

External References

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

Naked Globals

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!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All