FHINI0DI ; ; 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,8552,0)
;;=GRAIN CAKE,RICE,QUAKER^BC-01825^cake^9
;;^UTILITY(U,$J,112,8552,1)
;;=8.889^3.333^78.889^388.889^5.556^^^11.111^1.667^133.333^355.556^277.778^400^2.556^.444^6.111^^88.889^0^0
;;^UTILITY(U,$J,112,8552,2)
;;=.111^5.556^.889^.111^22.222^^^^0^1.111^1.111^1.111^^^^^3.333
;;^UTILITY(U,$J,112,8552,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8553,0)
;;=GRAINED CAKE,RYE,QUAKER^BC-01826^cake^9
;;^UTILITY(U,$J,112,8553,1)
;;=15.556^3.333^72.222^388.889^3.333^^^66.667^422.222^166.667^511.111^^577.778^^5.111^^^0^0^0
;;^UTILITY(U,$J,112,8553,2)
;;=.111^.667^^^^4.444^^^^0^1.111^1.111^^^^^8.889
;;^UTILITY(U,$J,112,8553,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8554,0)
;;=GRAINED CAKE,WHEAT,QUAKER^BC-01827^cake^9
;;^UTILITY(U,$J,112,8554,1)
;;=15.556^3.333^74.444^377.778^4.444^^^44.444^^177.778^422.222^477.778^577.778^^^^^0^0^.667
;;^UTILITY(U,$J,112,8554,2)
;;=.111^4.444^^^^^^^0^1.111^0^1.111^^^^^8.889
;;^UTILITY(U,$J,112,8554,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8555,0)
;;=CRACKERS,HARVEST CRISPS,5 GRAIN,NABISCO^BC-01828^6-cracker^14
;;^UTILITY(U,$J,112,8555,1)
;;=7.143^14.286^71.429^428.571^^^^^^^^^964.286
;;^UTILITY(U,$J,112,8555,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,8555,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8556,0)
;;=CRACKERS,MEAL MATES SESARNE WAFERS,NABISCO^BC-01829^3-cracker^14
;;^UTILITY(U,$J,112,8556,1)
;;=7.143^21.429^64.286^500^^^^^^^^214.286^1142.857
;;^UTILITY(U,$J,112,8556,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,8556,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8557,0)
;;=CRACKERS,MELBA TOAST,GARLIC,KEEBLER^BC-01830^2-pieces^5
;;^UTILITY(U,$J,112,8557,1)
;;=20^2^80^500^^^^40^6^^^180^700^^^^^^^.6
;;^UTILITY(U,$J,112,8557,2)
;;=.6^8^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,8557,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8558,0)
;;=CRACKERS,MELBA TOAST,KEEBLER (LONG)^BC-01831^2-pieces^9
;;^UTILITY(U,$J,112,8558,1)
;;=11.111^1.111^76.667^333.333^^^^88.889^5.556^^^133.333^111.111^^^^^^^.222
;;^UTILITY(U,$J,112,8558,2)
;;=.333^2.222^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,8558,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8559,0)
;;=CRACKERS,MELBA TOAST,KEEBLER^BC-01832^2-pieces^5
;;^UTILITY(U,$J,112,8559,1)
;;=20^2^80^500^^^^40^6^^^180^600^^^^^^^.6
;;^UTILITY(U,$J,112,8559,2)
;;=.6^8^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,8559,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8560,0)
;;=CRACKERS,MELBA TOAST,SESAME,KEEBLER^BC-01833^2-pieces^5
;;^UTILITY(U,$J,112,8560,1)
;;=20^2^80^500^^^^40^6^^^180^700^^^^^^^.6
;;^UTILITY(U,$J,112,8560,2)
;;=.6^8^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,8560,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8561,0)
;;=CRACKERS,OAT HARVEST CRISPS,NABISCO^BC-01834^6-cracker^14
;;^UTILITY(U,$J,112,8561,1)
;;=7.143^14.286^71.429^428.571^^^^^^^^^964.286
;;^UTILITY(U,$J,112,8561,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,8561,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8562,0)
;;=CRACKERS,OYSTER & SOUP^BC-01835^10-cracker^8
;;^UTILITY(U,$J,112,8562,1)
;;=8.75^12.5^66.25^412.5^3.75^^^25^1.25^^87.5^112.5^1037.5^^^^^0^0^0
;;^UTILITY(U,$J,112,8562,2)
;;=0^1.25^^^^^^^^2.5
;;^UTILITY(U,$J,112,8562,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8563,0)
;;=CRACKERS,OYSTER & SOUP,KEEBLER^BC-01836^50-sm/26-L^18
;;^UTILITY(U,$J,112,8563,1)
;;=9.444^12.222^71.111^438.889^^^^16.667^4.389^^^127.778^977.778^^^^^^^.389
;;^UTILITY(U,$J,112,8563,2)
;;=.389^5.556^^^^^^^0^2.778^^1.111
;;^UTILITY(U,$J,112,8563,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8564,0)
;;=CRACKERS,PEANUT BUTTER & JELLY,LITTLE DEBBIE^BC-01837^1.1-oz.^32
;;^UTILITY(U,$J,112,8564,1)
;;=7.188^20.313^63.75^465.625^7.188^^^25^1.938^^^^328.125^^^^^0^0^.25
;;^UTILITY(U,$J,112,8564,2)
;;=.125^2.188^^^^^^^0^5.625^11.563^3.438
;;^UTILITY(U,$J,112,8564,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8565,0)
;;=CRACKERS,PEANUT BUTTER,COMBOS^BC-01838^1.7-oz.^48
;;^UTILITY(U,$J,112,8565,1)
;;=15.833^30.833^49.167^537.5^^^^110.417^3.271^^^^731.25^^^^^10.417^0^.188
;;^UTILITY(U,$J,112,8565,2)
;;=.25^6.667
;;^UTILITY(U,$J,112,8565,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8566,0)
;;=CRACKERS,PEANUT BUTTER RITZ BITS,NABISCO^BC-01839^6-pieces^14
FHINI0DI ; ; 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,8552,0)
+2 ;;=GRAIN CAKE,RICE,QUAKER^BC-01825^cake^9
+3 ;;^UTILITY(U,$J,112,8552,1)
+4 ;;=8.889^3.333^78.889^388.889^5.556^^^11.111^1.667^133.333^355.556^277.778^400^2.556^.444^6.111^^88.889^0^0
+5 ;;^UTILITY(U,$J,112,8552,2)
+6 ;;=.111^5.556^.889^.111^22.222^^^^0^1.111^1.111^1.111^^^^^3.333
+7 ;;^UTILITY(U,$J,112,8552,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,8553,0)
+10 ;;=GRAINED CAKE,RYE,QUAKER^BC-01826^cake^9
+11 ;;^UTILITY(U,$J,112,8553,1)
+12 ;;=15.556^3.333^72.222^388.889^3.333^^^66.667^422.222^166.667^511.111^^577.778^^5.111^^^0^0^0
+13 ;;^UTILITY(U,$J,112,8553,2)
+14 ;;=.111^.667^^^^4.444^^^^0^1.111^1.111^^^^^8.889
+15 ;;^UTILITY(U,$J,112,8553,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,8554,0)
+18 ;;=GRAINED CAKE,WHEAT,QUAKER^BC-01827^cake^9
+19 ;;^UTILITY(U,$J,112,8554,1)
+20 ;;=15.556^3.333^74.444^377.778^4.444^^^44.444^^177.778^422.222^477.778^577.778^^^^^0^0^.667
+21 ;;^UTILITY(U,$J,112,8554,2)
+22 ;;=.111^4.444^^^^^^^0^1.111^0^1.111^^^^^8.889
+23 ;;^UTILITY(U,$J,112,8554,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,8555,0)
+26 ;;=CRACKERS,HARVEST CRISPS,5 GRAIN,NABISCO^BC-01828^6-cracker^14
+27 ;;^UTILITY(U,$J,112,8555,1)
+28 ;;=7.143^14.286^71.429^428.571^^^^^^^^^964.286
+29 ;;^UTILITY(U,$J,112,8555,2)
+30 ;;=^^^^^^^^0
+31 ;;^UTILITY(U,$J,112,8555,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,8556,0)
+34 ;;=CRACKERS,MEAL MATES SESARNE WAFERS,NABISCO^BC-01829^3-cracker^14
+35 ;;^UTILITY(U,$J,112,8556,1)
+36 ;;=7.143^21.429^64.286^500^^^^^^^^214.286^1142.857
+37 ;;^UTILITY(U,$J,112,8556,2)
+38 ;;=^^^^^^^^0
+39 ;;^UTILITY(U,$J,112,8556,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,8557,0)
+42 ;;=CRACKERS,MELBA TOAST,GARLIC,KEEBLER^BC-01830^2-pieces^5
+43 ;;^UTILITY(U,$J,112,8557,1)
+44 ;;=20^2^80^500^^^^40^6^^^180^700^^^^^^^.6
+45 ;;^UTILITY(U,$J,112,8557,2)
+46 ;;=.6^8^^^^^^^0^0^^0
+47 ;;^UTILITY(U,$J,112,8557,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,8558,0)
+50 ;;=CRACKERS,MELBA TOAST,KEEBLER (LONG)^BC-01831^2-pieces^9
+51 ;;^UTILITY(U,$J,112,8558,1)
+52 ;;=11.111^1.111^76.667^333.333^^^^88.889^5.556^^^133.333^111.111^^^^^^^.222
+53 ;;^UTILITY(U,$J,112,8558,2)
+54 ;;=.333^2.222^^^^^^^0^0^^0
+55 ;;^UTILITY(U,$J,112,8558,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,8559,0)
+58 ;;=CRACKERS,MELBA TOAST,KEEBLER^BC-01832^2-pieces^5
+59 ;;^UTILITY(U,$J,112,8559,1)
+60 ;;=20^2^80^500^^^^40^6^^^180^600^^^^^^^.6
+61 ;;^UTILITY(U,$J,112,8559,2)
+62 ;;=.6^8^^^^^^^0^0^^0
+63 ;;^UTILITY(U,$J,112,8559,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,8560,0)
+66 ;;=CRACKERS,MELBA TOAST,SESAME,KEEBLER^BC-01833^2-pieces^5
+67 ;;^UTILITY(U,$J,112,8560,1)
+68 ;;=20^2^80^500^^^^40^6^^^180^700^^^^^^^.6
+69 ;;^UTILITY(U,$J,112,8560,2)
+70 ;;=.6^8^^^^^^^0^0^^0
+71 ;;^UTILITY(U,$J,112,8560,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,8561,0)
+74 ;;=CRACKERS,OAT HARVEST CRISPS,NABISCO^BC-01834^6-cracker^14
+75 ;;^UTILITY(U,$J,112,8561,1)
+76 ;;=7.143^14.286^71.429^428.571^^^^^^^^^964.286
+77 ;;^UTILITY(U,$J,112,8561,2)
+78 ;;=^^^^^^^^0
+79 ;;^UTILITY(U,$J,112,8561,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,8562,0)
+82 ;;=CRACKERS,OYSTER & SOUP^BC-01835^10-cracker^8
+83 ;;^UTILITY(U,$J,112,8562,1)
+84 ;;=8.75^12.5^66.25^412.5^3.75^^^25^1.25^^87.5^112.5^1037.5^^^^^0^0^0
+85 ;;^UTILITY(U,$J,112,8562,2)
+86 ;;=0^1.25^^^^^^^^2.5
+87 ;;^UTILITY(U,$J,112,8562,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,8563,0)
+90 ;;=CRACKERS,OYSTER & SOUP,KEEBLER^BC-01836^50-sm/26-L^18
+91 ;;^UTILITY(U,$J,112,8563,1)
+92 ;;=9.444^12.222^71.111^438.889^^^^16.667^4.389^^^127.778^977.778^^^^^^^.389
+93 ;;^UTILITY(U,$J,112,8563,2)
+94 ;;=.389^5.556^^^^^^^0^2.778^^1.111
+95 ;;^UTILITY(U,$J,112,8563,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,8564,0)
+98 ;;=CRACKERS,PEANUT BUTTER & JELLY,LITTLE DEBBIE^BC-01837^1.1-oz.^32
+99 ;;^UTILITY(U,$J,112,8564,1)
+100 ;;=7.188^20.313^63.75^465.625^7.188^^^25^1.938^^^^328.125^^^^^0^0^.25
+101 ;;^UTILITY(U,$J,112,8564,2)
+102 ;;=.125^2.188^^^^^^^0^5.625^11.563^3.438
+103 ;;^UTILITY(U,$J,112,8564,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,8565,0)
+106 ;;=CRACKERS,PEANUT BUTTER,COMBOS^BC-01838^1.7-oz.^48
+107 ;;^UTILITY(U,$J,112,8565,1)
+108 ;;=15.833^30.833^49.167^537.5^^^^110.417^3.271^^^^731.25^^^^^10.417^0^.188
+109 ;;^UTILITY(U,$J,112,8565,2)
+110 ;;=.25^6.667
+111 ;;^UTILITY(U,$J,112,8565,20)
+112 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+113 ;;^UTILITY(U,$J,112,8566,0)
+114 ;;=CRACKERS,PEANUT BUTTER RITZ BITS,NABISCO^BC-01839^6-pieces^14
