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: BHSMEDH

Package: Health Summary Components

Routine: BHSMEDH


Information

BHSMEDH ;IHS/CIA/MGH - Encounters from PCC ;01-May-2014 11:06;DU

Source Information

Source file <BHSMEDH.m>

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  

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
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

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+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

Label References

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

Naked Globals

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
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