FHINI03Y ; ; 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,1280,2)
;;=.27^6.59^.68^.15^20^2.59^.9^.23^93^6.89^6.96^1.18^0^1.02^^^0
;;^UTILITY(U,$J,112,1280,3)
;;=.299^1.094^1.233^1.987^2.256^.656^.305^1.04^.859^1.379^1.518^.809^1.537^2.249^3.708^1.248^1.072^.95
;;^UTILITY(U,$J,112,1280,4)
;;=.04^.07^.64^3.51^.48^2.22^6.32^.06
;;^UTILITY(U,$J,112,1280,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1281,0)
;;=LAMB, LEG, CHOICE, TRIMMED, ROASTED^17-014^oz.^28.3^65^N
;;^UTILITY(U,$J,112,1281,1)
;;=28.3^7.74^0^191^63.89^^^8^2.12^26^206^338^68^4.94^.12^.028^.18^0^0^.11
;;^UTILITY(U,$J,112,1281,2)
;;=.29^6.34^.71^.17^23^2.64^.41^.05^89^2.76^3.39^.51^0^1.09^^^0
;;^UTILITY(U,$J,112,1281,3)
;;=.331^1.211^1.365^2.201^2.499^.726^.338^1.152^.951^1.527^1.681^.896^1.702^2.491^4.106^1.382^1.187^1.052
;;^UTILITY(U,$J,112,1281,4)
;;=.02^.02^.24^1.49^.23^.95^3.14^.05
;;^UTILITY(U,$J,112,1281,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1282,0)
;;=LAMB, LEG, GOOD, TOT ED, ROASTED^1190-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1282,1)
;;=25.8^17.3^0^266^55.1^^^11^1.8^^212^289^63.2^^^^^0^0^.15
;;^UTILITY(U,$J,112,1282,2)
;;=.27^5.6^^^^^.52^^98^9.69
;;^UTILITY(U,$J,112,1282,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1283,0)
;;=LAMB, LEG, GOOD, TRIMMED, ROASTED^1192-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1283,1)
;;=28.7^6.7^0^183^62.4^^^12^2.2^^238^321.4^70.3^^^^^0^0^.16
;;^UTILITY(U,$J,112,1283,2)
;;=.3^6.2^^^^^.2^^100^3.75
;;^UTILITY(U,$J,112,1283,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1284,0)
;;=LAMB, LOIN CHOPS, PRIME, BROILED^1195-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1284,1)
;;=19.5^37.3^0^420^41.7^^^8^1.1^^150^218.4^47.8^^^^^0^0^.11
;;^UTILITY(U,$J,112,1284,2)
;;=.21^4.5^^^^^1.12^^98^20.89
;;^UTILITY(U,$J,112,1284,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1285,0)
;;=LAMB, LOIN, PRIME, TRIMMED, BROILED^1197-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1285,1)
;;=28^8.6^0^197^61.3^^^11^2^^218^313.6^68.6^^^^^0^0^.15
;;^UTILITY(U,$J,112,1285,2)
;;=.28^6^^^^^.26^^100^4.82
;;^UTILITY(U,$J,112,1285,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1286,0)
;;=LAMB, LOIN CHOPS, CHOICE, BROILED^1200-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1286,1)
;;=22^29.4^0^359^47^^^9^1.3^^172^246.4^53.9^^^^^0^0^.12
;;^UTILITY(U,$J,112,1286,2)
;;=.23^5^^^^^.88^^98^16.46
;;^UTILITY(U,$J,112,1286,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1287,0)
;;=LAMB, LOIN, CHOICE, TRIMMED, BROILED^17-027^oz.^28.3^56^N
;;^UTILITY(U,$J,112,1287,1)
;;=29.99^9.73^0^216^60.98^^^19^2^28^226^376^84^4.13^.145^.028^.16^0^0^.11
;;^UTILITY(U,$J,112,1287,2)
;;=.28^6.85^.66^.16^24^2.52^.52^.06^95^3.48^4.26^.64^0^1.24^^^0
;;^UTILITY(U,$J,112,1287,3)
;;=.35^1.283^1.447^2.332^2.648^.77^.358^1.221^1.008^1.618^1.782^.95^1.803^2.639^4.352^1.465^1.258^1.115
;;^UTILITY(U,$J,112,1287,4)
;;=.02^.03^.3^1.87^.29^1.2^3.95^.06
;;^UTILITY(U,$J,112,1287,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1288,0)
;;=LAMB, LOIN CHOPS, GOOD, BROILED^1205-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1288,1)
;;=22.8^27^0^341^48.6^^^10^1.5^^179^255.4^55.9^^^^^0^0^.13
;;^UTILITY(U,$J,112,1288,2)
;;=.23^5.1^^^^^.81^^98^15.12
;;^UTILITY(U,$J,112,1288,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1289,0)
;;=LAMB, LOIN, GOOD, TRIMMED, BROILED^1207-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1289,1)
;;=28.2^7.1^0^184^62.5^^^11^2^^219^315.8^69.1^^^^^0^0^.15
;;^UTILITY(U,$J,112,1289,2)
;;=.28^6.1^^^^^.21^^100^3.98
;;^UTILITY(U,$J,112,1289,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1290,0)
;;=LAMB, RIB CHOPS, PRIME, BROILED^1210-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1290,1)
;;=16.9^46.5^0^492^35.5^^^7^.8^^128^189.3^41.4^^^^^0^0^.1
;;^UTILITY(U,$J,112,1290,2)
;;=.18^4^^^^^1.39^^98^26.04
;;^UTILITY(U,$J,112,1290,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1291,0)
;;=LAMB, RIB, PRIME, TRIMMED, BROILED^1212-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1291,1)
;;=26.9^12.1^0^224^59.1^^^11^1.9^^211^301.3^65.9^^^^^0^0^.15
;;^UTILITY(U,$J,112,1291,2)
;;=.27^5.8^^^^^.36^^100^6.78
;;^UTILITY(U,$J,112,1291,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1292,0)
;;=LAMB, RIB CHOPS, CHOICE, BROILED^17-030^oz.^28.3^70^N
;;^UTILITY(U,$J,112,1292,1)
;;=22.13^29.59^0^361^47.06^^^19^1.88^23^178^270^76^4^.121^.02^.12^0^0^.09
;;^UTILITY(U,$J,112,1292,2)
;;=.22^7^.61^.11^14^2.54^1.74^.52^99^12.7^12.12^2.37^0^1.14^^^0
;;^UTILITY(U,$J,112,1292,3)
;;=.259^.947^1.068^1.721^1.954^.568^.264^.901^.744^1.194^1.315^.701^1.331^1.948^3.211^1.081^.928^.823
FHINI03Y ; ; 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,1280,2)
+2 ;;=.27^6.59^.68^.15^20^2.59^.9^.23^93^6.89^6.96^1.18^0^1.02^^^0
+3 ;;^UTILITY(U,$J,112,1280,3)
+4 ;;=.299^1.094^1.233^1.987^2.256^.656^.305^1.04^.859^1.379^1.518^.809^1.537^2.249^3.708^1.248^1.072^.95
+5 ;;^UTILITY(U,$J,112,1280,4)
+6 ;;=.04^.07^.64^3.51^.48^2.22^6.32^.06
+7 ;;^UTILITY(U,$J,112,1280,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,1281,0)
+10 ;;=LAMB, LEG, CHOICE, TRIMMED, ROASTED^17-014^oz.^28.3^65^N
+11 ;;^UTILITY(U,$J,112,1281,1)
+12 ;;=28.3^7.74^0^191^63.89^^^8^2.12^26^206^338^68^4.94^.12^.028^.18^0^0^.11
+13 ;;^UTILITY(U,$J,112,1281,2)
+14 ;;=.29^6.34^.71^.17^23^2.64^.41^.05^89^2.76^3.39^.51^0^1.09^^^0
+15 ;;^UTILITY(U,$J,112,1281,3)
+16 ;;=.331^1.211^1.365^2.201^2.499^.726^.338^1.152^.951^1.527^1.681^.896^1.702^2.491^4.106^1.382^1.187^1.052
+17 ;;^UTILITY(U,$J,112,1281,4)
+18 ;;=.02^.02^.24^1.49^.23^.95^3.14^.05
+19 ;;^UTILITY(U,$J,112,1281,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,1282,0)
+22 ;;=LAMB, LEG, GOOD, TOT ED, ROASTED^1190-0^oz.^28.3^^N
+23 ;;^UTILITY(U,$J,112,1282,1)
+24 ;;=25.8^17.3^0^266^55.1^^^11^1.8^^212^289^63.2^^^^^0^0^.15
+25 ;;^UTILITY(U,$J,112,1282,2)
+26 ;;=.27^5.6^^^^^.52^^98^9.69
+27 ;;^UTILITY(U,$J,112,1282,20)
+28 ;;=USDA Std. Reference, Release 8
+29 ;;^UTILITY(U,$J,112,1283,0)
+30 ;;=LAMB, LEG, GOOD, TRIMMED, ROASTED^1192-0^oz.^28.3^^N
+31 ;;^UTILITY(U,$J,112,1283,1)
+32 ;;=28.7^6.7^0^183^62.4^^^12^2.2^^238^321.4^70.3^^^^^0^0^.16
+33 ;;^UTILITY(U,$J,112,1283,2)
+34 ;;=.3^6.2^^^^^.2^^100^3.75
+35 ;;^UTILITY(U,$J,112,1283,20)
+36 ;;=USDA Std. Reference, Release 8
+37 ;;^UTILITY(U,$J,112,1284,0)
+38 ;;=LAMB, LOIN CHOPS, PRIME, BROILED^1195-0^oz.^28.3^^N
+39 ;;^UTILITY(U,$J,112,1284,1)
+40 ;;=19.5^37.3^0^420^41.7^^^8^1.1^^150^218.4^47.8^^^^^0^0^.11
+41 ;;^UTILITY(U,$J,112,1284,2)
+42 ;;=.21^4.5^^^^^1.12^^98^20.89
+43 ;;^UTILITY(U,$J,112,1284,20)
+44 ;;=USDA Std. Reference, Release 8
+45 ;;^UTILITY(U,$J,112,1285,0)
+46 ;;=LAMB, LOIN, PRIME, TRIMMED, BROILED^1197-0^oz.^28.3^^N
+47 ;;^UTILITY(U,$J,112,1285,1)
+48 ;;=28^8.6^0^197^61.3^^^11^2^^218^313.6^68.6^^^^^0^0^.15
+49 ;;^UTILITY(U,$J,112,1285,2)
+50 ;;=.28^6^^^^^.26^^100^4.82
+51 ;;^UTILITY(U,$J,112,1285,20)
+52 ;;=USDA Std. Reference, Release 8
+53 ;;^UTILITY(U,$J,112,1286,0)
+54 ;;=LAMB, LOIN CHOPS, CHOICE, BROILED^1200-0^oz.^28.3^^N
+55 ;;^UTILITY(U,$J,112,1286,1)
+56 ;;=22^29.4^0^359^47^^^9^1.3^^172^246.4^53.9^^^^^0^0^.12
+57 ;;^UTILITY(U,$J,112,1286,2)
+58 ;;=.23^5^^^^^.88^^98^16.46
+59 ;;^UTILITY(U,$J,112,1286,20)
+60 ;;=USDA Std. Reference, Release 8
+61 ;;^UTILITY(U,$J,112,1287,0)
+62 ;;=LAMB, LOIN, CHOICE, TRIMMED, BROILED^17-027^oz.^28.3^56^N
+63 ;;^UTILITY(U,$J,112,1287,1)
+64 ;;=29.99^9.73^0^216^60.98^^^19^2^28^226^376^84^4.13^.145^.028^.16^0^0^.11
+65 ;;^UTILITY(U,$J,112,1287,2)
+66 ;;=.28^6.85^.66^.16^24^2.52^.52^.06^95^3.48^4.26^.64^0^1.24^^^0
+67 ;;^UTILITY(U,$J,112,1287,3)
+68 ;;=.35^1.283^1.447^2.332^2.648^.77^.358^1.221^1.008^1.618^1.782^.95^1.803^2.639^4.352^1.465^1.258^1.115
+69 ;;^UTILITY(U,$J,112,1287,4)
+70 ;;=.02^.03^.3^1.87^.29^1.2^3.95^.06
+71 ;;^UTILITY(U,$J,112,1287,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,1288,0)
+74 ;;=LAMB, LOIN CHOPS, GOOD, BROILED^1205-0^oz.^28.3^^N
+75 ;;^UTILITY(U,$J,112,1288,1)
+76 ;;=22.8^27^0^341^48.6^^^10^1.5^^179^255.4^55.9^^^^^0^0^.13
+77 ;;^UTILITY(U,$J,112,1288,2)
+78 ;;=.23^5.1^^^^^.81^^98^15.12
+79 ;;^UTILITY(U,$J,112,1288,20)
+80 ;;=USDA Std. Reference, Release 8
+81 ;;^UTILITY(U,$J,112,1289,0)
+82 ;;=LAMB, LOIN, GOOD, TRIMMED, BROILED^1207-0^oz.^28.3^^N
+83 ;;^UTILITY(U,$J,112,1289,1)
+84 ;;=28.2^7.1^0^184^62.5^^^11^2^^219^315.8^69.1^^^^^0^0^.15
+85 ;;^UTILITY(U,$J,112,1289,2)
+86 ;;=.28^6.1^^^^^.21^^100^3.98
+87 ;;^UTILITY(U,$J,112,1289,20)
+88 ;;=USDA Std. Reference, Release 8
+89 ;;^UTILITY(U,$J,112,1290,0)
+90 ;;=LAMB, RIB CHOPS, PRIME, BROILED^1210-0^oz.^28.3^^N
+91 ;;^UTILITY(U,$J,112,1290,1)
+92 ;;=16.9^46.5^0^492^35.5^^^7^.8^^128^189.3^41.4^^^^^0^0^.1
+93 ;;^UTILITY(U,$J,112,1290,2)
+94 ;;=.18^4^^^^^1.39^^98^26.04
+95 ;;^UTILITY(U,$J,112,1290,20)
+96 ;;=USDA Std. Reference, Release 8
+97 ;;^UTILITY(U,$J,112,1291,0)
+98 ;;=LAMB, RIB, PRIME, TRIMMED, BROILED^1212-0^oz.^28.3^^N
+99 ;;^UTILITY(U,$J,112,1291,1)
+100 ;;=26.9^12.1^0^224^59.1^^^11^1.9^^211^301.3^65.9^^^^^0^0^.15
+101 ;;^UTILITY(U,$J,112,1291,2)
+102 ;;=.27^5.8^^^^^.36^^100^6.78
+103 ;;^UTILITY(U,$J,112,1291,20)
+104 ;;=USDA Std. Reference, Release 8
+105 ;;^UTILITY(U,$J,112,1292,0)
+106 ;;=LAMB, RIB CHOPS, CHOICE, BROILED^17-030^oz.^28.3^70^N
+107 ;;^UTILITY(U,$J,112,1292,1)
+108 ;;=22.13^29.59^0^361^47.06^^^19^1.88^23^178^270^76^4^.121^.02^.12^0^0^.09
+109 ;;^UTILITY(U,$J,112,1292,2)
+110 ;;=.22^7^.61^.11^14^2.54^1.74^.52^99^12.7^12.12^2.37^0^1.14^^^0
+111 ;;^UTILITY(U,$J,112,1292,3)
+112 ;;=.259^.947^1.068^1.721^1.954^.568^.264^.901^.744^1.194^1.315^.701^1.331^1.948^3.211^1.081^.928^.823
