FHINI01I ; ; 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,360,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,361,0)
;;=MAYONNAISE, IMITATION, SOYBEAN^4-027^tbsp.^15^100^N
;;^UTILITY(U,$J,112,361,1)
;;=.3^19.2^16^231.6^62.7^^^.01^0^.01^.05^10^497^.11^^^2^0^0^0
;;^UTILITY(U,$J,112,361,2)
;;=0^0^0^0^0^0^9^1.6^24^3.3^4.5^10.6^0^1.8^^^0^18
;;^UTILITY(U,$J,112,361,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,361,4)
;;=0^0^0^2.4^0^.9^4.5^0
;;^UTILITY(U,$J,112,361,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,362,0)
;;=SANDWICH SPREAD, W/CHOPPED PICKLE^4-030^tbsp.^15.3^100^N
;;^UTILITY(U,$J,112,362,1)
;;=.9^34^22.4^389^40.8^^^0^0^0^0^35^1000^0^^^4^0^0^0
;;^UTILITY(U,$J,112,362,2)
;;=0^0^0^0^0^0^18.1^1.9^76^5.1^7.4^20^0^2^^^.4^34.5
;;^UTILITY(U,$J,112,362,3)
;;=.013^.049^.052^.077^.061^.023^.016^.039^.039^.055^.062^.022^.045^.075^.11^.027^.037^.075
;;^UTILITY(U,$J,112,362,4)
;;=0^0^0^3.9^0^1.2^7.4^0
;;^UTILITY(U,$J,112,362,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,363,0)
;;=SHORTENING, HOUSEHOLD, SYBN(HYDR)-CTTNSD(HYDR)^4-031^cups^205^100^N
;;^UTILITY(U,$J,112,363,1)
;;=0^100^0^884^0^^^0^0^0^0^0^0^0^^^8^0^0^0
;;^UTILITY(U,$J,112,363,2)
;;=0^0^0^0^0^0^24.5^1.6^0^25^44.5^26.1^0^0^^^0^65
;;^UTILITY(U,$J,112,363,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,363,4)
;;=0^0^.4^14.1^0^10.6^44.5^0
;;^UTILITY(U,$J,112,363,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,364,0)
;;=OIL, PEANUT^4-042^cups^216^100^N
;;^UTILITY(U,$J,112,364,1)
;;=0^100^0^884^0^^^.09^.03^.04^0^.01^.11^.01^^^11.6^0^0^0
;;^UTILITY(U,$J,112,364,2)
;;=0^0^0^0^0^0^32^0^0^16.9^46.2^32^0^0^^^0^25
;;^UTILITY(U,$J,112,364,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,364,4)
;;=0^0^.1^9.5^.1^2.2^44.8^0^.7
;;^UTILITY(U,$J,112,364,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,365,0)
;;=OIL, SOYBEAN^4-044^cups^218^100^N
;;^UTILITY(U,$J,112,365,1)
;;=0^100^0^884^0^^^.04^.02^.03^.25^0^0^0^^^11^0^0^0
;;^UTILITY(U,$J,112,365,2)
;;=0^0^0^0^0^0^51^6.8^0^14.4^23.3^57.9^0^0^^^0^93.7
;;^UTILITY(U,$J,112,365,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,365,4)
;;=0^0^.1^10.3^.2^3.8^22.8^0^193
;;^UTILITY(U,$J,112,365,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,366,0)
;;=OIL, COCONUT^4-047^cups^218^100^N
;;^UTILITY(U,$J,112,366,1)
;;=0^100^0^862^0^^^0^.04^0^0^0^0^0^0^0^^0^0^0
;;^UTILITY(U,$J,112,366,2)
;;=0^0^0^0^0^0^1.8^^0^86.5^5.8^1.8^0^0^^^0
;;^UTILITY(U,$J,112,366,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,366,4)
;;=6^44.6^16.8^8.2^^2.8^5.8^^10
;;^UTILITY(U,$J,112,366,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,367,0)
;;=OIL, OLIVE^4-053^cups^216^100^N
;;^UTILITY(U,$J,112,367,1)
;;=0^100^0^884^0^^^.18^.38^.01^1.22^0^.04^.06^^^11.9^0^0^0
;;^UTILITY(U,$J,112,367,2)
;;=0^0^0^0^0^0^7.9^.6^0^13.5^73.7^8.4^0^0^^^0^12.6
;;^UTILITY(U,$J,112,367,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,367,4)
;;=0^0^0^11^.8^2.2^72.5^0^49
;;^UTILITY(U,$J,112,367,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,368,0)
;;=OIL, SESAME^4-058^cups^218^100^N
;;^UTILITY(U,$J,112,368,1)
;;=0^100^0^884^0^^^0^0^0^0^0^0^0^^^1.4^0^0^0
;;^UTILITY(U,$J,112,368,2)
;;=0^0^0^0^0^0^41.3^.3^0^14.2^39.7^41.7^0^0^^^0^29.1
;;^UTILITY(U,$J,112,368,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,368,4)
;;=0^0^0^8.9^.2^4.8^39.3^0^10
;;^UTILITY(U,$J,112,368,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,369,0)
;;=OIL, SUNFLOWER, LINOLEIC (LESS THAN 60%)^4-060^cups^218^100^N
;;^UTILITY(U,$J,112,369,1)
;;=0^100^0^884^0^^^.19^.03^.19^0^0^.09^0^^^59.5^0^0^0
;;^UTILITY(U,$J,112,369,2)
;;=0^0^0^0^0^0^39.8^.2^0^10.1^45.4^40.1^0^0^^^0^63.6
;;^UTILITY(U,$J,112,369,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,369,4)
;;=0^0^0^5.4^.2^3.5^45.3^0^10
;;^UTILITY(U,$J,112,369,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,370,0)
;;=MARGARINE, REGULAR, HARD, CORN&SYBN&CTTNSD, W/SALT^4-067^tsp.^4.7^100^N
;;^UTILITY(U,$J,112,370,1)
;;=.9^80.5^.9^718.7^15.7^^^29.9^0^2.6^22.9^42.4^943.42^0^^^11^3307^.16^.01
;;^UTILITY(U,$J,112,370,2)
;;=.037^.023^.084^.009^1.18^.095^24.8^.3^0^15^36.8^25.1^993^2^^^0^65.8
;;^UTILITY(U,$J,112,370,3)
;;=.012^.039^.052^.084^.068^.021^.008^.041^.041^.057^.031^.023^.029^.065^.179^.018^.083^.046
;;^UTILITY(U,$J,112,370,4)
;;=0^.3^.2^9.6^0^5^36.8^0
;;^UTILITY(U,$J,112,370,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,371,0)
;;=MARGARINE, REGULAR, HARD, CORN&SYBN&CTTNSD, WO/SALT^4-068^tsp.^4.7^100^N
FHINI01I ; ; 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,360,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,361,0)
+4 ;;=MAYONNAISE, IMITATION, SOYBEAN^4-027^tbsp.^15^100^N
+5 ;;^UTILITY(U,$J,112,361,1)
+6 ;;=.3^19.2^16^231.6^62.7^^^.01^0^.01^.05^10^497^.11^^^2^0^0^0
+7 ;;^UTILITY(U,$J,112,361,2)
+8 ;;=0^0^0^0^0^0^9^1.6^24^3.3^4.5^10.6^0^1.8^^^0^18
+9 ;;^UTILITY(U,$J,112,361,3)
+10 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+11 ;;^UTILITY(U,$J,112,361,4)
+12 ;;=0^0^0^2.4^0^.9^4.5^0
+13 ;;^UTILITY(U,$J,112,361,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,362,0)
+16 ;;=SANDWICH SPREAD, W/CHOPPED PICKLE^4-030^tbsp.^15.3^100^N
+17 ;;^UTILITY(U,$J,112,362,1)
+18 ;;=.9^34^22.4^389^40.8^^^0^0^0^0^35^1000^0^^^4^0^0^0
+19 ;;^UTILITY(U,$J,112,362,2)
+20 ;;=0^0^0^0^0^0^18.1^1.9^76^5.1^7.4^20^0^2^^^.4^34.5
+21 ;;^UTILITY(U,$J,112,362,3)
+22 ;;=.013^.049^.052^.077^.061^.023^.016^.039^.039^.055^.062^.022^.045^.075^.11^.027^.037^.075
+23 ;;^UTILITY(U,$J,112,362,4)
+24 ;;=0^0^0^3.9^0^1.2^7.4^0
+25 ;;^UTILITY(U,$J,112,362,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,363,0)
+28 ;;=SHORTENING, HOUSEHOLD, SYBN(HYDR)-CTTNSD(HYDR)^4-031^cups^205^100^N
+29 ;;^UTILITY(U,$J,112,363,1)
+30 ;;=0^100^0^884^0^^^0^0^0^0^0^0^0^^^8^0^0^0
+31 ;;^UTILITY(U,$J,112,363,2)
+32 ;;=0^0^0^0^0^0^24.5^1.6^0^25^44.5^26.1^0^0^^^0^65
+33 ;;^UTILITY(U,$J,112,363,3)
+34 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+35 ;;^UTILITY(U,$J,112,363,4)
+36 ;;=0^0^.4^14.1^0^10.6^44.5^0
+37 ;;^UTILITY(U,$J,112,363,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,364,0)
+40 ;;=OIL, PEANUT^4-042^cups^216^100^N
+41 ;;^UTILITY(U,$J,112,364,1)
+42 ;;=0^100^0^884^0^^^.09^.03^.04^0^.01^.11^.01^^^11.6^0^0^0
+43 ;;^UTILITY(U,$J,112,364,2)
+44 ;;=0^0^0^0^0^0^32^0^0^16.9^46.2^32^0^0^^^0^25
+45 ;;^UTILITY(U,$J,112,364,3)
+46 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+47 ;;^UTILITY(U,$J,112,364,4)
+48 ;;=0^0^.1^9.5^.1^2.2^44.8^0^.7
+49 ;;^UTILITY(U,$J,112,364,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,365,0)
+52 ;;=OIL, SOYBEAN^4-044^cups^218^100^N
+53 ;;^UTILITY(U,$J,112,365,1)
+54 ;;=0^100^0^884^0^^^.04^.02^.03^.25^0^0^0^^^11^0^0^0
+55 ;;^UTILITY(U,$J,112,365,2)
+56 ;;=0^0^0^0^0^0^51^6.8^0^14.4^23.3^57.9^0^0^^^0^93.7
+57 ;;^UTILITY(U,$J,112,365,3)
+58 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+59 ;;^UTILITY(U,$J,112,365,4)
+60 ;;=0^0^.1^10.3^.2^3.8^22.8^0^193
+61 ;;^UTILITY(U,$J,112,365,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,366,0)
+64 ;;=OIL, COCONUT^4-047^cups^218^100^N
+65 ;;^UTILITY(U,$J,112,366,1)
+66 ;;=0^100^0^862^0^^^0^.04^0^0^0^0^0^0^0^^0^0^0
+67 ;;^UTILITY(U,$J,112,366,2)
+68 ;;=0^0^0^0^0^0^1.8^^0^86.5^5.8^1.8^0^0^^^0
+69 ;;^UTILITY(U,$J,112,366,3)
+70 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+71 ;;^UTILITY(U,$J,112,366,4)
+72 ;;=6^44.6^16.8^8.2^^2.8^5.8^^10
+73 ;;^UTILITY(U,$J,112,366,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,367,0)
+76 ;;=OIL, OLIVE^4-053^cups^216^100^N
+77 ;;^UTILITY(U,$J,112,367,1)
+78 ;;=0^100^0^884^0^^^.18^.38^.01^1.22^0^.04^.06^^^11.9^0^0^0
+79 ;;^UTILITY(U,$J,112,367,2)
+80 ;;=0^0^0^0^0^0^7.9^.6^0^13.5^73.7^8.4^0^0^^^0^12.6
+81 ;;^UTILITY(U,$J,112,367,3)
+82 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+83 ;;^UTILITY(U,$J,112,367,4)
+84 ;;=0^0^0^11^.8^2.2^72.5^0^49
+85 ;;^UTILITY(U,$J,112,367,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,368,0)
+88 ;;=OIL, SESAME^4-058^cups^218^100^N
+89 ;;^UTILITY(U,$J,112,368,1)
+90 ;;=0^100^0^884^0^^^0^0^0^0^0^0^0^^^1.4^0^0^0
+91 ;;^UTILITY(U,$J,112,368,2)
+92 ;;=0^0^0^0^0^0^41.3^.3^0^14.2^39.7^41.7^0^0^^^0^29.1
+93 ;;^UTILITY(U,$J,112,368,3)
+94 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+95 ;;^UTILITY(U,$J,112,368,4)
+96 ;;=0^0^0^8.9^.2^4.8^39.3^0^10
+97 ;;^UTILITY(U,$J,112,368,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,369,0)
+100 ;;=OIL, SUNFLOWER, LINOLEIC (LESS THAN 60%)^4-060^cups^218^100^N
+101 ;;^UTILITY(U,$J,112,369,1)
+102 ;;=0^100^0^884^0^^^.19^.03^.19^0^0^.09^0^^^59.5^0^0^0
+103 ;;^UTILITY(U,$J,112,369,2)
+104 ;;=0^0^0^0^0^0^39.8^.2^0^10.1^45.4^40.1^0^0^^^0^63.6
+105 ;;^UTILITY(U,$J,112,369,3)
+106 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+107 ;;^UTILITY(U,$J,112,369,4)
+108 ;;=0^0^0^5.4^.2^3.5^45.3^0^10
+109 ;;^UTILITY(U,$J,112,369,20)
+110 ;;=USDA Std. Reference, Release 10
+111 ;;^UTILITY(U,$J,112,370,0)
+112 ;;=MARGARINE, REGULAR, HARD, CORN&SYBN&CTTNSD, W/SALT^4-067^tsp.^4.7^100^N
+113 ;;^UTILITY(U,$J,112,370,1)
+114 ;;=.9^80.5^.9^718.7^15.7^^^29.9^0^2.6^22.9^42.4^943.42^0^^^11^3307^.16^.01
+115 ;;^UTILITY(U,$J,112,370,2)
+116 ;;=.037^.023^.084^.009^1.18^.095^24.8^.3^0^15^36.8^25.1^993^2^^^0^65.8
+117 ;;^UTILITY(U,$J,112,370,3)
+118 ;;=.012^.039^.052^.084^.068^.021^.008^.041^.041^.057^.031^.023^.029^.065^.179^.018^.083^.046
+119 ;;^UTILITY(U,$J,112,370,4)
+120 ;;=0^.3^.2^9.6^0^5^36.8^0
+121 ;;^UTILITY(U,$J,112,370,20)
+122 ;;=USDA Std. Reference, Release 10
+123 ;;^UTILITY(U,$J,112,371,0)
+124 ;;=MARGARINE, REGULAR, HARD, CORN&SYBN&CTTNSD, WO/SALT^4-068^tsp.^4.7^100^N
