Routine: FHINI033

FHINI033	; ; 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,951,4)

	;;=^^.001^.035^.001^.004^.029

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

	;;=USDA Std. Reference, Release 10

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

	;;=CELERY, CKD W/SALT^11-764^cups^150^100^N

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

	;;=.83^.16^4.01^18^94.11^^^42^.42^12^25^284^327^.14^.036^.106^^132^6.1^.043

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

	;;=.047^.319^.195^.086^22^0^.075^^0^.04^.03^.075^13^.9

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

	;;=.011^.024^.025^.039^.032^.007^.005^.024^.011^.033^.024^.014^.027^.141^.107^.026^.022^.024

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

	;;=^^.001^.035^.001^.004^.029

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

	;;=USDA Std. Reference, Release 10

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

	;;=CHARD, SWISS, RAW^11-147^cups^36^92^N

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

	;;=1.8^.2^3.74^19^92.66^^^51^1.8^81^46^379^213^.36^.179^.366^^3300^30^.04

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

	;;=.09^.4^.172^.099^13.8^0^^^0^^^^330^1.6^^^1.6

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

	;;=.017^.083^.147^.13^.099^.019^^.11^^.11^.117^.036

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

	;;=^^^^^^^^830

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

	;;=USDA Std. Reference, Release 10

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

	;;=CHARD, SWISS, CKD WO/SALT^11-148^cups^175^100^N

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

	;;=1.88^.08^4.14^20^92.65^^^58^2.26^86^33^549^179^.33^.163^.334^^3139^18^.034

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

	;;=.086^.36^.163^.085^8.6^0^^^0^^^^314^1.26^^^2.1

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

	;;=.018^.086^.154^.135^.103^.02^^.114^^.114^.122^.038

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

	;;=USDA Std. Reference, Release 10

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

	;;=CHARD, SWISS, CKD W/SALT^11-765^cups^175^100^N

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

	;;=1.88^.08^4.14^20^92.65^^^58^2.26^86^33^549^415^.33^.163^.334^^3139^18^.034

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

	;;=.086^.36^.163^.085^8.6^0^^^0^^^^314^1.26

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

	;;=.018^.086^.154^.135^.103^.02^^.114^^.114^.122^.038

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

	;;=USDA Std. Reference, Release 10

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

	;;=CHARLOTTE RUSSE, WITH LADY FINGERS, WHIPPED CREAM FILLING^641-0^servings^114^100^N

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

	;;=5.9^14.6^33.5^286^45.5^^^46^1^^91^64^43^^^^^740^.3^.11

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

	;;=.15^.7^^^^^.6^^197^7.26^^^^.5

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

	;;=^^^^^^5.17

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

	;;=USDA  Std. Reference, Release 8

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

	;;=CHAYOTE, RAW (PEAR-SHAPED VEG, SQUASH FAMILY)^11-149^cups^132^99^N

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

	;;=.9^.3^5.4^24^93^^^19^.4^14^26^150^4^.35^.123^.189^^56^11^.03

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

	;;=.04^.5^.483^.132^27.6^0^^^0^^^^6^.4^^^3

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

	;;=.012^.044^.048^.084^.043^.001^^.052^.035^.069^.038^.016^.056^.101^.137^.045^.048^.051

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

	;;=^^^^^^^^200

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

	;;=USDA Std. Reference, Release 10

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

	;;=CHEESE FONDUE, FROM HOME RECIPE^658-0^oz.^28.3^100^N

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

	;;=14.8^18.3^10^265^54.2^^^317^1.2^^294^165^542^^^^^880^0^.06

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

	;;=.34^.2^^^^^2^^224^9^^^^2.7

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

	;;=^^^^^^7

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

	;;=USDA  Std. Reference, Release 8

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

	;;=CHEESE SOUFFLE, FROM HOME RECIPE^659-0^servings^110^100^N

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

	;;=9.9^17.1^6.2^218^65^^^201^1^^195^121^364^^^^^800^0^.05

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

	;;=.24^.2^^^^^.65^^185^8.62^^^^1.8

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

	;;=^^^^^^6

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

	;;=USDA  Std. Reference, Release 8

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

	;;=CHEESE STRAWS, MADE W/VEG-S^660-1^pieces^6^100^N

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

	;;=11.2^29.9^34.5^453^21.7^^^259^2.2^^206^63^721^^^^^390^0^.23

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

	;;=.31^2.1^^^^^4.66^^32^10.61^^^^2.7

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

	;;=^^^^^^13.07

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

	;;=USDA  Std. Reference, Release 8

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

	;;=CHEESE STRAWS, MADE W/LARD^660-2^pieces^6^100^N

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

	;;=11.2^29.9^34.5^453^21.7^^^259^2.2^^206^63^721^^^^^390^0^.23

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

	;;=.31^2.1^^^^^2.39^^54^13.1^^^^2.7

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

	;;=^^^^^^12.32

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

	;;=USDA  Std. Reference, Release 8

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

	;;=CHERRIES, MARASCHINO^675-0^oz.^28.3^100^N

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

	;;=.2^.2^29.4^116^70^^^15^.3^^13^126^1^^^^^0^0^0

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

	;;=0^0^^^^^0^^0^0^^^^.2

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

	;;=^^^^^^0

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

	;;=USDA  Std. Reference, Release 8

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

	;;=CHEWING GUM^19-163^pieces^1.7^100^N

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

	;;=0^.3^96.7^341^2.6^^^0^0^0^0^4^6^0^0^0^^0^0^0

