FHINI03W ; ; 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,1259,0)
;;=HORSERADISH, PREPARED^1136-0^tbsp.^15^100^N
;;^UTILITY(U,$J,112,1259,1)
;;=1.3^.2^9.6^38^87.1^^^61^.9^^32^290^96^^^^^0^0^0
;;^UTILITY(U,$J,112,1259,2)
;;=0^0^^^^^0^^0^0^^^^1.8
;;^UTILITY(U,$J,112,1259,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1259,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1260,0)
;;=ICE CREAM CONES^18-271^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1260,1)
;;=8.1^6.9^79^417^5.3^^^25^3.6^26^97^112^143^.67^.204^.572^^0^0^.25
;;^UTILITY(U,$J,112,1260,2)
;;=.354^4.427^.479^.03^5^0^2.436^.175^0^1.029^2.639^2.611^0^.7^^^4.1
;;^UTILITY(U,$J,112,1260,3)
;;=.094^.217^.301^.561^.157^.142^.182^.4^.222^.34^.282^.172^.248^.328^2.845^.278^.954^.393
;;^UTILITY(U,$J,112,1260,4)
;;=^^.006^.719^.024^.304^2.615^^^4.8
;;^UTILITY(U,$J,112,1260,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1261,0)
;;=ICES, WATER, LIME^19-280^cups^193^100^N
;;^UTILITY(U,$J,112,1261,1)
;;=.4^0^32.6^78^66.9^^^2^.16^1^1^3^22^.02^.013^.02^^0^1^.001
;;^UTILITY(U,$J,112,1261,2)
;;=0^.007^.003^.001^0^0^^^0^^^^0^0^^^0
;;^UTILITY(U,$J,112,1261,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1261,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1262,0)
;;=JAMS AND PRESERVES, OTHER THAN RED CHERRY OR STRAWBERRY^1148-1^tbsp.^20^100^N
;;^UTILITY(U,$J,112,1262,1)
;;=.6^.1^70^272^29^^^20^1^^9^88^12^^^^^10^2^.01
;;^UTILITY(U,$J,112,1262,2)
;;=.03^.2^^^^^0^^0^0^^^^.3
;;^UTILITY(U,$J,112,1262,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1262,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1263,0)
;;=JAMS AND PRESERVES, (RED CHERRY OR STRAWBERRY)^1148-2^tbsp.^20^100^N
;;^UTILITY(U,$J,112,1263,1)
;;=.6^.1^70^272^29^^^20^1^^9^88^12^^^^^10^15^.01
;;^UTILITY(U,$J,112,1263,2)
;;=.03^.2^^^^^0^^0^0^^^^.3
;;^UTILITY(U,$J,112,1263,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1263,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1264,0)
;;=JELLY, OTHER THAN GUAVA^1149-1^tbsp.^18^100^N
;;^UTILITY(U,$J,112,1264,1)
;;=.1^.1^70.6^273^29^^^21^1.5^^7^75^17^^^^^10^4^.01
;;^UTILITY(U,$J,112,1264,2)
;;=.03^.2^^^^^0^^0^0^^^^.2
;;^UTILITY(U,$J,112,1264,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1264,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1265,0)
;;=JELLY, GUAVA^1149-2^tbsp.^18^100^N
;;^UTILITY(U,$J,112,1265,1)
;;=.1^.1^70.6^273^29^^^21^1.5^^7^75^17^^^^^10^40^.01
;;^UTILITY(U,$J,112,1265,2)
;;=.03^.2^^^^^0^^0^0^^^^.2
;;^UTILITY(U,$J,112,1265,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1265,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1266,0)
;;=JERUSALEM ARTICHOKE, RAW^11-226^oz.^28.3^69^N
;;^UTILITY(U,$J,112,1266,1)
;;=2^.01^17.44^76^78.01^^^14^3.4^17^78^429^4^.12^.14^.06^^20^4^.2
;;^UTILITY(U,$J,112,1266,2)
;;=.06^1.3^.397^.077^13.4^0^.001^0^0^0^.004^.001^2^2.54^^^1.6
;;^UTILITY(U,$J,112,1266,4)
;;=^^^0^^0^.004
;;^UTILITY(U,$J,112,1266,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1267,0)
;;=KALE, FRESH, RAW^11-233^cups^67^61^N
;;^UTILITY(U,$J,112,1267,1)
;;=3.3^.7^10.01^50^84.46^^^135^1.7^34^56^447^43^.44^.29^.774^^8900^120^.11
;;^UTILITY(U,$J,112,1267,2)
;;=.13^1^.091^.271^29.3^0^.138^.18^0^.091^.052^.338^890^1.53^^^2
;;^UTILITY(U,$J,112,1267,3)
;;=.04^.147^.197^.231^.197^.032^.044^.169^.117^.181^.184^.069^.166^.295^.374^.159^.196^.139
;;^UTILITY(U,$J,112,1267,4)
;;=0^.002^.003^.076^.001^.004^.049^.002^817
;;^UTILITY(U,$J,112,1267,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1268,0)
;;=KALE, FRESH, CKD WO/SALT^11-234^cups^110^100^N
;;^UTILITY(U,$J,112,1268,1)
;;=1.9^.4^5.63^32^91.2^^^72^.9^18^28^228^23^.24^.156^.416^^7400^41^.053
;;^UTILITY(U,$J,112,1268,2)
;;=.07^.5^.049^.138^13.3^0^.079^.103^0^.052^.03^.193^740^.87^^^2
;;^UTILITY(U,$J,112,1268,3)
;;=.023^.085^.114^.133^.114^.018^.025^.097^.067^.104^.106^.04^.096^.17^.216^.092^.113^.08
;;^UTILITY(U,$J,112,1268,4)
;;=0^.001^.002^.043^0^.002^.028^.001
;;^UTILITY(U,$J,112,1268,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1269,0)
;;=KALE, FRESH, CKD W/SALT^11-790^cups^110^100^N
;;^UTILITY(U,$J,112,1269,1)
;;=1.9^.4^5.63^32^91.2^^^72^.9^18^28^228^259^.24^.156^.416^^7400^41^.053
;;^UTILITY(U,$J,112,1269,2)
;;=.07^.5^.049^.138^13.3^0^.079^.103^0^.052^.03^.193^740^.87
;;^UTILITY(U,$J,112,1269,3)
;;=.023^.085^.114^.133^.114^.018^.025^.097^.067^.104^.106^.04^.096^.17^.216^.092^.113^.08
;;^UTILITY(U,$J,112,1269,4)
;;=0^.001^.002^.043^0^.002^.028^.001
;;^UTILITY(U,$J,112,1269,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1270,0)
;;=KALE, FRZ, CKD WO/SALT^11-236^cups^130^100^N
FHINI03W ; ; 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,1259,0)
+2 ;;=HORSERADISH, PREPARED^1136-0^tbsp.^15^100^N
+3 ;;^UTILITY(U,$J,112,1259,1)
+4 ;;=1.3^.2^9.6^38^87.1^^^61^.9^^32^290^96^^^^^0^0^0
+5 ;;^UTILITY(U,$J,112,1259,2)
+6 ;;=0^0^^^^^0^^0^0^^^^1.8
+7 ;;^UTILITY(U,$J,112,1259,4)
+8 ;;=^^^^^^0
+9 ;;^UTILITY(U,$J,112,1259,20)
+10 ;;=USDA Std. Reference, Release 8
+11 ;;^UTILITY(U,$J,112,1260,0)
+12 ;;=ICE CREAM CONES^18-271^oz.^28.3^100^N
+13 ;;^UTILITY(U,$J,112,1260,1)
+14 ;;=8.1^6.9^79^417^5.3^^^25^3.6^26^97^112^143^.67^.204^.572^^0^0^.25
+15 ;;^UTILITY(U,$J,112,1260,2)
+16 ;;=.354^4.427^.479^.03^5^0^2.436^.175^0^1.029^2.639^2.611^0^.7^^^4.1
+17 ;;^UTILITY(U,$J,112,1260,3)
+18 ;;=.094^.217^.301^.561^.157^.142^.182^.4^.222^.34^.282^.172^.248^.328^2.845^.278^.954^.393
+19 ;;^UTILITY(U,$J,112,1260,4)
+20 ;;=^^.006^.719^.024^.304^2.615^^^4.8
+21 ;;^UTILITY(U,$J,112,1260,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,1261,0)
+24 ;;=ICES, WATER, LIME^19-280^cups^193^100^N
+25 ;;^UTILITY(U,$J,112,1261,1)
+26 ;;=.4^0^32.6^78^66.9^^^2^.16^1^1^3^22^.02^.013^.02^^0^1^.001
+27 ;;^UTILITY(U,$J,112,1261,2)
+28 ;;=0^.007^.003^.001^0^0^^^0^^^^0^0^^^0
+29 ;;^UTILITY(U,$J,112,1261,4)
+30 ;;=^^^^^^0
+31 ;;^UTILITY(U,$J,112,1261,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,1262,0)
+34 ;;=JAMS AND PRESERVES, OTHER THAN RED CHERRY OR STRAWBERRY^1148-1^tbsp.^20^100^N
+35 ;;^UTILITY(U,$J,112,1262,1)
+36 ;;=.6^.1^70^272^29^^^20^1^^9^88^12^^^^^10^2^.01
+37 ;;^UTILITY(U,$J,112,1262,2)
+38 ;;=.03^.2^^^^^0^^0^0^^^^.3
+39 ;;^UTILITY(U,$J,112,1262,4)
+40 ;;=^^^^^^0
+41 ;;^UTILITY(U,$J,112,1262,20)
+42 ;;=USDA Std. Reference, Release 8
+43 ;;^UTILITY(U,$J,112,1263,0)
+44 ;;=JAMS AND PRESERVES, (RED CHERRY OR STRAWBERRY)^1148-2^tbsp.^20^100^N
+45 ;;^UTILITY(U,$J,112,1263,1)
+46 ;;=.6^.1^70^272^29^^^20^1^^9^88^12^^^^^10^15^.01
+47 ;;^UTILITY(U,$J,112,1263,2)
+48 ;;=.03^.2^^^^^0^^0^0^^^^.3
+49 ;;^UTILITY(U,$J,112,1263,4)
+50 ;;=^^^^^^0
+51 ;;^UTILITY(U,$J,112,1263,20)
+52 ;;=USDA Std. Reference, Release 8
+53 ;;^UTILITY(U,$J,112,1264,0)
+54 ;;=JELLY, OTHER THAN GUAVA^1149-1^tbsp.^18^100^N
+55 ;;^UTILITY(U,$J,112,1264,1)
+56 ;;=.1^.1^70.6^273^29^^^21^1.5^^7^75^17^^^^^10^4^.01
+57 ;;^UTILITY(U,$J,112,1264,2)
+58 ;;=.03^.2^^^^^0^^0^0^^^^.2
+59 ;;^UTILITY(U,$J,112,1264,4)
+60 ;;=^^^^^^0
+61 ;;^UTILITY(U,$J,112,1264,20)
+62 ;;=USDA Std. Reference, Release 8
+63 ;;^UTILITY(U,$J,112,1265,0)
+64 ;;=JELLY, GUAVA^1149-2^tbsp.^18^100^N
+65 ;;^UTILITY(U,$J,112,1265,1)
+66 ;;=.1^.1^70.6^273^29^^^21^1.5^^7^75^17^^^^^10^40^.01
+67 ;;^UTILITY(U,$J,112,1265,2)
+68 ;;=.03^.2^^^^^0^^0^0^^^^.2
+69 ;;^UTILITY(U,$J,112,1265,4)
+70 ;;=^^^^^^0
+71 ;;^UTILITY(U,$J,112,1265,20)
+72 ;;=USDA Std. Reference, Release 8
+73 ;;^UTILITY(U,$J,112,1266,0)
+74 ;;=JERUSALEM ARTICHOKE, RAW^11-226^oz.^28.3^69^N
+75 ;;^UTILITY(U,$J,112,1266,1)
+76 ;;=2^.01^17.44^76^78.01^^^14^3.4^17^78^429^4^.12^.14^.06^^20^4^.2
+77 ;;^UTILITY(U,$J,112,1266,2)
+78 ;;=.06^1.3^.397^.077^13.4^0^.001^0^0^0^.004^.001^2^2.54^^^1.6
+79 ;;^UTILITY(U,$J,112,1266,4)
+80 ;;=^^^0^^0^.004
+81 ;;^UTILITY(U,$J,112,1266,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,1267,0)
+84 ;;=KALE, FRESH, RAW^11-233^cups^67^61^N
+85 ;;^UTILITY(U,$J,112,1267,1)
+86 ;;=3.3^.7^10.01^50^84.46^^^135^1.7^34^56^447^43^.44^.29^.774^^8900^120^.11
+87 ;;^UTILITY(U,$J,112,1267,2)
+88 ;;=.13^1^.091^.271^29.3^0^.138^.18^0^.091^.052^.338^890^1.53^^^2
+89 ;;^UTILITY(U,$J,112,1267,3)
+90 ;;=.04^.147^.197^.231^.197^.032^.044^.169^.117^.181^.184^.069^.166^.295^.374^.159^.196^.139
+91 ;;^UTILITY(U,$J,112,1267,4)
+92 ;;=0^.002^.003^.076^.001^.004^.049^.002^817
+93 ;;^UTILITY(U,$J,112,1267,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,1268,0)
+96 ;;=KALE, FRESH, CKD WO/SALT^11-234^cups^110^100^N
+97 ;;^UTILITY(U,$J,112,1268,1)
+98 ;;=1.9^.4^5.63^32^91.2^^^72^.9^18^28^228^23^.24^.156^.416^^7400^41^.053
+99 ;;^UTILITY(U,$J,112,1268,2)
+100 ;;=.07^.5^.049^.138^13.3^0^.079^.103^0^.052^.03^.193^740^.87^^^2
+101 ;;^UTILITY(U,$J,112,1268,3)
+102 ;;=.023^.085^.114^.133^.114^.018^.025^.097^.067^.104^.106^.04^.096^.17^.216^.092^.113^.08
+103 ;;^UTILITY(U,$J,112,1268,4)
+104 ;;=0^.001^.002^.043^0^.002^.028^.001
+105 ;;^UTILITY(U,$J,112,1268,20)
+106 ;;=USDA Std. Reference, Release 10
+107 ;;^UTILITY(U,$J,112,1269,0)
+108 ;;=KALE, FRESH, CKD W/SALT^11-790^cups^110^100^N
+109 ;;^UTILITY(U,$J,112,1269,1)
+110 ;;=1.9^.4^5.63^32^91.2^^^72^.9^18^28^228^259^.24^.156^.416^^7400^41^.053
+111 ;;^UTILITY(U,$J,112,1269,2)
+112 ;;=.07^.5^.049^.138^13.3^0^.079^.103^0^.052^.03^.193^740^.87
+113 ;;^UTILITY(U,$J,112,1269,3)
+114 ;;=.023^.085^.114^.133^.114^.018^.025^.097^.067^.104^.106^.04^.096^.17^.216^.092^.113^.08
+115 ;;^UTILITY(U,$J,112,1269,4)
+116 ;;=0^.001^.002^.043^0^.002^.028^.001
+117 ;;^UTILITY(U,$J,112,1269,20)
+118 ;;=USDA Std. Reference, Release 10
+119 ;;^UTILITY(U,$J,112,1270,0)
+120 ;;=KALE, FRZ, CKD WO/SALT^11-236^cups^130^100^N