| 1 | PRSEPOL0 ;HISC/DAD,MD-OLDE TRAINING CODING REPORT ;3/31/94
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | EN1 ; ENTRY POINT FROM OPTION
|
|---|
| 4 | S X=$G(^PRSE(452.7,1,"OFF")) I X=""!(X=1) D MSG6^PRSEMSG Q
|
|---|
| 5 | D EN2^PRSEUTL3($G(DUZ))
|
|---|
| 6 | I PRSESER'>0,'(DUZ(0)="@") D MSG3^PRSEMSG S PRSEQUIT=1 G EXIT
|
|---|
| 7 | K PSP,PSPC S PSPC=PRSESER,PSPC("TX")=PRSESER("TX"),PSP=0
|
|---|
| 8 | I (DUZ(0)["@"!(+$$EN4^PRSEUTL3($G(DUZ)))) D G:PRSEQUIT EXIT
|
|---|
| 9 | . K POUT D EN3^PRSEUTL1 S PRSEQUIT=$S($D(POUT):1,1:0)
|
|---|
| 10 | . S PSP=+$G(PSP),PSPC("TX")=$G(PSPC),PSPC=+$G(PSPC(1))
|
|---|
| 11 | . Q
|
|---|
| 12 | I PSP S PRSESEL="A" G CONT
|
|---|
| 13 | SELECT K DIR S DIR(0)="SO^A:(A)ll Employees For a Service;S:(S)elected Service Employees",DIR("A")="Select ASSIGNMENT OPTION" D ^DIR
|
|---|
| 14 | S PRSESEL=Y I $D(DIRUT) S PRSEQUIT=1 G EXIT
|
|---|
| 15 | I PRSESEL="S" W ! K PRSEXMY F S Y=-1 W !,$S($O(PRSEXMY(0))>0:"Select Another Employee: ",1:"Select EMPLOYEE: ") R X:DTIME S:'$T X="^^" S:X="" Y="" Q:"^^"[X D Q:(Y<0)
|
|---|
| 16 | . I X["?" D
|
|---|
| 17 | .. D MSG21^PRSEMSG I '($O(PRSEXMY(0))>0) S Y=1
|
|---|
| 18 | .. I Y'=1 D MSG2^PRSEMSG S Y=1
|
|---|
| 19 | .. Q
|
|---|
| 20 | . S PRSEN=0 S:"'-"[$E(X) X=$E(X,2,999),PRSEN=1
|
|---|
| 21 | . S DIC("S")="I $P($G(^PRSPC(+Y,1)),U,33)'=""Y"",$S($G(PSPC)&($G(PSPC(""TX""))=$$EN2^PRSEUTL4(+$G(Y))):1,1:"""")"
|
|---|
| 22 | . S DIC="^PRSPC(",DIC(0)="ZEQ" D ^DIC K DIC I Y'>0,X]"" S Y=0 Q
|
|---|
| 23 | . I Y>0,PRSEN W $S($D(PRSEXMY(+Y)):" Deleted.",1:" Not selected.") K PRSEXMY(+Y) Q
|
|---|
| 24 | . S (X,PRSEXMY(+Y))=""
|
|---|
| 25 | . Q
|
|---|
| 26 | I PRSESEL="S",'$D(PRSEXMY) S PRSEQUIT=1 G EXIT
|
|---|
| 27 | CONT ;
|
|---|
| 28 | K POUT S DATSEL="N+" D DATSEL^PRSEUTL I $D(POUT) S PRSEQUIT=1 G EXIT
|
|---|
| 29 | K DIR S DIR(0)="SOM^C:Complete records;I:Incomplete records;"
|
|---|
| 30 | S DIR("A")="Select records to print"
|
|---|
| 31 | S DIR("?",1)="'Complete' will only print those records with full OLDE data."
|
|---|
| 32 | S DIR("?",2)="'Incomplete' will only print those records without full OLDE data."
|
|---|
| 33 | S DIR("?")=" Enter either 'Complete' or 'Incomplete'."
|
|---|
| 34 | D ^DIR S PRSETYPE=Y I $D(DIRUT) S PRSEQUIT=1 G EXIT
|
|---|
| 35 | DEV ;
|
|---|
| 36 | S ZTRTN="ENTSK^PRSEPOL1" S (ZTSAVE("PSP"),ZTSAVE("PRSESEL"),ZTSAVE("PRSEXMY("),ZTSAVE("PSPC("),ZTSAVE("PYR"),ZTSAVE("TYP"),ZTSAVE("YRST("),ZTSAVE("YREND("),ZTSAVE("PSPC"),ZTSAVE("YRST"),ZTSAVE("YREND"),ZTSAVE("PRSETYPE"))=""
|
|---|
| 37 | S ZTDESC="Education Tracking report for OLDE training coding input"
|
|---|
| 38 | K %ZIS,IOP D DEV^PRSEUTL G:POP!($D(ZTSK)) EXIT
|
|---|
| 39 | D ENTSK^PRSEPOL1
|
|---|
| 40 | EXIT ;
|
|---|
| 41 | S POUT=$G(PRSEQUIT) D CLOSE^PRSEUTL
|
|---|
| 42 | K ^TMP("PRSE",$J) D ^PRSEKILL
|
|---|
| 43 | Q
|
|---|
