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. ; AUPN93.23
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

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

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

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~

Customize PDF page

Package: Health Summary Components

Routine: BHSMEA

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: