Routine: APCDELM

Package	Total	Call Graph
Patient Care Component	7	^APCDALV GETPAT^APCDEA ^APCDEIN ^APCDEKL EN^APCDEL EP^APCDKDE ^APCDVCHK
VA Fileman	5	^%DT ^%DTC ^DIC ^DIE ^DIR
IHS Patient	2	KILL^AUPNPAT MOD^AUPNVSIT
IHS VA Utilities	1	^XBFMK

Package

Total

Call Graph

Patient Care Component

^APCDALV GETPAT^APCDEA ^APCDEIN ^APCDEKL EN^APCDEL EP^APCDKDE ^APCDVCHK

VA Fileman

^%DT ^%DTC ^DIC ^DIE ^DIR

IHS Patient

KILL^AUPNPAT MOD^AUPNVSIT

IHS VA Utilities

^XBFMK

Package	Total	Caller Graph
Patient Care Component	1	APCDELMP

Package

Total

Caller Graph

Patient Care Component

APCDELMP

Entry Points

Name	Comments	DBIA/ICR reference
CLN	;
EN	;EP - called from option
HDR	; Write Header
PROCESS	;process each visit
EOJ	; END OF JOB
GETTYPE	; GET TYPE OF ENCOUNTER
GETPAT	; GET PATIENT
GETVISIT	;
GETLOC	; GET LOCATION OF ENCOUNTER
GETCAT	; GET SERVICE CATEGORY
TEXT	;
LM	;EP
GETDATE	; GET DATE OF ENCOUNTER

External References

Name	Field # of Occurrence
^%DT	GETDATE+4
^%DTC	GETVISIT+7
^APCDALV	GETVISIT+1
GETPAT^APCDEA	GETPAT+1
^APCDEIN	HDR+6
^APCDEKL	HDR+1, EOJ+4
EN^APCDEL	LM+1
EP^APCDKDE	LM+2
^APCDVCHK	LM+3
KILL^AUPNPAT	EOJ+1
MOD^AUPNVSIT	GETVISIT+6
^DIC	GETLOC+2, CLN+4
^DIE	GETVISIT+5, CLN+8
^DIR	GETTYPE+4, GETCAT+4
^XBFMK	EOJ+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(APCDX)\2,APCDX Line Location: HDR+3
Function Call: WRITE	Prompt: !! Line Location: HDR+5
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: X Line Location: GETDATE+2
Function Call: WRITE	Prompt: " <Future dates not allowed>",$C(7),$C(7) Line Location: GETDATE+5
Function Call: WRITE	Prompt: $C(7),!,"VISIT date not valid for current patient!",! Line Location: GETVISIT+2
Function Call: WRITE	Prompt: !!,"No visit selected." Line Location: GETVISIT+3
Function Call: WRITE	Prompt: !!,"Please enter the clinic this patient is attending.",! Line Location: CLN+2
Function Call: WRITE	Prompt: !,"Clinic is Required." Line Location: CLN+5
Routine Call	DIE Line Location: GETVISIT+5 CLN+8
Routine Call	DIC Line Location: GETLOC+2 CLN+4
Routine Call	DIR Line Location: GETTYPE+4 GETCAT+4

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	CLN+1
^DIC(4 - [#4]	GETLOC+1
^TMP("APCDEL"	EOJ+3!

Name	Line Occurrences
CLN	CLN+6
EOJ	HDR+10
GETCAT	GETDATE+3
GETDATE	GETDATE+4, GETDATE+5, CLN+5
GETLOC	GETTYPE+5
GETTYPE	GETCAT+5
LM	CLN+1
PROCESS	HDR+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	GETDATE+4*
>> APCDAFLG	GETVISIT+2
APCDANS	EOJ+2!
APCDC	EOJ+2!
>> APCDCAT	GETCAT+1, GETCAT+6
>> APCDCLN	CLN+3, CLN+7, CLN+8
APCDCRIT	EOJ+2!
APCDCUT	EOJ+2!
APCDDATE	GETDATE+1, GETDATE+6, GETVISIT+7, CLN+5!
>> APCDDEFL	GETLOC+1
>> APCDDEFS	GETCAT+3
>> APCDDEFT	GETTYPE+3
APCDDISP	EOJ+2!
APCDEXIT	HDR+4!
>> APCDFLG	HDR+7, GETVISIT+2*
APCDHIGH	EOJ+2!
APCDI	EOJ+2!
APCDJ	HDR+3*, HDR+4!
>> APCDLOC	GETLOC+1, GETLOC+4
>> APCDLVST	GETVISIT+4*
APCDNOXV	GETVISIT+1*!
>> APCDPAT	GETPAT+2, GETVISIT+5
APCDSEL	EOJ+2!
APCDTEXT	EOJ+2!
>> APCDTPLT	HDR+8*
>> APCDTPLT("NAME"	HDR+8*
>> APCDTYPE	GETTYPE+1, GETTYPE+6
APCDVSIT	GETVISIT+3, GETVISIT+4, GETVISIT+6, CLN+1, CLN+5!, CLN+8, LM+2, LM+3
APCDX	HDR+3*, HDR+4!
>> AUPNDAYS	GETVISIT+7*
>> AUPNDOB	GETVISIT+7
>> AUPNVSIT	GETVISIT+6*
DA	GETTYPE+2!, GETCAT+2!, GETVISIT+5, CLN+8!
DIC	GETLOC+2!, CLN+4!
DIC("B"	GETLOC+1*
DIC(0	GETLOC+2, CLN+4
DIE	GETVISIT+5, CLN+8!
DIR	GETTYPE+2!, GETTYPE+4!, GETCAT+2!, GETCAT+4!
DIR("A"	GETTYPE+4, GETCAT+4
DIR("B"	GETTYPE+3, GETCAT+3
DIR(0	GETTYPE+4, GETCAT+4
DIROUT	GETTYPE+2!, GETCAT+2!
DIRUT	GETTYPE+2!, GETTYPE+5, GETCAT+2!, GETCAT+5
DR	GETVISIT+5, CLN+8!
DT	GETDATE+5
DTIME	GETDATE+2
DTOUT	GETTYPE+2!, GETCAT+2!
DUOUT	GETTYPE+2!, GETCAT+2!
IOF	HDR+2
U	GETLOC+1, CLN+1
X	GETTYPE+6, GETCAT+6, GETDATE+2*, GETDATE+3, GETDATE+5!, GETVISIT+7, CLN+5
>> X1	GETVISIT+7*
>> X2	GETVISIT+7*
>> Y	GETLOC+3, GETLOC+4, GETDATE+4, GETDATE+5, GETDATE+6, CLN+6, CLN+7

Customize PDF page

Package: Patient Care Component

Routine: APCDELM

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items