FHINI05P ; ; 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,1961,2)
;;=.023^.299^.142^.067^9.2^0^.009^.032^0^.008^.005^.042^0^.55
;;^UTILITY(U,$J,112,1961,3)
;;=.007^.02^.029^.026^.028^.009^.004^.014^.011^.023^.019^.011^.027^.05^.102^.019^.021^.023
;;^UTILITY(U,$J,112,1961,4)
;;=^^^.008^0^.001^.004
;;^UTILITY(U,$J,112,1961,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1962,0)
;;=TURNIP GREENS, BOILED, WO/SALT^11-569^cups^145^100^N
;;^UTILITY(U,$J,112,1962,1)
;;=1.14^.23^4.36^20^93.2^^^137^.8^22^29^203^29^.14^.253^.337^^5498^27.4^.045
;;^UTILITY(U,$J,112,1962,2)
;;=.072^.411^.274^.18^118.4^0^.028^.064^0^.053^.015^.091^550^1.07^^^3.1
;;^UTILITY(U,$J,112,1962,3)
;;=.02^.063^.059^.105^.074^.026^.013^.07^.044^.078^.072^.028^.078^.121^.156^.069^.054^.047
;;^UTILITY(U,$J,112,1962,4)
;;=.001^.001^.002^.041^.011^.007^.004
;;^UTILITY(U,$J,112,1962,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1963,0)
;;=TURNIP GREENS, BOILED, W/SALT^11-891^cups^145^100^N
;;^UTILITY(U,$J,112,1963,1)
;;=1.14^.23^4.36^20^93.2^^^137^.8^22^29^203^265^.14^.253^.337^^5498^27.4^.045
;;^UTILITY(U,$J,112,1963,2)
;;=.072^.411^.274^.18^118.4^0^.028^.064^0^.053^.015^.091^550^1.07
;;^UTILITY(U,$J,112,1963,3)
;;=.02^.063^.059^.105^.074^.026^.013^.07^.044^.078^.072^.028^.078^.121^.156^.069^.054^.047
;;^UTILITY(U,$J,112,1963,4)
;;=.001^.001^.002^.041^.011^.007^.004
;;^UTILITY(U,$J,112,1963,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1966,0)
;;=TURNIP GREENS, CND W/SALT^11-570^cups^232^100^N
;;^UTILITY(U,$J,112,1966,1)
;;=1.36^.3^2.42^14^94.69^^^118^1.51^20^21^141^277^.23^.083^.277^^3586^15.5^.012
;;^UTILITY(U,$J,112,1966,2)
;;=.063^.362^.04^.037^41.2^0^.036^.084^0^.07^.02^.12^359^1.23^^^1.3
;;^UTILITY(U,$J,112,1966,3)
;;=.023^.074^.07^.124^.088^.031^.015^.083^.053^.092^.085^.033^.093^.143^.185^.081^.064^.055
;;^UTILITY(U,$J,112,1966,4)
;;=.002^.002^.003^.054^.014^.01^.005
;;^UTILITY(U,$J,112,1966,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1967,0)
;;=TURNIP GREENS, FRZ, BOILED, WO/SALT^11-575^cups^165^100^N
;;^UTILITY(U,$J,112,1967,1)
;;=3.35^.42^4.98^30^90.4^^^152^1.94^26^34^224^15^.41^.15^.475^^7975^21.8^.054
;;^UTILITY(U,$J,112,1967,2)
;;=.074^.468^.069^.067^39.4^0^.051^.119^0^.099^.028^.17^798^.85
;;^UTILITY(U,$J,112,1967,3)
;;=.058^.184^.173^.307^.218^.076^.038^.206^.13^.228^.21^.081^.229^.353^.457^.201^.158^.137
;;^UTILITY(U,$J,112,1967,4)
;;=.002^.002^.004^.076^.02^.014^.007
;;^UTILITY(U,$J,112,1967,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1968,0)
;;=TURNIP GREENS, FRZ, BOILED, W/SALT^11-892^cups^165^100^N
;;^UTILITY(U,$J,112,1968,1)
;;=3.35^.42^4.98^30^90.4^^^152^1.94^26^34^224^251^.41^.15^.475^^7975^21.8^.054
;;^UTILITY(U,$J,112,1968,2)
;;=.074^.468^.069^.067^39.4^0^.051^.119^0^.099^.028^.17^798^.85
;;^UTILITY(U,$J,112,1968,3)
;;=.058^.184^.173^.307^.218^.076^.038^.206^.13^.228^.21^.081^.229^.353^.457^.201^.158^.137
;;^UTILITY(U,$J,112,1968,4)
;;=.002^.002^.004^.076^.02^.014^.007
;;^UTILITY(U,$J,112,1968,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1969,0)
;;=VEAL, CHUCK, BRAISED^17-117^oz.^28.3^69^N
;;^UTILITY(U,$J,112,1969,1)
;;=32.06^10.14^0^228^56.4^^^35^1.42^27^250^309^95^6.59^.151^.036^.42^0^0^.06
;;^UTILITY(U,$J,112,1969,2)
;;=.34^6.42^1.53^.25^15^1.84^.57^.06^126^3.75^3.9^.73^0^1.24^^^0
;;^UTILITY(U,$J,112,1969,3)
;;=.325^1.401^1.579^2.552^2.642^.748^.362^1.294^1.022^1.772^1.886^1.164^1.907^2.766^5.071^1.648^1.339^1.202
;;^UTILITY(U,$J,112,1969,4)
;;=.01^.03^.35^2.03^.41^1.24^3.41^.1
;;^UTILITY(U,$J,112,1969,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1970,0)
;;=VEAL, BLADE, TOT ED, BRAISED^17-129^oz.^28.3^65^N
;;^UTILITY(U,$J,112,1970,1)
;;=31.26^10.09^0^225^56.98^^^38^1.44^26^244^297^98^7^.164^.036^.44^0^0^.06
;;^UTILITY(U,$J,112,1970,2)
;;=.35^5.5^1.52^.24^15^1.93^.58^.06^153^3.64^3.85^.74^0^1.22^^^0
;;^UTILITY(U,$J,112,1970,3)
;;=.316^1.366^1.54^2.488^2.576^.73^.353^1.262^.997^1.728^1.839^1.135^1.859^2.697^4.945^1.607^1.305^1.172
;;^UTILITY(U,$J,112,1970,4)
;;=.01^.03^.33^1.99^.4^1.21^3.37^.1
;;^UTILITY(U,$J,112,1970,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1971,0)
;;=VEAL, ARM, TOT ED, BRAISED^17-123^oz.^28.3^77^N
;;^UTILITY(U,$J,112,1971,1)
;;=33.63^10.24^0^236^55.28^^^28^1.38^29^263^333^87^5.81^.128^.036^.46^0^0^.06
;;^UTILITY(U,$J,112,1971,2)
;;=.31^10.08^1.31^.29^18^1.72^.55^.07^148^3.96^3.99^.7^0^1.27^^^0
;;^UTILITY(U,$J,112,1971,3)
;;=.34^1.469^1.656^2.676^2.771^.785^.38^1.357^1.072^1.858^1.978^1.221^2^2.901^5.319^1.728^1.404^1.26
FHINI05P ; ; 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,1961,2)
+2 ;;=.023^.299^.142^.067^9.2^0^.009^.032^0^.008^.005^.042^0^.55
+3 ;;^UTILITY(U,$J,112,1961,3)
+4 ;;=.007^.02^.029^.026^.028^.009^.004^.014^.011^.023^.019^.011^.027^.05^.102^.019^.021^.023
+5 ;;^UTILITY(U,$J,112,1961,4)
+6 ;;=^^^.008^0^.001^.004
+7 ;;^UTILITY(U,$J,112,1961,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,1962,0)
+10 ;;=TURNIP GREENS, BOILED, WO/SALT^11-569^cups^145^100^N
+11 ;;^UTILITY(U,$J,112,1962,1)
+12 ;;=1.14^.23^4.36^20^93.2^^^137^.8^22^29^203^29^.14^.253^.337^^5498^27.4^.045
+13 ;;^UTILITY(U,$J,112,1962,2)
+14 ;;=.072^.411^.274^.18^118.4^0^.028^.064^0^.053^.015^.091^550^1.07^^^3.1
+15 ;;^UTILITY(U,$J,112,1962,3)
+16 ;;=.02^.063^.059^.105^.074^.026^.013^.07^.044^.078^.072^.028^.078^.121^.156^.069^.054^.047
+17 ;;^UTILITY(U,$J,112,1962,4)
+18 ;;=.001^.001^.002^.041^.011^.007^.004
+19 ;;^UTILITY(U,$J,112,1962,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,1963,0)
+22 ;;=TURNIP GREENS, BOILED, W/SALT^11-891^cups^145^100^N
+23 ;;^UTILITY(U,$J,112,1963,1)
+24 ;;=1.14^.23^4.36^20^93.2^^^137^.8^22^29^203^265^.14^.253^.337^^5498^27.4^.045
+25 ;;^UTILITY(U,$J,112,1963,2)
+26 ;;=.072^.411^.274^.18^118.4^0^.028^.064^0^.053^.015^.091^550^1.07
+27 ;;^UTILITY(U,$J,112,1963,3)
+28 ;;=.02^.063^.059^.105^.074^.026^.013^.07^.044^.078^.072^.028^.078^.121^.156^.069^.054^.047
+29 ;;^UTILITY(U,$J,112,1963,4)
+30 ;;=.001^.001^.002^.041^.011^.007^.004
+31 ;;^UTILITY(U,$J,112,1963,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,1966,0)
+34 ;;=TURNIP GREENS, CND W/SALT^11-570^cups^232^100^N
+35 ;;^UTILITY(U,$J,112,1966,1)
+36 ;;=1.36^.3^2.42^14^94.69^^^118^1.51^20^21^141^277^.23^.083^.277^^3586^15.5^.012
+37 ;;^UTILITY(U,$J,112,1966,2)
+38 ;;=.063^.362^.04^.037^41.2^0^.036^.084^0^.07^.02^.12^359^1.23^^^1.3
+39 ;;^UTILITY(U,$J,112,1966,3)
+40 ;;=.023^.074^.07^.124^.088^.031^.015^.083^.053^.092^.085^.033^.093^.143^.185^.081^.064^.055
+41 ;;^UTILITY(U,$J,112,1966,4)
+42 ;;=.002^.002^.003^.054^.014^.01^.005
+43 ;;^UTILITY(U,$J,112,1966,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,1967,0)
+46 ;;=TURNIP GREENS, FRZ, BOILED, WO/SALT^11-575^cups^165^100^N
+47 ;;^UTILITY(U,$J,112,1967,1)
+48 ;;=3.35^.42^4.98^30^90.4^^^152^1.94^26^34^224^15^.41^.15^.475^^7975^21.8^.054
+49 ;;^UTILITY(U,$J,112,1967,2)
+50 ;;=.074^.468^.069^.067^39.4^0^.051^.119^0^.099^.028^.17^798^.85
+51 ;;^UTILITY(U,$J,112,1967,3)
+52 ;;=.058^.184^.173^.307^.218^.076^.038^.206^.13^.228^.21^.081^.229^.353^.457^.201^.158^.137
+53 ;;^UTILITY(U,$J,112,1967,4)
+54 ;;=.002^.002^.004^.076^.02^.014^.007
+55 ;;^UTILITY(U,$J,112,1967,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,1968,0)
+58 ;;=TURNIP GREENS, FRZ, BOILED, W/SALT^11-892^cups^165^100^N
+59 ;;^UTILITY(U,$J,112,1968,1)
+60 ;;=3.35^.42^4.98^30^90.4^^^152^1.94^26^34^224^251^.41^.15^.475^^7975^21.8^.054
+61 ;;^UTILITY(U,$J,112,1968,2)
+62 ;;=.074^.468^.069^.067^39.4^0^.051^.119^0^.099^.028^.17^798^.85
+63 ;;^UTILITY(U,$J,112,1968,3)
+64 ;;=.058^.184^.173^.307^.218^.076^.038^.206^.13^.228^.21^.081^.229^.353^.457^.201^.158^.137
+65 ;;^UTILITY(U,$J,112,1968,4)
+66 ;;=.002^.002^.004^.076^.02^.014^.007
+67 ;;^UTILITY(U,$J,112,1968,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,1969,0)
+70 ;;=VEAL, CHUCK, BRAISED^17-117^oz.^28.3^69^N
+71 ;;^UTILITY(U,$J,112,1969,1)
+72 ;;=32.06^10.14^0^228^56.4^^^35^1.42^27^250^309^95^6.59^.151^.036^.42^0^0^.06
+73 ;;^UTILITY(U,$J,112,1969,2)
+74 ;;=.34^6.42^1.53^.25^15^1.84^.57^.06^126^3.75^3.9^.73^0^1.24^^^0
+75 ;;^UTILITY(U,$J,112,1969,3)
+76 ;;=.325^1.401^1.579^2.552^2.642^.748^.362^1.294^1.022^1.772^1.886^1.164^1.907^2.766^5.071^1.648^1.339^1.202
+77 ;;^UTILITY(U,$J,112,1969,4)
+78 ;;=.01^.03^.35^2.03^.41^1.24^3.41^.1
+79 ;;^UTILITY(U,$J,112,1969,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,1970,0)
+82 ;;=VEAL, BLADE, TOT ED, BRAISED^17-129^oz.^28.3^65^N
+83 ;;^UTILITY(U,$J,112,1970,1)
+84 ;;=31.26^10.09^0^225^56.98^^^38^1.44^26^244^297^98^7^.164^.036^.44^0^0^.06
+85 ;;^UTILITY(U,$J,112,1970,2)
+86 ;;=.35^5.5^1.52^.24^15^1.93^.58^.06^153^3.64^3.85^.74^0^1.22^^^0
+87 ;;^UTILITY(U,$J,112,1970,3)
+88 ;;=.316^1.366^1.54^2.488^2.576^.73^.353^1.262^.997^1.728^1.839^1.135^1.859^2.697^4.945^1.607^1.305^1.172
+89 ;;^UTILITY(U,$J,112,1970,4)
+90 ;;=.01^.03^.33^1.99^.4^1.21^3.37^.1
+91 ;;^UTILITY(U,$J,112,1970,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,1971,0)
+94 ;;=VEAL, ARM, TOT ED, BRAISED^17-123^oz.^28.3^77^N
+95 ;;^UTILITY(U,$J,112,1971,1)
+96 ;;=33.63^10.24^0^236^55.28^^^28^1.38^29^263^333^87^5.81^.128^.036^.46^0^0^.06
+97 ;;^UTILITY(U,$J,112,1971,2)
+98 ;;=.31^10.08^1.31^.29^18^1.72^.55^.07^148^3.96^3.99^.7^0^1.27^^^0
+99 ;;^UTILITY(U,$J,112,1971,3)
+100 ;;=.34^1.469^1.656^2.676^2.771^.785^.38^1.357^1.072^1.858^1.978^1.221^2^2.901^5.319^1.728^1.404^1.26
