Routine: APCDLIM

Package	Total	Call Graph
VA Fileman	5	^%DT EN^DDIOL ^DIC FILE^DICN ^DIE
Kernel	2	($$FMDIFF,$$NOW)^XLFDT $$REPEAT^XLFSTR
Patient Care Component	2	$$BI^APCHS11C GETSITEV^APCHSUTL
IHS Patient	1	$$DOB^AUPNPAT
Immunization Tracking	1	IMMHX^BIRPC

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;
IMMBI	;IHS/CMI/LAB - new subroutine for new imm package
HX	;
IMMUN	; ******************** IMMUNIZATIONS * 9000010.11 *******
PAD(D,L,C)	;EP
CREATE(APCDV,APCDP)	;
IMMDTYP
IMM	;
IMMDSP2
IMMDSP
GETIMM	;EP - called from APCD IM (ADD) template
AGE(DFN,D,F)	;(DFN) Given DFN, return Age. ; AUPN93.23
IMMGSET
HSIMM	;EP - called from xbnew
DATE	;
GETSITE	;
DISP2	;

External References

Name	Field # of Occurrence
^%DT	HX+16
$$BI^APCHS11C	IMMUN+1
GETSITEV^APCHSUTL	IMMDSP2+2
$$DOB^AUPNPAT	AGE+3, AGE+7
IMMHX^BIRPC	HX+5
EN^DDIOL	HX+9
^DIC	CREATE+2
FILE^DICN	CREATE+6
^DIE	CREATE+8
$$FMDIFF^XLFDT	AGE+7
$$NOW^XLFDT	CREATE+8
$$REPEAT^XLFSTR	PAD+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"Immunization Record",! Line Location: APCDLIM+3
Function Call: WRITE	Prompt: !,APCDLIM("IMM NAME") Line Location: IMM+1
Function Call: WRITE	Prompt: ?(APCDLIM("IMM NAME LNTH")+4),$P(^AUPNVIMM(APCDLIM("DFN"),0),U,4),?17,APCDLIM("PRINT DATE")," ",APCDLIM("SITE"),! Line Location: DISP2+3
Function Call: WRITE	Prompt: ?(APCDSITL+1),$P(^AUPNVIMM(APCDSDFN,0),U,4),?20,APCDSDAT,?28,$$AGE(APCDTP,$P(+^AUPNVSIT(APCHSVDF,0),"."),"P"),?37,APCDSITE,?65,APCDSIR,! Line Location: IMMDSP2+8
Function Call: WRITE	Prompt: !?3,"IMMUNIZATION HISTORY:",! Line Location: HX+6
Function Call: WRITE	Prompt: ! Line Location: HX+15
Function Call: WRITE	Prompt: ?22,"Reaction: ",$P(APCDY,APCDV,6),! Line Location: HX+20
Function Call: WRITE	Prompt: !!,APCDX," Immunization entry failed." Line Location: GETIMM+2
Routine Call	DIE Line Location: CREATE+8
Routine Call	DIC Line Location: CREATE+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVIMM - [#9000010.11]	Classic Fileman Calls
^AUTTIMM - [#9999999.14]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVIMM - [#9000010.11]	DISP2+2, DISP2+3, IMMDSP2+1, IMMDSP2+8
^AUPNVIMM("AA"	APCDLIM+4, DATE+1, DISP+1, IMMUN+3, IMMUN+6, IMMDTYP, IMMDSP
^AUPNVSIT - [#9000010]	GETSITE+1, GETSITE+3, IMMDSP2+8
^AUTTIMM - [#9999999.14]	IMM+1, IMMDTYP
^DD(9000010.11	IMMGSET
^DIC(4 - [#4]	GETSITE+2
^DPT - [#2]	AGE+2

Label References

Name	Line Occurrences
$$AGE	IMMDSP2+8, HX+19
$$CREATE	GETIMM+1
DATE	IMM+1
DISP	DATE+1
DISP2	DISP+1
GETSITE	DISP2+2
IMM	APCDLIM+4
IMMBI	IMMUN+1
IMMDSP	IMMDTYP
IMMDSP2	IMMDSP
IMMDTYP	IMMUN+6
IMMGSET	IMMDSP2+3, IMMDSP2+4

Naked Globals

Name	Field # of Occurrence
^(21	GETSITE+3

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+16!*
>> APCD31	IMMBI+1*, HX+8, HX+10
APCDBIDE	HX+3~, HX+5, HX+23!
APCDBIDE(	HX+3*
>> APCDBIER	HX+8*, HX+9
APCDI	HX+11~, HX+13*
APCDIMM	IMMBI+1, HX+5, HX+8, HX+10, HX+13, HX+23!
APCDLIM	APCDLIM+5!
APCDLIM("DATE"	DATE+1*, DISP+1, DISP2+1
APCDLIM("DFN"	DISP+1*, DISP2+2, DISP2+3
APCDLIM("IMM	NAME LNTH" , IMM+1, DISP2+3, NAME" , IMM+1
APCDLIM("IMM"	APCDLIM+4*, IMM+1, DATE+1, DISP+1
APCDLIM("PRIN	T DATE" , DISP2+1*, DISP2+3
APCDLIM("SITE"	DISP2+3, GETSITE+1, GETSITE+2, GETSITE+3, GETSITE+4
APCDLIM("VISIT"	DISP2+2*, GETSITE+1, GETSITE+3
APCDP	CREATE~, CREATE+5
>> APCDPAT	APCDLIM+4, DATE+1, DISP+1, GETIMM+1
>> APCDSDAT	IMMDSP2*, IMMDSP2+8
APCDSDFN	IMMUN+5~, IMMDSP*, IMMDSP2+1, IMMDSP2+8
APCDSDG	HX+16~*, HX+19
APCDSIC	IMMUN+5~, IMMDSP2+4*, IMMDSP2+5, IMMDSP2+6
APCDSIR	IMMUN+5~, IMMDSP2+3, IMMDSP2+5, IMMDSP2+6*, IMMDSP2+8
APCDSITE	IMMUN+5~, IMMDSP2+2*, IMMDSP2+8
APCDSITL	IMMUN+5~, IMMDTYP*, IMMDSP2+8
APCDSITP	IMMUN+5~, IMMUN+6*, IMMDTYP, IMMDSP
APCDSITX	IMMUN+5~, IMMDTYP*
APCDSIVD	IMMUN+5~, IMMDTYP*, IMMDSP, IMMDSP2
APCDSN	IMMUN+5~, IMMDSP2+1*, IMMDSP2+2, IMMDSP2+3, IMMDSP2+4
APCDSP	IMMUN+5~, IMMDSP2+3, IMMDSP2+4, IMMGSET+2*
APCDSQ	IMMUN+5~, IMMUN+6, IMMDTYP, IMMDSP, IMMGSET+2
>> APCDSQIT	HX+13
>> APCDTP	IMMUN+3, IMMUN+6, IMMDTYP, IMMDSP, IMMDSP2+8, HX+5, HX+19
APCDV	HX+11~, HX+12*, HX+14, HX+15, HX+16, HX+19, HX+20, HX+23!, CREATE~, CREATE+5
>> APCDVSIT	GETIMM+1
APCDX	HX+11~, GETIMM+1*, GETIMM+2, GETIMM+3!
APCDY	HX+11~, HX+13*, HX+14, HX+15, HX+16, HX+19, HX+20, HX+23!
APCDZ	HX+11~, HX+12, HX+15, HX+23!
APCHSITE	IMMUN+8!
APCHSNAB	IMMUN+8!
APCHSNFL	IMMUN+8!
APCHSNSH	IMMUN+5~, IMMUN+8!, IMMDSP2+2
APCHSP	IMMUN+8!
APCHSVDF	IMMUN+5~, IMMUN+8!, IMMDSP2+2*, IMMDSP2+8
APCHSVSC	IMMUN+8!
C	PAD~, PAD+11*, PAD+12
D	AGE~, AGE+4*, AGE+7, PAD~, PAD+9, PAD+10, PAD+12
>> DA	CREATE+8*
DFN	AGE~, AGE+1, AGE+2, AGE+3, AGE+7
DIADD	CREATE+5*, CREATE+6!
DIC	CREATE+1!, CREATE+2, CREATE+4!, CREATE+5, CREATE+6!
DIC("DR"	CREATE+5*
DIC("S"	CREATE+2*
DIC(0	CREATE+2, CREATE+5
>> DIE	CREATE+8*
DLAYGO	CREATE+5*, CREATE+6!
DR	CREATE+6!, CREATE+8*
DT	AGE+4
F	AGE~, AGE+5*, AGE+8
I	HX+3~*
L	PAD~, PAD+10*, PAD+12
U	IMM+1, DISP2+2, DISP2+3, GETSITE+1, GETSITE+2, GETSITE+3, IMMDTYP, IMMDSP2+2, IMMDSP2+3, IMMDSP2+4 , IMMDSP2+8, IMMGSET, HX+13
X	IMMDSP2+3, IMMDSP2+4, IMMGSET+1, IMMGSET+2, HX+16~, CREATE+5
Y	DISP2+1!, IMMDSP2, IMMDSP2+3, IMMDSP2+4, IMMGSET, IMMGSET+1, IMMGSET+2, HX+16, GETIMM+3!, CREATE+3 , CREATE+5, CREATE+7, CREATE+8

Customize PDF page

Package: Patient Care Component

Routine: APCDLIM

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: