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
