FHINI0F7 ; ; 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,9374,2)
;;=^^^^^^^^43^1.2^1.6^1
;;^UTILITY(U,$J,112,9374,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9375,0)
;;=TURKEY,BREAST,TENDERLOINS,CKD,LOUIS RICH^BC-02648^3.5-oz.^100
;;^UTILITY(U,$J,112,9375,1)
;;=30.1^2^.8^141^66^^^4^1.19^29^277^423^84^1.61
;;^UTILITY(U,$J,112,9375,2)
;;=^^^^^^^^66^.7^.7^.4
;;^UTILITY(U,$J,112,9375,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9376,0)
;;=TURKEY,BREAST W/SKIN,PREBASTED,ROASTED^BC-02649^3.5-oz.^100
;;^UTILITY(U,$J,112,9376,1)
;;=22.2^3.5^0^126^70.9^^^9^.66^21^214^248^397^1.53^.041^^^0^0^.05
;;^UTILITY(U,$J,112,9376,2)
;;=.13^9.1^^.32^^.32^^^42^1^1.1^.8^0
;;^UTILITY(U,$J,112,9376,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9377,0)
;;=TURKEY,CND,CHUNK W/ WATER,SWANSON PREMIUM^BC-02650^2.5-oz.^71
;;^UTILITY(U,$J,112,9377,1)
;;=21.69^3.521^.845^122.535^^^^7.042^.986^^^142.254^377.465^^^^^0^0^.014
;;^UTILITY(U,$J,112,9377,2)
;;=.113^5.211^^^^^^^61.972
;;^UTILITY(U,$J,112,9377,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9378,0)
;;=TURKEY,CND,WHITE CHUNK W/WATER,SWANSON PREMIUM^BC-02651^2.5-oz.^71
;;^UTILITY(U,$J,112,9378,1)
;;=23.239^1.549^.986^111.268^^^^5.634^.563^^^167.606^361.972^^^^^0^0^.014
;;^UTILITY(U,$J,112,9378,2)
;;=.099^6.056^^^^^^^60.563
;;^UTILITY(U,$J,112,9378,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9379,0)
;;=TURKEY,DRUMSTICK,CKD,LOUIS RICH^BC-02652^3.5-oz.^100
;;^UTILITY(U,$J,112,9379,1)
;;=28^9.2^.7^196^61.9^^^13^1.77^16^166^180^74^3.82
;;^UTILITY(U,$J,112,9379,2)
;;=^^^^^^^^106^3.3^3.8^2.5
;;^UTILITY(U,$J,112,9379,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9380,0)
;;=TURKEY,GROUND,CKD,LOUIS RICH^BC-02653^3.5-oz.^100
;;^UTILITY(U,$J,112,9380,1)
;;=24.1^12.8^.7^214^61.4^^^20^1.78^22^211^287^96^3.34
;;^UTILITY(U,$J,112,9380,2)
;;=^^^^^^^^90^4.5^5.3^3.6
;;^UTILITY(U,$J,112,9380,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9381,0)
;;=TURKEY,GROUND,LEAN,CKD,LOUIS RICH^BC-02654^3.5-oz.^100
;;^UTILITY(U,$J,112,9381,1)
;;=23.9^9.8^1.3^187^64.5^^^27^1.36^19^231^334^114^3.26
;;^UTILITY(U,$J,112,9381,2)
;;=^^^^^^^^89^2.9^3.1^2.6
;;^UTILITY(U,$J,112,9381,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9382,0)
;;=TURKEY LIGHT & DARK MEAT,LOUIS RICH^BC-02655^3.5-oz.^100
;;^UTILITY(U,$J,112,9382,1)
;;=27.3^8.5^1.1^188^62.9^^^9^1.13^21^203^292^77^2.05
;;^UTILITY(U,$J,112,9382,2)
;;=^^^^^^^^64^2.8^3.7^2.1
;;^UTILITY(U,$J,112,9382,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9383,0)
;;=TURKEY,LIGHT MEAT,LE MENU LIGHTSTYLE^BC-02656^8.25-oz.^234
;;^UTILITY(U,$J,112,9383,1)
;;=8.205^1.838^8.889^85.043^^^^18.803^1.111^^^175.214^273.077^^^^^676.923^4.701^.158
;;^UTILITY(U,$J,112,9383,2)
;;=.124^2.821^^^^^^^11.111^.427^^.684
;;^UTILITY(U,$J,112,9383,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9384,0)
;;=TURKEY,NUGGETS,BREADED,LOUIS RICH^BC-02657^3.5-oz.^100
;;^UTILITY(U,$J,112,9384,1)
;;=14.8^18.2^16.2^288^48.6^^^5^.8^15^227^209^723^1.33
;;^UTILITY(U,$J,112,9384,2)
;;=^^^^^^^^36^3.8^8.3^6.2
;;^UTILITY(U,$J,112,9384,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9385,0)
;;=TURKEY,PATTIES,BREADED,LOUIS RICH^BC-02658^patty^100
;;^UTILITY(U,$J,112,9385,1)
;;=14.6^15.5^15.5^260^52.2^^^6^.86^13^216^189^688^.98
;;^UTILITY(U,$J,112,9385,2)
;;=^^^^^^^^36^3^7.3^5.3
;;^UTILITY(U,$J,112,9385,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9386,0)
;;=TURKEY,SAUSAGE,BREAKFAST,CKD,LOUIS RICH^BC-02659^3.5-oz.^100
;;^UTILITY(U,$J,112,9386,1)
;;=21.2^12.5^.6^200^63.2^^^19^1.99^23^193^296^762^3.26
;;^UTILITY(U,$J,112,9386,2)
;;=^^^^^^^^80
;;^UTILITY(U,$J,112,9386,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9387,0)
;;=TURKEY,SAUSAGE,POLSKA KIELLBASA,LOUIS RICH^BC-02660^3.5-oz.^100
;;^UTILITY(U,$J,112,9387,1)
;;=16.4^8.1^1.7^145^71.3^^^11^1.15^15^171^199^881^1.88
;;^UTILITY(U,$J,112,9387,2)
;;=^^^^^^^^67^2.4^2.6^2.6
;;^UTILITY(U,$J,112,9387,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9388,0)
;;=TURKEY,SAUSAGE,SMOKED,LOUIS RICH^BC-02661^3.5-oz.^100
;;^UTILITY(U,$J,112,9388,1)
;;=16.4^8.8^2.1^153^69.7^^^10^1.27^17^164^189^853^1.95
;;^UTILITY(U,$J,112,9388,2)
;;=^^^^^^^^64^2.3^3^2.7
;;^UTILITY(U,$J,112,9388,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0F7 ; ; 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,9374,2)
+2 ;;=^^^^^^^^43^1.2^1.6^1
+3 ;;^UTILITY(U,$J,112,9374,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9375,0)
+6 ;;=TURKEY,BREAST,TENDERLOINS,CKD,LOUIS RICH^BC-02648^3.5-oz.^100
+7 ;;^UTILITY(U,$J,112,9375,1)
+8 ;;=30.1^2^.8^141^66^^^4^1.19^29^277^423^84^1.61
+9 ;;^UTILITY(U,$J,112,9375,2)
+10 ;;=^^^^^^^^66^.7^.7^.4
+11 ;;^UTILITY(U,$J,112,9375,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9376,0)
+14 ;;=TURKEY,BREAST W/SKIN,PREBASTED,ROASTED^BC-02649^3.5-oz.^100
+15 ;;^UTILITY(U,$J,112,9376,1)
+16 ;;=22.2^3.5^0^126^70.9^^^9^.66^21^214^248^397^1.53^.041^^^0^0^.05
+17 ;;^UTILITY(U,$J,112,9376,2)
+18 ;;=.13^9.1^^.32^^.32^^^42^1^1.1^.8^0
+19 ;;^UTILITY(U,$J,112,9376,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9377,0)
+22 ;;=TURKEY,CND,CHUNK W/ WATER,SWANSON PREMIUM^BC-02650^2.5-oz.^71
+23 ;;^UTILITY(U,$J,112,9377,1)
+24 ;;=21.69^3.521^.845^122.535^^^^7.042^.986^^^142.254^377.465^^^^^0^0^.014
+25 ;;^UTILITY(U,$J,112,9377,2)
+26 ;;=.113^5.211^^^^^^^61.972
+27 ;;^UTILITY(U,$J,112,9377,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9378,0)
+30 ;;=TURKEY,CND,WHITE CHUNK W/WATER,SWANSON PREMIUM^BC-02651^2.5-oz.^71
+31 ;;^UTILITY(U,$J,112,9378,1)
+32 ;;=23.239^1.549^.986^111.268^^^^5.634^.563^^^167.606^361.972^^^^^0^0^.014
+33 ;;^UTILITY(U,$J,112,9378,2)
+34 ;;=.099^6.056^^^^^^^60.563
+35 ;;^UTILITY(U,$J,112,9378,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9379,0)
+38 ;;=TURKEY,DRUMSTICK,CKD,LOUIS RICH^BC-02652^3.5-oz.^100
+39 ;;^UTILITY(U,$J,112,9379,1)
+40 ;;=28^9.2^.7^196^61.9^^^13^1.77^16^166^180^74^3.82
+41 ;;^UTILITY(U,$J,112,9379,2)
+42 ;;=^^^^^^^^106^3.3^3.8^2.5
+43 ;;^UTILITY(U,$J,112,9379,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9380,0)
+46 ;;=TURKEY,GROUND,CKD,LOUIS RICH^BC-02653^3.5-oz.^100
+47 ;;^UTILITY(U,$J,112,9380,1)
+48 ;;=24.1^12.8^.7^214^61.4^^^20^1.78^22^211^287^96^3.34
+49 ;;^UTILITY(U,$J,112,9380,2)
+50 ;;=^^^^^^^^90^4.5^5.3^3.6
+51 ;;^UTILITY(U,$J,112,9380,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,9381,0)
+54 ;;=TURKEY,GROUND,LEAN,CKD,LOUIS RICH^BC-02654^3.5-oz.^100
+55 ;;^UTILITY(U,$J,112,9381,1)
+56 ;;=23.9^9.8^1.3^187^64.5^^^27^1.36^19^231^334^114^3.26
+57 ;;^UTILITY(U,$J,112,9381,2)
+58 ;;=^^^^^^^^89^2.9^3.1^2.6
+59 ;;^UTILITY(U,$J,112,9381,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,9382,0)
+62 ;;=TURKEY LIGHT & DARK MEAT,LOUIS RICH^BC-02655^3.5-oz.^100
+63 ;;^UTILITY(U,$J,112,9382,1)
+64 ;;=27.3^8.5^1.1^188^62.9^^^9^1.13^21^203^292^77^2.05
+65 ;;^UTILITY(U,$J,112,9382,2)
+66 ;;=^^^^^^^^64^2.8^3.7^2.1
+67 ;;^UTILITY(U,$J,112,9382,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,9383,0)
+70 ;;=TURKEY,LIGHT MEAT,LE MENU LIGHTSTYLE^BC-02656^8.25-oz.^234
+71 ;;^UTILITY(U,$J,112,9383,1)
+72 ;;=8.205^1.838^8.889^85.043^^^^18.803^1.111^^^175.214^273.077^^^^^676.923^4.701^.158
+73 ;;^UTILITY(U,$J,112,9383,2)
+74 ;;=.124^2.821^^^^^^^11.111^.427^^.684
+75 ;;^UTILITY(U,$J,112,9383,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,9384,0)
+78 ;;=TURKEY,NUGGETS,BREADED,LOUIS RICH^BC-02657^3.5-oz.^100
+79 ;;^UTILITY(U,$J,112,9384,1)
+80 ;;=14.8^18.2^16.2^288^48.6^^^5^.8^15^227^209^723^1.33
+81 ;;^UTILITY(U,$J,112,9384,2)
+82 ;;=^^^^^^^^36^3.8^8.3^6.2
+83 ;;^UTILITY(U,$J,112,9384,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,9385,0)
+86 ;;=TURKEY,PATTIES,BREADED,LOUIS RICH^BC-02658^patty^100
+87 ;;^UTILITY(U,$J,112,9385,1)
+88 ;;=14.6^15.5^15.5^260^52.2^^^6^.86^13^216^189^688^.98
+89 ;;^UTILITY(U,$J,112,9385,2)
+90 ;;=^^^^^^^^36^3^7.3^5.3
+91 ;;^UTILITY(U,$J,112,9385,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,9386,0)
+94 ;;=TURKEY,SAUSAGE,BREAKFAST,CKD,LOUIS RICH^BC-02659^3.5-oz.^100
+95 ;;^UTILITY(U,$J,112,9386,1)
+96 ;;=21.2^12.5^.6^200^63.2^^^19^1.99^23^193^296^762^3.26
+97 ;;^UTILITY(U,$J,112,9386,2)
+98 ;;=^^^^^^^^80
+99 ;;^UTILITY(U,$J,112,9386,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,9387,0)
+102 ;;=TURKEY,SAUSAGE,POLSKA KIELLBASA,LOUIS RICH^BC-02660^3.5-oz.^100
+103 ;;^UTILITY(U,$J,112,9387,1)
+104 ;;=16.4^8.1^1.7^145^71.3^^^11^1.15^15^171^199^881^1.88
+105 ;;^UTILITY(U,$J,112,9387,2)
+106 ;;=^^^^^^^^67^2.4^2.6^2.6
+107 ;;^UTILITY(U,$J,112,9387,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,9388,0)
+110 ;;=TURKEY,SAUSAGE,SMOKED,LOUIS RICH^BC-02661^3.5-oz.^100
+111 ;;^UTILITY(U,$J,112,9388,1)
+112 ;;=16.4^8.8^2.1^153^69.7^^^10^1.27^17^164^189^853^1.95
+113 ;;^UTILITY(U,$J,112,9388,2)
+114 ;;=^^^^^^^^64^2.3^3^2.7
+115 ;;^UTILITY(U,$J,112,9388,20)
+116 ;;=Bowes & Church's Food Values, Sixteenth Edition.