Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRS8VW2

PRS8VW2.m

Go to the documentation of this file.
  1. PRS8VW2 ;WCIOFO/JAH - DECOMPOSITION, VIEW RESULTS ;01/11/08
  1. ;;4.0;PAID;**6,32,34,45,69,112,117,132**;Sep 21, 1995;Build 13
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. ; This routine is used to show the results of the decomp to
  1. ; the supervisor before certification. It takes the values
  1. ; in the 8B string (NEW) and prints each type of time with the
  1. ; amount in a more readable format (ie - value in 8B = OE163,
  1. ; would print --> Week 1 Overtime 16.75
  1. ; Called from CERT+18^PRS8VW, a continuation from that entry point.
  1. ;
  1. S CHECK=0
  1. ;
  1. EN ;
  1. S E=E(1),W="Week 1",LOC=1 D SHOW
  1. S E=E(2),W="Week 2",LOC=2 D SHOW
  1. S E=E(3),W="Misc",LOC=0 D SHOW
  1. I 'CHECK,"C"'[$E(IOST) D
  1. .W !,DASH1
  1. .W !,TR
  1. K %,CHECK,D,E,I,L,LOC,USED,W,X,Y Q
  1. ;
  1. SHOW ; --- show information
  1. F I=1:2 S X=$E(E,I,I+1) Q:X="" D
  1. .I $D(USED(X)) Q
  1. .S USED(X)=""
  1. .S X(1)=$F(NEW,X)
  1. .I 'CHECK,'X(1) Q ;not in string
  1. .I CHECK S LOC(1)=(I\2+1) S:'LOC LOC(1)=LOC(1)+50 D
  1. ..S FOUND(LOC(1))=$G(FOUND(LOC(1)))
  1. ..S $P(FOUND(LOC(1)),"^",$S(LOC<2:1,1:4))=X
  1. .;
  1. .;read from tables below
  1. .;
  1. .S Y=$P($T(@$E(X)),";;",2)
  1. .S Y(1)=$F(Y,$E(X,2)_":")
  1. .S Y=$P($E(Y,Y(1),999),":",1,2)
  1. .I 'CHECK W !,W,?15,$P($T(TYP+Y),";;",2)
  1. .S X=X(1),X1=52 D CON
  1. Q
  1. ;
  1. CON ; --- convert to proper format
  1. I '+X S X=$E("00000000000",1,+$P(Y,":",2))
  1. I X,X1=52 S (X,Z)=$E(NEW,X(1),X(1)+$P(Y,":",2)-1)
  1. I I=73!(W="Misc"&(I=13)) S R=X/100 W ?50,$J(R,6,2) Q
  1. I W="Misc",I=3 S X=X*10
  1. 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
  1. Q
  1. ;
  1. ; This internal table stores types of time codes and their
  1. ; corresponding descriptions and TT8B value field lengths. Each
  1. ; single char line label below is the 1st char of a type of time code.
  1. ; The text on the corresponding line contains '^' delimited
  1. ; pieces. The 1st char of those pieces is the 2nd char of a type of
  1. ; time. The text description for that time code is given by the
  1. ; the number in the 2nd ':' delimited piece. That number indicates
  1. ; the line number below the label TYP in routine PRS8VW2. The 3rd
  1. ; ':' delimited piece is the length of the time code's value in the
  1. ; TT8B String.
  1. ;
  1. A ;;N:1:3^U:5:3^L:1:3^B:5:3^D:63:3^F:63:3
  1. 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^F:70:3^G:70:3^H:71:3^I:71:3^P:72:3^Q:72:3^R:73:3^S:73:3
  1. 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
  1. E ;;A:38:5^B:40:5^C:38:5^D:40:5
  1. F ;;F:59:4^A:61:3^B:61:3^C:62:3^D:62:3^E:64:6
  1. 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
  1. I ;;N:46:1
  1. L ;;U:48:4^N:49:4^D:50:4^A:53:1
  1. M ;;L:54:4
  1. 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
  1. 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
  1. P ;;T:32:3^A:33:3^H:32:3^B:33:3^C:56:2
  1. 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
  1. 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
  1. 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^W:74:3^S:75:3^M:76:3^X:74:3^T:75:3^N:76:3
  1. U ;;N:9:3^S:9:3
  1. V ;;C:37:6^S:37:6
  1. W ;;D:3:3^P:3:3
  1. Y ;;A:23:3^D:35:4^E:23:3^H:35:4
  1. ;
  1. TYP ; literal values of activities (actual name)
  1. ;;Annual Leave
  1. ;;Sick Leave
  1. ;;Leave Without Pay
  1. ;;Non-Pay Time
  1. ;;Authorized Absence
  1. ;;Restored Annual Leave
  1. ;;Comp Time Earned
  1. ;;Comp Time Used
  1. ;;Unscheduled Regular
  1. ;;Night Differential-2
  1. ;;Night Differential-3
  1. ;;Saturday Premium
  1. ;;Sunday Premium-D
  1. ;;Sunday Premium-2
  1. ;;Sunday Premium-3
  1. ;;Overtime Hrs > 8 Day-D
  1. ;;Overtime Hrs > 8 Day-2
  1. ;;Overtime Hrs > 8 Day-3
  1. ;;Travel OT-FLSA
  1. ;;Overtime Total Hours-D
  1. ;;Overtime Total Hours-2
  1. ;;Overtime Total Hours-3
  1. ;;Scheduled Call-Back OT
  1. ;;Overtime on Holiday
  1. ;;Sleep Time
  1. ;;Reg Hrs @ Overtime Rate-D
  1. ;;Reg Hrs @ Overtime Rate-2
  1. ;;Reg Hrs @ Overtime Rate-3
  1. ;;Holiday Hours-D
  1. ;;Holiday Hours-2
  1. ;;Holiday Hours-3
  1. ;;Part Time Hours
  1. ;;Continuation of Pay
  1. ;;Standby Hours
  1. ;;On-Call Hours
  1. ;;Pieceworker Holiday Excused
  1. ;;VCS Sales
  1. ;;Environmental Differential
  1. ;;
  1. ;;Hazardous Duty Pay
  1. ;;
  1. ;;Travel
  1. ;;Training
  1. ;;Non-Pay Annual Leave
  1. ;;Days Worked
  1. ;;Insurance
  1. ;;T&L Change
  1. ;;Lump Sum Units-D
  1. ;;Lump Sum Units-2
  1. ;;Lump Sum Units-3
  1. ;;Lump Sum Expiration Date
  1. ;;Optional Withholding Tax
  1. ;;Foreign Cola
  1. ;;Military Leave
  1. ;;Calendar Year Adjustment
  1. ;;Workers Compensation
  1. ;;SF 2806 Adjustment
  1. ;;Payment Record Requested
  1. ;;Fire Fighter Normal Hours
  1. ;;Control Data
  1. ;;Care and Bereavement
  1. ;;Adoption
  1. ;;Donor Leave
  1. ;;Fee Basis
  1. ;;Base Tour Non Pay Hours
  1. ;;Recess
  1. ;;Saturday Premium-AWS
  1. ;;Sunday Premium-AWS
  1. ;;Night Differential-AWS
  1. ;;Comp Time for Travel Earned
  1. ;;Comp Time for Travel Used
  1. ;;Credit Hours Earned
  1. ;;Credit Hours Used
  1. ;;Scheduled Telework
  1. ;;Situational Telework
  1. ;;Medical Telework