Routine: APCHS2

Package	Total	Call Graph
Immunization Tracking	5	IMMBI^BIAPCHS $$VER^BILOGO (IMMFORC,IMMHX)^BIRPC CONTRAS^BIRPC5 KILLALL^BIUTL8
Patient Care Component	5	$$BI^APCHS11C DISPREF^APCHS3C WP^APCHS82 $$DATE^APCHSMU GETSITEV^APCHSUTL
Kernel	2	$$FMDIFF^XLFDT ($$REPEAT,$$STRIP)^XLFSTR
VA Fileman	2	^%DT EN^DDIOL
DRG Grouper	1	$$ICDDX^ICDEX
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1

Package

Total

Call Graph

Immunization Tracking

IMMBI^BIAPCHS $$VER^BILOGO (IMMFORC,IMMHX)^BIRPC CONTRAS^BIRPC5 KILLALL^BIUTL8

Patient Care Component

$$BI^APCHS11C DISPREF^APCHS3C WP^APCHS82 $$DATE^APCHSMU GETSITEV^APCHSUTL

Kernel

$$FMDIFF^XLFDT ($$REPEAT,$$STRIP)^XLFSTR

^%DT EN^DDIOL

$$ICDDX^ICDEX

$$DOB^AUPNPAT

$$VAL^XBDIQ1

Package	Total	Caller Graph
Patient Care Component	1	APCHS11C

Package

Total

Caller Graph

Patient Care Component

APCHS11C

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
MEASDTYP
IMMDTYP
IMMUNX
IMMDSP2
IMMDSP
MEASX
CONTRAS	;
IMMBI2	;EP
IMMGSET
HX	;
AGE(DFN,D,F)	;(DFN) Given DFN, return Age. ; AUPN93.23
REF	; display refusals/contraindications from imm package and from PCC

External References

