FHINI0DF ; ; 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,8509,2)
;;=.318^3.636
;;^UTILITY(U,$J,112,8509,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8510,0)
;;=GRAINED PRODUCTS,RYE,JEWISH W/SEEDS,ARNOLD^BC-01783^slice^30
;;^UTILITY(U,$J,112,8510,1)
;;=8.667^2.667^48.667^230^38.333^^^60^3.633^^^^566.667^^^^^^^.433
;;^UTILITY(U,$J,112,8510,2)
;;=.3^3^^^^^^^0^^^^^^^^4.333
;;^UTILITY(U,$J,112,8510,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8511,0)
;;=GRAINED PRODUCTS,RYE,PARTY SLICES,PEPPERIDGE FARMS^BC-01784^.8-oz.^24
;;^UTILITY(U,$J,112,8511,1)
;;=9.583^2.917^50.833^270.833^^^^100^4.583^^^233.333^1033.333^^^^^0^0^.5
;;^UTILITY(U,$J,112,8511,2)
;;=.333^4.167
;;^UTILITY(U,$J,112,8511,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8512,0)
;;=GRAINED PRODUCTS,RYE,SEEDLESS,PEPPERIDGE FARMS^BC-01785^1.1-oz.^32
;;^UTILITY(U,$J,112,8512,1)
;;=9.688^3.125^48.438^262.5^^^^75^3.438^^^143.75^653.125^^^^^0^0^.438
;;^UTILITY(U,$J,112,8512,2)
;;=.281^3.75
;;^UTILITY(U,$J,112,8512,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8513,0)
;;=GRAINED PRODUCTS,SEVEN GRAIN,ROMAN MEAL^BC-01786^slice^28
;;^UTILITY(U,$J,112,8513,1)
;;=10.357^3.214^47.143^242.857^38.571^^^75^3.929^^^^500^^^^^^^.714
;;^UTILITY(U,$J,112,8513,2)
;;=.357^3.571^^^^^^^0^^^^^^^^3.929
;;^UTILITY(U,$J,112,8513,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8514,0)
;;=GRAINED PRODUCTS,VIENNA^BC-01787^.9-oz.^25
;;^UTILITY(U,$J,112,8514,1)
;;=9.6^4^50.4^280^34^^^112^3.08^20^80^88^552^.64^.144^^^0^0^.48
;;^UTILITY(U,$J,112,8514,2)
;;=.36^4^.36^.04^36^0^^^0
;;^UTILITY(U,$J,112,8514,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8515,0)
;;=GRAIN PRODUCTS,WHEAT^BC-01788^slice^24
;;^UTILITY(U,$J,112,8515,1)
;;=9.583^4.167^47.083^254.167^37.083^^^125^3.5^45.833^183.333^137.5^537.5^1.042^.242^^^0^0^.458
;;^UTILITY(U,$J,112,8515,2)
;;=.333^4.583^.417^.125^45.833^4.583^^^0
;;^UTILITY(U,$J,112,8515,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8516,0)
;;=GRAINED PRODUCTS,WHEAT,NATURAL,BROWNBERRY^BC-01789^slice^36
;;^UTILITY(U,$J,112,8516,1)
;;=8.333^3.611^46.944^222.222^38.611^^^19.444^2.139^^^^508.333^^^^^^^.25
;;^UTILITY(U,$J,112,8516,2)
;;=.167^3.056^^^^^^^0^^^^^^^^6.389
;;^UTILITY(U,$J,112,8516,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8517,0)
;;=GRAINED PRODUCTS,WHEAT,PEPPERIDGE FARMS^BC-01790^1.2-oz.^34
;;^UTILITY(U,$J,112,8517,1)
;;=8.824^4.412^52.647^285.294^^^^29.412^2.941^^^161.765^555.882^^^^^0^0^.353
;;^UTILITY(U,$J,112,8517,2)
;;=.206^3.529
;;^UTILITY(U,$J,112,8517,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8518,0)
;;=GRAINED PRODUCTS,WHEAT GERM,PEPPERIDGE FARMS^BC-01791^.9-oz.^25
;;^UTILITY(U,$J,112,8518,1)
;;=10.4^3.2^48^264^^^^88^3.6^^^188^548^^^^^0^0^.36
;;^UTILITY(U,$J,112,8518,2)
;;=.36^4
;;^UTILITY(U,$J,112,8518,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8519,0)
;;=GRAINED PRODUCTS,WHITE LOAF,FROM DOUGH,PILLSBURY^BC-01792^slice^28
;;^UTILITY(U,$J,112,8519,1)
;;=9.286^5.357^42.857^264.286^39.286^^^17.857^2.821^^75^60.714^596.429^^^^^0^0^2.071
;;^UTILITY(U,$J,112,8519,2)
;;=.25^3.214
;;^UTILITY(U,$J,112,8519,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8520,0)
;;=GRAINED PRODUCTS,WHITE,PEPPERIDGE FARMS^BC-01793^2.4-oz.^68
;;^UTILITY(U,$J,112,8520,1)
;;=8.529^5^53.824^294.118^^^^32.353^3.971^^^73.529^526.471^^^^^0^0^.397
;;^UTILITY(U,$J,112,8520,2)
;;=.235^3.088
;;^UTILITY(U,$J,112,8520,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8521,0)
;;=GRAINED PRODUCTS,WHITE,RICH'S,FROM DOUGH,BAKED^BC-01794^2-slices^46
;;^UTILITY(U,$J,112,8521,1)
;;=8.478^2.391^49.348^252.174^35.87^^^239.13^4.565^23.913^119.565^110.87^652.174^.652^.152^^^^^.391
;;^UTILITY(U,$J,112,8521,2)
;;=.304^3.696^^^^^^^0
;;^UTILITY(U,$J,112,8521,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8522,0)
;;=GRAINED PRODUCTS,WHITE,SPECIAL FORMULA,ROMAN MEAL^BC-01795^slice^28
;;^UTILITY(U,$J,112,8522,1)
;;=10.714^3.214^47.143^253.571^38.571^^^107.143^4.286^^^^500^^^^^^^.357
;;^UTILITY(U,$J,112,8522,2)
;;=.357^3.929^^^^^^^0^^^^^^^^2.143
;;^UTILITY(U,$J,112,8522,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8523,0)
;;=GRAINED PRODUCTS,WHOLE WHEAT^BC-01796^slice^25
;;^UTILITY(U,$J,112,8523,1)
;;=9.6^4.4^45.6^244^38.4^^^72^3.44^92^260^176^636^1.68^.344^2.376^^0^0^.36
FHINI0DF ; ; 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,8509,2)
+2 ;;=.318^3.636
+3 ;;^UTILITY(U,$J,112,8509,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,8510,0)
+6 ;;=GRAINED PRODUCTS,RYE,JEWISH W/SEEDS,ARNOLD^BC-01783^slice^30
+7 ;;^UTILITY(U,$J,112,8510,1)
+8 ;;=8.667^2.667^48.667^230^38.333^^^60^3.633^^^^566.667^^^^^^^.433
+9 ;;^UTILITY(U,$J,112,8510,2)
+10 ;;=.3^3^^^^^^^0^^^^^^^^4.333
+11 ;;^UTILITY(U,$J,112,8510,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,8511,0)
+14 ;;=GRAINED PRODUCTS,RYE,PARTY SLICES,PEPPERIDGE FARMS^BC-01784^.8-oz.^24
+15 ;;^UTILITY(U,$J,112,8511,1)
+16 ;;=9.583^2.917^50.833^270.833^^^^100^4.583^^^233.333^1033.333^^^^^0^0^.5
+17 ;;^UTILITY(U,$J,112,8511,2)
+18 ;;=.333^4.167
+19 ;;^UTILITY(U,$J,112,8511,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,8512,0)
+22 ;;=GRAINED PRODUCTS,RYE,SEEDLESS,PEPPERIDGE FARMS^BC-01785^1.1-oz.^32
+23 ;;^UTILITY(U,$J,112,8512,1)
+24 ;;=9.688^3.125^48.438^262.5^^^^75^3.438^^^143.75^653.125^^^^^0^0^.438
+25 ;;^UTILITY(U,$J,112,8512,2)
+26 ;;=.281^3.75
+27 ;;^UTILITY(U,$J,112,8512,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,8513,0)
+30 ;;=GRAINED PRODUCTS,SEVEN GRAIN,ROMAN MEAL^BC-01786^slice^28
+31 ;;^UTILITY(U,$J,112,8513,1)
+32 ;;=10.357^3.214^47.143^242.857^38.571^^^75^3.929^^^^500^^^^^^^.714
+33 ;;^UTILITY(U,$J,112,8513,2)
+34 ;;=.357^3.571^^^^^^^0^^^^^^^^3.929
+35 ;;^UTILITY(U,$J,112,8513,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,8514,0)
+38 ;;=GRAINED PRODUCTS,VIENNA^BC-01787^.9-oz.^25
+39 ;;^UTILITY(U,$J,112,8514,1)
+40 ;;=9.6^4^50.4^280^34^^^112^3.08^20^80^88^552^.64^.144^^^0^0^.48
+41 ;;^UTILITY(U,$J,112,8514,2)
+42 ;;=.36^4^.36^.04^36^0^^^0
+43 ;;^UTILITY(U,$J,112,8514,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,8515,0)
+46 ;;=GRAIN PRODUCTS,WHEAT^BC-01788^slice^24
+47 ;;^UTILITY(U,$J,112,8515,1)
+48 ;;=9.583^4.167^47.083^254.167^37.083^^^125^3.5^45.833^183.333^137.5^537.5^1.042^.242^^^0^0^.458
+49 ;;^UTILITY(U,$J,112,8515,2)
+50 ;;=.333^4.583^.417^.125^45.833^4.583^^^0
+51 ;;^UTILITY(U,$J,112,8515,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,8516,0)
+54 ;;=GRAINED PRODUCTS,WHEAT,NATURAL,BROWNBERRY^BC-01789^slice^36
+55 ;;^UTILITY(U,$J,112,8516,1)
+56 ;;=8.333^3.611^46.944^222.222^38.611^^^19.444^2.139^^^^508.333^^^^^^^.25
+57 ;;^UTILITY(U,$J,112,8516,2)
+58 ;;=.167^3.056^^^^^^^0^^^^^^^^6.389
+59 ;;^UTILITY(U,$J,112,8516,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,8517,0)
+62 ;;=GRAINED PRODUCTS,WHEAT,PEPPERIDGE FARMS^BC-01790^1.2-oz.^34
+63 ;;^UTILITY(U,$J,112,8517,1)
+64 ;;=8.824^4.412^52.647^285.294^^^^29.412^2.941^^^161.765^555.882^^^^^0^0^.353
+65 ;;^UTILITY(U,$J,112,8517,2)
+66 ;;=.206^3.529
+67 ;;^UTILITY(U,$J,112,8517,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,8518,0)
+70 ;;=GRAINED PRODUCTS,WHEAT GERM,PEPPERIDGE FARMS^BC-01791^.9-oz.^25
+71 ;;^UTILITY(U,$J,112,8518,1)
+72 ;;=10.4^3.2^48^264^^^^88^3.6^^^188^548^^^^^0^0^.36
+73 ;;^UTILITY(U,$J,112,8518,2)
+74 ;;=.36^4
+75 ;;^UTILITY(U,$J,112,8518,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,8519,0)
+78 ;;=GRAINED PRODUCTS,WHITE LOAF,FROM DOUGH,PILLSBURY^BC-01792^slice^28
+79 ;;^UTILITY(U,$J,112,8519,1)
+80 ;;=9.286^5.357^42.857^264.286^39.286^^^17.857^2.821^^75^60.714^596.429^^^^^0^0^2.071
+81 ;;^UTILITY(U,$J,112,8519,2)
+82 ;;=.25^3.214
+83 ;;^UTILITY(U,$J,112,8519,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,8520,0)
+86 ;;=GRAINED PRODUCTS,WHITE,PEPPERIDGE FARMS^BC-01793^2.4-oz.^68
+87 ;;^UTILITY(U,$J,112,8520,1)
+88 ;;=8.529^5^53.824^294.118^^^^32.353^3.971^^^73.529^526.471^^^^^0^0^.397
+89 ;;^UTILITY(U,$J,112,8520,2)
+90 ;;=.235^3.088
+91 ;;^UTILITY(U,$J,112,8520,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,8521,0)
+94 ;;=GRAINED PRODUCTS,WHITE,RICH'S,FROM DOUGH,BAKED^BC-01794^2-slices^46
+95 ;;^UTILITY(U,$J,112,8521,1)
+96 ;;=8.478^2.391^49.348^252.174^35.87^^^239.13^4.565^23.913^119.565^110.87^652.174^.652^.152^^^^^.391
+97 ;;^UTILITY(U,$J,112,8521,2)
+98 ;;=.304^3.696^^^^^^^0
+99 ;;^UTILITY(U,$J,112,8521,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,8522,0)
+102 ;;=GRAINED PRODUCTS,WHITE,SPECIAL FORMULA,ROMAN MEAL^BC-01795^slice^28
+103 ;;^UTILITY(U,$J,112,8522,1)
+104 ;;=10.714^3.214^47.143^253.571^38.571^^^107.143^4.286^^^^500^^^^^^^.357
+105 ;;^UTILITY(U,$J,112,8522,2)
+106 ;;=.357^3.929^^^^^^^0^^^^^^^^2.143
+107 ;;^UTILITY(U,$J,112,8522,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,8523,0)
+110 ;;=GRAINED PRODUCTS,WHOLE WHEAT^BC-01796^slice^25
+111 ;;^UTILITY(U,$J,112,8523,1)
+112 ;;=9.6^4.4^45.6^244^38.4^^^72^3.44^92^260^176^636^1.68^.344^2.376^^0^0^.36
