Routine: APCDAALG

Information

APCDAALG ; IHS/CMI/LAB - ALLERGY ENTRY INTO ALLERGY PACKAGE ;

Package	Total	Call Graph
Patient Care Component	4	^APCDALV ^APCDALVR GETVISIT^APCDAPI4 DEDT^APCDEA2
IHS VA Utilities	2	EN^XBNEW EN^XBVK
Adverse Reaction Tracking	1	EN21^GMRAPEM0
IHS Changes To Scheduling	1	^BSDAPI4
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	($$PRIMPROV,$$VD)^APCLV
VA Fileman	1	^DIR

Package

Total

Call Graph

Patient Care Component

^APCDALV ^APCDALVR GETVISIT^APCDAPI4 DEDT^APCDEA2

IHS VA Utilities

EN^XBNEW EN^XBVK

Adverse Reaction Tracking

EN21^GMRAPEM0

IHS Changes To Scheduling

^BSDAPI4

Kernel

$$FMTE^XLFDT

Patient Care Component Reports

($$PRIMPROV,$$VD)^APCLV

VA Fileman

^DIR

Entry Points

Name	Comments	DBIA/ICR reference
ALUDE1P	;GET PROVIDER
ALR(APCDTDA)	;EP - called from naA template to create ALR entry
ALUDE	;EP
ANYACTA(APCDSDFN,EDATE)	;
ALR1	;
ALU(APCDPIEN,APCDV,APCDP,APCDD,APCDPRV,RETVAL)	;PEP - called to update Allergy update fields
EP1	;
EVSIT	;EP - get/create event visit
ALUDE1	;EP - called from xbnew
TEST(CHECKIT)	;CHECK IF VERIFED AND NOT ENTERED IN ERROR
BSD	;
ALUV	;have a visit so create a v updated/reviewed for provider APCDPRV if one does
EP	;

External References

