Routine: PRSEED8

Package	Total	Call Graph
PAID	5	DEL1^PRSEED3 ADD^PRSEED9 ^PRSEKILL (MSG3,MSG6)^PRSEMSG ($$EN3,$$EN4,$$EN8,EN2)^PRSEUTL3
VA FileMan	4	^DIC YN^DICN DT^DIQ ^DIR
Kernel	1	$$ADD^XUSERNEW

Package	Total	Caller Graph
PAID	2	PRSE-ATTEND PRSEED0

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; ENTRY FROM OPTION PRSE-ATTD-CLS
DATE
STUD	; STUDENT SELECTION
STUD1
ADD	;
UNLOC
KILL
Q	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN1+6
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: ! Line Location: STUD+4
Function Call: WRITE	Prompt: $C(7),!!,"NO SSN OR NEW PERSON (#200) FILE ENTRY FOR THIS EMPLOYEE-CANNOT CONTINUE" Line Location: STUD1+10
Function Call: WRITE	Prompt: ! Line Location: STUD1+10
Function Call: WRITE	Prompt: ! Line Location: STUD1+12
Function Call: WRITE	Prompt: !!?5,$C(7),N1," completed "_PRSEPROG_" on this date." Line Location: ADD+1
Function Call: WRITE	Prompt: !!,"Do you want to credit "_N1_" - "_PRSESVC_" for attending ",!,PRSEPROG Line Location: ADD+3
Function Call: WRITE	Prompt: $C(7),!!,"Answer YES or NO." Line Location: ADD+3
Function Call: WRITE	Prompt: !!?7,N1,$C(7),?($X+3),PRSEPROG,?39," " Line Location: ADD+5
Function Call: WRITE	Prompt: ! Line Location: ADD+5
Routine Call	DIC Line Location: EN1+7 EN1+8 DATE+1 STUD+13 STUD1+2
Routine Call	DIR Line Location: EN1+4

FileNo	Call Tags
^PRSE(452.1 - [#452.1]	Classic Fileman Calls
^PRSE(452.8 - [#452.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PRSE(452 - [#452]	ADD+1
^PRSE(452.7 - [#452.7]	EN1+1, STUD+2, STUD+9
^PRSE(452.8 - [#452.8]	STUD1+2, UNLOC
^PRSP(454.1 - [#454.1]	ADD+2
^VA(200 - [#200]	STUD1+9, STUD1+10

Name	Line Occurrences
ADD	STUD1+11, ADD+3
Q	EN1+2, EN1+4, EN1+7, EN1+8, DATE+1, STUD+2, STUD1, STUD1+2, STUD1+9
STUD	STUD1+11, STUD1+12
STUD1	STUD+2

Name	Field # of Occurrence
>> %	ADD+3*, ADD+4
>> DA	ADD+1*
>> DA(1	DATE, STUD1+2
>> DA(2	STUD1+2*, UNLOC
DIC	EN1+6, EN1+7!, EN1+8!, DATE, DATE+1!, STUD+12, STUD+13!, STUD1+2*!
DIC("A"	EN1+6, STUD+11
DIC("B"	EN1+10*
DIC("S"	EN1+6, EN1+8, DATE*
DIC("W"	EN1+6, DATE, STUD1+2*
DIC(0	EN1+6, EN1+8, DATE, STUD+12, STUD1+2*
DIR	EN1+4!, UNLOC!
DIR("A"	EN1+4*
DIR(0	EN1+4*
>> DTOUT	EN1+4, EN1+7, EN1+8, DATE+1
>> DUOUT	EN1+4, EN1+8, DATE+1
DUZ	EN1+2, STUD+2, STUD+9
DUZ(0	EN1+2, STUD+2, STUD+9
>> N1	STUD1+3, STUD1+6, STUD1+8, STUD1+9, ADD+1, ADD+3, ADD+5
>> NOUT	EN1+4*
POUT	EN1+8, STUD+1!, STUD1+11!, ADD+4, ADD+5
POUT(1	STUD+2, STUD+6, STUD+13, STUD1, STUD1+9
>> PRDA	STUD+7, STUD+14, STUD1+6, STUD1+8
>> PRDA(0	STUD+14*, STUD+16
>> PRDA(1	DATE+2*, STUD1+2
>> PRDA(2	EN1+10*, DATE, STUD1+2
>> PRDAT	DATE+2*, ADD+1, ADD+5
>> PRSE	EN1+6*
>> PRSEDT	EN1+10
>> PRSELEN	EN1+8*
>> PRSEMI	EN1+8*
>> PRSEPROG	EN1+10*, ADD+1, ADD+3, ADD+5
>> PRSEPROG(1	EN1+8*
>> PRSESER	EN1+2
>> PRSESSN	STUD1+10*
>> PRSESVC	ADD+2*, ADD+3
>> PRSETYP	EN1+4*, ADD+1
>> PRSEY	EN1+10*
>> PRX	EN1+10*
U	EN1+4, EN1+7, EN1+8, DATE+2, STUD+2, STUD+7, STUD+9, STUD+14, STUD1+2, STUD1+3 , STUD1+9, STUD1+10, ADD+2
>> VA200DA	STUD1+9*, STUD1+10, ADD+1, ADD+2
X	EN1+1, EN1+4, EN1+7, EN1+8, DATE+1, STUD+5, STUD+6, STUD+7, STUD+14, STUD1+2 , STUD1+4, STUD1+10, KILL!
Y	EN1+4, EN1+6!, EN1+7, EN1+8!, EN1+10, DATE+2, STUD+13, STUD+14, STUD+16, STUD1+2! , STUD1+3, STUD1+4, STUD1+12, ADD+1, ADD+5
Y(0	EN1+8, EN1+10