Routine: APCDACC

Entry Points

Name	Comments	DBIA/ICR reference
SET	;the following sub-routines set up variables with file
HDR	;
PROCESS	;process the ACCEPT command
EOJ	; eoj clean up
GETTYPE	;get type of record to edit
GETVISIT	;get visit to edit
GETPAT	;get patient
1	;
INFORM	; inform user what is going on
3	;
2	;
TEXT	;informing paragraph
DSPLY	; DISPLAY VISIT TO BE EDITED
MORE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No PATIENT selected!" Line Location: APCDACC+5
Function Call: WRITE	Prompt: !!,"No VISIT selected!" Line Location: APCDACC+7
Function Call: WRITE	Prompt: !!,"No Record Type selected!",! Line Location: MORE+1
Function Call: WRITE	Prompt: !?80-$L(APCDX)\2,APCDX Line Location: INFORM+2
Function Call: WRITE	Prompt: !,$P($T(TEXT+APCDJ),";;",2) Line Location: INFORM+4
Function Call: WRITE	Prompt: !!!,$C(7),"No ",APCDT,"'s for that Visit.",! Line Location: PROCESS+2
Function Call: WRITE	Prompt: !!,"You must select which ",APCDT," should be given",!,"the ACCEPT command." Line Location: PROCESS+3
Function Call: WRITE	Prompt: !!,"No ",APCDT," selected!",! Line Location: PROCESS+6
Function Call: WRITE	Prompt: !!,"No ",APCDT," selected!",! Line Location: PROCESS+7
Function Call: WRITE	Prompt: !!,"ACCEPT COMMAND FAILED!! NOTIFY A PROGRAMMER!",$C(7),$C(7) Line Location: PROCESS+9
Function Call: WRITE	Prompt: !,"Accept command has been set for ",APCDT," ",^UTILITY("DIQ1",$J,APCDN,APCDLOOK,".01"),".",! Line Location: PROCESS+11
Function Call: WRITE	Prompt: !!,"DIE FAILED... NOTIFY PROGRAMMER",!,$C(7),$C(7) Line Location: PROCESS+13
Routine Call	DIE Line Location: PROCESS+8
Routine Call	DIC Line Location: GETPAT+2
Routine Call	DIR Line Location: GETTYPE+2

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

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY("DIQ1"	EOJ+1!, PROCESS+10!, PROCESS+11

Name	Field # of Occurrence
%	EOJ+3!, GETPAT+4*
%DT	EOJ+3!
A	EOJ+3!
APCDACCT	EOJ+2!
APCDCAT	EOJ+2!
APCDCLN	EOJ+2!
APCDCR	EOJ+2!
APCDDATE	EOJ+2!
APCDFN	EOJ+2!, 1+1, 2+1, 3+1*, PROCESS+8
APCDG	EOJ+2!, 1+1, 2+1, 3+1*, PROCESS+1, PROCESS+8, PROCESS+10
APCDJ	INFORM+2, INFORM+3!, INFORM+4, EOJ+2!
APCDLOC	EOJ+2!
APCDLOOK	EOJ+2!, GETVISIT+1*, GETVISIT+4!, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+10, PROCESS+11
APCDN	EOJ+2!, 1+1, 2+1, 3+1*, PROCESS+4, PROCESS+11
>> APCDPARM	GETPAT+4
APCDPAT	APCDACC+5, EOJ+2!, GETPAT+2, GETPAT+5
APCDPROC	MORE+1, MORE+2, EOJ+2!, GETTYPE+1, GETTYPE+4
>> APCDSWCR	PROCESS+4*
>> APCDSWD	PROCESS+4*
>> APCDSWV	PROCESS+4*
APCDT	EOJ+2!, 1+1, 2+1, 3+1*, PROCESS+2, PROCESS+3, PROCESS+6, PROCESS+7, PROCESS+11
APCDTYPE	EOJ+2!
>> APCDVDSP	DSPLY+1*
APCDVIGR	EOJ+2!, PROCESS+1*, PROCESS+2
APCDVLK	GETVISIT+2!
APCDVSIT	APCDACC+7, EOJ+2!, GETVISIT+1*, DSPLY+1, PROCESS+4, PROCESS+12
APCDX	INFORM+2*, INFORM+3!
APCDY	EOJ+2!
AUPNDAYS	EOJ+4!, GETPAT+1!
AUPNDOB	EOJ+4!, GETPAT+1!
AUPNDOD	EOJ+4!, GETPAT+1!
AUPNPAT	EOJ+4!, GETPAT+1!
AUPNSEX	EOJ+4!, GETPAT+1!
>> AUPNVSIT	PROCESS+12*
D	EOJ+3!
D0	EOJ+3!
DA	EOJ+3!, PROCESS+8!, PROCESS+10
DI	EOJ+3!
DIC	EOJ+3!, GETPAT+2!, PROCESS+10
DIC(0	GETPAT+2*
DIE	EOJ+3!, PROCESS+8*!
DIR	GETTYPE+2!
DIR("A"	GETTYPE+2*
DIR(0	GETTYPE+2*
>> DIRUT	GETTYPE+3
DIU	PROCESS+8!
DIV	PROCESS+8!
DQ	EOJ+3!
DR	EOJ+3!, PROCESS+8!, PROCESS+10
DX	EOJ+3!
IOF	INFORM+1
POP	EOJ+3!
S	EOJ+3!
U	GETPAT+4
X	EOJ+3!
Y	EOJ+3!, GETTYPE+4, GETPAT+3, GETPAT+5, PROCESS+9, PROCESS+13

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