source: WorldVistAEHR/trunk/r/PAID-PRS/PRSPEAE.m@ 1776

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1PRSPEAE ;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 ;
16SEL ; 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
49AGAIN G SEL
50 ;
51EXIT ; exit point
52 Q
53 ;
54 ;PRSPEAE
Note: See TracBrowser for help on using the repository browser.