FHINI0EM ; ; 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,9088,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9089,0)
;;=VARIETY CUTS,TOUGUE,LUNCH,CND,ARMOUR STAR^BC-02362^3-oz.^85
;;^UTILITY(U,$J,112,9089,1)
;;=17.647^16.471^1.176^235.294^^^^^^^^^1647.059^1.176
;;^UTILITY(U,$J,112,9089,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9090,0)
;;=VARIETY CUTS,TRIPE,BEEF CND,ARMOUR STAR^BC-02363^6-oz.^170
;;^UTILITY(U,$J,112,9090,1)
;;=19.412^2.353^.588^105.882^^^^^^^^^135.294
;;^UTILITY(U,$J,112,9090,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9091,0)
;;=BBQ LOAF,PORK & BEEF,OSCAR MAYER^BC-02364^slice^28
;;^UTILITY(U,$J,112,9091,1)
;;=16.071^8.214^6.071^164.286^64.286^^^57.143^1.25^17.857^150^335.714^1185.714^2.5^.071^.043^^100^17.857^.393
;;^UTILITY(U,$J,112,9091,2)
;;=.25^2.143^1.571^.25^^1.607^^^50^3.571^4.286^.714
;;^UTILITY(U,$J,112,9091,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9092,0)
;;=BEEF,ITALIAN STYLE,OSCAR MAYER^BC-02365^slice^17
;;^UTILITY(U,$J,112,9092,1)
;;=18.824^2.941^1.176^105.882^73.529^^^11.765^2.765^17.647^205.882^317.647^1229.412^3.059^.294
;;^UTILITY(U,$J,112,9092,2)
;;=^^^^^^^^35.294
;;^UTILITY(U,$J,112,9092,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9093,0)
;;=BEEF,SMOKED,OSCAR MAYER^BC-02366^slice^14
;;^UTILITY(U,$J,112,9093,1)
;;=19.286^1.429^.714^92.857^74.286^^^7.143^2.643^14.286^221.429^357.143^1264.286^3.357
;;^UTILITY(U,$J,112,9093,2)
;;=^^^^^^^^50^.714^.714^0
;;^UTILITY(U,$J,112,9093,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9094,0)
;;=BOLOGNA,BEEF,OSCAR MAYER^BC-02367^slice^28
;;^UTILITY(U,$J,112,9094,1)
;;=11.071^29.643^2.143^321.429^53.929^^^10.714^1.357^10.714^96.429^164.286^1085.714^2.107
;;^UTILITY(U,$J,112,9094,2)
;;=^^^^^^^^71.429^13.214^15.357^1.429
;;^UTILITY(U,$J,112,9094,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9095,0)
;;=BOLOGNA,CHICKEN,WEAVER^BC-02368^slice^20
;;^UTILITY(U,$J,112,9095,1)
;;=11^18.5^2.5^220^^^^^^^^^925
;;^UTILITY(U,$J,112,9095,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9096,0)
;;=BOLOGNA,PORK & BEEF,OSCAR MAYER^BC-02369^slice^28
;;^UTILITY(U,$J,112,9096,1)
;;=11.071^29.643^2.5^321.429^53.571^^^10.714^1.036^10.714^96.429^164.286^1114.286^1.75
;;^UTILITY(U,$J,112,9096,2)
;;=^^^^^^^^67.857^11.429^15^2.857^^^^^0
;;^UTILITY(U,$J,112,9096,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9097,0)
;;=BOLOGNA,TURKEY,LOUIS RICH^BC-02370^slice^28
;;^UTILITY(U,$J,112,9097,1)
;;=12.143^17.5^2.143^214.286^66.071^^^96.429^1.536^17.857^160.714^175^846.429^1.964
;;^UTILITY(U,$J,112,9097,2)
;;=^^^^^^^^71.429^5.357^6.429^4.643
;;^UTILITY(U,$J,112,9097,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9098,0)
;;=BOLOGNA,TURKEY,MILD,LOUIS RICH^BC-02371^slice^28
;;^UTILITY(U,$J,112,9098,1)
;;=13.571^16.071^2.5^207.143^64.643^^^32.143^1.357^17.857^150^196.429^1067.857^1.357
;;^UTILITY(U,$J,112,9098,2)
;;=^^^^^^^^60.714^5.357^6.786^5
;;^UTILITY(U,$J,112,9098,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9099,0)
;;=BOLOGNA,TURKEY,OSCAR MAYER^BC-02372^slice^28
;;^UTILITY(U,$J,112,9099,1)
;;=12.857^16.786^1.786^207.143^66.071^^^110.714^1.464^17.857^160.714^171.429^803.571^2.107^.071^.029^^^0^.036
;;^UTILITY(U,$J,112,9099,2)
;;=.179^3.929^^^^1.5^^^67.857
;;^UTILITY(U,$J,112,9099,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9100,0)
;;=BOLOGNA,TURKEY W/CHEESE,OSCAR MAYER^BC-02373^slice^23
;;^UTILITY(U,$J,112,9100,1)
;;=11.739^29.565^2.609^321.739^53.043^^^56.522^1.217^13.043^178.261^173.913^1008.696^1.696^.087^.035^^^17.391^.217
;;^UTILITY(U,$J,112,9100,2)
;;=.13^2.609^.348^.174^4.348^1.261^^^65.217^11.304^13.913^3.043
;;^UTILITY(U,$J,112,9100,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9101,0)
;;=BRAUNSCHWEIGER,IN TUBE,OSCAR MAYER^BC-02374^oz.^28
;;^UTILITY(U,$J,112,9101,1)
;;=13.571^30.714^3.214^342.857^49.286^^^7.143^9.5^10.714^185.714^182.143^1146.429^3.036^.286^^^16671.429^7.143^.214
;;^UTILITY(U,$J,112,9101,2)
;;=1.536^8.214^2.893^.321^60.714^18.536^^^153.571^10.714^15.357^3.929
;;^UTILITY(U,$J,112,9101,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9102,0)
;;=BRAUNSCHWEIGER,OSCAR MAYER^BC-02375^slice^28
;;^UTILITY(U,$J,112,9102,1)
;;=13.929^31.071^2.143^342.857^49.643^^^7.143^9.429^10.714^189.286^203.571^1167.857^3.179^9.429
FHINI0EM ; ; 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,9088,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,9089,0)
+4 ;;=VARIETY CUTS,TOUGUE,LUNCH,CND,ARMOUR STAR^BC-02362^3-oz.^85
+5 ;;^UTILITY(U,$J,112,9089,1)
+6 ;;=17.647^16.471^1.176^235.294^^^^^^^^^1647.059^1.176
+7 ;;^UTILITY(U,$J,112,9089,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,9090,0)
+10 ;;=VARIETY CUTS,TRIPE,BEEF CND,ARMOUR STAR^BC-02363^6-oz.^170
+11 ;;^UTILITY(U,$J,112,9090,1)
+12 ;;=19.412^2.353^.588^105.882^^^^^^^^^135.294
+13 ;;^UTILITY(U,$J,112,9090,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,9091,0)
+16 ;;=BBQ LOAF,PORK & BEEF,OSCAR MAYER^BC-02364^slice^28
+17 ;;^UTILITY(U,$J,112,9091,1)
+18 ;;=16.071^8.214^6.071^164.286^64.286^^^57.143^1.25^17.857^150^335.714^1185.714^2.5^.071^.043^^100^17.857^.393
+19 ;;^UTILITY(U,$J,112,9091,2)
+20 ;;=.25^2.143^1.571^.25^^1.607^^^50^3.571^4.286^.714
+21 ;;^UTILITY(U,$J,112,9091,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,9092,0)
+24 ;;=BEEF,ITALIAN STYLE,OSCAR MAYER^BC-02365^slice^17
+25 ;;^UTILITY(U,$J,112,9092,1)
+26 ;;=18.824^2.941^1.176^105.882^73.529^^^11.765^2.765^17.647^205.882^317.647^1229.412^3.059^.294
+27 ;;^UTILITY(U,$J,112,9092,2)
+28 ;;=^^^^^^^^35.294
+29 ;;^UTILITY(U,$J,112,9092,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,9093,0)
+32 ;;=BEEF,SMOKED,OSCAR MAYER^BC-02366^slice^14
+33 ;;^UTILITY(U,$J,112,9093,1)
+34 ;;=19.286^1.429^.714^92.857^74.286^^^7.143^2.643^14.286^221.429^357.143^1264.286^3.357
+35 ;;^UTILITY(U,$J,112,9093,2)
+36 ;;=^^^^^^^^50^.714^.714^0
+37 ;;^UTILITY(U,$J,112,9093,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,9094,0)
+40 ;;=BOLOGNA,BEEF,OSCAR MAYER^BC-02367^slice^28
+41 ;;^UTILITY(U,$J,112,9094,1)
+42 ;;=11.071^29.643^2.143^321.429^53.929^^^10.714^1.357^10.714^96.429^164.286^1085.714^2.107
+43 ;;^UTILITY(U,$J,112,9094,2)
+44 ;;=^^^^^^^^71.429^13.214^15.357^1.429
+45 ;;^UTILITY(U,$J,112,9094,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,9095,0)
+48 ;;=BOLOGNA,CHICKEN,WEAVER^BC-02368^slice^20
+49 ;;^UTILITY(U,$J,112,9095,1)
+50 ;;=11^18.5^2.5^220^^^^^^^^^925
+51 ;;^UTILITY(U,$J,112,9095,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,9096,0)
+54 ;;=BOLOGNA,PORK & BEEF,OSCAR MAYER^BC-02369^slice^28
+55 ;;^UTILITY(U,$J,112,9096,1)
+56 ;;=11.071^29.643^2.5^321.429^53.571^^^10.714^1.036^10.714^96.429^164.286^1114.286^1.75
+57 ;;^UTILITY(U,$J,112,9096,2)
+58 ;;=^^^^^^^^67.857^11.429^15^2.857^^^^^0
+59 ;;^UTILITY(U,$J,112,9096,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,9097,0)
+62 ;;=BOLOGNA,TURKEY,LOUIS RICH^BC-02370^slice^28
+63 ;;^UTILITY(U,$J,112,9097,1)
+64 ;;=12.143^17.5^2.143^214.286^66.071^^^96.429^1.536^17.857^160.714^175^846.429^1.964
+65 ;;^UTILITY(U,$J,112,9097,2)
+66 ;;=^^^^^^^^71.429^5.357^6.429^4.643
+67 ;;^UTILITY(U,$J,112,9097,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,9098,0)
+70 ;;=BOLOGNA,TURKEY,MILD,LOUIS RICH^BC-02371^slice^28
+71 ;;^UTILITY(U,$J,112,9098,1)
+72 ;;=13.571^16.071^2.5^207.143^64.643^^^32.143^1.357^17.857^150^196.429^1067.857^1.357
+73 ;;^UTILITY(U,$J,112,9098,2)
+74 ;;=^^^^^^^^60.714^5.357^6.786^5
+75 ;;^UTILITY(U,$J,112,9098,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,9099,0)
+78 ;;=BOLOGNA,TURKEY,OSCAR MAYER^BC-02372^slice^28
+79 ;;^UTILITY(U,$J,112,9099,1)
+80 ;;=12.857^16.786^1.786^207.143^66.071^^^110.714^1.464^17.857^160.714^171.429^803.571^2.107^.071^.029^^^0^.036
+81 ;;^UTILITY(U,$J,112,9099,2)
+82 ;;=.179^3.929^^^^1.5^^^67.857
+83 ;;^UTILITY(U,$J,112,9099,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,9100,0)
+86 ;;=BOLOGNA,TURKEY W/CHEESE,OSCAR MAYER^BC-02373^slice^23
+87 ;;^UTILITY(U,$J,112,9100,1)
+88 ;;=11.739^29.565^2.609^321.739^53.043^^^56.522^1.217^13.043^178.261^173.913^1008.696^1.696^.087^.035^^^17.391^.217
+89 ;;^UTILITY(U,$J,112,9100,2)
+90 ;;=.13^2.609^.348^.174^4.348^1.261^^^65.217^11.304^13.913^3.043
+91 ;;^UTILITY(U,$J,112,9100,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,9101,0)
+94 ;;=BRAUNSCHWEIGER,IN TUBE,OSCAR MAYER^BC-02374^oz.^28
+95 ;;^UTILITY(U,$J,112,9101,1)
+96 ;;=13.571^30.714^3.214^342.857^49.286^^^7.143^9.5^10.714^185.714^182.143^1146.429^3.036^.286^^^16671.429^7.143^.214
+97 ;;^UTILITY(U,$J,112,9101,2)
+98 ;;=1.536^8.214^2.893^.321^60.714^18.536^^^153.571^10.714^15.357^3.929
+99 ;;^UTILITY(U,$J,112,9101,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,9102,0)
+102 ;;=BRAUNSCHWEIGER,OSCAR MAYER^BC-02375^slice^28
+103 ;;^UTILITY(U,$J,112,9102,1)
+104 ;;=13.929^31.071^2.143^342.857^49.643^^^7.143^9.429^10.714^189.286^203.571^1167.857^3.179^9.429
