source: FOIAVistA/trunk/r/PAID-PRS/PRSRAU11.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 3.0 KB
Line 
1PRSRAU11 ;HISC/JH=EMPLOYEE AUDIT RECORD REPORT CONT. ;07-SEP-2000
2 ;;4.0;PAID;**2,60**;Sep 21, 1995
3PRT 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
28INITALS(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
32HDR 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
36HDR1 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
40VLIDSH1 W !,"|---------------------|------------|-|--|------------|------------|------------|" Q
41VLIDSH2 W !,"|---------------------|---|--------|-|--|---|--------|---|--------|---|--------|" Q
42VLIN1 W !,"|",?22,"|",?26,"|",?35,"|",?37,"|",?40,"|",?44,"|",?53,"|",?57,"|",?66,"|",?70,"|",?79,"|" Q
43VLIN W ?22,"|",?26,"|",?35,"|",?37,"|",?40,"|",?44,"|",?53,"|",?57,"|",?66,"|",?70,"|",?79,"|" Q
44CODES ;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
Note: See TracBrowser for help on using the repository browser.