Routine: FHINI01J

FHINI01J	; ; 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,371,1)

	;;=.5^80.3^.5^714^18.5^^^17.4^0^1.51^13.3^24.7^2.2^0^^^11.6^3307^.093^.006

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

	;;=.021^.013^.049^.005^.69^.056^24.7^.3^0^15^36.7^25^993^.2^^^0^51.8

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

	;;=.007^.022^.03^.049^.039^.012^.005^.024^.024^.033^.018^.013^.017^.038^.104^.011^.048^.027

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

	;;=0^.3^.2^9.5^0^5^36.7^0

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

	;;=USDA Std. Reference, Release 10

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

	;;=MARGARINE, REGULAR, HARD, SYBN^4-073^tsp.^4.7^100^N

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

	;;=.9^80.5^.9^718.7^15.7^^^29.9^0^2.6^22.9^42.4^943.42^0^^^3.1^3307^.16^.01

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

	;;=.037^.023^.084^.009^1.18^.095^19.4^1.5^0^16.7^39.3^20.9^993^2^^^0^15.5

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

	;;=.012^.039^.052^.084^.068^.021^.008^.041^.041^.057^.031^.023^.029^.065^.179^.018^.083^.046

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

	;;=0^0^.2^9.6^.2^6.9^39.1^0

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

	;;=USDA Std. Reference, Release 10

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

	;;=MARGARINE, REGULAR, HARD, SFLWR&SYBN^4-078^tsp.^4.7^100^N

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

	;;=.9^80.5^.9^718.7^15.7^^^29.9^0^2.6^22.9^42.4^943.42^0^^^17.8^3307^.16^.01

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

	;;=.037^.023^.084^.009^1.18^.095^31.3^.2^0^13.8^31.7^31.4^993^2^^^0^89

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

	;;=.012^.039^.052^.084^.068^.021^.008^.041^.041^.057^.031^.023^.029^.065^.179^.018^.083^.046

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

	;;=0^.4^.2^7^.1^6.1^31.7^0

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

	;;=USDA Std. Reference, Release 10

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

	;;=MARGARINE, REGULAR, HARD, LARD^4-091^tsp.^4.7^100^N

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

	;;=.9^80.5^.9^733.2^15.7^^^0^0^0^0^42.4^943.42^0^^^1.4^0^0^0

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

	;;=0^0^0^0^0^0^7.1^.4^51^31.6^37.8^7.5^0^2^^^0^1.4

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

	;;=.012^.039^.052^.084^.068^.021^.008^.041^.041^.057^.031^.023^.029^.065^.179^.018^.083^.046

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

	;;=.1^.2^1^19.1^2.2^10.8^34.7^0

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

	;;=USDA Std. Reference, Release 10

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

	;;=MARGARINE, SOFT, CORN^4-092^tsp.^4.7^100^N

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

	;;=.8^80.4^.5^716.4^16.2^^^26.5^0^2.31^20.3^37.7^1078.65^0^^^10^3307^.141^.009

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

	;;=.032^.02^.075^.008^1.05^.084^30.3^.9^0^14.1^31.6^31.2^993^2^^^0^42.4

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

	;;=.011^.034^.046^.074^.06^.019^.007^.037^.037^.051^.027^.021^.026^.058^.159^.016^.074^.041

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

	;;=0^0^.1^9.3^0^4.7^31.6^0

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

	;;=USDA Std. Reference, Release 10

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

	;;=MARGARINE, SOFT, SYBN&CTTNSD, WO/SALT^4-096^tsp.^4.7^100^N

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

	;;=.8^80.3^.9^716.4^17.9^^^26.5^0^2.31^20.3^37.7^27.54^0^^^7^3307^.141^.009

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

	;;=.032^.02^.075^.008^1.05^.084^23.2^1.3^0^14.1^38.1^24.5^993^.2^^^0^56

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

	;;=.011^.034^.046^.074^.06^.019^.007^.037^.037^.051^.027^.021^.026^.058^.159^.016^.074^.041

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

	;;=0^^.1^8.7^0^5.3^38.1^0

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

	;;=USDA Std. Reference, Release 10

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

	;;=MARGARINE, SOFT, SYBN&CTTNSD, W/SALT^4-097^tsp.^4.7^100^N

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

	;;=.8^80.4^.5^716.4^16.2^^^26.5^0^2.31^20.3^37.7^1078.65^0^^^5.7^3307^.141^.009

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

	;;=.032^.02^.075^.008^1.05^.084^23.3^1.3^0^14.2^38.2^24.6^993^2^^^0^72.6

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

	;;=.011^.034^.046^.074^.06^.019^.007^.037^.037^.051^.027^.021^.026^.058^.159^.016^.074^.041

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

	;;=0^0^.1^8.7^0^5.3^38.2^0

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

	;;=USDA Std. Reference, Release 10

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

	;;=MARGARINE, REGULAR, LIQUID, SYBN&CTTNSD^4-105^tsp.^4.7^100^N

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

	;;=1.9^80.6^0^721^15.8^^^66.1^0^5.78^50.9^94.3^780.9^0^^^4.6^3307^.355^.022

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

	;;=.081^.05^.187^.019^2.63^.212^33.4^2.4^0^13.2^28.1^35.8^993^2^^^0^75

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

	;;=.027^.086^.115^.186^.151^.048^.018^.092^.092^.127^.069^.052^.066^.144^.398^.04^.184^.103

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

	;;=0^0^.1^8.6^0^4.6^28.1^0

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

	;;=USDA Std. Reference, Release 10

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

	;;=MARGARINE-LIKE SPREAD, APPX 60% FAT, TUB^4-106^tsp.^4.7^100^N

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

	;;=.6^60.8^0^539.6^37^^^20.9^0^1.82^16.1^29.8^993.88^0^^^5^3307^.112^.007

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

	;;=.026^.016^.059^.006^.83^.067^7^.2^0^12^38.9^7.1^993^1.7^^^0^42

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

	;;=.008^.027^.036^.059^.048^.015^.006^.029^.029^.04^.022^.016^.021^.045^.126^.013^.058^.033

