FHINI0LI ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(117.1) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^DD(117.1,9,21,2,0)
;;=measured personnel.
;;^DD(117.1,10,0)
;;=INTERMITTENT HOURS^NJ6,2^^0;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(117.1,10,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(117.1,10,21,0)
;;=^^2^2^2921124^^
;;^DD(117.1,10,21,1,0)
;;=This field contains the number of intermittent hours worked by
;;^DD(117.1,10,21,2,0)
;;=measured personnel.
;;^DD(117.1,11,0)
;;=COP HOURS^NJ6,2^^0;12^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(117.1,11,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(117.1,11,21,0)
;;=^^2^2^2891120^
;;^DD(117.1,11,21,1,0)
;;=This field contains the number of Continuation-of-Pay hours by
;;^DD(117.1,11,21,2,0)
;;=measured personnel.
;;^DD(117.1,12,0)
;;=ANNUAL LEAVE HOURS^NJ6,2^^0;13^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(117.1,12,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(117.1,12,21,0)
;;=^^2^2^2891120^
;;^DD(117.1,12,21,1,0)
;;=This field contains the number of hours of annual leave taken
;;^DD(117.1,12,21,2,0)
;;=by measured personnel.
;;^DD(117.1,13,0)
;;=SICK LEAVE HOURS^NJ6,2^^0;14^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(117.1,13,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(117.1,13,21,0)
;;=^^2^2^2891120^
;;^DD(117.1,13,21,1,0)
;;=This field contains the number of hours of sick leave taken by
;;^DD(117.1,13,21,2,0)
;;=measured personnel.
;;^DD(117.1,14,0)
;;=OTHER LEAVE HOURS^NJ6,2^^0;15^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(117.1,14,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(117.1,14,21,0)
;;=^^2^2^2891120^
;;^DD(117.1,14,21,1,0)
;;=This field contains the number of hours of other types of leave
;;^DD(117.1,14,21,2,0)
;;=taken by measured personnel.
;;^DD(117.1,15,0)
;;=LOANED/UNION HOURS^NJ6,2^^0;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(117.1,15,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(117.1,15,21,0)
;;=^^2^2^2891120^
;;^DD(117.1,15,21,1,0)
;;=This field contains the number of hours worked in other services,
;;^DD(117.1,15,21,2,0)
;;=or on union affairs, by measured personnel.
;;^DD(117.1,16,0)
;;=COMP. HOURS^NJ6,2^^0;17^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(117.1,16,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(117.1,16,21,0)
;;=^^2^2^2891120^
;;^DD(117.1,16,21,1,0)
;;=This field contains the number of compensatory hours worked by
;;^DD(117.1,16,21,2,0)
;;=measured personnel.
;;^DD(117.1,17,0)
;;=TRAINEE HOURS^NJ6,2^^0;18^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(117.1,17,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(117.1,17,21,0)
;;=^^1^1^2891120^
;;^DD(117.1,17,21,1,0)
;;=This field contains the number of hours worked by trainees.
;;^DD(117.1,18,0)
;;=VOLUNTEER HOURS^NJ6,2^^0;19^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(117.1,18,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(117.1,18,21,0)
;;=^^2^2^2891120^
;;^DD(117.1,18,21,1,0)
;;=This field contains the number of hours worked by uncompensated
;;^DD(117.1,18,21,2,0)
;;=volunteers.
;;^DD(117.1,19,0)
;;=BORROWED HOURS^NJ6,2^^0;20^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(117.1,19,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(117.1,19,21,0)
;;=^^2^2^2891120^
;;^DD(117.1,19,21,1,0)
;;=This field contains the number of hours worked by employees borrowed
;;^DD(117.1,19,21,2,0)
;;=from other Services.
FHINI0LI ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(117.1)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^DD(117.1,9,21,2,0)
+2 ;;=measured personnel.
+3 ;;^DD(117.1,10,0)
+4 ;;=INTERMITTENT HOURS^NJ6,2^^0;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+5 ;;^DD(117.1,10,3)
+6 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+7 ;;^DD(117.1,10,21,0)
+8 ;;=^^2^2^2921124^^
+9 ;;^DD(117.1,10,21,1,0)
+10 ;;=This field contains the number of intermittent hours worked by
+11 ;;^DD(117.1,10,21,2,0)
+12 ;;=measured personnel.
+13 ;;^DD(117.1,11,0)
+14 ;;=COP HOURS^NJ6,2^^0;12^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+15 ;;^DD(117.1,11,3)
+16 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+17 ;;^DD(117.1,11,21,0)
+18 ;;=^^2^2^2891120^
+19 ;;^DD(117.1,11,21,1,0)
+20 ;;=This field contains the number of Continuation-of-Pay hours by
+21 ;;^DD(117.1,11,21,2,0)
+22 ;;=measured personnel.
+23 ;;^DD(117.1,12,0)
+24 ;;=ANNUAL LEAVE HOURS^NJ6,2^^0;13^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+25 ;;^DD(117.1,12,3)
+26 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+27 ;;^DD(117.1,12,21,0)
+28 ;;=^^2^2^2891120^
+29 ;;^DD(117.1,12,21,1,0)
+30 ;;=This field contains the number of hours of annual leave taken
+31 ;;^DD(117.1,12,21,2,0)
+32 ;;=by measured personnel.
+33 ;;^DD(117.1,13,0)
+34 ;;=SICK LEAVE HOURS^NJ6,2^^0;14^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+35 ;;^DD(117.1,13,3)
+36 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+37 ;;^DD(117.1,13,21,0)
+38 ;;=^^2^2^2891120^
+39 ;;^DD(117.1,13,21,1,0)
+40 ;;=This field contains the number of hours of sick leave taken by
+41 ;;^DD(117.1,13,21,2,0)
+42 ;;=measured personnel.
+43 ;;^DD(117.1,14,0)
+44 ;;=OTHER LEAVE HOURS^NJ6,2^^0;15^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+45 ;;^DD(117.1,14,3)
+46 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+47 ;;^DD(117.1,14,21,0)
+48 ;;=^^2^2^2891120^
+49 ;;^DD(117.1,14,21,1,0)
+50 ;;=This field contains the number of hours of other types of leave
+51 ;;^DD(117.1,14,21,2,0)
+52 ;;=taken by measured personnel.
+53 ;;^DD(117.1,15,0)
+54 ;;=LOANED/UNION HOURS^NJ6,2^^0;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+55 ;;^DD(117.1,15,3)
+56 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+57 ;;^DD(117.1,15,21,0)
+58 ;;=^^2^2^2891120^
+59 ;;^DD(117.1,15,21,1,0)
+60 ;;=This field contains the number of hours worked in other services,
+61 ;;^DD(117.1,15,21,2,0)
+62 ;;=or on union affairs, by measured personnel.
+63 ;;^DD(117.1,16,0)
+64 ;;=COMP. HOURS^NJ6,2^^0;17^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+65 ;;^DD(117.1,16,3)
+66 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+67 ;;^DD(117.1,16,21,0)
+68 ;;=^^2^2^2891120^
+69 ;;^DD(117.1,16,21,1,0)
+70 ;;=This field contains the number of compensatory hours worked by
+71 ;;^DD(117.1,16,21,2,0)
+72 ;;=measured personnel.
+73 ;;^DD(117.1,17,0)
+74 ;;=TRAINEE HOURS^NJ6,2^^0;18^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+75 ;;^DD(117.1,17,3)
+76 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+77 ;;^DD(117.1,17,21,0)
+78 ;;=^^1^1^2891120^
+79 ;;^DD(117.1,17,21,1,0)
+80 ;;=This field contains the number of hours worked by trainees.
+81 ;;^DD(117.1,18,0)
+82 ;;=VOLUNTEER HOURS^NJ6,2^^0;19^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+83 ;;^DD(117.1,18,3)
+84 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+85 ;;^DD(117.1,18,21,0)
+86 ;;=^^2^2^2891120^
+87 ;;^DD(117.1,18,21,1,0)
+88 ;;=This field contains the number of hours worked by uncompensated
+89 ;;^DD(117.1,18,21,2,0)
+90 ;;=volunteers.
+91 ;;^DD(117.1,19,0)
+92 ;;=BORROWED HOURS^NJ6,2^^0;20^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+93 ;;^DD(117.1,19,3)
+94 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+95 ;;^DD(117.1,19,21,0)
+96 ;;=^^2^2^2891120^
+97 ;;^DD(117.1,19,21,1,0)
+98 ;;=This field contains the number of hours worked by employees borrowed
+99 ;;^DD(117.1,19,21,2,0)
+100 ;;=from other Services.
