Routine: FHINI0E7

FHINI0E7	; ; 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,8886,2)

	;;=.008^.078^^.023

	;;^UTILITY(U,$J,112,8886,20)

	;;=Bowes & Church's Food Values, Sixteenth Edition.

	;;^UTILITY(U,$J,112,8887,0)

	;;=BF,FRUIT,APPLES & PEACHES,INST,HEINZ^BC-02160^3-tbsp.^14

	;;^UTILITY(U,$J,112,8887,1)

	;;=0^0^92.857^357.143^^^^57.143^2.143^^71.429^914.286^50^.429^.214^^^1514.286^121.429^.143

	;;^UTILITY(U,$J,112,8887,2)

	;;=.143^1.429^^.286

	;;^UTILITY(U,$J,112,8887,20)

	;;=Bowes & Church's Food Values, Sixteenth Edition.

	;;^UTILITY(U,$J,112,8888,0)

	;;=BF,FRUIT,APPLES & PEARS,INST,HEINZ^BC-02161^3-tbsp.^14

	;;^UTILITY(U,$J,112,8888,1)

	;;=0^7.143^92.857^357.143^^^^64.286^1.429^^57.143^764.286^14.286^.357^.357^^^200^121.429^.071

	;;^UTILITY(U,$J,112,8888,2)

	;;=.071^.714^^.143

	;;^UTILITY(U,$J,112,8888,20)

	;;=Bowes & Church's Food Values, Sixteenth Edition.

	;;^UTILITY(U,$J,112,8889,0)

	;;=BF,FRUIT,APPLES & PEARS,JR,HEINZ^BC-02162^jar^213

	;;^UTILITY(U,$J,112,8889,1)

	;;=.188^.188^13.521^56.808^^^^7.981^.202^^8.92^104.225^1.878^.061^.06^^^40.845^7.042^.019

	;;^UTILITY(U,$J,112,8889,2)

	;;=.019^.141^^.028

	;;^UTILITY(U,$J,112,8889,20)

	;;=Bowes & Church's Food Values, Sixteenth Edition.

	;;^UTILITY(U,$J,112,8890,0)

	;;=BF,FRUIT,APPLES & PEARS,STR,HEINZ^BC-02163^jar^128

	;;^UTILITY(U,$J,112,8890,1)

	;;=.234^.234^13.516^57.031^^^^7.813^.203^^9.375^103.906^2.344^.063^.06^^^40.625^12.5^.023

	;;^UTILITY(U,$J,112,8890,2)

	;;=.023^.156^^.031

	;;^UTILITY(U,$J,112,8890,20)

	;;=Bowes & Church's Food Values, Sixteenth Edition.

	;;^UTILITY(U,$J,112,8891,0)

	;;=BF,FRUIT,APPLESCE,BEECH-NUT STAGE 3^BC-02164^6-oz.^170

	;;^UTILITY(U,$J,112,8891,1)

	;;=0^0^12.412^51.176^^^^^^^^^^^^^^^9.412^.018

	;;^UTILITY(U,$J,112,8891,2)

	;;=.029

	;;^UTILITY(U,$J,112,8891,20)

	;;=Bowes & Church's Food Values, Sixteenth Edition.

	;;^UTILITY(U,$J,112,8892,0)

	;;=BF,FRUIT,APPLESCE,GERBER THIRD FOOD^BC-02165^6-oz.^170

	;;^UTILITY(U,$J,112,8892,1)

	;;=.235^.176^11.471^48.235^^^^3.529^.118^4.118^7.059^82.941^.588^.024^.024^.041^^^9.412^.012

	;;^UTILITY(U,$J,112,8892,2)

	;;=.035^.059^^.029^^^^^^^^^2.353

	;;^UTILITY(U,$J,112,8892,20)

	;;=Bowes & Church's Food Values, Sixteenth Edition.

	;;^UTILITY(U,$J,112,8893,0)

	;;=BF,FRUIT,APPLESCE,BEECH-NUT STAGE 1^BC-02166^2.8-oz.^79

	;;^UTILITY(U,$J,112,8893,1)

	;;=0^0^16.456^68.354^^^^^^^^^^^^^^^20.253^.013

	;;^UTILITY(U,$J,112,8893,2)

	;;=.025

	;;^UTILITY(U,$J,112,8893,20)

	;;=Bowes & Church's Food Values, Sixteenth Edition.

	;;^UTILITY(U,$J,112,8894,0)

	;;=BF,FRUIT,APPLESCE,BEECH-NUT STAGE 2^BC-02167^4.5-oz.^128

	;;^UTILITY(U,$J,112,8894,1)

	;;=0^0^12.734^53.125^^^^^^^^^^^^^^^12.5^.008

	;;^UTILITY(U,$J,112,8894,2)

	;;=.023

	;;^UTILITY(U,$J,112,8894,20)

	;;=Bowes & Church's Food Values, Sixteenth Edition.

	;;^UTILITY(U,$J,112,8895,0)

	;;=BF,FRUIT,APPLESCE,GERBER FIRST FOOD^BC-02168^2.5-oz.^71

	;;^UTILITY(U,$J,112,8895,1)

	;;=.282^.141^12.817^53.521^^^^4.225^.141^4.225^8.451^97.183^0^.014^.028^.042^^^22.535^.028

	;;^UTILITY(U,$J,112,8895,2)

	;;=.028^.141^^.042^^^^^^^^^4.225

	;;^UTILITY(U,$J,112,8895,20)

	;;=Bowes & Church's Food Values, Sixteenth Edition.

	;;^UTILITY(U,$J,112,8896,0)

	;;=BF,FRUIT,APPLESCE,GERBER SECOND,FOOD^BC-02169^4-oz.^113

	;;^UTILITY(U,$J,112,8896,1)

	;;=.177^.177^11.062^46.903^^^^3.54^.088^3.54^7.08^79.646^1.77^.027^.027^.035^^^12.389^.018

	;;^UTILITY(U,$J,112,8896,2)

	;;=.035^.088^^.035^^^^^^^^^2.655

	;;^UTILITY(U,$J,112,8896,20)

	;;=Bowes & Church's Food Values, Sixteenth Edition.

	;;^UTILITY(U,$J,112,8897,0)

	;;=BF,FRUIT,APPLESCE & APRICOT,GERBER THIRD FOOD^BC-02170^6-oz.^170

	;;^UTILITY(U,$J,112,8897,1)

	;;=.294^.176^11.706^50^^^^5.294^.176^5.294^10^120^.588^.1^.035^.047^^^9.412^.024

	;;^UTILITY(U,$J,112,8897,2)

	;;=.029^.176^^.041^^^^^^^^^60.588

	;;^UTILITY(U,$J,112,8897,20)

	;;=Bowes & Church's Food Values, Sixteenth Edition.

	;;^UTILITY(U,$J,112,8898,0)

	;;=BF,FRUIT,APPLESCE & APRICOT,BEECH-NUT STAGE 2^BC-02171^4.5-oz.^128

	;;^UTILITY(U,$J,112,8898,1)

	;;=0^0^13.516^57.031^^^^^^^^^^^^^^550^12.5^.023

	;;^UTILITY(U,$J,112,8898,2)

	;;=.008^.156

	;;^UTILITY(U,$J,112,8898,20)

	;;=Bowes & Church's Food Values, Sixteenth Edition.

	;;^UTILITY(U,$J,112,8899,0)

	;;=BF,FRUIT,APPLESCE & APRICOT,GERBER SECOND FOOD^BC-02172^4-oz.^113

	;;^UTILITY(U,$J,112,8899,1)

	;;=.265^.177^11.504^49.558^^^^5.31^.177^5.31^10.619^121.239^1.77^.044^.035^.044^^^12.389^.018

	;;^UTILITY(U,$J,112,8899,2)

	;;=.027^.177^^.044^^^^^^^^^63.717

	;;^UTILITY(U,$J,112,8899,20)

	;;=Bowes & Church's Food Values, Sixteenth Edition.

	;;^UTILITY(U,$J,112,8900,0)

	;;=BF,FRUIT,APPLESCE & BANANAS,BEECH-NUT STAGE 3^BC-02173^6-oz.^170

	;;^UTILITY(U,$J,112,8900,1)

	;;=0^0^13.824^55.882^^^^^^^^^^^^^^^9.412^.012

