FHINI0ES ; ; 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,9170,1)
;;=13.333^27.778^1.111^311.111^53.333^^^11.111^1.222^22.222^222.222^177.778^1011.111^2.111^.222
;;^UTILITY(U,$J,112,9170,2)
;;=^^^^^^^^66.667^10^14.444^3.333
;;^UTILITY(U,$J,112,9170,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9171,0)
;;=SMOKED LINK SAUSAGE,PORK & BEEF W/CHEESE,OSCAR MAYER^BC-02444^link^43
;;^UTILITY(U,$J,112,9171,1)
;;=13.256^26.279^1.86^295.349^55.581^^^41.86^1.07^16.279^293.023^186.047^1060.465^1.953
;;^UTILITY(U,$J,112,9171,2)
;;=^^^^^^^^67.442^10.233^13.023^2.791
;;^UTILITY(U,$J,112,9171,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9172,0)
;;=THURINGER,BEEF & PORK,OSCAR MAYER^BC-02445^slice^23
;;^UTILITY(U,$J,112,9172,1)
;;=15.217^26.522^.435^300^53.478^^^8.696^2.174^13.043^126.087^226.087^1439.13^2.087
;;^UTILITY(U,$J,112,9172,2)
;;=^^^^^^^^82.609^11.739^13.478^1.304
;;^UTILITY(U,$J,112,9172,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9173,0)
;;=THURINGER,BEEF,OSCAR MAYER^BC-02446^slice^23
;;^UTILITY(U,$J,112,9173,1)
;;=15.217^26.957^1.304^308.696^52.174^^^8.696^2.391^13.043^117.391^230.435^1408.696^2.304
;;^UTILITY(U,$J,112,9173,2)
;;=^^^^^^^^78.261^11.739^13.043^1.304
;;^UTILITY(U,$J,112,9173,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9174,0)
;;=TREET,ARMOUR STAR^BC-02447^oz.^28
;;^UTILITY(U,$J,112,9174,1)
;;=10.714^31.071^4.643^346.429^^^^^^^^^1500
;;^UTILITY(U,$J,112,9174,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9175,0)
;;=TURKEY BREAST,OVEN ROASTED,LOUIS RICH^BC-02448^slice^28
;;^UTILITY(U,$J,112,9175,1)
;;=17.143^2.857^4.286^110.714^72.5^^^3.571^.786^21.429^264.286^232.143^1167.857^.821
;;^UTILITY(U,$J,112,9175,2)
;;=^^^^^^^^46.429^1.071^1.071^.714
;;^UTILITY(U,$J,112,9175,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9176,0)
;;=TURKEY BREAST,OVEN ROASTED,OSCAR MAYER^BC-02449^slice^21
;;^UTILITY(U,$J,112,9176,1)
;;=20^2.381^1.905^109.524^71.429^^^4.762^1.143^19.048^276.19^314.286^1385.714^.952
;;^UTILITY(U,$J,112,9176,2)
;;=^^^^^^^^42.857^.476^.952^.476
;;^UTILITY(U,$J,112,9176,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9177,0)
;;=TURKEY BREAST,SMOKED,LOUIS RICH^BC-02450^slice^21
;;^UTILITY(U,$J,112,9177,1)
;;=21.429^1.429^.952^100^73.333^^^4.762^.571^23.81^295.238^285.714^990.476^1.048
;;^UTILITY(U,$J,112,9177,2)
;;=^^^^^^^^33.333^.476^.476^.476
;;^UTILITY(U,$J,112,9177,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9178,0)
;;=TURKEY BREAST,SMOKED,OSCAR MAYER^BC-02451^slice^21
;;^UTILITY(U,$J,112,9178,1)
;;=20.476^.952^.952^90.476^73.333^^^9.524^.714^19.048^333.333^328.571^1433.333^.857
;;^UTILITY(U,$J,112,9178,2)
;;=^^^^^^^^42.857^.476^.476^.476
;;^UTILITY(U,$J,112,9178,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9179,0)
;;=TURKEY BREAST,WEAVER^BC-02452^slice^20
;;^UTILITY(U,$J,112,9179,1)
;;=20^1.5^2^100^^^^^^^^^680
;;^UTILITY(U,$J,112,9179,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9180,0)
;;=TURKEY HAM,HONEY CURED,LOUIS RICH^BC-02453^slice^21
;;^UTILITY(U,$J,112,9180,1)
;;=20^3.333^2.857^119.048^70.476^^^4.762^1.381^19.048^319.048^304.762^1033.333^2.571
;;^UTILITY(U,$J,112,9180,2)
;;=^^^^^^^^66.667^.952^.952^.476
;;^UTILITY(U,$J,112,9180,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9181,0)
;;=TURKEY HAM (CURED THIGH) SQUARE,LOUIS RICH^BC-02454^slice^21
;;^UTILITY(U,$J,112,9181,1)
;;=19.524^3.333^1.429^114.286^72.381^^^4.762^1.381^19.048^314.286^304.762^1014.286^2.048
;;^UTILITY(U,$J,112,9181,2)
;;=^^^^^^^^66.667^1.429^.952^.476
;;^UTILITY(U,$J,112,9181,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9182,0)
;;=TURKEY HAM (CURED THIGH),WEAVER^BC-02455^slice^20
;;^UTILITY(U,$J,112,9182,1)
;;=15.5^5^1^115^^^^^^^^^910
;;^UTILITY(U,$J,112,9182,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9183,0)
;;=TURKEY LUNCHEON LOAF,LOUIS RICH^BC-02456^slice^28
;;^UTILITY(U,$J,112,9183,1)
;;=16.429^10^1.429^160.714^69.643^^^7.143^.571^17.857^235.714^214.286^960.714^1.571
;;^UTILITY(U,$J,112,9183,2)
;;=^^^^^^^^50^2.857^3.571^2.857
;;^UTILITY(U,$J,112,9183,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9184,0)
;;=TURKEY LUNCHEON LOAF,OSCAR MAYER^BC-02457^slice^28
;;^UTILITY(U,$J,112,9184,1)
;;=16.429^9.286^1.429^153.571^70^^^7.143^.536^17.857^232.143^214.286^992.857^1.607^.036^.018^^^0^.036
FHINI0ES ; ; 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,9170,1)
+2 ;;=13.333^27.778^1.111^311.111^53.333^^^11.111^1.222^22.222^222.222^177.778^1011.111^2.111^.222
+3 ;;^UTILITY(U,$J,112,9170,2)
+4 ;;=^^^^^^^^66.667^10^14.444^3.333
+5 ;;^UTILITY(U,$J,112,9170,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,9171,0)
+8 ;;=SMOKED LINK SAUSAGE,PORK & BEEF W/CHEESE,OSCAR MAYER^BC-02444^link^43
+9 ;;^UTILITY(U,$J,112,9171,1)
+10 ;;=13.256^26.279^1.86^295.349^55.581^^^41.86^1.07^16.279^293.023^186.047^1060.465^1.953
+11 ;;^UTILITY(U,$J,112,9171,2)
+12 ;;=^^^^^^^^67.442^10.233^13.023^2.791
+13 ;;^UTILITY(U,$J,112,9171,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,9172,0)
+16 ;;=THURINGER,BEEF & PORK,OSCAR MAYER^BC-02445^slice^23
+17 ;;^UTILITY(U,$J,112,9172,1)
+18 ;;=15.217^26.522^.435^300^53.478^^^8.696^2.174^13.043^126.087^226.087^1439.13^2.087
+19 ;;^UTILITY(U,$J,112,9172,2)
+20 ;;=^^^^^^^^82.609^11.739^13.478^1.304
+21 ;;^UTILITY(U,$J,112,9172,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,9173,0)
+24 ;;=THURINGER,BEEF,OSCAR MAYER^BC-02446^slice^23
+25 ;;^UTILITY(U,$J,112,9173,1)
+26 ;;=15.217^26.957^1.304^308.696^52.174^^^8.696^2.391^13.043^117.391^230.435^1408.696^2.304
+27 ;;^UTILITY(U,$J,112,9173,2)
+28 ;;=^^^^^^^^78.261^11.739^13.043^1.304
+29 ;;^UTILITY(U,$J,112,9173,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,9174,0)
+32 ;;=TREET,ARMOUR STAR^BC-02447^oz.^28
+33 ;;^UTILITY(U,$J,112,9174,1)
+34 ;;=10.714^31.071^4.643^346.429^^^^^^^^^1500
+35 ;;^UTILITY(U,$J,112,9174,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9175,0)
+38 ;;=TURKEY BREAST,OVEN ROASTED,LOUIS RICH^BC-02448^slice^28
+39 ;;^UTILITY(U,$J,112,9175,1)
+40 ;;=17.143^2.857^4.286^110.714^72.5^^^3.571^.786^21.429^264.286^232.143^1167.857^.821
+41 ;;^UTILITY(U,$J,112,9175,2)
+42 ;;=^^^^^^^^46.429^1.071^1.071^.714
+43 ;;^UTILITY(U,$J,112,9175,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9176,0)
+46 ;;=TURKEY BREAST,OVEN ROASTED,OSCAR MAYER^BC-02449^slice^21
+47 ;;^UTILITY(U,$J,112,9176,1)
+48 ;;=20^2.381^1.905^109.524^71.429^^^4.762^1.143^19.048^276.19^314.286^1385.714^.952
+49 ;;^UTILITY(U,$J,112,9176,2)
+50 ;;=^^^^^^^^42.857^.476^.952^.476
+51 ;;^UTILITY(U,$J,112,9176,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,9177,0)
+54 ;;=TURKEY BREAST,SMOKED,LOUIS RICH^BC-02450^slice^21
+55 ;;^UTILITY(U,$J,112,9177,1)
+56 ;;=21.429^1.429^.952^100^73.333^^^4.762^.571^23.81^295.238^285.714^990.476^1.048
+57 ;;^UTILITY(U,$J,112,9177,2)
+58 ;;=^^^^^^^^33.333^.476^.476^.476
+59 ;;^UTILITY(U,$J,112,9177,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,9178,0)
+62 ;;=TURKEY BREAST,SMOKED,OSCAR MAYER^BC-02451^slice^21
+63 ;;^UTILITY(U,$J,112,9178,1)
+64 ;;=20.476^.952^.952^90.476^73.333^^^9.524^.714^19.048^333.333^328.571^1433.333^.857
+65 ;;^UTILITY(U,$J,112,9178,2)
+66 ;;=^^^^^^^^42.857^.476^.476^.476
+67 ;;^UTILITY(U,$J,112,9178,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,9179,0)
+70 ;;=TURKEY BREAST,WEAVER^BC-02452^slice^20
+71 ;;^UTILITY(U,$J,112,9179,1)
+72 ;;=20^1.5^2^100^^^^^^^^^680
+73 ;;^UTILITY(U,$J,112,9179,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,9180,0)
+76 ;;=TURKEY HAM,HONEY CURED,LOUIS RICH^BC-02453^slice^21
+77 ;;^UTILITY(U,$J,112,9180,1)
+78 ;;=20^3.333^2.857^119.048^70.476^^^4.762^1.381^19.048^319.048^304.762^1033.333^2.571
+79 ;;^UTILITY(U,$J,112,9180,2)
+80 ;;=^^^^^^^^66.667^.952^.952^.476
+81 ;;^UTILITY(U,$J,112,9180,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,9181,0)
+84 ;;=TURKEY HAM (CURED THIGH) SQUARE,LOUIS RICH^BC-02454^slice^21
+85 ;;^UTILITY(U,$J,112,9181,1)
+86 ;;=19.524^3.333^1.429^114.286^72.381^^^4.762^1.381^19.048^314.286^304.762^1014.286^2.048
+87 ;;^UTILITY(U,$J,112,9181,2)
+88 ;;=^^^^^^^^66.667^1.429^.952^.476
+89 ;;^UTILITY(U,$J,112,9181,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,9182,0)
+92 ;;=TURKEY HAM (CURED THIGH),WEAVER^BC-02455^slice^20
+93 ;;^UTILITY(U,$J,112,9182,1)
+94 ;;=15.5^5^1^115^^^^^^^^^910
+95 ;;^UTILITY(U,$J,112,9182,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,9183,0)
+98 ;;=TURKEY LUNCHEON LOAF,LOUIS RICH^BC-02456^slice^28
+99 ;;^UTILITY(U,$J,112,9183,1)
+100 ;;=16.429^10^1.429^160.714^69.643^^^7.143^.571^17.857^235.714^214.286^960.714^1.571
+101 ;;^UTILITY(U,$J,112,9183,2)
+102 ;;=^^^^^^^^50^2.857^3.571^2.857
+103 ;;^UTILITY(U,$J,112,9183,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,9184,0)
+106 ;;=TURKEY LUNCHEON LOAF,OSCAR MAYER^BC-02457^slice^28
+107 ;;^UTILITY(U,$J,112,9184,1)
+108 ;;=16.429^9.286^1.429^153.571^70^^^7.143^.536^17.857^232.143^214.286^992.857^1.607^.036^.018^^^0^.036
