FHINI0AQ ; ; 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,7171,2)
;;=.214^1.071^.429^.107^17.857^.179^^^0^3.929^4.643^2.143^^^^^4.286
;;^UTILITY(U,$J,112,7171,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7172,0)
;;=GRANOLA,RAISIN BRAN,KELLOGG NUTRI-GRAIN^BC-00445^1.5-oz.^43
;;^UTILITY(U,$J,112,7172,1)
;;=4.651^11.628^65.116^372.093^^^^58.14^4.186^48.837^148.837^220.93^395.349^3.488^.116^^^1744.186^0^.884
;;^UTILITY(U,$J,112,7172,2)
;;=1^11.628^^1.163^232.558^^^^0^^^^^^^^4.651
;;^UTILITY(U,$J,112,7172,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7173,0)
;;=GRANOLA,RICE KRISPIES W/ALMONDS,KELLOGG NUTRI-GRAIN^BC-00446^bars^28
;;^UTILITY(U,$J,112,7173,1)
;;=7.143^21.429^64.286^464.286^^^^75^6.429^71.429^167.857^232.143^232.143^5.357^.25^^^2678.571^0^1.357
;;^UTILITY(U,$J,112,7173,2)
;;=1.536^17.857^^1.786^357.143^^^^0^^^^^^^^3.571
;;^UTILITY(U,$J,112,7173,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7174,0)
;;=GRANOLA,STRAWBERRY,KELLOGG NUTRI-GRAIN^BC-00447^1.5-oz.^43
;;^UTILITY(U,$J,112,7174,1)
;;=4.651^18.605^60.465^418.605^^^^120.93^4.186^39.535^123.256^151.163^395.349^3.488^.07^^^1744.186^0^.884
;;^UTILITY(U,$J,112,7174,2)
;;=1^11.628^^1.163^232.558^^^^0^^^^^^^^2.326
;;^UTILITY(U,$J,112,7174,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7175,0)
;;=PASTRIES,CREAM PUFF,BAVARIAN,RICH'S^BC-00448^cream puff^38
;;^UTILITY(U,$J,112,7175,1)
;;=4.474^16.053^44.737^342.105^33.421^^^18.421^1.316^13.158^71.053^60.526^113.158^.395^.158^^^50^0^.026
;;^UTILITY(U,$J,112,7175,2)
;;=.184^.789^^^^^^^44.737
;;^UTILITY(U,$J,112,7175,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7176,0)
;;=PASTRIES,CREAM PUFF,CUSTARD,RICH'S^BC-00449^cream puff^71
;;^UTILITY(U,$J,112,7176,1)
;;=5.915^12.113^24.225^229.577^57.042^^^0^.704^16.901^91.549^149.296^239.437^^^^^153.521^0^.056
;;^UTILITY(U,$J,112,7176,2)
;;=.155^.563^^^^^^^81.69^^^^^^^^.141
;;^UTILITY(U,$J,112,7176,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7177,0)
;;=PASTRIES,DANISH (APPLE),PILSBURY'S BEST^BC-00450^danishs^57
;;^UTILITY(U,$J,112,7177,1)
;;=3.684^15.263^43.158^324.561^34.035^^^21.053^1.333^^59.649^64.912^352.632^^^^^8.772^0^.211
;;^UTILITY(U,$J,112,7177,2)
;;=.123^1.579
;;^UTILITY(U,$J,112,7177,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7178,0)
;;=PASTRIES,DANISH (CARAMEL W/NUTS},PILSBURY^BC-00451^danishs^39
;;^UTILITY(U,$J,112,7178,1)
;;=5.128^20.513^49.487^400^23.077^^^23.077^1.513^^271.795^74.359^625.641^^^^^0^0^.231
;;^UTILITY(U,$J,112,7178,2)
;;=.154^2.051
;;^UTILITY(U,$J,112,7178,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7179,0)
;;=PASTRIES,DANISH (CINN. RAISIN W/ICING),PILSBURY^BC-00452^danishs^39
;;^UTILITY(U,$J,112,7179,1)
;;=4.103^17.949^50.513^376.923^25.641^^^20.513^1.231^^246.154^69.231^574.359^^^^^7.692^0^.231
;;^UTILITY(U,$J,112,7179,2)
;;=.154^1.795
;;^UTILITY(U,$J,112,7179,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7180,0)
;;=PASTRIES,DANISH (ORANGE W/ICING),PILSBURY^BC-00453^danishs^39
;;^UTILITY(U,$J,112,7180,1)
;;=4.103^18.205^49.487^374.359^26.667^^^12.821^1.282^^256.41^43.59^617.949^^^^^10.256^2.564^.231
;;^UTILITY(U,$J,112,7180,2)
;;=.154^1.795
;;^UTILITY(U,$J,112,7180,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7181,0)
;;=PASTRIES,ECLAIR (CHOC),RICH'S^BC-00454^eclairs^57
;;^UTILITY(U,$J,112,7181,1)
;;=4.561^16.14^44.737^343.86^33.333^^^19.298^1.298^14.035^71.93^61.404^114.035^.404^.404^^^50.877^0^.035
;;^UTILITY(U,$J,112,7181,2)
;;=.175^.702^^^^^^^43.86
;;^UTILITY(U,$J,112,7181,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7182,0)
;;=PASTRIES,ECLAIR,CUSTARD,RICH'S^BC-00455^eclairs^71
;;^UTILITY(U,$J,112,7182,1)
;;=5.915^12.113^24.225^229.577^57.042^^^0^.704^16.901^91.549^149.296^239.437^^^^^143.662^0^.056
;;^UTILITY(U,$J,112,7182,2)
;;=.155^.563^^^^^^^91.549^^^^^^^^.141
;;^UTILITY(U,$J,112,7182,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7183,0)
;;=PASTRIES,SWEET ROLLS (CINN.),PILSBURY'S BEST QUICK^BC-00456^rolls^57
;;^UTILITY(U,$J,112,7183,1)
;;=4.211^16.316^51.579^370.175^24.211^^^22.807^1.947^^143.86^50.877^466.667^^^^^21.053^0^.281
;;^UTILITY(U,$J,112,7183,2)
;;=.193^1.93
;;^UTILITY(U,$J,112,7183,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7184,0)
;;=PASTRIES,SWEET ROLLS (CINN.),RICH'S^BC-00457^2.5-oz.^71
FHINI0AQ ; ; 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,7171,2)
+2 ;;=.214^1.071^.429^.107^17.857^.179^^^0^3.929^4.643^2.143^^^^^4.286
+3 ;;^UTILITY(U,$J,112,7171,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,7172,0)
+6 ;;=GRANOLA,RAISIN BRAN,KELLOGG NUTRI-GRAIN^BC-00445^1.5-oz.^43
+7 ;;^UTILITY(U,$J,112,7172,1)
+8 ;;=4.651^11.628^65.116^372.093^^^^58.14^4.186^48.837^148.837^220.93^395.349^3.488^.116^^^1744.186^0^.884
+9 ;;^UTILITY(U,$J,112,7172,2)
+10 ;;=1^11.628^^1.163^232.558^^^^0^^^^^^^^4.651
+11 ;;^UTILITY(U,$J,112,7172,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,7173,0)
+14 ;;=GRANOLA,RICE KRISPIES W/ALMONDS,KELLOGG NUTRI-GRAIN^BC-00446^bars^28
+15 ;;^UTILITY(U,$J,112,7173,1)
+16 ;;=7.143^21.429^64.286^464.286^^^^75^6.429^71.429^167.857^232.143^232.143^5.357^.25^^^2678.571^0^1.357
+17 ;;^UTILITY(U,$J,112,7173,2)
+18 ;;=1.536^17.857^^1.786^357.143^^^^0^^^^^^^^3.571
+19 ;;^UTILITY(U,$J,112,7173,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,7174,0)
+22 ;;=GRANOLA,STRAWBERRY,KELLOGG NUTRI-GRAIN^BC-00447^1.5-oz.^43
+23 ;;^UTILITY(U,$J,112,7174,1)
+24 ;;=4.651^18.605^60.465^418.605^^^^120.93^4.186^39.535^123.256^151.163^395.349^3.488^.07^^^1744.186^0^.884
+25 ;;^UTILITY(U,$J,112,7174,2)
+26 ;;=1^11.628^^1.163^232.558^^^^0^^^^^^^^2.326
+27 ;;^UTILITY(U,$J,112,7174,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,7175,0)
+30 ;;=PASTRIES,CREAM PUFF,BAVARIAN,RICH'S^BC-00448^cream puff^38
+31 ;;^UTILITY(U,$J,112,7175,1)
+32 ;;=4.474^16.053^44.737^342.105^33.421^^^18.421^1.316^13.158^71.053^60.526^113.158^.395^.158^^^50^0^.026
+33 ;;^UTILITY(U,$J,112,7175,2)
+34 ;;=.184^.789^^^^^^^44.737
+35 ;;^UTILITY(U,$J,112,7175,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,7176,0)
+38 ;;=PASTRIES,CREAM PUFF,CUSTARD,RICH'S^BC-00449^cream puff^71
+39 ;;^UTILITY(U,$J,112,7176,1)
+40 ;;=5.915^12.113^24.225^229.577^57.042^^^0^.704^16.901^91.549^149.296^239.437^^^^^153.521^0^.056
+41 ;;^UTILITY(U,$J,112,7176,2)
+42 ;;=.155^.563^^^^^^^81.69^^^^^^^^.141
+43 ;;^UTILITY(U,$J,112,7176,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,7177,0)
+46 ;;=PASTRIES,DANISH (APPLE),PILSBURY'S BEST^BC-00450^danishs^57
+47 ;;^UTILITY(U,$J,112,7177,1)
+48 ;;=3.684^15.263^43.158^324.561^34.035^^^21.053^1.333^^59.649^64.912^352.632^^^^^8.772^0^.211
+49 ;;^UTILITY(U,$J,112,7177,2)
+50 ;;=.123^1.579
+51 ;;^UTILITY(U,$J,112,7177,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,7178,0)
+54 ;;=PASTRIES,DANISH (CARAMEL W/NUTS},PILSBURY^BC-00451^danishs^39
+55 ;;^UTILITY(U,$J,112,7178,1)
+56 ;;=5.128^20.513^49.487^400^23.077^^^23.077^1.513^^271.795^74.359^625.641^^^^^0^0^.231
+57 ;;^UTILITY(U,$J,112,7178,2)
+58 ;;=.154^2.051
+59 ;;^UTILITY(U,$J,112,7178,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,7179,0)
+62 ;;=PASTRIES,DANISH (CINN. RAISIN W/ICING),PILSBURY^BC-00452^danishs^39
+63 ;;^UTILITY(U,$J,112,7179,1)
+64 ;;=4.103^17.949^50.513^376.923^25.641^^^20.513^1.231^^246.154^69.231^574.359^^^^^7.692^0^.231
+65 ;;^UTILITY(U,$J,112,7179,2)
+66 ;;=.154^1.795
+67 ;;^UTILITY(U,$J,112,7179,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,7180,0)
+70 ;;=PASTRIES,DANISH (ORANGE W/ICING),PILSBURY^BC-00453^danishs^39
+71 ;;^UTILITY(U,$J,112,7180,1)
+72 ;;=4.103^18.205^49.487^374.359^26.667^^^12.821^1.282^^256.41^43.59^617.949^^^^^10.256^2.564^.231
+73 ;;^UTILITY(U,$J,112,7180,2)
+74 ;;=.154^1.795
+75 ;;^UTILITY(U,$J,112,7180,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,7181,0)
+78 ;;=PASTRIES,ECLAIR (CHOC),RICH'S^BC-00454^eclairs^57
+79 ;;^UTILITY(U,$J,112,7181,1)
+80 ;;=4.561^16.14^44.737^343.86^33.333^^^19.298^1.298^14.035^71.93^61.404^114.035^.404^.404^^^50.877^0^.035
+81 ;;^UTILITY(U,$J,112,7181,2)
+82 ;;=.175^.702^^^^^^^43.86
+83 ;;^UTILITY(U,$J,112,7181,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,7182,0)
+86 ;;=PASTRIES,ECLAIR,CUSTARD,RICH'S^BC-00455^eclairs^71
+87 ;;^UTILITY(U,$J,112,7182,1)
+88 ;;=5.915^12.113^24.225^229.577^57.042^^^0^.704^16.901^91.549^149.296^239.437^^^^^143.662^0^.056
+89 ;;^UTILITY(U,$J,112,7182,2)
+90 ;;=.155^.563^^^^^^^91.549^^^^^^^^.141
+91 ;;^UTILITY(U,$J,112,7182,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,7183,0)
+94 ;;=PASTRIES,SWEET ROLLS (CINN.),PILSBURY'S BEST QUICK^BC-00456^rolls^57
+95 ;;^UTILITY(U,$J,112,7183,1)
+96 ;;=4.211^16.316^51.579^370.175^24.211^^^22.807^1.947^^143.86^50.877^466.667^^^^^21.053^0^.281
+97 ;;^UTILITY(U,$J,112,7183,2)
+98 ;;=.193^1.93
+99 ;;^UTILITY(U,$J,112,7183,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,7184,0)
+102 ;;=PASTRIES,SWEET ROLLS (CINN.),RICH'S^BC-00457^2.5-oz.^71
