FHINI0LP ; ; 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,45,"DT")
;;=2930706
;;^DD(117.3,46,0)
;;=MG NA^NJ5,0^^3;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.3,46,3)
;;=Type a Number between 0 and 99999, 0 Decimal Digits
;;^DD(117.3,46,21,0)
;;=^^2^2^2930706^^^
;;^DD(117.3,46,21,1,0)
;;=This field contains the milligrams Sodium taken from Nutritive
;;^DD(117.3,46,21,2,0)
;;=Analysis Average.
;;^DD(117.3,46,"DT")
;;=2930706
;;^DD(117.3,47,0)
;;=STAFF CERT DIAB ED (CDE)^NJ2,0^^1;14^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.3,47,3)
;;=Type a Number between 0 and 99, 0 Decimal Digits
;;^DD(117.3,47,21,0)
;;=^^2^2^2930129^^^^
;;^DD(117.3,47,21,1,0)
;;=This field contains the number of the Specialty Staff Certified Diabetes
;;^DD(117.3,47,21,2,0)
;;=Educators (CDE) at your facility.
;;^DD(117.3,47,"DT")
;;=2930129
;;^DD(117.3,48,0)
;;=STAFF CERT IN NUTR SUPP^NJ2,0^^1;15^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.3,48,3)
;;=Type a Number between 0 and 99, 0 Decimal Digits
;;^DD(117.3,48,21,0)
;;=^^2^2^2930129^^^^
;;^DD(117.3,48,21,1,0)
;;=This field contains the number of Specialty Staff Certified in Nutrition
;;^DD(117.3,48,21,2,0)
;;=Support at your facility.
;;^DD(117.3,48,"DT")
;;=2930129
;;^DD(117.3,49,0)
;;=STAFF REG CLIN DIE TECH^NJ2,0^^1;16^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.3,49,3)
;;=Type a Number between 0 and 99, 0 Decimal Digits
;;^DD(117.3,49,21,0)
;;=^^2^2^2930129^^
;;^DD(117.3,49,21,1,0)
;;=This field contains the number of Specialty Staff Registered
;;^DD(117.3,49,21,2,0)
;;=Clinical Dietetic Technicians at your facility.
;;^DD(117.3,49,"DT")
;;=2930129
;;^DD(117.3,50,0)
;;=STAFF W/CLIN PRIVILEGES^NJ2,0^^1;17^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
;;^DD(117.3,50,3)
;;=Type a Number between 0 and 99, 0 Decimal Digits
;;^DD(117.3,50,21,0)
;;=^^2^2^2930129^
;;^DD(117.3,50,21,1,0)
;;=This field contains the number of Specialty Staff with Clinical
;;^DD(117.3,50,21,2,0)
;;=Privileges (not scope of practice).
;;^DD(117.3,50,"DT")
;;=2930129
;;^DD(117.3,51,0)
;;=DO YOU USE COOK CHILL FOODS?^S^Y:YES;N:NO;^0;21^Q
;;^DD(117.3,51,21,0)
;;=^^2^2^2930204^
;;^DD(117.3,51,21,1,0)
;;=This field contains a Y or N on whether the Dietitians use Cook
;;^DD(117.3,51,21,2,0)
;;=Chill Foods.
;;^DD(117.3,51,"DT")
;;=2930204
;;^DD(117.3,52,0)
;;=SELECT 1 OR 2^S^1:LESS AND EQUAL 25% OF MENU ITEMS;2:GREATER THAN 25% OF MENU ITEMS;^0;22^Q
;;^DD(117.3,52,21,0)
;;=^^3^3^2930204^
;;^DD(117.3,52,21,1,0)
;;=This field will be asked if the Dietitians use Cook Chill Foods.
;;^DD(117.3,52,21,2,0)
;;=It contains a 1 for less and equal to 25% of menu items cook
;;^DD(117.3,52,21,3,0)
;;=chilled or a 2 for greater than 25% of menu items cook chilled.
;;^DD(117.3,52,"DT")
;;=2930204
;;^DD(117.3,53,0)
;;=FUNDED NUTRITION RESEARCH?^S^Y:YES;N:NO;^0;23^Q
;;^DD(117.3,53,21,0)
;;=^^2^2^2930204^
;;^DD(117.3,53,21,1,0)
;;=This field contains a Y or N on whether the Dietitians have
;;^DD(117.3,53,21,2,0)
;;=Funded Nutrition Research.
;;^DD(117.3,53,"DT")
;;=2930204
;;^DD(117.3,54,0)
;;=ASSIGNED CLINICAL FTEE^NJ4,1^^0;24^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
;;^DD(117.3,54,3)
;;=Type a Number between 0 and 99.9, 1 Decimal Digit
;;^DD(117.3,54,21,0)
;;=^^2^2^2930204^
;;^DD(117.3,54,21,1,0)
;;=This field contains the Assigned Clinical FTEE on the Funded
;;^DD(117.3,54,21,2,0)
;;=Nutrition Research.
;;^DD(117.3,54,"DT")
;;=2930204
;;^DD(117.3,55,0)
;;=UNFUNDED NUTRITION RESEARCH?^S^Y:YES;N:NO;^0;25^Q
;;^DD(117.3,55,21,0)
;;=^^2^2^2930204^
;;^DD(117.3,55,21,1,0)
;;=This field contains a Y or a N on whether the Dietitians have
;;^DD(117.3,55,21,2,0)
;;=Unfunded Nutrition Research.
;;^DD(117.3,55,"DT")
;;=2930204
;;^DD(117.3,56,0)
;;=AREAS OF RESEARCH^117.356S^^AREA;0
;;^DD(117.3,56,21,0)
;;=^^2^2^2930204^
;;^DD(117.3,56,21,1,0)
;;=This multiple contains a list of Areas of Research under the
;;^DD(117.3,56,21,2,0)
;;=Unfunded Nutrition Research.
;;^DD(117.3,57,0)
;;=ASSIGNED TOTAL CLINICAL FTEE^NJ5,1^^0;26^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
;;^DD(117.3,57,3)
;;=Type a Number between 0 and 999.9, 1 Decimal Digit
;;^DD(117.3,57,21,0)
;;=^^3^3^2930204^
;;^DD(117.3,57,21,1,0)
;;=This field contains the Assigned Total Clinical FTEE of the
;;^DD(117.3,57,21,2,0)
;;=total of all the Areas of Research selected under the Unfunded
;;^DD(117.3,57,21,3,0)
;;=Nutrition Research.
;;^DD(117.3,57,"DT")
;;=2930204
;;^DD(117.3,58,0)
;;=APPETIZING^117.358^^APP;0
;;^DD(117.3,58,21,0)
;;=^^3^3^2931228^^^^
;;^DD(117.3,58,21,1,0)
;;=This multiple contains the numbers surveyed in regards to the five
FHINI0LP ; ; 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,45,"DT")
+2 ;;=2930706
+3 ;;^DD(117.3,46,0)
+4 ;;=MG NA^NJ5,0^^3;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
+5 ;;^DD(117.3,46,3)
+6 ;;=Type a Number between 0 and 99999, 0 Decimal Digits
+7 ;;^DD(117.3,46,21,0)
+8 ;;=^^2^2^2930706^^^
+9 ;;^DD(117.3,46,21,1,0)
+10 ;;=This field contains the milligrams Sodium taken from Nutritive
+11 ;;^DD(117.3,46,21,2,0)
+12 ;;=Analysis Average.
+13 ;;^DD(117.3,46,"DT")
+14 ;;=2930706
+15 ;;^DD(117.3,47,0)
+16 ;;=STAFF CERT DIAB ED (CDE)^NJ2,0^^1;14^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
+17 ;;^DD(117.3,47,3)
+18 ;;=Type a Number between 0 and 99, 0 Decimal Digits
+19 ;;^DD(117.3,47,21,0)
+20 ;;=^^2^2^2930129^^^^
+21 ;;^DD(117.3,47,21,1,0)
+22 ;;=This field contains the number of the Specialty Staff Certified Diabetes
+23 ;;^DD(117.3,47,21,2,0)
+24 ;;=Educators (CDE) at your facility.
+25 ;;^DD(117.3,47,"DT")
+26 ;;=2930129
+27 ;;^DD(117.3,48,0)
+28 ;;=STAFF CERT IN NUTR SUPP^NJ2,0^^1;15^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
+29 ;;^DD(117.3,48,3)
+30 ;;=Type a Number between 0 and 99, 0 Decimal Digits
+31 ;;^DD(117.3,48,21,0)
+32 ;;=^^2^2^2930129^^^^
+33 ;;^DD(117.3,48,21,1,0)
+34 ;;=This field contains the number of Specialty Staff Certified in Nutrition
+35 ;;^DD(117.3,48,21,2,0)
+36 ;;=Support at your facility.
+37 ;;^DD(117.3,48,"DT")
+38 ;;=2930129
+39 ;;^DD(117.3,49,0)
+40 ;;=STAFF REG CLIN DIE TECH^NJ2,0^^1;16^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
+41 ;;^DD(117.3,49,3)
+42 ;;=Type a Number between 0 and 99, 0 Decimal Digits
+43 ;;^DD(117.3,49,21,0)
+44 ;;=^^2^2^2930129^^
+45 ;;^DD(117.3,49,21,1,0)
+46 ;;=This field contains the number of Specialty Staff Registered
+47 ;;^DD(117.3,49,21,2,0)
+48 ;;=Clinical Dietetic Technicians at your facility.
+49 ;;^DD(117.3,49,"DT")
+50 ;;=2930129
+51 ;;^DD(117.3,50,0)
+52 ;;=STAFF W/CLIN PRIVILEGES^NJ2,0^^1;17^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
+53 ;;^DD(117.3,50,3)
+54 ;;=Type a Number between 0 and 99, 0 Decimal Digits
+55 ;;^DD(117.3,50,21,0)
+56 ;;=^^2^2^2930129^
+57 ;;^DD(117.3,50,21,1,0)
+58 ;;=This field contains the number of Specialty Staff with Clinical
+59 ;;^DD(117.3,50,21,2,0)
+60 ;;=Privileges (not scope of practice).
+61 ;;^DD(117.3,50,"DT")
+62 ;;=2930129
+63 ;;^DD(117.3,51,0)
+64 ;;=DO YOU USE COOK CHILL FOODS?^S^Y:YES;N:NO;^0;21^Q
+65 ;;^DD(117.3,51,21,0)
+66 ;;=^^2^2^2930204^
+67 ;;^DD(117.3,51,21,1,0)
+68 ;;=This field contains a Y or N on whether the Dietitians use Cook
+69 ;;^DD(117.3,51,21,2,0)
+70 ;;=Chill Foods.
+71 ;;^DD(117.3,51,"DT")
+72 ;;=2930204
+73 ;;^DD(117.3,52,0)
+74 ;;=SELECT 1 OR 2^S^1:LESS AND EQUAL 25% OF MENU ITEMS;2:GREATER THAN 25% OF MENU ITEMS;^0;22^Q
+75 ;;^DD(117.3,52,21,0)
+76 ;;=^^3^3^2930204^
+77 ;;^DD(117.3,52,21,1,0)
+78 ;;=This field will be asked if the Dietitians use Cook Chill Foods.
+79 ;;^DD(117.3,52,21,2,0)
+80 ;;=It contains a 1 for less and equal to 25% of menu items cook
+81 ;;^DD(117.3,52,21,3,0)
+82 ;;=chilled or a 2 for greater than 25% of menu items cook chilled.
+83 ;;^DD(117.3,52,"DT")
+84 ;;=2930204
+85 ;;^DD(117.3,53,0)
+86 ;;=FUNDED NUTRITION RESEARCH?^S^Y:YES;N:NO;^0;23^Q
+87 ;;^DD(117.3,53,21,0)
+88 ;;=^^2^2^2930204^
+89 ;;^DD(117.3,53,21,1,0)
+90 ;;=This field contains a Y or N on whether the Dietitians have
+91 ;;^DD(117.3,53,21,2,0)
+92 ;;=Funded Nutrition Research.
+93 ;;^DD(117.3,53,"DT")
+94 ;;=2930204
+95 ;;^DD(117.3,54,0)
+96 ;;=ASSIGNED CLINICAL FTEE^NJ4,1^^0;24^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"."2N.N) X
+97 ;;^DD(117.3,54,3)
+98 ;;=Type a Number between 0 and 99.9, 1 Decimal Digit
+99 ;;^DD(117.3,54,21,0)
+100 ;;=^^2^2^2930204^
+101 ;;^DD(117.3,54,21,1,0)
+102 ;;=This field contains the Assigned Clinical FTEE on the Funded
+103 ;;^DD(117.3,54,21,2,0)
+104 ;;=Nutrition Research.
+105 ;;^DD(117.3,54,"DT")
+106 ;;=2930204
+107 ;;^DD(117.3,55,0)
+108 ;;=UNFUNDED NUTRITION RESEARCH?^S^Y:YES;N:NO;^0;25^Q
+109 ;;^DD(117.3,55,21,0)
+110 ;;=^^2^2^2930204^
+111 ;;^DD(117.3,55,21,1,0)
+112 ;;=This field contains a Y or a N on whether the Dietitians have
+113 ;;^DD(117.3,55,21,2,0)
+114 ;;=Unfunded Nutrition Research.
+115 ;;^DD(117.3,55,"DT")
+116 ;;=2930204
+117 ;;^DD(117.3,56,0)
+118 ;;=AREAS OF RESEARCH^117.356S^^AREA;0
+119 ;;^DD(117.3,56,21,0)
+120 ;;=^^2^2^2930204^
+121 ;;^DD(117.3,56,21,1,0)
+122 ;;=This multiple contains a list of Areas of Research under the
+123 ;;^DD(117.3,56,21,2,0)
+124 ;;=Unfunded Nutrition Research.
+125 ;;^DD(117.3,57,0)
+126 ;;=ASSIGNED TOTAL CLINICAL FTEE^NJ5,1^^0;26^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X
+127 ;;^DD(117.3,57,3)
+128 ;;=Type a Number between 0 and 999.9, 1 Decimal Digit
+129 ;;^DD(117.3,57,21,0)
+130 ;;=^^3^3^2930204^
+131 ;;^DD(117.3,57,21,1,0)
+132 ;;=This field contains the Assigned Total Clinical FTEE of the
+133 ;;^DD(117.3,57,21,2,0)
+134 ;;=total of all the Areas of Research selected under the Unfunded
+135 ;;^DD(117.3,57,21,3,0)
+136 ;;=Nutrition Research.
+137 ;;^DD(117.3,57,"DT")
+138 ;;=2930204
+139 ;;^DD(117.3,58,0)
+140 ;;=APPETIZING^117.358^^APP;0
+141 ;;^DD(117.3,58,21,0)
+142 ;;=^^3^3^2931228^^^^
+143 ;;^DD(117.3,58,21,1,0)
+144 ;;=This multiple contains the numbers surveyed in regards to the five
