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

Package: Health Summary Components

Routine: BHSMEDCS


Information

BHSMEDCS ;IHS/MSC/MGH - Health summary V Meds controlled substances;01-May-2014 11:10;DU

Source Information

Source file <BHSMEDCS.m>

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  

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

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

Label References

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

Naked Globals

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