| 1 | PRSRAU11 ;HISC/JH=EMPLOYEE AUDIT RECORD REPORT CONT. ;07-SEP-2000
|
|---|
| 2 | ;;4.0;PAID;**2,60**;Sep 21, 1995
|
|---|
| 3 | PRT W:$E(IOST,1,2)="C-" @IOF
|
|---|
| 4 | S (DATE(1),NAM)="",TL=0,SW=0,PRSE=" "
|
|---|
| 5 | S TL(0)="" F S TL(0)=$O(^TMP($J,"AUD",TL(0))) Q:TL(0)="" D:TL'=TL(0) HDR1 D Q:POUT
|
|---|
| 6 | . S DA(1)=0 F I=0:0 S DA(1)=$O(^TMP($J,"AUD",TL(0),DA(1))) Q:DA(1)'>0 D Q:POUT
|
|---|
| 7 | .. S DA="" F I=0:0 S DA=$O(^TMP($J,"AUD",TL(0),DA(1),DA)) Q:DA="" D Q:POUT
|
|---|
| 8 | ... S CNT=0 F I=0:0 S CNT=$O(^TMP($J,"AUD",TL(0),DA(1),DA,CNT)) Q:CNT'>0 D Q:POUT
|
|---|
| 9 | .... S DATA=$G(^TMP($J,"AUD",TL(0),DA(1),DA,CNT)),ADATE=$P(DATA,"^"),AUDITOR=$P(DATA,"^",2),TYP=$P(DATA,"^",3),STAT=$P(DATA,"^",4)
|
|---|
| 10 | .... S PCLERK=$P(DATA,"^",5),CDATE=$P(DATA,"^",6),APRV=$P(DATA,"^",7),APRVD=$P(DATA,"^",8),APSUP=$P(DATA,"^",9),APSUPD=$P(DATA,"^",10)
|
|---|
| 11 | .... D:($Y>(IOSL-9)) HDR Q:POUT F JJ="AUDITOR","PCLERK","APRV","APSUP" D INITALS(.JJ):@JJ'=""
|
|---|
| 12 | .... I DA'=NAM W !,"|",DA D VLIN
|
|---|
| 13 | .... I TYP="T" S RAUDIT=$TR($$FMTE^XLFDT(DA(1),"2FD")," ","0")
|
|---|
| 14 | .... I TYP'="T" D
|
|---|
| 15 | ..... N D1,PPI,PPE,PP4Y,DAY
|
|---|
| 16 | ..... S D1=DA(1)
|
|---|
| 17 | ..... D PP^PRSAPPU
|
|---|
| 18 | ..... S RAUDIT="PP "_PPE
|
|---|
| 19 | .... W !,"|",?8,RAUDIT,?22,"|",AUDITOR,?26,"|",ADATE,?35,"|"
|
|---|
| 20 | .... W TYP,?37,"|",STAT,?40,"|",APSUP,?44,"|",APSUPD,?53,"|",APRV,?57,"|",APRVD,?66,"|",PCLERK,?70,"|",CDATE,?79,"|"
|
|---|
| 21 | .... S DATE(1)=DA(1),NAM=DA
|
|---|
| 22 | .... Q
|
|---|
| 23 | ... Q
|
|---|
| 24 | .. Q
|
|---|
| 25 | . I IOSL<66 F I=$Y:1:IOSL-9 D VLIN1
|
|---|
| 26 | . S SW=1 D HDR:'POUT Q
|
|---|
| 27 | Q
|
|---|
| 28 | INITALS(INIT) ;EXTRACT INITALS FROM NAME (Last,First Middle<(optional))
|
|---|
| 29 | ;PASS BACK (XXX)
|
|---|
| 30 | N J S J=$F(@INIT,","),J(1)=$F(@INIT," "),@INIT=$E(@INIT,J)_$S(J(1):$E(@INIT,J(1)),1:"")_$E(@INIT)
|
|---|
| 31 | Q
|
|---|
| 32 | HDR D CODES,VLIDSH1 S CODE="AU01",FOOT="VA TIME & ATTENDANCE SYSTEM" D FOOT2^PRSRUT0
|
|---|
| 33 | I $E(IOST)="C" R !,"Press Return/Enter to continue. ",II:DTIME S:'$T!(II="^") POUT=1 Q:POUT
|
|---|
| 34 | W @IOF
|
|---|
| 35 | D:'SW HDR1 S SW=0 Q
|
|---|
| 36 | HDR1 W !?23,^TMP($J,"AUD"),?66,"DATE: ",DAT2,!?20,"from PP ",FR," thru PP ",TO,?43," for T&L ",$P(TL(0),"^") D VLIDSH1
|
|---|
| 37 | W !,"|",?22,"|"," TIMEKEEPER",?35,"|"," ","|"," ","|"," SUPERVISOR",?53,"|"," APPROVER",?66,"|"," PROCESSOR",?79,"|"
|
|---|
| 38 | ;W !,"|",?22,"|","------------","| | |","------------","|","------------","|","------------","|"
|
|---|
| 39 | W !,"|","EMPLOYEE",?22,"|","NAM",?26,"|"," DATE",?35,"|","*",?37,"|","**",?40,"|","NAM",?44,"|"," DATE",?53,"|","NAM",?57,"|"," DATE",?66,"|","NAM",?70,"|"," DATE",?79,"|" D VLIDSH2 Q
|
|---|
| 40 | VLIDSH1 W !,"|---------------------|------------|-|--|------------|------------|------------|" Q
|
|---|
| 41 | VLIDSH2 W !,"|---------------------|---|--------|-|--|---|--------|---|--------|---|--------|" Q
|
|---|
| 42 | VLIN1 W !,"|",?22,"|",?26,"|",?35,"|",?37,"|",?40,"|",?44,"|",?53,"|",?57,"|",?66,"|",?70,"|",?79,"|" Q
|
|---|
| 43 | VLIN W ?22,"|",?26,"|",?35,"|",?37,"|",?40,"|",?44,"|",?53,"|",?57,"|",?66,"|",?70,"|",?79,"|" Q
|
|---|
| 44 | CODES ;LIST CODES & DESCRIPTIONS
|
|---|
| 45 | S TYPE=";"_$P($G(^DD(458.1101,3,0)),U,3),STATUS=";"_$P($G(^DD(458.1101,4,0)),U,3)
|
|---|
| 46 | W !,"| *TYPE: " F I=1:1 S J=$P(TYPE,";",I+1) Q:J="" W $P(J,":")_"="_$P(J,":",2),?($X+3)
|
|---|
| 47 | W ?79,"|",!,"| **STATUS: " F I=1:1 S J=$P(STATUS,";",I+1) Q:J="" W:$P(J,":")="X" ?79,"|",!,"|",?13 W $P(J,":")_"="_$P(J,":",2),?($X+3)
|
|---|
| 48 | W ?79,"|" Q
|
|---|
