FHINI0EQ ; ; 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,9143,2)
;;=.107^2.857
;;^UTILITY(U,$J,112,9143,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9144,0)
;;=MEAT SPREAD,CHICKEN,SWANSON^BC-02417^oz.^28
;;^UTILITY(U,$J,112,9144,1)
;;=16.429^14.643^5.714^217.857^^^^242.857^2.143^^^142.857^485.714^^^^^0^0^0
;;^UTILITY(U,$J,112,9144,2)
;;=.143^3.214
;;^UTILITY(U,$J,112,9144,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9145,0)
;;=HAM & CHEESE,OSCAR MAYER^BC-02418^oz.^28
;;^UTILITY(U,$J,112,9145,1)
;;=16.071^18.571^2.143^239.286^59.643^^^185.714^.75^17.857^478.571^160.714^1153.571^2.214^.107^^^^7.143^.321
;;^UTILITY(U,$J,112,9145,2)
;;=.25^2.143^^.143^^.679^^^53.571^8.571^7.5^1.429
;;^UTILITY(U,$J,112,9145,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9146,0)
;;=HAM,CARNATION^BC-02419^1.9-oz.^53
;;^UTILITY(U,$J,112,9146,1)
;;=9.434^11.321^7.547^188.679^64.528^^^11.321^1.547^3.774^88.679^196.226^660.377^.094^.019^^^7.547^0^.283
;;^UTILITY(U,$J,112,9146,2)
;;=.094^1.887^.019^0^5.66^0^^^45.283^3.396^^4.34
;;^UTILITY(U,$J,112,9146,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9147,0)
;;=HAM SALAD,OSCAR MAYER^BC-02420^oz.^28
;;^UTILITY(U,$J,112,9147,1)
;;=8.929^13.571^12.857^210.714^61.071^^^7.143^.75^10.714^125^135.714^957.143^1.179^.071^^^^7.143^.464
;;^UTILITY(U,$J,112,9147,2)
;;=.107^2.5^.321^.143^0^.714^^^35.714^4.643^6.786^2.5
;;^UTILITY(U,$J,112,9147,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9148,0)
;;=SANDWICH SPREAD,PORK & BEEF,OSCAR MAYER^BC-02421^oz.^28
;;^UTILITY(U,$J,112,9148,1)
;;=7.143^17.5^13.214^239.286^^^^14.286^.929^10.714^64.286^107.143^957.143^.964^^^^^0
;;^UTILITY(U,$J,112,9148,2)
;;=^^^^^^^^35.714^6.429^8.214^2.5
;;^UTILITY(U,$J,112,9148,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9149,0)
;;=TUNA,CARNATION^BC-02422^1.9-oz.^53
;;^UTILITY(U,$J,112,9149,1)
;;=11.321^11.321^3.774^169.811^65.849^^^11.321^.811^3.774^84.906^154.717^698.113^.094^.019^^^41.509^0^.019
;;^UTILITY(U,$J,112,9149,2)
;;=.038^5.283^.019^0^5.66^0^^^24.528^1.698^^6.981
;;^UTILITY(U,$J,112,9149,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9150,0)
;;=TURKEY,CARNATION^BC-02423^1.9-oz.^53
;;^UTILITY(U,$J,112,9150,1)
;;=11.321^11.321^3.774^169.811^65.849^^^13.208^.943^15.094^90.566^143.396^358.491^1.264^.075^^^5.66^0^.038
;;^UTILITY(U,$J,112,9150,2)
;;=.075^2.075^.396^.189^7.547^.151^^^37.736^2.075^^7.358
;;^UTILITY(U,$J,112,9150,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9151,0)
;;=OLD FASHIONED LOAF,PORK & BEEF,OSCAR MAYER^BC-02424^oz.^28
;;^UTILITY(U,$J,112,9151,1)
;;=14.286^14.286^8.214^221.429^59.286^^^100^1.036^21.429^175^339.286^1203.571^1.75
;;^UTILITY(U,$J,112,9151,2)
;;=^^^^^^^^57.143^5.714^7.5^1.786
;;^UTILITY(U,$J,112,9151,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9152,0)
;;=OLIVE LOAF,PORK,OSCAR MAYER^BC-02425^slice^28
;;^UTILITY(U,$J,112,9152,1)
;;=10.714^13.929^11.071^214.286^59.643^^^103.571^.75^17.857^146.429^289.286^1403.571^1.214
;;^UTILITY(U,$J,112,9152,2)
;;=^^^^^^^^50^5.357^7.143^2.143
;;^UTILITY(U,$J,112,9152,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9153,0)
;;=PASTRAMI,BEEF,OSCAR MAYER^BC-02426^slice^17
;;^UTILITY(U,$J,112,9153,1)
;;=19.412^1.765^.588^94.118^74.706^^^5.882^2.529^17.647^205.882^311.765^1276.471^3^.353
;;^UTILITY(U,$J,112,9153,2)
;;=^^^^^^^^41.176^1.176^1.176^0
;;^UTILITY(U,$J,112,9153,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9154,0)
;;=PEPPERED LOAF,PORK & BEEF,OSCAR MAYER^BC-02427^slice^28
;;^UTILITY(U,$J,112,9154,1)
;;=68.214^5.357^4.286^139.286^68.214^^^42.857^1.286^21.429^167.857^346.429^1307.143^2.964
;;^UTILITY(U,$J,112,9154,2)
;;=^^^^^^^^50^2.857^3.571^.714
;;^UTILITY(U,$J,112,9154,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9155,0)
;;=PICKLED & PIMENTO LOAF,PORK & TURKEY,OSCAR MAYER^BC-02428^slice^28
;;^UTILITY(U,$J,112,9155,1)
;;=10.714^13.929^13.214^221.429^57.857^^^110.714^.821^17.857^157.143^307.143^1439.286^1.286
;;^UTILITY(U,$J,112,9155,2)
;;=^^^^^^^^50^5.357^6.786^2.143
;;^UTILITY(U,$J,112,9155,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9156,0)
;;=PICNIC LOAF,PORK,OSCAR MAYER^BC-02429^slice^28
;;^UTILITY(U,$J,112,9156,1)
;;=15.357^15.357^4.286^214.286^61.071^^^39.286^1.107^17.857^150^275^1189.286^2.214
FHINI0EQ ; ; 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,9143,2)
+2 ;;=.107^2.857
+3 ;;^UTILITY(U,$J,112,9143,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9144,0)
+6 ;;=MEAT SPREAD,CHICKEN,SWANSON^BC-02417^oz.^28
+7 ;;^UTILITY(U,$J,112,9144,1)
+8 ;;=16.429^14.643^5.714^217.857^^^^242.857^2.143^^^142.857^485.714^^^^^0^0^0
+9 ;;^UTILITY(U,$J,112,9144,2)
+10 ;;=.143^3.214
+11 ;;^UTILITY(U,$J,112,9144,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9145,0)
+14 ;;=HAM & CHEESE,OSCAR MAYER^BC-02418^oz.^28
+15 ;;^UTILITY(U,$J,112,9145,1)
+16 ;;=16.071^18.571^2.143^239.286^59.643^^^185.714^.75^17.857^478.571^160.714^1153.571^2.214^.107^^^^7.143^.321
+17 ;;^UTILITY(U,$J,112,9145,2)
+18 ;;=.25^2.143^^.143^^.679^^^53.571^8.571^7.5^1.429
+19 ;;^UTILITY(U,$J,112,9145,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9146,0)
+22 ;;=HAM,CARNATION^BC-02419^1.9-oz.^53
+23 ;;^UTILITY(U,$J,112,9146,1)
+24 ;;=9.434^11.321^7.547^188.679^64.528^^^11.321^1.547^3.774^88.679^196.226^660.377^.094^.019^^^7.547^0^.283
+25 ;;^UTILITY(U,$J,112,9146,2)
+26 ;;=.094^1.887^.019^0^5.66^0^^^45.283^3.396^^4.34
+27 ;;^UTILITY(U,$J,112,9146,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9147,0)
+30 ;;=HAM SALAD,OSCAR MAYER^BC-02420^oz.^28
+31 ;;^UTILITY(U,$J,112,9147,1)
+32 ;;=8.929^13.571^12.857^210.714^61.071^^^7.143^.75^10.714^125^135.714^957.143^1.179^.071^^^^7.143^.464
+33 ;;^UTILITY(U,$J,112,9147,2)
+34 ;;=.107^2.5^.321^.143^0^.714^^^35.714^4.643^6.786^2.5
+35 ;;^UTILITY(U,$J,112,9147,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9148,0)
+38 ;;=SANDWICH SPREAD,PORK & BEEF,OSCAR MAYER^BC-02421^oz.^28
+39 ;;^UTILITY(U,$J,112,9148,1)
+40 ;;=7.143^17.5^13.214^239.286^^^^14.286^.929^10.714^64.286^107.143^957.143^.964^^^^^0
+41 ;;^UTILITY(U,$J,112,9148,2)
+42 ;;=^^^^^^^^35.714^6.429^8.214^2.5
+43 ;;^UTILITY(U,$J,112,9148,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9149,0)
+46 ;;=TUNA,CARNATION^BC-02422^1.9-oz.^53
+47 ;;^UTILITY(U,$J,112,9149,1)
+48 ;;=11.321^11.321^3.774^169.811^65.849^^^11.321^.811^3.774^84.906^154.717^698.113^.094^.019^^^41.509^0^.019
+49 ;;^UTILITY(U,$J,112,9149,2)
+50 ;;=.038^5.283^.019^0^5.66^0^^^24.528^1.698^^6.981
+51 ;;^UTILITY(U,$J,112,9149,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,9150,0)
+54 ;;=TURKEY,CARNATION^BC-02423^1.9-oz.^53
+55 ;;^UTILITY(U,$J,112,9150,1)
+56 ;;=11.321^11.321^3.774^169.811^65.849^^^13.208^.943^15.094^90.566^143.396^358.491^1.264^.075^^^5.66^0^.038
+57 ;;^UTILITY(U,$J,112,9150,2)
+58 ;;=.075^2.075^.396^.189^7.547^.151^^^37.736^2.075^^7.358
+59 ;;^UTILITY(U,$J,112,9150,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,9151,0)
+62 ;;=OLD FASHIONED LOAF,PORK & BEEF,OSCAR MAYER^BC-02424^oz.^28
+63 ;;^UTILITY(U,$J,112,9151,1)
+64 ;;=14.286^14.286^8.214^221.429^59.286^^^100^1.036^21.429^175^339.286^1203.571^1.75
+65 ;;^UTILITY(U,$J,112,9151,2)
+66 ;;=^^^^^^^^57.143^5.714^7.5^1.786
+67 ;;^UTILITY(U,$J,112,9151,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,9152,0)
+70 ;;=OLIVE LOAF,PORK,OSCAR MAYER^BC-02425^slice^28
+71 ;;^UTILITY(U,$J,112,9152,1)
+72 ;;=10.714^13.929^11.071^214.286^59.643^^^103.571^.75^17.857^146.429^289.286^1403.571^1.214
+73 ;;^UTILITY(U,$J,112,9152,2)
+74 ;;=^^^^^^^^50^5.357^7.143^2.143
+75 ;;^UTILITY(U,$J,112,9152,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,9153,0)
+78 ;;=PASTRAMI,BEEF,OSCAR MAYER^BC-02426^slice^17
+79 ;;^UTILITY(U,$J,112,9153,1)
+80 ;;=19.412^1.765^.588^94.118^74.706^^^5.882^2.529^17.647^205.882^311.765^1276.471^3^.353
+81 ;;^UTILITY(U,$J,112,9153,2)
+82 ;;=^^^^^^^^41.176^1.176^1.176^0
+83 ;;^UTILITY(U,$J,112,9153,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,9154,0)
+86 ;;=PEPPERED LOAF,PORK & BEEF,OSCAR MAYER^BC-02427^slice^28
+87 ;;^UTILITY(U,$J,112,9154,1)
+88 ;;=68.214^5.357^4.286^139.286^68.214^^^42.857^1.286^21.429^167.857^346.429^1307.143^2.964
+89 ;;^UTILITY(U,$J,112,9154,2)
+90 ;;=^^^^^^^^50^2.857^3.571^.714
+91 ;;^UTILITY(U,$J,112,9154,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,9155,0)
+94 ;;=PICKLED & PIMENTO LOAF,PORK & TURKEY,OSCAR MAYER^BC-02428^slice^28
+95 ;;^UTILITY(U,$J,112,9155,1)
+96 ;;=10.714^13.929^13.214^221.429^57.857^^^110.714^.821^17.857^157.143^307.143^1439.286^1.286
+97 ;;^UTILITY(U,$J,112,9155,2)
+98 ;;=^^^^^^^^50^5.357^6.786^2.143
+99 ;;^UTILITY(U,$J,112,9155,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,9156,0)
+102 ;;=PICNIC LOAF,PORK,OSCAR MAYER^BC-02429^slice^28
+103 ;;^UTILITY(U,$J,112,9156,1)
+104 ;;=15.357^15.357^4.286^214.286^61.071^^^39.286^1.107^17.857^150^275^1189.286^2.214
