Routine: FHINI01R

FHINI01R	; ; 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,441,1)

	;;=26.26^8.06^0^185^66.44^^^11^1.4^21^149^190^78^2.78^.077^.019^^60^0^.059

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

	;;=.216^4.798^.913^.21^8^.23^1.55^.07^89^2.2^2.93^1.88^18^.88^^^0

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

	;;=.307^1.109^1.387^1.971^2.231^.727^.336^1.042^.887^1.303^1.584^.815^1.433^2.341^3.933^1.29^1.08^.903

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

	;;=0^.03^.06^1.52^.4^.52^2.44^.12

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

	;;=USDA Std. Reference, Release 10

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

	;;=CHICKEN, THIGH, MEAT&SKIN, FRIED, BATTER^5-092^oz.^28.35^81^N

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

	;;=21.61^16.53^9.08^277^51.5^^^18^1.45^21^155^192^288^2.04^.082^.057^^95^0^.119

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

	;;=.227^5.715^.982^.26^9^.28^3.49^.19^93^4.41^6.7^3.9^29^1.27

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

	;;=.248^.886^1.085^1.59^1.699^.568^.297^.864^.705^1.056^1.317^.632^1.21^1.869^3.465^1.288^1.114^.796

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

	;;=0^.02^.1^2.96^.56^1.24^6.01^.1

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

	;;=USDA Std. Reference, Release 10

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

	;;=CHICKEN, THIGH, MEAT&SKIN, FRIED, FLR^5-093^oz.^28.35^77^N

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

	;;=26.75^14.98^3.18^262^54.14^^^14^1.49^25^187^237^88^2.52^.089^.036^^98^0^.094

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

	;;=.243^6.946^1.185^.33^8^.3^2.97^.14^97^4.09^5.87^3.41^29^.94

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

	;;=.302^1.105^1.346^1.958^2.169^.713^.358^1.051^.869^1.303^1.656^.791^1.531^2.365^4.031^1.643^1.295^.949

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

	;;=0^.03^.11^2.9^.72^.94^4.97^.13

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

	;;=USDA Std. Reference, Release 10

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

	;;=CHICKEN, THIGH, MEAT&SKIN, ROASTED^5-094^oz.^28.35^77^N

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

	;;=25.06^15.49^0^247^59.42^^^12^1.34^22^174^222^84^2.36^.078^.021^^165^0^.067

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

	;;=.212^6.365^1.108^.31^7^.29^2.99^.14^93^4.33^6.15^3.42^48^.88^^^0

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

	;;=.281^1.037^1.256^1.827^2.047^.669^.333^.975^.81^1.218^1.566^.739^1.454^2.234^3.67^1.59^1.2^.882

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

	;;=0^.03^.12^3.14^.84^.89^5.08^.13

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

	;;=USDA Std. Reference, Release 10

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

	;;=CHICKEN, THIGH, MEAT&SKIN, STEWED^5-095^oz.^28.35^76^N

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

	;;=23.26^14.74^0^232^63.11^^^11^1.37^19^139^170^71^2.25^.07^.019^^151^0^.057

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

	;;=.191^4.894^.776^.17^6^.19^2.84^.13^84^4.11^5.84^3.25^44^.78^^^0

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

	;;=.26^.962^1.164^1.695^1.898^.62^.31^.905^.751^1.13^1.456^.685^1.352^2.074^3.405^1.487^1.119^.82

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

	;;=0^.03^.12^3^.81^.84^4.83^.12

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

	;;=USDA Std. Reference, Release 10

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

	;;=CHICKEN, THIGH, MEAT ONLY, FRIED^5-097^oz.^28.35^64^N

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

	;;=28.18^10.3^1.18^218^59.31^^^13^1.46^26^199^259^95^2.79^.09^.027^^70^0^.088

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

	;;=.255^7.12^1.285^.38^9^.33^2.04^.1^102^2.78^3.82^2.43^21^1.04^^^0

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

	;;=.329^1.188^1.486^2.115^2.384^.778^.362^1.121^.951^1.397^1.697^.874^1.534^2.504^4.257^1.382^1.172^.973

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

	;;=0^.03^.07^1.9^.46^.7^3.26^.14

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

	;;=USDA Std. Reference, Release 10

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

	;;=CHICKEN, THIGH, MEAT ONLY, ROASTED^5-098^oz.^28.35^65^N

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

	;;=25.94^10.88^0^209^62.87^^^12^1.31^24^183^238^88^2.57^.081^.021^^65^0^.074

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

	;;=.231^6.525^1.184^.35^8^.31^2.1^.1^95^3.03^4.15^2.48^20^.95^^^0

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

	;;=.303^1.096^1.37^1.947^2.204^.718^.332^1.029^.876^1.287^1.565^.805^1.415^2.312^3.885^1.274^1.067^.892

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

	;;=0^.03^.08^2.12^.56^.69^3.46^.13^^29

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

	;;=USDA Std. Reference, Release 10

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

	;;=CHICKEN, THIGH, MEAT ONLY, STEWED^5-099^oz.^28.35^61^N

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

	;;=25^9.79^0^195^65.59^^^11^1.42^21^149^183^75^2.58^.077^.02^^62^0^.063

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

	;;=.218^5.2^.874^.21^7^.21^1.89^.09^90^2.71^3.7^2.24^19^.86^^^0

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

	;;=.292^1.056^1.32^1.876^2.123^.692^.32^.992^.844^1.24^1.508^.776^1.364^2.227^3.743^1.228^1.028^.86

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

	;;=0^.03^.07^1.89^.5^.62^3.08^.12

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

	;;=USDA Std. Reference, Release 10

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

	;;=CHICKEN, WING, MEAT&SKIN, FRIED, BATTER^5-101^oz.^28.35^62^N

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

	;;=19.87^21.81^10.94^324^46.21^^^20^1.29^16^121^138^320^1.38^.063^.06^^113^0^.106

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

	;;=.152^5.265^.71^.3^6^.25^4.54^.24^79^5.83^8.96^5.07^34^1.17

