Routine: APCDAMED

Information

APCDAMED ; IHS/CMI/LAB - PROMPT FOR medication ; 12 Oct 2010 6:46 AM

Package	Total	Call Graph
Patient Care Component	5	^APCDALV ^APCDALVR GETVISIT^APCDAPI4 DEDT^APCDEA2 GETMEDS^APCHSMU1
IHS Changes To Scheduling	1	^BSDAPI4
IHS VA Utilities	1	EN^XBNEW
Kernel	1	($$FMADD,$$FMDIFF,$$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 GETMEDS^APCHSMU1

IHS Changes To Scheduling

^BSDAPI4

IHS VA Utilities

EN^XBNEW

Kernel

($$FMADD,$$FMDIFF,$$FMTE)^XLFDT

Patient Care Component Reports

($$PRIMPROV,$$VD)^APCLV

VA Fileman

^DIR

Entry Points

Name	Comments	DBIA/ICR reference
MLUDE	;EP - called from data entry input templates
MLR(APCDTDA)	;EP - called from nap template to create PLR entry
MLR1	;
MLUV	;have a visit so create a v updated/reviewed for provider APCDPRV if one does
MLUDE1	;EP - called from xbnew
MLU(APCDPIEN,APCDV,APCDP,APCDD,APCDPRV,RETVAL)	;PEP - called to update MEDICATION update fields
EVSIT	;EP - get/create event visit
MLUDE1P	;GET PROVIDER
BSD	;
GRP2	;
GRP1	;
ANYACTM(APCDSDFN,EDATE)	;EP - medications component

External References

Name	Field # of Occurrence
^APCDALV	EVSIT+12
^APCDALVR	MLUV+22, MLR1+11
GETVISIT^APCDAPI4	BSD+12
DEDT^APCDEA2	BSD+16, EVSIT+14
GETMEDS^APCHSMU1	ANYACTM+52, ANYACTM+84
$$PRIMPROV^APCLV	MLUDE1P+2
$$VD^APCLV	MLUDE1+3
^BSDAPI4	EVSIT+1
^DIR	MLUDE1+4, MLUDE1P+2
EN^XBNEW	MLUDE+9, MLR+1
$$FMADD^XLFDT	ANYACTM+9, ANYACTM+52, ANYACTM+77, ANYACTM+84
$$FMDIFF^XLFDT	GRP2+4
$$FMTE^XLFDT	MLUDE1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This is required." Line Location: MLUDE1+5
Function Call: WRITE	Prompt: !!,"Future Dates now allowed.",! Line Location: MLUDE1+6
Function Call: WRITE	Prompt: !!,"This is required." Line Location: MLUDE1P+3
Function Call: WRITE	Prompt: !!,"error: ",$P(APCDRET,U,2) Line Location: MLUDE1P+6
Routine Call	DIR Line Location: MLUDE1+4 MLUDE1P+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	BSD+6, EVSIT+10
^AUPNPAT - [#9000001]	MLU+20
^AUPNVMED - [#9000010.14]	ANYACTM+56, ANYACTM+57, ANYACTM+58, ANYACTM+59, ANYACTM+60, ANYACTM+74
^AUPNVRUP - [#9000010.54]	MLUV+8, MLUV+9, MLUV+10, MLR1+5, MLR1+6, MLR1+9, MLR1+10
^AUPNVRUP("AD"	MLUV+6
^AUPNVSIT - [#9000010]	ANYACTM+57
^AUTTCRA("C"	MLUV+3, MLR1+4
^PS(55 - [#55]	ANYACTM+10, ANYACTM+11, ANYACTM+73, ANYACTM+74, ANYACTM+75, ANYACTM+78, ANYACTM+79, GRP2+1, GRP2+2
^PSDRUG - [#50]	ANYACTM+14, ANYACTM+15, ANYACTM+60
^PSRX - [#52]	ANYACTM+12, ANYACTM+13, ANYACTM+16, ANYACTM+18, ANYACTM+19, ANYACTM+20, ANYACTM+21, ANYACTM+24, GRP2+4

Name	Line Occurrences
BSD	EVSIT+2
EVSIT	MLU+29
GRP1	ANYACTM+49
GRP2	ANYACTM+48
MLU	MLUDE1P+5
MLUDE1	MLUDE1+5, MLUDE1+6
MLUDE1P	MLUDE1P+3
MLUV	MLU+27, EVSIT+3, EVSIT+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDALL	ANYACTM+7!
APCDALL(	ANYACTM+33*, ANYACTM+36, ANYACTM+37, ANYACTM+39, ANYACTM+40, ANYACTM+41
APCDALVR	MLUV+15~, MLUV+24!, BSD+10!, EVSIT+5!, EVSIT+15!, MLR1+3~, MLR1+13!
APCDALVR("APCDAFLG"	MLUV+23, MLR1+12
APCDALVR("APCDATMP"	MLUV+18, MLR1+7
APCDALVR("APCDAUTO"	EVSIT+6*
APCDALVR("APCDCAT"	EVSIT+8*
APCDALVR("APCDDATE"	EVSIT+11*
APCDALVR("APCDLOC"	EVSIT+9*
APCDALVR("APCDPAT"	MLUV+16, EVSIT+7, MLR1+5*
APCDALVR("APCDTCDT"	MLUV+20, MLR1+9
APCDALVR("APCDTCLA"	MLUV+19, MLR1+8
APCDALVR("APCDTEPR"	MLUV+21, MLR1+10
APCDALVR("APCDTYPE"	EVSIT+10*
APCDALVR("APCDVSIT"	MLUV+17, EVSIT+13, EVSIT+14, MLR1+6
APCDBSDV	BSD+1~, BSD+11!, BSD+12
APCDBSDV(	BSD+16
APCDBSDV(0	BSD+13, BSD+15
APCDC	ANYACTM+2~
APCDD	MLUDE+7, MLUDE1+3, MLUDE1+7, MLUDE1P+5, MLU~, MLU+21*, MLU+22, MLUV+20, BSD+4, EVSIT+11 , ANYACTM+2~
>> APCDDATE	MLUDE+7
APCDI	ANYACTM+2~
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
APCDKEEP	ANYACTM+2~, ANYACTM+35!, ANYACTM+63!
APCDKEEP(	ANYACTM+38, ANYACTM+41*, ANYACTM+43, ANYACTM+44, ANYACTM+45, ANYACTM+46, ANYACTM+47
APCDM	ANYACTM+2~, ANYACTM+51!
APCDM(	ANYACTM+61*, ANYACTM+64, ANYACTM+65, ANYACTM+67, ANYACTM+68
APCDMED	ANYACTM+2~, ANYACTM+7!, ANYACTM+71!
APCDMED(	ANYACTM+66
APCDMED(0	ANYACTM+70, ANYACTM+81
APCDMED(1	ANYACTM+69, ANYACTM+80, GRP1+1*
APCDMED(2	GRP2+5*
APCDMEDS	ANYACTM+2~, ANYACTM+51!, ANYACTM+52, ANYACTM+83!, ANYACTM+84
APCDMEDS(	ANYACTM+54, ANYACTM+55, ANYACTM+61
APCDMEDS(0	ANYACTM+85
APCDN	ANYACTM+2~
APCDP	MLUDE+4, MLUDE+5, MLUDE1P+5, MLU~, MLU+18*, MLU+19, MLU+20, MLUV+16, BSD+3, EVSIT+7
>> APCDPAT	MLUDE+4
APCDPIEN	MLU~, MLU+16*
>> APCDPRBI	MLUDE1P+5
APCDPRV	MLUDE1P+4, MLUDE1P+5, MLU~, MLU+23, MLU+24, MLUV+10, MLUV+21
>> APCDRET	MLUDE1P+5, MLUDE1P+6
APCDRX0	ANYACTM+2~
APCDRXN	ANYACTM+2~
APCDRXO	ANYACTM+2~
APCDSDFN	ANYACTM~, ANYACTM+10, ANYACTM+11, ANYACTM+17, ANYACTM+52, ANYACTM+73, ANYACTM+74, ANYACTM+75, ANYACTM+78, ANYACTM+79 , ANYACTM+84, GRP2+1, GRP2+2
APCDSREF	ANYACTM+2~
APCDSTAT	ANYACTM+2~
APCDTDA	MLR~, MLR1+5, MLR1+6, MLR1+9, MLR1+10
APCDV	MLUDE+6, MLUDE1+3, MLUDE1P+2, MLUDE1P+5, MLU~, MLU+17, MLU+27, MLUV+6, MLUV+17, BSD+15* , BSD+16, EVSIT+13*
APCDVAL	MLUV+2~, MLUV+3, MLUV+4, MLUV+8, MLUV+19, MLR1+3~, MLR1+4, MLR1+8
APCDVD	MLUV+2~
APCDVRI	MLUV+2~, MLUV+5, MLUV+6, MLUV+11, MLUV+13
APCDVSIT	MLUDE+6, EVSIT+4!, EVSIT+14
APCDX	MLUV+2~, MLUV+6*, MLUV+8, MLUV+9, MLUV+10, MLUV+11
C	ANYACTM+2~, ANYACTM+3~, GRP2+2*, GRP2+3
D	ANYACTM+2~, ANYACTM+3~, ANYACTM+13, ANYACTM+14, ANYACTM+15, ANYACTM+33, ANYACTM+37, ANYACTM+38, ANYACTM+39, ANYACTM+40 , ANYACTM+41, ANYACTM+44, ANYACTM+45, ANYACTM+46, ANYACTM+47, ANYACTM+59, ANYACTM+60, ANYACTM+61, ANYACTM+65*, ANYACTM+66 , ANYACTM+67, ANYACTM+68, ANYACTM+69, GRP2+5, GRP1+1
DA	MLUDE1+4!, MLUDE1P+2!
>> DFN	MLUDE+5
DIR	MLUDE1+4!, MLUDE1P+2!
DIR("?"	MLUDE1+3*
DIR("A"	MLUDE1+2, MLUDE1P+1
DIR("B"	MLUDE1+3, MLUDE1P+2
DIR(0	MLUDE1+2, MLUDE1P+1
>> DIRUT	MLUDE1+5, MLUDE1P+3
DT	MLUDE1+3, MLUDE1+6, ANYACTM+6, ANYACTM+52, ANYACTM+77, ANYACTM+84, GRP2+4
DUZ	BSD+9
DUZ(2	BSD+5, BSD+6, EVSIT+9, EVSIT+10
EDATE	ANYACTM~, ANYACTM+6*, ANYACTM+9
EXPDT	ANYACTM+3~, ANYACTM+9, ANYACTM+10, ANYACTM+11
I	ANYACTM+2~, ANYACTM+3~, ANYACTM+11, ANYACTM+12, ANYACTM+13, ANYACTM+16, ANYACTM+18, ANYACTM+19, ANYACTM+20, ANYACTM+21 , ANYACTM+24, ANYACTM+33, ANYACTM+40, ANYACTM+41, ANYACTM+46*, ANYACTM+47, GRP2+1, GRP2+2, GRP2+4, GRP2+5 , GRP1+1
>> L	ANYACTM+18, ANYACTM+19, ANYACTM+20, ANYACTM+21, ANYACTM+22, ANYACTM+23, ANYACTM+33, ANYACTM+39, ANYACTM+40, ANYACTM+41 , ANYACTM+45, ANYACTM+46, ANYACTM+47, ANYACTM+75, ANYACTM+76*, ANYACTM+77, GRP2+5, GRP1+1
M	ANYACTM+2~, ANYACTM+3~, ANYACTM+55, ANYACTM+56, ANYACTM+57, ANYACTM+58, ANYACTM+59, ANYACTM+60, ANYACTM+68, ANYACTM+69
N	ANYACTM+2~, ANYACTM+3~, ANYACTM+15, ANYACTM+33, ANYACTM+36, ANYACTM+37, ANYACTM+38, ANYACTM+39, ANYACTM+40, ANYACTM+41 , ANYACTM+43, ANYACTM+44, ANYACTM+45, ANYACTM+46, ANYACTM+47, ANYACTM+60, ANYACTM+61, ANYACTM+64*, ANYACTM+65, ANYACTM+66 , ANYACTM+67, ANYACTM+68, ANYACTM+69, GRP2+5, GRP1+1
P	ANYACTM+3~, ANYACTM+16*, ANYACTM+17
RETVAL	MLU~, MLU+19, MLU+20, MLU+22, MLU+24, MLU+25, MLUV+4, MLUV+13, MLUV+23, BSD+14* , MLR1+12*
>> S	ANYACTM+24, ANYACTM+25, ANYACTM+26, ANYACTM+27, ANYACTM+28, ANYACTM+29, ANYACTM+30, ANYACTM+31, ANYACTM+32, ANYACTM+33 , ANYACTM+47, ANYACTM+48
>> T	BSD+13*, BSD+14
U	MLUDE1P+6, MLUV+8, MLUV+9, MLUV+10, BSD+6, BSD+13, EVSIT+10, ANYACTM+13, ANYACTM+15, ANYACTM+16 , ANYACTM+18, ANYACTM+20, ANYACTM+21, ANYACTM+24, ANYACTM+55, ANYACTM+56, ANYACTM+57, ANYACTM+58, ANYACTM+59, ANYACTM+60 , ANYACTM+61, ANYACTM+68, ANYACTM+69, ANYACTM+74, ANYACTM+75, ANYACTM+78, ANYACTM+79, GRP2+4, GRP2+5, GRP1+1 , MLR1+5, MLR1+6, MLR1+9, MLR1+10
>> V	BSD+15, BSD+16, ANYACTM+56, ANYACTM+57
X	ANYACTM+2~, ANYACTM+3~, ANYACTM+54, ANYACTM+55, ANYACTM+61, ANYACTM+67, ANYACTM+68, ANYACTM+69, ANYACTM+73*, ANYACTM+74 , ANYACTM+75, ANYACTM+78, ANYACTM+79
Y	MLUDE1+6, MLUDE1+7, MLUDE1P+4, ANYACTM+3~, GRP2+3*, GRP2+4
Z	ANYACTM+3~

Customize PDF page

Package: Patient Care Component

Routine: APCDAMED

Information

Source Information