Routine: AQAQREAP

Information

AQAQREAP ;IHS/ANMC/LJF - PENDING REAPPOINTMENTS; [ 01/07/94 10:57 AM ]

Name	Comments	DBIA/ICR reference
ALL	;***> choose one or all classes or categories
END
TYPE
DEV
ONE	;***> choose which class or category to print
REAP1	;**> set variables then call FileMan print
SELECT

Name	Field # of Occurrence
C^%DTC	AQAQREAP+17, AQAQREAP+18
^%ZIS	DEV
^%ZISC	DEV+3, END
^%ZTLOAD	DEV+3
KILL^AQAQUTIL	END
EN1^DIP	REAP1+6
^DIR	AQAQREAP+16, SELECT, ALL+3, ONE+2, ONE+7, REAP1+7

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?20,"PENDING REAPPOINTMENT APPLICATIONS",!! Line Location: AQAQREAP+4
Function Call: WRITE	Prompt: ?5,"This report will print summaries on each provider whose" Line Location: AQAQREAP+5
Function Call: WRITE	Prompt: !,"reappointment application is due, not completed or overdue." Line Location: AQAQREAP+6
Function Call: WRITE	Prompt: !,"The summaries will print in alphabetical order.",!! Line Location: AQAQREAP+7
Function Call: WRITE	Prompt: ?40," INACTIVE WARD " Line Location: ONE+4
Function Call: WRITE	Prompt: @IOF Line Location: REAP1+7
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Routine Call	DIR Line Location: AQAQREAP+16 SELECT ALL+3 ONE+2 ONE+7 REAP1+7
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	ONE+4

Name	Line Occurrences
DEV	SELECT+2, ALL+3, ONE+1
END	AQAQREAP+16, SELECT+1, ALL+4, ONE+1, ONE+6, DEV
REAP1	DEV
TYPE	SELECT+1

Name	Field # of Occurrence
^("I"	ONE+4

Name	Field # of Occurrence
>> %ZIS	DEV*
AQAQDUE	AQAQREAP+18*, DEV+3!
>> AQAQI	DEV+2*
AQAQSRT	SELECT+2, ALL+3, ONE+1, ONE+2!, ONE+5, ONE+6, ONE+7!, ONE+9, DEV+3!, REAP1+3 , REAP1+4
AQAQTYP	SELECT+1*, SELECT+2, ALL+2, ONE+1, DEV+3!, REAP1+3, REAP1+4
>> BY	REAP1+2, REAP1+3, REAP1+4*
>> DIC	REAP1+1*
DIR	AQAQREAP+9!, TYPE!, ALL+1!, ONE+2!, ONE+7!, REAP1+7!
DIR("?"	AQAQREAP+11, AQAQREAP+12, AQAQREAP+13, AQAQREAP+14, AQAQREAP+15*
DIR("A"	AQAQREAP+10, TYPE, TYPE+1, TYPE+2, TYPE+3, SELECT, ALL+2, REAP1+7
DIR("B"	AQAQREAP+9, ALL+3
DIR(0	AQAQREAP+9, SELECT, ALL+1, ONE+2, ONE+7, REAP1+7
>> DIRUT	AQAQREAP+16, ALL+4
>> DIS(0	REAP1+5*
DT	AQAQREAP+17
>> DTOUT	SELECT+1, ONE+3, ONE+8
>> DUOUT	SELECT+1, ONE+3, ONE+8
>> FLDS	REAP1+1*
>> FR	REAP1+2, REAP1+3, REAP1+4*
IO("Q"	DEV, DEV+1!
IOF	AQAQREAP+4, REAP1+7, END
ION	REAP1+1
>> IOP	REAP1+1*
>> L	REAP1+1*
>> POP	DEV
>> TO	REAP1+2, REAP1+3, REAP1+4*
U	ONE+4, REAP1+3
>> X	AQAQREAP+18, SELECT+1, ONE+3, ONE+8
>> X1	AQAQREAP+17, AQAQREAP+18
>> X2	AQAQREAP+17, AQAQREAP+18
>> Y	AQAQREAP+17, SELECT+1, ALL+3, ONE+3, ONE+4, ONE+5, ONE+8, ONE+9
>> Y(0	REAP1+4
>> ZTDESC	DEV+1*
>> ZTQUEUED	REAP1+7
>> ZTRTN	DEV+1*
>> ZTSAVE(	DEV+2*
ZTSK	DEV+3!