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 |  Caller 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: BHSMEA

Package: Health Summary Components

Routine: BHSMEA


Information

BHSMEA ;IHS/CIA/MGH - Health Summary for Measurements and immunizations ;30-Nov-2015 10:26;DU

Source Information

Source file <BHSMEA.m>

Call Graph

Call Graph Total: 20

Package Total Call Graph
Immunization Tracking 5 IMMBI^BIAPCHS  $$VER^BILOGO  (IMMFORC,IMMHX)^BIRPC  CONTRAS^BIRPC5  KILLALL^BIUTL8  
Health Summary Components 3 $$DATE^BHSMU  DISPREF^BHSRAD  ($$AICD,GETSITEV)^BHSUTL  
VA Fileman 3 ^%DT  EN^DDIOL  $$GET1^DIQ  
DRG Grouper 2 $$ICDDX^ICDCODE  $$ICDDX^ICDEX  
Health Summary 2 (REGDT4,REGDTM)^GMTSU  CKP^GMTSUP  
Kernel 2 $$FMDIFF^XLFDT  $$REPEAT^XLFSTR  
IHS Patient 1 $$DOB^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Taxonomy 1 $$ICD^ATXAPI  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Health Summary Components 1 BHSMEAIP  

Entry Points

Name Comments DBIA/ICR reference
IMMBI ;IHS/CMI/LAB - new subroutine for new imm package
MEAS ; ******************** MEASUREMENTS * 9000010.01 *******
; <SETUP>
IMMUN ; ******************** IMMUNIZATIONS * 9000010.11 *******
MEASDSP ;
PHCP(P) ;EP
PAD(D,L,C) ;EP
CONTRAS ;
HX ;
MEASDTYP
IMMDTYP
IMMUNX
IMMDSP2
IMMDSP
MEASX
WRTOUT ;Write out the vitals
IMMBI2 ;EP
IMMGSET
PREG(DFN,VIEN,VMIEN) ;Determine if BMI is for pregnant patient
BI() ;EP- check to see if using new imm package or not 1/5/1999 IHS/CMI/LAB
AGE(DFN,D,F) ;(DFN) Given DFN, return Age. ; AUPN*93.2*3
REF ;Patch 2 display refusals/contraindications

External References

Name Field # of Occurrence
^%DT HX+14
$$ICD^ATXAPI PREG+16
$$DOB^AUPNPAT AGE+3, AGE+7
$$DATE^BHSMU REF+12
DISPREF^BHSRAD REF+15
$$AICD^BHSUTL PHCP+9, PHCP+22
GETSITEV^BHSUTL IMMDSP2+4
IMMBI^BIAPCHS IMMBI2+7
$$VER^BILOGO IMMUN+3
IMMFORC^BIRPC IMMBI+7
IMMHX^BIRPC HX+3
CONTRAS^BIRPC5 CONTRAS+5
KILLALL^BIUTL8 IMMBI2+24
EN^DDIOL IMMBI+16, CONTRAS+9, HX+7
$$GET1^DIQ PREG+4, PREG+5, PREG+9, PREG+13
REGDT4^GMTSU IMMDSP2, IMMDSP2+2
REGDTM^GMTSU MEASDSP+9
CKP^GMTSUP MEAS+6, MEASDTYP+2, WRTOUT+2, IMMUN+7, REF+11, IMMDTYP, IMMDTYP+1, IMMDSP2+11, IMMBI+1, IMMBI+15
, IMMBI+22, CONTRAS+9, CONTRAS+13, CONTRAS+26, HX+7, HX+13, HX+15, IMMBI2+5, IMMBI2+17
$$ICDDX^ICDCODE PHCP+10, PHCP+23
$$ICDDX^ICDEX PHCP+9, PHCP+22
$$VAL^XBDIQ1 REF+12, PHCP+14, PHCP+27
$$FMDIFF^XLFDT AGE+7
$$REPEAT^XLFSTR PAD+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MEAS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: MEASDTYP+2
Function Call: WRITE
  • Prompt: !,BHSMT
  • Line Location: WRTOUT+5
Function Call: WRITE
  • Prompt: ?5,BHSDAT2
  • Line Location: WRTOUT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: WRTOUT+20
Function Call: WRITE
  • Prompt: ?45,T,!
  • Line Location: WRTOUT+28
Function Call: WRITE
  • Prompt: BHSITX
  • Line Location: IMMDTYP+1
Function Call: WRITE
  • Prompt: BHSITX
  • Condition for execution: GMTSNPG
  • Line Location: IMMDSP2+11
