FHINI04S.m

FHINI04S	; ; 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,1610,0)

	;;=FRANKFURTERS, CKD^1999-0^franks^44^100^N

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

	;;=12.4^27.2^1.6^304^57.3^^^5^1.5^^102^220^1100^^^^^0^0^.15

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

	;;=.2^2.5^^^^^1^^62^11^^^^1.5

	;;^UTILITY(U,$J,112,1610,4)

	;;=^^^^^^11

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

	;;=USDA  Std. Reference, Release 8

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

	;;=APPLES, RAW^9-003^fruits^138^92^N

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

	;;=.19^.36^15.25^59^83.93^^^7^.18^5^7^115^0^.04^.041^.045^.59^53^5.7^.017

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

	;;=.014^.077^.061^.048^2.8^0^.087^.018^0^.058^.015^.105^5^.26^^^2

	;;^UTILITY(U,$J,112,1611,3)

	;;=.002^.007^.008^.012^.012^.002^.003^.005^.004^.009^.006^.003^.007^.034^.02^.008^.007^.008

	;;^UTILITY(U,$J,112,1611,4)

	;;=^.001^.002^.048^.001^.007^.014^^4^.3

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

	;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990

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

	;;=APPLES, RAW, WO/SKIN^9-004^fruits^128^85^N

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

	;;=.15^.31^14.84^57^84.46^^^4^.07^3^7^113^0^.04^.031^.023^.27^44^4^.017

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

	;;=.01^.091^.057^.046^.4^0^.075^.016^0^.051^.013^.091^4^.24^^^1.9

	;;^UTILITY(U,$J,112,1612,3)

	;;=.001^.005^.006^.009^.009^.002^.002^.004^.003^.007^.005^.002^.005^.026^.016^.006^.005^.006

	;;^UTILITY(U,$J,112,1612,4)

	;;=^.001^.001^.042^.001^.006^.012^^.4

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

	;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990

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

	;;=APPLES, RAW, PARED, BOILED^9-005^cups^172^100^N

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

	;;=.26^.36^13.64^53^85.47^^^5^.19^3^8^88^1^.04^.035^.118^^44^.2^.016

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

	;;=.012^.095^.046^.044^.6^0^.086^.018^0^.058^.014^.104^4^.28^^^2.4

	;;^UTILITY(U,$J,112,1613,3)

	;;=.002^.009^.01^.016^.016^.003^.004^.007^.005^.012^.008^.004^.009^.046^.027^.01^.009^.011

	;;^UTILITY(U,$J,112,1613,4)

	;;=^.001^.002^.048^.001^.007^.014

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

	;;=USDA Std. Reference, Release 10

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

	;;=APPLES, RAW, PARED, MICROWAVE^9-006^cups^170^100^N

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

	;;=.28^.42^14.41^56^84.63^^^5^.17^3^8^93^1^.04^.046^.142^^40^.3^.017

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

	;;=.011^.061^.046^.046^.6^0^.101^.021^0^.068^.017^.122^4^.26^^^2.8

	;;^UTILITY(U,$J,112,1614,3)

	;;=.003^.01^.011^.017^.018^.003^.004^.008^.005^.013^.009^.004^.01^.049^.029^.011^.01^.011

	;;^UTILITY(U,$J,112,1614,4)

	;;=^.001^.002^.056^.001^.009^.016

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

	;;=USDA Std. Reference, Release 10

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

	;;=APPLES, CND, SWEETENED^9-007^cups^204^100^N

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

	;;=.18^.49^16.7^67^82.36^^^4^.23^2^5^68^3^.03^.053^.153^^51^.4^.009

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

	;;=.01^.073^.031^.044^.3^0^.119^.025^0^.08^.02^.144^5^.27^^^1.7

	;;^UTILITY(U,$J,112,1615,3)

	;;=.002^.006^.007^.011^.011^.002^.002^.005^.003^.008^.006^.003^.006^.031^.018^.007^.006^.007

	;;^UTILITY(U,$J,112,1615,4)

	;;=^.001^.002^.066^.001^.01^.019

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

	;;=USDA Std. Reference, Release 10

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

	;;=APPLES, DRIED, UNCKD^9-011^rings^6.4^100^N

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

	;;=.93^.32^65.89^243^31.76^^^14^1.4^16^38^450^87^.2^.191^.09^^0^3.9^0

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

	;;=.159^.927^.245^.125^0^0^.077^.016^0^.052^.013^.093^0^1.1^^^8.7

	;;^UTILITY(U,$J,112,1616,3)

	;;=.009^.033^.037^.057^.058^.009^.012^.026^.017^.043^.029^.015^.033^.162^.097^.037^.032^.038

	;;^UTILITY(U,$J,112,1616,4)

	;;=^.001^.001^.043^.001^.007^.012

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

	;;=USDA Std. Reference, Release 10

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

	;;=APPLES, DRIED, STEWED, WO/SUGAR^9-012^cups^256^210^N

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

	;;=.22^.07^15.32^57^84.13^^^3^.33^4^9^105^20^.05^.044^.021^^17^1^.006

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

	;;=.019^.129^.057^.05^0^0^.018^.004^0^.012^.003^.022^2^.26^^^2

	;;^UTILITY(U,$J,112,1617,3)

	;;=.002^.008^.008^.013^.013^.002^.003^.006^.004^.01^.007^.003^.008^.037^.022^.008^.007^.009

	;;^UTILITY(U,$J,112,1617,4)

	;;=^^^.01^^.002^.003

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

	;;=USDA Std. Reference, Release 10

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

	;;=APPLES, DRIED, STEWED, W/SUGAR^9-013^cups^280^189^N

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

	;;=.2^.07^20.73^83^78.76^^^3^.31^3^8^98^19^.04^.042^.02^^16^.9^.006

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

	;;=.018^.121^.054^.047^0^0^.017^.004^0^.011^.003^.02^2^.24

	;;^UTILITY(U,$J,112,1618,3)

	;;=.002^.007^.008^.012^.013^.002^.003^.006^.004^.009^.006^.003^.007^.035^.021^.008^.007^.008

	;;^UTILITY(U,$J,112,1618,4)

	;;=^^^.009^^.001^.003

