Routine: APCDELMP

Package	Total	Call Graph
Patient Care Component	9	^APCDALV (GETPAT,GETVISIT)^APCDEAP ^APCDECC EN^APCDEFL ^APCDEIN (,EN1,EN2)^APCDEKL LM^APCDELM ^APCDEMDI EP^APCDKDE
VA Fileman	6	^%DT ^%DTC ^DIC YN^DICN ^DIE ^DIR
IHS Patient	2	KILL^AUPNPAT MOD^AUPNVSIT
IHS VA Utilities	1	^XBFMK

Package

Total

Call Graph

Patient Care Component

^APCDALV (GETPAT,GETVISIT)^APCDEAP ^APCDECC EN^APCDEFL ^APCDEIN (,EN1,EN2)^APCDEKL LM^APCDELM ^APCDEMDI
EP^APCDKDE

VA Fileman

^%DT ^%DTC ^DIC YN^DICN ^DIE ^DIR

IHS Patient

KILL^AUPNPAT MOD^AUPNVSIT

IHS VA Utilities

^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
CLN	;
EN	;PEP - called from option - called from TIU
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	;
GETDATE	; GET DATE OF ENCOUNTER

External References

Name	Field # of Occurrence
^%DT	GETDATE+4
^%DTC	GETVISIT+7
^APCDALV	GETVISIT+1
GETPAT^APCDEAP	HDR+11
GETVISIT^APCDEAP	HDR+11
^APCDECC	GETPAT+7
EN^APCDEFL	LM+1
^APCDEIN	HDR+7
^APCDEKL	EOJ+4
EN1^APCDEKL	HDR+1
EN2^APCDEKL	HDR+2, EOJ+4
LM^APCDELM	HDR+11
^APCDEMDI	GETPAT+7
EP^APCDKDE	LM+2
KILL^AUPNPAT	EOJ+1
MOD^AUPNVSIT	GETVISIT+6
^DIC	GETLOC+2, GETPAT+3, CLN+4
YN^DICN	GETPAT+5
^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+4
Function Call: WRITE	Prompt: !! Line Location: HDR+6
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: ! Line Location: GETPAT+1
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 GETPAT+3 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)
^APCDSITE - [#9001001.2]	GETPAT+7
^AUPNVSIT - [#9000010]	CLN+1
^DIC(4 - [#4]	GETLOC+1
^TMP("APCDEF"	EOJ+3!

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GETPAT+5*
>> %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+5!
>> APCDFLG	HDR+8, GETVISIT+2*
APCDHIGH	EOJ+2!
APCDI	EOJ+2!
APCDJ	HDR+4*, HDR+5!
>> APCDLOC	GETLOC+1, GETLOC+4
>> APCDLVST	GETVISIT+4*
APCDNOXV	GETVISIT+1*!
>> APCDPARM	GETPAT+5
>> APCDPAT	HDR+10, HDR+11, GETPAT+2, GETPAT+6*, GETVISIT+5
APCDSEL	EOJ+2!
APCDTEXT	EOJ+2!
>> APCDTPLT	HDR+9*
>> APCDTPLT("NAME"	HDR+9*
>> APCDTYPE	GETTYPE+1, GETTYPE+6
APCDVSIT	HDR+11, GETVISIT+3, GETVISIT+4, GETVISIT+6, CLN+1, CLN+5!, CLN+8, LM+2
APCDX	HDR+4*, HDR+5!
>> AUPNDAYS	GETVISIT+7*
>> AUPNDOB	GETVISIT+7
AUPNVSIT	HDR+11!, GETVISIT+6*
DA	GETTYPE+2!, GETCAT+2!, GETVISIT+5, CLN+8!
DIC	GETLOC+2!, GETPAT+3!, CLN+4*!
DIC("A"	CLN+4*
DIC("B"	GETLOC+1*
DIC(0	GETLOC+2, GETPAT+3, 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!
DUZ("AG"	GETPAT+7
DUZ(2	GETPAT+7
IOF	HDR+3
U	GETLOC+1, GETPAT+5, 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, GETPAT+4, GETPAT+6, CLN+6, CLN+7

Customize PDF page

Package: Patient Care Component

Routine: APCDELMP

Information

Source Information

Call Graph

Call Graph Total: 18

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items