Routine: PRSEUTL2

Information

PRSEUTL2 ;HISC/JH/MD-EDUCATIONAL SECURITY ROUTINE ;8/11/92

Name	Comments	DBIA/ICR reference
EN2(Y)	; FUTURE CLASS SCREEN
EN3(Y)	; PAST CLASS SCREEN
EN4(PRX)	; LATEST FUTURE DATE
EN5	; ED. REPORT PROMPTS
CHECK
EN6	; EMPLOYEE SELECTION
EN8	; CLASS LOOKUP/452.8 NEW ENTRY
DATE	; START DATE LOOKUP
KILL	; DELETE CLASS FROM 452.8 FILE
EN9	; INPUT TRANSFORM FOR .01-1 SUBFIELDS OF FIELD 89 IN FILE 452.8
EN10	;INPUT TRANSFORM FOR 2-13 FIELDS OF FILE 452
EN12(PRCOD)	; TITLE
EN13(COSTCEN)	; LOCATION

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Select TRAINING CLASS (Press return for all classes): " Line Location: EN5+4
Function Call: WRITE	Prompt: ! Line Location: EN8+1
Function Call: WRITE	Prompt: $C(7),!!,?5,"The START DATE is required to enter this class in the Registration File.",! Line Location: DATE+3
Function Call: WRITE	Prompt: $C(7),!!,?5,"The START DATE is required to enter this class in the Registration File.",!,?5,"Enter '^' to delete the class and exit",! Line Location: DATE+7
Function Call: WRITE	Prompt: $C(7),!,?5,"<"_$P(^PRSE(452.1,XX,0),U)_"> DELETED !" Line Location: KILL+1
Function Call: WRITE	Prompt: !?5,PRSE("HELP") Line Location: EN9+4
Function Call: WRITE	Prompt: !?5,PRSE("HELP") Line Location: EN10+4