FHINI0LH ; ; 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
;;^DIC(117.1,0,"GL")
;;=^FH(117.1,
;;^DIC("B","STAFFING DATA",117.1)
;;=
;;^DIC(117.1,"%D",0)
;;=^^2^2^2910725^^^^
;;^DIC(117.1,"%D",1,0)
;;=This file contains the statistical data necessary to prepare the
;;^DIC(117.1,"%D",2,0)
;;=Staffing Data report. Data is saved for each date.
;;^DD(117.1,0)
;;=FIELD^^19^20
;;^DD(117.1,0,"DDA")
;;=N
;;^DD(117.1,0,"IX","B",117.1,.01)
;;=
;;^DD(117.1,0,"NM","STAFFING DATA")
;;=
;;^DD(117.1,.01,0)
;;=DATE^RDX^^0;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X
;;^DD(117.1,.01,1,0)
;;=^.1
;;^DD(117.1,.01,1,1,0)
;;=117.1^B
;;^DD(117.1,.01,1,1,1)
;;=S ^FH(117.1,"B",$E(X,1,30),DA)=""
;;^DD(117.1,.01,1,1,2)
;;=K ^FH(117.1,"B",$E(X,1,30),DA)
;;^DD(117.1,.01,1,1,"%D",0)
;;=^^1^1^2911118^
;;^DD(117.1,.01,1,1,"%D",1,0)
;;=This is the normal B cross-reference of the DATE field.
;;^DD(117.1,.01,3)
;;=
;;^DD(117.1,.01,21,0)
;;=^^1^1^2910514^^
;;^DD(117.1,.01,21,1,0)
;;=This is the date for which staffing data is entered.
;;^DD(117.1,1,0)
;;=DAILY FTEE^NJ7,3^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(117.1,1,3)
;;=Type a Number between 0 and 999, 3 Decimal Digits
;;^DD(117.1,1,21,0)
;;=^^2^2^2920129^^^^
;;^DD(117.1,1,21,1,0)
;;=This field contains the count of all personnel assigned to the
;;^DD(117.1,1,21,2,0)
;;=Dietetic Service and includes full-time and part-time employees.
;;^DD(117.1,1,"DT")
;;=2891120
;;^DD(117.1,2,0)
;;=CLINICAL FTEE^NJ7,3^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(117.1,2,3)
;;=Type a Number between 0 and 999, 3 Decimal Digits
;;^DD(117.1,2,21,0)
;;=^^3^3^2950104^^^^
;;^DD(117.1,2,21,1,0)
;;=This field contains the FTEE of the clinical dietitians
;;^DD(117.1,2,21,2,0)
;;=and clinical technicians who work with the clinical
;;^DD(117.1,2,21,3,0)
;;=dietitians in patient care activities.
;;^DD(117.1,2,"DT")
;;=2891120
;;^DD(117.1,3,0)
;;=ADMINISTRATIVE FTEE^NJ7,3^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(117.1,3,3)
;;=Type a Number between 0 and 999, 3 Decimal Digits
;;^DD(117.1,3,21,0)
;;=5^^4^4^2950104^^
;;^DD(117.1,3,21,1,0)
;;=This field contains the FTEE of the Chief and Assistant Chief
;;^DD(117.1,3,21,2,0)
;;=of the Dietetic Service, Chief of the Administrative section,
;;^DD(117.1,3,21,3,0)
;;=Chief Clinical Section, administrative dietitians, internship,
;;^DD(117.1,3,21,4,0)
;;=education and staff development dietitians, and any QA dietitians.
;;^DD(117.1,3,"DT")
;;=2891120
;;^DD(117.1,4,0)
;;=SUPPORT STAFF FTEE^NJ7,3^^0;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(117.1,4,3)
;;=Type a Number between 0 and 999, 3 Decimal Digits
;;^DD(117.1,4,21,0)
;;=^^3^3^2950222^^^^
;;^DD(117.1,4,21,1,0)
;;=This field contains the FTEE of all secretaries, clerk-typists,
;;^DD(117.1,4,21,2,0)
;;=cost accountants, and administrative technicians; it does not
;;^DD(117.1,4,21,3,0)
;;=include diet communications personnel.
;;^DD(117.1,4,"DT")
;;=2891120
;;^DD(117.1,5,0)
;;=CFWS FTEE^NJ7,3^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(117.1,5,3)
;;=Type a Number between 0 and 999, 3 Decimal Digits
;;^DD(117.1,5,21,0)
;;=^^2^2^2930204^^^
;;^DD(117.1,5,21,1,0)
;;=This field contains the FTEE of Supervisory Cooks and Supervisory
;;^DD(117.1,5,21,2,0)
;;=Food Service workers.
;;^DD(117.1,5,"DT")
;;=2891120
;;^DD(117.1,6,0)
;;=DAYS OFF HOURS^NJ7,2^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(117.1,6,3)
;;=Type a Number between 0 and 9999, 2 Decimal Digits
;;^DD(117.1,6,21,0)
;;=^^2^2^2891121^^^
;;^DD(117.1,6,21,1,0)
;;=This field contains the count of hours not worked by measured
;;^DD(117.1,6,21,2,0)
;;=personnel.
;;^DD(117.1,6,"DT")
;;=2891121
;;^DD(117.1,7,0)
;;=LWOP & AWOL HOURS^NJ6,2^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(117.1,7,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(117.1,7,21,0)
;;=^^2^2^2891120^
;;^DD(117.1,7,21,1,0)
;;=This field contains the number of LWOP and AWOL hours for
;;^DD(117.1,7,21,2,0)
;;=measured personnel.
;;^DD(117.1,8,0)
;;=OVERTIME HOURS^NJ6,2^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(117.1,8,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(117.1,8,21,0)
;;=^^2^2^2891120^
;;^DD(117.1,8,21,1,0)
;;=This field contains the number of overtime hours worked by
;;^DD(117.1,8,21,2,0)
;;=measured personnel.
;;^DD(117.1,9,0)
;;=UNSCHEDULED HOURS^NJ6,2^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(117.1,9,3)
;;=Type a Number between 0 and 999, 2 Decimal Digits
;;^DD(117.1,9,21,0)
;;=^^2^2^2921124^^^
;;^DD(117.1,9,21,1,0)
;;=This field contains the number of unscheduled hours worked by
FHINI0LH ; ; 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 ;;^DIC(117.1,0,"GL")
+2 ;;=^FH(117.1,
+3 ;;^DIC("B","STAFFING DATA",117.1)
+4 ;;=
+5 ;;^DIC(117.1,"%D",0)
+6 ;;=^^2^2^2910725^^^^
+7 ;;^DIC(117.1,"%D",1,0)
+8 ;;=This file contains the statistical data necessary to prepare the
+9 ;;^DIC(117.1,"%D",2,0)
+10 ;;=Staffing Data report. Data is saved for each date.
+11 ;;^DD(117.1,0)
+12 ;;=FIELD^^19^20
+13 ;;^DD(117.1,0,"DDA")
+14 ;;=N
+15 ;;^DD(117.1,0,"IX","B",117.1,.01)
+16 ;;=
+17 ;;^DD(117.1,0,"NM","STAFFING DATA")
+18 ;;=
+19 ;;^DD(117.1,.01,0)
+20 ;;=DATE^RDX^^0;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X
+21 ;;^DD(117.1,.01,1,0)
+22 ;;=^.1
+23 ;;^DD(117.1,.01,1,1,0)
+24 ;;=117.1^B
+25 ;;^DD(117.1,.01,1,1,1)
+26 ;;=S ^FH(117.1,"B",$E(X,1,30),DA)=""
+27 ;;^DD(117.1,.01,1,1,2)
+28 ;;=K ^FH(117.1,"B",$E(X,1,30),DA)
+29 ;;^DD(117.1,.01,1,1,"%D",0)
+30 ;;=^^1^1^2911118^
+31 ;;^DD(117.1,.01,1,1,"%D",1,0)
+32 ;;=This is the normal B cross-reference of the DATE field.
+33 ;;^DD(117.1,.01,3)
+34 ;;=
+35 ;;^DD(117.1,.01,21,0)
+36 ;;=^^1^1^2910514^^
+37 ;;^DD(117.1,.01,21,1,0)
+38 ;;=This is the date for which staffing data is entered.
+39 ;;^DD(117.1,1,0)
+40 ;;=DAILY FTEE^NJ7,3^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
+41 ;;^DD(117.1,1,3)
+42 ;;=Type a Number between 0 and 999, 3 Decimal Digits
+43 ;;^DD(117.1,1,21,0)
+44 ;;=^^2^2^2920129^^^^
+45 ;;^DD(117.1,1,21,1,0)
+46 ;;=This field contains the count of all personnel assigned to the
+47 ;;^DD(117.1,1,21,2,0)
+48 ;;=Dietetic Service and includes full-time and part-time employees.
+49 ;;^DD(117.1,1,"DT")
+50 ;;=2891120
+51 ;;^DD(117.1,2,0)
+52 ;;=CLINICAL FTEE^NJ7,3^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
+53 ;;^DD(117.1,2,3)
+54 ;;=Type a Number between 0 and 999, 3 Decimal Digits
+55 ;;^DD(117.1,2,21,0)
+56 ;;=^^3^3^2950104^^^^
+57 ;;^DD(117.1,2,21,1,0)
+58 ;;=This field contains the FTEE of the clinical dietitians
+59 ;;^DD(117.1,2,21,2,0)
+60 ;;=and clinical technicians who work with the clinical
+61 ;;^DD(117.1,2,21,3,0)
+62 ;;=dietitians in patient care activities.
+63 ;;^DD(117.1,2,"DT")
+64 ;;=2891120
+65 ;;^DD(117.1,3,0)
+66 ;;=ADMINISTRATIVE FTEE^NJ7,3^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
+67 ;;^DD(117.1,3,3)
+68 ;;=Type a Number between 0 and 999, 3 Decimal Digits
+69 ;;^DD(117.1,3,21,0)
+70 ;;=5^^4^4^2950104^^
+71 ;;^DD(117.1,3,21,1,0)
+72 ;;=This field contains the FTEE of the Chief and Assistant Chief
+73 ;;^DD(117.1,3,21,2,0)
+74 ;;=of the Dietetic Service, Chief of the Administrative section,
+75 ;;^DD(117.1,3,21,3,0)
+76 ;;=Chief Clinical Section, administrative dietitians, internship,
+77 ;;^DD(117.1,3,21,4,0)
+78 ;;=education and staff development dietitians, and any QA dietitians.
+79 ;;^DD(117.1,3,"DT")
+80 ;;=2891120
+81 ;;^DD(117.1,4,0)
+82 ;;=SUPPORT STAFF FTEE^NJ7,3^^0;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
+83 ;;^DD(117.1,4,3)
+84 ;;=Type a Number between 0 and 999, 3 Decimal Digits
+85 ;;^DD(117.1,4,21,0)
+86 ;;=^^3^3^2950222^^^^
+87 ;;^DD(117.1,4,21,1,0)
+88 ;;=This field contains the FTEE of all secretaries, clerk-typists,
+89 ;;^DD(117.1,4,21,2,0)
+90 ;;=cost accountants, and administrative technicians; it does not
+91 ;;^DD(117.1,4,21,3,0)
+92 ;;=include diet communications personnel.
+93 ;;^DD(117.1,4,"DT")
+94 ;;=2891120
+95 ;;^DD(117.1,5,0)
+96 ;;=CFWS FTEE^NJ7,3^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
+97 ;;^DD(117.1,5,3)
+98 ;;=Type a Number between 0 and 999, 3 Decimal Digits
+99 ;;^DD(117.1,5,21,0)
+100 ;;=^^2^2^2930204^^^
+101 ;;^DD(117.1,5,21,1,0)
+102 ;;=This field contains the FTEE of Supervisory Cooks and Supervisory
+103 ;;^DD(117.1,5,21,2,0)
+104 ;;=Food Service workers.
+105 ;;^DD(117.1,5,"DT")
+106 ;;=2891120
+107 ;;^DD(117.1,6,0)
+108 ;;=DAYS OFF HOURS^NJ7,2^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3N.N) X
+109 ;;^DD(117.1,6,3)
+110 ;;=Type a Number between 0 and 9999, 2 Decimal Digits
+111 ;;^DD(117.1,6,21,0)
+112 ;;=^^2^2^2891121^^^
+113 ;;^DD(117.1,6,21,1,0)
+114 ;;=This field contains the count of hours not worked by measured
+115 ;;^DD(117.1,6,21,2,0)
+116 ;;=personnel.
+117 ;;^DD(117.1,6,"DT")
+118 ;;=2891121
+119 ;;^DD(117.1,7,0)
+120 ;;=LWOP & AWOL HOURS^NJ6,2^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+121 ;;^DD(117.1,7,3)
+122 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+123 ;;^DD(117.1,7,21,0)
+124 ;;=^^2^2^2891120^
+125 ;;^DD(117.1,7,21,1,0)
+126 ;;=This field contains the number of LWOP and AWOL hours for
+127 ;;^DD(117.1,7,21,2,0)
+128 ;;=measured personnel.
+129 ;;^DD(117.1,8,0)
+130 ;;=OVERTIME HOURS^NJ6,2^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+131 ;;^DD(117.1,8,3)
+132 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+133 ;;^DD(117.1,8,21,0)
+134 ;;=^^2^2^2891120^
+135 ;;^DD(117.1,8,21,1,0)
+136 ;;=This field contains the number of overtime hours worked by
+137 ;;^DD(117.1,8,21,2,0)
+138 ;;=measured personnel.
+139 ;;^DD(117.1,9,0)
+140 ;;=UNSCHEDULED HOURS^NJ6,2^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
+141 ;;^DD(117.1,9,3)
+142 ;;=Type a Number between 0 and 999, 2 Decimal Digits
+143 ;;^DD(117.1,9,21,0)
+144 ;;=^^2^2^2921124^^^
+145 ;;^DD(117.1,9,21,1,0)
+146 ;;=This field contains the number of unscheduled hours worked by
