FHINI0A1 ; ; 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,6838,2)
;;=.037^.184^^^^^^^0^^^^^^^^3.313
;;^UTILITY(U,$J,112,6838,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6839,0)
;;=CEREALS,MALT-O-MEAL (WHEAT CEREAL W/MALT),CKD^BC-00112^cups^240
;;^UTILITY(U,$J,112,6839,1)
;;=1.5^.167^8.792^41.667^^^^1.667^3.375^3.333^15^14.167^.417^.088^.004^^^^^.154
;;^UTILITY(U,$J,112,6839,2)
;;=.104^2.083^.058^.008^2.5^^^^0^.042^.042^.083^^^^^.333
;;^UTILITY(U,$J,112,6839,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6840,0)
;;=CEREALS,CHOC FLAVORED MALT-O-MEAL (WHEAT CEREAL W/MALT),CKD^BC-00113^cups^240
;;^UTILITY(U,$J,112,6840,1)
;;=1.167^.125^9.125^41.25^^^^1.667^3.375^4.167^14.583^27.083^0^.088^.029^^^^^.158
;;^UTILITY(U,$J,112,6840,2)
;;=.108^2.083^^^^^^^0^.042^.042^.042^^^^^.333
;;^UTILITY(U,$J,112,6840,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6841,0)
;;=CEREALS,MALT-O-MEAL,CKD,W/40% OAT BRAN^BC-00114^cups^240
;;^UTILITY(U,$J,112,6841,1)
;;=2.375^.708^10.417^53.333^^^^^3.375^^49.583^45.833^.417^^^^^^^.158
;;^UTILITY(U,$J,112,6841,2)
;;=.108^2.083^^^^^^^^^^^^^^^1.208
;;^UTILITY(U,$J,112,6841,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6842,0)
;;=CEREALS,OAT BRAN CEREAL,QUAKER/MOTHER'S^BC-00115^1/3-cup^38
;;^UTILITY(U,$J,112,6842,1)
;;=15^5.526^0^242.105^^^^57.895^4.842^181.579^557.895^444.737^2.632^3.132^.211^4.105^^68.421^0^.711
;;^UTILITY(U,$J,112,6842,2)
;;=.211^.789^.658^.105^36.842^^^^0^.526^1.316^1.316^^^^^11.053
;;^UTILITY(U,$J,112,6842,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6843,0)
;;=CEREALS,OATMEAL,INST,QUAKER^BC-00116^oz. pkts.^28
;;^UTILITY(U,$J,112,6843,1)
;;=13.571^7.143^64.286^335.714^^^^607.143^29.821^139.286^500^367.857^964.286^3.143^.5^4.286^^4417.857^0^1.571
;;^UTILITY(U,$J,112,6843,2)
;;=.75^12.857^^1.679^435.714^0^^^0^1.071^2.143^2.143^^^^^10
;;^UTILITY(U,$J,112,6843,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6844,0)
;;=CEREALS,OATMEAL,INST,FLAVORED,APPLES&CINN,QUAKER^BC-00117^1.25-oz.^35
;;^UTILITY(U,$J,112,6844,1)
;;=9.429^4.286^74.286^337.143^^^^480^16.829^111.429^291.429^308.571^365.714^1.886^.371^.029^^3522.857^0^1.057
;;^UTILITY(U,$J,112,6844,2)
;;=.6^10.571^.6^1.229^322.857^0^^^0^.857^1.714^2^^^^^8.571
;;^UTILITY(U,$J,112,6844,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6845,0)
;;=CEREALS,OATMEAL,QUICK/OLD FASHIONED,QUAKER^BC-00118^1/3-cup^28
;;^UTILITY(U,$J,112,6845,1)
;;=15.714^7.143^66.429^353.571^^^^53.571^3.857^135.714^464.286^389.286^3.571^3.107^.321^4.357^^92.857^0^.5
;;^UTILITY(U,$J,112,6845,2)
;;=.107^.714^.643^.107^25^0^^^0^1.071^2.143^2.143^^^^^9.643
;;^UTILITY(U,$J,112,6845,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6846,0)
;;=CEREALS,ROMAN MEAL,CKD,ORIGINAL WHEAT,RYE,BRAN&FLAX^BC-00119^2/3-cup^161
;;^UTILITY(U,$J,112,6846,1)
;;=2.484^.311^12.609^50.311^^^^5.59^.994^^90.062^^.621^^^^^^^.099
;;^UTILITY(U,$J,112,6846,2)
;;=.043^1.242^^^^^^^0^^^^^^^^3.168
;;^UTILITY(U,$J,112,6846,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6847,0)
;;=CEREALS,R-T-E,ALMOND DELIGHT,RALSTON PURINA^BC-00120^oz.^28
;;^UTILITY(U,$J,112,6847,1)
;;=7.5^5.714^82.143^392.857^^^^85.714^6.429^^^^710.714^5.357^^^^^53.571^1.357
;;^UTILITY(U,$J,112,6847,2)
;;=^17.857^^1.786^357.143^5.357^^^^^^^^^^^5.357
;;^UTILITY(U,$J,112,6847,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6848,0)
;;=CEREALS,R-T-E,ALPHA-BITS,POST^BC-00121^oz.^28
;;^UTILITY(U,$J,112,6848,1)
;;=8.214^2.5^86.071^396.429^1.071^^^32.143^9.536^75^178.571^210.714^628.571^5.286^.357^^^892.857^0^1.357
;;^UTILITY(U,$J,112,6848,2)
;;=1.536^17.857^.536^1.786^357.143^5.286^^^0^.714^^.714^^^^^3.929
;;^UTILITY(U,$J,112,6848,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6849,0)
;;=CEREALS,R-T-E,APPLE CINNAMON CHERRIOS,GENERAL MILLS^BC-00122^oz.^28
;;^UTILITY(U,$J,112,6849,1)
;;=7.143^7.143^78.571^392.857^^^^^^^^250^642.857
;;^UTILITY(U,$J,112,6849,2)
;;=^^^^^^^^0^^^^^^^^5.357
;;^UTILITY(U,$J,112,6849,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6850,0)
;;=CEREALS,R-T-E,APPLE JACKS,KELLOGG'S^BC-00123^oz.^28
;;^UTILITY(U,$J,112,6850,1)
;;=5.357^.357^91.786^392.857^2.5^^^10.714^16.071^28.571^100^107.143^446.429^13.393^.25^^^2678.571^53.571^1.357
;;^UTILITY(U,$J,112,6850,2)
;;=1.536^17.857^.357^1.786^357.143^^^^0
FHINI0A1 ; ; 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,6838,2)
+2 ;;=.037^.184^^^^^^^0^^^^^^^^3.313
+3 ;;^UTILITY(U,$J,112,6838,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,6839,0)
+6 ;;=CEREALS,MALT-O-MEAL (WHEAT CEREAL W/MALT),CKD^BC-00112^cups^240
+7 ;;^UTILITY(U,$J,112,6839,1)
+8 ;;=1.5^.167^8.792^41.667^^^^1.667^3.375^3.333^15^14.167^.417^.088^.004^^^^^.154
+9 ;;^UTILITY(U,$J,112,6839,2)
+10 ;;=.104^2.083^.058^.008^2.5^^^^0^.042^.042^.083^^^^^.333
+11 ;;^UTILITY(U,$J,112,6839,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,6840,0)
+14 ;;=CEREALS,CHOC FLAVORED MALT-O-MEAL (WHEAT CEREAL W/MALT),CKD^BC-00113^cups^240
+15 ;;^UTILITY(U,$J,112,6840,1)
+16 ;;=1.167^.125^9.125^41.25^^^^1.667^3.375^4.167^14.583^27.083^0^.088^.029^^^^^.158
+17 ;;^UTILITY(U,$J,112,6840,2)
+18 ;;=.108^2.083^^^^^^^0^.042^.042^.042^^^^^.333
+19 ;;^UTILITY(U,$J,112,6840,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,6841,0)
+22 ;;=CEREALS,MALT-O-MEAL,CKD,W/40% OAT BRAN^BC-00114^cups^240
+23 ;;^UTILITY(U,$J,112,6841,1)
+24 ;;=2.375^.708^10.417^53.333^^^^^3.375^^49.583^45.833^.417^^^^^^^.158
+25 ;;^UTILITY(U,$J,112,6841,2)
+26 ;;=.108^2.083^^^^^^^^^^^^^^^1.208
+27 ;;^UTILITY(U,$J,112,6841,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,6842,0)
+30 ;;=CEREALS,OAT BRAN CEREAL,QUAKER/MOTHER'S^BC-00115^1/3-cup^38
+31 ;;^UTILITY(U,$J,112,6842,1)
+32 ;;=15^5.526^0^242.105^^^^57.895^4.842^181.579^557.895^444.737^2.632^3.132^.211^4.105^^68.421^0^.711
+33 ;;^UTILITY(U,$J,112,6842,2)
+34 ;;=.211^.789^.658^.105^36.842^^^^0^.526^1.316^1.316^^^^^11.053
+35 ;;^UTILITY(U,$J,112,6842,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,6843,0)
+38 ;;=CEREALS,OATMEAL,INST,QUAKER^BC-00116^oz. pkts.^28
+39 ;;^UTILITY(U,$J,112,6843,1)
+40 ;;=13.571^7.143^64.286^335.714^^^^607.143^29.821^139.286^500^367.857^964.286^3.143^.5^4.286^^4417.857^0^1.571
+41 ;;^UTILITY(U,$J,112,6843,2)
+42 ;;=.75^12.857^^1.679^435.714^0^^^0^1.071^2.143^2.143^^^^^10
+43 ;;^UTILITY(U,$J,112,6843,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,6844,0)
+46 ;;=CEREALS,OATMEAL,INST,FLAVORED,APPLES&CINN,QUAKER^BC-00117^1.25-oz.^35
+47 ;;^UTILITY(U,$J,112,6844,1)
+48 ;;=9.429^4.286^74.286^337.143^^^^480^16.829^111.429^291.429^308.571^365.714^1.886^.371^.029^^3522.857^0^1.057
+49 ;;^UTILITY(U,$J,112,6844,2)
+50 ;;=.6^10.571^.6^1.229^322.857^0^^^0^.857^1.714^2^^^^^8.571
+51 ;;^UTILITY(U,$J,112,6844,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,6845,0)
+54 ;;=CEREALS,OATMEAL,QUICK/OLD FASHIONED,QUAKER^BC-00118^1/3-cup^28
+55 ;;^UTILITY(U,$J,112,6845,1)
+56 ;;=15.714^7.143^66.429^353.571^^^^53.571^3.857^135.714^464.286^389.286^3.571^3.107^.321^4.357^^92.857^0^.5
+57 ;;^UTILITY(U,$J,112,6845,2)
+58 ;;=.107^.714^.643^.107^25^0^^^0^1.071^2.143^2.143^^^^^9.643
+59 ;;^UTILITY(U,$J,112,6845,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,6846,0)
+62 ;;=CEREALS,ROMAN MEAL,CKD,ORIGINAL WHEAT,RYE,BRAN&FLAX^BC-00119^2/3-cup^161
+63 ;;^UTILITY(U,$J,112,6846,1)
+64 ;;=2.484^.311^12.609^50.311^^^^5.59^.994^^90.062^^.621^^^^^^^.099
+65 ;;^UTILITY(U,$J,112,6846,2)
+66 ;;=.043^1.242^^^^^^^0^^^^^^^^3.168
+67 ;;^UTILITY(U,$J,112,6846,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,6847,0)
+70 ;;=CEREALS,R-T-E,ALMOND DELIGHT,RALSTON PURINA^BC-00120^oz.^28
+71 ;;^UTILITY(U,$J,112,6847,1)
+72 ;;=7.5^5.714^82.143^392.857^^^^85.714^6.429^^^^710.714^5.357^^^^^53.571^1.357
+73 ;;^UTILITY(U,$J,112,6847,2)
+74 ;;=^17.857^^1.786^357.143^5.357^^^^^^^^^^^5.357
+75 ;;^UTILITY(U,$J,112,6847,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,6848,0)
+78 ;;=CEREALS,R-T-E,ALPHA-BITS,POST^BC-00121^oz.^28
+79 ;;^UTILITY(U,$J,112,6848,1)
+80 ;;=8.214^2.5^86.071^396.429^1.071^^^32.143^9.536^75^178.571^210.714^628.571^5.286^.357^^^892.857^0^1.357
+81 ;;^UTILITY(U,$J,112,6848,2)
+82 ;;=1.536^17.857^.536^1.786^357.143^5.286^^^0^.714^^.714^^^^^3.929
+83 ;;^UTILITY(U,$J,112,6848,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,6849,0)
+86 ;;=CEREALS,R-T-E,APPLE CINNAMON CHERRIOS,GENERAL MILLS^BC-00122^oz.^28
+87 ;;^UTILITY(U,$J,112,6849,1)
+88 ;;=7.143^7.143^78.571^392.857^^^^^^^^250^642.857
+89 ;;^UTILITY(U,$J,112,6849,2)
+90 ;;=^^^^^^^^0^^^^^^^^5.357
+91 ;;^UTILITY(U,$J,112,6849,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,6850,0)
+94 ;;=CEREALS,R-T-E,APPLE JACKS,KELLOGG'S^BC-00123^oz.^28
+95 ;;^UTILITY(U,$J,112,6850,1)
+96 ;;=5.357^.357^91.786^392.857^2.5^^^10.714^16.071^28.571^100^107.143^446.429^13.393^.25^^^2678.571^53.571^1.357
+97 ;;^UTILITY(U,$J,112,6850,2)
+98 ;;=1.536^17.857^.357^1.786^357.143^^^^0
