Routine: APCDEA

Package	Total	Call Graph
Patient Care Component	5	^APCDEA2 ^APCDECC ^APCDEIN ^APCDEKL ^APCDEMDI
VA Fileman	4	^%DT ^DIC YN^DICN ^DIR
IHS Patient	1	^AUPNPAT

Package

Total

Call Graph

Patient Care Component

^APCDEA2 ^APCDECC ^APCDEIN ^APCDEKL ^APCDEMDI

VA Fileman

^%DT ^DIC YN^DICN ^DIR

IHS Patient

^AUPNPAT

Package	Total	Caller Graph
Patient Care Component	17	APCDDMUP APCDEATC APCDECPT APCDEDTC APCDEFM APCDEGP APCDEH APCDEHTC APCDELAB APCDELM APCDENV APCDERAD APCDLESF APCDPE1 APCDPG APCDPL APCDSFR
Diabetes Registry	1	BDMEDMUP
iCare	1	BQIRGDMT

Package

Total

Caller Graph

Patient Care Component

APCDDMUP  APCDEATC  APCDECPT  APCDEDTC  APCDEFM  APCDEGP  APCDEH  APCDEHTC
APCDELAB  APCDELM  APCDENV  APCDERAD  APCDLESF  APCDPE1  APCDPG  APCDPL
APCDSFR

Diabetes Registry

BDMEDMUP

iCare

BQIRGDMT

Entry Points

Name	Comments	DBIA/ICR reference
INAC(P,RETVAL)	;EP - called to check to see if patient is inactive
HDR	; Write Header
GETLOC	; GET LOCATION OF ENCOUNTER
EOJ	; END OF JOB
GETTYPE	; GET TYPE OF ENCOUNTER
GETPAT	;EP - GET PATIENT
EDTIME
GETTMPLT	; GET TEMPLATE
GETTIME	;
GETCAT	; GET SERVICE CATEGORY
TEXT	;
PROCESS	; PROCESS PATIENT
RESTOFIT
GETDATE	; GET DATE OF ENCOUNTER

