Routine: SDYRENR

Information

SDYRENR ;ALB/ABR - PATIENT FILE ENROLL CLINIC CLEANUP ; SEP 28 1995

Source file <SDYRENR.m>

Name	Comments	DBIA/ICR reference
CLN	;entry point from Queue
EN	;
TEXT	;display text
QUE
TEMPLATE	; clean-up of unused template
MAIL	;
DELETE	; delete incomplete enrollment clinic

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"<<CLEAN-UP OF INCOMPLETE ENROLLMENT CLINICS IN PATIENT FILE>>",! Line Location: EN+2
Function Call: WRITE	Prompt: !!,*7,">> USER NOT DEFINED. CANNOT CONTINUE" Line Location: EN+3
Function Call: WRITE	Prompt: !,X Line Location: EN+4
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):">>>Task "_ZTSK_" has been queued.",1:">>> UNABLE TO QUEUE THIS JOB.") Line Location: QUE+2
Function Call: WRITE	Prompt: ">> DONE!",! Line Location: CLN+7
Routine Call	DIE Line Location: DELETE+3
Routine Call	DIC Line Location: TEMPLATE+3

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	CLN+3, CLN+5, CLN+6

Name	Field # of Occurrence
^(1	CLN+6

Name	Field # of Occurrence
DA	DELETE+1~, DELETE+2, TEMPLATE+1~, TEMPLATE+4
DA(1	DELETE+2*
DIC	TEMPLATE+1~, TEMPLATE+2*
DIC(0	TEMPLATE+2*
DIE	DELETE+1~, DELETE+2*
DIFROM	MAIL+1~
DIK	TEMPLATE+1~, TEMPLATE+2*
DR	DELETE+1~, DELETE+2*
DTIME	EN+3
DUZ	EN+3, MAIL+6
I	EN+1~, EN+4*
SDI	CLN+1~, CLN+2, CLN+3, CLN+5, CLN+6, DELETE+2
SDJ	CLN+1~, CLN+4, CLN+5, CLN+6, DELETE+2
SDK	CLN+1~, CLN+2, CLN+5
SDSTART	CLN+1~, CLN+2*, MAIL+2
SDTEXT	MAIL+1~
SDTEXT(1	MAIL+2*
SDTEXT(2	MAIL+3*
SDTEXT(3	MAIL+4*
SDTEXT(4	MAIL+4*
U	EN+3, CLN+6
X	EN+1~, EN+4, TEMPLATE+1~, TEMPLATE+2
>> XMDUZ	MAIL+6*
>> XMSUB	MAIL+5*
>> XMTEXT	MAIL+5*
>> XMY(	MAIL+6*
Y	TEMPLATE+1~, TEMPLATE+4
ZTDESC	EN+1~, QUE*
ZTIO	EN+1~, QUE*
ZTQUEUED	EN+1~, CLN+5, CLN+7
ZTRTN	EN+1~, QUE*
ZTSK	EN+1~, QUE+2

Name	Field # of Occurrence
$T(TEXT+I	EN+4