FHINI03G ; ; 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,1083,1)
;;=6.7^15.5^22.9^258^53.5^^^66^1.17^12^109^115^341^.6^.035^.112^^745^.3^.122
;;^UTILITY(U,$J,112,1083,2)
;;=.28^.835^.517^.062^15^.36^3.918^.182^134^3.679^6.527^4.156^199^1.3
;;^UTILITY(U,$J,112,1083,3)
;;=.083^.283^.339^.558^.411^.179^.133^.342^.264^.381^.338^.16^.307^.547^1.28^.211^.452^.431
;;^UTILITY(U,$J,112,1083,4)
;;=.019^.021^.111^2.29^.108^1.177^6.406^.044
;;^UTILITY(U,$J,112,1083,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1084,0)
;;=CRESS, GARDEN, RAW^11-203^cups^50^71^N
;;^UTILITY(U,$J,112,1084,1)
;;=2.6^.7^5.5^32^89.4^^^81^1.3^38^76^606^14^.23^.17^.553^^9300^69^.08
;;^UTILITY(U,$J,112,1084,2)
;;=.26^1^.242^.247^80.4^0^.152^.076^0^.023^.239^.228^930^1.8^^^1.2
;;^UTILITY(U,$J,112,1084,4)
;;=^^^.016^^.007^.087
;;^UTILITY(U,$J,112,1084,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1085,0)
;;=CRESS, GARDEN, CKD, W/SALT^11-781^cups^135^100^N
;;^UTILITY(U,$J,112,1085,1)
;;=1.9^.6^3.8^23^92.5^^^61^.8^26^48^353^244^.15^.114^.372^^7700^23^.06
;;^UTILITY(U,$J,112,1085,2)
;;=.16^.8^.163^.157^37^0^.13^.065^0^.02^.205^.196^770^1.2
;;^UTILITY(U,$J,112,1085,4)
;;=^^^.014^^.006^.075
;;^UTILITY(U,$J,112,1085,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1086,0)
;;=CROAKER, ATLANTIC, BREADED AND FRIED^15-021^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1086,1)
;;=18.2^12.67^7.54^221^59.76^^^32^.86^42^217^340^348^.52^.065^.08^^75^0^.09
;;^UTILITY(U,$J,112,1086,2)
;;=.13^4.3^.74^.26^18.1^2.1^2.376^.157^84^3.476^5.32^2.917^22^1.37
;;^UTILITY(U,$J,112,1086,3)
;;=.208^.788^.847^1.48^1.571^.525^.217^.742^.621^.947^1.061^.525^1.067^1.791^2.981^.85^.759^.788
;;^UTILITY(U,$J,112,1086,4)
;;=^^.088^2.194^.444^1.193^4.789^.089
;;^UTILITY(U,$J,112,1086,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1087,0)
;;=CROCKER, YELLOWFIN, RAW^941-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1087,1)
;;=19.2^.8^0^89^79^^^10^.4^^194^234^87^^^^^60^0^.12
;;^UTILITY(U,$J,112,1087,2)
;;=.08^5.5^^^^^0^^55^0
;;^UTILITY(U,$J,112,1087,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1089,0)
;;=CUCUMBERS, RAW, PARED^11-205^slices^4^97^N
;;^UTILITY(U,$J,112,1089,1)
;;=.69^.13^2.76^13^96.01^^^14^.26^11^20^144^2^.2^.033^.076^^215^5.3^.024
;;^UTILITY(U,$J,112,1089,2)
;;=.022^.221^.178^.042^13^0^.022^.03^0^.034^.003^.053^21^.41^^^.5
;;^UTILITY(U,$J,112,1089,3)
;;=.005^.019^.021^.029^.029^.006^.004^.019^.011^.022^.044^.01^.024^.041^.196^.024^.015^.02
;;^UTILITY(U,$J,112,1089,4)
;;=^0^.001^.028^0^.003^.003^^19
;;^UTILITY(U,$J,112,1089,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1090,0)
;;=CUSTARD, BAKED^19-168^cups^265^100^N
;;^UTILITY(U,$J,112,1090,1)
;;=5.1^4.7^10.7^105^78.7^^^112^.3^14^113^153^77^.53^.014^.007^^222^.5^.033
;;^UTILITY(U,$J,112,1090,2)
;;=.227^.085^.473^.051^10^.31^.27^.05^87^2.35^1.51^.35^60^.8
;;^UTILITY(U,$J,112,1090,3)
;;=.065^.229^.286^.456^.375^.137^.076^.249^.222^.317^.231^.126^.217^.429^.859^.132^.352^.313
;;^UTILITY(U,$J,112,1090,4)
;;=.07^.08^.31^1.19^.12^.51^1.38^.03
;;^UTILITY(U,$J,112,1090,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1091,0)
;;=DANDELION GREENS, RAW^11-207^cups^110^100^N
;;^UTILITY(U,$J,112,1091,1)
;;=2.7^.7^9.2^45^85.6^^^187^3.1^36^66^397^76^.41^.171^.342^^14000^35^.19
;;^UTILITY(U,$J,112,1091,2)
;;=.26^.806^.084^.251^27.2^0^^^0^^^^1400^1.8^^^3.5
;;^UTILITY(U,$J,112,1091,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1092,0)
;;=DANDELION GREENS, BOILED, WO/SALT^11-208^cups^105^100^N
;;^UTILITY(U,$J,112,1092,1)
;;=2^.6^6.4^33^89.8^^^140^1.8^24^42^232^44^.28^.115^.23^^11700^18^.13
;;^UTILITY(U,$J,112,1092,2)
;;=.175^.514^.057^.16^12.5^0^^^0^^^^1170^1.2^^^2.9
;;^UTILITY(U,$J,112,1092,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1093,0)
;;=DANDELION GREENS, BOILED, W/SALT^11-782^cups^105^100^N
;;^UTILITY(U,$J,112,1093,1)
;;=2^.6^6.4^33^89.8^^^140^1.8^24^42^232^280^.28^.115^.23^^11700^18^.13
;;^UTILITY(U,$J,112,1093,2)
;;=.175^.514^.057^.16^12.5^0^^^0^^^^1170^1.2
;;^UTILITY(U,$J,112,1093,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1094,0)
;;=DOUGHNUTS, CAKE TYPE, W/ENR FLOUR^18-248^doughnuts^25^100^N
;;^UTILITY(U,$J,112,1094,1)
;;=5^22.9^49.7^421^20.8^^^44^1.95^20^269^127^546^.55^.102^.341^^57^.2^.222
;;^UTILITY(U,$J,112,1094,2)
;;=.24^1.853^.276^.056^8^.23^7.558^.551^37^3.751^9.628^8.145^17^1.5^^^1.7
;;^UTILITY(U,$J,112,1094,3)
;;=.065^.174^.213^.378^.231^.098^.096^.231^.17^.242^.218^.112^.174^.286^1.351^.155^.471^.291
FHINI03G ; ; 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,1083,1)
+2 ;;=6.7^15.5^22.9^258^53.5^^^66^1.17^12^109^115^341^.6^.035^.112^^745^.3^.122
+3 ;;^UTILITY(U,$J,112,1083,2)
+4 ;;=.28^.835^.517^.062^15^.36^3.918^.182^134^3.679^6.527^4.156^199^1.3
+5 ;;^UTILITY(U,$J,112,1083,3)
+6 ;;=.083^.283^.339^.558^.411^.179^.133^.342^.264^.381^.338^.16^.307^.547^1.28^.211^.452^.431
+7 ;;^UTILITY(U,$J,112,1083,4)
+8 ;;=.019^.021^.111^2.29^.108^1.177^6.406^.044
+9 ;;^UTILITY(U,$J,112,1083,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,1084,0)
+12 ;;=CRESS, GARDEN, RAW^11-203^cups^50^71^N
+13 ;;^UTILITY(U,$J,112,1084,1)
+14 ;;=2.6^.7^5.5^32^89.4^^^81^1.3^38^76^606^14^.23^.17^.553^^9300^69^.08
+15 ;;^UTILITY(U,$J,112,1084,2)
+16 ;;=.26^1^.242^.247^80.4^0^.152^.076^0^.023^.239^.228^930^1.8^^^1.2
+17 ;;^UTILITY(U,$J,112,1084,4)
+18 ;;=^^^.016^^.007^.087
+19 ;;^UTILITY(U,$J,112,1084,20)
+20 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+21 ;;^UTILITY(U,$J,112,1085,0)
+22 ;;=CRESS, GARDEN, CKD, W/SALT^11-781^cups^135^100^N
+23 ;;^UTILITY(U,$J,112,1085,1)
+24 ;;=1.9^.6^3.8^23^92.5^^^61^.8^26^48^353^244^.15^.114^.372^^7700^23^.06
+25 ;;^UTILITY(U,$J,112,1085,2)
+26 ;;=.16^.8^.163^.157^37^0^.13^.065^0^.02^.205^.196^770^1.2
+27 ;;^UTILITY(U,$J,112,1085,4)
+28 ;;=^^^.014^^.006^.075
+29 ;;^UTILITY(U,$J,112,1085,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,1086,0)
+32 ;;=CROAKER, ATLANTIC, BREADED AND FRIED^15-021^oz.^28.3^100^N
+33 ;;^UTILITY(U,$J,112,1086,1)
+34 ;;=18.2^12.67^7.54^221^59.76^^^32^.86^42^217^340^348^.52^.065^.08^^75^0^.09
+35 ;;^UTILITY(U,$J,112,1086,2)
+36 ;;=.13^4.3^.74^.26^18.1^2.1^2.376^.157^84^3.476^5.32^2.917^22^1.37
+37 ;;^UTILITY(U,$J,112,1086,3)
+38 ;;=.208^.788^.847^1.48^1.571^.525^.217^.742^.621^.947^1.061^.525^1.067^1.791^2.981^.85^.759^.788
+39 ;;^UTILITY(U,$J,112,1086,4)
+40 ;;=^^.088^2.194^.444^1.193^4.789^.089
+41 ;;^UTILITY(U,$J,112,1086,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,1087,0)
+44 ;;=CROCKER, YELLOWFIN, RAW^941-0^oz.^28.3^^N
+45 ;;^UTILITY(U,$J,112,1087,1)
+46 ;;=19.2^.8^0^89^79^^^10^.4^^194^234^87^^^^^60^0^.12
+47 ;;^UTILITY(U,$J,112,1087,2)
+48 ;;=.08^5.5^^^^^0^^55^0
+49 ;;^UTILITY(U,$J,112,1087,20)
+50 ;;=USDA Std. Reference, Release 8
+51 ;;^UTILITY(U,$J,112,1089,0)
+52 ;;=CUCUMBERS, RAW, PARED^11-205^slices^4^97^N
+53 ;;^UTILITY(U,$J,112,1089,1)
+54 ;;=.69^.13^2.76^13^96.01^^^14^.26^11^20^144^2^.2^.033^.076^^215^5.3^.024
+55 ;;^UTILITY(U,$J,112,1089,2)
+56 ;;=.022^.221^.178^.042^13^0^.022^.03^0^.034^.003^.053^21^.41^^^.5
+57 ;;^UTILITY(U,$J,112,1089,3)
+58 ;;=.005^.019^.021^.029^.029^.006^.004^.019^.011^.022^.044^.01^.024^.041^.196^.024^.015^.02
+59 ;;^UTILITY(U,$J,112,1089,4)
+60 ;;=^0^.001^.028^0^.003^.003^^19
+61 ;;^UTILITY(U,$J,112,1089,20)
+62 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+63 ;;^UTILITY(U,$J,112,1090,0)
+64 ;;=CUSTARD, BAKED^19-168^cups^265^100^N
+65 ;;^UTILITY(U,$J,112,1090,1)
+66 ;;=5.1^4.7^10.7^105^78.7^^^112^.3^14^113^153^77^.53^.014^.007^^222^.5^.033
+67 ;;^UTILITY(U,$J,112,1090,2)
+68 ;;=.227^.085^.473^.051^10^.31^.27^.05^87^2.35^1.51^.35^60^.8
+69 ;;^UTILITY(U,$J,112,1090,3)
+70 ;;=.065^.229^.286^.456^.375^.137^.076^.249^.222^.317^.231^.126^.217^.429^.859^.132^.352^.313
+71 ;;^UTILITY(U,$J,112,1090,4)
+72 ;;=.07^.08^.31^1.19^.12^.51^1.38^.03
+73 ;;^UTILITY(U,$J,112,1090,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,1091,0)
+76 ;;=DANDELION GREENS, RAW^11-207^cups^110^100^N
+77 ;;^UTILITY(U,$J,112,1091,1)
+78 ;;=2.7^.7^9.2^45^85.6^^^187^3.1^36^66^397^76^.41^.171^.342^^14000^35^.19
+79 ;;^UTILITY(U,$J,112,1091,2)
+80 ;;=.26^.806^.084^.251^27.2^0^^^0^^^^1400^1.8^^^3.5
+81 ;;^UTILITY(U,$J,112,1091,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,1092,0)
+84 ;;=DANDELION GREENS, BOILED, WO/SALT^11-208^cups^105^100^N
+85 ;;^UTILITY(U,$J,112,1092,1)
+86 ;;=2^.6^6.4^33^89.8^^^140^1.8^24^42^232^44^.28^.115^.23^^11700^18^.13
+87 ;;^UTILITY(U,$J,112,1092,2)
+88 ;;=.175^.514^.057^.16^12.5^0^^^0^^^^1170^1.2^^^2.9
+89 ;;^UTILITY(U,$J,112,1092,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,1093,0)
+92 ;;=DANDELION GREENS, BOILED, W/SALT^11-782^cups^105^100^N
+93 ;;^UTILITY(U,$J,112,1093,1)
+94 ;;=2^.6^6.4^33^89.8^^^140^1.8^24^42^232^280^.28^.115^.23^^11700^18^.13
+95 ;;^UTILITY(U,$J,112,1093,2)
+96 ;;=.175^.514^.057^.16^12.5^0^^^0^^^^1170^1.2
+97 ;;^UTILITY(U,$J,112,1093,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,1094,0)
+100 ;;=DOUGHNUTS, CAKE TYPE, W/ENR FLOUR^18-248^doughnuts^25^100^N
+101 ;;^UTILITY(U,$J,112,1094,1)
+102 ;;=5^22.9^49.7^421^20.8^^^44^1.95^20^269^127^546^.55^.102^.341^^57^.2^.222
+103 ;;^UTILITY(U,$J,112,1094,2)
+104 ;;=.24^1.853^.276^.056^8^.23^7.558^.551^37^3.751^9.628^8.145^17^1.5^^^1.7
+105 ;;^UTILITY(U,$J,112,1094,3)
+106 ;;=.065^.174^.213^.378^.231^.098^.096^.231^.17^.242^.218^.112^.174^.286^1.351^.155^.471^.291
