PRSEMSG ;HISC/JH-EDUCATION TRACKING MESSAGES ;4/14/91
;;4.0;PAID;**20,25**;Sep 21, 1995
MSG ;
W !!,$C(7),"Another user is editing this record in ",PRSEGLO," File",!,"Try again later..."
Q
MSG2 S I=0,Y=1 W !,?2,"Current assignees are: "
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)))
W !,?2,"Delete assignees from the list by putting a minus (-) in front"
W !,?2,"of the name at the 'and Select:' prompt",!
Q
W N %,DIR,I,J,Y S DIR(0)="E" D ^DIR W @IOF
Q
MSG3 ;
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: ",!
Q
MSG4 ;
W !!,$C(7),"CLASS NOT OPEN FOR REGISTRATION.",!
Q
MSG5 ;
W !,$C(7),"NEW ENTRIES CANNOT BE ADDED TO THE SUPPLIER/PRESENTER FILE FROM THIS OPTION",!,"CONTACT THE EDUCATION PACKAGE COORDINATOR OR IRM"
Q
MSG6 ;
W !!,$C(7),"THE EDUCATION TRACKING SYSTEM IS CURRENTLY OFF-LINE - CONTACT IRM OR THE"
W !,$C(7),"EDUCATION TRACKING SYSTEM COORDINATOR: "
Q
MSG7 ;
W !!,$C(7),PRSENAM," is currently Registered for this ",PRSEPROG," Class!"
Q
MSG12 S I=0,Y=1 W !,?2,"Current selections are: "
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)))
W !,?2,"Delete selections from the list by putting a minus (-) in front"
W !,?2,"of the name at the 'and Select:' prompt",!
Q
MSG14 ;
W !!,$C(7),"ANOTHER USER IS EDITING THIS CLASS - TRY LATER"
Q
MSG15 ;
W !!,$C(7),"NEW ENTRIES CANNOT BE ADDED TO THE NEW PERSON FILE FROM THIS OPTION - CONTACT",!,"THE EDUCATION PACKAGE COORDINATOR OR IRM.",!
Q
MSG17 ;
W !!,$C(7),"MAX NUMBER OF STUDENTS REGISTERED - CONTACT EDUCATION TRACKING COORDINATOR"
Q
MSG18 ;
W !!,$C(7),PRSENAM," has already attended a ",!?2,PRSECLS," Class on ",PRSEDAT,!!
Q
MSG20 ;
W !,$C(7),"NO "_$S($G(REGSW)=1:"FUTURE/PRESENT ",1:"PAST/PRESENT ")_"SESSIONS ENTERED FOR THIS CLASS/TYPE"
Q
MSG21 ;
W !,?2,"Enter the name(s) of the recipient(s) of this Group in the following format:"
W !,?2," Lastname,first",!
Q
MSG22 ;
W !,?2,"In order to run the **Training Report By Service**"
W !,?2,"you must have the PRSE CORD key or programmer access."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSEMSG 2350 printed Oct 16, 2024@18:27:26 Page 2
PRSEMSG ;HISC/JH-EDUCATION TRACKING MESSAGES ;4/14/91
+1 ;;4.0;PAID;**20,25**;Sep 21, 1995
MSG ;
+1 WRITE !!,$CHAR(7),"Another user is editing this record in ",PRSEGLO," File",!,"Try again later..."
+2 QUIT
MSG2 SET I=0
SET Y=1
WRITE !,?2,"Current assignees are: "
+1 FOR Y=0:0
SET Y=$ORDER(PRSEXMY(Y))
if Y'>0
QUIT
WRITE !,?6,$SELECT('$DATA(^PRSPC(Y,0)):I,1:$PIECE(^(0),U))
if Y-6<IOSL
DO W
if ($DATA(DUOUT)!($DATA(DTOUT)))
GOTO QQ^PRSEED4
+2 WRITE !,?2,"Delete assignees from the list by putting a minus (-) in front"
+3 WRITE !,?2,"of the name at the 'and Select:' prompt",!
+4 QUIT
W NEW %,DIR,I,J,Y
SET DIR(0)="E"
DO ^DIR
WRITE @IOF
+1 QUIT
MSG3 ;
+1 WRITE !!,$CHAR(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: ",!
+2 QUIT
MSG4 ;
+1 WRITE !!,$CHAR(7),"CLASS NOT OPEN FOR REGISTRATION.",!
+2 QUIT
MSG5 ;
+1 WRITE !,$CHAR(7),"NEW ENTRIES CANNOT BE ADDED TO THE SUPPLIER/PRESENTER FILE FROM THIS OPTION",!,"CONTACT THE EDUCATION PACKAGE COORDINATOR OR IRM"
+2 QUIT
MSG6 ;
+1 WRITE !!,$CHAR(7),"THE EDUCATION TRACKING SYSTEM IS CURRENTLY OFF-LINE - CONTACT IRM OR THE"
+2 WRITE !,$CHAR(7),"EDUCATION TRACKING SYSTEM COORDINATOR: "
+3 QUIT
MSG7 ;
+1 WRITE !!,$CHAR(7),PRSENAM," is currently Registered for this ",PRSEPROG," Class!"
+2 QUIT
MSG12 SET I=0
SET Y=1
WRITE !,?2,"Current selections are: "
+1 FOR I=0:0
SET I=$ORDER(PRSEMI(I))
if I'>0
QUIT
SET Y=(Y+1)
WRITE !,?6,$SELECT('$DATA(^PRSE(452.3,I,0)):I,1:$PIECE(^(0),U))
if Y-6<IOSL
DO W
if ($DATA(DUOUT)!($DATA(DTOUT)))
GOTO QQ^PRSEED4
+2 WRITE !,?2,"Delete selections from the list by putting a minus (-) in front"
+3 WRITE !,?2,"of the name at the 'and Select:' prompt",!
+4 QUIT
MSG14 ;
+1 WRITE !!,$CHAR(7),"ANOTHER USER IS EDITING THIS CLASS - TRY LATER"
+2 QUIT
MSG15 ;
+1 WRITE !!,$CHAR(7),"NEW ENTRIES CANNOT BE ADDED TO THE NEW PERSON FILE FROM THIS OPTION - CONTACT",!,"THE EDUCATION PACKAGE COORDINATOR OR IRM.",!
+2 QUIT
MSG17 ;
+1 WRITE !!,$CHAR(7),"MAX NUMBER OF STUDENTS REGISTERED - CONTACT EDUCATION TRACKING COORDINATOR"
+2 QUIT
MSG18 ;
+1 WRITE !!,$CHAR(7),PRSENAM," has already attended a ",!?2,PRSECLS," Class on ",PRSEDAT,!!
+2 QUIT
MSG20 ;
+1 WRITE !,$CHAR(7),"NO "_$SELECT($GET(REGSW)=1:"FUTURE/PRESENT ",1:"PAST/PRESENT ")_"SESSIONS ENTERED FOR THIS CLASS/TYPE"
+2 QUIT
MSG21 ;
+1 WRITE !,?2,"Enter the name(s) of the recipient(s) of this Group in the following format:"
+2 WRITE !,?2," Lastname,first",!
+3 QUIT
MSG22 ;
+1 WRITE !,?2,"In order to run the **Training Report By Service**"
+2 WRITE !,?2,"you must have the PRSE CORD key or programmer access."
+3 QUIT
