FHINI025 ; ; 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,570,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,571,0)
;;=SOUP, SCOTCH BROTH, CND, PREP W/EQ VOL WATER^6-455^cups^241^100^N
;;^UTILITY(U,$J,112,571,1)
;;=2.06^1.09^3.93^33^91.76^^^6^.35^2^23^66^420^.661^.102^.152^^904^.4^.008
;;^UTILITY(U,$J,112,571,2)
;;=.019^.483^.1^.03^4^.11^.19^.04^2^.46^.32^.23^90^1.17^^^.5
;;^UTILITY(U,$J,112,571,3)
;;=.018^.064^.077^.131^.126^.035^.014^.075^.053^.09^.096^.045^.117^.172^.516^.129^.117^.071
;;^UTILITY(U,$J,112,571,4)
;;=^0^.02^.21^.02^.2^.29^0
;;^UTILITY(U,$J,112,571,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,572,0)
;;=SOUP, CREAM OF SHRIMP, CND, PREP W/EQ VOL WATER^6-456^cups^244^100^N
;;^UTILITY(U,$J,112,572,1)
;;=1.14^2.13^3.36^37^92.21^^^7^.22^4^13^24^400^.308^.05^.15^^65^0^.008
;;^UTILITY(U,$J,112,572,2)
;;=.011^.175^.06^.02^1.5^.24^.05^.03^7^1.33^.61^.08^6^1.16^^^.1
;;^UTILITY(U,$J,112,572,4)
;;=.05^.06^.21^.56^.05^.26^.54
;;^UTILITY(U,$J,112,572,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,573,0)
;;=SOUP, STOCKPOT, CND, PREP W/EQ VOL WATER^6-460^cups^247^100^N
;;^UTILITY(U,$J,112,573,1)
;;=1.97^1.58^4.65^40^90.58^^^9^.35^2^22^96^424^.468^.052^.104^^1611^.8^.018
;;^UTILITY(U,$J,112,573,2)
;;=.021^.494^.14^.036^4^0^.65^.05^2^.35^.41^.71^161^1.22
;;^UTILITY(U,$J,112,573,3)
;;=.017^.061^.074^.126^.121^.033^.014^.072^.051^.087^.092^.044^.112^.166^.496^.124^.113^.068
;;^UTILITY(U,$J,112,573,4)
;;=^0^.01^.24^.01^.08^.39
;;^UTILITY(U,$J,112,573,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,574,0)
;;=SOUP, TOMATO BEEF W/NOODLE, CND, PREP W/EQ VOL WATER^6-461^cups^244^100^N
;;^UTILITY(U,$J,112,574,1)
;;=1.83^1.76^8.67^57^86.67^^^7^.46^3^23^90^376^.308^.051^.103^^219^0^.034
;;^UTILITY(U,$J,112,574,2)
;;=.037^.766^.08^.036^3^.08^.24^.04^2^.65^.71^.28^22^1.07^^^.6
;;^UTILITY(U,$J,112,574,3)
;;=.017^.059^.07^.119^.099^.034^.022^.074^.047^.079^.075^.042^.084^.134^.504^.085^.118^.065
;;^UTILITY(U,$J,112,574,4)
;;=^^.04^.36^.05^.22^.62
;;^UTILITY(U,$J,112,574,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,575,0)
;;=SOUP, TOMATO RICE, CND, PREP W/EQ VOL WATER^6-463^cups^247^100^N
;;^UTILITY(U,$J,112,575,1)
;;=.85^1.1^8.88^48^88.11^^^9^.32^2^14^134^330^.208^.052^.156^^306^6^.025
;;^UTILITY(U,$J,112,575,2)
;;=.02^.427^.05^.031^5.5^0^.45^.09^1^.21^.24^.55^31^1.05^^^.6
;;^UTILITY(U,$J,112,575,4)
;;=0^0^.01^.12^.01^.05^.24
;;^UTILITY(U,$J,112,575,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,576,0)
;;=SOUP, TURKEY NOODLE, CND, PREP W/EQ VOL WATER^6-465^cups^244^100^N
;;^UTILITY(U,$J,112,576,1)
;;=1.6^.82^3.54^28^92.99^^^5^.39^2^20^31^334^.239^.051^.103^^120^.1^.03
;;^UTILITY(U,$J,112,576,2)
;;=.026^.572^.07^.015^.9^.06^.19^.01^2^.23^.33^.2^12^1.06^^^.3
;;^UTILITY(U,$J,112,576,3)
;;=.015^.051^.062^.104^.087^.03^.019^.064^.042^.069^.065^.037^.074^.117^.442^.075^.103^.058
;;^UTILITY(U,$J,112,576,4)
;;=^^.01^.17^.05^.04^.28
;;^UTILITY(U,$J,112,576,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,577,0)
;;=SOUP, TURKEY VEGETABLE, CND, PREP W/EQ VOL WATER^6-466^cups^241^100^N
;;^UTILITY(U,$J,112,577,1)
;;=1.28^1.26^3.58^30^92.89^^^7^.32^2^17^73^376^.254^.051^.102^^1014^0^.012
;;^UTILITY(U,$J,112,577,2)
;;=.016^.417^.2^.02^2^.07^.26^.02^1^.37^.55^.28^101^.99^^^.2
;;^UTILITY(U,$J,112,577,3)
;;=.011^.04^.048^.082^.079^.022^.009^.047^.034^.056^.06^.028^.073^.108^.322^.08^.073^.044
;;^UTILITY(U,$J,112,577,4)
;;=^0^.01^.27^.07^.08^.46
;;^UTILITY(U,$J,112,577,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,578,0)
;;=SOUP, VEGETARIAN VEGETABLE, CND, PREP W/EQ VOL WATER^6-468^cups^241^100^N
;;^UTILITY(U,$J,112,578,1)
;;=.87^.8^4.97^30^92.33^^^9^.45^3^14^87^341^.191^.051^.191^^1247^.6^.022
;;^UTILITY(U,$J,112,578,2)
;;=.019^.38^.14^.023^4.4^0^.28^.02^0^.12^.34^.3^125^1.03^^^.2
;;^UTILITY(U,$J,112,578,3)
;;=.006^.031^.041^.061^.041^.01^.01^.041^.02^.041^.041^.02^.041^.082^.185^.031^.061^.031
;;^UTILITY(U,$J,112,578,4)
;;=^^0^.08^0^.04^.34^^^1.8
;;^UTILITY(U,$J,112,578,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,579,0)
;;=SOUP, VEGETABLE BEEF, PREP W/EQ VOL WATER^6-471^cups^244^100^N
;;^UTILITY(U,$J,112,579,1)
;;=2.29^.78^4.17^32^91.61^^^7^.46^2^17^71^392^.633^.075^.129^^775^1^.015
;;^UTILITY(U,$J,112,579,2)
;;=.02^.423^.14^.031^4.3^.13^.04^.01^2^.35^.33^.05^78^1.16^^^.2
;;^UTILITY(U,$J,112,579,3)
;;=.02^.071^.086^.147^.141^.039^.016^.084^.06^.101^.107^.05^.13^.193^.576^.144^.131^.079
;;^UTILITY(U,$J,112,579,4)
;;=^^.02^.19^.03^.12^.29^^^1.8
FHINI025 ; ; 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,570,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,571,0)
+4 ;;=SOUP, SCOTCH BROTH, CND, PREP W/EQ VOL WATER^6-455^cups^241^100^N
+5 ;;^UTILITY(U,$J,112,571,1)
+6 ;;=2.06^1.09^3.93^33^91.76^^^6^.35^2^23^66^420^.661^.102^.152^^904^.4^.008
+7 ;;^UTILITY(U,$J,112,571,2)
+8 ;;=.019^.483^.1^.03^4^.11^.19^.04^2^.46^.32^.23^90^1.17^^^.5
+9 ;;^UTILITY(U,$J,112,571,3)
+10 ;;=.018^.064^.077^.131^.126^.035^.014^.075^.053^.09^.096^.045^.117^.172^.516^.129^.117^.071
+11 ;;^UTILITY(U,$J,112,571,4)
+12 ;;=^0^.02^.21^.02^.2^.29^0
+13 ;;^UTILITY(U,$J,112,571,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,572,0)
+16 ;;=SOUP, CREAM OF SHRIMP, CND, PREP W/EQ VOL WATER^6-456^cups^244^100^N
+17 ;;^UTILITY(U,$J,112,572,1)
+18 ;;=1.14^2.13^3.36^37^92.21^^^7^.22^4^13^24^400^.308^.05^.15^^65^0^.008
+19 ;;^UTILITY(U,$J,112,572,2)
+20 ;;=.011^.175^.06^.02^1.5^.24^.05^.03^7^1.33^.61^.08^6^1.16^^^.1
+21 ;;^UTILITY(U,$J,112,572,4)
+22 ;;=.05^.06^.21^.56^.05^.26^.54
+23 ;;^UTILITY(U,$J,112,572,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,573,0)
+26 ;;=SOUP, STOCKPOT, CND, PREP W/EQ VOL WATER^6-460^cups^247^100^N
+27 ;;^UTILITY(U,$J,112,573,1)
+28 ;;=1.97^1.58^4.65^40^90.58^^^9^.35^2^22^96^424^.468^.052^.104^^1611^.8^.018
+29 ;;^UTILITY(U,$J,112,573,2)
+30 ;;=.021^.494^.14^.036^4^0^.65^.05^2^.35^.41^.71^161^1.22
+31 ;;^UTILITY(U,$J,112,573,3)
+32 ;;=.017^.061^.074^.126^.121^.033^.014^.072^.051^.087^.092^.044^.112^.166^.496^.124^.113^.068
+33 ;;^UTILITY(U,$J,112,573,4)
+34 ;;=^0^.01^.24^.01^.08^.39
+35 ;;^UTILITY(U,$J,112,573,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,574,0)
+38 ;;=SOUP, TOMATO BEEF W/NOODLE, CND, PREP W/EQ VOL WATER^6-461^cups^244^100^N
+39 ;;^UTILITY(U,$J,112,574,1)
+40 ;;=1.83^1.76^8.67^57^86.67^^^7^.46^3^23^90^376^.308^.051^.103^^219^0^.034
+41 ;;^UTILITY(U,$J,112,574,2)
+42 ;;=.037^.766^.08^.036^3^.08^.24^.04^2^.65^.71^.28^22^1.07^^^.6
+43 ;;^UTILITY(U,$J,112,574,3)
+44 ;;=.017^.059^.07^.119^.099^.034^.022^.074^.047^.079^.075^.042^.084^.134^.504^.085^.118^.065
+45 ;;^UTILITY(U,$J,112,574,4)
+46 ;;=^^.04^.36^.05^.22^.62
+47 ;;^UTILITY(U,$J,112,574,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,575,0)
+50 ;;=SOUP, TOMATO RICE, CND, PREP W/EQ VOL WATER^6-463^cups^247^100^N
+51 ;;^UTILITY(U,$J,112,575,1)
+52 ;;=.85^1.1^8.88^48^88.11^^^9^.32^2^14^134^330^.208^.052^.156^^306^6^.025
+53 ;;^UTILITY(U,$J,112,575,2)
+54 ;;=.02^.427^.05^.031^5.5^0^.45^.09^1^.21^.24^.55^31^1.05^^^.6
+55 ;;^UTILITY(U,$J,112,575,4)
+56 ;;=0^0^.01^.12^.01^.05^.24
+57 ;;^UTILITY(U,$J,112,575,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,576,0)
+60 ;;=SOUP, TURKEY NOODLE, CND, PREP W/EQ VOL WATER^6-465^cups^244^100^N
+61 ;;^UTILITY(U,$J,112,576,1)
+62 ;;=1.6^.82^3.54^28^92.99^^^5^.39^2^20^31^334^.239^.051^.103^^120^.1^.03
+63 ;;^UTILITY(U,$J,112,576,2)
+64 ;;=.026^.572^.07^.015^.9^.06^.19^.01^2^.23^.33^.2^12^1.06^^^.3
+65 ;;^UTILITY(U,$J,112,576,3)
+66 ;;=.015^.051^.062^.104^.087^.03^.019^.064^.042^.069^.065^.037^.074^.117^.442^.075^.103^.058
+67 ;;^UTILITY(U,$J,112,576,4)
+68 ;;=^^.01^.17^.05^.04^.28
+69 ;;^UTILITY(U,$J,112,576,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,577,0)
+72 ;;=SOUP, TURKEY VEGETABLE, CND, PREP W/EQ VOL WATER^6-466^cups^241^100^N
+73 ;;^UTILITY(U,$J,112,577,1)
+74 ;;=1.28^1.26^3.58^30^92.89^^^7^.32^2^17^73^376^.254^.051^.102^^1014^0^.012
+75 ;;^UTILITY(U,$J,112,577,2)
+76 ;;=.016^.417^.2^.02^2^.07^.26^.02^1^.37^.55^.28^101^.99^^^.2
+77 ;;^UTILITY(U,$J,112,577,3)
+78 ;;=.011^.04^.048^.082^.079^.022^.009^.047^.034^.056^.06^.028^.073^.108^.322^.08^.073^.044
+79 ;;^UTILITY(U,$J,112,577,4)
+80 ;;=^0^.01^.27^.07^.08^.46
+81 ;;^UTILITY(U,$J,112,577,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,578,0)
+84 ;;=SOUP, VEGETARIAN VEGETABLE, CND, PREP W/EQ VOL WATER^6-468^cups^241^100^N
+85 ;;^UTILITY(U,$J,112,578,1)
+86 ;;=.87^.8^4.97^30^92.33^^^9^.45^3^14^87^341^.191^.051^.191^^1247^.6^.022
+87 ;;^UTILITY(U,$J,112,578,2)
+88 ;;=.019^.38^.14^.023^4.4^0^.28^.02^0^.12^.34^.3^125^1.03^^^.2
+89 ;;^UTILITY(U,$J,112,578,3)
+90 ;;=.006^.031^.041^.061^.041^.01^.01^.041^.02^.041^.041^.02^.041^.082^.185^.031^.061^.031
+91 ;;^UTILITY(U,$J,112,578,4)
+92 ;;=^^0^.08^0^.04^.34^^^1.8
+93 ;;^UTILITY(U,$J,112,578,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,579,0)
+96 ;;=SOUP, VEGETABLE BEEF, PREP W/EQ VOL WATER^6-471^cups^244^100^N
+97 ;;^UTILITY(U,$J,112,579,1)
+98 ;;=2.29^.78^4.17^32^91.61^^^7^.46^2^17^71^392^.633^.075^.129^^775^1^.015
+99 ;;^UTILITY(U,$J,112,579,2)
+100 ;;=.02^.423^.14^.031^4.3^.13^.04^.01^2^.35^.33^.05^78^1.16^^^.2
+101 ;;^UTILITY(U,$J,112,579,3)
+102 ;;=.02^.071^.086^.147^.141^.039^.016^.084^.06^.101^.107^.05^.13^.193^.576^.144^.131^.079
+103 ;;^UTILITY(U,$J,112,579,4)
+104 ;;=^^.02^.19^.03^.12^.29^^^1.8
