| 1 | PRSPEAD ;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 | ;
|
---|
| 33 | EXIT ; exit point
|
---|
| 34 | Q
|
---|
| 35 | ;
|
---|
| 36 | HD ; 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
|
---|