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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BHSMEDAL

Package: Health Summary Components

Routine: BHSMEDAL


Information

BHSMEDAL ;IHS/CIA/MGH - Health Summary for V MED file ;01-May-2014 10:14;DU

Source Information

Source file <BHSMEDAL.m>

Call Graph

Call Graph Total: 9

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  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
MEDBLD ;BUILD ARRAY OF MEDICATIONS
CONT ; <SETUP>
MEDSNDUP ; ************* ALL, NON DUPLICATED *************
MEDSCURR ; ************** CURRENT MEDICATIONS * 9000010.14 ********
ALL ;all meds included
SITE ;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
NVADSP ;
CHRONIC ;chronic meds only
MEDDSP ;DISPLAY MEDICATION
MEDSCHRN ; ************* CHRONIC MEDCICATIONS ************
NODUP ;
MEDSALL ; **************** ALL MEDICATIONS * 9000010.14 **********
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
HOLDDSP^BHSMED CONT+24
MEDRU^BHSMED CONT+29
NONVA^BHSMED CONT+15
RECON^BHSMED MEDDSP+25, MEDDSP+31
$$CHRONIC^BHSMEDSF MEDBLD+9
DISPREF^BHSRAD CONT+27
PRTTXT^BHSUTL MEDDSP+34, NVADSP+10
$$GET1^DIQ MEDDSP+22, MEDDSP+24
REGDT4^GMTSU MEDDSP+9, MEDDSP+14, NVADSP+2, NVADSP+5
CKP^GMTSUP CONT+4, CONT+17, MEDDSP+18, MEDDSP+33, MEDDSP+35, MEDDSP+39, NVADSP+7, NVADSP+9
$$FMTE^XLFDT CONT+11, CONT+18, MEDDSP+36

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"MEDICATIONS DISPENSED SINCE ",$$FMTE^XLFDT((9999999-GMTSDLM)),!
  • Line Location: CONT+18
Function Call: WRITE
  • Prompt: "(C) - Chronic Medication, (CRx) - Controlled Drug",!!
  • Line Location: CONT+19
Function Call: WRITE
  • Prompt: BHSDAT,?10,$S(BHSCRN:"(C)",1:""),?14,BHSMED
  • Line Location: MEDDSP+19
Function Call: WRITE
  • Prompt: " #",BHSQTY
  • Condition for execution: BHSQTY
  • Line Location: MEDDSP+19
Function Call: WRITE
  • Prompt: " (",BHSDYS," days) "
  • Condition for execution: BHSDYS
  • Line Location: MEDDSP+20
Function Call: WRITE
  • Prompt: BHSEXP,!
  • Line Location: MEDDSP+20
Function Call: WRITE
  • Prompt: ?14,"RxNorm: ",RXNORM,!
  • Line Location: MEDDSP+23
Function Call: WRITE
  • Prompt: ?14,"Dispensed at: ",BHSITE,!
  • Line Location: MEDDSP+32
Function Call: WRITE
  • Prompt: ?16,"Most recent issue date: ",$$FMTE^XLFDT($P(^PSRX(BHSRX,0),U,13),5),!
  • Line Location: MEDDSP+36
Function Call: WRITE
  • Prompt: ?16,"# times prev filled: ",Y-1
  • Line Location: MEDDSP+40
Function Call: WRITE
  • Prompt: " "
  • Line Location: MEDDSP+40
Function Call: WRITE
  • Prompt: " "
  • Line Location: MEDDSP+40
Function Call: WRITE
  • Prompt: !
  • Line Location: MEDDSP+41