FHINI01R  ; ; 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,441,1)

 +2       ;;=26.26^8.06^0^185^66.44^^^11^1.4^21^149^190^78^2.78^.077^.019^^60^0^.059

 +3       ;;^UTILITY(U,$J,112,441,2)

 +4       ;;=.216^4.798^.913^.21^8^.23^1.55^.07^89^2.2^2.93^1.88^18^.88^^^0

 +5       ;;^UTILITY(U,$J,112,441,3)

 +6       ;;=.307^1.109^1.387^1.971^2.231^.727^.336^1.042^.887^1.303^1.584^.815^1.433^2.341^3.933^1.29^1.08^.903

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

 +8       ;;=0^.03^.06^1.52^.4^.52^2.44^.12

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

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

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

 +12      ;;=CHICKEN, THIGH, MEAT&SKIN, FRIED, BATTER^5-092^oz.^28.35^81^N

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

 +14      ;;=21.61^16.53^9.08^277^51.5^^^18^1.45^21^155^192^288^2.04^.082^.057^^95^0^.119

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

 +16      ;;=.227^5.715^.982^.26^9^.28^3.49^.19^93^4.41^6.7^3.9^29^1.27

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

 +18      ;;=.248^.886^1.085^1.59^1.699^.568^.297^.864^.705^1.056^1.317^.632^1.21^1.869^3.465^1.288^1.114^.796

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

 +20      ;;=0^.02^.1^2.96^.56^1.24^6.01^.1

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

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

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

 +24      ;;=CHICKEN, THIGH, MEAT&SKIN, FRIED, FLR^5-093^oz.^28.35^77^N

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

 +26      ;;=26.75^14.98^3.18^262^54.14^^^14^1.49^25^187^237^88^2.52^.089^.036^^98^0^.094

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

 +28      ;;=.243^6.946^1.185^.33^8^.3^2.97^.14^97^4.09^5.87^3.41^29^.94

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

 +30      ;;=.302^1.105^1.346^1.958^2.169^.713^.358^1.051^.869^1.303^1.656^.791^1.531^2.365^4.031^1.643^1.295^.949

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

 +32      ;;=0^.03^.11^2.9^.72^.94^4.97^.13

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

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

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

 +36      ;;=CHICKEN, THIGH, MEAT&SKIN, ROASTED^5-094^oz.^28.35^77^N

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

 +38      ;;=25.06^15.49^0^247^59.42^^^12^1.34^22^174^222^84^2.36^.078^.021^^165^0^.067

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

 +40      ;;=.212^6.365^1.108^.31^7^.29^2.99^.14^93^4.33^6.15^3.42^48^.88^^^0

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

 +42      ;;=.281^1.037^1.256^1.827^2.047^.669^.333^.975^.81^1.218^1.566^.739^1.454^2.234^3.67^1.59^1.2^.882

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

 +44      ;;=0^.03^.12^3.14^.84^.89^5.08^.13

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

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

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

 +48      ;;=CHICKEN, THIGH, MEAT&SKIN, STEWED^5-095^oz.^28.35^76^N

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

 +50      ;;=23.26^14.74^0^232^63.11^^^11^1.37^19^139^170^71^2.25^.07^.019^^151^0^.057

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

 +52      ;;=.191^4.894^.776^.17^6^.19^2.84^.13^84^4.11^5.84^3.25^44^.78^^^0

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

 +54      ;;=.26^.962^1.164^1.695^1.898^.62^.31^.905^.751^1.13^1.456^.685^1.352^2.074^3.405^1.487^1.119^.82

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

 +56      ;;=0^.03^.12^3^.81^.84^4.83^.12

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

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

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

 +60      ;;=CHICKEN, THIGH, MEAT ONLY, FRIED^5-097^oz.^28.35^64^N

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

 +62      ;;=28.18^10.3^1.18^218^59.31^^^13^1.46^26^199^259^95^2.79^.09^.027^^70^0^.088

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

 +64      ;;=.255^7.12^1.285^.38^9^.33^2.04^.1^102^2.78^3.82^2.43^21^1.04^^^0

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

 +66      ;;=.329^1.188^1.486^2.115^2.384^.778^.362^1.121^.951^1.397^1.697^.874^1.534^2.504^4.257^1.382^1.172^.973

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

 +68      ;;=0^.03^.07^1.9^.46^.7^3.26^.14

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

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

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

 +72      ;;=CHICKEN, THIGH, MEAT ONLY, ROASTED^5-098^oz.^28.35^65^N

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

 +74      ;;=25.94^10.88^0^209^62.87^^^12^1.31^24^183^238^88^2.57^.081^.021^^65^0^.074

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

 +76      ;;=.231^6.525^1.184^.35^8^.31^2.1^.1^95^3.03^4.15^2.48^20^.95^^^0

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

 +78      ;;=.303^1.096^1.37^1.947^2.204^.718^.332^1.029^.876^1.287^1.565^.805^1.415^2.312^3.885^1.274^1.067^.892

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

 +80      ;;=0^.03^.08^2.12^.56^.69^3.46^.13^^29

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

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

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

 +84      ;;=CHICKEN, THIGH, MEAT ONLY, STEWED^5-099^oz.^28.35^61^N

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

 +86      ;;=25^9.79^0^195^65.59^^^11^1.42^21^149^183^75^2.58^.077^.02^^62^0^.063

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

 +88      ;;=.218^5.2^.874^.21^7^.21^1.89^.09^90^2.71^3.7^2.24^19^.86^^^0

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

 +90      ;;=.292^1.056^1.32^1.876^2.123^.692^.32^.992^.844^1.24^1.508^.776^1.364^2.227^3.743^1.228^1.028^.86

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

 +92      ;;=0^.03^.07^1.89^.5^.62^3.08^.12

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

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

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

 +96      ;;=CHICKEN, WING, MEAT&SKIN, FRIED, BATTER^5-101^oz.^28.35^62^N

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

 +98      ;;=19.87^21.81^10.94^324^46.21^^^20^1.29^16^121^138^320^1.38^.063^.06^^113^0^.106

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

 +100     ;;=.152^5.265^.71^.3^6^.25^4.54^.24^79^5.83^8.96^5.07^34^1.17

FHINI01R.m