FHINI02M ; ; 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,767,2)
;;=.07^1.9^^^^^.09^^26^2.02^^^^.7
;;^UTILITY(U,$J,112,767,4)
;;=^^^^^^1.85
;;^UTILITY(U,$J,112,767,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,768,0)
;;=BEEF AND VEGETABLE STEW, HOME RECIPE, W/LEAN CHUCK, W/SALT^371-2^cups^245^100^N
;;^UTILITY(U,$J,112,768,1)
;;=6.4^4.3^6.2^89^82.4^^^12^1.2^^75^250^119^^^^^980^7^.06
;;^UTILITY(U,$J,112,768,2)
;;=.07^1.9^^^^^.09^^26^2.02^^^^.7
;;^UTILITY(U,$J,112,768,4)
;;=^^^^^^1.85
;;^UTILITY(U,$J,112,768,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,769,0)
;;=BEEF AND VEGETABLE STEW, CND^372-0^cups^245^100^N
;;^UTILITY(U,$J,112,769,1)
;;=5.8^3.1^7.1^79^82.5^^^12^.9^^45^174^411^^^^^970^3^.03
;;^UTILITY(U,$J,112,769,2)
;;=.05^1^^^^^0^^14^1^^^^1.5
;;^UTILITY(U,$J,112,769,4)
;;=^^^^^^1
;;^UTILITY(U,$J,112,769,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,770,0)
;;=BEEF, ROAST BEEF, CND^373-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,770,1)
;;=25^13^0^224^60^^^16^2.6^24^116^259^60^6.08^.101^^^0^0^.02
;;^UTILITY(U,$J,112,770,2)
;;=.23^4.2^^.15^8^2.38^0^^80^5.07^5.66^.48^0^2
;;^UTILITY(U,$J,112,770,4)
;;=^^^^^^5
;;^UTILITY(U,$J,112,770,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,771,0)
;;=BEEF, CORNED, BONELESS, CKD^13-347^oz.^28.3^99^N
;;^UTILITY(U,$J,112,771,1)
;;=18.17^18.98^.47^251^59.79^^^8^1.86^12^125^145^1134^4.58^.154^.022^^0^16^.026
;;^UTILITY(U,$J,112,771,2)
;;=.17^3.03^.42^.23^6^1.63^.54^.13^98^6.34^9.22^.67^0^2.6^^^0
;;^UTILITY(U,$J,112,771,3)
;;=.166^.686^.785^1.334^1.392^.421^.232^.654^.593^.799^1.122^.578^1.308^1.778^2.958^1.517^1.308^.732
;;^UTILITY(U,$J,112,771,4)
;;=.04^.02^.5^3.69^1.44^1.74^7.78^0
;;^UTILITY(U,$J,112,771,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,772,0)
;;=BEEF, CORNED, BONELESS, CND^13-348^oz.^28.3^100^N
;;^UTILITY(U,$J,112,772,1)
;;=27.1^14.93^0^250^57.72^^^12^2.08^14^111^136^1006^3.57^.064^.014^^0^1.5^.02
;;^UTILITY(U,$J,112,772,2)
;;=.147^2.43^.626^.13^9^1.62^.42^.21^86^6.18^5.96^.63^0^2.9^^^0
;;^UTILITY(U,$J,112,772,3)
;;=.247^1.023^1.17^1.99^2.076^.629^.347^.975^.884^1.192^1.673^.863^1.951^2.653^4.413^2.263^1.951^1.092
;;^UTILITY(U,$J,112,772,4)
;;=.1^.07^.42^3.04^.8^2.29^5^0
;;^UTILITY(U,$J,112,772,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,773,0)
;;=BEEF, CORNED BEEF HASH, CND, W/POTATO^379-0^cups^220^100^N
;;^UTILITY(U,$J,112,773,1)
;;=8.8^11.3^10.7^181^67.4^^^13^2^^67^200^540^^^^^0^0^.01
;;^UTILITY(U,$J,112,773,2)
;;=.09^2.1^^^^^.23^^33^5.42^^^^1.8
;;^UTILITY(U,$J,112,773,4)
;;=^^^^^^4.97
;;^UTILITY(U,$J,112,773,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,774,0)
;;=BEEF, CHIPPED BEEF, DRIED, CREAMED^381-0^cups^245^100^N
;;^UTILITY(U,$J,112,774,1)
;;=8.2^10.3^7.1^154^72^^^105^.8^^140^153^716^^^^^360^.6^.06
;;^UTILITY(U,$J,112,774,2)
;;=.19^.6^^^^^.32^^40^5.59^^^^2.4
;;^UTILITY(U,$J,112,774,4)
;;=^^^^^^3.49
;;^UTILITY(U,$J,112,774,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,775,0)
;;=BEEF, POT PIE, HOME RECIPE, BAKED^382-0^pieces^210^100^N
;;^UTILITY(U,$J,112,775,1)
;;=10.1^14.5^18.8^246^55.1^^^14^1.8^^71^159^284^^^^^820^3^.14
;;^UTILITY(U,$J,112,775,2)
;;=.14^2.3^^^^^2.84^^21^4.02^^^^1.5
;;^UTILITY(U,$J,112,775,4)
;;=^^^^^^7.08
;;^UTILITY(U,$J,112,775,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,776,0)
;;=BEEF, POT PIE, COMMERCIAL, FRZ, UNHEATED^383-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,776,1)
;;=7.3^9.9^18^192^63.3^^^10^1^^48^93^366^^^^^410^0^.03
;;^UTILITY(U,$J,112,776,2)
;;=.06^1.2^^^^^1^^18^3^^^^1.5
;;^UTILITY(U,$J,112,776,4)
;;=^^^^^^6
;;^UTILITY(U,$J,112,776,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,777,0)
;;=BEETS, CKD WO/SALT^11-081^cups^170^100^N
;;^UTILITY(U,$J,112,777,1)
;;=1.68^.18^9.96^44^87.06^^^16^.79^23^38^305^77^.35^.074^.326^^35^3.6^.027
;;^UTILITY(U,$J,112,777,2)
;;=.04^.331^.145^.067^80^0^.058^.005^0^.028^.035^.064^4^1.12^^^1.7
;;^UTILITY(U,$J,112,777,3)
;;=.02^.049^.05^.071^.06^.019^.02^.048^.04^.059^.044^.022^.063^.121^.446^.033^.043^.062
;;^UTILITY(U,$J,112,777,4)
;;=^^^.027^^.001^.035
;;^UTILITY(U,$J,112,777,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,778,0)
;;=BEETS, CKD W/SALT^11-734^cups^170^100^N
;;^UTILITY(U,$J,112,778,1)
;;=1.68^.18^9.96^44^87.06^^^16^.79^23^38^305^285^.35^.074^.326^^35^3.6^.027
;;^UTILITY(U,$J,112,778,2)
;;=.04^.331^.145^.067^80^0^.058^.005^0^.028^.035^.064^4^1.12^^^1.7
;;^UTILITY(U,$J,112,778,3)
;;=.02^.049^.05^.071^.06^.019^.02^.048^.04^.059^.044^.022^.063^.121^.446^.033^.043^.062
FHINI02M ; ; 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,767,2)
+2 ;;=.07^1.9^^^^^.09^^26^2.02^^^^.7
+3 ;;^UTILITY(U,$J,112,767,4)
+4 ;;=^^^^^^1.85
+5 ;;^UTILITY(U,$J,112,767,20)
+6 ;;=USDA Std. Reference, Release 8
+7 ;;^UTILITY(U,$J,112,768,0)
+8 ;;=BEEF AND VEGETABLE STEW, HOME RECIPE, W/LEAN CHUCK, W/SALT^371-2^cups^245^100^N
+9 ;;^UTILITY(U,$J,112,768,1)
+10 ;;=6.4^4.3^6.2^89^82.4^^^12^1.2^^75^250^119^^^^^980^7^.06
+11 ;;^UTILITY(U,$J,112,768,2)
+12 ;;=.07^1.9^^^^^.09^^26^2.02^^^^.7
+13 ;;^UTILITY(U,$J,112,768,4)
+14 ;;=^^^^^^1.85
+15 ;;^UTILITY(U,$J,112,768,20)
+16 ;;=USDA Std. Reference, Release 8
+17 ;;^UTILITY(U,$J,112,769,0)
+18 ;;=BEEF AND VEGETABLE STEW, CND^372-0^cups^245^100^N
+19 ;;^UTILITY(U,$J,112,769,1)
+20 ;;=5.8^3.1^7.1^79^82.5^^^12^.9^^45^174^411^^^^^970^3^.03
+21 ;;^UTILITY(U,$J,112,769,2)
+22 ;;=.05^1^^^^^0^^14^1^^^^1.5
+23 ;;^UTILITY(U,$J,112,769,4)
+24 ;;=^^^^^^1
+25 ;;^UTILITY(U,$J,112,769,20)
+26 ;;=USDA Std. Reference, Release 8
+27 ;;^UTILITY(U,$J,112,770,0)
+28 ;;=BEEF, ROAST BEEF, CND^373-0^oz.^28.3^100^N
+29 ;;^UTILITY(U,$J,112,770,1)
+30 ;;=25^13^0^224^60^^^16^2.6^24^116^259^60^6.08^.101^^^0^0^.02
+31 ;;^UTILITY(U,$J,112,770,2)
+32 ;;=.23^4.2^^.15^8^2.38^0^^80^5.07^5.66^.48^0^2
+33 ;;^UTILITY(U,$J,112,770,4)
+34 ;;=^^^^^^5
+35 ;;^UTILITY(U,$J,112,770,20)
+36 ;;=USDA Std. Reference, Release 8
+37 ;;^UTILITY(U,$J,112,771,0)
+38 ;;=BEEF, CORNED, BONELESS, CKD^13-347^oz.^28.3^99^N
+39 ;;^UTILITY(U,$J,112,771,1)
+40 ;;=18.17^18.98^.47^251^59.79^^^8^1.86^12^125^145^1134^4.58^.154^.022^^0^16^.026
+41 ;;^UTILITY(U,$J,112,771,2)
+42 ;;=.17^3.03^.42^.23^6^1.63^.54^.13^98^6.34^9.22^.67^0^2.6^^^0
+43 ;;^UTILITY(U,$J,112,771,3)
+44 ;;=.166^.686^.785^1.334^1.392^.421^.232^.654^.593^.799^1.122^.578^1.308^1.778^2.958^1.517^1.308^.732
+45 ;;^UTILITY(U,$J,112,771,4)
+46 ;;=.04^.02^.5^3.69^1.44^1.74^7.78^0
+47 ;;^UTILITY(U,$J,112,771,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,772,0)
+50 ;;=BEEF, CORNED, BONELESS, CND^13-348^oz.^28.3^100^N
+51 ;;^UTILITY(U,$J,112,772,1)
+52 ;;=27.1^14.93^0^250^57.72^^^12^2.08^14^111^136^1006^3.57^.064^.014^^0^1.5^.02
+53 ;;^UTILITY(U,$J,112,772,2)
+54 ;;=.147^2.43^.626^.13^9^1.62^.42^.21^86^6.18^5.96^.63^0^2.9^^^0
+55 ;;^UTILITY(U,$J,112,772,3)
+56 ;;=.247^1.023^1.17^1.99^2.076^.629^.347^.975^.884^1.192^1.673^.863^1.951^2.653^4.413^2.263^1.951^1.092
+57 ;;^UTILITY(U,$J,112,772,4)
+58 ;;=.1^.07^.42^3.04^.8^2.29^5^0
+59 ;;^UTILITY(U,$J,112,772,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,773,0)
+62 ;;=BEEF, CORNED BEEF HASH, CND, W/POTATO^379-0^cups^220^100^N
+63 ;;^UTILITY(U,$J,112,773,1)
+64 ;;=8.8^11.3^10.7^181^67.4^^^13^2^^67^200^540^^^^^0^0^.01
+65 ;;^UTILITY(U,$J,112,773,2)
+66 ;;=.09^2.1^^^^^.23^^33^5.42^^^^1.8
+67 ;;^UTILITY(U,$J,112,773,4)
+68 ;;=^^^^^^4.97
+69 ;;^UTILITY(U,$J,112,773,20)
+70 ;;=USDA Std. Reference, Release 8
+71 ;;^UTILITY(U,$J,112,774,0)
+72 ;;=BEEF, CHIPPED BEEF, DRIED, CREAMED^381-0^cups^245^100^N
+73 ;;^UTILITY(U,$J,112,774,1)
+74 ;;=8.2^10.3^7.1^154^72^^^105^.8^^140^153^716^^^^^360^.6^.06
+75 ;;^UTILITY(U,$J,112,774,2)
+76 ;;=.19^.6^^^^^.32^^40^5.59^^^^2.4
+77 ;;^UTILITY(U,$J,112,774,4)
+78 ;;=^^^^^^3.49
+79 ;;^UTILITY(U,$J,112,774,20)
+80 ;;=USDA Std. Reference, Release 8
+81 ;;^UTILITY(U,$J,112,775,0)
+82 ;;=BEEF, POT PIE, HOME RECIPE, BAKED^382-0^pieces^210^100^N
+83 ;;^UTILITY(U,$J,112,775,1)
+84 ;;=10.1^14.5^18.8^246^55.1^^^14^1.8^^71^159^284^^^^^820^3^.14
+85 ;;^UTILITY(U,$J,112,775,2)
+86 ;;=.14^2.3^^^^^2.84^^21^4.02^^^^1.5
+87 ;;^UTILITY(U,$J,112,775,4)
+88 ;;=^^^^^^7.08
+89 ;;^UTILITY(U,$J,112,775,20)
+90 ;;=USDA Std. Reference, Release 8
+91 ;;^UTILITY(U,$J,112,776,0)
+92 ;;=BEEF, POT PIE, COMMERCIAL, FRZ, UNHEATED^383-0^oz.^28.3^100^N
+93 ;;^UTILITY(U,$J,112,776,1)
+94 ;;=7.3^9.9^18^192^63.3^^^10^1^^48^93^366^^^^^410^0^.03
+95 ;;^UTILITY(U,$J,112,776,2)
+96 ;;=.06^1.2^^^^^1^^18^3^^^^1.5
+97 ;;^UTILITY(U,$J,112,776,4)
+98 ;;=^^^^^^6
+99 ;;^UTILITY(U,$J,112,776,20)
+100 ;;=USDA Std. Reference, Release 8
+101 ;;^UTILITY(U,$J,112,777,0)
+102 ;;=BEETS, CKD WO/SALT^11-081^cups^170^100^N
+103 ;;^UTILITY(U,$J,112,777,1)
+104 ;;=1.68^.18^9.96^44^87.06^^^16^.79^23^38^305^77^.35^.074^.326^^35^3.6^.027
+105 ;;^UTILITY(U,$J,112,777,2)
+106 ;;=.04^.331^.145^.067^80^0^.058^.005^0^.028^.035^.064^4^1.12^^^1.7
+107 ;;^UTILITY(U,$J,112,777,3)
+108 ;;=.02^.049^.05^.071^.06^.019^.02^.048^.04^.059^.044^.022^.063^.121^.446^.033^.043^.062
+109 ;;^UTILITY(U,$J,112,777,4)
+110 ;;=^^^.027^^.001^.035
+111 ;;^UTILITY(U,$J,112,777,20)
+112 ;;=USDA Std. Reference, Release 10
+113 ;;^UTILITY(U,$J,112,778,0)
+114 ;;=BEETS, CKD W/SALT^11-734^cups^170^100^N
+115 ;;^UTILITY(U,$J,112,778,1)
+116 ;;=1.68^.18^9.96^44^87.06^^^16^.79^23^38^305^285^.35^.074^.326^^35^3.6^.027
+117 ;;^UTILITY(U,$J,112,778,2)
+118 ;;=.04^.331^.145^.067^80^0^.058^.005^0^.028^.035^.064^4^1.12^^^1.7
+119 ;;^UTILITY(U,$J,112,778,3)
+120 ;;=.02^.049^.05^.071^.06^.019^.02^.048^.04^.059^.044^.022^.063^.121^.446^.033^.043^.062