FHINI01J  ; ; 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,371,1)

 +2       ;;=.5^80.3^.5^714^18.5^^^17.4^0^1.51^13.3^24.7^2.2^0^^^11.6^3307^.093^.006

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

 +4       ;;=.021^.013^.049^.005^.69^.056^24.7^.3^0^15^36.7^25^993^.2^^^0^51.8

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

 +6       ;;=.007^.022^.03^.049^.039^.012^.005^.024^.024^.033^.018^.013^.017^.038^.104^.011^.048^.027

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

 +8       ;;=0^.3^.2^9.5^0^5^36.7^0

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

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

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

 +12      ;;=MARGARINE, REGULAR, HARD, SYBN^4-073^tsp.^4.7^100^N

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

 +14      ;;=.9^80.5^.9^718.7^15.7^^^29.9^0^2.6^22.9^42.4^943.42^0^^^3.1^3307^.16^.01

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

 +16      ;;=.037^.023^.084^.009^1.18^.095^19.4^1.5^0^16.7^39.3^20.9^993^2^^^0^15.5

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

 +18      ;;=.012^.039^.052^.084^.068^.021^.008^.041^.041^.057^.031^.023^.029^.065^.179^.018^.083^.046

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

 +20      ;;=0^0^.2^9.6^.2^6.9^39.1^0

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

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

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

 +24      ;;=MARGARINE, REGULAR, HARD, SFLWR&SYBN^4-078^tsp.^4.7^100^N

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

 +26      ;;=.9^80.5^.9^718.7^15.7^^^29.9^0^2.6^22.9^42.4^943.42^0^^^17.8^3307^.16^.01

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

 +28      ;;=.037^.023^.084^.009^1.18^.095^31.3^.2^0^13.8^31.7^31.4^993^2^^^0^89

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

 +30      ;;=.012^.039^.052^.084^.068^.021^.008^.041^.041^.057^.031^.023^.029^.065^.179^.018^.083^.046

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

 +32      ;;=0^.4^.2^7^.1^6.1^31.7^0

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

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

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

 +36      ;;=MARGARINE, REGULAR, HARD, LARD^4-091^tsp.^4.7^100^N

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

 +38      ;;=.9^80.5^.9^733.2^15.7^^^0^0^0^0^42.4^943.42^0^^^1.4^0^0^0

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

 +40      ;;=0^0^0^0^0^0^7.1^.4^51^31.6^37.8^7.5^0^2^^^0^1.4

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

 +42      ;;=.012^.039^.052^.084^.068^.021^.008^.041^.041^.057^.031^.023^.029^.065^.179^.018^.083^.046

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

 +44      ;;=.1^.2^1^19.1^2.2^10.8^34.7^0

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

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

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

 +48      ;;=MARGARINE, SOFT, CORN^4-092^tsp.^4.7^100^N

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

 +50      ;;=.8^80.4^.5^716.4^16.2^^^26.5^0^2.31^20.3^37.7^1078.65^0^^^10^3307^.141^.009

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

 +52      ;;=.032^.02^.075^.008^1.05^.084^30.3^.9^0^14.1^31.6^31.2^993^2^^^0^42.4

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

 +54      ;;=.011^.034^.046^.074^.06^.019^.007^.037^.037^.051^.027^.021^.026^.058^.159^.016^.074^.041

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

 +56      ;;=0^0^.1^9.3^0^4.7^31.6^0

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

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

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

 +60      ;;=MARGARINE, SOFT, SYBN&CTTNSD, WO/SALT^4-096^tsp.^4.7^100^N

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

 +62      ;;=.8^80.3^.9^716.4^17.9^^^26.5^0^2.31^20.3^37.7^27.54^0^^^7^3307^.141^.009

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

 +64      ;;=.032^.02^.075^.008^1.05^.084^23.2^1.3^0^14.1^38.1^24.5^993^.2^^^0^56

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

 +66      ;;=.011^.034^.046^.074^.06^.019^.007^.037^.037^.051^.027^.021^.026^.058^.159^.016^.074^.041

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

 +68      ;;=0^^.1^8.7^0^5.3^38.1^0

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

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

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

 +72      ;;=MARGARINE, SOFT, SYBN&CTTNSD, W/SALT^4-097^tsp.^4.7^100^N

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

 +74      ;;=.8^80.4^.5^716.4^16.2^^^26.5^0^2.31^20.3^37.7^1078.65^0^^^5.7^3307^.141^.009

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

 +76      ;;=.032^.02^.075^.008^1.05^.084^23.3^1.3^0^14.2^38.2^24.6^993^2^^^0^72.6

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

 +78      ;;=.011^.034^.046^.074^.06^.019^.007^.037^.037^.051^.027^.021^.026^.058^.159^.016^.074^.041

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

 +80      ;;=0^0^.1^8.7^0^5.3^38.2^0

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

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

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

 +84      ;;=MARGARINE, REGULAR, LIQUID, SYBN&CTTNSD^4-105^tsp.^4.7^100^N

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

 +86      ;;=1.9^80.6^0^721^15.8^^^66.1^0^5.78^50.9^94.3^780.9^0^^^4.6^3307^.355^.022

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

 +88      ;;=.081^.05^.187^.019^2.63^.212^33.4^2.4^0^13.2^28.1^35.8^993^2^^^0^75

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

 +90      ;;=.027^.086^.115^.186^.151^.048^.018^.092^.092^.127^.069^.052^.066^.144^.398^.04^.184^.103

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

 +92      ;;=0^0^.1^8.6^0^4.6^28.1^0

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

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

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

 +96      ;;=MARGARINE-LIKE SPREAD, APPX 60% FAT, TUB^4-106^tsp.^4.7^100^N

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

 +98      ;;=.6^60.8^0^539.6^37^^^20.9^0^1.82^16.1^29.8^993.88^0^^^5^3307^.112^.007

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

 +100     ;;=.026^.016^.059^.006^.83^.067^7^.2^0^12^38.9^7.1^993^1.7^^^0^42

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

 +102     ;;=.008^.027^.036^.059^.048^.015^.006^.029^.029^.04^.022^.016^.021^.045^.126^.013^.058^.033

FHINI01J.m