Routine: SDYCENR

Information

SDYCENR ;ALB/CAW - CLINIC ENROLLMENT ; 7/18/94

Source file <SDYCENR.m>

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Scheduling	1	^SDYCENR1

Name	Comments	DBIA/ICR reference
EN
QUE()	; -- que job ; return: did job que [ 1\|yes 0\|no ]
WRT	;
ENQ
INIT	; Init variables
LOOP1	; Find inactive enrollments with no date of discharge
LOOP	; Loop through the enrollment info

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The following will provide a listing which will include patients that " Line Location: WRT+1
Function Call: WRITE	Prompt: !,"have an inactive enrollment with no date of discharge. Because the " Line Location: WRT+2
Function Call: WRITE	Prompt: !,"date of discharge cannot be automatically determined, the dates of " Line Location: WRT+3
Function Call: WRITE	Prompt: !,"discharge will have to be entered manually via the 'Edit Clinic " Line Location: WRT+4
Function Call: WRITE	Prompt: !,"Enrollment Data' option.",! Line Location: WRT+5
Routine Call	%ZIS Line Location: EN+2

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	LOOP+4, LOOP+5, LOOP+6, LOOP1+1
^DPT("AEB1"	LOOP+2!, LOOP+7*
^SC - [#44]	LOOP1+2
^TMP("EN2"	LOOP+3!, LOOP1+2*

Name	Field # of Occurrence
^(	LOOP+5, LOOP+6

Name	Field # of Occurrence
>> %ZIS	EN+2*
IO("Q"	EN+3, QUE+3!
>> POP	EN+2
SDASH	EN~, ENQ!, INIT+1*
SDCLIN	LOOP+1~, LOOP+5*, LOOP+7, LOOP1+1, LOOP1+2
SDCLN	LOOP+1~, LOOP+5*, LOOP+6, LOOP+7
SDENR	LOOP+1~, LOOP+6*, LOOP+7
SDENROL	LOOP+1~, LOOP+6*, LOOP+7, LOOP1+1
SDFLAG	EN~
SDPAGE	EN~, ENQ!, INIT+1*
SDPAT	LOOP+1~, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP1+1
>> SDPT	LOOP1+1*, LOOP1+2
SDQUIT	EN~, ENQ!, INIT+1*
U	LOOP1+1, LOOP1+2
>> Y	EN+4*
>> ZTDESC	QUE+4*
>> ZTQUEUED	ENQ+1
>> ZTRTN	QUE+4*
>> ZTSAVE("SDASH"	QUE+5*
>> ZTSAVE("SDPAGE"	QUE+5*
>> ZTSAVE("SDQUIT"	QUE+5*
ZTSK	QUE+3!, QUE+6, QUE+7