FHINI033  ; ; 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,951,4)

 +2       ;;=^^.001^.035^.001^.004^.029

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

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

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

 +6       ;;=CELERY, CKD W/SALT^11-764^cups^150^100^N

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

 +8       ;;=.83^.16^4.01^18^94.11^^^42^.42^12^25^284^327^.14^.036^.106^^132^6.1^.043

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

 +10      ;;=.047^.319^.195^.086^22^0^.075^^0^.04^.03^.075^13^.9

 +11      ;;^UTILITY(U,$J,112,952,3)

 +12      ;;=.011^.024^.025^.039^.032^.007^.005^.024^.011^.033^.024^.014^.027^.141^.107^.026^.022^.024

 +13      ;;^UTILITY(U,$J,112,952,4)

 +14      ;;=^^.001^.035^.001^.004^.029

 +15      ;;^UTILITY(U,$J,112,952,20)

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

 +17      ;;^UTILITY(U,$J,112,953,0)

 +18      ;;=CHARD, SWISS, RAW^11-147^cups^36^92^N

 +19      ;;^UTILITY(U,$J,112,953,1)

 +20      ;;=1.8^.2^3.74^19^92.66^^^51^1.8^81^46^379^213^.36^.179^.366^^3300^30^.04

 +21      ;;^UTILITY(U,$J,112,953,2)

 +22      ;;=.09^.4^.172^.099^13.8^0^^^0^^^^330^1.6^^^1.6

 +23      ;;^UTILITY(U,$J,112,953,3)

 +24      ;;=.017^.083^.147^.13^.099^.019^^.11^^.11^.117^.036

 +25      ;;^UTILITY(U,$J,112,953,4)

 +26      ;;=^^^^^^^^830

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

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

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

 +30      ;;=CHARD, SWISS, CKD WO/SALT^11-148^cups^175^100^N

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

 +32      ;;=1.88^.08^4.14^20^92.65^^^58^2.26^86^33^549^179^.33^.163^.334^^3139^18^.034

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

 +34      ;;=.086^.36^.163^.085^8.6^0^^^0^^^^314^1.26^^^2.1

 +35      ;;^UTILITY(U,$J,112,954,3)

 +36      ;;=.018^.086^.154^.135^.103^.02^^.114^^.114^.122^.038

 +37      ;;^UTILITY(U,$J,112,954,20)

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

 +39      ;;^UTILITY(U,$J,112,955,0)

 +40      ;;=CHARD, SWISS, CKD W/SALT^11-765^cups^175^100^N

 +41      ;;^UTILITY(U,$J,112,955,1)

 +42      ;;=1.88^.08^4.14^20^92.65^^^58^2.26^86^33^549^415^.33^.163^.334^^3139^18^.034

 +43      ;;^UTILITY(U,$J,112,955,2)

 +44      ;;=.086^.36^.163^.085^8.6^0^^^0^^^^314^1.26

 +45      ;;^UTILITY(U,$J,112,955,3)

 +46      ;;=.018^.086^.154^.135^.103^.02^^.114^^.114^.122^.038

 +47      ;;^UTILITY(U,$J,112,955,20)

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

 +49      ;;^UTILITY(U,$J,112,956,0)

 +50      ;;=CHARLOTTE RUSSE, WITH LADY FINGERS, WHIPPED CREAM FILLING^641-0^servings^114^100^N

 +51      ;;^UTILITY(U,$J,112,956,1)

 +52      ;;=5.9^14.6^33.5^286^45.5^^^46^1^^91^64^43^^^^^740^.3^.11

 +53      ;;^UTILITY(U,$J,112,956,2)

 +54      ;;=.15^.7^^^^^.6^^197^7.26^^^^.5

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

 +56      ;;=^^^^^^5.17

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

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

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

 +60      ;;=CHAYOTE, RAW (PEAR-SHAPED VEG, SQUASH FAMILY)^11-149^cups^132^99^N

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

 +62      ;;=.9^.3^5.4^24^93^^^19^.4^14^26^150^4^.35^.123^.189^^56^11^.03

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

 +64      ;;=.04^.5^.483^.132^27.6^0^^^0^^^^6^.4^^^3

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

 +66      ;;=.012^.044^.048^.084^.043^.001^^.052^.035^.069^.038^.016^.056^.101^.137^.045^.048^.051

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

 +68      ;;=^^^^^^^^200

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

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

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

 +72      ;;=CHEESE FONDUE, FROM HOME RECIPE^658-0^oz.^28.3^100^N

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

 +74      ;;=14.8^18.3^10^265^54.2^^^317^1.2^^294^165^542^^^^^880^0^.06

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

 +76      ;;=.34^.2^^^^^2^^224^9^^^^2.7

 +77      ;;^UTILITY(U,$J,112,958,4)

 +78      ;;=^^^^^^7

 +79      ;;^UTILITY(U,$J,112,958,20)

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

 +81      ;;^UTILITY(U,$J,112,959,0)

 +82      ;;=CHEESE SOUFFLE, FROM HOME RECIPE^659-0^servings^110^100^N

 +83      ;;^UTILITY(U,$J,112,959,1)

 +84      ;;=9.9^17.1^6.2^218^65^^^201^1^^195^121^364^^^^^800^0^.05

 +85      ;;^UTILITY(U,$J,112,959,2)

 +86      ;;=.24^.2^^^^^.65^^185^8.62^^^^1.8

 +87      ;;^UTILITY(U,$J,112,959,4)

 +88      ;;=^^^^^^6

 +89      ;;^UTILITY(U,$J,112,959,20)

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

 +91      ;;^UTILITY(U,$J,112,960,0)

 +92      ;;=CHEESE STRAWS, MADE W/VEG-S^660-1^pieces^6^100^N

 +93      ;;^UTILITY(U,$J,112,960,1)

 +94      ;;=11.2^29.9^34.5^453^21.7^^^259^2.2^^206^63^721^^^^^390^0^.23

 +95      ;;^UTILITY(U,$J,112,960,2)

 +96      ;;=.31^2.1^^^^^4.66^^32^10.61^^^^2.7

 +97      ;;^UTILITY(U,$J,112,960,4)

 +98      ;;=^^^^^^13.07

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

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

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

 +102     ;;=CHEESE STRAWS, MADE W/LARD^660-2^pieces^6^100^N

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

 +104     ;;=11.2^29.9^34.5^453^21.7^^^259^2.2^^206^63^721^^^^^390^0^.23

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

 +106     ;;=.31^2.1^^^^^2.39^^54^13.1^^^^2.7

 +107     ;;^UTILITY(U,$J,112,961,4)

 +108     ;;=^^^^^^12.32

 +109     ;;^UTILITY(U,$J,112,961,20)

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

 +111     ;;^UTILITY(U,$J,112,962,0)

 +112     ;;=CHERRIES, MARASCHINO^675-0^oz.^28.3^100^N

 +113     ;;^UTILITY(U,$J,112,962,1)

 +114     ;;=.2^.2^29.4^116^70^^^15^.3^^13^126^1^^^^^0^0^0

 +115     ;;^UTILITY(U,$J,112,962,2)

 +116     ;;=0^0^^^^^0^^0^0^^^^.2

 +117     ;;^UTILITY(U,$J,112,962,4)

 +118     ;;=^^^^^^0

 +119     ;;^UTILITY(U,$J,112,962,20)

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

 +121     ;;^UTILITY(U,$J,112,963,0)

 +122     ;;=CHEWING GUM^19-163^pieces^1.7^100^N

 +123     ;;^UTILITY(U,$J,112,963,1)

 +124     ;;=0^.3^96.7^341^2.6^^^0^0^0^0^4^6^0^0^0^^0^0^0

FHINI033.m