Name	Field # of Occurrence
^%DT	HX+14
$$BI^APCHS11C	IMMUN+2
DISPREF^APCHS3C	REF+15
WP^APCHS82	MEASDSP+19
$$DATE^APCHSMU	REF+12
GETSITEV^APCHSUTL	IMMDSP2+2
$$DOB^AUPNPAT	AGE+3, AGE+7
IMMBI^BIAPCHS	IMMBI2+7
$$VER^BILOGO	IMMUN+1
IMMFORC^BIRPC	IMMBI+7
IMMHX^BIRPC	HX+3
CONTRAS^BIRPC5	CONTRAS+5
KILLALL^BIUTL8	IMMBI2+22
EN^DDIOL	IMMBI+16, CONTRAS+9, HX+7
$$ICDDX^ICDEX	PHCP+7
$$VAL^XBDIQ1	MEASDSP+7, MEASDSP+8, MEASDSP+11, REF+12, PHCP+11, PHCP+21
$$FMDIFF^XLFDT	AGE+7
$$REPEAT^XLFSTR	PAD+12
$$STRIP^XLFSTR	MEASDSP+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MEAS+5
Function Call: WRITE	Prompt: ! Line Location: MEASDTYP+2
Function Call: WRITE	Prompt: ! Line Location: MEASDSP+14
Function Call: WRITE	Prompt: ! Line Location: MEASDSP+23
Function Call: WRITE	Prompt: APCHSITX Condition for execution: APCHSNPG Line Location: IMMDSP2+8
Function Call: WRITE	Prompt: ?(APCHSITL+1),$P(^AUPNVIMM(APCHSDFN,0),U,4),?15,APCHSDAT,?25,$$AGE(APCHSPAT,$P(+^AUPNVSIT(APCHSVDF,0),"."),"P"),?34,APCHSITE,?65,APCHSIR,! Line Location: IMMDSP2+8
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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPH - [#9000013]	PHCP+4, PHCP+5, PHCP+14, PHCP+15
^AUPNPH("AC"	PHCP+3, PHCP+13
^AUPNVIMM - [#9000010.11]	IMMDSP2+1, IMMDSP2+8
^AUPNVIMM("AA"	IMMUN+4, IMMUN+7, IMMDTYP, IMMDSP
^AUPNVMSR - [#9000010.01]	MEASDSP+1, MEASDSP+2, MEASDSP+12, MEASDSP+13, MEASDSP+14, MEASDSP+15, MEASDSP+17
^AUPNVMSR("AA"	MEAS+2, MEAS+6, MEASDTYP+1, MEASDSP
^AUPNVSIT - [#9000010]	MEASDSP+2, IMMDSP2+8
^AUTTIMM - [#9999999.14]	IMMDTYP
^AUTTMSR - [#9999999.07]	MEASDTYP
^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]	MEASDSP+17
^ICD9 - [#80]	PHCP+17

Label References

Name	Line Occurrences
$$AGE	IMMDSP2+8, HX+16
$$PAD	CONTRAS+20, CONTRAS+23, CONTRAS+24
$$PHCP	IMMBI2+17
HX	CONTRAS+9
IMMBI	IMMUN+2
IMMBI2	IMMUN+1
IMMDSP	IMMDTYP
IMMDSP2	IMMDSP
IMMDTYP	IMMUN+7
IMMGSET	IMMDSP2+3, IMMDSP2+4
MEASDSP	MEASDTYP+1
MEASDTYP	MEAS+6
REF	IMMUN+1, IMMUN+2

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!
APCHSARR	IMMBI2+6~*, IMMBI2+7
APCHSARR(	IMMBI2+10, IMMBI2+11, IMMBI2+12, IMMBI2+15, IMMBI2+16, IMMBI2+21
>> APCHSBRK	MEAS+3, IMMUN+5, IMMBI+1, IMMBI2+5
>> APCHSCKP	MEAS+5, MEASDTYP+2, MEASDSP+3, MEASDSP+21, IMMUN+5, REF+11, IMMDTYP, IMMDSP2+8, IMMBI+1, IMMBI+15 , IMMBI+22, CONTRAS+9, CONTRAS+13, CONTRAS+26, HX+7, HX+13, HX+15, IMMBI2+5, IMMBI2+15
>> APCHSCVD	MEASDSP+3, IMMDSP2
APCHSDAT	MEASX!, MEASDSP+3, MEASDSP+10, IMMUNX!, IMMDSP2, IMMDSP2+8
APCHSDFN	MEASX!, MEASDTYP+1, MEASDSP, MEASDSP+1, MEASDSP+2, MEASDSP+7, MEASDSP+8, MEASDSP+11, MEASDSP+12, MEASDSP+13 , MEASDSP+14, MEASDSP+15, MEASDSP+17, IMMUNX!, IMMDSP*, IMMDSP2+1, IMMDSP2+8
APCHSDG	HX+14~*, HX+16
>> APCHSDLM	MEASDTYP+1, REF+10
APCHSFN	REF+15*, REF+16!
APCHSIC	IMMUNX+1!, IMMDSP2+4*, IMMDSP2+5, IMMDSP2+6
APCHSIMC	IMMUNX+1!
APCHSIMR	IMMUNX+1!
APCHSIR	IMMUNX+1!, IMMDSP2+3, IMMDSP2+5, IMMDSP2+6*, IMMDSP2+8
APCHSITE	IMMUNX+2!, IMMDSP2+2*, IMMDSP2+8
APCHSITL	IMMUNX!, IMMDTYP*, IMMDSP2+8
APCHSITP	IMMUN+7*, IMMUNX!, IMMDTYP, IMMDSP
APCHSITX	IMMUNX!, IMMDTYP*, IMMDSP2+8
APCHSIVD	MEASDTYP+1, MEASDSP, MEASDSP+3, IMMUNX!, IMMDTYP, IMMDSP, IMMDSP2
APCHSMT	MEAS+6*, MEASX!, MEASDTYP, MEASDTYP+1, MEASDSP
APCHSMT2	MEASX!, MEASDTYP*, MEASDSP+4
APCHSMT3	MEASX!, MEASDTYP, MEASDTYP+2, MEASDSP+4
APCHSN	IMMUNX+1!, IMMDSP2+1*, IMMDSP2+2, IMMDSP2+3, IMMDSP2+4
APCHSNAB	IMMUNX+2!
APCHSND2	MEAS+6, MEASX!, MEASDTYP+1
>> APCHSNDM	MEAS+6
APCHSNFL	IMMUNX+2!
>> APCHSNPG	MEASDSP+4, IMMUN+5, IMMDSP2+8, IMMBI+1, IMMBI2+5
APCHSNSH	IMMUNX+2!, IMMDSP2+2
>> APCHSP	IMMDSP2+3, IMMDSP2+4, IMMGSET+2*
>> APCHSPAT	MEAS+2, MEAS+6, MEASDTYP+1, MEASDSP, IMMUN+4, IMMUN+7, REF+1, REF+2, IMMDTYP, IMMDSP , IMMDSP2+8, IMMBI+7, CONTRAS+5, HX+3, HX+16, IMMBI2+7, IMMBI2+17
>> APCHSQ	MEAS+6, IMMUN+7, IMMDTYP, IMMDSP, IMMGSET+2*
>> APCHSQIT	MEAS+5, MEAS+6, MEASDTYP+2, MEASDSP+3, MEASDSP+20, MEASDSP+21, IMMUN+5, REF+11, IMMDTYP, IMMDSP2+8 , 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+15
APCHSS	REF+16!
APCHST	REF+15*, REF+16!
APCHSVDF	IMMUNX!, IMMDSP2+2*, IMMDSP2+8
APCHSVSC	IMMUNX+2!
>> APCHSX	MEASDSP+17*
APCHV	HX+9~, HX+10*, HX+12, HX+13, HX+14, HX+16, HX+17, HX+20!
APCHWP	MEASDSP+18!
APCHWP(	MEASDSP+20, MEASDSP+24
APCHX	MEASDSP+20, MEASDSP+24, REF+2, REF+3, REF+7, REF+12, IMMBI+21~*, HX+9~
APCHY	REF+1, REF+2, 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!
C	MEASDSP+15, MEASDSP+16, MEASDSP+20, MEASDSP+22, MEASDSP+23, PAD~, PAD+11, PAD+12
D	REF+7, REF+8, REF+9, REF+10, AGE~, AGE+4*, AGE+7, PAD~, PAD+9, PAD+10 , PAD+12
DFN	AGE~, AGE+1, AGE+2, AGE+3, AGE+7
DT	AGE+4
F	AGE~, AGE+5, AGE+8, IMMBI2+9~, IMMBI2+10~, IMMBI2+12, IMMBI2+17
G	PHCP+2~, PHCP+3, PHCP+9, PHCP+11, PHCP+13, PHCP+19*, PHCP+21
I	CONTRAS+17, CONTRAS+20, HX+1~, PHCP+2~, PHCP+5, PHCP+6, PHCP+7, PHCP+8, PHCP+11, PHCP+15* , PHCP+16, PHCP+17*, PHCP+18, PHCP+21
L	PAD~, PAD+10*, PAD+12
N	IMMBI2+9~, IMMBI2+10, IMMBI2+11, IMMBI2+12, IMMBI2+14, IMMBI2+15, IMMBI2+16, IMMBI2+21
P	PHCP~, PHCP+3, PHCP+13
>> R	REF+3*, REF+4, REF+5, REF+6
U	MEASDTYP, MEASDSP+1, MEASDSP+2, MEASDSP+12, MEASDSP+13, MEASDSP+17, REF+3, REF+6, REF+7, REF+12 , IMMDTYP, IMMDSP2+2, IMMDSP2+3, IMMDSP2+4, IMMDSP2+8, IMMGSET, CONTRAS+17, HX+11, PHCP+5, PHCP+7 , PHCP+15, PHCP+17
V	MEASDSP+2, CONTRAS+19~, CONTRAS+23, CONTRAS+24
X	MEASDSP+7, MEASDSP+9, MEASDSP+10, MEASDSP+15, MEASDSP+17, MEASDSP+19, IMMDSP2+3, IMMDSP2+4, IMMGSET+1, IMMGSET+2 , CONTRAS+19, CONTRAS+20, CONTRAS+23, CONTRAS+24, CONTRAS+26, HX+14~, IMMBI2+17, IMMBI2+20, PHCP+2~, PHCP+3* , PHCP+4, PHCP+5, PHCP+9, PHCP+13*, PHCP+14, PHCP+15, PHCP+19
Y	MEASDSP+3, MEASDSP+17, IMMDSP2, IMMDSP2+3, IMMDSP2+4, IMMGSET, IMMGSET+1, IMMGSET+2, CONTRAS+17, CONTRAS+23 , CONTRAS+24, HX+14, PHCP+2~
Z	PHCP+2~

Customize PDF page

Package: Patient Care Component

Routine: APCHS2

Information

Source Information