FHINI0EL ; ; 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,9075,0)
;;=BEEF,DRIED JERKY,LANCE^BC-02348^.3-oz.^7
;;^UTILITY(U,$J,112,9075,1)
;;=42.857^17.143^15.714^385.714^18.571^^^42.857^6.286^^^642.857^2614.286^15.714^^^^^^.143
;;^UTILITY(U,$J,112,9075,2)
;;=.857^10
;;^UTILITY(U,$J,112,9075,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9076,0)
;;=BEEF,DRIED,RED HOT SAUSAGE,LANCE^BC-02349^.7-oz.^21
;;^UTILITY(U,$J,112,9076,1)
;;=17.143^17.619^5.714^252.381^53.81^^^19.048^3.19^^^33.333^1742.857^5.714^^^^^^.095
;;^UTILITY(U,$J,112,9076,2)
;;=.095^4.762
;;^UTILITY(U,$J,112,9076,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9077,0)
;;=BEEF,DRIED SLICED,ARMOUR STAR^BC-02350^8-slices^35
;;^UTILITY(U,$J,112,9077,1)
;;=25.714^5.714^5.714^171.429^^^^^^^^^^5.714
;;^UTILITY(U,$J,112,9077,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9078,0)
;;=BEEF,DRIED SNACK,LANCE^BC-02351^.6-oz.^16
;;^UTILITY(U,$J,112,9078,1)
;;=25.625^50^1.875^568.75^16.25^^^43.75^4.813^^^362.5^2125^1.875^^^^^^1
;;^UTILITY(U,$J,112,9078,2)
;;=.313^6.25
;;^UTILITY(U,$J,112,9078,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9079,0)
;;=BEEF,SAUSAGE,SMOKED,CKD^BC-02352^oz.^28
;;^UTILITY(U,$J,112,9079,1)
;;=14.286^27.143^2.5^317.857^54.286^^^7.143^1.786^14.286^107.143^178.571^1146.429^2.821^^^^^10.714^.036
;;^UTILITY(U,$J,112,9079,2)
;;=.143^3.214^^.107^^1.893^^^67.857^11.429^13.214^1.071
;;^UTILITY(U,$J,112,9079,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9080,0)
;;=BEEF,SAUSAGE,SMOKED,CKD (SAUSAGE)^BC-02353^sausages^43
;;^UTILITY(U,$J,112,9080,1)
;;=14.186^26.977^2.326^311.628^53.488^^^9.302^1.767^13.953^104.651^176.744^1130.233^2.791^^^^^11.628^.047
;;^UTILITY(U,$J,112,9080,2)
;;=.14^3.256^^.116^^1.86^^^67.442^11.395^13.023^1.163
;;^UTILITY(U,$J,112,9080,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9081,0)
;;=PORK,BACON,CURED,CKD,OSCAR MAYER^BC-02354^3-slices^18
;;^UTILITY(U,$J,112,9081,1)
;;=28.333^51.667^1.667^583.333^12.222^^^5.556^1.833^22.222^400^400^1966.667^3
;;^UTILITY(U,$J,112,9081,2)
;;=^^^^^^^^83.333^20^25^6.667
;;^UTILITY(U,$J,112,9081,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9082,0)
;;=PORK,BACON,CURED,THICK,SLICED,CKD,OSCAR MAYER^BC-02355^3-slices^33
;;^UTILITY(U,$J,112,9082,1)
;;=27.273^51.818^1.818^581.818^13.03^^^9.091^1.818^18.182^372.727^409.091^1890.909^2.909
;;^UTILITY(U,$J,112,9082,2)
;;=^^^^^^^^90.909^20^25.455^6.364
;;^UTILITY(U,$J,112,9082,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9083,0)
;;=PORK,BACON BITS,OSCAR MAYER^BC-02356^.25-oz.^7
;;^UTILITY(U,$J,112,9083,1)
;;=37.143^14.286^2.857^300^37.143^^^14.286^2^28.571^571.429^542.857^2585.714^4.714^.286^^^^14.286^.714
;;^UTILITY(U,$J,112,9083,2)
;;=.429^10^1.143^.286^^2.143^^^85.714^4.286^8.571^2.857
;;^UTILITY(U,$J,112,9083,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9084,0)
;;=PORK,BACON STRIPS,CKD,LEAN'N TASTY,OSCAR MAYER^BC-02357^slices^12
;;^UTILITY(U,$J,112,9084,1)
;;=25.833^38.333^.833^450^30.833^^^8.333^1.167^16.667^191.667^333.333^1641.667^2.75^.333
;;^UTILITY(U,$J,112,9084,2)
;;=^^^^^^^^116.667^13.333^16.667^5
;;^UTILITY(U,$J,112,9084,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9085,0)
;;=PORK,HAM,CURED,OSCAR MAYER,BREAKFAST^BC-02358^3.5-oz.^100
;;^UTILITY(U,$J,112,9085,1)
;;=17^3.7^2.3^110^72.8^^^.95^.72^13^248^331^1356^13
;;^UTILITY(U,$J,112,9085,2)
;;=^^^^^^^^49
;;^UTILITY(U,$J,112,9085,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9086,0)
;;=PORK,HAM,CURED,OSCAR MAYER,JUBILEE^BC-02359^3.5-oz.^100
;;^UTILITY(U,$J,112,9086,1)
;;=18.5^9.4^.6^161^67.7^^^5^.92^17^256^331^1297^2.05
;;^UTILITY(U,$J,112,9086,2)
;;=^^^^^^^^55^3.3^4.8^1.2
;;^UTILITY(U,$J,112,9086,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9087,0)
;;=PORK,HAM,CURED,OSCAR MAYER,JUBILEE,CND^BC-02360^3.5-oz.^100
;;^UTILITY(U,$J,112,9087,1)
;;=17.9^4.2^.5^110^74.3^^^4^.98^20^253^315^1024^1.93
;;^UTILITY(U,$J,112,9087,2)
;;=^^^^^^^^48^1.3^2^.4
;;^UTILITY(U,$J,112,9087,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9088,0)
;;=LAMB,SAUSAGE,LITTLE FRIERS,OSCAR MAYER^BC-02361^links^24
;;^UTILITY(U,$J,112,9088,1)
;;=17.083^28.333^1.25^329.167^^^^4.167^1.625^16.667^154.167^237.5^808.333^2.333
;;^UTILITY(U,$J,112,9088,2)
;;=^^^^^^^^66.667^10^12.917^3.75
FHINI0EL ; ; 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,9075,0)
+2 ;;=BEEF,DRIED JERKY,LANCE^BC-02348^.3-oz.^7
+3 ;;^UTILITY(U,$J,112,9075,1)
+4 ;;=42.857^17.143^15.714^385.714^18.571^^^42.857^6.286^^^642.857^2614.286^15.714^^^^^^.143
+5 ;;^UTILITY(U,$J,112,9075,2)
+6 ;;=.857^10
+7 ;;^UTILITY(U,$J,112,9075,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,9076,0)
+10 ;;=BEEF,DRIED,RED HOT SAUSAGE,LANCE^BC-02349^.7-oz.^21
+11 ;;^UTILITY(U,$J,112,9076,1)
+12 ;;=17.143^17.619^5.714^252.381^53.81^^^19.048^3.19^^^33.333^1742.857^5.714^^^^^^.095
+13 ;;^UTILITY(U,$J,112,9076,2)
+14 ;;=.095^4.762
+15 ;;^UTILITY(U,$J,112,9076,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,9077,0)
+18 ;;=BEEF,DRIED SLICED,ARMOUR STAR^BC-02350^8-slices^35
+19 ;;^UTILITY(U,$J,112,9077,1)
+20 ;;=25.714^5.714^5.714^171.429^^^^^^^^^^5.714
+21 ;;^UTILITY(U,$J,112,9077,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,9078,0)
+24 ;;=BEEF,DRIED SNACK,LANCE^BC-02351^.6-oz.^16
+25 ;;^UTILITY(U,$J,112,9078,1)
+26 ;;=25.625^50^1.875^568.75^16.25^^^43.75^4.813^^^362.5^2125^1.875^^^^^^1
+27 ;;^UTILITY(U,$J,112,9078,2)
+28 ;;=.313^6.25
+29 ;;^UTILITY(U,$J,112,9078,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,9079,0)
+32 ;;=BEEF,SAUSAGE,SMOKED,CKD^BC-02352^oz.^28
+33 ;;^UTILITY(U,$J,112,9079,1)
+34 ;;=14.286^27.143^2.5^317.857^54.286^^^7.143^1.786^14.286^107.143^178.571^1146.429^2.821^^^^^10.714^.036
+35 ;;^UTILITY(U,$J,112,9079,2)
+36 ;;=.143^3.214^^.107^^1.893^^^67.857^11.429^13.214^1.071
+37 ;;^UTILITY(U,$J,112,9079,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,9080,0)
+40 ;;=BEEF,SAUSAGE,SMOKED,CKD (SAUSAGE)^BC-02353^sausages^43
+41 ;;^UTILITY(U,$J,112,9080,1)
+42 ;;=14.186^26.977^2.326^311.628^53.488^^^9.302^1.767^13.953^104.651^176.744^1130.233^2.791^^^^^11.628^.047
+43 ;;^UTILITY(U,$J,112,9080,2)
+44 ;;=.14^3.256^^.116^^1.86^^^67.442^11.395^13.023^1.163
+45 ;;^UTILITY(U,$J,112,9080,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,9081,0)
+48 ;;=PORK,BACON,CURED,CKD,OSCAR MAYER^BC-02354^3-slices^18
+49 ;;^UTILITY(U,$J,112,9081,1)
+50 ;;=28.333^51.667^1.667^583.333^12.222^^^5.556^1.833^22.222^400^400^1966.667^3
+51 ;;^UTILITY(U,$J,112,9081,2)
+52 ;;=^^^^^^^^83.333^20^25^6.667
+53 ;;^UTILITY(U,$J,112,9081,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,9082,0)
+56 ;;=PORK,BACON,CURED,THICK,SLICED,CKD,OSCAR MAYER^BC-02355^3-slices^33
+57 ;;^UTILITY(U,$J,112,9082,1)
+58 ;;=27.273^51.818^1.818^581.818^13.03^^^9.091^1.818^18.182^372.727^409.091^1890.909^2.909
+59 ;;^UTILITY(U,$J,112,9082,2)
+60 ;;=^^^^^^^^90.909^20^25.455^6.364
+61 ;;^UTILITY(U,$J,112,9082,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,9083,0)
+64 ;;=PORK,BACON BITS,OSCAR MAYER^BC-02356^.25-oz.^7
+65 ;;^UTILITY(U,$J,112,9083,1)
+66 ;;=37.143^14.286^2.857^300^37.143^^^14.286^2^28.571^571.429^542.857^2585.714^4.714^.286^^^^14.286^.714
+67 ;;^UTILITY(U,$J,112,9083,2)
+68 ;;=.429^10^1.143^.286^^2.143^^^85.714^4.286^8.571^2.857
+69 ;;^UTILITY(U,$J,112,9083,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,9084,0)
+72 ;;=PORK,BACON STRIPS,CKD,LEAN'N TASTY,OSCAR MAYER^BC-02357^slices^12
+73 ;;^UTILITY(U,$J,112,9084,1)
+74 ;;=25.833^38.333^.833^450^30.833^^^8.333^1.167^16.667^191.667^333.333^1641.667^2.75^.333
+75 ;;^UTILITY(U,$J,112,9084,2)
+76 ;;=^^^^^^^^116.667^13.333^16.667^5
+77 ;;^UTILITY(U,$J,112,9084,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,9085,0)
+80 ;;=PORK,HAM,CURED,OSCAR MAYER,BREAKFAST^BC-02358^3.5-oz.^100
+81 ;;^UTILITY(U,$J,112,9085,1)
+82 ;;=17^3.7^2.3^110^72.8^^^.95^.72^13^248^331^1356^13
+83 ;;^UTILITY(U,$J,112,9085,2)
+84 ;;=^^^^^^^^49
+85 ;;^UTILITY(U,$J,112,9085,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,9086,0)
+88 ;;=PORK,HAM,CURED,OSCAR MAYER,JUBILEE^BC-02359^3.5-oz.^100
+89 ;;^UTILITY(U,$J,112,9086,1)
+90 ;;=18.5^9.4^.6^161^67.7^^^5^.92^17^256^331^1297^2.05
+91 ;;^UTILITY(U,$J,112,9086,2)
+92 ;;=^^^^^^^^55^3.3^4.8^1.2
+93 ;;^UTILITY(U,$J,112,9086,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,9087,0)
+96 ;;=PORK,HAM,CURED,OSCAR MAYER,JUBILEE,CND^BC-02360^3.5-oz.^100
+97 ;;^UTILITY(U,$J,112,9087,1)
+98 ;;=17.9^4.2^.5^110^74.3^^^4^.98^20^253^315^1024^1.93
+99 ;;^UTILITY(U,$J,112,9087,2)
+100 ;;=^^^^^^^^48^1.3^2^.4
+101 ;;^UTILITY(U,$J,112,9087,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,9088,0)
+104 ;;=LAMB,SAUSAGE,LITTLE FRIERS,OSCAR MAYER^BC-02361^links^24
+105 ;;^UTILITY(U,$J,112,9088,1)
+106 ;;=17.083^28.333^1.25^329.167^^^^4.167^1.625^16.667^154.167^237.5^808.333^2.333
+107 ;;^UTILITY(U,$J,112,9088,2)
+108 ;;=^^^^^^^^66.667^10^12.917^3.75
