Changeset 636 for FOIAVistA/tag/r/PAID-PRS/PRS8VW2.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/PAID-PRS/PRS8VW2.m
r628 r636 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. 1 PRS8VW2 ;HISC/MRL,RTK-DECOMPOSITION, VIEW RESULTS ;09/27/01 2 ;;4.0;PAID;**6,32,34,45,69**;Sep 21, 1995 4 3 ; 5 4 ; This routine is used to show the results of the decomp to … … 17 16 S E=E(3),W="Misc",LOC=0 D SHOW 18 17 I 'CHECK,"C"'[$E(IOST) D 19 .W ! ,DASH118 .W ! F I=1:1:79 W "-" 20 19 .W !,TR 21 20 K %,CHECK,D,E,I,L,LOC,USED,W,X,Y Q … … 48 47 Q 49 48 ; 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. 49 ; See description of similar table in routine PRS8VW1 for 50 ; explanation of table below. 60 51 ; 61 52 A ;;N:1:3^U:5:3^L:1:3^B:5:3^D:63:3^F:63:3 … … 65 56 F ;;F:59:4^A:61:3^B:61:3^C:62:3^D:62:3^E:64:6 66 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 67 I ;;N:46:1 68 L ;;U:48:4^N:49:4^D:50:4^A:53:1 58 I ;;N:46:1 59 L ;;U:48:4^N:49:4^D:50:4^A:53:1 69 60 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:361 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 71 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 72 63 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:374 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:364 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 75 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 76 67 U ;;N:9:3^S:9:3 … … 79 70 Y ;;A:23:3^D:35:4^E:23:3^H:35:4 80 71 ; 81 TYP ; literal values of ac tivities (actual name)72 TYP ; literal values of acitivites (actual name) 82 73 ;;Annual Leave 83 74 ;;Sick Leave … … 145 136 ;;Fee Basis 146 137 ;;Base Tour Non Pay Hours 147 ;;Recess148 ;;Saturday Premium-AWS149 ;;Sunday Premium-AWS150 ;;Night Differential-AWS
Note:
See TracChangeset
for help on using the changeset viewer.