source: FOIAVistA/trunk/r/PAID-PRS/PRSEMSG.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.2 KB
Line 
1PRSEMSG ;HISC/JH-EDUCATION TRACKING MESSAGES ;4/14/91
2 ;;4.0;PAID;**20,25**;Sep 21, 1995
3MSG ;
4 W !!,$C(7),"Another user is editing this record in ",PRSEGLO," File",!,"Try again later..."
5 Q
6MSG2 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
11W N %,DIR,I,J,Y S DIR(0)="E" D ^DIR W @IOF
12 Q
13MSG3 ;
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
16MSG4 ;
17 W !!,$C(7),"CLASS NOT OPEN FOR REGISTRATION.",!
18 Q
19MSG5 ;
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
22MSG6 ;
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
26MSG7 ;
27 W !!,$C(7),PRSENAM," is currently Registered for this ",PRSEPROG," Class!"
28 Q
29MSG12 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
34MSG14 ;
35 W !!,$C(7),"ANOTHER USER IS EDITING THIS CLASS - TRY LATER"
36 Q
37MSG15 ;
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
40MSG17 ;
41 W !!,$C(7),"MAX NUMBER OF STUDENTS REGISTERED - CONTACT EDUCATION TRACKING COORDINATOR"
42 Q
43MSG18 ;
44 W !!,$C(7),PRSENAM," has already attended a ",!?2,PRSECLS," Class on ",PRSEDAT,!!
45 Q
46MSG20 ;
47 W !,$C(7),"NO "_$S($G(REGSW)=1:"FUTURE/PRESENT ",1:"PAST/PRESENT ")_"SESSIONS ENTERED FOR THIS CLASS/TYPE"
48 Q
49MSG21 ;
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
53MSG22 ;
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
Note: See TracBrowser for help on using the repository browser.