Changeset 623 for WorldVistAEHR/trunk/r/PAID-PRS/PRS8VW2.m
- Timestamp:
- Dec 4, 2009, 12:11:15 AM (14 years ago)
- File:
-
- 1 edited
-
WorldVistAEHR/trunk/r/PAID-PRS/PRS8VW2.m (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
WorldVistAEHR/trunk/r/PAID-PRS/PRS8VW2.m
r613 r623 1 PRS8VW2 ;HISC/MRL,RTK-DECOMPOSITION, VIEW RESULTS ;03/28/07 2 ;;4.0;PAID;**6,32,34,45,69,112**;Sep 21, 1995;Build 54 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 4 ; 5 ; This routine is used to show the results of the decomp to 6 ; the supervisor before certification. It takes the values 7 ; in the 8B string (NEW) and prints each type of time with the 8 ; amount in a more readable format (ie - value in 8B = OE163, 9 ; would print --> Week 1 Overtime 16.75 10 ; Called from CERT+18^PRS8VW, a continuation from that entry point. 11 ; 12 S CHECK=0 13 ; 14 EN ; 15 S E=E(1),W="Week 1",LOC=1 D SHOW 16 S E=E(2),W="Week 2",LOC=2 D SHOW 17 S E=E(3),W="Misc",LOC=0 D SHOW 18 I 'CHECK,"C"'[$E(IOST) D 19 .W !,DASH1 20 .W !,TR 21 K %,CHECK,D,E,I,L,LOC,USED,W,X,Y Q 22 ; 23 SHOW ; --- show information 24 F I=1:2 S X=$E(E,I,I+1) Q:X="" D 25 .I $D(USED(X)) Q 26 .S USED(X)="" 27 .S X(1)=$F(NEW,X) 28 .I 'CHECK,'X(1) Q ;not in string 29 .I CHECK S LOC(1)=(I\2+1) S:'LOC LOC(1)=LOC(1)+50 D 30 ..S FOUND(LOC(1))=$G(FOUND(LOC(1))) 31 ..S $P(FOUND(LOC(1)),"^",$S(LOC<2:1,1:4))=X 32 .; 33 .;read from tables below 34 .; 35 .S Y=$P($T(@$E(X)),";;",2) 36 .S Y(1)=$F(Y,$E(X,2)_":") 37 .S Y=$P($E(Y,Y(1),999),":",1,2) 38 .I 'CHECK W !,W,?15,$P($T(TYP+Y),";;",2) 39 .S X=X(1),X1=52 D CON 40 Q 41 ; 42 CON ; --- convert to proper format 43 I '+X S X=$E("00000000000",1,+$P(Y,":",2)) 44 I X,X1=52 S (X,Z)=$E(NEW,X(1),X(1)+$P(Y,":",2)-1) 45 I I=73!(W="Misc"&(I=13)) S R=X/100 W ?50,$J(R,6,2) Q 46 I W="Misc",I=3 S X=X*10 47 S R=$E(X,1,$L(X)-1)_$S($E(X,$L(X))=3:".75",$E(X,$L(X))=2:".5",$E(X,$L(X))=1:".25",1:"") W ?50,$J(R,6,2) Q 48 Q 49 ; 50 ; This internal table stores types of time codes and their 51 ; corresponding descriptions and TT8B value field lengths. Each 52 ; single char line label below is the 1st char of a type of time code. 53 ; The text on the corresponding line contains '^' delimited 54 ; pieces. The 1st char of those pieces is the 2nd char of a type of 55 ; time. The text description for that time code is given by the 56 ; the number in the 2nd ':' delimited piece. That number indicates 57 ; the line number below the label TYP in routine PRS8VW2. The 3rd 58 ; ':' delimited piece is the length of the time code's value in the 59 ; TT8B String. 60 ; 61 A ;;N:1:3^U:5:3^L:1:3^B:5:3^D:63:3^F:63:3 62 C ;;E:7:3^U:8:3^T:7:3^O:8:3^L:34:4^A:55:4^Y:57:3^D:60:6 63 D ;;A:16:3^B:17:3^C:18:3^E:16:3^F:17:3^G:18:3^W:45:2^T:48:6 64 E ;;A:38:5^B:40:5^C:38:5^D:40:5 65 F ;;F:59:4^A:61:3^B:61:3^C:62:3^D:62:3^E:64:6 66 H ;;A:29:3^B:30:3^C:31:3^L:29:3^M:30:3^N:31:3^D:36:3^O:36:3 67 I ;;N:46:1 68 L ;;U:48:4^N:49:4^D:50:4^A:53:1 69 M ;;L:54:4 70 N ;;O:4:3^A:10:3^B:11:3^P:4:3^R:10:3^S:11:3^L:44:2^T:65:3^H:65:3^D:69:3^U:69:3 71 O ;;A:20:3^B:21:3^C:22:3^K:24:3^M:25:3^N:34:4^E:20:3^F:21:3^G:22:3^S:24:3^U:25:3 72 P ;;T:32:3^A:33:3^H:32:3^B:33:3^C:56:2 73 R ;;T:6:3^A:26:3^B:27:3^C:28:3^L:6:3^E:26:3^F:27:3^G:28:3^R:58:1^S:66:3^N:66:3 74 S ;;K:2:3^P:12:3^A:13:3^B:14:3^C:15:3^L:2:3^Q:12:3^E:13:3^F:14:3^G:15:3^R:67:3^S:67:3^D:68:3^H:68:3 75 T ;;F:19:3^A:42:3^C:43:3^G:19:3^B:42:3^D:43:3^L:47:3^O:52:1 76 U ;;N:9:3^S:9:3 77 V ;;C:37:6^S:37:6 78 W ;;D:3:3^P:3:3 79 Y ;;A:23:3^D:35:4^E:23:3^H:35:4 80 ; 81 TYP ; literal values of activities (actual name) 82 ;;Annual Leave 83 ;;Sick Leave 84 ;;Leave Without Pay 85 ;;Non-Pay Time 86 ;;Authorized Absence 87 ;;Restored Annual Leave 88 ;;Comp Time/Credit Hrs Earned 89 ;;Comp Time/Credit Hrs Used 90 ;;Unscheduled Regular 91 ;;Night Differential-2 92 ;;Night Differential-3 93 ;;Saturday Premium 94 ;;Sunday Premium-D 95 ;;Sunday Premium-2 96 ;;Sunday Premium-3 97 ;;Overtime Hrs > 8 Day-D 98 ;;Overtime Hrs > 8 Day-2 99 ;;Overtime Hrs > 8 Day-3 100 ;;Travel OT-FLSA 101 ;;Overtime Total Hours-D 102 ;;Overtime Total Hours-2 103 ;;Overtime Total Hours-3 104 ;;Scheduled Call-Back OT 105 ;;Overtime on Holiday 106 ;;Sleep Time 107 ;;Reg Hrs @ Overtime Rate-D 108 ;;Reg Hrs @ Overtime Rate-2 109 ;;Reg Hrs @ Overtime Rate-3 110 ;;Holiday Hours-D 111 ;;Holiday Hours-2 112 ;;Holiday Hours-3 113 ;;Part Time Hours 114 ;;Continuation of Pay 115 ;;Standby Hours 116 ;;On-Call Hours 117 ;;Pieceworker Holiday Excused 118 ;;VCS Sales 119 ;;Environmental Differential 120 ;; 121 ;;Hazardous Duty Pay 122 ;; 123 ;;Travel 124 ;;Training 125 ;;Non-Pay Annual Leave 126 ;;Days Worked 127 ;;Insurance 128 ;;T&L Change 129 ;;Lump Sum Units-D 130 ;;Lump Sum Units-2 131 ;;Lump Sum Units-3 132 ;;Lump Sum Expiration Date 133 ;;Optional Withholding Tax 134 ;;Foreign Cola 135 ;;Military Leave 136 ;;Calendar Year Adjustment 137 ;;Workers Compensation 138 ;;SF 2806 Adjustment 139 ;;Payment Record Requested 140 ;;Fire Fighter Normal Hours 141 ;;Control Data 142 ;;Care and Bereavement 143 ;;Adoption 144 ;;Donor Leave 145 ;;Fee Basis 146 ;;Base Tour Non Pay Hours 147 ;;Recess 148 ;;Saturday Premium-AWS 149 ;;Sunday Premium-AWS 150 ;;Night Differential-AWS 1 PRS8VW2 ;HISC/MRL,RTK-DECOMPOSITION, VIEW RESULTS ;09/27/01 2 ;;4.0;PAID;**6,32,34,45,69**;Sep 21, 1995 3 ; 4 ; This routine is used to show the results of the decomp to 5 ; the supervisor before certification. It takes the values 6 ; in the 8B string (NEW) and prints each type of time with the 7 ; amount in a more readable format (ie - value in 8B = OE163, 8 ; would print --> Week 1 Overtime 16.75 9 ; Called from CERT+18^PRS8VW, a continuation from that entry point. 10 ; 11 S CHECK=0 12 ; 13 EN ; 14 S E=E(1),W="Week 1",LOC=1 D SHOW 15 S E=E(2),W="Week 2",LOC=2 D SHOW 16 S E=E(3),W="Misc",LOC=0 D SHOW 17 I 'CHECK,"C"'[$E(IOST) D 18 .W ! F I=1:1:79 W "-" 19 .W !,TR 20 K %,CHECK,D,E,I,L,LOC,USED,W,X,Y Q 21 ; 22 SHOW ; --- show information 23 F I=1:2 S X=$E(E,I,I+1) Q:X="" D 24 .I $D(USED(X)) Q 25 .S USED(X)="" 26 .S X(1)=$F(NEW,X) 27 .I 'CHECK,'X(1) Q ;not in string 28 .I CHECK S LOC(1)=(I\2+1) S:'LOC LOC(1)=LOC(1)+50 D 29 ..S FOUND(LOC(1))=$G(FOUND(LOC(1))) 30 ..S $P(FOUND(LOC(1)),"^",$S(LOC<2:1,1:4))=X 31 .; 32 .;read from tables below 33 .; 34 .S Y=$P($T(@$E(X)),";;",2) 35 .S Y(1)=$F(Y,$E(X,2)_":") 36 .S Y=$P($E(Y,Y(1),999),":",1,2) 37 .I 'CHECK W !,W,?15,$P($T(TYP+Y),";;",2) 38 .S X=X(1),X1=52 D CON 39 Q 40 ; 41 CON ; --- convert to proper format 42 I '+X S X=$E("00000000000",1,+$P(Y,":",2)) 43 I X,X1=52 S (X,Z)=$E(NEW,X(1),X(1)+$P(Y,":",2)-1) 44 I I=73!(W="Misc"&(I=13)) S R=X/100 W ?50,$J(R,6,2) Q 45 I W="Misc",I=3 S X=X*10 46 S R=$E(X,1,$L(X)-1)_$S($E(X,$L(X))=3:".75",$E(X,$L(X))=2:".5",$E(X,$L(X))=1:".25",1:"") W ?50,$J(R,6,2) Q 47 Q 48 ; 49 ; See description of similar table in routine PRS8VW1 for 50 ; explanation of table below. 51 ; 52 A ;;N:1:3^U:5:3^L:1:3^B:5:3^D:63:3^F:63:3 53 C ;;E:7:3^U:8:3^T:7:3^O:8:3^L:34:4^A:55:4^Y:57:3^D:60:6 54 D ;;A:16:3^B:17:3^C:18:3^E:16:3^F:17:3^G:18:3^W:45:2^T:48:6 55 E ;;A:38:5^B:40:5^C:38:5^D:40:5 56 F ;;F:59:4^A:61:3^B:61:3^C:62:3^D:62:3^E:64:6 57 H ;;A:29:3^B:30:3^C:31:3^L:29:3^M:30:3^N:31:3^D:36:3^O:36:3 58 I ;;N:46:1 59 L ;;U:48:4^N:49:4^D:50:4^A:53:1 60 M ;;L:54:4 61 N ;;O:4:3^A:10:3^B:11:3^P:4:3^R:10:3^S:11:3^L:44:2^T:65:3^H:65:3 62 O ;;A:20:3^B:21:3^C:22:3^K:24:3^M:25:3^N:34:4^E:20:3^F:21:3^G:22:3^S:24:3^U:25:3 63 P ;;T:32:3^A:33:3^H:32:3^B:33:3^C:56:2 64 R ;;T:6:3^A:26:3^B:27:3^C:28:3^L:6:3^E:26:3^F:27:3^G:28:3^R:58:1 65 S ;;K:2:3^P:12:3^A:13:3^B:14:3^C:15:3^L:2:3^Q:12:3^E:13:3^F:14:3^G:15:3 66 T ;;F:19:3^A:42:3^C:43:3^G:19:3^B:42:3^D:43:3^L:47:3^O:52:1 67 U ;;N:9:3^S:9:3 68 V ;;C:37:6^S:37:6 69 W ;;D:3:3^P:3:3 70 Y ;;A:23:3^D:35:4^E:23:3^H:35:4 71 ; 72 TYP ; literal values of acitivites (actual name) 73 ;;Annual Leave 74 ;;Sick Leave 75 ;;Leave Without Pay 76 ;;Non-Pay Time 77 ;;Authorized Absence 78 ;;Restored Annual Leave 79 ;;Comp Time/Credit Hrs Earned 80 ;;Comp Time/Credit Hrs Used 81 ;;Unscheduled Regular 82 ;;Night Differential-2 83 ;;Night Differential-3 84 ;;Saturday Premium 85 ;;Sunday Premium-D 86 ;;Sunday Premium-2 87 ;;Sunday Premium-3 88 ;;Overtime Hrs > 8 Day-D 89 ;;Overtime Hrs > 8 Day-2 90 ;;Overtime Hrs > 8 Day-3 91 ;;Travel OT-FLSA 92 ;;Overtime Total Hours-D 93 ;;Overtime Total Hours-2 94 ;;Overtime Total Hours-3 95 ;;Scheduled Call-Back OT 96 ;;Overtime on Holiday 97 ;;Sleep Time 98 ;;Reg Hrs @ Overtime Rate-D 99 ;;Reg Hrs @ Overtime Rate-2 100 ;;Reg Hrs @ Overtime Rate-3 101 ;;Holiday Hours-D 102 ;;Holiday Hours-2 103 ;;Holiday Hours-3 104 ;;Part Time Hours 105 ;;Continuation of Pay 106 ;;Standby Hours 107 ;;On-Call Hours 108 ;;Pieceworker Holiday Excused 109 ;;VCS Sales 110 ;;Environmental Differential 111 ;; 112 ;;Hazardous Duty Pay 113 ;; 114 ;;Travel 115 ;;Training 116 ;;Non-Pay Annual Leave 117 ;;Days Worked 118 ;;Insurance 119 ;;T&L Change 120 ;;Lump Sum Units-D 121 ;;Lump Sum Units-2 122 ;;Lump Sum Units-3 123 ;;Lump Sum Expiration Date 124 ;;Optional Withholding Tax 125 ;;Foreign Cola 126 ;;Military Leave 127 ;;Calendar Year Adjustment 128 ;;Workers Compensation 129 ;;SF 2806 Adjustment 130 ;;Payment Record Requested 131 ;;Fire Fighter Normal Hours 132 ;;Control Data 133 ;;Care and Bereavement 134 ;;Adoption 135 ;;Donor Leave 136 ;;Fee Basis 137 ;;Base Tour Non Pay Hours
Note:
See TracChangeset
for help on using the changeset viewer.
