| 1 | PRSEMSG ;HISC/JH-EDUCATION TRACKING MESSAGES ;4/14/91
|
|---|
| 2 | ;;4.0;PAID;**20,25**;Sep 21, 1995
|
|---|
| 3 | MSG ;
|
|---|
| 4 | W !!,$C(7),"Another user is editing this record in ",PRSEGLO," File",!,"Try again later..."
|
|---|
| 5 | Q
|
|---|
| 6 | MSG2 S I=0,Y=1 W !,?2,"Current assignees are: "
|
|---|
| 7 | F Y=0:0 S Y=$O(PRSEXMY(Y)) Q:Y'>0 W !,?6,$S('$D(^PRSPC(Y,0)):I,1:$P(^(0),U)) D W:Y-6<IOSL G QQ^PRSEED4:($D(DUOUT)!($D(DTOUT)))
|
|---|
| 8 | W !,?2,"Delete assignees from the list by putting a minus (-) in front"
|
|---|
| 9 | W !,?2,"of the name at the 'and Select:' prompt",!
|
|---|
| 10 | Q
|
|---|
| 11 | W N %,DIR,I,J,Y S DIR(0)="E" D ^DIR W @IOF
|
|---|
| 12 | Q
|
|---|
| 13 | MSG3 ;
|
|---|
| 14 | W !!,$C(7),"There is no COST CENTER/ORGANIZATION code or the SEPARATION IND is set to",!?2,"'Y'es in the PAID EMPLOYEE (#450) file for this employee - CANNOT CONTINUE: ",!
|
|---|
| 15 | Q
|
|---|
| 16 | MSG4 ;
|
|---|
| 17 | W !!,$C(7),"CLASS NOT OPEN FOR REGISTRATION.",!
|
|---|
| 18 | Q
|
|---|
| 19 | MSG5 ;
|
|---|
| 20 | W !,$C(7),"NEW ENTRIES CANNOT BE ADDED TO THE SUPPLIER/PRESENTER FILE FROM THIS OPTION",!,"CONTACT THE EDUCATION PACKAGE COORDINATOR OR IRM"
|
|---|
| 21 | Q
|
|---|
| 22 | MSG6 ;
|
|---|
| 23 | W !!,$C(7),"THE EDUCATION TRACKING SYSTEM IS CURRENTLY OFF-LINE - CONTACT IRM OR THE"
|
|---|
| 24 | W !,$C(7),"EDUCATION TRACKING SYSTEM COORDINATOR: "
|
|---|
| 25 | Q
|
|---|
| 26 | MSG7 ;
|
|---|
| 27 | W !!,$C(7),PRSENAM," is currently Registered for this ",PRSEPROG," Class!"
|
|---|
| 28 | Q
|
|---|
| 29 | MSG12 S I=0,Y=1 W !,?2,"Current selections are: "
|
|---|
| 30 | F I=0:0 S I=$O(PRSEMI(I)) Q:I'>0 S Y=(Y+1) W !,?6,$S('$D(^PRSE(452.3,I,0)):I,1:$P(^(0),U)) D W:Y-6<IOSL G QQ^PRSEED4:($D(DUOUT)!($D(DTOUT)))
|
|---|
| 31 | W !,?2,"Delete selections from the list by putting a minus (-) in front"
|
|---|
| 32 | W !,?2,"of the name at the 'and Select:' prompt",!
|
|---|
| 33 | Q
|
|---|
| 34 | MSG14 ;
|
|---|
| 35 | W !!,$C(7),"ANOTHER USER IS EDITING THIS CLASS - TRY LATER"
|
|---|
| 36 | Q
|
|---|
| 37 | MSG15 ;
|
|---|
| 38 | W !!,$C(7),"NEW ENTRIES CANNOT BE ADDED TO THE NEW PERSON FILE FROM THIS OPTION - CONTACT",!,"THE EDUCATION PACKAGE COORDINATOR OR IRM.",!
|
|---|
| 39 | Q
|
|---|
| 40 | MSG17 ;
|
|---|
| 41 | W !!,$C(7),"MAX NUMBER OF STUDENTS REGISTERED - CONTACT EDUCATION TRACKING COORDINATOR"
|
|---|
| 42 | Q
|
|---|
| 43 | MSG18 ;
|
|---|
| 44 | W !!,$C(7),PRSENAM," has already attended a ",!?2,PRSECLS," Class on ",PRSEDAT,!!
|
|---|
| 45 | Q
|
|---|
| 46 | MSG20 ;
|
|---|
| 47 | W !,$C(7),"NO "_$S($G(REGSW)=1:"FUTURE/PRESENT ",1:"PAST/PRESENT ")_"SESSIONS ENTERED FOR THIS CLASS/TYPE"
|
|---|
| 48 | Q
|
|---|
| 49 | MSG21 ;
|
|---|
| 50 | W !,?2,"Enter the name(s) of the recipient(s) of this Group in the following format:"
|
|---|
| 51 | W !,?2," Lastname,first",!
|
|---|
| 52 | Q
|
|---|
| 53 | MSG22 ;
|
|---|
| 54 | W !,?2,"In order to run the **Training Report By Service**"
|
|---|
| 55 | W !,?2,"you must have the PRSE CORD key or programmer access."
|
|---|
| 56 | Q
|
|---|
