FHINI07P ; ; 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,2673,4)
;;=^0^.09^2.74^.13^2.78^3.33^.6
;;^UTILITY(U,$J,112,2673,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2674,0)
;;=BRAIN, VEAL, BRAISED^17-189^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2674,1)
;;=11.48^9.63^0^136^76.89^^^16^1.67^16^385^214^156^1.61^.26^.038^^0^13^.08
;;^UTILITY(U,$J,112,2674,2)
;;=.2^2.43^1^.17^3^9.65^.09^^3100^2.18^1.74^1.49^0^1.4^^^0
;;^UTILITY(U,$J,112,2674,3)
;;=.115^.568^.467^.886^.711^.252^.12^.604^.445^.546^.629^.287^.591^.974^1.373^.504^.474^.589
;;^UTILITY(U,$J,112,2674,4)
;;=^^^^^^1.11
;;^UTILITY(U,$J,112,2674,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2675,0)
;;=BRAIN, VEAL, PAN-FRIED^17-190^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2675,1)
;;=14.48^16.75^0^213^68.56^^^10^1.07^18^434^472^176^1.82^.3^.044^^0^15^.15
;;^UTILITY(U,$J,112,2675,2)
;;=.36^5.62^1.13^.33^6^21.3^.89^^2120^3.96^4.21^2.44^0^1.88^^^0
;;^UTILITY(U,$J,112,2675,3)
;;=.145^.716^.589^1.118^.897^.318^.151^.762^.561^.689^.794^.363^.745^1.228^1.732^.635^.598^.743
;;^UTILITY(U,$J,112,2675,4)
;;=^^^^^^3.67
;;^UTILITY(U,$J,112,2675,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2676,0)
;;=BROADBEANS (FAVA BEANS), CANNED^16-054^cups^256^100^N
;;^UTILITY(U,$J,112,2676,1)
;;=5.47^.22^12.41^71^80.32^^^26^1^32^79^242^453^.62^.109^.288^^10^1.8^.02
;;^UTILITY(U,$J,112,2676,2)
;;=.05^.96^.119^.045^32.7^0^.084^.007^0^.037^.044^.09^1^1.58
;;^UTILITY(U,$J,112,2676,3)
;;=.052^.194^.221^.411^.35^.045^.07^.231^.173^.243^.505^.139^.224^.611^.929^.229^.23^.25
;;^UTILITY(U,$J,112,2676,4)
;;=^.001^0^.029^0^.004^.043
;;^UTILITY(U,$J,112,2676,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2677,0)
;;=BROCCOLI, RAW^11-090^cups^88^61^N
;;^UTILITY(U,$J,112,2677,1)
;;=2.98^.35^5.24^28^90.69^^^48^.88^25^66^325^27^.4^.045^.229^^1542^93.2^.065
;;^UTILITY(U,$J,112,2677,2)
;;=.119^.638^.535^.159^71^0^.038^.129^0^.054^.024^.167^154^.92^^^3
;;^UTILITY(U,$J,112,2677,3)
;;=.029^.091^.109^.131^.141^.034^.02^.084^.063^.128^.145^.05^.118^.213^.375^.095^.114^.1
;;^UTILITY(U,$J,112,2677,4)
;;=^^^.047^^.007^.024^^205^3
;;^UTILITY(U,$J,112,2677,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2678,0)
;;=BROCCOLI, STALKS, RAW^11-741^cups^88^61^N
;;^UTILITY(U,$J,112,2678,1)
;;=2.98^.35^5.24^28^90.69^^^48^.88^25^66^325^27^.4^.045^.229^^400^93.2^.065
;;^UTILITY(U,$J,112,2678,2)
;;=.119^.638^.535^.159^71^0^.038^.129^0^.054^.024^.167^40^.92
;;^UTILITY(U,$J,112,2678,3)
;;=.029^.091^.109^.131^.141^.034^.02^.084^.063^.128^.145^.05^.118^.213^.375^.095^.114^.1
;;^UTILITY(U,$J,112,2678,4)
;;=^^^.047^^.007^.024
;;^UTILITY(U,$J,112,2678,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2679,0)
;;=BROWNIES, FROM MIX, W/WATER AND NUTS, BAKED, ENR^835-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2679,1)
;;=4.9^18.7^59.8^403^15.3^^^26^1.2^^117^180^218^^^^^80^0^.16
;;^UTILITY(U,$J,112,2679,2)
;;=.09^.7^^^^^7^^64^3^^^^1.3
;;^UTILITY(U,$J,112,2679,4)
;;=^^^^^^7
;;^UTILITY(U,$J,112,2679,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,2680,0)
;;=BUCKWHEAT GROATS, ROASTED^20-010^cups^198^100^N
;;^UTILITY(U,$J,112,2680,1)
;;=3.38^.62^19.94^92^75.63^^^7^.8^51^70^88^4^.61^.146^.403^^0^0^.04
;;^UTILITY(U,$J,112,2680,2)
;;=.039^.94^.359^.077^14^0^.174^.014^0^.134^.188^.188^0^.43
;;^UTILITY(U,$J,112,2680,3)
;;=.049^.129^.127^.212^.172^.044^.058^.133^.062^.173^.25^.079^.191^.289^.522^.263^.129^.175
;;^UTILITY(U,$J,112,2680,4)
;;=.003^.002^.004^.082^.004^.009^.179
;;^UTILITY(U,$J,112,2680,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2681,0)
;;=BUFFALO, WATER, ROASTED^17-161^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2681,1)
;;=26.83^1.8^0^131^68.81^^^15^2.12^33^220^313^56^2.54^.178^^^0^0^.03
;;^UTILITY(U,$J,112,2681,2)
;;=.25^6.29^.17^.46^9^1.75^.21^.05^61^.6^.55^.36^0^1.39^^^0
;;^UTILITY(U,$J,112,2681,3)
;;=.327^1.284^1.346^2.309^2.118^.672^.429^1.075^1.077^1.427^1.681^.888^^2.676^3.89^1.046^1.027^1.151
;;^UTILITY(U,$J,112,2681,4)
;;=^^.02^.33^.04^.25^.49^.1
;;^UTILITY(U,$J,112,2681,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2682,0)
;;=CABBAGE, CHINESE (PAK-CHOI), BOILED, DRAINED, W/SALT^11-754^cups^170^100^N
;;^UTILITY(U,$J,112,2682,1)
;;=1.56^.16^1.78^12^95.55^^^93^1.04^11^29^371^270^.17^.019^.144^^2568^26^.032
;;^UTILITY(U,$J,112,2682,2)
;;=.063^.428^.079^.166^40.6^0^.031^.041^0^.021^.012^.077^257^.95
;;^UTILITY(U,$J,112,2682,3)
;;=.015^.051^.089^.091^.093^.009^.017^.046^.03^.069^.087^.027^.09^.112^.374^.045^.032^.05
;;^UTILITY(U,$J,112,2682,4)
;;=0^.001^.001^.017^0^.001^.011^0
FHINI07P ; ; 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,2673,4)
+2 ;;=^0^.09^2.74^.13^2.78^3.33^.6
+3 ;;^UTILITY(U,$J,112,2673,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,2674,0)
+6 ;;=BRAIN, VEAL, BRAISED^17-189^oz.^28.3^100^N
+7 ;;^UTILITY(U,$J,112,2674,1)
+8 ;;=11.48^9.63^0^136^76.89^^^16^1.67^16^385^214^156^1.61^.26^.038^^0^13^.08
+9 ;;^UTILITY(U,$J,112,2674,2)
+10 ;;=.2^2.43^1^.17^3^9.65^.09^^3100^2.18^1.74^1.49^0^1.4^^^0
+11 ;;^UTILITY(U,$J,112,2674,3)
+12 ;;=.115^.568^.467^.886^.711^.252^.12^.604^.445^.546^.629^.287^.591^.974^1.373^.504^.474^.589
+13 ;;^UTILITY(U,$J,112,2674,4)
+14 ;;=^^^^^^1.11
+15 ;;^UTILITY(U,$J,112,2674,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,2675,0)
+18 ;;=BRAIN, VEAL, PAN-FRIED^17-190^oz.^28.3^100^N
+19 ;;^UTILITY(U,$J,112,2675,1)
+20 ;;=14.48^16.75^0^213^68.56^^^10^1.07^18^434^472^176^1.82^.3^.044^^0^15^.15
+21 ;;^UTILITY(U,$J,112,2675,2)
+22 ;;=.36^5.62^1.13^.33^6^21.3^.89^^2120^3.96^4.21^2.44^0^1.88^^^0
+23 ;;^UTILITY(U,$J,112,2675,3)
+24 ;;=.145^.716^.589^1.118^.897^.318^.151^.762^.561^.689^.794^.363^.745^1.228^1.732^.635^.598^.743
+25 ;;^UTILITY(U,$J,112,2675,4)
+26 ;;=^^^^^^3.67
+27 ;;^UTILITY(U,$J,112,2675,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,2676,0)
+30 ;;=BROADBEANS (FAVA BEANS), CANNED^16-054^cups^256^100^N
+31 ;;^UTILITY(U,$J,112,2676,1)
+32 ;;=5.47^.22^12.41^71^80.32^^^26^1^32^79^242^453^.62^.109^.288^^10^1.8^.02
+33 ;;^UTILITY(U,$J,112,2676,2)
+34 ;;=.05^.96^.119^.045^32.7^0^.084^.007^0^.037^.044^.09^1^1.58
+35 ;;^UTILITY(U,$J,112,2676,3)
+36 ;;=.052^.194^.221^.411^.35^.045^.07^.231^.173^.243^.505^.139^.224^.611^.929^.229^.23^.25
+37 ;;^UTILITY(U,$J,112,2676,4)
+38 ;;=^.001^0^.029^0^.004^.043
+39 ;;^UTILITY(U,$J,112,2676,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,2677,0)
+42 ;;=BROCCOLI, RAW^11-090^cups^88^61^N
+43 ;;^UTILITY(U,$J,112,2677,1)
+44 ;;=2.98^.35^5.24^28^90.69^^^48^.88^25^66^325^27^.4^.045^.229^^1542^93.2^.065
+45 ;;^UTILITY(U,$J,112,2677,2)
+46 ;;=.119^.638^.535^.159^71^0^.038^.129^0^.054^.024^.167^154^.92^^^3
+47 ;;^UTILITY(U,$J,112,2677,3)
+48 ;;=.029^.091^.109^.131^.141^.034^.02^.084^.063^.128^.145^.05^.118^.213^.375^.095^.114^.1
+49 ;;^UTILITY(U,$J,112,2677,4)
+50 ;;=^^^.047^^.007^.024^^205^3
+51 ;;^UTILITY(U,$J,112,2677,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,2678,0)
+54 ;;=BROCCOLI, STALKS, RAW^11-741^cups^88^61^N
+55 ;;^UTILITY(U,$J,112,2678,1)
+56 ;;=2.98^.35^5.24^28^90.69^^^48^.88^25^66^325^27^.4^.045^.229^^400^93.2^.065
+57 ;;^UTILITY(U,$J,112,2678,2)
+58 ;;=.119^.638^.535^.159^71^0^.038^.129^0^.054^.024^.167^40^.92
+59 ;;^UTILITY(U,$J,112,2678,3)
+60 ;;=.029^.091^.109^.131^.141^.034^.02^.084^.063^.128^.145^.05^.118^.213^.375^.095^.114^.1
+61 ;;^UTILITY(U,$J,112,2678,4)
+62 ;;=^^^.047^^.007^.024
+63 ;;^UTILITY(U,$J,112,2678,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,2679,0)
+66 ;;=BROWNIES, FROM MIX, W/WATER AND NUTS, BAKED, ENR^835-0^oz.^28.3^100^N
+67 ;;^UTILITY(U,$J,112,2679,1)
+68 ;;=4.9^18.7^59.8^403^15.3^^^26^1.2^^117^180^218^^^^^80^0^.16
+69 ;;^UTILITY(U,$J,112,2679,2)
+70 ;;=.09^.7^^^^^7^^64^3^^^^1.3
+71 ;;^UTILITY(U,$J,112,2679,4)
+72 ;;=^^^^^^7
+73 ;;^UTILITY(U,$J,112,2679,20)
+74 ;;=USDA Std. Reference, Release 8
+75 ;;^UTILITY(U,$J,112,2680,0)
+76 ;;=BUCKWHEAT GROATS, ROASTED^20-010^cups^198^100^N
+77 ;;^UTILITY(U,$J,112,2680,1)
+78 ;;=3.38^.62^19.94^92^75.63^^^7^.8^51^70^88^4^.61^.146^.403^^0^0^.04
+79 ;;^UTILITY(U,$J,112,2680,2)
+80 ;;=.039^.94^.359^.077^14^0^.174^.014^0^.134^.188^.188^0^.43
+81 ;;^UTILITY(U,$J,112,2680,3)
+82 ;;=.049^.129^.127^.212^.172^.044^.058^.133^.062^.173^.25^.079^.191^.289^.522^.263^.129^.175
+83 ;;^UTILITY(U,$J,112,2680,4)
+84 ;;=.003^.002^.004^.082^.004^.009^.179
+85 ;;^UTILITY(U,$J,112,2680,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,2681,0)
+88 ;;=BUFFALO, WATER, ROASTED^17-161^oz.^28.3^100^N
+89 ;;^UTILITY(U,$J,112,2681,1)
+90 ;;=26.83^1.8^0^131^68.81^^^15^2.12^33^220^313^56^2.54^.178^^^0^0^.03
+91 ;;^UTILITY(U,$J,112,2681,2)
+92 ;;=.25^6.29^.17^.46^9^1.75^.21^.05^61^.6^.55^.36^0^1.39^^^0
+93 ;;^UTILITY(U,$J,112,2681,3)
+94 ;;=.327^1.284^1.346^2.309^2.118^.672^.429^1.075^1.077^1.427^1.681^.888^^2.676^3.89^1.046^1.027^1.151
+95 ;;^UTILITY(U,$J,112,2681,4)
+96 ;;=^^.02^.33^.04^.25^.49^.1
+97 ;;^UTILITY(U,$J,112,2681,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,2682,0)
+100 ;;=CABBAGE, CHINESE (PAK-CHOI), BOILED, DRAINED, W/SALT^11-754^cups^170^100^N
+101 ;;^UTILITY(U,$J,112,2682,1)
+102 ;;=1.56^.16^1.78^12^95.55^^^93^1.04^11^29^371^270^.17^.019^.144^^2568^26^.032
+103 ;;^UTILITY(U,$J,112,2682,2)
+104 ;;=.063^.428^.079^.166^40.6^0^.031^.041^0^.021^.012^.077^257^.95
+105 ;;^UTILITY(U,$J,112,2682,3)
+106 ;;=.015^.051^.089^.091^.093^.009^.017^.046^.03^.069^.087^.027^.09^.112^.374^.045^.032^.05
+107 ;;^UTILITY(U,$J,112,2682,4)
+108 ;;=0^.001^.001^.017^0^.001^.011^0
