source: WorldVistAEHR/trunk/r/PAID-PRS/PRSEED5.m@ 619

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1PRSEED5 ;HISC/JH/MD-EMPLOYEE EDIT ATTENDANCE ;9/7/95 09:48
2 ;;4.0;PAID;;Sep 21, 1995
3EN1 ; ENTRY POINT FROM OPTION PRSE-IND-REG
4 S X=$G(^PRSE(452.7,1,"OFF")) I X=""!(X=1) D MSG6^PRSEMSG Q
5 S PRSESLF=1 S (PRDA,PRSEEMP)=+DUZ,PRSESSN=$P($G(^VA(200,+DUZ,1)),U,9),PRSENAM=$P($G(^VA(200,+DUZ,0)),U)
6 I (PRDA="") W !!,$C(7),"INCOMPLETE EMPLOYEE FILE DATA-CANNOT CONTINUE!" G ^PRSEKILL
7 I PRSESSN=""!(PRSENAM="") W !!,$C(7),"INCOMPLETE NEW PERSON DATA-CANNOT CONTINUE!" G ^PRSEKILL
8 D EN1^PRSEED6
9 G ^PRSEKILL
10 ;
11EN2 ; This entry point is for individual student self-attendence.
12 S VA200DA=DUZ,N1=$P($G(^VA(200,+DUZ,0)),U),PRSESSN=$P($G(^VA(200,DUZ,1)),U,9) ;S VA200="I +$$EN3^PRSEUTL3($G(PRDA))=PRSESER,^VA(200,DUZ,0)"
13 D EN2^PRSEUTL3($G(DUZ)) I PRSESER=""&'(DUZ(0)="@") D MSG3^PRSEMSG G ^PRSEKILL
14 ;
15 S NOUT=0,DIR(0)="SO^M:Mandatory Training (MI);C:Continuing Education;O:Miscellaneous;W:Unit/Location Training",DIR("A")="Select a Training Type" D ^DIR K DIR G:$D(DTOUT)!($D(DUOUT))!(U[X)!(Y="") ^PRSEKILL S PRSETYP=Y
16 ;
17ASK W ! K Y S DIC="^PRSE(452.1,",DIC("A")="Select CLASS: ",DIC(0)="AEMZ",DIC("W")="S ZZ=$P(^(0),U,8) W ?($X+5),$P(^PRSP(454.1,ZZ,0),U)"
18 I PRSETYP="M" S DIC("S")="S YY=$O(^PRSE(452.8,""B"",+Y,0)) I $P(^PRSE(452.1,+Y,0),U,7)=""M"",($P(^(0),U,8)=PRSESER!($P(^(0),U,9)=0)&($D(^PRSPC(DUZ,6,""B"",+Y)))),$D(^PRSE(452.8,+YY,3,""C"")),(9999999-$O(^PRSE(452.8,+YY,3,""C"",0)))'>(DT_.24)"
19 E S DIC("S")="S YY=$O(^PRSE(452.8,""B"",+Y,0)) I $P(^PRSE(452.1,+Y,0),U,7)=PRSETYP,($P(^(0),U,8)=PRSESER!($P(^(0),U,9)=0)),$D(^PRSE(452.8,+YY,3,""C"")),(9999999-$O(^PRSE(452.8,+YY,3,""C"",0)))'>(DT_.24)"
20 D ^DIC K DIC I $D(DTOUT)!($D(DTOUT))!(U[X)!'(+Y>0) G ^PRSEKILL
21 S PRSEMI=+Y,X=$P(Y,U,2),DIC="^PRSE(452.8,",DIC(0)="ZE",DIC("S")="I $P(^(0),U)=PRSEMI" K Y D ^DIC K DIC I $D(DTOUT)!($D(DUOUT))!'(+Y>0)!(U[X) S POUT=1 G ^PRSEKILL
22 ;
23 S PRDA(2)=+Y,PRSEY=Y(0),PRSENAM=Y(0,0),Y=$S($D(^PRSE(452.8,PRDA(2),3,"C")):9999999-$O(^PRSE(452.8,PRDA(2),3,"C",0)),1:"") D:+Y D^DIQ S:'(Y="") DIR("B")=Y
24 S DIR(0)="PAO^PRSE(452.8,PRDA(2),3,:EMQZ",DIR("A")="Select DATE: " K Y D ^DIR K DIR I $D(DTOUT)!($D(DUOUT))!("^"[X) G EN2
25 W ! S PRDA(1)=+Y,PRDAT=$P(Y,U,2),Y="" D ADD^PRSEED6
26 G ASK
Note: See TracBrowser for help on using the repository browser.