Routine: APCDPE2

Package	Total	Call Graph
Patient Care Component	10	^APCDALV DEDT^APCDEA2 ^APCDEA3 ^APCDEQX ^APCDEWHA ^APCDFCTC ^APCDFORM EP^APCDKDE ^APCDVCHK ^APCDVDSP
VA Fileman	3	^%DTC ^DIC ^DIE
IHS Patient	2	^AUPNPAT MOD^AUPNVSIT

Package	Total	Caller Graph
Patient Care Component	1	APCDPE1

Entry Points

Name	Comments	DBIA/ICR reference
GETMNE	; GET MNEMONIC
MNEPROC	; PROCESS MNEMONICS UNTIL DONE
GETMNEK	; KILL GETMNE SPECIFIC VARIABLES
START	;
GET1	;
CHECK	; SEE IF PV AND PRO ENTERED CORRECTLY

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"VISIT date not valid for current patient!",! Line Location: START+4
Function Call: WRITE	Prompt: !!,"You may now enter other data using any of the data entry mnemonics.",!,"To display the visit type DISP, to display a health summary type DHS.",!,"Press enter to exit.",! Line Location: START+16
Function Call: WRITE	Prompt: ! Line Location: MNEPROC+6
Function Call: WRITE	Prompt: ! Line Location: GETMNE+1
Function Call: WRITE	Prompt: !!,"Switching to Modify Mode for ONE Mnemonic ONLY!" Line Location: GETMNE+8
Function Call: WRITE	Prompt: !!,"Switching back to ENTER Mode!" Line Location: GETMNE+8
Function Call: WRITE	Prompt: !! Line Location: GET1+1
Function Call: WRITE	Prompt: !!,$C(7),$C(7),X," Mnemonic is Missing - Notify your Supervisor!" Line Location: GET1+3
Routine Call	DIE Line Location: START+7
Routine Call	DIC Line Location: GETMNE+2 GET1+2

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

Name	Line Occurrences (* Changed, ! Killed)
^APCDFORM("AB"	CHECK+11
^APCDTKW - [#9001001]	START+15
^AUPNVCHS("AD"	CHECK+9
^AUPNVINP("AD"	START+14, CHECK+8
^AUPNVPOV("AD"	CHECK+5
^AUPNVPRN("AD"	CHECK+5
^AUPNVPRV("AD"	CHECK+6
^AUPNVSIT - [#9000010]	CHECK+4, CHECK+8, CHECK+9
^AUPNVTC("AD"	CHECK+12
^AUTTLOC - [#9999999.06]	START+13

Name	Field # of Occurrence
^(0	CHECK+8

Name	Field # of Occurrence
>> APCDAFLG	START+4
APCDALVR	START+3!
>> APCDBEEP	CHECK+5, CHECK+6
>> APCDCAT	START+12, START+14
>> APCDCLN	START+2*
>> APCDCSEL(	START+15
>> APCDDATE	START+9
APCDEQX	GETMNE+7, GETMNEK+1!
>> APCDFLG	START+4*
APCDFV	CHECK+11!, CHECK+12!
>> APCDLOC	START+13
>> APCDLVST	START+6*, GETMNE+8, CHECK+11
>> APCDMNE	GETMNE+4, GET1+4
>> APCDMNE("NAME"	GETMNE+4, GET1+4
APCDMOD	GETMNE+5!, GETMNE+8!, CHECK+1
>> APCDMODE	GETMNE+8*, CHECK+5, CHECK+6, CHECK+7, CHECK+8, CHECK+9
APCDMPQ	MNEPROC+1, MNEPROC+2, MNEPROC+5!, GETMNE+7, CHECK+2, CHECK+5, CHECK+6, CHECK+7, CHECK+8, CHECK+9 , CHECK+10
APCDNOCL	CHECK+3!, CHECK+7!
>> APCDPARM	START+11, START+13, CHECK+11, CHECK+12
>> APCDPAT	START+1, START+7
>> APCDPECL	START+2
>> APCDPEH	START+15*
APCDREGU	MNEPROC+5!, GETMNEK+1!
>> APCDTYPE	START+12, START+14
APCDVDSP	START+11*!
APCDVLK	GETMNE+8*!
APCDVSIT	START+5, START+6, START+8, START+11, START+14, MNEPROC+3, GETMNE+8*, GETMNEK+1!, CHECK+4, CHECK+5 , CHECK+6, CHECK+8, CHECK+9, CHECK+12
APCDVSIT("NEW"	START+11, START+12
APCDX	GETMNEK+1!
>> AUPNDAYS	START+9*
>> AUPNDOB	START+9
>> AUPNVSIT	START+8*
>> DA	START+7*
DIC	GETMNE+2, GET1+2!, GET1+3!
DIC("A"	GETMNE+2*!
DIC("S"	GETMNE+2*!
DIC(0	GETMNE+2, GET1+2
>> DIE	START+7*
DR	START+7*, START+10!
>> DTOUT	CHECK+5, CHECK+6, CHECK+7, CHECK+8, CHECK+9
U	START+11, START+13, START+15, GETMNE+4, CHECK+4, CHECK+8, CHECK+9, CHECK+11, CHECK+12, GET1+4
X	START+9, START+12, START+13, START+14, START+15, GET1+3!
>> X1	START+9*
>> X2	START+9*
>> Y	START+1*, GETMNE+3, GETMNE+4, GET1+3, GET1+4