PRSPEAE.m

PRSPEAE ;WOIFO/SAB - EDIT EXTENDED ABSENCE ;1/4/2005

 ;;4.0;PAID;**93**;Sep 21, 1995;Build 7

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ; Edit Existing Extended Absence

 ;

 N DA,DDSFILE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT

 N EAIEN,EALIST,PRSIEN,X,Y

 ;

 ; determine Employee IEN

 S PRSIEN=$$PRSIEN^PRSPUT2(1)

 I 'PRSIEN G EXIT

 ;

 ; verify that user has electronic signature code

 I '$$ESIGC^PRSPUT2(1) G EXIT

 ;

SEL ; select extended absence

 W @IOF W !?26,"VA TIME & ATTENDANCE SYSTEM"

 W !?29,"EDIT EXTENDED ABSENCE",!

 ;

 ; build list in EALIST( array

 D BLDLST^PRSPEAU(PRSIEN,DT,"^A^")

 ;

 ; display list (exit if ^ or time-out during list display)

 G:$$DISLST^PRSPEAU() EXIT

 ;

 I EALIST(0)=0 G EXIT ; nothing to select

 ;

 ; select item from list

 W !

 S DIR(0)="NO^1:"_EALIST(0)

 S DIR("A")="Edit which extended absence #?"

 D ^DIR K DIR G:Y'>0!$D(DIRUT) EXIT

 S EAIEN=EALIST(+Y)

 ;

 ; lock record

 L +^PRST(458.4,EAIEN):2

 I '$T D  G:$D(DIRUT) EXIT G AGAIN

 . W $C(7),!,"Another user is editing this extended absence!"

 . S DIR(0)="E" D ^DIR K DIR

 ;

 ; call form

 S DDSFILE=458.4,DA=EAIEN,DR="[PRSP EXT ABSENCE]"

 D ^DDS

 ;

 ; unlock record

 L -^PRST(458.4,EAIEN)

 ;

 ; Repeat

AGAIN G SEL

 ;

EXIT ; exit point

 Q

 ;

 ;PRSPEAE

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSPEAE   1311     printed  Apr 09, 2024@21:26:24                                                                                                                                                                                                     Page 2

PRSPEAE   ;WOIFO/SAB - EDIT EXTENDED ABSENCE ;1/4/2005

 +1       ;;4.0;PAID;**93**;Sep 21, 1995;Build 7

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ; Edit Existing Extended Absence

 +4       ;

 +5        NEW DA,DDSFILE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT

 +6        NEW EAIEN,EALIST,PRSIEN,X,Y

 +7       ;

 +8       ; determine Employee IEN

 +9        SET PRSIEN=$$PRSIEN^PRSPUT2(1)

 +10       IF 'PRSIEN

               GOTO EXIT

 +11      ;

 +12      ; verify that user has electronic signature code

 +13       IF '$$ESIGC^PRSPUT2(1)

               GOTO EXIT

 +14      ;

SEL       ; select extended absence

 +1        WRITE @IOF

           WRITE !?26,"VA TIME & ATTENDANCE SYSTEM"

 +2        WRITE !?29,"EDIT EXTENDED ABSENCE",!

 +3       ;

 +4       ; build list in EALIST( array

 +5        DO BLDLST^PRSPEAU(PRSIEN,DT,"^A^")

 +6       ;

 +7       ; display list (exit if ^ or time-out during list display)

 +8        if $$DISLST^PRSPEAU()

               GOTO EXIT

 +9       ;

 +10      ; nothing to select

           IF EALIST(0)=0

               GOTO EXIT

 +11      ;

 +12      ; select item from list

 +13       WRITE !

 +14       SET DIR(0)="NO^1:"_EALIST(0)

 +15       SET DIR("A")="Edit which extended absence #?"

 +16       DO ^DIR

           KILL DIR

           if Y'>0!$DATA(DIRUT)

               GOTO EXIT

 +17       SET EAIEN=EALIST(+Y)

 +18      ;

 +19      ; lock record

 +20       LOCK +^PRST(458.4,EAIEN):2

 +21       IF '$TEST

               Begin DoDot:1

 +22               WRITE $CHAR(7),!,"Another user is editing this extended absence!"

 +23               SET DIR(0)="E"

                   DO ^DIR

                   KILL DIR

               End DoDot:1

               if $DATA(DIRUT)

                   GOTO EXIT

               GOTO AGAIN

 +24      ;

 +25      ; call form

 +26       SET DDSFILE=458.4

           SET DA=EAIEN

           SET DR="[PRSP EXT ABSENCE]"

 +27       DO ^DDS

 +28      ;

 +29      ; unlock record

 +30       LOCK -^PRST(458.4,EAIEN)

 +31      ;

 +32      ; Repeat

AGAIN      GOTO SEL

 +1       ;

EXIT      ; exit point

 +1        QUIT 

 +2       ;

 +3       ;PRSPEAE