FHINI08P ; ; 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,3010,3)
;;=.076^.271^.324^.529^.518^.103^.099^.339^.238^.365^.524^.161^.359^.782^1.302^.371^.349^.33
;;^UTILITY(U,$J,112,3010,4)
;;=.02^.03^.11^.71^.06^.38^1.25
;;^UTILITY(U,$J,112,3010,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3011,0)
;;=SOUP, PEPPERPOT, CND, CONDENSED^6-052^cups^246^100^N
;;^UTILITY(U,$J,112,3011,1)
;;=5.19^3.78^7.66^84^80.62^^^19^.73^4^34^124^792^1^.1^.5^^706^1.1^.043
;;^UTILITY(U,$J,112,3011,2)
;;=.039^1^.28^.05^8^.14^.25^.03^8^1.68^1.64^.29^71^2.75
;;^UTILITY(U,$J,112,3011,3)
;;=.034^.159^.191^.328^.254^.074^.05^.191^.127^.243^.403^.074^.381^.455^.921^.688^.487^.191
;;^UTILITY(U,$J,112,3011,4)
;;=0^.02^.1^.92^.13^.61^1.46
;;^UTILITY(U,$J,112,3011,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3012,0)
;;=SOUP, SCOTCH BROTH, CND, CONDENSED^6-055^cups^246^100^N
;;^UTILITY(U,$J,112,3012,1)
;;=4.05^2.14^7.73^66^83.78^^^12^.68^3^45^130^826^1.3^.2^.3^^1779^.7^.015
;;^UTILITY(U,$J,112,3012,2)
;;=.037^.95^.28^.06^8^.22^.37^.07^4^.91^.63^.45^178^2.3
;;^UTILITY(U,$J,112,3012,3)
;;=.035^.126^.152^.258^.248^.068^.028^.148^.105^.178^.188^.089^.23^.339^1.015^.253^.231^.139
;;^UTILITY(U,$J,112,3012,4)
;;=^^.05^.41^.03^.39^.58
;;^UTILITY(U,$J,112,3012,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3013,0)
;;=SOUP, STOCKPOT, CND, CONDENSED^6-060^cups^257^100^N
;;^UTILITY(U,$J,112,3013,1)
;;=3.79^3.04^8.95^78^81.89^^^17^.68^3^42^185^816^.9^.1^.2^^3100^1.6^.034
;;^UTILITY(U,$J,112,3013,2)
;;=.04^.95^.28^.07^8^0^1.25^.1^3^.67^.79^1.37^310^2.34
;;^UTILITY(U,$J,112,3013,3)
;;=.033^.118^.143^.242^.233^.064^.026^.139^.099^.167^.177^.084^.216^.319^.954^.238^.217^.13
;;^UTILITY(U,$J,112,3013,4)
;;=^0^.02^.46^.03^.16^.75
;;^UTILITY(U,$J,112,3013,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3014,0)
;;=SOUP, TOMATO BEEF W/NOODLE, CND, CONDENSED^6-061^cups^251^100^N
;;^UTILITY(U,$J,112,3014,1)
;;=3.55^3.42^16.87^112^74.08^^^14^.89^6^45^176^731^.6^.1^.2^^425^0^.067
;;^UTILITY(U,$J,112,3014,2)
;;=.071^1.49^.15^.07^6^.15^.46^.07^3^1.27^1.38^.54^42^2.08
;;^UTILITY(U,$J,112,3014,3)
;;=.034^.114^.137^.231^.193^.066^.042^.143^.092^.153^.145^.082^.164^.26^.98^.166^.229^.127
;;^UTILITY(U,$J,112,3014,4)
;;=^^.07^.7^.1^.43^1.21
;;^UTILITY(U,$J,112,3014,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3015,0)
;;=SOUP, TOMATO BISQUE, CND, CONDENSED^6-158^cups^257^100^N
;;^UTILITY(U,$J,112,3015,1)
;;=1.76^1.95^18.47^96^75.32^^^31^.64^7^47^325^816^.457^.1^.2^^562^4.6^.051
;;^UTILITY(U,$J,112,3015,2)
;;=.055^.894^.1^.07^12^0^.75^.11^4^.42^.53^.87^56^2.49^^^.8
;;^UTILITY(U,$J,112,3015,3)
;;=.018^.052^.06^.098^.07^.023^.019^.06^.046^.068^.051^.034^.05^.154^.605^.04^.108^.069
;;^UTILITY(U,$J,112,3015,4)
;;=^^.02^.24^.01^.09^.51
;;^UTILITY(U,$J,112,3015,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3016,0)
;;=SOUP, TOMATO RICE, CND, CONDENSED^6-063^cups^257^100^N
;;^UTILITY(U,$J,112,3016,1)
;;=1.64^2.12^17.08^93^77.13^^^18^.62^4^26^257^635^.4^.1^.3^^588^11.5^.048
;;^UTILITY(U,$J,112,3016,2)
;;=.039^.822^.1^.06^11^0^.87^.18^1^.4^.47^1.05^59^2.03^^^1.3
;;^UTILITY(U,$J,112,3016,4)
;;=0^.01^.03^.22^.01^.1^.46
;;^UTILITY(U,$J,112,3016,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3017,0)
;;=SOUP, TOMATO, CND, CONDENSED^6-159^cups^251^100^N
;;^UTILITY(U,$J,112,3017,1)
;;=1.64^1.53^13.22^68^81.25^^^11^1.4^6^27^210^695^.194^.2^.2^^555^53^.07
;;^UTILITY(U,$J,112,3017,2)
;;=.04^1.13^.12^.09^11.7^0^.63^.13^0^.29^.34^.76^56^2.36^^^.4
;;^UTILITY(U,$J,112,3017,3)
;;=.016^.041^.047^.079^.04^.018^.022^.056^.034^.053^.048^.029^.044^.128^.617^.042^.107^.063
;;^UTILITY(U,$J,112,3017,4)
;;=0^0^.02^.16^.01^.07^.33^^^.4
;;^UTILITY(U,$J,112,3017,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3018,0)
;;=SOUP, TURKEY NOODLE, CND, CONDENSED^6-065^cups^251^100^N
;;^UTILITY(U,$J,112,3018,1)
;;=3.11^1.59^6.88^55^86.37^^^9^.75^4^38^60^650^.464^.1^.2^^233^.1^.059
;;^UTILITY(U,$J,112,3018,2)
;;=.051^1.112^.14^.03^1.8^.13^.37^.02^4^.44^.64^.39^23^2.06^^^.6
;;^UTILITY(U,$J,112,3018,3)
;;=.03^.1^.121^.203^.169^.058^.037^.125^.081^.134^.127^.072^.143^.228^.859^.146^.201^.112
;;^UTILITY(U,$J,112,3018,4)
;;=^^.02^.33^.09^.08^.55
;;^UTILITY(U,$J,112,3018,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3019,0)
;;=SOUP, TURKEY VEGETABLE, CND, CONDENSED^6-066^cups^246^100^N
;;^UTILITY(U,$J,112,3019,1)
;;=2.52^2.47^7.05^60^86.01^^^14^.62^3^33^143^739^.5^.1^.2^^1996^0^.024
;;^UTILITY(U,$J,112,3019,2)
;;=.032^.82^.39^.04^4^.14^.5^.03^1^.73^1.08^.55^200^1.95^^^.5
FHINI08P ; ; 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,3010,3)
+2 ;;=.076^.271^.324^.529^.518^.103^.099^.339^.238^.365^.524^.161^.359^.782^1.302^.371^.349^.33
+3 ;;^UTILITY(U,$J,112,3010,4)
+4 ;;=.02^.03^.11^.71^.06^.38^1.25
+5 ;;^UTILITY(U,$J,112,3010,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,3011,0)
+8 ;;=SOUP, PEPPERPOT, CND, CONDENSED^6-052^cups^246^100^N
+9 ;;^UTILITY(U,$J,112,3011,1)
+10 ;;=5.19^3.78^7.66^84^80.62^^^19^.73^4^34^124^792^1^.1^.5^^706^1.1^.043
+11 ;;^UTILITY(U,$J,112,3011,2)
+12 ;;=.039^1^.28^.05^8^.14^.25^.03^8^1.68^1.64^.29^71^2.75
+13 ;;^UTILITY(U,$J,112,3011,3)
+14 ;;=.034^.159^.191^.328^.254^.074^.05^.191^.127^.243^.403^.074^.381^.455^.921^.688^.487^.191
+15 ;;^UTILITY(U,$J,112,3011,4)
+16 ;;=0^.02^.1^.92^.13^.61^1.46
+17 ;;^UTILITY(U,$J,112,3011,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,3012,0)
+20 ;;=SOUP, SCOTCH BROTH, CND, CONDENSED^6-055^cups^246^100^N
+21 ;;^UTILITY(U,$J,112,3012,1)
+22 ;;=4.05^2.14^7.73^66^83.78^^^12^.68^3^45^130^826^1.3^.2^.3^^1779^.7^.015
+23 ;;^UTILITY(U,$J,112,3012,2)
+24 ;;=.037^.95^.28^.06^8^.22^.37^.07^4^.91^.63^.45^178^2.3
+25 ;;^UTILITY(U,$J,112,3012,3)
+26 ;;=.035^.126^.152^.258^.248^.068^.028^.148^.105^.178^.188^.089^.23^.339^1.015^.253^.231^.139
+27 ;;^UTILITY(U,$J,112,3012,4)
+28 ;;=^^.05^.41^.03^.39^.58
+29 ;;^UTILITY(U,$J,112,3012,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,3013,0)
+32 ;;=SOUP, STOCKPOT, CND, CONDENSED^6-060^cups^257^100^N
+33 ;;^UTILITY(U,$J,112,3013,1)
+34 ;;=3.79^3.04^8.95^78^81.89^^^17^.68^3^42^185^816^.9^.1^.2^^3100^1.6^.034
+35 ;;^UTILITY(U,$J,112,3013,2)
+36 ;;=.04^.95^.28^.07^8^0^1.25^.1^3^.67^.79^1.37^310^2.34
+37 ;;^UTILITY(U,$J,112,3013,3)
+38 ;;=.033^.118^.143^.242^.233^.064^.026^.139^.099^.167^.177^.084^.216^.319^.954^.238^.217^.13
+39 ;;^UTILITY(U,$J,112,3013,4)
+40 ;;=^0^.02^.46^.03^.16^.75
+41 ;;^UTILITY(U,$J,112,3013,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,3014,0)
+44 ;;=SOUP, TOMATO BEEF W/NOODLE, CND, CONDENSED^6-061^cups^251^100^N
+45 ;;^UTILITY(U,$J,112,3014,1)
+46 ;;=3.55^3.42^16.87^112^74.08^^^14^.89^6^45^176^731^.6^.1^.2^^425^0^.067
+47 ;;^UTILITY(U,$J,112,3014,2)
+48 ;;=.071^1.49^.15^.07^6^.15^.46^.07^3^1.27^1.38^.54^42^2.08
+49 ;;^UTILITY(U,$J,112,3014,3)
+50 ;;=.034^.114^.137^.231^.193^.066^.042^.143^.092^.153^.145^.082^.164^.26^.98^.166^.229^.127
+51 ;;^UTILITY(U,$J,112,3014,4)
+52 ;;=^^.07^.7^.1^.43^1.21
+53 ;;^UTILITY(U,$J,112,3014,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,3015,0)
+56 ;;=SOUP, TOMATO BISQUE, CND, CONDENSED^6-158^cups^257^100^N
+57 ;;^UTILITY(U,$J,112,3015,1)
+58 ;;=1.76^1.95^18.47^96^75.32^^^31^.64^7^47^325^816^.457^.1^.2^^562^4.6^.051
+59 ;;^UTILITY(U,$J,112,3015,2)
+60 ;;=.055^.894^.1^.07^12^0^.75^.11^4^.42^.53^.87^56^2.49^^^.8
+61 ;;^UTILITY(U,$J,112,3015,3)
+62 ;;=.018^.052^.06^.098^.07^.023^.019^.06^.046^.068^.051^.034^.05^.154^.605^.04^.108^.069
+63 ;;^UTILITY(U,$J,112,3015,4)
+64 ;;=^^.02^.24^.01^.09^.51
+65 ;;^UTILITY(U,$J,112,3015,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,3016,0)
+68 ;;=SOUP, TOMATO RICE, CND, CONDENSED^6-063^cups^257^100^N
+69 ;;^UTILITY(U,$J,112,3016,1)
+70 ;;=1.64^2.12^17.08^93^77.13^^^18^.62^4^26^257^635^.4^.1^.3^^588^11.5^.048
+71 ;;^UTILITY(U,$J,112,3016,2)
+72 ;;=.039^.822^.1^.06^11^0^.87^.18^1^.4^.47^1.05^59^2.03^^^1.3
+73 ;;^UTILITY(U,$J,112,3016,4)
+74 ;;=0^.01^.03^.22^.01^.1^.46
+75 ;;^UTILITY(U,$J,112,3016,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,3017,0)
+78 ;;=SOUP, TOMATO, CND, CONDENSED^6-159^cups^251^100^N
+79 ;;^UTILITY(U,$J,112,3017,1)
+80 ;;=1.64^1.53^13.22^68^81.25^^^11^1.4^6^27^210^695^.194^.2^.2^^555^53^.07
+81 ;;^UTILITY(U,$J,112,3017,2)
+82 ;;=.04^1.13^.12^.09^11.7^0^.63^.13^0^.29^.34^.76^56^2.36^^^.4
+83 ;;^UTILITY(U,$J,112,3017,3)
+84 ;;=.016^.041^.047^.079^.04^.018^.022^.056^.034^.053^.048^.029^.044^.128^.617^.042^.107^.063
+85 ;;^UTILITY(U,$J,112,3017,4)
+86 ;;=0^0^.02^.16^.01^.07^.33^^^.4
+87 ;;^UTILITY(U,$J,112,3017,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,3018,0)
+90 ;;=SOUP, TURKEY NOODLE, CND, CONDENSED^6-065^cups^251^100^N
+91 ;;^UTILITY(U,$J,112,3018,1)
+92 ;;=3.11^1.59^6.88^55^86.37^^^9^.75^4^38^60^650^.464^.1^.2^^233^.1^.059
+93 ;;^UTILITY(U,$J,112,3018,2)
+94 ;;=.051^1.112^.14^.03^1.8^.13^.37^.02^4^.44^.64^.39^23^2.06^^^.6
+95 ;;^UTILITY(U,$J,112,3018,3)
+96 ;;=.03^.1^.121^.203^.169^.058^.037^.125^.081^.134^.127^.072^.143^.228^.859^.146^.201^.112
+97 ;;^UTILITY(U,$J,112,3018,4)
+98 ;;=^^.02^.33^.09^.08^.55
+99 ;;^UTILITY(U,$J,112,3018,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,3019,0)
+102 ;;=SOUP, TURKEY VEGETABLE, CND, CONDENSED^6-066^cups^246^100^N
+103 ;;^UTILITY(U,$J,112,3019,1)
+104 ;;=2.52^2.47^7.05^60^86.01^^^14^.62^3^33^143^739^.5^.1^.2^^1996^0^.024
+105 ;;^UTILITY(U,$J,112,3019,2)
+106 ;;=.032^.82^.39^.04^4^.14^.5^.03^1^.73^1.08^.55^200^1.95^^^.5