FHINI0LN ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQ(117.3) 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.3,12,21,2,0)
;;=Programs.
;;^DD(117.3,13,0)
;;=PRIMARY DELIVERY SYSTEM^117.313P^^DELV;0
;;^DD(117.3,13,12)
;;=SELECT ONLY THE PRIMARY DELIVERY SYSTEM.
;;^DD(117.3,13,12.1)
;;=S DIC("S")="I $P(^(0),U,2)=""D"""
;;^DD(117.3,13,21,0)
;;=^^1^1^2920916^^^^
;;^DD(117.3,13,21,1,0)
;;=This multiple contains the categories of the Primary Delivery System.
;;^DD(117.3,15,0)
;;=BEDSIDE TRAY^NJ4,0^^0;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.3,15,3)
;;=Type a Number between 0 and 9999, 0 Decimal Digits
;;^DD(117.3,15,21,0)
;;=^^1^1^2920130^
;;^DD(117.3,15,21,1,0)
;;=This field contains the number of Bedside Tray Service.
;;^DD(117.3,15,"DT")
;;=2920303
;;^DD(117.3,16,0)
;;=CAFETERIA^NJ4,0^^0;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.3,16,3)
;;=Type a Number between 0 and 9999, 0 Decimal Digits
;;^DD(117.3,16,21,0)
;;=^^1^1^2920130^
;;^DD(117.3,16,21,1,0)
;;=This field contains the number of Cafeteria Service.
;;^DD(117.3,16,"DT")
;;=2920303
;;^DD(117.3,17,0)
;;=DINING ROOM TRAY^NJ4,0^^0;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.3,17,3)
;;=Type a Number between 0 and 9999, 0 Decimal Digits
;;^DD(117.3,17,21,0)
;;=^^2^2^2920130^
;;^DD(117.3,17,21,1,0)
;;=This field contains number of trays delivered to patients' table
;;^DD(117.3,17,21,2,0)
;;=in a dining Area.
;;^DD(117.3,17,"DT")
;;=2920303
;;^DD(117.3,21,0)
;;=OUTPATIENTS VISIT HOSP^NJ9,0^^1;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.3,21,3)
;;=Type a Number between 0 and 999999999, 0 Decimal Digits
;;^DD(117.3,21,21,0)
;;=^^1^1^2950223^^^
;;^DD(117.3,21,21,1,0)
;;=This field contains the number of Inpatients being treated.
;;^DD(117.3,21,"DT")
;;=2920211
;;^DD(117.3,23,0)
;;=NUMBER OF SATELLITES^NJ1,0^^1;3^K:+X'=X!(X>5)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.3,23,3)
;;=Type a Number between 0 and 5, 0 Decimal Digits
;;^DD(117.3,23,21,0)
;;=^^2^2^2950223^^
;;^DD(117.3,23,21,1,0)
;;=This field contains the number of Outpatients that visited the Satellite
;;^DD(117.3,23,21,2,0)
;;=Clinics.
;;^DD(117.3,23,"DT")
;;=2920211
;;^DD(117.3,25,0)
;;=SATELLITE LOC^117.325^^CLIN;0
;;^DD(117.3,25,21,0)
;;=^^2^2^2920130^
;;^DD(117.3,25,21,1,0)
;;=This multiple contains the Locations of the Satellite Clinics and
;;^DD(117.3,25,21,2,0)
;;=the number of Outpatients that visited them.
;;^DD(117.3,26,0)
;;=TOTAL MEALS SERVED^NJ9,0^^1;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.3,26,3)
;;=Type a Number between 0 and 999999999, 0 Decimal Digits
;;^DD(117.3,26,21,0)
;;=^^1^1^2920130^
;;^DD(117.3,26,21,1,0)
;;=The Total Meals Served calculated.
;;^DD(117.3,26,"DT")
;;=2920130
;;^DD(117.3,27,0)
;;=TOTAL DAILY FTEE^NJ7,3^^1;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(117.3,27,3)
;;=Type a Number between 0 and 999, 3 Decimal Digits
;;^DD(117.3,27,21,0)
;;=^^2^2^2920130^
;;^DD(117.3,27,21,1,0)
;;=This field contains the count of all personnel assigned to the Dietetic
;;^DD(117.3,27,21,2,0)
;;=Service and includes full-time and part-time employees.
;;^DD(117.3,27,"DT")
;;=2920130
;;^DD(117.3,28,0)
;;=CLINICAL FTEE^NJ7,3^^1;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(117.3,28,3)
;;=Type a Number between 0 and 999, 3 Decimal Digits
;;^DD(117.3,28,21,0)
;;=^^3^3^2950104^^^^
;;^DD(117.3,28,21,1,0)
;;=This field contains the FTEE of the Clinical Dietitians
;;^DD(117.3,28,21,2,0)
;;=and Clinical Technicians who work with the Clinical
;;^DD(117.3,28,21,3,0)
;;=Dietitians in patient care activities.
;;^DD(117.3,28,"DT")
;;=2920130
;;^DD(117.3,29,0)
;;=ADMINISTRATIVE FTEE^NJ7,3^^1;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(117.3,29,3)
;;=Type a Number between 0 and 999, 3 Decimal Digits
;;^DD(117.3,29,21,0)
;;=^^4^4^2950104^^^^
;;^DD(117.3,29,21,1,0)
;;=This field contains the FTEE of the Chief and Assistant Chief of
;;^DD(117.3,29,21,2,0)
;;=the Dietetic Service, Chief of the Administrative Section, Chief
;;^DD(117.3,29,21,3,0)
;;=Clinical Section, Administrative dietitians, internship,
;;^DD(117.3,29,21,4,0)
;;=education and staff development dietitians and any QA dietitians.
;;^DD(117.3,29,"DT")
;;=2920130
;;^DD(117.3,30,0)
;;=SUPPORT STAFF FTEE^NJ7,3^^1;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
;;^DD(117.3,30,3)
;;=Type a Number between 0 and 999, 3 Decimal Digits
;;^DD(117.3,30,21,0)
;;=^^3^3^2950223^^^^
;;^DD(117.3,30,21,1,0)
;;=This field contains the FTEE of all secretaries, clerk-typists,
;;^DD(117.3,30,21,2,0)
;;=cost accountants and administrative technicians; it does not
FHINI0LN ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQ(117.3)
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.3,12,21,2,0)
+2 ;;=Programs.
+3 ;;^DD(117.3,13,0)
+4 ;;=PRIMARY DELIVERY SYSTEM^117.313P^^DELV;0
+5 ;;^DD(117.3,13,12)
+6 ;;=SELECT ONLY THE PRIMARY DELIVERY SYSTEM.
+7 ;;^DD(117.3,13,12.1)
+8 ;;=S DIC("S")="I $P(^(0),U,2)=""D"""
+9 ;;^DD(117.3,13,21,0)
+10 ;;=^^1^1^2920916^^^^
+11 ;;^DD(117.3,13,21,1,0)
+12 ;;=This multiple contains the categories of the Primary Delivery System.
+13 ;;^DD(117.3,15,0)
+14 ;;=BEDSIDE TRAY^NJ4,0^^0;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+15 ;;^DD(117.3,15,3)
+16 ;;=Type a Number between 0 and 9999, 0 Decimal Digits
+17 ;;^DD(117.3,15,21,0)
+18 ;;=^^1^1^2920130^
+19 ;;^DD(117.3,15,21,1,0)
+20 ;;=This field contains the number of Bedside Tray Service.
+21 ;;^DD(117.3,15,"DT")
+22 ;;=2920303
+23 ;;^DD(117.3,16,0)
+24 ;;=CAFETERIA^NJ4,0^^0;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+25 ;;^DD(117.3,16,3)
+26 ;;=Type a Number between 0 and 9999, 0 Decimal Digits
+27 ;;^DD(117.3,16,21,0)
+28 ;;=^^1^1^2920130^
+29 ;;^DD(117.3,16,21,1,0)
+30 ;;=This field contains the number of Cafeteria Service.
+31 ;;^DD(117.3,16,"DT")
+32 ;;=2920303
+33 ;;^DD(117.3,17,0)
+34 ;;=DINING ROOM TRAY^NJ4,0^^0;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+35 ;;^DD(117.3,17,3)
+36 ;;=Type a Number between 0 and 9999, 0 Decimal Digits
+37 ;;^DD(117.3,17,21,0)
+38 ;;=^^2^2^2920130^
+39 ;;^DD(117.3,17,21,1,0)
+40 ;;=This field contains number of trays delivered to patients' table
+41 ;;^DD(117.3,17,21,2,0)
+42 ;;=in a dining Area.
+43 ;;^DD(117.3,17,"DT")
+44 ;;=2920303
+45 ;;^DD(117.3,21,0)
+46 ;;=OUTPATIENTS VISIT HOSP^NJ9,0^^1;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
+47 ;;^DD(117.3,21,3)
+48 ;;=Type a Number between 0 and 999999999, 0 Decimal Digits
+49 ;;^DD(117.3,21,21,0)
+50 ;;=^^1^1^2950223^^^
+51 ;;^DD(117.3,21,21,1,0)
+52 ;;=This field contains the number of Inpatients being treated.
+53 ;;^DD(117.3,21,"DT")
+54 ;;=2920211
+55 ;;^DD(117.3,23,0)
+56 ;;=NUMBER OF SATELLITES^NJ1,0^^1;3^K:+X'=X!(X>5)!(X<0)!(X?.E1"."1N.N) X
+57 ;;^DD(117.3,23,3)
+58 ;;=Type a Number between 0 and 5, 0 Decimal Digits
+59 ;;^DD(117.3,23,21,0)
+60 ;;=^^2^2^2950223^^
+61 ;;^DD(117.3,23,21,1,0)
+62 ;;=This field contains the number of Outpatients that visited the Satellite
+63 ;;^DD(117.3,23,21,2,0)
+64 ;;=Clinics.
+65 ;;^DD(117.3,23,"DT")
+66 ;;=2920211
+67 ;;^DD(117.3,25,0)
+68 ;;=SATELLITE LOC^117.325^^CLIN;0
+69 ;;^DD(117.3,25,21,0)
+70 ;;=^^2^2^2920130^
+71 ;;^DD(117.3,25,21,1,0)
+72 ;;=This multiple contains the Locations of the Satellite Clinics and
+73 ;;^DD(117.3,25,21,2,0)
+74 ;;=the number of Outpatients that visited them.
+75 ;;^DD(117.3,26,0)
+76 ;;=TOTAL MEALS SERVED^NJ9,0^^1;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
+77 ;;^DD(117.3,26,3)
+78 ;;=Type a Number between 0 and 999999999, 0 Decimal Digits
+79 ;;^DD(117.3,26,21,0)
+80 ;;=^^1^1^2920130^
+81 ;;^DD(117.3,26,21,1,0)
+82 ;;=The Total Meals Served calculated.
+83 ;;^DD(117.3,26,"DT")
+84 ;;=2920130
+85 ;;^DD(117.3,27,0)
+86 ;;=TOTAL DAILY FTEE^NJ7,3^^1;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
+87 ;;^DD(117.3,27,3)
+88 ;;=Type a Number between 0 and 999, 3 Decimal Digits
+89 ;;^DD(117.3,27,21,0)
+90 ;;=^^2^2^2920130^
+91 ;;^DD(117.3,27,21,1,0)
+92 ;;=This field contains the count of all personnel assigned to the Dietetic
+93 ;;^DD(117.3,27,21,2,0)
+94 ;;=Service and includes full-time and part-time employees.
+95 ;;^DD(117.3,27,"DT")
+96 ;;=2920130
+97 ;;^DD(117.3,28,0)
+98 ;;=CLINICAL FTEE^NJ7,3^^1;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
+99 ;;^DD(117.3,28,3)
+100 ;;=Type a Number between 0 and 999, 3 Decimal Digits
+101 ;;^DD(117.3,28,21,0)
+102 ;;=^^3^3^2950104^^^^
+103 ;;^DD(117.3,28,21,1,0)
+104 ;;=This field contains the FTEE of the Clinical Dietitians
+105 ;;^DD(117.3,28,21,2,0)
+106 ;;=and Clinical Technicians who work with the Clinical
+107 ;;^DD(117.3,28,21,3,0)
+108 ;;=Dietitians in patient care activities.
+109 ;;^DD(117.3,28,"DT")
+110 ;;=2920130
+111 ;;^DD(117.3,29,0)
+112 ;;=ADMINISTRATIVE FTEE^NJ7,3^^1;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
+113 ;;^DD(117.3,29,3)
+114 ;;=Type a Number between 0 and 999, 3 Decimal Digits
+115 ;;^DD(117.3,29,21,0)
+116 ;;=^^4^4^2950104^^^^
+117 ;;^DD(117.3,29,21,1,0)
+118 ;;=This field contains the FTEE of the Chief and Assistant Chief of
+119 ;;^DD(117.3,29,21,2,0)
+120 ;;=the Dietetic Service, Chief of the Administrative Section, Chief
+121 ;;^DD(117.3,29,21,3,0)
+122 ;;=Clinical Section, Administrative dietitians, internship,
+123 ;;^DD(117.3,29,21,4,0)
+124 ;;=education and staff development dietitians and any QA dietitians.
+125 ;;^DD(117.3,29,"DT")
+126 ;;=2920130
+127 ;;^DD(117.3,30,0)
+128 ;;=SUPPORT STAFF FTEE^NJ7,3^^1;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"."4N.N) X
+129 ;;^DD(117.3,30,3)
+130 ;;=Type a Number between 0 and 999, 3 Decimal Digits
+131 ;;^DD(117.3,30,21,0)
+132 ;;=^^3^3^2950223^^^^
+133 ;;^DD(117.3,30,21,1,0)
+134 ;;=This field contains the FTEE of all secretaries, clerk-typists,
+135 ;;^DD(117.3,30,21,2,0)
+136 ;;=cost accountants and administrative technicians; it does not
