| 1 | PRSPEAE ;WOIFO/SAB - EDIT EXTENDED ABSENCE ;1/4/2005
|
|---|
| 2 | ;;4.0;PAID;**93**;Sep 21, 1995;Build 7
|
|---|
| 3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
|---|
| 4 | ; Edit Existing Extended Absence
|
|---|
| 5 | ;
|
|---|
| 6 | N DA,DDSFILE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT
|
|---|
| 7 | N EAIEN,EALIST,PRSIEN,X,Y
|
|---|
| 8 | ;
|
|---|
| 9 | ; determine Employee IEN
|
|---|
| 10 | S PRSIEN=$$PRSIEN^PRSPUT2(1)
|
|---|
| 11 | I 'PRSIEN G EXIT
|
|---|
| 12 | ;
|
|---|
| 13 | ; verify that user has electronic signature code
|
|---|
| 14 | I '$$ESIGC^PRSPUT2(1) G EXIT
|
|---|
| 15 | ;
|
|---|
| 16 | SEL ; select extended absence
|
|---|
| 17 | W @IOF W !?26,"VA TIME & ATTENDANCE SYSTEM"
|
|---|
| 18 | W !?29,"EDIT EXTENDED ABSENCE",!
|
|---|
| 19 | ;
|
|---|
| 20 | ; build list in EALIST( array
|
|---|
| 21 | D BLDLST^PRSPEAU(PRSIEN,DT,"^A^")
|
|---|
| 22 | ;
|
|---|
| 23 | ; display list (exit if ^ or time-out during list display)
|
|---|
| 24 | G:$$DISLST^PRSPEAU() EXIT
|
|---|
| 25 | ;
|
|---|
| 26 | I EALIST(0)=0 G EXIT ; nothing to select
|
|---|
| 27 | ;
|
|---|
| 28 | ; select item from list
|
|---|
| 29 | W !
|
|---|
| 30 | S DIR(0)="NO^1:"_EALIST(0)
|
|---|
| 31 | S DIR("A")="Edit which extended absence #?"
|
|---|
| 32 | D ^DIR K DIR G:Y'>0!$D(DIRUT) EXIT
|
|---|
| 33 | S EAIEN=EALIST(+Y)
|
|---|
| 34 | ;
|
|---|
| 35 | ; lock record
|
|---|
| 36 | L +^PRST(458.4,EAIEN):2
|
|---|
| 37 | I '$T D G:$D(DIRUT) EXIT G AGAIN
|
|---|
| 38 | . W $C(7),!,"Another user is editing this extended absence!"
|
|---|
| 39 | . S DIR(0)="E" D ^DIR K DIR
|
|---|
| 40 | ;
|
|---|
| 41 | ; call form
|
|---|
| 42 | S DDSFILE=458.4,DA=EAIEN,DR="[PRSP EXT ABSENCE]"
|
|---|
| 43 | D ^DDS
|
|---|
| 44 | ;
|
|---|
| 45 | ; unlock record
|
|---|
| 46 | L -^PRST(458.4,EAIEN)
|
|---|
| 47 | ;
|
|---|
| 48 | ; Repeat
|
|---|
| 49 | AGAIN G SEL
|
|---|
| 50 | ;
|
|---|
| 51 | EXIT ; exit point
|
|---|
| 52 | Q
|
|---|
| 53 | ;
|
|---|
| 54 | ;PRSPEAE
|
|---|
