source: FOIAVistA/tag/r/PAID-PRS/PRSPEAD.m@ 1150

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1PRSPEAD ;WOIFO/SAB - DISPLAY EXTENDED ABSENCE ;10/20/2004
2 ;;4.0;PAID;**93**;Sep 21, 1995;Build 7
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 ; Display List of Extended Absences
5 ;
6 N CNT,DIC,DIR,DIROUT,DIRUT,DTOUT,DUOUT,EAIEN,OUT,PG,PRSIEN,TDT,X,Y
7 ;
8 ; determine Employee IEN
9 S PRSIEN=$$PRSIEN^PRSPUT2(1)
10 I 'PRSIEN G EXIT
11 ;
12 S (CNT,OUT,PG)=0
13 D HD
14 ;
15 W !?24,"VA TIME & ATTENDANCE SYSTEM",!?26,"DISPLAY EXTENDED ABSENCE",!
16 ;
17 ; ask date
18 S DIR(0)="D^::EX",DIR("A")="Begin with Date",DIR("B")="T"
19 D ^DIR K DIR G:$D(DIRUT) EXIT
20 ;
21 ; loop thru employee extended absences by to date
22 S TDT=Y-.01
23 F S TDT=$O(^PRST(458.4,"AEE",PRSIEN,TDT)) Q:TDT="" D Q:OUT
24 . S EAIEN=0
25 . F S EAIEN=$O(^PRST(458.4,"AEE",PRSIEN,TDT,EAIEN)) Q:'EAIEN D Q:OUT
26 . . I $Y+6>IOSL D HD Q:OUT
27 . . D DISEA^PRSPEAU(EAIEN)
28 . . S CNT=CNT+1
29 ;
30 I 'OUT,CNT=0 W !!,"No extended absence records on file."
31 I 'OUT S DIR(0)="E" D ^DIR K DIR
32 ;
33EXIT ; exit point
34 Q
35 ;
36HD ; header
37 I $E(IOST,1,2)="C-",PG S DIR(0)="E" D ^DIR K DIR I 'Y S OUT=1 Q
38 I $E(IOST,1,2)="C-"!PG W @IOF
39 S PG=PG+1
40 Q
41 ;
42 ;PRSPEAD
Note: See TracBrowser for help on using the repository browser.