FHINI04S  ; ; 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,1610,0)

 +2       ;;=FRANKFURTERS, CKD^1999-0^franks^44^100^N

 +3       ;;^UTILITY(U,$J,112,1610,1)

 +4       ;;=12.4^27.2^1.6^304^57.3^^^5^1.5^^102^220^1100^^^^^0^0^.15

 +5       ;;^UTILITY(U,$J,112,1610,2)

 +6       ;;=.2^2.5^^^^^1^^62^11^^^^1.5

 +7       ;;^UTILITY(U,$J,112,1610,4)

 +8       ;;=^^^^^^11

 +9       ;;^UTILITY(U,$J,112,1610,20)

 +10      ;;=USDA  Std. Reference, Release 8

 +11      ;;^UTILITY(U,$J,112,1611,0)

 +12      ;;=APPLES, RAW^9-003^fruits^138^92^N

 +13      ;;^UTILITY(U,$J,112,1611,1)

 +14      ;;=.19^.36^15.25^59^83.93^^^7^.18^5^7^115^0^.04^.041^.045^.59^53^5.7^.017

 +15      ;;^UTILITY(U,$J,112,1611,2)

 +16      ;;=.014^.077^.061^.048^2.8^0^.087^.018^0^.058^.015^.105^5^.26^^^2

 +17      ;;^UTILITY(U,$J,112,1611,3)

 +18      ;;=.002^.007^.008^.012^.012^.002^.003^.005^.004^.009^.006^.003^.007^.034^.02^.008^.007^.008

 +19      ;;^UTILITY(U,$J,112,1611,4)

 +20      ;;=^.001^.002^.048^.001^.007^.014^^4^.3

 +21      ;;^UTILITY(U,$J,112,1611,20)

 +22      ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990

 +23      ;;^UTILITY(U,$J,112,1612,0)

 +24      ;;=APPLES, RAW, WO/SKIN^9-004^fruits^128^85^N

 +25      ;;^UTILITY(U,$J,112,1612,1)

 +26      ;;=.15^.31^14.84^57^84.46^^^4^.07^3^7^113^0^.04^.031^.023^.27^44^4^.017

 +27      ;;^UTILITY(U,$J,112,1612,2)

 +28      ;;=.01^.091^.057^.046^.4^0^.075^.016^0^.051^.013^.091^4^.24^^^1.9

 +29      ;;^UTILITY(U,$J,112,1612,3)

 +30      ;;=.001^.005^.006^.009^.009^.002^.002^.004^.003^.007^.005^.002^.005^.026^.016^.006^.005^.006

 +31      ;;^UTILITY(U,$J,112,1612,4)

 +32      ;;=^.001^.001^.042^.001^.006^.012^^.4

 +33      ;;^UTILITY(U,$J,112,1612,20)

 +34      ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990

 +35      ;;^UTILITY(U,$J,112,1613,0)

 +36      ;;=APPLES, RAW, PARED, BOILED^9-005^cups^172^100^N

 +37      ;;^UTILITY(U,$J,112,1613,1)

 +38      ;;=.26^.36^13.64^53^85.47^^^5^.19^3^8^88^1^.04^.035^.118^^44^.2^.016

 +39      ;;^UTILITY(U,$J,112,1613,2)

 +40      ;;=.012^.095^.046^.044^.6^0^.086^.018^0^.058^.014^.104^4^.28^^^2.4

 +41      ;;^UTILITY(U,$J,112,1613,3)

 +42      ;;=.002^.009^.01^.016^.016^.003^.004^.007^.005^.012^.008^.004^.009^.046^.027^.01^.009^.011

 +43      ;;^UTILITY(U,$J,112,1613,4)

 +44      ;;=^.001^.002^.048^.001^.007^.014

 +45      ;;^UTILITY(U,$J,112,1613,20)

 +46      ;;=USDA Std. Reference, Release 10

 +47      ;;^UTILITY(U,$J,112,1614,0)

 +48      ;;=APPLES, RAW, PARED, MICROWAVE^9-006^cups^170^100^N

 +49      ;;^UTILITY(U,$J,112,1614,1)

 +50      ;;=.28^.42^14.41^56^84.63^^^5^.17^3^8^93^1^.04^.046^.142^^40^.3^.017

 +51      ;;^UTILITY(U,$J,112,1614,2)

 +52      ;;=.011^.061^.046^.046^.6^0^.101^.021^0^.068^.017^.122^4^.26^^^2.8

 +53      ;;^UTILITY(U,$J,112,1614,3)

 +54      ;;=.003^.01^.011^.017^.018^.003^.004^.008^.005^.013^.009^.004^.01^.049^.029^.011^.01^.011

 +55      ;;^UTILITY(U,$J,112,1614,4)

 +56      ;;=^.001^.002^.056^.001^.009^.016

 +57      ;;^UTILITY(U,$J,112,1614,20)

 +58      ;;=USDA Std. Reference, Release 10

 +59      ;;^UTILITY(U,$J,112,1615,0)

 +60      ;;=APPLES, CND, SWEETENED^9-007^cups^204^100^N

 +61      ;;^UTILITY(U,$J,112,1615,1)

 +62      ;;=.18^.49^16.7^67^82.36^^^4^.23^2^5^68^3^.03^.053^.153^^51^.4^.009

 +63      ;;^UTILITY(U,$J,112,1615,2)

 +64      ;;=.01^.073^.031^.044^.3^0^.119^.025^0^.08^.02^.144^5^.27^^^1.7

 +65      ;;^UTILITY(U,$J,112,1615,3)

 +66      ;;=.002^.006^.007^.011^.011^.002^.002^.005^.003^.008^.006^.003^.006^.031^.018^.007^.006^.007

 +67      ;;^UTILITY(U,$J,112,1615,4)

 +68      ;;=^.001^.002^.066^.001^.01^.019

 +69      ;;^UTILITY(U,$J,112,1615,20)

 +70      ;;=USDA Std. Reference, Release 10

 +71      ;;^UTILITY(U,$J,112,1616,0)

 +72      ;;=APPLES, DRIED, UNCKD^9-011^rings^6.4^100^N

 +73      ;;^UTILITY(U,$J,112,1616,1)

 +74      ;;=.93^.32^65.89^243^31.76^^^14^1.4^16^38^450^87^.2^.191^.09^^0^3.9^0

 +75      ;;^UTILITY(U,$J,112,1616,2)

 +76      ;;=.159^.927^.245^.125^0^0^.077^.016^0^.052^.013^.093^0^1.1^^^8.7

 +77      ;;^UTILITY(U,$J,112,1616,3)

 +78      ;;=.009^.033^.037^.057^.058^.009^.012^.026^.017^.043^.029^.015^.033^.162^.097^.037^.032^.038

 +79      ;;^UTILITY(U,$J,112,1616,4)

 +80      ;;=^.001^.001^.043^.001^.007^.012

 +81      ;;^UTILITY(U,$J,112,1616,20)

 +82      ;;=USDA Std. Reference, Release 10

 +83      ;;^UTILITY(U,$J,112,1617,0)

 +84      ;;=APPLES, DRIED, STEWED, WO/SUGAR^9-012^cups^256^210^N

 +85      ;;^UTILITY(U,$J,112,1617,1)

 +86      ;;=.22^.07^15.32^57^84.13^^^3^.33^4^9^105^20^.05^.044^.021^^17^1^.006

 +87      ;;^UTILITY(U,$J,112,1617,2)

 +88      ;;=.019^.129^.057^.05^0^0^.018^.004^0^.012^.003^.022^2^.26^^^2

 +89      ;;^UTILITY(U,$J,112,1617,3)

 +90      ;;=.002^.008^.008^.013^.013^.002^.003^.006^.004^.01^.007^.003^.008^.037^.022^.008^.007^.009

 +91      ;;^UTILITY(U,$J,112,1617,4)

 +92      ;;=^^^.01^^.002^.003

 +93      ;;^UTILITY(U,$J,112,1617,20)

 +94      ;;=USDA Std. Reference, Release 10

 +95      ;;^UTILITY(U,$J,112,1618,0)

 +96      ;;=APPLES, DRIED, STEWED, W/SUGAR^9-013^cups^280^189^N

 +97      ;;^UTILITY(U,$J,112,1618,1)

 +98      ;;=.2^.07^20.73^83^78.76^^^3^.31^3^8^98^19^.04^.042^.02^^16^.9^.006

 +99      ;;^UTILITY(U,$J,112,1618,2)

 +100     ;;=.018^.121^.054^.047^0^0^.017^.004^0^.011^.003^.02^2^.24

 +101     ;;^UTILITY(U,$J,112,1618,3)

 +102     ;;=.002^.007^.008^.012^.013^.002^.003^.006^.004^.009^.006^.003^.007^.035^.021^.008^.007^.008

 +103     ;;^UTILITY(U,$J,112,1618,4)

 +104     ;;=^^^.009^^.001^.003