Function Call: WRITE
  • Prompt: ?(BHSITL+1),$P(^AUPNVIMM(BHSDFN,0),U,4),?15,BHSDAT,?25,$$AGE(BHSPAT,$P(+^AUPNVSIT(BHSVDF,0),"."),"P"),?34,BHSITE,?65,BHSIR,!
  • Line Location: IMMDSP2+11
Function Call: WRITE
  • Prompt: ?3,"IMMUNIZATION FORECAST:",!!
  • Line Location: IMMBI+9
Function Call: WRITE
  • Prompt: !
  • Line Location: IMMBI+16
Function Call: WRITE
  • Prompt: !
  • Line Location: CONTRAS+13
Function Call: WRITE
  • Prompt: X,!
  • Line Location: CONTRAS+26
Function Call: WRITE
  • Prompt: !?3,"IMMUNIZATION HISTORY:",!
  • Line Location: HX+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HX+13
Function Call: WRITE
  • Prompt: ?22,"Reaction: ",$P(APCHY,APCHV,6),!
  • Line Location: HX+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^AUPNVMSR - [#9000010.01] GET1^DIQ
^AUPNVPOV - [#9000010.07] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX("B" PREG+11
^AUPNPH - [#9000013] PHCP+4, PHCP+5
^AUPNPH("AC" PHCP+3
^AUPNPROB - [#9000011] PHCP+17, PHCP+18
^AUPNPROB("AC" PHCP+16
^AUPNVIMM - [#9000010.11] IMMDSP2+3, IMMDSP2+11
^AUPNVIMM("AA" IMMUN+6, IMMUN+9, IMMDTYP+2, IMMDSP
^AUPNVMSR - [#9000010.01] MEASDSP+5, MEASDSP+6, MEASDSP+7, WRTOUT+11, WRTOUT+18, WRTOUT+20, WRTOUT+21, WRTOUT+23, WRTOUT+24, IMMDSP2+1
^AUPNVMSR("AA" MEAS+4, MEAS+7, MEASDTYP+1, MEASDSP+4
^AUPNVPOV("AD" PREG+12
^AUPNVSIT - [#9000010] MEASDSP+6, IMMDSP2+11
^AUTTIMM - [#9999999.14] IMMDTYP
^AUTTIMM(0 BI+1
^AUTTMSR - [#9999999.07] MEASDTYP
^BHSARR( IMMBI2+12
^BICONT - [#9002084.81] REF+5, REF+6
^BIPC - [#9002084.11] REF+3, REF+7, REF+12
^BIPC("AC" REF+1, REF+2
^DD(9000010.11 IMMGSET
^DPT - [#2] AGE+2
^GMRD(120.52 - [#120.52] WRTOUT+27

Label References

Name Line Occurrences
$$AGE IMMDSP2+11, HX+16
$$BI IMMUN+4
$$PAD CONTRAS+20, CONTRAS+23, CONTRAS+24
$$PHCP IMMBI2+19
$$PREG WRTOUT+14
HX CONTRAS+9
IMMBI IMMUN+4
IMMBI2 IMMUN+3
IMMDSP IMMDTYP+2
IMMDSP2 IMMDSP
IMMDTYP IMMUN+9
IMMGSET IMMDSP2+5, IMMDSP2+6
MEASDSP MEASDTYP+1
MEASDTYP MEAS+7
WRTOUT MEAS+8

Naked Globals

Name Field # of Occurrence
^(0 MEASDTYP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% AGE+6~, AGE+7*, AGE+8, AGE+11*, AGE+13
%1 AGE+11~*
%DT HX+14!*
APCH31 IMMBI+5~, IMMBI+6*, IMMBI+13, IMMBI+19, CONTRAS+8, CONTRAS+12, HX+6, HX+8
APCHBIDE HX+1~, HX+3, HX+20!
APCHBIDE( HX+1*
APCHBIER IMMBI+5~, IMMBI+13*, IMMBI+15, IMMBI+16, CONTRAS+8*, CONTRAS+9, HX+6*, HX+7
APCHC CONTRAS+12~*, CONTRAS+13, CONTRAS+17
APCHCONT CONTRAS+2~*, CONTRAS+5, CONTRAS+8, CONTRAS+12
APCHI IMMBI+21~*, IMMBI+23, HX+9~, HX+11*
APCHIMM IMMBI+5~, IMMBI+6*, IMMBI+7, IMMBI+13, IMMBI+19*, IMMBI+21, HX+3, HX+6, HX+8*, HX+11
, HX+20!
APCHV HX+9~, HX+10*, HX+12, HX+13, HX+14, HX+16, HX+17, HX+20!
APCHX IMMBI+21~*, HX+9~
APCHY HX+9~, HX+11*, HX+12, HX+13, HX+14, HX+16, HX+17, HX+20!
APCHZ HX+9~, HX+10*, HX+13*, HX+20!
ARRAY MEAS+2~
ARRAY( MEASDSP+11*, WRTOUT+4, WRTOUT+6, WRTOUT+7, WRTOUT+8
BHSARR IMMBI2+6~*, IMMBI2+7
BHSARR( IMMBI2+13, IMMBI2+14, IMMBI2+17, IMMBI2+18, IMMBI2+23
BHSDAT MEASX!, MEASDSP+7*, MEASDSP+8*, MEASDSP+11, WRTOUT+1~, WRTOUT+6*, WRTOUT+7, WRTOUT+8, IMMUNX!, IMMDSP2*
, IMMDSP2+10*, IMMDSP2+11
BHSDAT2 MEASDSP+3~, MEASDSP+10*, MEASDSP+11, WRTOUT+1~, WRTOUT+8*, WRTOUT+10, IMMUNX+1!, IMMDSP2+1*, IMMDSP2+2*, IMMDSP2+10
BHSDFN MEASX!, MEASDTYP+1*, MEASDSP+4*, MEASDSP+5, MEASDSP+6, MEASDSP+7, MEASDSP+11, WRTOUT+1~, WRTOUT+7*, WRTOUT+11
, WRTOUT+14, WRTOUT+18, WRTOUT+20, WRTOUT+21, WRTOUT+23, WRTOUT+24, IMMUNX!, IMMDSP*, IMMDSP2+3, IMMDSP2+11
BHSDG HX+14~*, HX+16
BHSFN REF+15*, REF+16!
BHSIC IMMUNX+1!, IMMDSP2+6*, IMMDSP2+7, IMMDSP2+8
BHSIMC IMMUNX+1!
BHSIMR IMMUNX+1!
BHSIR IMMUNX+1!, IMMDSP2+5*, IMMDSP2+7*, IMMDSP2+8*, IMMDSP2+11
BHSITE IMMUNX+2!, IMMDSP2+4*, IMMDSP2+11
BHSITL IMMUNX!, IMMDTYP*, IMMDSP2+11
BHSITP IMMUN+9*, IMMUNX!, IMMDTYP, IMMDTYP+2, IMMDSP
BHSITX IMMUNX!, IMMDTYP*, IMMDTYP+1, IMMDSP2+11
BHSIVD MEASDTYP+1*, MEASDSP+4, MEASDSP+8, IMMUNX!, IMMDTYP+1*, IMMDTYP+2*, IMMDSP, IMMDSP2
BHSMT MEAS+7*, MEASX!, MEASDTYP, MEASDTYP+1, MEASDSP+4, WRTOUT+1~, WRTOUT+4*, WRTOUT+5, WRTOUT+6, WRTOUT+7
, WRTOUT+8, WRTOUT+13, WRTOUT+17
BHSMT2 MEASX!, MEASDTYP*, MEASDSP+11, WRTOUT+3*, WRTOUT+5*
BHSMT3 MEASX!, MEASDTYP*, MEASDTYP+2
BHSN IMMUNX+1!, IMMDSP2+3*, IMMDSP2+4, IMMDSP2+5, IMMDSP2+6
BHSNAB IMMUNX+2!
BHSND2 MEAS+7*, MEASX!, MEASDTYP+1*
BHSNFL IMMUNX+2!
BHSNSH IMMUNX+2!, IMMDSP2+4
BHSP IMMUN+1~, IMMDSP2+5, IMMDSP2+6, IMMGSET+2*
BHSPAT MEAS+2~, MEAS+3*, MEAS+4, MEAS+7, MEASDTYP+1, MEASDSP+4, IMMUN+1~, IMMUN+2*, IMMUN+6, IMMUN+9
, REF+1, REF+2, IMMDTYP+2, IMMDSP, IMMDSP2+1, IMMDSP2+11, IMMBI+7, CONTRAS+5, HX+3, HX+16
, IMMBI2+7, IMMBI2+19
BHSQ MEAS+7*, IMMUN+1~, IMMUN+9*, IMMDTYP+2*, IMMDSP*, IMMGSET+2*
BHSS REF+16!
BHST REF+15*, REF+16!
BHSVDF IMMUNX!, IMMDSP2+4*, IMMDSP2+11
BHSVSC IMMUNX+2!
BHSX WRTOUT+1~, WRTOUT+23*, WRTOUT+24
BHX REF+2*, REF+3, REF+7, REF+12, IMMUNX!
BHY REF+1*, REF+2, IMMUNX!
C WRTOUT+21*, WRTOUT+22, PAD~, PAD+11*, PAD+12
CODE PREG+1~, PREG+13*, PREG+14, PREG+16
D WRTOUT+21*, WRTOUT+25*, WRTOUT+28*, REF+7*, REF+8, REF+9*, REF+10, IMMUNX!, AGE~, AGE+4*
, AGE+7, PAD~, PAD+9, PAD+10, PAD+12
DATA MEASDSP+3~, WRTOUT+11*, WRTOUT+12*, WRTOUT+15*, WRTOUT+16
DFN MEAS+3, WRTOUT+14, PREG~, PREG+4, PREG+5, IMMUN+2, AGE~, AGE+1, AGE+2, AGE+3
, AGE+7
DOB PREG+1~
DT AGE+4
F AGE~, AGE+5*, AGE+8, IMMBI2+10~, IMMBI2+11*, IMMBI2+14*, IMMBI2+19
G PHCP+2~, PHCP+3*, PHCP+12*, PHCP+14, PHCP+16, PHCP+25*, PHCP+27
>> GMTSDLM MEASDTYP+1, REF+10
>> GMTSNDM MEAS+7
>> GMTSNPG IMMDSP2+11
>> GMTSQIT MEAS+6, MEAS+7, MEASDTYP+2, WRTOUT+2, IMMUN+7, REF+11, IMMDTYP, IMMDTYP+1, IMMDSP2+11, IMMBI+1
, IMMBI+15, IMMBI+21, IMMBI+22, CONTRAS+9, CONTRAS+13, CONTRAS+26, HX+7, HX+11, HX+13, HX+15
, IMMBI2+5, IMMBI2+17
I WRTOUT+1~, CONTRAS+17*, CONTRAS+20, HX+1~*, PHCP+2~, PHCP+5*, PHCP+6, PHCP+9*, PHCP+10*, PHCP+11
, PHCP+14, PHCP+18*, PHCP+19, PHCP+22*, PHCP+23*, PHCP+24, PHCP+27
L PAD~, PAD+10*, PAD+12
N IMMBI2+10~, IMMBI2+11*, IMMBI2+12*, IMMBI2+13, IMMBI2+14, IMMBI2+16*, IMMBI2+17*, IMMBI2+18, IMMBI2+23
P PHCP~, PHCP+3, PHCP+16
PO2 WRTOUT+1~, WRTOUT+18*, WRTOUT+19
POV PREG+1~, PREG+12*, PREG+13
PREG WRTOUT+1~, WRTOUT+14*, WRTOUT+15
R REF+3*, REF+4, REF+5, REF+6, IMMUNX!
RET PREG+1~, PREG+2*, PREG+4, PREG+6, PREG+10, PREG+12, PREG+16*, PREG+17
T MEASDSP+3~, WRTOUT+23*, WRTOUT+26*, WRTOUT+27*, WRTOUT+28*, WRTOUT+29
TAGE PREG+1~, PREG+5*, PREG+6
TAX PREG+1~, PREG+11*, PREG+16
U MEASDTYP, MEASDSP+5, MEASDSP+6, MEASDSP+7, WRTOUT+7, WRTOUT+8, WRTOUT+11, WRTOUT+18, WRTOUT+24, WRTOUT+27
, REF+3, REF+6, REF+7, REF+12, IMMDTYP, IMMDSP2+1, IMMDSP2+4, IMMDSP2+5, IMMDSP2+6, IMMDSP2+11
, IMMGSET, CONTRAS+17, HX+11, PHCP+5, PHCP+9, PHCP+10, PHCP+18, PHCP+22, PHCP+23
V MEASDSP+3~, MEASDSP+6*, CONTRAS+19~*, CONTRAS+23, CONTRAS+24
VIEN PREG~, PREG+3*, PREG+8, PREG+9*, PREG+10, PREG+12
VMIEN PREG~, PREG+3*, PREG+9
X MEASDSP+7*, MEASDSP+8*, MEASDSP+10, WRTOUT+21*, IMMDSP2*, IMMDSP2+2*, IMMDSP2+5*, IMMDSP2+6*, IMMGSET+1, IMMGSET+2
, CONTRAS+19*, CONTRAS+20*, CONTRAS+23*, CONTRAS+24*, CONTRAS+26, HX+14~*, IMMBI2+19*, IMMBI2+22, PHCP+2~, PHCP+3*
, PHCP+4, PHCP+5, PHCP+12, PHCP+16*, PHCP+17, PHCP+18, PHCP+25
X1 PREG+1~
Y MEAS+2~, WRTOUT+24*, WRTOUT+27, IMMUN+1~, IMMDSP2+5*, IMMDSP2+6*, IMMGSET*, IMMGSET+1*, IMMGSET+2, CONTRAS+17*
, CONTRAS+23, CONTRAS+24, HX+14, PHCP+2~
Z PHCP+2~
Info |  Source |  Call Graph |  Caller 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