FHINI03Z ; ; 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,1292,4)
;;=.07^.12^1.14^6.43^.86^4.02^10.89^.11
;;^UTILITY(U,$J,112,1292,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1293,0)
;;=LAMB, RIB, CHOICE, TRIMMED, BROILED^17-033^oz.^28.3^45^N
;;^UTILITY(U,$J,112,1293,1)
;;=27.74^12.95^0^235^58.83^^^16^2.21^29^213^313^85^5.27^.139^.029^.18^0^0^.1
;;^UTILITY(U,$J,112,1293,2)
;;=.25^6.55^.63^.15^21^2.64^.89^.17^91^4.65^5.21^1.18^0^1.4^^^0
;;^UTILITY(U,$J,112,1293,3)
;;=.324^1.187^1.338^2.157^2.449^.712^.331^1.129^.932^1.497^1.648^.879^1.668^2.441^4.025^1.355^1.163^1.031
;;^UTILITY(U,$J,112,1293,4)
;;=.02^.03^.34^2.52^.39^1.54^4.71^.12
;;^UTILITY(U,$J,112,1293,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1294,0)
;;=LAMB, RIB CHOPS, GOOD, BROILED^1220-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1294,1)
;;=21.2^31.9^0^378^45.4^^^9^1.2^^165^237.4^51.9^^^^^0^0^.12
;;^UTILITY(U,$J,112,1294,2)
;;=.22^4.8^^^^^.96^^98^17.86
;;^UTILITY(U,$J,112,1294,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1295,0)
;;=LAMB, RIB, GOOD, TRIMMED, BROILED^1222-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1295,1)
;;=27.4^9.9^0^206^60.7^^^11^1.9^^213^306.9^67.1^^^^^0^0^.15
;;^UTILITY(U,$J,112,1295,2)
;;=.27^5.9^^^^^.3^^100^5.54
;;^UTILITY(U,$J,112,1295,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1296,0)
;;=LAMB, SHOULDER, PRIME, ROASTED^1225-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1296,1)
;;=20.7^31.7^0^374^46.2^^^9^1.2^^163^231.8^50.7^^^^^0^0^.12
;;^UTILITY(U,$J,112,1296,2)
;;=.22^4.6^^^^^.95^^98^17.75
;;^UTILITY(U,$J,112,1296,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1297,0)
;;=LAMB, SHOULDER, PRIME, TRIMMED, ROASTED^1227-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1297,1)
;;=26.6^11.2^0^215^60.4^^^11^1.8^^217^297.9^65.2^^^^^0^0^.15
;;^UTILITY(U,$J,112,1297,2)
;;=.28^5.7^^^^^.34^^100^6.27
;;^UTILITY(U,$J,112,1297,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1298,0)
;;=LAMB, SHOULDER, CHOICE, ROASTED^17-038^oz.^28.3^78^N
;;^UTILITY(U,$J,112,1298,1)
;;=22.51^19.97^0^276^56.26^^^20^1.97^23^184^251^66^5.23^.108^.022^.14^0^0^.09
;;^UTILITY(U,$J,112,1298,2)
;;=.24^6.15^.7^.13^21^2.64^1.19^.34^92^8.44^8.17^1.62^0^1.21^^^0
;;^UTILITY(U,$J,112,1298,3)
;;=.263^.963^1.086^1.751^1.988^.578^.269^.916^.756^1.215^1.337^.713^1.354^1.981^3.266^1.099^.944^.837
;;^UTILITY(U,$J,112,1298,4)
;;=.05^.08^.75^4.3^.58^2.68^7.34^.09
;;^UTILITY(U,$J,112,1298,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1299,0)
;;=LAMB, SHOULDER, TRIMMED, ROASTED^17-042^oz.^28.3^63^N
;;^UTILITY(U,$J,112,1299,1)
;;=24.94^10.77^0^204^63.32^^^19^2.13^25^200^265^68^6.04^.113^.026^.18^0^0^.09
;;^UTILITY(U,$J,112,1299,2)
;;=.26^5.76^.73^.15^25^2.7^.71^.16^87^4.08^4.36^.95^0^1.33^^^0
;;^UTILITY(U,$J,112,1299,3)
;;=.291^1.067^1.203^1.94^2.202^.64^.298^1.015^.838^1.346^1.482^.79^1.5^2.195^3.619^1.218^1.046^.927
;;^UTILITY(U,$J,112,1299,4)
;;=.02^.03^.32^2.17^.32^1.33^3.93^.08
;;^UTILITY(U,$J,112,1299,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1300,0)
;;=LAMB, SHOULDER, GOOD, ROASTED^1235-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1300,1)
;;=22.1^25.2^0^322^51.1^^^10^1.3^^175^247.5^54.2^^^^^0^0^.13
;;^UTILITY(U,$J,112,1300,2)
;;=.23^4.9^^^^^.76^^98^14.11
;;^UTILITY(U,$J,112,1300,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1301,0)
;;=LAMB, SHOULDER, GOOD, TRIMMED, ROASTED^1237-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1301,1)
;;=26.8^9.6^0^201^61.8^^^11^1.9^^219^300.2^65.7^^^^^0^0^.15
;;^UTILITY(U,$J,112,1301,2)
;;=.28^5.7^^^^^.29^^100^5.38
;;^UTILITY(U,$J,112,1301,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1302,0)
;;=LEEKS, RAW^11-246^cups^104^44^N
;;^UTILITY(U,$J,112,1302,1)
;;=1.5^.3^14.15^61^83^^^59^2.1^28^35^180^20^.12^.12^.481^^95^12^.06
;;^UTILITY(U,$J,112,1302,2)
;;=.03^.4^.14^.233^64.1^0^.067^.099^0^.04^.004^.166^10^1.05^^^1.8
;;^UTILITY(U,$J,112,1302,3)
;;=.012^.063^.052^.096^.078^.018^.025^.055^.041^.056^.078^.025^.074^.14^.226^.069^.066^.092
;;^UTILITY(U,$J,112,1302,4)
;;=^^^.038^^.002^.004^^14
;;^UTILITY(U,$J,112,1302,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1303,0)
;;=LEMONADE, CONCENTRATE, FRZ, DILUTED W/4 1/3 PTS WTR BY VOL^14-293^fl oz.^31^100^N
;;^UTILITY(U,$J,112,1303,1)
;;=.1^0^10.5^40^89.3^^^3^.16^2^2^15^3^.04^.018^.005^^21^3.9^.006
;;^UTILITY(U,$J,112,1303,2)
;;=.021^.016^.013^.006^2.2^0^.009^.004^0^.006^.002^.013^2^.1
;;^UTILITY(U,$J,112,1303,4)
;;=^^0^.005^0^0^.002
;;^UTILITY(U,$J,112,1303,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1304,0)
;;=LENTILS, DRY, WHOLE, CKD^16-070^cups^200^100^N
FHINI03Z ; ; 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,1292,4)
+2 ;;=.07^.12^1.14^6.43^.86^4.02^10.89^.11
+3 ;;^UTILITY(U,$J,112,1292,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,1293,0)
+6 ;;=LAMB, RIB, CHOICE, TRIMMED, BROILED^17-033^oz.^28.3^45^N
+7 ;;^UTILITY(U,$J,112,1293,1)
+8 ;;=27.74^12.95^0^235^58.83^^^16^2.21^29^213^313^85^5.27^.139^.029^.18^0^0^.1
+9 ;;^UTILITY(U,$J,112,1293,2)
+10 ;;=.25^6.55^.63^.15^21^2.64^.89^.17^91^4.65^5.21^1.18^0^1.4^^^0
+11 ;;^UTILITY(U,$J,112,1293,3)
+12 ;;=.324^1.187^1.338^2.157^2.449^.712^.331^1.129^.932^1.497^1.648^.879^1.668^2.441^4.025^1.355^1.163^1.031
+13 ;;^UTILITY(U,$J,112,1293,4)
+14 ;;=.02^.03^.34^2.52^.39^1.54^4.71^.12
+15 ;;^UTILITY(U,$J,112,1293,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,1294,0)
+18 ;;=LAMB, RIB CHOPS, GOOD, BROILED^1220-0^oz.^28.3^^N
+19 ;;^UTILITY(U,$J,112,1294,1)
+20 ;;=21.2^31.9^0^378^45.4^^^9^1.2^^165^237.4^51.9^^^^^0^0^.12
+21 ;;^UTILITY(U,$J,112,1294,2)
+22 ;;=.22^4.8^^^^^.96^^98^17.86
+23 ;;^UTILITY(U,$J,112,1294,20)
+24 ;;=USDA Std. Reference, Release 8
+25 ;;^UTILITY(U,$J,112,1295,0)
+26 ;;=LAMB, RIB, GOOD, TRIMMED, BROILED^1222-0^oz.^28.3^^N
+27 ;;^UTILITY(U,$J,112,1295,1)
+28 ;;=27.4^9.9^0^206^60.7^^^11^1.9^^213^306.9^67.1^^^^^0^0^.15
+29 ;;^UTILITY(U,$J,112,1295,2)
+30 ;;=.27^5.9^^^^^.3^^100^5.54
+31 ;;^UTILITY(U,$J,112,1295,20)
+32 ;;=USDA Std. Reference, Release 8
+33 ;;^UTILITY(U,$J,112,1296,0)
+34 ;;=LAMB, SHOULDER, PRIME, ROASTED^1225-0^oz.^28.3^^N
+35 ;;^UTILITY(U,$J,112,1296,1)
+36 ;;=20.7^31.7^0^374^46.2^^^9^1.2^^163^231.8^50.7^^^^^0^0^.12
+37 ;;^UTILITY(U,$J,112,1296,2)
+38 ;;=.22^4.6^^^^^.95^^98^17.75
+39 ;;^UTILITY(U,$J,112,1296,20)
+40 ;;=USDA Std. Reference, Release 8
+41 ;;^UTILITY(U,$J,112,1297,0)
+42 ;;=LAMB, SHOULDER, PRIME, TRIMMED, ROASTED^1227-0^oz.^28.3^^N
+43 ;;^UTILITY(U,$J,112,1297,1)
+44 ;;=26.6^11.2^0^215^60.4^^^11^1.8^^217^297.9^65.2^^^^^0^0^.15
+45 ;;^UTILITY(U,$J,112,1297,2)
+46 ;;=.28^5.7^^^^^.34^^100^6.27
+47 ;;^UTILITY(U,$J,112,1297,20)
+48 ;;=USDA Std. Reference, Release 8
+49 ;;^UTILITY(U,$J,112,1298,0)
+50 ;;=LAMB, SHOULDER, CHOICE, ROASTED^17-038^oz.^28.3^78^N
+51 ;;^UTILITY(U,$J,112,1298,1)
+52 ;;=22.51^19.97^0^276^56.26^^^20^1.97^23^184^251^66^5.23^.108^.022^.14^0^0^.09
+53 ;;^UTILITY(U,$J,112,1298,2)
+54 ;;=.24^6.15^.7^.13^21^2.64^1.19^.34^92^8.44^8.17^1.62^0^1.21^^^0
+55 ;;^UTILITY(U,$J,112,1298,3)
+56 ;;=.263^.963^1.086^1.751^1.988^.578^.269^.916^.756^1.215^1.337^.713^1.354^1.981^3.266^1.099^.944^.837
+57 ;;^UTILITY(U,$J,112,1298,4)
+58 ;;=.05^.08^.75^4.3^.58^2.68^7.34^.09
+59 ;;^UTILITY(U,$J,112,1298,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,1299,0)
+62 ;;=LAMB, SHOULDER, TRIMMED, ROASTED^17-042^oz.^28.3^63^N
+63 ;;^UTILITY(U,$J,112,1299,1)
+64 ;;=24.94^10.77^0^204^63.32^^^19^2.13^25^200^265^68^6.04^.113^.026^.18^0^0^.09
+65 ;;^UTILITY(U,$J,112,1299,2)
+66 ;;=.26^5.76^.73^.15^25^2.7^.71^.16^87^4.08^4.36^.95^0^1.33^^^0
+67 ;;^UTILITY(U,$J,112,1299,3)
+68 ;;=.291^1.067^1.203^1.94^2.202^.64^.298^1.015^.838^1.346^1.482^.79^1.5^2.195^3.619^1.218^1.046^.927
+69 ;;^UTILITY(U,$J,112,1299,4)
+70 ;;=.02^.03^.32^2.17^.32^1.33^3.93^.08
+71 ;;^UTILITY(U,$J,112,1299,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,1300,0)
+74 ;;=LAMB, SHOULDER, GOOD, ROASTED^1235-0^oz.^28.3^^N
+75 ;;^UTILITY(U,$J,112,1300,1)
+76 ;;=22.1^25.2^0^322^51.1^^^10^1.3^^175^247.5^54.2^^^^^0^0^.13
+77 ;;^UTILITY(U,$J,112,1300,2)
+78 ;;=.23^4.9^^^^^.76^^98^14.11
+79 ;;^UTILITY(U,$J,112,1300,20)
+80 ;;=USDA Std. Reference, Release 8
+81 ;;^UTILITY(U,$J,112,1301,0)
+82 ;;=LAMB, SHOULDER, GOOD, TRIMMED, ROASTED^1237-0^oz.^28.3^^N
+83 ;;^UTILITY(U,$J,112,1301,1)
+84 ;;=26.8^9.6^0^201^61.8^^^11^1.9^^219^300.2^65.7^^^^^0^0^.15
+85 ;;^UTILITY(U,$J,112,1301,2)
+86 ;;=.28^5.7^^^^^.29^^100^5.38
+87 ;;^UTILITY(U,$J,112,1301,20)
+88 ;;=USDA Std. Reference, Release 8
+89 ;;^UTILITY(U,$J,112,1302,0)
+90 ;;=LEEKS, RAW^11-246^cups^104^44^N
+91 ;;^UTILITY(U,$J,112,1302,1)
+92 ;;=1.5^.3^14.15^61^83^^^59^2.1^28^35^180^20^.12^.12^.481^^95^12^.06
+93 ;;^UTILITY(U,$J,112,1302,2)
+94 ;;=.03^.4^.14^.233^64.1^0^.067^.099^0^.04^.004^.166^10^1.05^^^1.8
+95 ;;^UTILITY(U,$J,112,1302,3)
+96 ;;=.012^.063^.052^.096^.078^.018^.025^.055^.041^.056^.078^.025^.074^.14^.226^.069^.066^.092
+97 ;;^UTILITY(U,$J,112,1302,4)
+98 ;;=^^^.038^^.002^.004^^14
+99 ;;^UTILITY(U,$J,112,1302,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,1303,0)
+102 ;;=LEMONADE, CONCENTRATE, FRZ, DILUTED W/4 1/3 PTS WTR BY VOL^14-293^fl oz.^31^100^N
+103 ;;^UTILITY(U,$J,112,1303,1)
+104 ;;=.1^0^10.5^40^89.3^^^3^.16^2^2^15^3^.04^.018^.005^^21^3.9^.006
+105 ;;^UTILITY(U,$J,112,1303,2)
+106 ;;=.021^.016^.013^.006^2.2^0^.009^.004^0^.006^.002^.013^2^.1
+107 ;;^UTILITY(U,$J,112,1303,4)
+108 ;;=^^0^.005^0^0^.002
+109 ;;^UTILITY(U,$J,112,1303,20)
+110 ;;=USDA Std. Reference, Release 10
+111 ;;^UTILITY(U,$J,112,1304,0)
+112 ;;=LENTILS, DRY, WHOLE, CKD^16-070^cups^200^100^N