FHINI0E7  ; ; 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,8886,2)

 +2       ;;=.008^.078^^.023

 +3       ;;^UTILITY(U,$J,112,8886,20)

 +4       ;;=Bowes & Church's Food Values, Sixteenth Edition.

 +5       ;;^UTILITY(U,$J,112,8887,0)

 +6       ;;=BF,FRUIT,APPLES & PEACHES,INST,HEINZ^BC-02160^3-tbsp.^14

 +7       ;;^UTILITY(U,$J,112,8887,1)

 +8       ;;=0^0^92.857^357.143^^^^57.143^2.143^^71.429^914.286^50^.429^.214^^^1514.286^121.429^.143

 +9       ;;^UTILITY(U,$J,112,8887,2)

 +10      ;;=.143^1.429^^.286

 +11      ;;^UTILITY(U,$J,112,8887,20)

 +12      ;;=Bowes & Church's Food Values, Sixteenth Edition.

 +13      ;;^UTILITY(U,$J,112,8888,0)

 +14      ;;=BF,FRUIT,APPLES & PEARS,INST,HEINZ^BC-02161^3-tbsp.^14

 +15      ;;^UTILITY(U,$J,112,8888,1)

 +16      ;;=0^7.143^92.857^357.143^^^^64.286^1.429^^57.143^764.286^14.286^.357^.357^^^200^121.429^.071

 +17      ;;^UTILITY(U,$J,112,8888,2)

 +18      ;;=.071^.714^^.143

 +19      ;;^UTILITY(U,$J,112,8888,20)

 +20      ;;=Bowes & Church's Food Values, Sixteenth Edition.

 +21      ;;^UTILITY(U,$J,112,8889,0)

 +22      ;;=BF,FRUIT,APPLES & PEARS,JR,HEINZ^BC-02162^jar^213

 +23      ;;^UTILITY(U,$J,112,8889,1)

 +24      ;;=.188^.188^13.521^56.808^^^^7.981^.202^^8.92^104.225^1.878^.061^.06^^^40.845^7.042^.019

 +25      ;;^UTILITY(U,$J,112,8889,2)

 +26      ;;=.019^.141^^.028

 +27      ;;^UTILITY(U,$J,112,8889,20)

 +28      ;;=Bowes & Church's Food Values, Sixteenth Edition.

 +29      ;;^UTILITY(U,$J,112,8890,0)

 +30      ;;=BF,FRUIT,APPLES & PEARS,STR,HEINZ^BC-02163^jar^128

 +31      ;;^UTILITY(U,$J,112,8890,1)

 +32      ;;=.234^.234^13.516^57.031^^^^7.813^.203^^9.375^103.906^2.344^.063^.06^^^40.625^12.5^.023

 +33      ;;^UTILITY(U,$J,112,8890,2)

 +34      ;;=.023^.156^^.031

 +35      ;;^UTILITY(U,$J,112,8890,20)

 +36      ;;=Bowes & Church's Food Values, Sixteenth Edition.

 +37      ;;^UTILITY(U,$J,112,8891,0)

 +38      ;;=BF,FRUIT,APPLESCE,BEECH-NUT STAGE 3^BC-02164^6-oz.^170

 +39      ;;^UTILITY(U,$J,112,8891,1)

 +40      ;;=0^0^12.412^51.176^^^^^^^^^^^^^^^9.412^.018

 +41      ;;^UTILITY(U,$J,112,8891,2)

 +42      ;;=.029

 +43      ;;^UTILITY(U,$J,112,8891,20)

 +44      ;;=Bowes & Church's Food Values, Sixteenth Edition.

 +45      ;;^UTILITY(U,$J,112,8892,0)

 +46      ;;=BF,FRUIT,APPLESCE,GERBER THIRD FOOD^BC-02165^6-oz.^170

 +47      ;;^UTILITY(U,$J,112,8892,1)

 +48      ;;=.235^.176^11.471^48.235^^^^3.529^.118^4.118^7.059^82.941^.588^.024^.024^.041^^^9.412^.012

 +49      ;;^UTILITY(U,$J,112,8892,2)

 +50      ;;=.035^.059^^.029^^^^^^^^^2.353

 +51      ;;^UTILITY(U,$J,112,8892,20)

 +52      ;;=Bowes & Church's Food Values, Sixteenth Edition.

 +53      ;;^UTILITY(U,$J,112,8893,0)

 +54      ;;=BF,FRUIT,APPLESCE,BEECH-NUT STAGE 1^BC-02166^2.8-oz.^79

 +55      ;;^UTILITY(U,$J,112,8893,1)

 +56      ;;=0^0^16.456^68.354^^^^^^^^^^^^^^^20.253^.013

 +57      ;;^UTILITY(U,$J,112,8893,2)

 +58      ;;=.025

 +59      ;;^UTILITY(U,$J,112,8893,20)

 +60      ;;=Bowes & Church's Food Values, Sixteenth Edition.

 +61      ;;^UTILITY(U,$J,112,8894,0)

 +62      ;;=BF,FRUIT,APPLESCE,BEECH-NUT STAGE 2^BC-02167^4.5-oz.^128

 +63      ;;^UTILITY(U,$J,112,8894,1)

 +64      ;;=0^0^12.734^53.125^^^^^^^^^^^^^^^12.5^.008

 +65      ;;^UTILITY(U,$J,112,8894,2)

 +66      ;;=.023

 +67      ;;^UTILITY(U,$J,112,8894,20)

 +68      ;;=Bowes & Church's Food Values, Sixteenth Edition.

 +69      ;;^UTILITY(U,$J,112,8895,0)

 +70      ;;=BF,FRUIT,APPLESCE,GERBER FIRST FOOD^BC-02168^2.5-oz.^71

 +71      ;;^UTILITY(U,$J,112,8895,1)

 +72      ;;=.282^.141^12.817^53.521^^^^4.225^.141^4.225^8.451^97.183^0^.014^.028^.042^^^22.535^.028

 +73      ;;^UTILITY(U,$J,112,8895,2)

 +74      ;;=.028^.141^^.042^^^^^^^^^4.225

 +75      ;;^UTILITY(U,$J,112,8895,20)

 +76      ;;=Bowes & Church's Food Values, Sixteenth Edition.

 +77      ;;^UTILITY(U,$J,112,8896,0)

 +78      ;;=BF,FRUIT,APPLESCE,GERBER SECOND,FOOD^BC-02169^4-oz.^113

 +79      ;;^UTILITY(U,$J,112,8896,1)

 +80      ;;=.177^.177^11.062^46.903^^^^3.54^.088^3.54^7.08^79.646^1.77^.027^.027^.035^^^12.389^.018

 +81      ;;^UTILITY(U,$J,112,8896,2)

 +82      ;;=.035^.088^^.035^^^^^^^^^2.655

 +83      ;;^UTILITY(U,$J,112,8896,20)

 +84      ;;=Bowes & Church's Food Values, Sixteenth Edition.

 +85      ;;^UTILITY(U,$J,112,8897,0)

 +86      ;;=BF,FRUIT,APPLESCE & APRICOT,GERBER THIRD FOOD^BC-02170^6-oz.^170

 +87      ;;^UTILITY(U,$J,112,8897,1)

 +88      ;;=.294^.176^11.706^50^^^^5.294^.176^5.294^10^120^.588^.1^.035^.047^^^9.412^.024

 +89      ;;^UTILITY(U,$J,112,8897,2)

 +90      ;;=.029^.176^^.041^^^^^^^^^60.588

 +91      ;;^UTILITY(U,$J,112,8897,20)

 +92      ;;=Bowes & Church's Food Values, Sixteenth Edition.

 +93      ;;^UTILITY(U,$J,112,8898,0)

 +94      ;;=BF,FRUIT,APPLESCE & APRICOT,BEECH-NUT STAGE 2^BC-02171^4.5-oz.^128

 +95      ;;^UTILITY(U,$J,112,8898,1)

 +96      ;;=0^0^13.516^57.031^^^^^^^^^^^^^^550^12.5^.023

 +97      ;;^UTILITY(U,$J,112,8898,2)

 +98      ;;=.008^.156

 +99      ;;^UTILITY(U,$J,112,8898,20)

 +100     ;;=Bowes & Church's Food Values, Sixteenth Edition.

 +101     ;;^UTILITY(U,$J,112,8899,0)

 +102     ;;=BF,FRUIT,APPLESCE & APRICOT,GERBER SECOND FOOD^BC-02172^4-oz.^113

 +103     ;;^UTILITY(U,$J,112,8899,1)

 +104     ;;=.265^.177^11.504^49.558^^^^5.31^.177^5.31^10.619^121.239^1.77^.044^.035^.044^^^12.389^.018

 +105     ;;^UTILITY(U,$J,112,8899,2)

 +106     ;;=.027^.177^^.044^^^^^^^^^63.717

 +107     ;;^UTILITY(U,$J,112,8899,20)

 +108     ;;=Bowes & Church's Food Values, Sixteenth Edition.

 +109     ;;^UTILITY(U,$J,112,8900,0)

 +110     ;;=BF,FRUIT,APPLESCE & BANANAS,BEECH-NUT STAGE 3^BC-02173^6-oz.^170

 +111     ;;^UTILITY(U,$J,112,8900,1)

 +112     ;;=0^0^13.824^55.882^^^^^^^^^^^^^^^9.412^.012

FHINI0E7.m