FHINI08O ; ; 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,3000,4)
;;=.03^.03^.11^.61^^.31^1.62
;;^UTILITY(U,$J,112,3000,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3001,0)
;;=SOUP, CREAM OF POTATO, CND, CONDENSED^6-053^cups^251^100^N
;;^UTILITY(U,$J,112,3001,1)
;;=1.39^1.88^9.14^59^85.39^^^16^.38^1^37^109^797^.5^.2^.3^^230^0^.028
;;^UTILITY(U,$J,112,3001,2)
;;=.029^.43^.7^.03^2.4^.04^.3^.03^5^.97^.44^.33^23^2.21^^^.4
;;^UTILITY(U,$J,112,3001,3)
;;=.02^.049^.061^.094^.066^.024^.022^.066^.049^.074^.06^.031^.043^.203^.33^.043^.103^.067
;;^UTILITY(U,$J,112,3001,4)
;;=.04^.04^.14^.42^.02^.15^.39
;;^UTILITY(U,$J,112,3001,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3002,0)
;;=SOUP, CREAM OF SHRIMP, CND, CONDENSED^6-056^cups^251^100^N
;;^UTILITY(U,$J,112,3002,1)
;;=2.22^4.14^6.53^72^84.85^^^14^.42^7^26^47^778^.6^.1^.3^^126^0^.015
;;^UTILITY(U,$J,112,3002,2)
;;=.022^.34^.11^.03^3^.47^.1^.06^13^2.58^1.19^.15^13^2.26^^^.2
;;^UTILITY(U,$J,112,3002,4)
;;=.1^.12^.42^1.09^.09^.5^1.04
;;^UTILITY(U,$J,112,3002,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3003,0)
;;=SOUP, MINESTRONE, CND, CONDENSED^6-040^cups^246^100^N
;;^UTILITY(U,$J,112,3003,1)
;;=3.48^2.05^9.17^68^82.95^^^28^.75^6^46^255^744^.6^.1^.3^^1908^.9^.044
;;^UTILITY(U,$J,112,3003,2)
;;=.036^.77^.28^.08^13.1^0^.79^.11^1^.44^.56^.91^191^2.35^^^.8
;;^UTILITY(U,$J,112,3003,3)
;;=.025^.085^.106^.192^.149^.036^.027^.125^.069^.146^.161^.06^.202^.299^.996^.32^.265^.118
;;^UTILITY(U,$J,112,3003,4)
;;=0^0^.02^.25^.01^.09^.54
;;^UTILITY(U,$J,112,3003,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3004,0)
;;=SOUP, MUSHROOM BARLEY, CND, CONDENSED^6-042^cups^251^100^N
;;^UTILITY(U,$J,112,3004,1)
;;=1.5^1.8^9.6^61^84.9^^^10^.4^7^50^76^730^.4^.16^.1^^158^0^.02
;;^UTILITY(U,$J,112,3004,2)
;;=.07^.7^.1^.14^5^0^.54^.03^0^.35^.8^.57^16^2.2
;;^UTILITY(U,$J,112,3004,4)
;;=^^0^.22^^.13^.8
;;^UTILITY(U,$J,112,3004,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3005,0)
;;=SOUP, MUSHROOM W/BEEF STOCK, CND, CONDENSED^6-044^cups^251^100^N
;;^UTILITY(U,$J,112,3005,1)
;;=2.51^3.21^7.41^68^84.6^^^8^.67^7^29^126^773^1.1^.2^.3^^1000^.8^.028
;;^UTILITY(U,$J,112,3005,2)
;;=.076^.96^.19^.03^7.3^0^.54^.08^6^1.24^1.12^.62^100^2.27^^^.1
;;^UTILITY(U,$J,112,3005,4)
;;=.02^.03^.09^.65^.07^.37^1.01
;;^UTILITY(U,$J,112,3005,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3006,0)
;;=SOUP, ONION, CND, CONDENSED^6-045^cups^246^100^N
;;^UTILITY(U,$J,112,3006,1)
;;=3.06^1.42^6.68^46^86.35^^^22^.55^2^9^56^860^.5^.1^.2^^0^1^.027
;;^UTILITY(U,$J,112,3006,2)
;;=.02^.49^0^.04^12.4^0^.5^.04^0^.21^.61^.53^0^2.49^^^.7
;;^UTILITY(U,$J,112,3006,4)
;;=^^0^.14^.01^.07^.6
;;^UTILITY(U,$J,112,3006,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3007,0)
;;=SOUP, OYSTER STEW, CND, CONDENSED^6-048^cups^246^100^N
;;^UTILITY(U,$J,112,3007,1)
;;=1.72^3.13^3.32^48^89.88^^^18^.8^4^39^40^800^8.4^1.3^.3^^58^2.6^.017
;;^UTILITY(U,$J,112,3007,2)
;;=.029^.19^.1^.01^2^1.79^.1^.02^11^2.04^.74^.13^6^1.95^^^0
;;^UTILITY(U,$J,112,3007,4)
;;=.11^.09^.34^.77^.04^.37^.66
;;^UTILITY(U,$J,112,3007,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3008,0)
;;=SOUP, PEA, GREEN, CND, CONDENSED^6-049^cups^263^100^N
;;^UTILITY(U,$J,112,3008,1)
;;=6.54^2.23^20.18^125^68.54^^^21^1.48^30^95^145^752^1.3^.288^.5^^153^1.3^.082
;;^UTILITY(U,$J,112,3008,2)
;;=.052^.943^.1^.04^1.4^0^.26^.03^0^1.07^.76^.29^15^2.51^^^2.2
;;^UTILITY(U,$J,112,3008,3)
;;=.055^.231^.226^.473^.388^.079^.061^.287^.191^.336^.538^.13^.282^.669^1.231^.261^.337^.264
;;^UTILITY(U,$J,112,3008,4)
;;=.04^.04^.15^.48^.03^.24^.71
;;^UTILITY(U,$J,112,3008,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3009,0)
;;=SOUP, PEA, SPLIT W/HAM, CANNED, CHUNKY, READY-TO-SERVE^6-050^cups^240^100^N
;;^UTILITY(U,$J,112,3009,1)
;;=4.62^1.66^11.17^77^80.95^^^14^.89^16^74^127^402^1.3^.1^.25^^2030^2.9^.048
;;^UTILITY(U,$J,112,3009,2)
;;=.039^1.05^.2^.09^1.9^.1^.22^.02^3^.66^.68^.24^203^1.6^^^1.7
;;^UTILITY(U,$J,112,3009,3)
;;=.046^.163^.195^.319^.312^.062^.06^.204^.143^.219^.316^.097^.216^.471^.783^.223^.21^.199
;;^UTILITY(U,$J,112,3009,4)
;;=.01^.01^.05^.36^.03^.19^.63
;;^UTILITY(U,$J,112,3009,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3010,0)
;;=SOUP, PEA, SPLIT W/HAM, CND, CONDENSED^6-051^cups^269^100^N
;;^UTILITY(U,$J,112,3010,1)
;;=7.68^3.28^20.81^141^65.67^^^16^1.7^36^159^297^750^.985^.275^.5^^331^1.1^.11
;;^UTILITY(U,$J,112,3010,2)
;;=.056^1.098^.2^.05^1.9^.2^.43^.04^6^1.31^1.34^.47^33^2.57^^^1.7
FHINI08O ; ; 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,3000,4)
+2 ;;=.03^.03^.11^.61^^.31^1.62
+3 ;;^UTILITY(U,$J,112,3000,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,3001,0)
+6 ;;=SOUP, CREAM OF POTATO, CND, CONDENSED^6-053^cups^251^100^N
+7 ;;^UTILITY(U,$J,112,3001,1)
+8 ;;=1.39^1.88^9.14^59^85.39^^^16^.38^1^37^109^797^.5^.2^.3^^230^0^.028
+9 ;;^UTILITY(U,$J,112,3001,2)
+10 ;;=.029^.43^.7^.03^2.4^.04^.3^.03^5^.97^.44^.33^23^2.21^^^.4
+11 ;;^UTILITY(U,$J,112,3001,3)
+12 ;;=.02^.049^.061^.094^.066^.024^.022^.066^.049^.074^.06^.031^.043^.203^.33^.043^.103^.067
+13 ;;^UTILITY(U,$J,112,3001,4)
+14 ;;=.04^.04^.14^.42^.02^.15^.39
+15 ;;^UTILITY(U,$J,112,3001,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,3002,0)
+18 ;;=SOUP, CREAM OF SHRIMP, CND, CONDENSED^6-056^cups^251^100^N
+19 ;;^UTILITY(U,$J,112,3002,1)
+20 ;;=2.22^4.14^6.53^72^84.85^^^14^.42^7^26^47^778^.6^.1^.3^^126^0^.015
+21 ;;^UTILITY(U,$J,112,3002,2)
+22 ;;=.022^.34^.11^.03^3^.47^.1^.06^13^2.58^1.19^.15^13^2.26^^^.2
+23 ;;^UTILITY(U,$J,112,3002,4)
+24 ;;=.1^.12^.42^1.09^.09^.5^1.04
+25 ;;^UTILITY(U,$J,112,3002,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,3003,0)
+28 ;;=SOUP, MINESTRONE, CND, CONDENSED^6-040^cups^246^100^N
+29 ;;^UTILITY(U,$J,112,3003,1)
+30 ;;=3.48^2.05^9.17^68^82.95^^^28^.75^6^46^255^744^.6^.1^.3^^1908^.9^.044
+31 ;;^UTILITY(U,$J,112,3003,2)
+32 ;;=.036^.77^.28^.08^13.1^0^.79^.11^1^.44^.56^.91^191^2.35^^^.8
+33 ;;^UTILITY(U,$J,112,3003,3)
+34 ;;=.025^.085^.106^.192^.149^.036^.027^.125^.069^.146^.161^.06^.202^.299^.996^.32^.265^.118
+35 ;;^UTILITY(U,$J,112,3003,4)
+36 ;;=0^0^.02^.25^.01^.09^.54
+37 ;;^UTILITY(U,$J,112,3003,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,3004,0)
+40 ;;=SOUP, MUSHROOM BARLEY, CND, CONDENSED^6-042^cups^251^100^N
+41 ;;^UTILITY(U,$J,112,3004,1)
+42 ;;=1.5^1.8^9.6^61^84.9^^^10^.4^7^50^76^730^.4^.16^.1^^158^0^.02
+43 ;;^UTILITY(U,$J,112,3004,2)
+44 ;;=.07^.7^.1^.14^5^0^.54^.03^0^.35^.8^.57^16^2.2
+45 ;;^UTILITY(U,$J,112,3004,4)
+46 ;;=^^0^.22^^.13^.8
+47 ;;^UTILITY(U,$J,112,3004,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,3005,0)
+50 ;;=SOUP, MUSHROOM W/BEEF STOCK, CND, CONDENSED^6-044^cups^251^100^N
+51 ;;^UTILITY(U,$J,112,3005,1)
+52 ;;=2.51^3.21^7.41^68^84.6^^^8^.67^7^29^126^773^1.1^.2^.3^^1000^.8^.028
+53 ;;^UTILITY(U,$J,112,3005,2)
+54 ;;=.076^.96^.19^.03^7.3^0^.54^.08^6^1.24^1.12^.62^100^2.27^^^.1
+55 ;;^UTILITY(U,$J,112,3005,4)
+56 ;;=.02^.03^.09^.65^.07^.37^1.01
+57 ;;^UTILITY(U,$J,112,3005,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,3006,0)
+60 ;;=SOUP, ONION, CND, CONDENSED^6-045^cups^246^100^N
+61 ;;^UTILITY(U,$J,112,3006,1)
+62 ;;=3.06^1.42^6.68^46^86.35^^^22^.55^2^9^56^860^.5^.1^.2^^0^1^.027
+63 ;;^UTILITY(U,$J,112,3006,2)
+64 ;;=.02^.49^0^.04^12.4^0^.5^.04^0^.21^.61^.53^0^2.49^^^.7
+65 ;;^UTILITY(U,$J,112,3006,4)
+66 ;;=^^0^.14^.01^.07^.6
+67 ;;^UTILITY(U,$J,112,3006,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,3007,0)
+70 ;;=SOUP, OYSTER STEW, CND, CONDENSED^6-048^cups^246^100^N
+71 ;;^UTILITY(U,$J,112,3007,1)
+72 ;;=1.72^3.13^3.32^48^89.88^^^18^.8^4^39^40^800^8.4^1.3^.3^^58^2.6^.017
+73 ;;^UTILITY(U,$J,112,3007,2)
+74 ;;=.029^.19^.1^.01^2^1.79^.1^.02^11^2.04^.74^.13^6^1.95^^^0
+75 ;;^UTILITY(U,$J,112,3007,4)
+76 ;;=.11^.09^.34^.77^.04^.37^.66
+77 ;;^UTILITY(U,$J,112,3007,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,3008,0)
+80 ;;=SOUP, PEA, GREEN, CND, CONDENSED^6-049^cups^263^100^N
+81 ;;^UTILITY(U,$J,112,3008,1)
+82 ;;=6.54^2.23^20.18^125^68.54^^^21^1.48^30^95^145^752^1.3^.288^.5^^153^1.3^.082
+83 ;;^UTILITY(U,$J,112,3008,2)
+84 ;;=.052^.943^.1^.04^1.4^0^.26^.03^0^1.07^.76^.29^15^2.51^^^2.2
+85 ;;^UTILITY(U,$J,112,3008,3)
+86 ;;=.055^.231^.226^.473^.388^.079^.061^.287^.191^.336^.538^.13^.282^.669^1.231^.261^.337^.264
+87 ;;^UTILITY(U,$J,112,3008,4)
+88 ;;=.04^.04^.15^.48^.03^.24^.71
+89 ;;^UTILITY(U,$J,112,3008,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,3009,0)
+92 ;;=SOUP, PEA, SPLIT W/HAM, CANNED, CHUNKY, READY-TO-SERVE^6-050^cups^240^100^N
+93 ;;^UTILITY(U,$J,112,3009,1)
+94 ;;=4.62^1.66^11.17^77^80.95^^^14^.89^16^74^127^402^1.3^.1^.25^^2030^2.9^.048
+95 ;;^UTILITY(U,$J,112,3009,2)
+96 ;;=.039^1.05^.2^.09^1.9^.1^.22^.02^3^.66^.68^.24^203^1.6^^^1.7
+97 ;;^UTILITY(U,$J,112,3009,3)
+98 ;;=.046^.163^.195^.319^.312^.062^.06^.204^.143^.219^.316^.097^.216^.471^.783^.223^.21^.199
+99 ;;^UTILITY(U,$J,112,3009,4)
+100 ;;=.01^.01^.05^.36^.03^.19^.63
+101 ;;^UTILITY(U,$J,112,3009,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,3010,0)
+104 ;;=SOUP, PEA, SPLIT W/HAM, CND, CONDENSED^6-051^cups^269^100^N
+105 ;;^UTILITY(U,$J,112,3010,1)
+106 ;;=7.68^3.28^20.81^141^65.67^^^16^1.7^36^159^297^750^.985^.275^.5^^331^1.1^.11
+107 ;;^UTILITY(U,$J,112,3010,2)
+108 ;;=.056^1.098^.2^.05^1.9^.2^.43^.04^6^1.31^1.34^.47^33^2.57^^^1.7
