PRSEUTL3 ;HISC/JH/MD-EMPLOYEE EDUCATION REPORT - UTILITY ;8/10/99
Source file <PRSEUTL3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1 | ; DEFAULT FROM CLASS ROOM HOURS WHILE ON DUTY
|
|
| EN2(DUZ) | ; USER SERVICE SELECTION ROUTINE
|
|
| EN3(PRDA) | ; USER SERVICE SELECTION ROUTINE WITH NEW PERSON FILE POINTER
|
|
| SALCLS | ; SETS AL_CLS XREF FOR FIELD 2 IN FILE 452
|
|
| DALCLS | ; KILLS AL_CLS XREF FOR FIELD 2 IN FILE 452
|
|
| SALCLS1 | ; SETS AL_CLS XREF FOR FIELD 1 IN FILE 452
|
|
| DALCLS1 | ; KILLS AL_CLS XREF FOR FIELD 1 IN FILE 452
|
|
| EN4(DUZ) | ; PRSE-CORD SECURITY KEY CHECK
|
|
| EN5(XXX) | ; ROUND VALUE IN VARIBLE XXX
|
|
| EN6(DUZ) | ; PRSE SUP SECURITY KEY CHECK
|
|
| EN7(X,VA200DA,DA) | ; DETERMINE THE SPONSORING SERVICE OF A CLASS
|
|
| Q | ||
| EN8(PRX) | ; LATEST DATE
|
|
| EN9(DUZ) | ; PRSE TRAIN SECURITY KEY CHECK
|
|
| EN10(SSN) | ; USER TITLE/OCCUPATION
|
|
| EN11(X,D0) | ; CHECK CLASS FILE FOR DUPLICATE NAME IF FOUND RETURN 1
|
|
| EN12(D0) | ; INPUT: D0 = File 200 IEN
; OUTPUT: 0 - No SSN found in file 200 ; 1 - SSN found in file 200 |
|
| EN13(X) | ; INPUT 'X' = internal entry # for file 200
; OUTPUT = internal entry # for file 450 or null |
