Routine: APCDEM

Package	Total	Call Graph
Patient Care Component	7	^APCDEA3 ^APCDEIN ^APCDEKL ^APCDEMDI EP^APCDKDE ^APCDVCHK ^APCDVLK
VA Fileman	4	^%DTC ^DIC ^DIE ^DIR
IHS Patient	1	MOD^AUPNVSIT

Package	Total	Caller Graph
Patient Care Component	2	APCDCAF1 APCDCAF3

Entry Points

Name	Comments	DBIA/ICR reference
GETMNE	; GET MNEMONIC
HDR	; Write Header
PROCESS	;EP PROCESS MNEMONIC
EOJ	; END OF JOB
GETMNEK	; KILL GETMNE SPECIFIC VARIABLES
GETVISIT	;
GETPAT	; GET PATIENT
TEXT	;
CHECK	; SEE IF PV AND PRO ENTERED CORRECTLY

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(APCDX)\2,APCDX Line Location: HDR+2
Function Call: WRITE	Prompt: !! Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: WRITE	Prompt: !!,"No Visit Selected!!",$C(7),$C(7),! Line Location: GETVISIT+6
Function Call: WRITE	Prompt: !!,"Select non VISIT related mnemonics only!" Line Location: GETVISIT+7
Function Call: WRITE	Prompt: ! Line Location: GETMNE+1
Routine Call	DIE Line Location: PROCESS+2
Routine Call	DIC Line Location: GETPAT+3 GETMNE+2
Routine Call	DIR Line Location: GETVISIT+3

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^APCDTKW - [#9001001]	Classic Fileman Calls

Name	Field # of Occurrence
>> APCDDATE	GETVISIT+9
>> APCDEMF	GETVISIT+1, GETVISIT+7
>> APCDFLG	HDR+6
APCDJ	HDR+2*, HDR+3!
>> APCDL	HDR+7*
APCDLOOK	GETVISIT+1, GETVISIT+5, GETVISIT+6, GETVISIT+7, GETVISIT+8, GETVISIT+10!
>> APCDMNE	GETMNE+4, CHECK+2
>> APCDMNE("NAME"	GETMNE+4*
>> APCDMODE	HDR+5*
>> APCDPAT	HDR+7, GETPAT+2, GETPAT+5, PROCESS+2
APCDVLK	GETVISIT+2!, GETVISIT+8*
APCDVSIT	HDR+7, GETVISIT+1, GETVISIT+8*, GETMNEK+1, GETMNEK+2, GETMNEK+3!
APCDX	HDR+2!, HDR+3!, GETVISIT+3, GETVISIT+4, GETVISIT+6, GETMNEK+3!
>> AUPNDAYS	GETVISIT+9*
>> AUPNDOB	GETVISIT+9
>> AUPNVSIT	GETVISIT+5*
>> DA	PROCESS+2*
DIC	GETPAT+3!, GETMNE+2!
DIC("A"	GETMNE+2*
DIC("S"	GETMNE+2*
DIC(0	GETPAT+3, GETMNE+2
>> DIE	PROCESS+2*
DIR	GETVISIT+3!
DIR("A"	GETVISIT+3*
DIR("B"	GETVISIT+3*
DIR(0	GETVISIT+3*
>> DIRUT	GETVISIT+3
>> DR	PROCESS+2*
DUZ("AG"	GETPAT+6
IOF	HDR+1
U	GETMNE+4
>> X	GETVISIT+9
>> X1	GETVISIT+9*
>> X2	GETVISIT+9*
>> Y	GETPAT+4, GETPAT+5, GETVISIT+3, GETMNE+3, GETMNE+4

Name	Field # of Occurrence
$T(TEXT+APCDJ	HDR+2