FHINI0ER ; ; 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,9156,2)
;;=^^^^^^^^57.143^6.071^7.857^2.143
;;^UTILITY(U,$J,112,9156,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9157,0)
;;=POTTED MEAT,ARMOUR STAR^BC-02430^1.5-oz.^43
;;^UTILITY(U,$J,112,9157,1)
;;=11.628^13.953^2.326^186.047^^^^^^^^^1046.512
;;^UTILITY(U,$J,112,9157,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9158,0)
;;=ROAST BEEF HASH,ARMOUR STAR^BC-02431^3-oz.^85
;;^UTILITY(U,$J,112,9158,1)
;;=8.941^9.412^9.412^164.706^^^^^^^^^616.471
;;^UTILITY(U,$J,112,9158,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9159,0)
;;=SALAMI,COTTO,BEEF,OSCAR MAYER^BC-02432^slice^23
;;^UTILITY(U,$J,112,9159,1)
;;=13.913^15.217^1.739^200^65.217^^^4.348^2.739^17.391^230.435^208.696^1313.043^2.043
;;^UTILITY(U,$J,112,9159,2)
;;=^^^^^^^^82.609^6.957^6.957^.435
;;^UTILITY(U,$J,112,9159,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9160,0)
;;=SALAMI,COTTO,PORK & BEEF,OSCAR MAYER^BC-02433^slice^23
;;^UTILITY(U,$J,112,9160,1)
;;=13.478^18.696^1.739^230.435^62.174^^^8.696^2.217^17.391^226.087^178.261^1260.87^2.043
;;^UTILITY(U,$J,112,9160,2)
;;=^^^^^^^^82.609^8.261^9.565^1.739
;;^UTILITY(U,$J,112,9160,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9161,0)
;;=SALAMI,COTTO,TURKEY,LOUIS RICH^BC-02434^slice^28
;;^UTILITY(U,$J,112,9161,1)
;;=15.714^13.571^1.071^185.714^67.143^^^21.429^1.714^17.857^153.571^225^957.143^2.321
;;^UTILITY(U,$J,112,9161,2)
;;=^^^^^^^^78.571^3.929^5.357^3.571
;;^UTILITY(U,$J,112,9161,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9162,0)
;;=SALAMI,COTTO,TURKEY,OSCAR MAYER^BC-02435^slice^28
;;^UTILITY(U,$J,112,9162,1)
;;=15.714^13.214^1.071^185.714^67.143^^^17.857^1.75^17.857^153.571^221.429^914.286^2.536^.179^.05^^^0^.107
;;^UTILITY(U,$J,112,9162,2)
;;=.321^4.286^^.25^^3.536^^^78.571
;;^UTILITY(U,$J,112,9162,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9163,0)
;;=SALAMI,GENOA (PORK & BEEF),OSCAR MAYER^BC-02436^slice^9
;;^UTILITY(U,$J,112,9163,1)
;;=21.111^31.111^1.111^377.778^40^^^22.222^1.667^22.222^200^333.333^1800^3.444
;;^UTILITY(U,$J,112,9163,2)
;;=^^^^^^^^100^13.333^16.667^2.222
;;^UTILITY(U,$J,112,9163,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9164,0)
;;=SALAMI,PORK FOR BEER,OSCAR MAYER^BC-02437^slice^23
;;^UTILITY(U,$J,112,9164,1)
;;=13.913^17.391^1.739^217.391^63.478^^^8.696^1.087^17.391^243.478^217.391^1243.478^1.957
;;^UTILITY(U,$J,112,9164,2)
;;=^^^^^^^^65.217^7.391^10^2.609
;;^UTILITY(U,$J,112,9164,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9165,0)
;;=SALAMI,TURKEY,LOUIS RICH^BC-02438^slice^28
;;^UTILITY(U,$J,112,9165,1)
;;=15.714^13.929^.714^192.857^67.5^^^21.429^1.286^17.857^153.571^225^917.857^2.464
;;^UTILITY(U,$J,112,9165,2)
;;=^^^^^^^^71.429^3.929^5.714^3.929
;;^UTILITY(U,$J,112,9165,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9166,0)
;;=SALAMI,TURKEY,OSCAR MAYER^BC-02439^slice^28
;;^UTILITY(U,$J,112,9166,1)
;;=16.071^13.214^.357^185.714^67.5^^^21.429^1.25^17.857^150^225^871.429^2.464^.107^.025^^^0^.071
;;^UTILITY(U,$J,112,9166,2)
;;=.25^4.643^^.25^^1.536^^^67.857
;;^UTILITY(U,$J,112,9166,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9167,0)
;;=SALAMI,DRY/HARD,PORK & BEEF,OSCAR MAYER^BC-02440^slice^9
;;^UTILITY(U,$J,112,9167,1)
;;=21.111^31.111^1.111^366.667^41.111^^^11.111^1.667^22.222^166.667^355.556^1877.778^3.111
;;^UTILITY(U,$J,112,9167,2)
;;=^^^^^^^^88.889^13.333^15.556^3.333
;;^UTILITY(U,$J,112,9167,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9168,0)
;;=SMOKED LINK SAUSAGE,BEEF,OSCAR MAYER^BC-02441^link^43
;;^UTILITY(U,$J,112,9168,1)
;;=12.558^26.279^1.628^293.023^56.512^^^9.302^1.628^13.953^237.209^176.744^1000^3.07
;;^UTILITY(U,$J,112,9168,2)
;;=^^^^^^^^62.791^10.93^13.023^.93
;;^UTILITY(U,$J,112,9168,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9169,0)
;;=SMOKED LINK SAUSAGE,PORK & BEEF,OSCAR MAYER^BC-02442^link^43
;;^UTILITY(U,$J,112,9169,1)
;;=12.558^26.512^1.628^295.349^56.047^^^6.977^1.186^13.953^244.186^190.698^988.372^2.419
;;^UTILITY(U,$J,112,9169,2)
;;=^^^^^^^^65.116^9.767^12.791^2.791
;;^UTILITY(U,$J,112,9169,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9170,0)
;;=SMOKED LINK SAUSAGE,SMALL,PORK & BEEF,OSCAR MAYER^BC-02443^link^9
FHINI0ER ; ; 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,9156,2)
+2 ;;=^^^^^^^^57.143^6.071^7.857^2.143
+3 ;;^UTILITY(U,$J,112,9156,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9157,0)
+6 ;;=POTTED MEAT,ARMOUR STAR^BC-02430^1.5-oz.^43
+7 ;;^UTILITY(U,$J,112,9157,1)
+8 ;;=11.628^13.953^2.326^186.047^^^^^^^^^1046.512
+9 ;;^UTILITY(U,$J,112,9157,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,9158,0)
+12 ;;=ROAST BEEF HASH,ARMOUR STAR^BC-02431^3-oz.^85
+13 ;;^UTILITY(U,$J,112,9158,1)
+14 ;;=8.941^9.412^9.412^164.706^^^^^^^^^616.471
+15 ;;^UTILITY(U,$J,112,9158,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,9159,0)
+18 ;;=SALAMI,COTTO,BEEF,OSCAR MAYER^BC-02432^slice^23
+19 ;;^UTILITY(U,$J,112,9159,1)
+20 ;;=13.913^15.217^1.739^200^65.217^^^4.348^2.739^17.391^230.435^208.696^1313.043^2.043
+21 ;;^UTILITY(U,$J,112,9159,2)
+22 ;;=^^^^^^^^82.609^6.957^6.957^.435
+23 ;;^UTILITY(U,$J,112,9159,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,9160,0)
+26 ;;=SALAMI,COTTO,PORK & BEEF,OSCAR MAYER^BC-02433^slice^23
+27 ;;^UTILITY(U,$J,112,9160,1)
+28 ;;=13.478^18.696^1.739^230.435^62.174^^^8.696^2.217^17.391^226.087^178.261^1260.87^2.043
+29 ;;^UTILITY(U,$J,112,9160,2)
+30 ;;=^^^^^^^^82.609^8.261^9.565^1.739
+31 ;;^UTILITY(U,$J,112,9160,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,9161,0)
+34 ;;=SALAMI,COTTO,TURKEY,LOUIS RICH^BC-02434^slice^28
+35 ;;^UTILITY(U,$J,112,9161,1)
+36 ;;=15.714^13.571^1.071^185.714^67.143^^^21.429^1.714^17.857^153.571^225^957.143^2.321
+37 ;;^UTILITY(U,$J,112,9161,2)
+38 ;;=^^^^^^^^78.571^3.929^5.357^3.571
+39 ;;^UTILITY(U,$J,112,9161,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,9162,0)
+42 ;;=SALAMI,COTTO,TURKEY,OSCAR MAYER^BC-02435^slice^28
+43 ;;^UTILITY(U,$J,112,9162,1)
+44 ;;=15.714^13.214^1.071^185.714^67.143^^^17.857^1.75^17.857^153.571^221.429^914.286^2.536^.179^.05^^^0^.107
+45 ;;^UTILITY(U,$J,112,9162,2)
+46 ;;=.321^4.286^^.25^^3.536^^^78.571
+47 ;;^UTILITY(U,$J,112,9162,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,9163,0)
+50 ;;=SALAMI,GENOA (PORK & BEEF),OSCAR MAYER^BC-02436^slice^9
+51 ;;^UTILITY(U,$J,112,9163,1)
+52 ;;=21.111^31.111^1.111^377.778^40^^^22.222^1.667^22.222^200^333.333^1800^3.444
+53 ;;^UTILITY(U,$J,112,9163,2)
+54 ;;=^^^^^^^^100^13.333^16.667^2.222
+55 ;;^UTILITY(U,$J,112,9163,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,9164,0)
+58 ;;=SALAMI,PORK FOR BEER,OSCAR MAYER^BC-02437^slice^23
+59 ;;^UTILITY(U,$J,112,9164,1)
+60 ;;=13.913^17.391^1.739^217.391^63.478^^^8.696^1.087^17.391^243.478^217.391^1243.478^1.957
+61 ;;^UTILITY(U,$J,112,9164,2)
+62 ;;=^^^^^^^^65.217^7.391^10^2.609
+63 ;;^UTILITY(U,$J,112,9164,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,9165,0)
+66 ;;=SALAMI,TURKEY,LOUIS RICH^BC-02438^slice^28
+67 ;;^UTILITY(U,$J,112,9165,1)
+68 ;;=15.714^13.929^.714^192.857^67.5^^^21.429^1.286^17.857^153.571^225^917.857^2.464
+69 ;;^UTILITY(U,$J,112,9165,2)
+70 ;;=^^^^^^^^71.429^3.929^5.714^3.929
+71 ;;^UTILITY(U,$J,112,9165,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,9166,0)
+74 ;;=SALAMI,TURKEY,OSCAR MAYER^BC-02439^slice^28
+75 ;;^UTILITY(U,$J,112,9166,1)
+76 ;;=16.071^13.214^.357^185.714^67.5^^^21.429^1.25^17.857^150^225^871.429^2.464^.107^.025^^^0^.071
+77 ;;^UTILITY(U,$J,112,9166,2)
+78 ;;=.25^4.643^^.25^^1.536^^^67.857
+79 ;;^UTILITY(U,$J,112,9166,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,9167,0)
+82 ;;=SALAMI,DRY/HARD,PORK & BEEF,OSCAR MAYER^BC-02440^slice^9
+83 ;;^UTILITY(U,$J,112,9167,1)
+84 ;;=21.111^31.111^1.111^366.667^41.111^^^11.111^1.667^22.222^166.667^355.556^1877.778^3.111
+85 ;;^UTILITY(U,$J,112,9167,2)
+86 ;;=^^^^^^^^88.889^13.333^15.556^3.333
+87 ;;^UTILITY(U,$J,112,9167,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,9168,0)
+90 ;;=SMOKED LINK SAUSAGE,BEEF,OSCAR MAYER^BC-02441^link^43
+91 ;;^UTILITY(U,$J,112,9168,1)
+92 ;;=12.558^26.279^1.628^293.023^56.512^^^9.302^1.628^13.953^237.209^176.744^1000^3.07
+93 ;;^UTILITY(U,$J,112,9168,2)
+94 ;;=^^^^^^^^62.791^10.93^13.023^.93
+95 ;;^UTILITY(U,$J,112,9168,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,9169,0)
+98 ;;=SMOKED LINK SAUSAGE,PORK & BEEF,OSCAR MAYER^BC-02442^link^43
+99 ;;^UTILITY(U,$J,112,9169,1)
+100 ;;=12.558^26.512^1.628^295.349^56.047^^^6.977^1.186^13.953^244.186^190.698^988.372^2.419
+101 ;;^UTILITY(U,$J,112,9169,2)
+102 ;;=^^^^^^^^65.116^9.767^12.791^2.791
+103 ;;^UTILITY(U,$J,112,9169,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,9170,0)
+106 ;;=SMOKED LINK SAUSAGE,SMALL,PORK & BEEF,OSCAR MAYER^BC-02443^link^9