Name	Field # of Occurrence
^%DT	GETDATE+9
^APCDEA2	PROCESS+1
^APCDECC	GETPAT+10
^APCDEIN	HDR+6
^APCDEKL	EOJ+1
^APCDEMDI	GETPAT+10
^AUPNPAT	GETPAT+3
^DIC	GETLOC+4, GETLOC+5, GETPAT+5
YN^DICN	GETPAT+7
^DIR	GETTYPE+5, GETCAT+5, INAC+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(APCDX)\2,APCDX Line Location: HDR+2
Function Call: WRITE	Prompt: !?80-$L(APCDX)\2,APCDX Line Location: HDR+3
Function Call: WRITE	Prompt: !! Line Location: HDR+5
Function Call: WRITE	Prompt: !!,"That location has been inactivated! See you supervisor." Line Location: GETLOC+8
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: X Line Location: GETDATE+4
Function Call: WRITE	Prompt: " <Date only, please - no time specification>",$C(7),$C(7) Line Location: GETDATE+8
Function Call: WRITE	Prompt: " <Future dates not allowed>",$C(7),$C(7) Line Location: GETDATE+10
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: X Line Location: GETTIME+3
Function Call: WRITE	Prompt: APCDBEEP," Time Required!" Line Location: GETTIME+6
Function Call: WRITE	Prompt: !,"Enter time of visit, or 'D' for default." Line Location: GETTIME+7
Function Call: WRITE	Prompt: " ",X Line Location: GETTIME+8
Function Call: WRITE	Prompt: APCDBEEP Line Location: EDTIME+2
Function Call: WRITE	Prompt: ! Line Location: EDTIME+3
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: WRITE	Prompt: !!,"Returning to Add Mode.",! Line Location: PROCESS+2
Routine Call	DIC Line Location: GETLOC+4 GETLOC+5 GETPAT+5
Routine Call	DIR Line Location: GETTYPE+5 GETCAT+5 INAC+4

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	GETPAT+4, GETPAT+10
^AUPNPAT - [#9000001]	INAC+2
^AUTTLOC - [#9999999.06]	GETLOC+8
^TMP("APCD"	EDTIME+1

Name	Line Occurrences
EOJ	HDR+9
GETCAT	HDR+8
GETDATE	RESTOFIT, GETDATE+8, GETDATE+9, GETDATE+10, EDTIME+2, EDTIME+3
GETLOC	HDR+8, GETLOC+8
GETPAT	RESTOFIT
GETTIME	GETTIME+6, GETTIME+7
GETTYPE	HDR+8
INAC	GETPAT+9
PROCESS	RESTOFIT
RESTOFIT	HDR+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GETPAT+7*
>> %DT	GETDATE+9*
APCDAPP	PROCESS+2!
>> APCDBEEP	GETTIME+6, EDTIME+2
>> APCDCAF("IN C	AF W/PATIENT" , GETPAT+3
>> APCDCAT	HDR+8, GETCAT+2, GETCAT+7, GETDATE+6, GETTIME+2
>> APCDDATE	RESTOFIT, GETDATE+2, GETDATE+3, GETDATE+6, GETDATE+12, GETTIME+5, EDTIME, EDTIME+4
>> APCDDEFL	GETLOC+4, GETLOC+5
>> APCDDEFS	GETCAT+4
>> APCDDEFT	GETTYPE+4
APCDEXIT	HDR+4!, GETLOC+1, GETTYPE+1, GETCAT+1, GETDATE+1, GETDATE+6*
>> APCDFLG	HDR+7
APCDJ	HDR+2, HDR+3, HDR+4!
>> APCDLOC	HDR+8, GETLOC+3, GETLOC+9, GETDATE+6
>> APCDMINI	HDR+2, HDR+3
APCDODAT	GETDATE+2*, GETDATE+7, GETDATE+11!
>> APCDPARM	GETPAT+7
>> APCDPAT	RESTOFIT, GETPAT+2, GETPAT+3, GETPAT+8, GETPAT+9*
>> APCDTIME	GETTIME+1, GETTIME+2, GETTIME+3, GETTIME+4, EDTIME
>> APCDTPLT	HDR+8*
>> APCDTPLT("NAME"	HDR+8*
>> APCDTYPE	HDR+8, GETTYPE+2, GETTYPE+7, GETDATE+6, GETTIME+2
APCDX	HDR+2, HDR+3, HDR+4!
>> AUPNLK("INAC"	GETPAT+4*
DA	GETTYPE+3!, GETCAT+3!, INAC+4!
DIC	GETLOC+4!, GETLOC+5!, GETPAT+5*!
DIC("B"	GETLOC+4*
DIC(0	GETLOC+4, GETLOC+5, GETPAT+5*
DIR	GETTYPE+3!, GETTYPE+5!, GETCAT+3!, GETCAT+5!, INAC+4!
DIR("A"	GETTYPE+5, GETCAT+5, INAC+4*
DIR("B"	GETTYPE+4, GETCAT+4, INAC+4*
DIR(0	GETTYPE+5, GETCAT+5, INAC+4*
DIROUT	GETTYPE+3!, GETCAT+3!
DIRUT	GETTYPE+3!, GETTYPE+6, GETCAT+3!, GETCAT+6, INAC+5
DT	GETDATE+10
DTIME	GETDATE+4, GETTIME+3
DTOUT	GETTYPE+3!, GETCAT+3!
DUOUT	GETTYPE+3!, GETCAT+3!
DUZ("AG"	GETPAT+10
DUZ(2	GETPAT+4, GETPAT+10, INAC+2
IOF	HDR+1
P	INAC~, INAC+2
RETVAL	INAC~, INAC+1, INAC+5, INAC+6*
U	GETLOC+8, GETPAT+4, GETPAT+7, INAC+2
X	GETTYPE+6, GETCAT+6, GETDATE+4, GETDATE+5, GETDATE+6, GETDATE+7, GETDATE+8!, GETDATE+10!, GETDATE+12, GETTIME+3* , GETTIME+5, GETTIME+6, GETTIME+7, GETTIME+8, EDTIME, EDTIME+2, EDTIME+3, EDTIME+4, GETPAT+9
>> Y	GETLOC+7, GETLOC+8, GETLOC+9, GETTYPE+7, GETCAT+7, GETDATE+9, GETDATE+10, GETPAT+3*, GETPAT+6, GETPAT+8 , INAC+6

Customize PDF page

Package: Patient Care Component

Routine: APCDEA

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 19

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items