FHINI08M ; ; 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,2982,3)
;;=.037^.123^.149^.251^.209^.072^.046^.155^.1^.166^.158^.089^.177^.282^1.063^.18^.248^.138
;;^UTILITY(U,$J,112,2982,4)
;;=^^.05^.5^.07^.31^.87^^^5.9
;;^UTILITY(U,$J,112,2982,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2983,0)
;;=SOUP, BLACK BEAN, CND, CONDENSED^6-002^cups^257^100^N
;;^UTILITY(U,$J,112,2983,1)
;;=4.83^1.32^15.42^91^75.33^^^35^1.5^33^75^250^970^1.1^.3^.5^^445^.2^.042
;;^UTILITY(U,$J,112,2983,2)
;;=.039^.41^.16^.07^20^0^.31^.1^0^.34^.48^.41^45^3.1^^^6.8
;;^UTILITY(U,$J,112,2983,3)
;;=.055^.213^.246^.361^.355^.054^.05^.267^.148^.244^.283^.141^.198^.56^.966^.188^.187^.266
;;^UTILITY(U,$J,112,2983,4)
;;=.01^0^.02^.21^.02^.08^.45
;;^UTILITY(U,$J,112,2983,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2984,0)
;;=SOUP, CHEESE, CND, CONDENSED^6-011^cups^257^100^N
;;^UTILITY(U,$J,112,2984,1)
;;=4.22^8.15^8.19^121^77.15^^^111^.58^3^106^120^747^.5^.1^.2^^847^0^.013
;;^UTILITY(U,$J,112,2984,2)
;;=.105^.31^.07^.02^3^0^.14^.09^23^5.19^2.31^.23^85^2.29^^^.8
;;^UTILITY(U,$J,112,2984,3)
;;=.056^.148^.251^.399^.296^.091^.035^.217^.194^.296^.126^.114^.137^.296^1.3^.091^.445^.194
;;^UTILITY(U,$J,112,2984,4)
;;=.15^.13^.82^2.41^.25^.99^1.94
;;^UTILITY(U,$J,112,2984,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2985,0)
;;=SOUP, CHICKEN BROTH, CND, CONDENSED^6-013^cups^251^100^N
;;^UTILITY(U,$J,112,2985,1)
;;=4.42^1.04^.75^31^91.96^^^6^.41^2^60^170^626^.2^.1^.2^^0^0^.006
;;^UTILITY(U,$J,112,2985,2)
;;=.046^2.23^.04^.02^4^.2^.2^.01^1^.31^.47^.22^0^1.83^^^0
;;^UTILITY(U,$J,112,2985,4)
;;=^0^.01^.23^.06^.06^.39^0
;;^UTILITY(U,$J,112,2985,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2986,0)
;;=SOUP, CHICKEN GUMBO, CND, CONDENSED^6-017^cups^251^100^N
;;^UTILITY(U,$J,112,2986,1)
;;=2.1^1.14^6.67^45^88.02^^^19^.71^3^20^60^761^.3^.1^.2^^108^4^.2
;;^UTILITY(U,$J,112,2986,2)
;;=.3^.53^.16^.05^5^.02^.25^.01^3^.26^.52^.28^11^2.07^^^1.6
;;^UTILITY(U,$J,112,2986,3)
;;=.018^.066^.079^.134^.129^.036^.014^.077^.055^.093^.098^.046^.12^.177^.529^.132^.12^.072
;;^UTILITY(U,$J,112,2986,4)
;;=^^.01^.2^.05^.05^.46
;;^UTILITY(U,$J,112,2986,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2987,0)
;;=SOUP, CHICKEN MUSHROOM, CND, CONDENSED^6-149^cups^251^100^N
;;^UTILITY(U,$J,112,2987,1)
;;=3.5^7.3^7.6^109^80.4^^^23^.7^7^22^126^773^.8^.2^.1^^905^0^.02
;;^UTILITY(U,$J,112,2987,2)
;;=.09^1.3^.2^.04^2^.05^1.75^.09^8^1.92^3.21^1.85^90^1.2^^^.2
;;^UTILITY(U,$J,112,2987,4)
;;=.01^.01^.07^1.26^.21^.5^2.94^0
;;^UTILITY(U,$J,112,2987,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2988,0)
;;=SOUP, CHICKEN NOODLE, CND, CONDENSED^6-019^cups^246^100^N
;;^UTILITY(U,$J,112,2988,1)
;;=3.23^1.85^7.62^61^85.07^^^11^.62^4^30^45^757^.233^.159^.235^^532^0^.052
;;^UTILITY(U,$J,112,2988,2)
;;=.054^1.228^.14^.021^1.8^.13^.36^.02^5^.49^.83^.41^53^2.23^^^.6
;;^UTILITY(U,$J,112,2988,3)
;;=.031^.103^.125^.21^.175^.06^.038^.13^.084^.139^.132^.075^.149^.236^.89^.151^.208^.116
;;^UTILITY(U,$J,112,2988,4)
;;=^^.01^.38^.05^.09^.77^^^9.8
;;^UTILITY(U,$J,112,2988,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2989,0)
;;=SOUP, CHICKEN VEGETABLE, CND, CONDENSED^6-025^cups^246^100^N
;;^UTILITY(U,$J,112,2989,1)
;;=2.94^2.32^7.01^61^85.52^^^14^.71^5^33^126^771^.3^.099^.3^^2168^.8^.036
;;^UTILITY(U,$J,112,2989,2)
;;=.046^1.004^.14^.039^4^.1^.45^.02^7^.69^1.04^.49^217^2.22^^^.7
;;^UTILITY(U,$J,112,2989,3)
;;=.025^.092^.111^.188^.181^.05^.02^.108^.077^.13^.138^.065^.168^.248^.741^.185^.169^.101
;;^UTILITY(U,$J,112,2989,4)
;;=^0^.02^.5^.13^.14^.87^0
;;^UTILITY(U,$J,112,2989,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2990,0)
;;=SOUP, CHICKEN W/DUMPLINGS, CND, CONDENSED^6-012^cups^246^100^N
;;^UTILITY(U,$J,112,2990,1)
;;=4.58^4.51^4.93^79^83.82^^^12^.51^3^50^95^703^.3^.1^.4^^423^0^.013
;;^UTILITY(U,$J,112,2990,2)
;;=.059^1.43^.12^.03^2^.13^1^.03^27^1.07^2.06^1.06^42^2.16
;;^UTILITY(U,$J,112,2990,3)
;;=.044^.158^.199^.333^.308^.088^.059^.182^.117^.226^.238^.112^.281^.392^1.242^.336^.301^.155
;;^UTILITY(U,$J,112,2990,4)
;;=^^.03^.8^.2^.21^1.85
;;^UTILITY(U,$J,112,2990,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2991,0)
;;=SOUP, CHICKEN W/RICE, CND, CONDENSED^6-023^cups^246^100^N
;;^UTILITY(U,$J,112,2991,1)
;;=2.89^1.56^5.84^49^87.84^^^14^.61^0^17^82^665^.214^.096^.3^^539^.1^.014
;;^UTILITY(U,$J,112,2991,2)
;;=.02^.918^.14^.02^.9^.13^.32^.01^5^.37^.74^.34^54^1.88^^^.5
;;^UTILITY(U,$J,112,2991,3)
;;=.034^.116^.145^.221^.204^.075^.041^.123^.101^.154^.191^.082^.158^.259^.456^.14^.122^.113
FHINI08M ; ; 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,2982,3)
+2 ;;=.037^.123^.149^.251^.209^.072^.046^.155^.1^.166^.158^.089^.177^.282^1.063^.18^.248^.138
+3 ;;^UTILITY(U,$J,112,2982,4)
+4 ;;=^^.05^.5^.07^.31^.87^^^5.9
+5 ;;^UTILITY(U,$J,112,2982,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,2983,0)
+8 ;;=SOUP, BLACK BEAN, CND, CONDENSED^6-002^cups^257^100^N
+9 ;;^UTILITY(U,$J,112,2983,1)
+10 ;;=4.83^1.32^15.42^91^75.33^^^35^1.5^33^75^250^970^1.1^.3^.5^^445^.2^.042
+11 ;;^UTILITY(U,$J,112,2983,2)
+12 ;;=.039^.41^.16^.07^20^0^.31^.1^0^.34^.48^.41^45^3.1^^^6.8
+13 ;;^UTILITY(U,$J,112,2983,3)
+14 ;;=.055^.213^.246^.361^.355^.054^.05^.267^.148^.244^.283^.141^.198^.56^.966^.188^.187^.266
+15 ;;^UTILITY(U,$J,112,2983,4)
+16 ;;=.01^0^.02^.21^.02^.08^.45
+17 ;;^UTILITY(U,$J,112,2983,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,2984,0)
+20 ;;=SOUP, CHEESE, CND, CONDENSED^6-011^cups^257^100^N
+21 ;;^UTILITY(U,$J,112,2984,1)
+22 ;;=4.22^8.15^8.19^121^77.15^^^111^.58^3^106^120^747^.5^.1^.2^^847^0^.013
+23 ;;^UTILITY(U,$J,112,2984,2)
+24 ;;=.105^.31^.07^.02^3^0^.14^.09^23^5.19^2.31^.23^85^2.29^^^.8
+25 ;;^UTILITY(U,$J,112,2984,3)
+26 ;;=.056^.148^.251^.399^.296^.091^.035^.217^.194^.296^.126^.114^.137^.296^1.3^.091^.445^.194
+27 ;;^UTILITY(U,$J,112,2984,4)
+28 ;;=.15^.13^.82^2.41^.25^.99^1.94
+29 ;;^UTILITY(U,$J,112,2984,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,2985,0)
+32 ;;=SOUP, CHICKEN BROTH, CND, CONDENSED^6-013^cups^251^100^N
+33 ;;^UTILITY(U,$J,112,2985,1)
+34 ;;=4.42^1.04^.75^31^91.96^^^6^.41^2^60^170^626^.2^.1^.2^^0^0^.006
+35 ;;^UTILITY(U,$J,112,2985,2)
+36 ;;=.046^2.23^.04^.02^4^.2^.2^.01^1^.31^.47^.22^0^1.83^^^0
+37 ;;^UTILITY(U,$J,112,2985,4)
+38 ;;=^0^.01^.23^.06^.06^.39^0
+39 ;;^UTILITY(U,$J,112,2985,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,2986,0)
+42 ;;=SOUP, CHICKEN GUMBO, CND, CONDENSED^6-017^cups^251^100^N
+43 ;;^UTILITY(U,$J,112,2986,1)
+44 ;;=2.1^1.14^6.67^45^88.02^^^19^.71^3^20^60^761^.3^.1^.2^^108^4^.2
+45 ;;^UTILITY(U,$J,112,2986,2)
+46 ;;=.3^.53^.16^.05^5^.02^.25^.01^3^.26^.52^.28^11^2.07^^^1.6
+47 ;;^UTILITY(U,$J,112,2986,3)
+48 ;;=.018^.066^.079^.134^.129^.036^.014^.077^.055^.093^.098^.046^.12^.177^.529^.132^.12^.072
+49 ;;^UTILITY(U,$J,112,2986,4)
+50 ;;=^^.01^.2^.05^.05^.46
+51 ;;^UTILITY(U,$J,112,2986,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,2987,0)
+54 ;;=SOUP, CHICKEN MUSHROOM, CND, CONDENSED^6-149^cups^251^100^N
+55 ;;^UTILITY(U,$J,112,2987,1)
+56 ;;=3.5^7.3^7.6^109^80.4^^^23^.7^7^22^126^773^.8^.2^.1^^905^0^.02
+57 ;;^UTILITY(U,$J,112,2987,2)
+58 ;;=.09^1.3^.2^.04^2^.05^1.75^.09^8^1.92^3.21^1.85^90^1.2^^^.2
+59 ;;^UTILITY(U,$J,112,2987,4)
+60 ;;=.01^.01^.07^1.26^.21^.5^2.94^0
+61 ;;^UTILITY(U,$J,112,2987,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,2988,0)
+64 ;;=SOUP, CHICKEN NOODLE, CND, CONDENSED^6-019^cups^246^100^N
+65 ;;^UTILITY(U,$J,112,2988,1)
+66 ;;=3.23^1.85^7.62^61^85.07^^^11^.62^4^30^45^757^.233^.159^.235^^532^0^.052
+67 ;;^UTILITY(U,$J,112,2988,2)
+68 ;;=.054^1.228^.14^.021^1.8^.13^.36^.02^5^.49^.83^.41^53^2.23^^^.6
+69 ;;^UTILITY(U,$J,112,2988,3)
+70 ;;=.031^.103^.125^.21^.175^.06^.038^.13^.084^.139^.132^.075^.149^.236^.89^.151^.208^.116
+71 ;;^UTILITY(U,$J,112,2988,4)
+72 ;;=^^.01^.38^.05^.09^.77^^^9.8
+73 ;;^UTILITY(U,$J,112,2988,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,2989,0)
+76 ;;=SOUP, CHICKEN VEGETABLE, CND, CONDENSED^6-025^cups^246^100^N
+77 ;;^UTILITY(U,$J,112,2989,1)
+78 ;;=2.94^2.32^7.01^61^85.52^^^14^.71^5^33^126^771^.3^.099^.3^^2168^.8^.036
+79 ;;^UTILITY(U,$J,112,2989,2)
+80 ;;=.046^1.004^.14^.039^4^.1^.45^.02^7^.69^1.04^.49^217^2.22^^^.7
+81 ;;^UTILITY(U,$J,112,2989,3)
+82 ;;=.025^.092^.111^.188^.181^.05^.02^.108^.077^.13^.138^.065^.168^.248^.741^.185^.169^.101
+83 ;;^UTILITY(U,$J,112,2989,4)
+84 ;;=^0^.02^.5^.13^.14^.87^0
+85 ;;^UTILITY(U,$J,112,2989,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,2990,0)
+88 ;;=SOUP, CHICKEN W/DUMPLINGS, CND, CONDENSED^6-012^cups^246^100^N
+89 ;;^UTILITY(U,$J,112,2990,1)
+90 ;;=4.58^4.51^4.93^79^83.82^^^12^.51^3^50^95^703^.3^.1^.4^^423^0^.013
+91 ;;^UTILITY(U,$J,112,2990,2)
+92 ;;=.059^1.43^.12^.03^2^.13^1^.03^27^1.07^2.06^1.06^42^2.16
+93 ;;^UTILITY(U,$J,112,2990,3)
+94 ;;=.044^.158^.199^.333^.308^.088^.059^.182^.117^.226^.238^.112^.281^.392^1.242^.336^.301^.155
+95 ;;^UTILITY(U,$J,112,2990,4)
+96 ;;=^^.03^.8^.2^.21^1.85
+97 ;;^UTILITY(U,$J,112,2990,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,2991,0)
+100 ;;=SOUP, CHICKEN W/RICE, CND, CONDENSED^6-023^cups^246^100^N
+101 ;;^UTILITY(U,$J,112,2991,1)
+102 ;;=2.89^1.56^5.84^49^87.84^^^14^.61^0^17^82^665^.214^.096^.3^^539^.1^.014
+103 ;;^UTILITY(U,$J,112,2991,2)
+104 ;;=.02^.918^.14^.02^.9^.13^.32^.01^5^.37^.74^.34^54^1.88^^^.5
+105 ;;^UTILITY(U,$J,112,2991,3)
+106 ;;=.034^.116^.145^.221^.204^.075^.041^.123^.101^.154^.191^.082^.158^.259^.456^.14^.122^.113