Function Call: WRITE
  • Prompt: BHSDAT,?14,BHSMED," ",BHSEXP,!
  • Line Location: NVADSP+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVMED - [#9000010.14] CONT+8, MEDBLD+3, MEDBLD+4, MEDDSP+4, MEDDSP+5
^AUPNVMED("AA" CONT+7, CONT+13
^AUPNVMED("AC" CONT+3
^AUPNVSIT - [#9000010] SITE+2, SITE+3, SITE+4
^DIC(4 - [#4] SITE+4
^PS(51 - [#51] SIG+2
^PS(55 - [#55] CHRONIC+3, MEDDSP+8, MEDDSP+30
^PSDRUG - [#50] MEDBLD+5, MEDBLD+8, MEDDSP+13
^PSRX - [#52] MEDDSP+36, REF+2
^PSRX("APCC" CHRONIC+2, MEDDSP+7
^TMP($J CONT+6!, CONT+9*, CONT+10, CONT+11*, CONT+12!, CONT+20, MEDX+2!, CURR+1, CURR+3*, ALL+1*
, NODUP+1, NODUP+2*, CHRONIC+1, CHRONIC+5*, MEDDSP+2, MEDDSP+37, MEDDSP+40, NVADSP+3, NVADSP+4, NVADSP+6

Label References

Name Line Occurrences
@( MEDBLD+10
CONT MEDSCURR+1, MEDSALL+1, MEDSCHRN+1, MEDSNDUP+1
MEDBLD CONT+13
MEDDSP CONT+20
NVADSP MEDDSP+3
REF MEDDSP+16
SIG MEDDSP+15
SITE MEDDSP+17

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BHS11 MEDX+3!, MEDDSP+5*, MEDDSP+28
BHSALL MEDX+1!
BHSCC CONT+1~, CONT+20*
BHSCHR CONT+1~, MEDBLD+9*, NODUP+2
BHSCRN MEDX+1!, MEDDSP+8*, MEDDSP+19
BHSDAT MEDX!, MEDDSP+9*, MEDDSP+19, NVADSP+2*, NVADSP+8
BHSDC MEDX!, MEDBLD+7*, CURR+3, ALL+1, NODUP+2, CHRONIC+5, MEDDSP+10*, MEDDSP+14, NVADSP+3*, NVADSP+5
BHSDLU MEDX!
BHSDRG MEDX+1!
BHSDTM MEDX!, MEDBLD+6*, CURR+2, MEDDSP+9*, MEDDSP+11, NVADSP+2*
BHSDYS MEDX!, MEDBLD+7*, CURR+2, MEDDSP+10*, MEDDSP+20
BHSEXP MEDX!, MEDDSP+12*, MEDDSP+14*, MEDDSP+20, NVADSP+1*, NVADSP+5*, NVADSP+8
BHSFN CONT+27*, CONT+30!
BHSICL MEDDSP+34*!, NVADSP+10*!
BHSIEN MEDX!, MEDDSP+6*, MEDDSP+37, MEDDSP+40
BHSIG MEDX!, MEDDSP+10*, MEDDSP+15*, MEDDSP+16*, MEDDSP+34, NVADSP+6*, NVADSP+10, SIG+1, SIG+2
BHSITE MEDX+1!, MEDDSP+32, SITE+1*, SITE+2*, SITE+4*
BHSIVD CONT+7*, CONT+11, CONT+13*, CONT+20*, MEDX!, MEDBLD+6, CURR+3, ALL+1, NODUP+2, CHRONIC+5
, MEDDSP+2, MEDDSP+9, NVADSP+2, NVADSP+3, NVADSP+4, NVADSP+6
BHSMED MEDX!, MEDDSP+13*, MEDDSP+19, NVADSP+4*, NVADSP+8
BHSMFX MEDX!, MEDBLD+8*, CURR+1, CURR+3, ALL+1, NODUP+1, NODUP+2, CHRONIC+1, CHRONIC+5, MEDDSP+10*
, MEDDSP+13, MEDDSP+22
BHSMTS MEDX!
BHSMTY MEDSCURR+1*, MEDSALL+1*, MEDSCHRN+1*, MEDSNDUP+1*, MEDX+1!, MEDBLD+10
BHSMX CONT+7*, CONT+8, CONT+13*, MEDX!, MEDBLD+3, MEDBLD+4, MEDBLD+9, CURR+3, ALL+1, NODUP+2
, CHRONIC+2, CHRONIC+5, MEDDSP+2*, MEDDSP+3, MEDDSP+4, MEDDSP+5, MEDDSP+7
BHSN MEDX!, MEDBLD+4*, MEDBLD+5, MEDBLD+7, MEDBLD+8, MEDDSP+4*, MEDDSP+6, MEDDSP+10, MEDDSP+13
BHSNAB MEDX+1!
BHSNFL MEDX+1!
BHSNON MEDX!
BHSNRQ MEDDSP+34*!, NVADSP+10*!
BHSNSH MEDX+1!
BHSORD MEDX+1!, MEDX+3!, MEDDSP+24*, MEDDSP+25, MEDDSP+30*, MEDDSP+31
BHSP MEDX!, MEDDSP+34!, NVADSP+10!, SIG+1*, SIG+2
BHSPAT CONT+1~, CONT+2*, CONT+3, CONT+7, CONT+13, CHRONIC+3, MEDDSP+8
BHSQ CONT+1~, CONT+13*, CONT+20*
BHSQTY MEDX!, MEDDSP+10*, MEDDSP+19
BHSREF MEDX+1!, MEDDSP+16, REF+1*, REF+2*, REF+3*
BHSRFL MEDX+1!, REF+2*, REF+3
BHSRX MEDX+1!, MEDDSP+7*, MEDDSP+8, MEDDSP+24, MEDDSP+36, REF+1, REF+2
BHSSGY MEDX!, MEDDSP+15, SIG+1*, SIG+3*
BHST CONT+27*, CONT+30!
BHSTXT MEDX+1!, MEDDSP+34*, NVADSP+10*
BHSVDF MEDX!, MEDDSP+10*, SITE+2, SITE+3, SITE+4
BHSVSC MEDX+1!
>> DFN CONT+2, MEDDSP+30
DT CURR+2, MEDDSP+11
DUZ(2 SITE+4
>> GMTSDLM CONT+7, CONT+13, CONT+18
>> GMTSQIT CONT+4, CONT+17, CONT+25, MEDDSP+18, MEDDSP+33, MEDDSP+35, MEDDSP+39, NVADSP+7, NVADSP+9
I CONT+1~, MEDDSP+40*
M CONT+1~, CONT+8*, CONT+9, CONT+10, CONT+11
NVA MEDX+3!, MEDDSP+27~, MEDDSP+28*, MEDDSP+29, MEDDSP+30
RXNORM MEDX+3!, MEDDSP+22*, MEDDSP+23
U CONT+9, CONT+10, CONT+11, CONT+20, MEDBLD+5, MEDBLD+7, MEDBLD+8, MEDDSP+2, MEDDSP+3, MEDDSP+10
, MEDDSP+13, MEDDSP+28, MEDDSP+30, MEDDSP+36, MEDDSP+37, MEDDSP+40, NVADSP+3, NVADSP+4, NVADSP+6, REF+2
, SITE+2, SITE+3, SITE+4
X CONT+10*, CONT+11, MEDX+3!, CURR+2, CHRONIC+2*, CHRONIC+3, MEDDSP+9*, MEDDSP+14*, NVADSP+2*, SIG+1*
, SIG+2*, SIG+3
X1 MEDX+3!, CURR+2*, MEDDSP+11*
X2 MEDX+3!, CURR+2*, MEDDSP+11*
Y MEDX+3!, CHRONIC+3*, CHRONIC+4, MEDDSP+37*, MEDDSP+38, MEDDSP+40, NVADSP+5*, SIG+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All