Name	Field # of Occurrence
^APCDALV	EVSIT+12
^APCDALVR	ALUV+22, ALR1+11
GETVISIT^APCDAPI4	BSD+12
DEDT^APCDEA2	BSD+16, EVSIT+14
$$PRIMPROV^APCLV	ALUDE1P+2
$$VD^APCLV	ALUDE1+8
^BSDAPI4	EVSIT+1
^DIR	ALUDE1+4, ALUDE1+9, ALUDE1P+2
EN21^GMRAPEM0	EP+2, EP1+1
EN^XBNEW	EP+4, ALUDE+9, ALR+1
EN^XBVK	EP1+2
$$FMTE^XLFDT	ALUDE1+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You have not been assigned the Allergy Tracking user key.",!,"Please see your supervisor.",! Line Location: EP+1
Function Call: WRITE	Prompt: !!,"The Allergy tracking system has not been installed.",!,"Enter allergies through the problem list.",! Line Location: EP+2
Function Call: WRITE	Prompt: !! Line Location: ALUDE1+2
Function Call: WRITE	Prompt: !!,"This is required." Line Location: ALUDE1+10
Function Call: WRITE	Prompt: !!,"Future Dates now allowed.",! Line Location: ALUDE1+11
Function Call: WRITE	Prompt: !!,"This is required." Line Location: ALUDE1P+3
Function Call: WRITE	Prompt: !!,"error: ",$P(APCDRET,U,2) Line Location: ALUDE1P+6
Routine Call	DIR Line Location: ALUDE1+4 ALUDE1+9 ALUDE1P+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	BSD+6, EVSIT+10
^AUPNPAT - [#9000001]	ALU+20
^AUPNVRUP - [#9000010.54]	ALUV+8, ALUV+9, ALUV+10, ALR1+5, ALR1+6, ALR1+9, ALR1+10
^AUPNVRUP("AD"	ALUV+6
^AUTTCRA("C"	ALUV+3, ALR1+4
^GMR(120.8 - [#120.8]	ANYACTA+3, ANYACTA+4, ANYACTA+5, ANYACTA+7, TEST+4
^XUSEC("GMRA-USER"	EP+1

Name	Line Occurrences
$$TEST	ANYACTA+6
ALU	ALUDE1P+5
ALUDE	EP+6
ALUDE1	ALUDE1+10, ALUDE1+11
ALUDE1P	ALUDE1P+3
ALUV	ALU+27, EVSIT+3, EVSIT+16
BSD	EVSIT+2
EVSIT	ALU+29

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDALVR	ALUV+15~, ALUV+24!, BSD+10!, EVSIT+5!, EVSIT+15!, ALR1+3~, ALR1+13!
APCDALVR("APCDAFLG"	ALUV+23, ALR1+12
APCDALVR("APCDATMP"	ALUV+18, ALR1+7
APCDALVR("APCDAUTO"	EVSIT+6*
APCDALVR("APCDCAT"	EVSIT+8*
APCDALVR("APCDDATE"	EVSIT+11*
APCDALVR("APCDLOC"	EVSIT+9*
APCDALVR("APCDPAT"	ALUV+16, EVSIT+7, ALR1+5*
APCDALVR("APCDTCDT"	ALUV+20, ALR1+9
APCDALVR("APCDTCLA"	ALUV+19, ALR1+8
APCDALVR("APCDTEPR"	ALUV+21, ALR1+10
APCDALVR("APCDTYPE"	EVSIT+10*
APCDALVR("APCDVSIT"	ALUV+17, EVSIT+13, EVSIT+14, ALR1+6
APCDBSDV	BSD+1~, BSD+11!, BSD+12
APCDBSDV(	BSD+16
APCDBSDV(0	BSD+13, BSD+15
APCDD	ALUDE+7, ALUDE1+8, ALUDE1+12, ALUDE1P+5, ALU~, ALU+21*, ALU+22, ALUV+20, BSD+4, EVSIT+11
>> APCDDATE	ALUDE+7
APCDIN	BSD+2!, BSD+12
APCDIN("PAT"	BSD+3*
APCDIN("SITE"	BSD+5*
APCDIN("SRV C	AT" , BSD+7*
APCDIN("TIME	RANGE" , BSD+8*
APCDIN("USR"	BSD+9*
APCDIN("VISIT	DATE" , BSD+4, TYPE" , BSD+6
APCDNKAI	ANYACTA+2~
APCDP	ALUDE+4, ALUDE+5, ALUDE1P+5, ALU~, ALU+18*, ALU+19, ALU+20, ALUV+16, BSD+3, EVSIT+7
>> APCDPAT	EP+3, EP+5, ALUDE+4
APCDPIEN	ALU~, ALU+16*
>> APCDPRBI	ALUDE1P+5
APCDPRV	ALUDE1P+4, ALUDE1P+5, ALU~, ALU+23, ALU+24, ALUV+10, ALUV+21
>> APCDRET	ALUDE1P+5, ALUDE1P+6
APCDSDFN	ANYACTA~, ANYACTA+3, ANYACTA+4, ANYACTA+5
APCDTDA	ALR~, ALR1+5, ALR1+6, ALR1+9, ALR1+10
APCDV	ALUDE+6, ALUDE1+8, ALUDE1P+2, ALUDE1P+5, ALU~, ALU+17, ALU+27, ALUV+6, ALUV+17, BSD+15* , BSD+16, EVSIT+13*
APCDVAL	ALUV+2~, ALUV+3, ALUV+4, ALUV+8, ALUV+19, ALR1+3~, ALR1+4, ALR1+8
APCDVD	ALUV+2~
APCDVRI	ALUV+2~, ALUV+5, ALUV+6, ALUV+11, ALUV+13
APCDVSIT	ALUDE+6, EVSIT+4!, EVSIT+14
APCDX	ALUV+2~, ALUV+6*, ALUV+8, ALUV+9, ALUV+10, ALUV+11
CHECK	TEST+1~, TEST+2, TEST+4, TEST+5
CHECKIT	TEST~, TEST+4
D	ANYACTA+2~, ANYACTA+10*, ANYACTA+11
DA	ALUDE1+4!, ALUDE1+9!, ALUDE1P+2!
>> DFN	EP+3, EP+5, ALUDE+5
DIR	ALUDE1+3!, ALUDE1+4!, ALUDE1+9!, ALUDE1P+2!
DIR("?"	ALUDE1+8*
DIR("A"	ALUDE1+4, ALUDE1+7, ALUDE1P+1*
DIR("B"	ALUDE1+4, ALUDE1+8, ALUDE1P+2*
DIR(0	ALUDE1+4, ALUDE1+7, ALUDE1P+1*
>> DIRUT	ALUDE1+5, ALUDE1+10, ALUDE1P+3
DT	ANYACTA+1, ALUDE1+8, ALUDE1+11
DUZ	EP+1, BSD+9
DUZ(2	BSD+5, BSD+6, EVSIT+9, EVSIT+10
EDATE	ANYACTA~, ANYACTA+1*
G	ANYACTA+2~, ANYACTA+5, ANYACTA+12, ANYACTA+13
H	ANYACTA+2~, ANYACTA+7*, ANYACTA+8, ANYACTA+9, ANYACTA+10
RETVAL	ALU~, ALU+19, ALU+20, ALU+22, ALU+24, ALU+25, ALUV+4, ALUV+13, ALUV+23, BSD+14* , ALR1+12*
>> T	BSD+13*, BSD+14
U	ANYACTA+9, ANYACTA+10, TEST+4, ALUDE1P+6, ALUV+8, ALUV+9, ALUV+10, BSD+6, BSD+13, EVSIT+10 , ALR1+5, ALR1+6, ALR1+9, ALR1+10
>> V	BSD+15*, BSD+16
X	ANYACTA+2~, ANYACTA+5*, ANYACTA+6, ANYACTA+7
>> Y	ALUDE1+6, ALUDE1+11, ALUDE1+12, ALUDE1P+4

Customize PDF page

Package: Patient Care Component

Routine: APCDAALG

Information

Source Information