FHINI03H ; ; 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,1094,4)
;;=.002^.002^.032^2.517^.143^1.193^9.478^.028^^9.3
;;^UTILITY(U,$J,112,1094,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1095,0)
;;=DOUGHNUTS, YEAST, PLAIN, W/ENR FLOUR^958-1^doughnuts^42^100^N
;;^UTILITY(U,$J,112,1095,1)
;;=6.3^26.7^37.7^414^28.3^^^38^2.1^^76^80^234^^^^^60^0^.23
;;^UTILITY(U,$J,112,1095,2)
;;=.22^1.9^^^^^5.87^^25^6.65^^^^1
;;^UTILITY(U,$J,112,1095,4)
;;=^^^^^^13.22
;;^UTILITY(U,$J,112,1095,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1096,0)
;;=DOUGHNUTS, YEAST, GLAZED, W/ENR FLOUR^18-255^doughnuts^42^100^N
;;^UTILITY(U,$J,112,1096,1)
;;=6.4^22.8^44.3^403^25.4^^^43^2.04^22^93^108^342^.77^.169^.263^^35^0^.364
;;^UTILITY(U,$J,112,1096,2)
;;=.215^2.852^.473^.057^22^.09^2.71^.141^6^5.815^12.892^2.863^10^1.1^^^2.1
;;^UTILITY(U,$J,112,1096,3)
;;=.077^.213^.266^.468^.231^.114^.13^.31^.2^.295^.271^.144^.235^.38^1.873^.227^.626^.33
;;^UTILITY(U,$J,112,1096,4)
;;=0^0^.111^3.019^.026^2.684^12.863^.009^^19.8
;;^UTILITY(U,$J,112,1096,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1097,0)
;;=ECLAIRS, W/CUSTARD FILL&CHOC-IC^18-257^eclairs^100^100^N
;;^UTILITY(U,$J,112,1097,1)
;;=6.4^15.7^24.2^262^52.4^^^63^1.18^15^107^117^337^.61^.058^.128^^718^.3^.115
;;^UTILITY(U,$J,112,1097,2)
;;=.266^.799^.489^.059^14^.34^3.717^.178^127^4.119^6.484^3.948^191^1.3
;;^UTILITY(U,$J,112,1097,3)
;;=.08^.271^.324^.532^.392^.169^.127^.328^.253^.365^.325^.152^.294^.527^1.223^.204^.431^.411
;;^UTILITY(U,$J,112,1097,4)
;;=.029^.033^.152^2.445^.112^1.358^6.353^.041
;;^UTILITY(U,$J,112,1097,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1098,0)
;;=EGGPLANT, BOILED, WO/SALT^11-210^cups^200^100^N
;;^UTILITY(U,$J,112,1098,1)
;;=.83^.23^6.64^28^91.77^^^6^.35^13^22^248^3^.15^.108^.136^^64^1.3^.076
;;^UTILITY(U,$J,112,1098,2)
;;=.02^.6^.075^.086^14.4^0^.078^.015^0^.044^.02^.093^6^.54^^^1.8
;;^UTILITY(U,$J,112,1098,3)
;;=.008^.03^.036^.052^.039^.009^.004^.035^.022^.043^.046^.019^.042^.134^.152^.033^.034^.034
;;^UTILITY(U,$J,112,1098,4)
;;=^^.001^.032^.002^.012^.018^^^.4
;;^UTILITY(U,$J,112,1098,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1099,0)
;;=EGGPLANT, BOILED, W/SALT^11-783^cups^200^100^N
;;^UTILITY(U,$J,112,1099,1)
;;=.83^.23^6.64^28^91.77^^^6^.35^13^22^248^239^.15^.108^.136^^64^1.3^.076
;;^UTILITY(U,$J,112,1099,2)
;;=.02^.6^.075^.086^14.4^0^.078^.015^0^.044^.02^.093^6^.54
;;^UTILITY(U,$J,112,1099,3)
;;=.008^.03^.036^.052^.039^.009^.004^.035^.022^.043^.046^.019^.042^.134^.152^.033^.034^.034
;;^UTILITY(U,$J,112,1099,4)
;;=^^.001^.032^.002^.012^.018
;;^UTILITY(U,$J,112,1099,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1100,0)
;;=ENDIVE & ESCAROLE, RAW^11-213^cups^50^86^N
;;^UTILITY(U,$J,112,1100,1)
;;=1.25^.2^3.35^17^93.79^^^52^.83^15^28^314^22^.79^.099^.42^^2050^6.5^.08
;;^UTILITY(U,$J,112,1100,2)
;;=.075^.4^.9^.02^142^0^.075^.013^0^.048^.004^.087^205^1.41^^^2.2
;;^UTILITY(U,$J,112,1100,3)
;;=.005^.05^.072^.098^.063^.014^.01^.053^.04^.063^.062^.023^.062^.13^.166^.058^.059^.049
;;^UTILITY(U,$J,112,1100,4)
;;=^^.003^.041^^.002^.004^^231
;;^UTILITY(U,$J,112,1100,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1101,0)
;;=CEREALS, ALL-BRAN, (WHEAT BRAN)^8-001^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1101,1)
;;=14.3^1.8^74.4^249^3^^^81^15.9^373^932^1234^1128^13.2^1.144^8.427^^4409^53^1.3
;;^UTILITY(U,$J,112,1101,2)
;;=1.5^17.6^1.71^1.8^353^0^^^0^^^^1324^6.5^^^30.8
;;^UTILITY(U,$J,112,1101,4)
;;=^^^^^^^^^9.4
;;^UTILITY(U,$J,112,1101,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1102,0)
;;=CEREALS, BRAN BUDS, (WHEAT BRAN)^8-005^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1102,1)
;;=13.9^2.4^76^258^2.8^^^67^15.9^318^868^1672^614^13.2^1.06^5.478^^4409^53^1.3
;;^UTILITY(U,$J,112,1102,2)
;;=1.5^17.6^1.94^1.8^353^0^^^0^^^^1324^4.9^^^37.4
;;^UTILITY(U,$J,112,1102,4)
;;=^^^^^^^^^28.9
;;^UTILITY(U,$J,112,1102,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1103,0)
;;=CEREALS, BRAN CHEX, (WHEAT BRAN,CORN)^8-006^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1103,1)
;;=10.3^2.8^79.7^319^2.3^^^60^15.9^257^667^804^928^4.37^.79^5.167^^219^53^1.3
;;^UTILITY(U,$J,112,1103,2)
;;=.54^17.6^1.022^1.8^353^5.3^^^0^^^^22^4.9^^^16.2
;;^UTILITY(U,$J,112,1103,4)
;;=^^^^^^^^^9
;;^UTILITY(U,$J,112,1103,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1104,0)
;;=CEREALS, C.W. POST, PLAIN, (OATS W/OTHER GRNS)^8-008^oz.^28.3^100^N
FHINI03H ; ; 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,1094,4)
+2 ;;=.002^.002^.032^2.517^.143^1.193^9.478^.028^^9.3
+3 ;;^UTILITY(U,$J,112,1094,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,1095,0)
+6 ;;=DOUGHNUTS, YEAST, PLAIN, W/ENR FLOUR^958-1^doughnuts^42^100^N
+7 ;;^UTILITY(U,$J,112,1095,1)
+8 ;;=6.3^26.7^37.7^414^28.3^^^38^2.1^^76^80^234^^^^^60^0^.23
+9 ;;^UTILITY(U,$J,112,1095,2)
+10 ;;=.22^1.9^^^^^5.87^^25^6.65^^^^1
+11 ;;^UTILITY(U,$J,112,1095,4)
+12 ;;=^^^^^^13.22
+13 ;;^UTILITY(U,$J,112,1095,20)
+14 ;;=USDA Std. Reference, Release 8
+15 ;;^UTILITY(U,$J,112,1096,0)
+16 ;;=DOUGHNUTS, YEAST, GLAZED, W/ENR FLOUR^18-255^doughnuts^42^100^N
+17 ;;^UTILITY(U,$J,112,1096,1)
+18 ;;=6.4^22.8^44.3^403^25.4^^^43^2.04^22^93^108^342^.77^.169^.263^^35^0^.364
+19 ;;^UTILITY(U,$J,112,1096,2)
+20 ;;=.215^2.852^.473^.057^22^.09^2.71^.141^6^5.815^12.892^2.863^10^1.1^^^2.1
+21 ;;^UTILITY(U,$J,112,1096,3)
+22 ;;=.077^.213^.266^.468^.231^.114^.13^.31^.2^.295^.271^.144^.235^.38^1.873^.227^.626^.33
+23 ;;^UTILITY(U,$J,112,1096,4)
+24 ;;=0^0^.111^3.019^.026^2.684^12.863^.009^^19.8
+25 ;;^UTILITY(U,$J,112,1096,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,1097,0)
+28 ;;=ECLAIRS, W/CUSTARD FILL&CHOC-IC^18-257^eclairs^100^100^N
+29 ;;^UTILITY(U,$J,112,1097,1)
+30 ;;=6.4^15.7^24.2^262^52.4^^^63^1.18^15^107^117^337^.61^.058^.128^^718^.3^.115
+31 ;;^UTILITY(U,$J,112,1097,2)
+32 ;;=.266^.799^.489^.059^14^.34^3.717^.178^127^4.119^6.484^3.948^191^1.3
+33 ;;^UTILITY(U,$J,112,1097,3)
+34 ;;=.08^.271^.324^.532^.392^.169^.127^.328^.253^.365^.325^.152^.294^.527^1.223^.204^.431^.411
+35 ;;^UTILITY(U,$J,112,1097,4)
+36 ;;=.029^.033^.152^2.445^.112^1.358^6.353^.041
+37 ;;^UTILITY(U,$J,112,1097,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,1098,0)
+40 ;;=EGGPLANT, BOILED, WO/SALT^11-210^cups^200^100^N
+41 ;;^UTILITY(U,$J,112,1098,1)
+42 ;;=.83^.23^6.64^28^91.77^^^6^.35^13^22^248^3^.15^.108^.136^^64^1.3^.076
+43 ;;^UTILITY(U,$J,112,1098,2)
+44 ;;=.02^.6^.075^.086^14.4^0^.078^.015^0^.044^.02^.093^6^.54^^^1.8
+45 ;;^UTILITY(U,$J,112,1098,3)
+46 ;;=.008^.03^.036^.052^.039^.009^.004^.035^.022^.043^.046^.019^.042^.134^.152^.033^.034^.034
+47 ;;^UTILITY(U,$J,112,1098,4)
+48 ;;=^^.001^.032^.002^.012^.018^^^.4
+49 ;;^UTILITY(U,$J,112,1098,20)
+50 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+51 ;;^UTILITY(U,$J,112,1099,0)
+52 ;;=EGGPLANT, BOILED, W/SALT^11-783^cups^200^100^N
+53 ;;^UTILITY(U,$J,112,1099,1)
+54 ;;=.83^.23^6.64^28^91.77^^^6^.35^13^22^248^239^.15^.108^.136^^64^1.3^.076
+55 ;;^UTILITY(U,$J,112,1099,2)
+56 ;;=.02^.6^.075^.086^14.4^0^.078^.015^0^.044^.02^.093^6^.54
+57 ;;^UTILITY(U,$J,112,1099,3)
+58 ;;=.008^.03^.036^.052^.039^.009^.004^.035^.022^.043^.046^.019^.042^.134^.152^.033^.034^.034
+59 ;;^UTILITY(U,$J,112,1099,4)
+60 ;;=^^.001^.032^.002^.012^.018
+61 ;;^UTILITY(U,$J,112,1099,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,1100,0)
+64 ;;=ENDIVE & ESCAROLE, RAW^11-213^cups^50^86^N
+65 ;;^UTILITY(U,$J,112,1100,1)
+66 ;;=1.25^.2^3.35^17^93.79^^^52^.83^15^28^314^22^.79^.099^.42^^2050^6.5^.08
+67 ;;^UTILITY(U,$J,112,1100,2)
+68 ;;=.075^.4^.9^.02^142^0^.075^.013^0^.048^.004^.087^205^1.41^^^2.2
+69 ;;^UTILITY(U,$J,112,1100,3)
+70 ;;=.005^.05^.072^.098^.063^.014^.01^.053^.04^.063^.062^.023^.062^.13^.166^.058^.059^.049
+71 ;;^UTILITY(U,$J,112,1100,4)
+72 ;;=^^.003^.041^^.002^.004^^231
+73 ;;^UTILITY(U,$J,112,1100,20)
+74 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+75 ;;^UTILITY(U,$J,112,1101,0)
+76 ;;=CEREALS, ALL-BRAN, (WHEAT BRAN)^8-001^oz.^28.3^100^N
+77 ;;^UTILITY(U,$J,112,1101,1)
+78 ;;=14.3^1.8^74.4^249^3^^^81^15.9^373^932^1234^1128^13.2^1.144^8.427^^4409^53^1.3
+79 ;;^UTILITY(U,$J,112,1101,2)
+80 ;;=1.5^17.6^1.71^1.8^353^0^^^0^^^^1324^6.5^^^30.8
+81 ;;^UTILITY(U,$J,112,1101,4)
+82 ;;=^^^^^^^^^9.4
+83 ;;^UTILITY(U,$J,112,1101,20)
+84 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+85 ;;^UTILITY(U,$J,112,1102,0)
+86 ;;=CEREALS, BRAN BUDS, (WHEAT BRAN)^8-005^oz.^28.3^100^N
+87 ;;^UTILITY(U,$J,112,1102,1)
+88 ;;=13.9^2.4^76^258^2.8^^^67^15.9^318^868^1672^614^13.2^1.06^5.478^^4409^53^1.3
+89 ;;^UTILITY(U,$J,112,1102,2)
+90 ;;=1.5^17.6^1.94^1.8^353^0^^^0^^^^1324^4.9^^^37.4
+91 ;;^UTILITY(U,$J,112,1102,4)
+92 ;;=^^^^^^^^^28.9
+93 ;;^UTILITY(U,$J,112,1102,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,1103,0)
+96 ;;=CEREALS, BRAN CHEX, (WHEAT BRAN,CORN)^8-006^oz.^28.3^100^N
+97 ;;^UTILITY(U,$J,112,1103,1)
+98 ;;=10.3^2.8^79.7^319^2.3^^^60^15.9^257^667^804^928^4.37^.79^5.167^^219^53^1.3
+99 ;;^UTILITY(U,$J,112,1103,2)
+100 ;;=.54^17.6^1.022^1.8^353^5.3^^^0^^^^22^4.9^^^16.2
+101 ;;^UTILITY(U,$J,112,1103,4)
+102 ;;=^^^^^^^^^9
+103 ;;^UTILITY(U,$J,112,1103,20)
+104 ;;=USDA Std. Reference, Release 10
+105 ;;^UTILITY(U,$J,112,1104,0)
+106 ;;=CEREALS, C.W. POST, PLAIN, (OATS W/OTHER GRNS)^8-008^oz.^28.3^100^N
