Routine: APCD3MT

Name	Comments	DBIA/ICR reference
CALL3M	; CALL 3M INTERFACE WITH VISIT DATA
PROCESS	;
EOJ	;
GETPAT	; GET PATIENT FOR TEST DATA
GETVISIT	; GET VISIT FOR TEST DATA
START	;
INIT	; INITIALIZATION
ASK	; ASK USER YES OR NO

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,APCD3V," ",$P(X,U)_" "_$P(X,U,9) Line Location: GETVISIT+7
Routine Call	DIC Line Location: GETPAT+3
Routine Call	DIR Line Location: ASK+2

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

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	GETVISIT+5, GETVISIT+13
^AUPNVSIT("AC"	GETVISIT+4

Name	Field # of Occurrence
^(0	GETVISIT+13

Name	Field # of Occurrence
>> APCD3MIP	CALL3M+2, CALL3M+4*
APCD3Q	PROCESS+2, INIT+1, INIT+6, EOJ+1!
APCD3V	GETVISIT+1~, GETVISIT+3, GETVISIT+4, GETVISIT+5, GETVISIT+7, GETVISIT+10
>> APCDCAT	GETVISIT+13*
>> APCDCLN	GETVISIT+13*
>> APCDDATE	GETVISIT+13*
>> APCDLOC	GETVISIT+13*
>> APCDPAT	INIT+3, GETPAT+1, GETPAT+5, GETVISIT+4
>> APCDTYPE	GETVISIT+13*
>> APCDVSIT	INIT+5, GETVISIT+2, GETVISIT+4, GETVISIT+10, GETVISIT+12, GETVISIT+13
DA	ASK+2!
>> DIC	GETPAT+2*
>> DIC(0	GETPAT+2*
DIR	ASK+2!
DIR("A"	ASK+2*
DIR("B"	ASK+2*
DIR(0	ASK+2*
>> DIRUT	GETVISIT+4
U	GETVISIT+7, GETVISIT+13
X	GETVISIT+1~, GETVISIT+5, GETVISIT+6, GETVISIT+7, ASK+1~, CALL3M+2, CALL3M+4
Y	GETPAT+4, GETPAT+5, GETVISIT+1~, GETVISIT+9

Information