FHINI024 ; ; 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,561,1)
;;=.77^.93^4.8^30^92.4^^^5^.21^4^25^38^365^.2^.1^.05^^81^0^.01
;;^UTILITY(U,$J,112,561,2)
;;=.036^.36^.05^.07^2^0^.28^.01^0^.18^.41^.29^8^1.1^^^.3
;;^UTILITY(U,$J,112,561,4)
;;=^^0^.11^.01^.07^.41
;;^UTILITY(U,$J,112,561,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,562,0)
;;=SOUP, CREAM OF MUSHROOM, CND, PREP W/EQ VOL WATER^6-443^cups^244^100^N
;;^UTILITY(U,$J,112,562,1)
;;=.95^3.68^3.81^53^90.33^^^19^.21^2^20^41^423^.243^.051^.103^^0^.4^.019
;;^UTILITY(U,$J,112,562,2)
;;=.037^.297^.12^.006^2^.02^1.71^.01^1^1^.7^1.73^0^1.16^^^.2
;;^UTILITY(U,$J,112,562,3)
;;=.014^.037^.046^.074^.052^.018^.011^.044^.036^.05^.039^.022^.038^.066^.216^.031^.08^.048
;;^UTILITY(U,$J,112,562,4)
;;=.02^.01^.07^.72^.03^.13^.66
;;^UTILITY(U,$J,112,562,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,563,0)
;;=SOUP, MUSHROOM W/BEEF STOCK, CND, PREP W/EQ VOL WATER^6-444^cups^244^100^N
;;^UTILITY(U,$J,112,563,1)
;;=1.29^1.65^3.81^35^92.08^^^4^.34^4^15^65^397^.566^.103^.154^^514^.4^.014
;;^UTILITY(U,$J,112,563,2)
;;=.039^.494^.1^.015^3.8^0^.28^.04^3^.64^.58^.32^51^1.17^^^.3
;;^UTILITY(U,$J,112,563,4)
;;=.01^.01^.05^.33^.04^.19^.52
;;^UTILITY(U,$J,112,563,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,564,0)
;;=SOUP, ONION, CND, PREP W/EQ VOL WATER^6-445^cups^241^100^N
;;^UTILITY(U,$J,112,564,1)
;;=1.56^.72^3.39^24^93.06^^^11^.28^1^5^28^437^.254^.051^.102^^0^.5^.014
;;^UTILITY(U,$J,112,564,2)
;;=.01^.249^0^.02^6.3^0^.25^.02^0^.11^.31^.27^0^1.27^^^.4
;;^UTILITY(U,$J,112,564,4)
;;=^^0^.07^0^.04^.31
;;^UTILITY(U,$J,112,564,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,565,0)
;;=SOUP, CREAM OF ONION, CND, PREP W/EQ VOL WATER^6-446^cups^244^100^N
;;^UTILITY(U,$J,112,565,1)
;;=1.13^2.16^5.2^44^90.5^^^14^.26^2^15^49^380^.06^.06^.1^^121^.5^.021
;;^UTILITY(U,$J,112,565,2)
;;=.031^.206^.12^.01^2.8^.02^.55^.04^6^.6^.86^.6^12^1.1
;;^UTILITY(U,$J,112,565,4)
;;=.01^.02^.06^.31^.02^.16^.84
;;^UTILITY(U,$J,112,565,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,566,0)
;;=SOUP, OYSTER STEW, CND, PREPARED W/EQ VOL WATER^6-448^cups^241^100^N
;;^UTILITY(U,$J,112,566,1)
;;=.87^1.59^1.69^24^94.86^^^9^.41^2^20^20^407^4.269^.661^.152^^29^1.3^.009
;;^UTILITY(U,$J,112,566,2)
;;=.015^.097^.05^.005^1^.91^.05^.01^6^1.04^.38^.07^3^.99
;;^UTILITY(U,$J,112,566,4)
;;=.05^.05^.17^.39^.02^.19^.33
;;^UTILITY(U,$J,112,566,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,567,0)
;;=SOUP, PEA, GREEN, CND, PREP W/EQ VOL WATER^6-449^cups^250^100^N
;;^UTILITY(U,$J,112,567,1)
;;=3.44^1.17^10.6^66^83.47^^^11^.78^16^50^76^395^.683^.151^.263^^81^.7^.043
;;^UTILITY(U,$J,112,567,2)
;;=.027^.496^.05^.021^.7^0^.14^.02^0^.56^.4^.15^8^1.32^^^1.1
;;^UTILITY(U,$J,112,567,3)
;;=.029^.121^.119^.249^.204^.042^.032^.151^.1^.177^.283^.068^.148^.352^.647^.137^.177^.139
;;^UTILITY(U,$J,112,567,4)
;;=.02^.02^.08^.25^.02^.12^.37
;;^UTILITY(U,$J,112,567,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,568,0)
;;=SOUP, PEA, SPLIT W/HAM, CND, PREP W/EQ VOL WATER^6-451^cups^253^100^N
;;^UTILITY(U,$J,112,568,1)
;;=4.08^1.74^11.05^75^81.77^^^9^.9^19^84^158^398^.523^.146^.265^^176^.6^.058
;;^UTILITY(U,$J,112,568,2)
;;=.03^.583^.1^.027^1^.1^.23^.02^3^.7^.71^.25^18^1.36
;;^UTILITY(U,$J,112,568,3)
;;=.04^.144^.172^.281^.275^.055^.053^.18^.126^.194^.278^.085^.191^.415^.691^.197^.185^.175
;;^UTILITY(U,$J,112,568,4)
;;=.01^.02^.06^.37^.03^.2^.66
;;^UTILITY(U,$J,112,568,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,569,0)
;;=SOUP, PEPPERPOT, CND, PREP W/EQ VOL WATER^6-452^cups^241^100^N
;;^UTILITY(U,$J,112,569,1)
;;=2.64^1.92^3.89^43^90.15^^^10^.37^2^17^63^403^.508^.051^.254^^359^.6^.022
;;^UTILITY(U,$J,112,569,2)
;;=.02^.508^.14^.025^4^.07^.13^.02^4^.85^.83^.15^36^1.4^^^.2
;;^UTILITY(U,$J,112,569,3)
;;=.017^.081^.097^.167^.129^.038^.025^.097^.065^.124^.205^.038^.194^.231^.468^.35^.248^.097
;;^UTILITY(U,$J,112,569,4)
;;=0^.01^.05^.47^.07^.31^.74
;;^UTILITY(U,$J,112,569,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,570,0)
;;=SOUP, CREAM OF POTATO, CND, PREP W/EQ VOL WATER^6-453^cups^244^100^N
;;^UTILITY(U,$J,112,570,1)
;;=.72^.97^4.7^30^92.49^^^8^.2^1^19^56^410^.257^.103^.154^^118^0^.014
;;^UTILITY(U,$J,112,570,2)
;;=.015^.221^.34^.015^1.2^.02^.16^.01^2^.5^.23^.17^12^1.14^^^.2
;;^UTILITY(U,$J,112,570,3)
;;=.01^.025^.031^.048^.034^.012^.011^.034^.025^.038^.031^.016^.022^.104^.17^.022^.053^.034
;;^UTILITY(U,$J,112,570,4)
;;=.02^.02^.07^.21^.01^.08^.2
FHINI024 ; ; 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,561,1)
+2 ;;=.77^.93^4.8^30^92.4^^^5^.21^4^25^38^365^.2^.1^.05^^81^0^.01
+3 ;;^UTILITY(U,$J,112,561,2)
+4 ;;=.036^.36^.05^.07^2^0^.28^.01^0^.18^.41^.29^8^1.1^^^.3
+5 ;;^UTILITY(U,$J,112,561,4)
+6 ;;=^^0^.11^.01^.07^.41
+7 ;;^UTILITY(U,$J,112,561,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,562,0)
+10 ;;=SOUP, CREAM OF MUSHROOM, CND, PREP W/EQ VOL WATER^6-443^cups^244^100^N
+11 ;;^UTILITY(U,$J,112,562,1)
+12 ;;=.95^3.68^3.81^53^90.33^^^19^.21^2^20^41^423^.243^.051^.103^^0^.4^.019
+13 ;;^UTILITY(U,$J,112,562,2)
+14 ;;=.037^.297^.12^.006^2^.02^1.71^.01^1^1^.7^1.73^0^1.16^^^.2
+15 ;;^UTILITY(U,$J,112,562,3)
+16 ;;=.014^.037^.046^.074^.052^.018^.011^.044^.036^.05^.039^.022^.038^.066^.216^.031^.08^.048
+17 ;;^UTILITY(U,$J,112,562,4)
+18 ;;=.02^.01^.07^.72^.03^.13^.66
+19 ;;^UTILITY(U,$J,112,562,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,563,0)
+22 ;;=SOUP, MUSHROOM W/BEEF STOCK, CND, PREP W/EQ VOL WATER^6-444^cups^244^100^N
+23 ;;^UTILITY(U,$J,112,563,1)
+24 ;;=1.29^1.65^3.81^35^92.08^^^4^.34^4^15^65^397^.566^.103^.154^^514^.4^.014
+25 ;;^UTILITY(U,$J,112,563,2)
+26 ;;=.039^.494^.1^.015^3.8^0^.28^.04^3^.64^.58^.32^51^1.17^^^.3
+27 ;;^UTILITY(U,$J,112,563,4)
+28 ;;=.01^.01^.05^.33^.04^.19^.52
+29 ;;^UTILITY(U,$J,112,563,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,564,0)
+32 ;;=SOUP, ONION, CND, PREP W/EQ VOL WATER^6-445^cups^241^100^N
+33 ;;^UTILITY(U,$J,112,564,1)
+34 ;;=1.56^.72^3.39^24^93.06^^^11^.28^1^5^28^437^.254^.051^.102^^0^.5^.014
+35 ;;^UTILITY(U,$J,112,564,2)
+36 ;;=.01^.249^0^.02^6.3^0^.25^.02^0^.11^.31^.27^0^1.27^^^.4
+37 ;;^UTILITY(U,$J,112,564,4)
+38 ;;=^^0^.07^0^.04^.31
+39 ;;^UTILITY(U,$J,112,564,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,565,0)
+42 ;;=SOUP, CREAM OF ONION, CND, PREP W/EQ VOL WATER^6-446^cups^244^100^N
+43 ;;^UTILITY(U,$J,112,565,1)
+44 ;;=1.13^2.16^5.2^44^90.5^^^14^.26^2^15^49^380^.06^.06^.1^^121^.5^.021
+45 ;;^UTILITY(U,$J,112,565,2)
+46 ;;=.031^.206^.12^.01^2.8^.02^.55^.04^6^.6^.86^.6^12^1.1
+47 ;;^UTILITY(U,$J,112,565,4)
+48 ;;=.01^.02^.06^.31^.02^.16^.84
+49 ;;^UTILITY(U,$J,112,565,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,566,0)
+52 ;;=SOUP, OYSTER STEW, CND, PREPARED W/EQ VOL WATER^6-448^cups^241^100^N
+53 ;;^UTILITY(U,$J,112,566,1)
+54 ;;=.87^1.59^1.69^24^94.86^^^9^.41^2^20^20^407^4.269^.661^.152^^29^1.3^.009
+55 ;;^UTILITY(U,$J,112,566,2)
+56 ;;=.015^.097^.05^.005^1^.91^.05^.01^6^1.04^.38^.07^3^.99
+57 ;;^UTILITY(U,$J,112,566,4)
+58 ;;=.05^.05^.17^.39^.02^.19^.33
+59 ;;^UTILITY(U,$J,112,566,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,567,0)
+62 ;;=SOUP, PEA, GREEN, CND, PREP W/EQ VOL WATER^6-449^cups^250^100^N
+63 ;;^UTILITY(U,$J,112,567,1)
+64 ;;=3.44^1.17^10.6^66^83.47^^^11^.78^16^50^76^395^.683^.151^.263^^81^.7^.043
+65 ;;^UTILITY(U,$J,112,567,2)
+66 ;;=.027^.496^.05^.021^.7^0^.14^.02^0^.56^.4^.15^8^1.32^^^1.1
+67 ;;^UTILITY(U,$J,112,567,3)
+68 ;;=.029^.121^.119^.249^.204^.042^.032^.151^.1^.177^.283^.068^.148^.352^.647^.137^.177^.139
+69 ;;^UTILITY(U,$J,112,567,4)
+70 ;;=.02^.02^.08^.25^.02^.12^.37
+71 ;;^UTILITY(U,$J,112,567,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,568,0)
+74 ;;=SOUP, PEA, SPLIT W/HAM, CND, PREP W/EQ VOL WATER^6-451^cups^253^100^N
+75 ;;^UTILITY(U,$J,112,568,1)
+76 ;;=4.08^1.74^11.05^75^81.77^^^9^.9^19^84^158^398^.523^.146^.265^^176^.6^.058
+77 ;;^UTILITY(U,$J,112,568,2)
+78 ;;=.03^.583^.1^.027^1^.1^.23^.02^3^.7^.71^.25^18^1.36
+79 ;;^UTILITY(U,$J,112,568,3)
+80 ;;=.04^.144^.172^.281^.275^.055^.053^.18^.126^.194^.278^.085^.191^.415^.691^.197^.185^.175
+81 ;;^UTILITY(U,$J,112,568,4)
+82 ;;=.01^.02^.06^.37^.03^.2^.66
+83 ;;^UTILITY(U,$J,112,568,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,569,0)
+86 ;;=SOUP, PEPPERPOT, CND, PREP W/EQ VOL WATER^6-452^cups^241^100^N
+87 ;;^UTILITY(U,$J,112,569,1)
+88 ;;=2.64^1.92^3.89^43^90.15^^^10^.37^2^17^63^403^.508^.051^.254^^359^.6^.022
+89 ;;^UTILITY(U,$J,112,569,2)
+90 ;;=.02^.508^.14^.025^4^.07^.13^.02^4^.85^.83^.15^36^1.4^^^.2
+91 ;;^UTILITY(U,$J,112,569,3)
+92 ;;=.017^.081^.097^.167^.129^.038^.025^.097^.065^.124^.205^.038^.194^.231^.468^.35^.248^.097
+93 ;;^UTILITY(U,$J,112,569,4)
+94 ;;=0^.01^.05^.47^.07^.31^.74
+95 ;;^UTILITY(U,$J,112,569,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,570,0)
+98 ;;=SOUP, CREAM OF POTATO, CND, PREP W/EQ VOL WATER^6-453^cups^244^100^N
+99 ;;^UTILITY(U,$J,112,570,1)
+100 ;;=.72^.97^4.7^30^92.49^^^8^.2^1^19^56^410^.257^.103^.154^^118^0^.014
+101 ;;^UTILITY(U,$J,112,570,2)
+102 ;;=.015^.221^.34^.015^1.2^.02^.16^.01^2^.5^.23^.17^12^1.14^^^.2
+103 ;;^UTILITY(U,$J,112,570,3)
+104 ;;=.01^.025^.031^.048^.034^.012^.011^.034^.025^.038^.031^.016^.022^.104^.17^.022^.053^.034
+105 ;;^UTILITY(U,$J,112,570,4)
+106 ;;=.02^.02^.07^.21^.01^.08^.2
