FHINI05A ; ; 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,1787,2)
;;=.162^1.961^.46^.264^3.7^0^.112^^0^.041^.34^.112^199^1.76^^^6.6
;;^UTILITY(U,$J,112,1787,4)
;;=^^^.034^.004^.007^.335
;;^UTILITY(U,$J,112,1787,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1788,0)
;;=PRUNES, DRIED, STEWED, WO/ADDED SUGAR^9-292^cups^212^160^N
;;^UTILITY(U,$J,112,1788,1)
;;=1.17^.23^28.08^107^69.73^^^23^1.11^20^35^334^2^.24^.193^.098^^306^2.9^.024
;;^UTILITY(U,$J,112,1788,2)
;;=.1^.723^.107^.218^.1^0^.05^^0^.019^.152^.05^31^.79^^^3
;;^UTILITY(U,$J,112,1788,4)
;;=^^^.015^.002^.003^.15
;;^UTILITY(U,$J,112,1788,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1789,0)
;;=PRUNES, DRIED, STEWED, W/ADDED SUGAR^9-293^cups^238^149^N
;;^UTILITY(U,$J,112,1789,1)
;;=1.09^.22^32.88^124^65.08^^^21^1.04^19^33^312^2^.22^.18^.092^^285^2.7^.022
;;^UTILITY(U,$J,112,1789,2)
;;=.093^.675^.1^.203^.1^0^.047^^0^.017^.142^.047^29^.73^^^3.8
;;^UTILITY(U,$J,112,1789,4)
;;=^^^.014^.002^.003^.14
;;^UTILITY(U,$J,112,1789,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1790,0)
;;=PRUNE JUICE, CND^9-294^fl oz.^32.0^100^N
;;^UTILITY(U,$J,112,1790,1)
;;=.61^.03^17.45^71^81.24^^^12^1.18^14^25^276^4^.21^.068^.151^^3^4.1^.016
;;^UTILITY(U,$J,112,1790,2)
;;=.07^.785^.107^.218^.4^0^.007^^0^.003^.021^.007^0^.68^^^1
;;^UTILITY(U,$J,112,1790,4)
;;=^^^.002^^^.021^^.6
;;^UTILITY(U,$J,112,1790,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1791,0)
;;=QUINCES, RAW^9-296^fruits^92^61^N
;;^UTILITY(U,$J,112,1791,1)
;;=.4^.1^15.3^57^83.8^^^11^.7^8^17^197^4^^.13^^^40^15^.02
;;^UTILITY(U,$J,112,1791,2)
;;=.03^.2^.081^.04^^0^.049^^0^.01^.036^.05^4^.4^^^1.9
;;^UTILITY(U,$J,112,1791,4)
;;=^^^.007^^.002^.036
;;^UTILITY(U,$J,112,1791,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1792,0)
;;=RAISINS, GOLDEN SEEDLESS^9-297^cups^145^100^N
;;^UTILITY(U,$J,112,1792,1)
;;=3.39^.46^79.52^302^14.97^^^53^1.79^35^115^746^12^.32^.363^.308^^44^3.2^.008
;;^UTILITY(U,$J,112,1792,2)
;;=.191^1.142^.14^.323^3.3^0^.104^.031^0^.151^.019^.135^4^1.66^^^4
;;^UTILITY(U,$J,112,1792,4)
;;=^^.004^.129^^.018^.019
;;^UTILITY(U,$J,112,1792,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1793,0)
;;=RAISINS, SEEDLESS^9-298^cups^145^100^N
;;^UTILITY(U,$J,112,1793,1)
;;=3.22^.46^79.13^300^15.42^^^49^2.08^33^97^751^12^.27^.309^.308^^8^3.3^.156
;;^UTILITY(U,$J,112,1793,2)
;;=.088^.818^.045^.249^3.3^0^.104^.031^0^.15^.018^.135^1^1.77^^^2.3
;;^UTILITY(U,$J,112,1793,4)
;;=^^.004^.129^^.018^.018^^^.7
;;^UTILITY(U,$J,112,1793,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1794,0)
;;=RASPBERRIES, RAW^9-302^cups^123^96^N
;;^UTILITY(U,$J,112,1794,1)
;;=.91^.55^11.57^49^86.57^^^22^.57^18^12^152^0^.46^.074^1.013^.3^130^25^.03
;;^UTILITY(U,$J,112,1794,2)
;;=.09^.9^.24^.057^26^0^.208^.105^0^.019^.053^.313^13^.4^^^2.7
;;^UTILITY(U,$J,112,1794,4)
;;=^^^.013^^.003^.049
;;^UTILITY(U,$J,112,1794,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1795,0)
;;=RASPBERRIES, CND, RED, HEAVY SIRUP PACK, SOL&LIQ^9-304^cups^256^100^N
;;^UTILITY(U,$J,112,1795,1)
;;=.83^.12^23.36^91^75.33^^^11^.42^12^9^94^3^.16^.057^.233^^33^8.7^.02
;;^UTILITY(U,$J,112,1795,2)
;;=.031^.443^.245^.042^10.5^0^.045^.023^0^.005^.011^.068^3^.36^^^3
;;^UTILITY(U,$J,112,1795,4)
;;=^^^.003^^.001^.011
;;^UTILITY(U,$J,112,1795,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1796,0)
;;=RASPBERRIES, FRZ, RED, SWEETENED^9-306^cups^250^100^N
;;^UTILITY(U,$J,112,1796,1)
;;=.7^.16^26.16^103^72.75^^^15^.65^13^17^114^1^.18^.105^.65^^60^16.5^.019
;;^UTILITY(U,$J,112,1796,2)
;;=.045^.23^.15^.034^26^0^.059^.03^0^.005^.015^.089^6^.24^^^4.4
;;^UTILITY(U,$J,112,1796,4)
;;=^^^.004^^.001^.014
;;^UTILITY(U,$J,112,1796,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1797,0)
;;=RHUBARB, RAW^9-307^cups^122^75^N
;;^UTILITY(U,$J,112,1797,1)
;;=.9^.2^4.54^21^93.61^^^86^.22^12^14^288^4^.1^.021^.196^^100^8^.02
;;^UTILITY(U,$J,112,1797,2)
;;=.03^.3^.085^.024^7.1^0^^^0^^^^10^.76^^^1.7
;;^UTILITY(U,$J,112,1797,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1798,0)
;;=RHUBARB, FRZ^9-309^cups^137^100^N
;;^UTILITY(U,$J,112,1798,1)
;;=.55^.11^5.1^21^93.51^^^194^.29^18^12^108^2^.1^.023^.097^^107^4.8^.031
FHINI05A ; ; 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,1787,2)
+2 ;;=.162^1.961^.46^.264^3.7^0^.112^^0^.041^.34^.112^199^1.76^^^6.6
+3 ;;^UTILITY(U,$J,112,1787,4)
+4 ;;=^^^.034^.004^.007^.335
+5 ;;^UTILITY(U,$J,112,1787,20)
+6 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+7 ;;^UTILITY(U,$J,112,1788,0)
+8 ;;=PRUNES, DRIED, STEWED, WO/ADDED SUGAR^9-292^cups^212^160^N
+9 ;;^UTILITY(U,$J,112,1788,1)
+10 ;;=1.17^.23^28.08^107^69.73^^^23^1.11^20^35^334^2^.24^.193^.098^^306^2.9^.024
+11 ;;^UTILITY(U,$J,112,1788,2)
+12 ;;=.1^.723^.107^.218^.1^0^.05^^0^.019^.152^.05^31^.79^^^3
+13 ;;^UTILITY(U,$J,112,1788,4)
+14 ;;=^^^.015^.002^.003^.15
+15 ;;^UTILITY(U,$J,112,1788,20)
+16 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+17 ;;^UTILITY(U,$J,112,1789,0)
+18 ;;=PRUNES, DRIED, STEWED, W/ADDED SUGAR^9-293^cups^238^149^N
+19 ;;^UTILITY(U,$J,112,1789,1)
+20 ;;=1.09^.22^32.88^124^65.08^^^21^1.04^19^33^312^2^.22^.18^.092^^285^2.7^.022
+21 ;;^UTILITY(U,$J,112,1789,2)
+22 ;;=.093^.675^.1^.203^.1^0^.047^^0^.017^.142^.047^29^.73^^^3.8
+23 ;;^UTILITY(U,$J,112,1789,4)
+24 ;;=^^^.014^.002^.003^.14
+25 ;;^UTILITY(U,$J,112,1789,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,1790,0)
+28 ;;=PRUNE JUICE, CND^9-294^fl oz.^32.0^100^N
+29 ;;^UTILITY(U,$J,112,1790,1)
+30 ;;=.61^.03^17.45^71^81.24^^^12^1.18^14^25^276^4^.21^.068^.151^^3^4.1^.016
+31 ;;^UTILITY(U,$J,112,1790,2)
+32 ;;=.07^.785^.107^.218^.4^0^.007^^0^.003^.021^.007^0^.68^^^1
+33 ;;^UTILITY(U,$J,112,1790,4)
+34 ;;=^^^.002^^^.021^^.6
+35 ;;^UTILITY(U,$J,112,1790,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,1791,0)
+38 ;;=QUINCES, RAW^9-296^fruits^92^61^N
+39 ;;^UTILITY(U,$J,112,1791,1)
+40 ;;=.4^.1^15.3^57^83.8^^^11^.7^8^17^197^4^^.13^^^40^15^.02
+41 ;;^UTILITY(U,$J,112,1791,2)
+42 ;;=.03^.2^.081^.04^^0^.049^^0^.01^.036^.05^4^.4^^^1.9
+43 ;;^UTILITY(U,$J,112,1791,4)
+44 ;;=^^^.007^^.002^.036
+45 ;;^UTILITY(U,$J,112,1791,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,1792,0)
+48 ;;=RAISINS, GOLDEN SEEDLESS^9-297^cups^145^100^N
+49 ;;^UTILITY(U,$J,112,1792,1)
+50 ;;=3.39^.46^79.52^302^14.97^^^53^1.79^35^115^746^12^.32^.363^.308^^44^3.2^.008
+51 ;;^UTILITY(U,$J,112,1792,2)
+52 ;;=.191^1.142^.14^.323^3.3^0^.104^.031^0^.151^.019^.135^4^1.66^^^4
+53 ;;^UTILITY(U,$J,112,1792,4)
+54 ;;=^^.004^.129^^.018^.019
+55 ;;^UTILITY(U,$J,112,1792,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,1793,0)
+58 ;;=RAISINS, SEEDLESS^9-298^cups^145^100^N
+59 ;;^UTILITY(U,$J,112,1793,1)
+60 ;;=3.22^.46^79.13^300^15.42^^^49^2.08^33^97^751^12^.27^.309^.308^^8^3.3^.156
+61 ;;^UTILITY(U,$J,112,1793,2)
+62 ;;=.088^.818^.045^.249^3.3^0^.104^.031^0^.15^.018^.135^1^1.77^^^2.3
+63 ;;^UTILITY(U,$J,112,1793,4)
+64 ;;=^^.004^.129^^.018^.018^^^.7
+65 ;;^UTILITY(U,$J,112,1793,20)
+66 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+67 ;;^UTILITY(U,$J,112,1794,0)
+68 ;;=RASPBERRIES, RAW^9-302^cups^123^96^N
+69 ;;^UTILITY(U,$J,112,1794,1)
+70 ;;=.91^.55^11.57^49^86.57^^^22^.57^18^12^152^0^.46^.074^1.013^.3^130^25^.03
+71 ;;^UTILITY(U,$J,112,1794,2)
+72 ;;=.09^.9^.24^.057^26^0^.208^.105^0^.019^.053^.313^13^.4^^^2.7
+73 ;;^UTILITY(U,$J,112,1794,4)
+74 ;;=^^^.013^^.003^.049
+75 ;;^UTILITY(U,$J,112,1794,20)
+76 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+77 ;;^UTILITY(U,$J,112,1795,0)
+78 ;;=RASPBERRIES, CND, RED, HEAVY SIRUP PACK, SOL&LIQ^9-304^cups^256^100^N
+79 ;;^UTILITY(U,$J,112,1795,1)
+80 ;;=.83^.12^23.36^91^75.33^^^11^.42^12^9^94^3^.16^.057^.233^^33^8.7^.02
+81 ;;^UTILITY(U,$J,112,1795,2)
+82 ;;=.031^.443^.245^.042^10.5^0^.045^.023^0^.005^.011^.068^3^.36^^^3
+83 ;;^UTILITY(U,$J,112,1795,4)
+84 ;;=^^^.003^^.001^.011
+85 ;;^UTILITY(U,$J,112,1795,20)
+86 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+87 ;;^UTILITY(U,$J,112,1796,0)
+88 ;;=RASPBERRIES, FRZ, RED, SWEETENED^9-306^cups^250^100^N
+89 ;;^UTILITY(U,$J,112,1796,1)
+90 ;;=.7^.16^26.16^103^72.75^^^15^.65^13^17^114^1^.18^.105^.65^^60^16.5^.019
+91 ;;^UTILITY(U,$J,112,1796,2)
+92 ;;=.045^.23^.15^.034^26^0^.059^.03^0^.005^.015^.089^6^.24^^^4.4
+93 ;;^UTILITY(U,$J,112,1796,4)
+94 ;;=^^^.004^^.001^.014
+95 ;;^UTILITY(U,$J,112,1796,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,1797,0)
+98 ;;=RHUBARB, RAW^9-307^cups^122^75^N
+99 ;;^UTILITY(U,$J,112,1797,1)
+100 ;;=.9^.2^4.54^21^93.61^^^86^.22^12^14^288^4^.1^.021^.196^^100^8^.02
+101 ;;^UTILITY(U,$J,112,1797,2)
+102 ;;=.03^.3^.085^.024^7.1^0^^^0^^^^10^.76^^^1.7
+103 ;;^UTILITY(U,$J,112,1797,20)
+104 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+105 ;;^UTILITY(U,$J,112,1798,0)
+106 ;;=RHUBARB, FRZ^9-309^cups^137^100^N
+107 ;;^UTILITY(U,$J,112,1798,1)
+108 ;;=.55^.11^5.1^21^93.51^^^194^.29^18^12^108^2^.1^.023^.097^^107^4.8^.031
