127 lines
4.4 KiB
Mathematica
127 lines
4.4 KiB
Mathematica
PRSA8BNI ;WOIFO/JAH - Tour Hours vs 8B Norm Hrs Report ;3/5/08
|
|
;;4.0;PAID;**116**;Sep 21, 1995;Build 23
|
|
;;Per VHA Directive 2004-038, this routine should not be modified.
|
|
Q
|
|
;
|
|
GETPP() ;prompt for pay period
|
|
N DIC,X,Y,PPI,DTOUT
|
|
S DIC="^PRST(458,",DIC(0)="AEQM",DIC("A")="Select PAY PERIOD: "
|
|
W !
|
|
D ^DIC
|
|
S PPI=+Y
|
|
I $D(DTOUT)!(+Y'>0) S PPI=0
|
|
Q PPI
|
|
NOTOURS() ;return true if user wants to see data from employees with
|
|
; no tour of duty set up yet
|
|
; otherwise return 0 or -1 for abort
|
|
;
|
|
N DIR,DIRUT,Y
|
|
S DIR(0)="Y"
|
|
S DIR("B")="N"
|
|
S DIR("A")="Include employees with no tour of duty entered"
|
|
D ^DIR
|
|
Q:$D(DIRUT) -1
|
|
Q +Y
|
|
;
|
|
NOTCARD() ;return true if user wants to see data from employees with
|
|
; no timecard on file, ie no entry for pp in 458
|
|
; otherwise return 0 or -1 for abort
|
|
;
|
|
N DIR,DIRUT,Y
|
|
S DIR(0)="Y"
|
|
S DIR("B")="N"
|
|
S DIR("A")="Include employees with no timecard on file"
|
|
D ^DIR
|
|
Q:$D(DIRUT) -1
|
|
Q +Y
|
|
DAILYHRS() ;return true if user wants to see tour hours for each day
|
|
; otherwise return 0 or -1 for abort
|
|
;
|
|
N DIR,DIRUT,Y
|
|
S DIR(0)="Y"
|
|
S DIR("B")="N"
|
|
S DIR("A")="Include employees daily tour hours"
|
|
D ^DIR
|
|
Q:$D(DIRUT) -1
|
|
Q +Y
|
|
;
|
|
TRHDR ;
|
|
W !!,?7,"Day",?12,"ToD #*",?19,"Tour Week 1",?34,"Hours*",?47,"ToD #*",?54,"Tour Week 2",?69,"Hours*"
|
|
W !,?7,"---",?12,"-----",?19,"-----------",?34,"-----",?47,"-----",?54,"-----------",?69,"-----"
|
|
Q
|
|
EMPINFO(PRSENAME,PRSSN,HRS) ;
|
|
W !!?2,PRSENAME,?26,PRSSN,?44,$P(HRS,U),?55,$P(HRS,U,2)
|
|
I $G(DUZ(0))="@" W ?63,PRSIEN
|
|
Q
|
|
HDR(PG,TSTAMP,END,FORWHO,PPE,PPRANGE) ;
|
|
S PG=PG+1
|
|
W @IOF
|
|
N H1,H2,B
|
|
S H1="VA TIME & ATTENDANCE REPORT "_FORWHO_"--"_TSTAMP
|
|
S B=$E(" ",1,(IOM-$L(H1))\2-3-$L(PG))
|
|
S H2="Tour Hrs Don't Match 8B Normal Hrs: PP "_PPE_" ("_PPRANGE_")"
|
|
W !,?(IOM-$L(H1)\2),H1,B,"p",PG,!,?(IOM-$L(H2)\2),H2
|
|
Q:END
|
|
W !!,?2,"EMPLOYEE NAME",?26," SSN",?40,"8B NRM HRS ToD HRS*"
|
|
I $G(DUZ(0))="@" W ?63,"IEN 450"
|
|
W !?2,"======================",?26,"===========",?40,"========== ======="
|
|
I $G(DUZ(0))="@" W " ======="
|
|
Q
|
|
;
|
|
RET(TSTAMP) ;
|
|
I ($E(IOST,1,2)'="C-")!($D(ZTQUEUED)) D HDR(.PG,TSTAMP,0,FORWHO,PPE,PPRANGE) Q 0
|
|
;
|
|
N OUT
|
|
S OUT=$$ASK^PRSLIB00(1)
|
|
I 'OUT D HDR(.PG,TSTAMP,0,FORWHO,PPE,PPRANGE)
|
|
Q OUT
|
|
GETHOURS(PPI,PRSIEN) ; Return TOUR HOURS AND NORMAL HOURS
|
|
N MATCH,HRS,NH,ENT,ENTPTR,DFN,TH
|
|
I $G(PPI)'>0!($G(PRSIEN)'>0) Q 1
|
|
S MATCH=1
|
|
S NH=-1
|
|
S ENTPTR=$P($G(^PRST(458,PPI,"E",PRSIEN,0)),U,5)
|
|
I ENTPTR'="" D
|
|
. S ENT=$P($G(^PRST(457.5,ENTPTR,1)),U)
|
|
. S NH=$E($G(^PRST(458,PPI,"E",PRSIEN,5)),26,27)
|
|
. Q:NH="00"
|
|
. I +NH'>0 S NH=$P($G(^PRSPC(PRSIEN,0)),U,50)
|
|
I $G(ENT)="" S DFN=PRSIEN D ^PRSAENT
|
|
I $G(ENT)'="",$E(ENT)'="D",($E(ENT,1,2)'="0D") D
|
|
. D TOURHRS^PRSARC07(.HRS,PPI,PRSIEN)
|
|
. S TH=($G(HRS("W1"))+$G(HRS("W2")))
|
|
Q NH_U_TH
|
|
;
|
|
REPDONE(OUT,TLECNT,TSTAMP,DAILYHRS,GRANDTOT) ; report done display page
|
|
;
|
|
I TLECNT=0 D HDR(.PG,TSTAMP,1,FORWHO,PPE,PPRANGE) W !,"NO T&L UNITS WERE FOUND ASSIGNED TO YOU THAT COULD BE CHECKED." Q
|
|
I 'OUT,$Y>(IOSL-24) S OUT=$$ASK^PRSLIB00(1) D HDR(.PG,TSTAMP,1,FORWHO,PPE,PPRANGE)
|
|
I OUT W !!,"********REPORT ABORTED*********"
|
|
E W !!,"REPORT COMPLETED. TOTAL MISMATCHES FOUND: ",GRANDTOT
|
|
W !,"================================================================="
|
|
N TXT,I
|
|
W !
|
|
F I=1:1 S TXT=$P($T(ALLFT+I),";",3) Q:TXT="" W !,TXT
|
|
I DAILYHRS D
|
|
. F I=1:1 S TXT=$P($T(DAILYFT+I),";",3) Q:TXT="" W !,TXT
|
|
S OUT=$$ASK^PRSLIB00(1)
|
|
Q
|
|
ALLFT ;;
|
|
;; FOOTNOTES TO REPORT HEADINGS
|
|
;; ============================
|
|
;;*ToD HRS (Tour of Duty Hours) The total Tour of Duty hours that fall within the
|
|
;;-------- two week pay period, beginning midnight Saturday. Hours that cross
|
|
;; midnight from a tour that starts on the last day of a pay period will
|
|
;; appear on the following pay period.
|
|
;;.....................................................................
|
|
DAILYFT ;;
|
|
;;*Hours (DAILY TOUR HOURS) This column contains actual tour hours that fall
|
|
;;------ on that day from the 24 hour period beginning at midnight. A two day
|
|
;; tour will contribute hours to each day the tour falls on. Hours
|
|
;; that cross midnight from a tour that starts on the last day of a pay
|
|
;; period will appear on the following pay period.
|
|
;;.....................................................................
|
|
;;*ToD # (Tour of Duty Number)
|
|
;;------
|
|
;;.....................................................................
|