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

FHINI0LH.m

Go to the documentation of this file. 
  1. FHINI0LH	; ; 11-OCT-1995
  1. 	;;5.0;Dietetics;;Oct 11, 1995
  1. 	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
  1. Q	Q
  1. 	;;^DIC(117.1,0,"GL")
  1. 	;;=^FH(117.1,
  1. 	;;^DIC("B","STAFFING DATA",117.1)
  1. 	;;=
  1. 	;;^DIC(117.1,"%D",0)
  1. 	;;=^^2^2^2910725^^^^
  1. 	;;^DIC(117.1,"%D",1,0)
  1. 	;;=This file contains the statistical data necessary to prepare the
  1. 	;;^DIC(117.1,"%D",2,0)
  1. 	;;=Staffing Data report. Data is saved for each date.
  1. 	;;^DD(117.1,0)
  1. 	;;=FIELD^^19^20
  1. 	;;^DD(117.1,0,"DDA")
  1. 	;;=N
  1. 	;;^DD(117.1,0,"IX","B",117.1,.01)
  1. 	;;=
  1. 	;;^DD(117.1,0,"NM","STAFFING DATA")
  1. 	;;=
  1. 	;;^DD(117.1,.01,0)
  1. 	;;=DATE^RDX^^0;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X
  1. 	;;^DD(117.1,.01,1,0)
  1. 	;;=^.1
  1. 	;;^DD(117.1,.01,1,1,0)
  1. 	;;=117.1^B
  1. 	;;^DD(117.1,.01,1,1,1)
  1. 	;;=S ^FH(117.1,"B",$E(X,1,30),DA)=""
  1. 	;;^DD(117.1,.01,1,1,2)
  1. 	;;=K ^FH(117.1,"B",$E(X,1,30),DA)
  1. 	;;^DD(117.1,.01,1,1,"%D",0)
  1. 	;;=^^1^1^2911118^
  1. 	;;^DD(117.1,.01,1,1,"%D",1,0)
  1. 	;;=This is the normal B cross-reference of the DATE field.
  1. 	;;^DD(117.1,.01,3)
  1. 	;;=
  1. 	;;^DD(117.1,.01,21,0)
  1. 	;;=^^1^1^2910514^^
  1. 	;;^DD(117.1,.01,21,1,0)
  1. 	;;=This is the date for which staffing data is entered.
  1. 	;;^DD(117.1,1,0)
  1. 	;;=DAILY FTEE^NJ7,3^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
  1. 	;;^DD(117.1,1,3)
  1. 	;;=Type a Number between 0 and 999, 3 Decimal Digits
  1. 	;;^DD(117.1,1,21,0)
  1. 	;;=^^2^2^2920129^^^^
  1. 	;;^DD(117.1,1,21,1,0)
  1. 	;;=This field contains the count of all personnel assigned to the
  1. 	;;^DD(117.1,1,21,2,0)
  1. 	;;=Dietetic Service and includes full-time and part-time employees.
  1. 	;;^DD(117.1,1,"DT")
  1. 	;;=2891120
  1. 	;;^DD(117.1,2,0)
  1. 	;;=CLINICAL FTEE^NJ7,3^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
  1. 	;;^DD(117.1,2,3)
  1. 	;;=Type a Number between 0 and 999, 3 Decimal Digits
  1. 	;;^DD(117.1,2,21,0)
  1. 	;;=^^3^3^2950104^^^^
  1. 	;;^DD(117.1,2,21,1,0)
  1. 	;;=This field contains the FTEE of the clinical dietitians
  1. 	;;^DD(117.1,2,21,2,0)
  1. 	;;=and clinical technicians who work with the clinical
  1. 	;;^DD(117.1,2,21,3,0)
  1. 	;;=dietitians in patient care activities.
  1. 	;;^DD(117.1,2,"DT")
  1. 	;;=2891120
  1. 	;;^DD(117.1,3,0)
  1. 	;;=ADMINISTRATIVE FTEE^NJ7,3^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
  1. 	;;^DD(117.1,3,3)
  1. 	;;=Type a Number between 0 and 999, 3 Decimal Digits
  1. 	;;^DD(117.1,3,21,0)
  1. 	;;=5^^4^4^2950104^^
  1. 	;;^DD(117.1,3,21,1,0)
  1. 	;;=This field contains the FTEE of the Chief and Assistant Chief
  1. 	;;^DD(117.1,3,21,2,0)
  1. 	;;=of the Dietetic Service, Chief of the Administrative section,
  1. 	;;^DD(117.1,3,21,3,0)
  1. 	;;=Chief Clinical Section, administrative dietitians, internship,
  1. 	;;^DD(117.1,3,21,4,0)
  1. 	;;=education and staff development dietitians, and any QA dietitians.
  1. 	;;^DD(117.1,3,"DT")
  1. 	;;=2891120
  1. 	;;^DD(117.1,4,0)
  1. 	;;=SUPPORT STAFF FTEE^NJ7,3^^0;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
  1. 	;;^DD(117.1,4,3)
  1. 	;;=Type a Number between 0 and 999, 3 Decimal Digits
  1. 	;;^DD(117.1,4,21,0)
  1. 	;;=^^3^3^2950222^^^^
  1. 	;;^DD(117.1,4,21,1,0)
  1. 	;;=This field contains the FTEE of all secretaries, clerk-typists,
  1. 	;;^DD(117.1,4,21,2,0)
  1. 	;;=cost accountants, and administrative technicians; it does not
  1. 	;;^DD(117.1,4,21,3,0)
  1. 	;;=include diet communications personnel.
  1. 	;;^DD(117.1,4,"DT")
  1. 	;;=2891120
  1. 	;;^DD(117.1,5,0)
  1. 	;;=CFWS FTEE^NJ7,3^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
  1. 	;;^DD(117.1,5,3)
  1. 	;;=Type a Number between 0 and 999, 3 Decimal Digits
  1. 	;;^DD(117.1,5,21,0)
  1. 	;;=^^2^2^2930204^^^
  1. 	;;^DD(117.1,5,21,1,0)
  1. 	;;=This field contains the FTEE of Supervisory Cooks and Supervisory
  1. 	;;^DD(117.1,5,21,2,0)
  1. 	;;=Food Service workers.
  1. 	;;^DD(117.1,5,"DT")
  1. 	;;=2891120
  1. 	;;^DD(117.1,6,0)
  1. 	;;=DAYS OFF HOURS^NJ7,2^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3N.N) X
  1. 	;;^DD(117.1,6,3)
  1. 	;;=Type a Number between 0 and 9999, 2 Decimal Digits
  1. 	;;^DD(117.1,6,21,0)
  1. 	;;=^^2^2^2891121^^^
  1. 	;;^DD(117.1,6,21,1,0)
  1. 	;;=This field contains the count of hours not worked by measured
  1. 	;;^DD(117.1,6,21,2,0)
  1. 	;;=personnel.
  1. 	;;^DD(117.1,6,"DT")
  1. 	;;=2891121
  1. 	;;^DD(117.1,7,0)
  1. 	;;=LWOP & AWOL HOURS^NJ6,2^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
  1. 	;;^DD(117.1,7,3)
  1. 	;;=Type a Number between 0 and 999, 2 Decimal Digits
  1. 	;;^DD(117.1,7,21,0)
  1. 	;;=^^2^2^2891120^
  1. 	;;^DD(117.1,7,21,1,0)
  1. 	;;=This field contains the number of LWOP and AWOL hours for
  1. 	;;^DD(117.1,7,21,2,0)
  1. 	;;=measured personnel.
  1. 	;;^DD(117.1,8,0)
  1. 	;;=OVERTIME HOURS^NJ6,2^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
  1. 	;;^DD(117.1,8,3)
  1. 	;;=Type a Number between 0 and 999, 2 Decimal Digits
  1. 	;;^DD(117.1,8,21,0)
  1. 	;;=^^2^2^2891120^
  1. 	;;^DD(117.1,8,21,1,0)
  1. 	;;=This field contains the number of overtime hours worked by
  1. 	;;^DD(117.1,8,21,2,0)
  1. 	;;=measured personnel.
  1. 	;;^DD(117.1,9,0)
  1. 	;;=UNSCHEDULED HOURS^NJ6,2^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
  1. 	;;^DD(117.1,9,3)
  1. 	;;=Type a Number between 0 and 999, 2 Decimal Digits
  1. 	;;^DD(117.1,9,21,0)
  1. 	;;=^^2^2^2921124^^^
  1. 	;;^DD(117.1,9,21,1,0)
  1. 	;;=This field contains the number of unscheduled hours worked by