FHINI023 ; ; 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,552,1)
;;=1.08^.59^3.43^23^93.84^^^10^.37^2^10^31^391^.154^.051^.103^^56^2^.01
;;^UTILITY(U,$J,112,552,2)
;;=.02^.272^.08^.026^2^.01^.13^0^2^.13^.27^.14^6^1.06^^^.8
;;^UTILITY(U,$J,112,552,3)
;;=.009^.034^.041^.069^.066^.019^.007^.04^.028^.048^.05^.024^.062^.091^.272^.068^.062^.037
;;^UTILITY(U,$J,112,552,4)
;;=^^0^.1^.03^.03^.24
;;^UTILITY(U,$J,112,552,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,553,0)
;;=SOUP, CHICKEN NOODLE, CND, PREP W/EQ VOL WATER^6-419^cups^241^100^N
;;^UTILITY(U,$J,112,553,1)
;;=1.68^1.02^3.88^31^91.99^^^7^.32^2^15^23^459^.164^.08^.12^^295^.1^.022
;;^UTILITY(U,$J,112,553,2)
;;=.025^.575^.07^.011^.9^.06^.21^.01^3^.27^.46^.23^30^1.2^^^.3
;;^UTILITY(U,$J,112,553,3)
;;=.016^.053^.066^.11^.091^.032^.019^.068^.044^.073^.069^.039^.078^.123^.464^.079^.109^.06
;;^UTILITY(U,$J,112,553,4)
;;=^^.01^.21^.02^.05^.42^^^2.6
;;^UTILITY(U,$J,112,553,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,554,0)
;;=SOUP, CHICKEN W/RICE, CND, PREP W/EQ VOL WATER^6-423^cups^241^100^N
;;^UTILITY(U,$J,112,554,1)
;;=1.47^.79^2.97^25^93.82^^^7^.31^0^9^42^338^.109^.049^.152^^274^.1^.007
;;^UTILITY(U,$J,112,554,2)
;;=.01^.467^.07^.01^.4^.06^.16^.01^3^.19^.38^.17^27^.95^^^.3
;;^UTILITY(U,$J,112,554,3)
;;=.017^.059^.074^.112^.104^.038^.021^.063^.051^.078^.097^.042^.08^.132^.232^.071^.062^.057
;;^UTILITY(U,$J,112,554,4)
;;=^^.01^.15^.03^.04^.34
;;^UTILITY(U,$J,112,554,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,555,0)
;;=SOUP, CHICKEN VEGETABLE, CND, PREP W/EQ VOL WATER^6-425^cups^241^100^N
;;^UTILITY(U,$J,112,555,1)
;;=1.5^1.18^3.56^31^92.64^^^7^.36^3^17^64^392^.152^.051^.152^^1102^.4^.018
;;^UTILITY(U,$J,112,555,2)
;;=.023^.51^.07^.02^2^.05^.23^.01^4^.35^.53^.25^110^1.13^^^.4
;;^UTILITY(U,$J,112,555,3)
;;=.013^.047^.056^.096^.092^.025^.01^.055^.039^.066^.07^.033^.085^.126^.377^.094^.086^.051
;;^UTILITY(U,$J,112,555,4)
;;=^0^.01^.26^.07^.07^.44^0
;;^UTILITY(U,$J,112,555,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,556,0)
;;=SOUP, CHILI BEEF, CND, PREP W/EQ VOL WATER^6-426^cups^250^100^N
;;^UTILITY(U,$J,112,556,1)
;;=2.68^2.64^8.58^68^84.69^^^17^.85^12^59^210^414^.559^.158^.42^^604^1.6^.024
;;^UTILITY(U,$J,112,556,2)
;;=.03^.427^.2^.063^7^.13^.08^.02^5^1.34^1.12^.11^60^1.42^^^3.8
;;^UTILITY(U,$J,112,556,3)
;;=.028^.11^.131^.221^.182^.034^.029^.149^.08^.147^.14^.07^.133^.3^.493^.129^.121^.132
;;^UTILITY(U,$J,112,556,4)
;;=^.02^.1^.67^.11^.51^.96
;;^UTILITY(U,$J,112,556,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,557,0)
;;=SOUP, CLAM CHOWDER, MANHATTAN, CND, PREP W/WATER^6-428^cups^244^100^N
;;^UTILITY(U,$J,112,557,1)
;;=.9^.91^5.01^32^91.87^^^11^.67^5^17^77^237^.4^.054^.155^^395^1.6^.012
;;^UTILITY(U,$J,112,557,2)
;;=.016^.335^0^.041^4^1.66^.492^.037^1^.157^.157^.529^40^1.31^^^.6
;;^UTILITY(U,$J,112,557,4)
;;=^^.005^.126^.005^.026^.152
;;^UTILITY(U,$J,112,557,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,558,0)
;;=SOUP, CLAM CHOWDER, CND, NEW ENGLAND, PREP W/WATER^6-430^cups^244^100^N
;;^UTILITY(U,$J,112,558,1)
;;=1.97^1.18^5.09^39^90.54^^^18^.61^3^22^60^375^.308^.051^.103^^3^.8^.008
;;^UTILITY(U,$J,112,558,2)
;;=.018^.394^.13^.034^1.5^3.28^.41^.03^2^.17^.5^.45^0^1.22^^^.6
;;^UTILITY(U,$J,112,558,3)
;;=.022^.061^.075^.118^.103^.037^.023^.065^.052^.08^.094^.056^.103^.183^.572^.094^.075^.056
;;^UTILITY(U,$J,112,558,4)
;;=^^0^.11^0^.06^.5
;;^UTILITY(U,$J,112,558,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,559,0)
;;=SOUP, BEEF BROTH, BOUILLION, &CONSOME, PREP W/EQ VOL WATER^6-432^cups^241^100^N
;;^UTILITY(U,$J,112,559,1)
;;=2.22^0^.73^12^96.24^^^4^.22^0^13^64^264^.152^.102^.152^^0^.4^.009
;;^UTILITY(U,$J,112,559,2)
;;=.012^.295^.02^.01^1.2^0^0^^0^0^0^0^0^.81
;;^UTILITY(U,$J,112,559,4)
;;=^^0^0^^0^0
;;^UTILITY(U,$J,112,559,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,560,0)
;;=SOUP, MINESTRONE, CND, PREP W/EQ VOL WATER^6-440^cups^241^100^N
;;^UTILITY(U,$J,112,560,1)
;;=1.77^1.04^4.66^34^91.33^^^14^.38^3^23^130^378^.305^.051^.152^^970^.5^.022
;;^UTILITY(U,$J,112,560,2)
;;=.018^.391^.14^.041^6.7^0^.4^.06^1^.23^.29^.46^97^1.19^^^.4
;;^UTILITY(U,$J,112,560,3)
;;=.013^.043^.054^.098^.076^.018^.014^.064^.035^.074^.082^.03^.103^.152^.506^.163^.135^.06
;;^UTILITY(U,$J,112,560,4)
;;=0^0^.01^.13^.01^.05^.27
;;^UTILITY(U,$J,112,560,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,561,0)
;;=SOUP, MUSHROOM BARLEY, CND, PREP W/EQ VOL WATER^6-442^cups^244^100^N
FHINI023 ; ; 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,552,1)
+2 ;;=1.08^.59^3.43^23^93.84^^^10^.37^2^10^31^391^.154^.051^.103^^56^2^.01
+3 ;;^UTILITY(U,$J,112,552,2)
+4 ;;=.02^.272^.08^.026^2^.01^.13^0^2^.13^.27^.14^6^1.06^^^.8
+5 ;;^UTILITY(U,$J,112,552,3)
+6 ;;=.009^.034^.041^.069^.066^.019^.007^.04^.028^.048^.05^.024^.062^.091^.272^.068^.062^.037
+7 ;;^UTILITY(U,$J,112,552,4)
+8 ;;=^^0^.1^.03^.03^.24
+9 ;;^UTILITY(U,$J,112,552,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,553,0)
+12 ;;=SOUP, CHICKEN NOODLE, CND, PREP W/EQ VOL WATER^6-419^cups^241^100^N
+13 ;;^UTILITY(U,$J,112,553,1)
+14 ;;=1.68^1.02^3.88^31^91.99^^^7^.32^2^15^23^459^.164^.08^.12^^295^.1^.022
+15 ;;^UTILITY(U,$J,112,553,2)
+16 ;;=.025^.575^.07^.011^.9^.06^.21^.01^3^.27^.46^.23^30^1.2^^^.3
+17 ;;^UTILITY(U,$J,112,553,3)
+18 ;;=.016^.053^.066^.11^.091^.032^.019^.068^.044^.073^.069^.039^.078^.123^.464^.079^.109^.06
+19 ;;^UTILITY(U,$J,112,553,4)
+20 ;;=^^.01^.21^.02^.05^.42^^^2.6
+21 ;;^UTILITY(U,$J,112,553,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,554,0)
+24 ;;=SOUP, CHICKEN W/RICE, CND, PREP W/EQ VOL WATER^6-423^cups^241^100^N
+25 ;;^UTILITY(U,$J,112,554,1)
+26 ;;=1.47^.79^2.97^25^93.82^^^7^.31^0^9^42^338^.109^.049^.152^^274^.1^.007
+27 ;;^UTILITY(U,$J,112,554,2)
+28 ;;=.01^.467^.07^.01^.4^.06^.16^.01^3^.19^.38^.17^27^.95^^^.3
+29 ;;^UTILITY(U,$J,112,554,3)
+30 ;;=.017^.059^.074^.112^.104^.038^.021^.063^.051^.078^.097^.042^.08^.132^.232^.071^.062^.057
+31 ;;^UTILITY(U,$J,112,554,4)
+32 ;;=^^.01^.15^.03^.04^.34
+33 ;;^UTILITY(U,$J,112,554,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,555,0)
+36 ;;=SOUP, CHICKEN VEGETABLE, CND, PREP W/EQ VOL WATER^6-425^cups^241^100^N
+37 ;;^UTILITY(U,$J,112,555,1)
+38 ;;=1.5^1.18^3.56^31^92.64^^^7^.36^3^17^64^392^.152^.051^.152^^1102^.4^.018
+39 ;;^UTILITY(U,$J,112,555,2)
+40 ;;=.023^.51^.07^.02^2^.05^.23^.01^4^.35^.53^.25^110^1.13^^^.4
+41 ;;^UTILITY(U,$J,112,555,3)
+42 ;;=.013^.047^.056^.096^.092^.025^.01^.055^.039^.066^.07^.033^.085^.126^.377^.094^.086^.051
+43 ;;^UTILITY(U,$J,112,555,4)
+44 ;;=^0^.01^.26^.07^.07^.44^0
+45 ;;^UTILITY(U,$J,112,555,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,556,0)
+48 ;;=SOUP, CHILI BEEF, CND, PREP W/EQ VOL WATER^6-426^cups^250^100^N
+49 ;;^UTILITY(U,$J,112,556,1)
+50 ;;=2.68^2.64^8.58^68^84.69^^^17^.85^12^59^210^414^.559^.158^.42^^604^1.6^.024
+51 ;;^UTILITY(U,$J,112,556,2)
+52 ;;=.03^.427^.2^.063^7^.13^.08^.02^5^1.34^1.12^.11^60^1.42^^^3.8
+53 ;;^UTILITY(U,$J,112,556,3)
+54 ;;=.028^.11^.131^.221^.182^.034^.029^.149^.08^.147^.14^.07^.133^.3^.493^.129^.121^.132
+55 ;;^UTILITY(U,$J,112,556,4)
+56 ;;=^.02^.1^.67^.11^.51^.96
+57 ;;^UTILITY(U,$J,112,556,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,557,0)
+60 ;;=SOUP, CLAM CHOWDER, MANHATTAN, CND, PREP W/WATER^6-428^cups^244^100^N
+61 ;;^UTILITY(U,$J,112,557,1)
+62 ;;=.9^.91^5.01^32^91.87^^^11^.67^5^17^77^237^.4^.054^.155^^395^1.6^.012
+63 ;;^UTILITY(U,$J,112,557,2)
+64 ;;=.016^.335^0^.041^4^1.66^.492^.037^1^.157^.157^.529^40^1.31^^^.6
+65 ;;^UTILITY(U,$J,112,557,4)
+66 ;;=^^.005^.126^.005^.026^.152
+67 ;;^UTILITY(U,$J,112,557,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,558,0)
+70 ;;=SOUP, CLAM CHOWDER, CND, NEW ENGLAND, PREP W/WATER^6-430^cups^244^100^N
+71 ;;^UTILITY(U,$J,112,558,1)
+72 ;;=1.97^1.18^5.09^39^90.54^^^18^.61^3^22^60^375^.308^.051^.103^^3^.8^.008
+73 ;;^UTILITY(U,$J,112,558,2)
+74 ;;=.018^.394^.13^.034^1.5^3.28^.41^.03^2^.17^.5^.45^0^1.22^^^.6
+75 ;;^UTILITY(U,$J,112,558,3)
+76 ;;=.022^.061^.075^.118^.103^.037^.023^.065^.052^.08^.094^.056^.103^.183^.572^.094^.075^.056
+77 ;;^UTILITY(U,$J,112,558,4)
+78 ;;=^^0^.11^0^.06^.5
+79 ;;^UTILITY(U,$J,112,558,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,559,0)
+82 ;;=SOUP, BEEF BROTH, BOUILLION, &CONSOME, PREP W/EQ VOL WATER^6-432^cups^241^100^N
+83 ;;^UTILITY(U,$J,112,559,1)
+84 ;;=2.22^0^.73^12^96.24^^^4^.22^0^13^64^264^.152^.102^.152^^0^.4^.009
+85 ;;^UTILITY(U,$J,112,559,2)
+86 ;;=.012^.295^.02^.01^1.2^0^0^^0^0^0^0^0^.81
+87 ;;^UTILITY(U,$J,112,559,4)
+88 ;;=^^0^0^^0^0
+89 ;;^UTILITY(U,$J,112,559,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,560,0)
+92 ;;=SOUP, MINESTRONE, CND, PREP W/EQ VOL WATER^6-440^cups^241^100^N
+93 ;;^UTILITY(U,$J,112,560,1)
+94 ;;=1.77^1.04^4.66^34^91.33^^^14^.38^3^23^130^378^.305^.051^.152^^970^.5^.022
+95 ;;^UTILITY(U,$J,112,560,2)
+96 ;;=.018^.391^.14^.041^6.7^0^.4^.06^1^.23^.29^.46^97^1.19^^^.4
+97 ;;^UTILITY(U,$J,112,560,3)
+98 ;;=.013^.043^.054^.098^.076^.018^.014^.064^.035^.074^.082^.03^.103^.152^.506^.163^.135^.06
+99 ;;^UTILITY(U,$J,112,560,4)
+100 ;;=0^0^.01^.13^.01^.05^.27
+101 ;;^UTILITY(U,$J,112,560,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,561,0)
+104 ;;=SOUP, MUSHROOM BARLEY, CND, PREP W/EQ VOL WATER^6-442^cups^244^100^N
