FHINI0F6 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(112) 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
;;^UTILITY(U,$J,112,9358,2)
;;=.141^2.588
;;^UTILITY(U,$J,112,9358,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9359,0)
;;=CHICKEN,PATTIES,SOUTHERN FRIED,FROZEN,COUNTRY PRIDE^BC-02632^3-oz.^85
;;^UTILITY(U,$J,112,9359,1)
;;=12.941^18.824^15.294^282.353^^^^9.412^1.176^^174.118^188.235^741.176^^^^^^3.529^.141
;;^UTILITY(U,$J,112,9359,2)
;;=.176^2.941
;;^UTILITY(U,$J,112,9359,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9360,0)
;;=CHICKEN,RONDELET,FRZN,WEAVER,CHEESE^BC-02633^3-oz.^85
;;^UTILITY(U,$J,112,9360,1)
;;=15.294^14.118^16.471^258.824^^^^^^^^^611.765
;;^UTILITY(U,$J,112,9360,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9361,0)
;;=CHICKEN,RONDELET,FRZN,WEAVER,HOME STYLE^BC-02634^3-oz.^85
;;^UTILITY(U,$J,112,9361,1)
;;=14.118^12.941^15.294^235.294^^^^^^^^^600
;;^UTILITY(U,$J,112,9361,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9362,0)
;;=CHICKEN,RONDELET,FRZN,WEAVER,ITALIAN^BC-02635^3-oz.^85
;;^UTILITY(U,$J,112,9362,1)
;;=14.118^12.941^16.471^241.176^^^^^^^^^658.824
;;^UTILITY(U,$J,112,9362,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9363,0)
;;=CHICKEN,RONDELET,FRZN,WEAVER,ORIGINAL^BC-02636^3-oz.^85
;;^UTILITY(U,$J,112,9363,1)
;;=14.118^11.765^16.471^229.412^^^^^^^^^717.647
;;^UTILITY(U,$J,112,9363,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9364,0)
;;=CHICKEN,SNACK 'N,HOT 'N SPICY,FROZEN,BANQUET^BC-02637^3.75-oz.^106
;;^UTILITY(U,$J,112,9364,1)
;;=5.66^8.491^7.547^132.075^^^^7.547^.943^^^^452.83^^^^^28.302^0^.019
;;^UTILITY(U,$J,112,9364,2)
;;=.028^1.321
;;^UTILITY(U,$J,112,9364,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9365,0)
;;=CHICKEN,TENDERS,BREADED & FRIED,PERDUE^BC-02638^4-oz.^113
;;^UTILITY(U,$J,112,9365,1)
;;=17.699^10.619^7.08^187.611^^^^^^^^^169.912
;;^UTILITY(U,$J,112,9365,2)
;;=^^^^^^^^60.177
;;^UTILITY(U,$J,112,9365,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9366,0)
;;=CHICKEN,TENDERS,HONEY BATTER,FROZEN,WEAVER^BC-02639^3-oz.^85
;;^UTILITY(U,$J,112,9366,1)
;;=14.118^10.588^15.294^211.765^^^^^^^^^588.235
;;^UTILITY(U,$J,112,9366,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9367,0)
;;=CHICKEN,TENDERS,PREMIUM,FROZEN,WEAVER^BC-02640^3-oz.^85
;;^UTILITY(U,$J,112,9367,1)
;;=14.118^10.588^12.941^200^^^^^^^^^588.235
;;^UTILITY(U,$J,112,9367,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9368,0)
;;=CHICKEN,WINGS,FROZEN,WEAVER^BC-02641^2.7-oz.^77
;;^UTILITY(U,$J,112,9368,1)
;;=22.078^1.299^1.299^220.779^^^^^^^^^870.13
;;^UTILITY(U,$J,112,9368,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9369,0)
;;=TURKEY,BACON,CKD,LOUIS RICH^BC-02642^2-slices^18
;;^UTILITY(U,$J,112,9369,1)
;;=30^27.778^3.333^377.778^32.778^^^11.111^2.111^33.333^455.556^400^2288.889^3
;;^UTILITY(U,$J,112,9369,2)
;;=^^^^^^^^100^7.778^11.111^7.778
;;^UTILITY(U,$J,112,9369,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9370,0)
;;=TURKEY,BREAST,BARBECUED,LOUIS RICH^BC-02643^3.5-oz.^100
;;^UTILITY(U,$J,112,9370,1)
;;=18.6^3.2^3.7^118^71.1^^^16^.68^19^305^298^1107^.79
;;^UTILITY(U,$J,112,9370,2)
;;=^^^^^^^^39^1^1.4^.9
;;^UTILITY(U,$J,112,9370,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9371,0)
;;=TURKEY,BREAST,CKD,LOUIS RICH^BC-02644^3.5-oz.^100
;;^UTILITY(U,$J,112,9371,1)
;;=29.1^5.1^1.1^164^64.2^^^9^.82^20^232^332^71^1.37
;;^UTILITY(U,$J,112,9371,2)
;;=^^^^^^^^62^2^2.4^1.6
;;^UTILITY(U,$J,112,9371,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9372,0)
;;=TURKEY,BREAST,FILLET W/ CHEESE,LAND O' LAKES^BC-02645^5-oz.^142
;;^UTILITY(U,$J,112,9372,1)
;;=17.817^10.986^10.986^214.085^^^^88.028^.958^^276.056^221.831^587.324^^^^^^^.07
;;^UTILITY(U,$J,112,9372,2)
;;=.218^6.127^^^^^^^23.944^3.169^^2.606
;;^UTILITY(U,$J,112,9372,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9373,0)
;;=TURKEY,BREAST,HICKORY SMOKED,LOUIS RICH^BC-02646^3.5-oz.^100
;;^UTILITY(U,$J,112,9373,1)
;;=18.8^3.6^3^120^70.9^^^8^.93^22^331^301^1262^.85
;;^UTILITY(U,$J,112,9373,2)
;;=^^^^^^^^44^.8^1^.7
;;^UTILITY(U,$J,112,9373,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9374,0)
;;=TURKEY,BREAST,OVEN ROASTED,LOUIS RICH^BC-02647^3.5-oz.^100
;;^UTILITY(U,$J,112,9374,1)
;;=18.8^3.2^1.7^111^73.1^^^10^.91^20^273^280^1070^1.01
FHINI0F6 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(112)
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 ;;^UTILITY(U,$J,112,9358,2)
+2 ;;=.141^2.588
+3 ;;^UTILITY(U,$J,112,9358,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9359,0)
+6 ;;=CHICKEN,PATTIES,SOUTHERN FRIED,FROZEN,COUNTRY PRIDE^BC-02632^3-oz.^85
+7 ;;^UTILITY(U,$J,112,9359,1)
+8 ;;=12.941^18.824^15.294^282.353^^^^9.412^1.176^^174.118^188.235^741.176^^^^^^3.529^.141
+9 ;;^UTILITY(U,$J,112,9359,2)
+10 ;;=.176^2.941
+11 ;;^UTILITY(U,$J,112,9359,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9360,0)
+14 ;;=CHICKEN,RONDELET,FRZN,WEAVER,CHEESE^BC-02633^3-oz.^85
+15 ;;^UTILITY(U,$J,112,9360,1)
+16 ;;=15.294^14.118^16.471^258.824^^^^^^^^^611.765
+17 ;;^UTILITY(U,$J,112,9360,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,9361,0)
+20 ;;=CHICKEN,RONDELET,FRZN,WEAVER,HOME STYLE^BC-02634^3-oz.^85
+21 ;;^UTILITY(U,$J,112,9361,1)
+22 ;;=14.118^12.941^15.294^235.294^^^^^^^^^600
+23 ;;^UTILITY(U,$J,112,9361,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,9362,0)
+26 ;;=CHICKEN,RONDELET,FRZN,WEAVER,ITALIAN^BC-02635^3-oz.^85
+27 ;;^UTILITY(U,$J,112,9362,1)
+28 ;;=14.118^12.941^16.471^241.176^^^^^^^^^658.824
+29 ;;^UTILITY(U,$J,112,9362,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,9363,0)
+32 ;;=CHICKEN,RONDELET,FRZN,WEAVER,ORIGINAL^BC-02636^3-oz.^85
+33 ;;^UTILITY(U,$J,112,9363,1)
+34 ;;=14.118^11.765^16.471^229.412^^^^^^^^^717.647
+35 ;;^UTILITY(U,$J,112,9363,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9364,0)
+38 ;;=CHICKEN,SNACK 'N,HOT 'N SPICY,FROZEN,BANQUET^BC-02637^3.75-oz.^106
+39 ;;^UTILITY(U,$J,112,9364,1)
+40 ;;=5.66^8.491^7.547^132.075^^^^7.547^.943^^^^452.83^^^^^28.302^0^.019
+41 ;;^UTILITY(U,$J,112,9364,2)
+42 ;;=.028^1.321
+43 ;;^UTILITY(U,$J,112,9364,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9365,0)
+46 ;;=CHICKEN,TENDERS,BREADED & FRIED,PERDUE^BC-02638^4-oz.^113
+47 ;;^UTILITY(U,$J,112,9365,1)
+48 ;;=17.699^10.619^7.08^187.611^^^^^^^^^169.912
+49 ;;^UTILITY(U,$J,112,9365,2)
+50 ;;=^^^^^^^^60.177
+51 ;;^UTILITY(U,$J,112,9365,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,9366,0)
+54 ;;=CHICKEN,TENDERS,HONEY BATTER,FROZEN,WEAVER^BC-02639^3-oz.^85
+55 ;;^UTILITY(U,$J,112,9366,1)
+56 ;;=14.118^10.588^15.294^211.765^^^^^^^^^588.235
+57 ;;^UTILITY(U,$J,112,9366,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,9367,0)
+60 ;;=CHICKEN,TENDERS,PREMIUM,FROZEN,WEAVER^BC-02640^3-oz.^85
+61 ;;^UTILITY(U,$J,112,9367,1)
+62 ;;=14.118^10.588^12.941^200^^^^^^^^^588.235
+63 ;;^UTILITY(U,$J,112,9367,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,9368,0)
+66 ;;=CHICKEN,WINGS,FROZEN,WEAVER^BC-02641^2.7-oz.^77
+67 ;;^UTILITY(U,$J,112,9368,1)
+68 ;;=22.078^1.299^1.299^220.779^^^^^^^^^870.13
+69 ;;^UTILITY(U,$J,112,9368,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,9369,0)
+72 ;;=TURKEY,BACON,CKD,LOUIS RICH^BC-02642^2-slices^18
+73 ;;^UTILITY(U,$J,112,9369,1)
+74 ;;=30^27.778^3.333^377.778^32.778^^^11.111^2.111^33.333^455.556^400^2288.889^3
+75 ;;^UTILITY(U,$J,112,9369,2)
+76 ;;=^^^^^^^^100^7.778^11.111^7.778
+77 ;;^UTILITY(U,$J,112,9369,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,9370,0)
+80 ;;=TURKEY,BREAST,BARBECUED,LOUIS RICH^BC-02643^3.5-oz.^100
+81 ;;^UTILITY(U,$J,112,9370,1)
+82 ;;=18.6^3.2^3.7^118^71.1^^^16^.68^19^305^298^1107^.79
+83 ;;^UTILITY(U,$J,112,9370,2)
+84 ;;=^^^^^^^^39^1^1.4^.9
+85 ;;^UTILITY(U,$J,112,9370,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,9371,0)
+88 ;;=TURKEY,BREAST,CKD,LOUIS RICH^BC-02644^3.5-oz.^100
+89 ;;^UTILITY(U,$J,112,9371,1)
+90 ;;=29.1^5.1^1.1^164^64.2^^^9^.82^20^232^332^71^1.37
+91 ;;^UTILITY(U,$J,112,9371,2)
+92 ;;=^^^^^^^^62^2^2.4^1.6
+93 ;;^UTILITY(U,$J,112,9371,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,9372,0)
+96 ;;=TURKEY,BREAST,FILLET W/ CHEESE,LAND O' LAKES^BC-02645^5-oz.^142
+97 ;;^UTILITY(U,$J,112,9372,1)
+98 ;;=17.817^10.986^10.986^214.085^^^^88.028^.958^^276.056^221.831^587.324^^^^^^^.07
+99 ;;^UTILITY(U,$J,112,9372,2)
+100 ;;=.218^6.127^^^^^^^23.944^3.169^^2.606
+101 ;;^UTILITY(U,$J,112,9372,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,9373,0)
+104 ;;=TURKEY,BREAST,HICKORY SMOKED,LOUIS RICH^BC-02646^3.5-oz.^100
+105 ;;^UTILITY(U,$J,112,9373,1)
+106 ;;=18.8^3.6^3^120^70.9^^^8^.93^22^331^301^1262^.85
+107 ;;^UTILITY(U,$J,112,9373,2)
+108 ;;=^^^^^^^^44^.8^1^.7
+109 ;;^UTILITY(U,$J,112,9373,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+111 ;;^UTILITY(U,$J,112,9374,0)
+112 ;;=TURKEY,BREAST,OVEN ROASTED,LOUIS RICH^BC-02647^3.5-oz.^100
+113 ;;^UTILITY(U,$J,112,9374,1)
+114 ;;=18.8^3.2^1.7^111^73.1^^^10^.91^20^273^280^1070^1.01
