FHINI02A ; ; 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,624,2)
;;=.12^3.39^.33^.17^3^1.97^.81^.29^61^13.03^14.02^1.11^0^3.1^^^0
;;^UTILITY(U,$J,112,624,3)
;;=.111^.462^.53^.901^.94^.284^.157^.44^.401^.54^.758^.391^.883^1.2^1.998^1.024^.883^.494
;;^UTILITY(U,$J,112,624,4)
;;=.04^.03^1.01^7.35^2.32^4.05^11.7^0
;;^UTILITY(U,$J,112,624,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,625,0)
;;=SAUSAGE, BOCKWURST^7-006^links^65^100^N
;;^UTILITY(U,$J,112,625,1)
;;=13.32^27.57^.48^307^56.12^^^16^.65^18^146^270^1105^1.55^.06^.015^^23^0^.41
;;^UTILITY(U,$J,112,625,2)
;;=.17^4.126^.67^.23^6^.81^2.56^.25^59^10.13^13^2.98^6^2.5^^^0
;;^UTILITY(U,$J,112,625,3)
;;=.136^.55^.581^.939^1.048^.32^.147^.492^.428^.609^.813^.398^.759^1.188^1.943^.727^.6^.558
;;^UTILITY(U,$J,112,625,4)
;;=.01^.01^.53^6.28^1.01^3.07^11.8^.09
;;^UTILITY(U,$J,112,625,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,626,0)
;;=SAUSAGE, BOLOGNA, BEEF^7-007^slices^23^100^N
;;^UTILITY(U,$J,112,626,1)
;;=12.2^28.5^.8^312^55.3^^^12^1.66^12^88^157^981^2.16^.03^.028^^0^21^.05
;;^UTILITY(U,$J,112,626,2)
;;=.109^2.407^.28^.15^5^1.42^.85^.24^58^12.07^13.8^1.09^0^3.2^^^0
;;^UTILITY(U,$J,112,626,3)
;;=.11^.456^.523^.889^.928^.28^.155^.435^.396^.533^.748^.386^.871^1.185^1.972^1.011^.871^.488
;;^UTILITY(U,$J,112,626,4)
;;=.08^.04^.87^6.64^1.64^4.05^12.16^0^^11.3
;;^UTILITY(U,$J,112,626,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,627,0)
;;=SAUSAGE, BOLOGNA, BEEF & PORK^7-008^slices^23^100^N
;;^UTILITY(U,$J,112,627,1)
;;=11.69^28.26^2.79^316^54.3^^^12^1.51^11^91^180^1019^1.94^.08^.039^^0^21^.172
;;^UTILITY(U,$J,112,627,2)
;;=.137^2.58^.28^.18^5^1.33^1.99^.41^55^10.7^13.39^2.4^0^2.97^^^0
;;^UTILITY(U,$J,112,627,3)
;;=.105^.511^.507^.898^.883^.277^.136^.462^.359^.621^.699^.318^.729^1.028^1.874^.864^.748^.509
;;^UTILITY(U,$J,112,627,4)
;;=.06^.04^.62^6.27^1.38^3.7^12.01^0^^11.3
;;^UTILITY(U,$J,112,627,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,628,0)
;;=SAUSAGE, BOLOGNA, TURKEY^7-011^oz.^28.3^100^N
;;^UTILITY(U,$J,112,628,1)
;;=13.73^15.21^.97^199^65.08^^^84^1.53^14^131^199^878^1.74^.03^.015^^0^0^.055
;;^UTILITY(U,$J,112,628,2)
;;=.165^3.527^.7^.22^7^.27^3.98^.31^99^5.06^4.79^4.29^0^3.3^^^0
;;^UTILITY(U,$J,112,628,3)
;;=.11^.657^.518^1.118^1.19^.386^.101^.569^.488^.562^.896^.52^.898^1.397^2.304^.804^.67^.641
;;^UTILITY(U,$J,112,628,4)
;;=0^.13^.25^3.11^.24^1.57^4.55^0
;;^UTILITY(U,$J,112,628,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,629,0)
;;=SAUSAGE, BRAUNSCHWEIGER (LIVER SAUSAGE), SMOKED^7-014^slices^18^100^N
;;^UTILITY(U,$J,112,629,1)
;;=13.5^32.09^3.13^359^48.01^^^9^9.36^11^168^199^1143^2.81^.24^.155^^14051^10^.249
;;^UTILITY(U,$J,112,629,2)
;;=1.525^8.368^3.38^.33^44^20.09^3.34^.4^156^10.9^14.91^3.74^4220^3.27^^^0
;;^UTILITY(U,$J,112,629,3)
;;=.145^.534^.484^1.032^.909^.311^.248^.553^.43^.616^.767^.32^.762^1.125^1.631^.886^.767^.588
;;^UTILITY(U,$J,112,629,4)
;;=.06^.13^.39^6.75^1.2^3.57^13.71^0
;;^UTILITY(U,$J,112,629,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,630,0)
;;=SAUSAGE, BROTWURST^7-015^links^70^100^N
;;^UTILITY(U,$J,112,630,1)
;;=14.27^27.8^2.97^323^51.3^^^48^1.03^16^134^281^1112^2.1^.08^.038^^0^28^.25
;;^UTILITY(U,$J,112,630,2)
;;=.227^3.3^.06^.13^5^2.05^2.54^.29^63^9.93^13.29^2.83^0^3.67^^^0
;;^UTILITY(U,$J,112,630,3)
;;=.131^.598^.606^1.08^1.139^.369^.163^.541^.443^.675^.946^.436^.925^1.292^2.109^1.025^.742^.588
;;^UTILITY(U,$J,112,630,4)
;;=.04^.02^.35^6.11^1.04^3.4^12.26^0
;;^UTILITY(U,$J,112,630,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,631,0)
;;=SAUSAGE, CHEESEFURTER, CHEESE SMOKIE^7-016^furters^43^100^N
;;^UTILITY(U,$J,112,631,1)
;;=14.05^28.95^1.5^327^52.48^^^58^1.08^13^178^206^1082^2.25^.07^.033^^157^20^.247
;;^UTILITY(U,$J,112,631,2)
;;=.16^2.9^.76^.13^3^1.73^2.62^.4^68^10.47^13.66^3.02^38^3.03^^^0
;;^UTILITY(U,$J,112,631,3)
;;=.148^.543^.619^1.097^1.159^.357^.152^.564^.517^.692^.837^.473^.832^1.238^2.349^.905^.971^.599
;;^UTILITY(U,$J,112,631,4)
;;=.09^.1^.56^6.39^1.14^3.33^12.51^0
;;^UTILITY(U,$J,112,631,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,632,0)
;;=SAUSAGE, CHORIZO^7-019^links^60^100^N
;;^UTILITY(U,$J,112,632,1)
;;=24.1^38.27^1.86^455^31.85^^^8^1.59^18^150^398^1235^3.41^.08^.04^^0^0^.63
;;^UTILITY(U,$J,112,632,2)
;;=.3^5.131^1.12^.53^2^2^2.93^.38^88^14.38^18.4^3.46^0^3.92^^^0
;;^UTILITY(U,$J,112,632,3)
;;=.278^1.473^2.206^1.708^2.414^.47^.276^1.149^.748^.914^1.693^.721^1.56^2.185^3.566^1.73^1.252^.993
;;^UTILITY(U,$J,112,632,4)
;;=0^0^.87^9.15^1.65^4.12^16.31^.09
FHINI02A ; ; 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,624,2)
+2 ;;=.12^3.39^.33^.17^3^1.97^.81^.29^61^13.03^14.02^1.11^0^3.1^^^0
+3 ;;^UTILITY(U,$J,112,624,3)
+4 ;;=.111^.462^.53^.901^.94^.284^.157^.44^.401^.54^.758^.391^.883^1.2^1.998^1.024^.883^.494
+5 ;;^UTILITY(U,$J,112,624,4)
+6 ;;=.04^.03^1.01^7.35^2.32^4.05^11.7^0
+7 ;;^UTILITY(U,$J,112,624,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,625,0)
+10 ;;=SAUSAGE, BOCKWURST^7-006^links^65^100^N
+11 ;;^UTILITY(U,$J,112,625,1)
+12 ;;=13.32^27.57^.48^307^56.12^^^16^.65^18^146^270^1105^1.55^.06^.015^^23^0^.41
+13 ;;^UTILITY(U,$J,112,625,2)
+14 ;;=.17^4.126^.67^.23^6^.81^2.56^.25^59^10.13^13^2.98^6^2.5^^^0
+15 ;;^UTILITY(U,$J,112,625,3)
+16 ;;=.136^.55^.581^.939^1.048^.32^.147^.492^.428^.609^.813^.398^.759^1.188^1.943^.727^.6^.558
+17 ;;^UTILITY(U,$J,112,625,4)
+18 ;;=.01^.01^.53^6.28^1.01^3.07^11.8^.09
+19 ;;^UTILITY(U,$J,112,625,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,626,0)
+22 ;;=SAUSAGE, BOLOGNA, BEEF^7-007^slices^23^100^N
+23 ;;^UTILITY(U,$J,112,626,1)
+24 ;;=12.2^28.5^.8^312^55.3^^^12^1.66^12^88^157^981^2.16^.03^.028^^0^21^.05
+25 ;;^UTILITY(U,$J,112,626,2)
+26 ;;=.109^2.407^.28^.15^5^1.42^.85^.24^58^12.07^13.8^1.09^0^3.2^^^0
+27 ;;^UTILITY(U,$J,112,626,3)
+28 ;;=.11^.456^.523^.889^.928^.28^.155^.435^.396^.533^.748^.386^.871^1.185^1.972^1.011^.871^.488
+29 ;;^UTILITY(U,$J,112,626,4)
+30 ;;=.08^.04^.87^6.64^1.64^4.05^12.16^0^^11.3
+31 ;;^UTILITY(U,$J,112,626,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,627,0)
+34 ;;=SAUSAGE, BOLOGNA, BEEF & PORK^7-008^slices^23^100^N
+35 ;;^UTILITY(U,$J,112,627,1)
+36 ;;=11.69^28.26^2.79^316^54.3^^^12^1.51^11^91^180^1019^1.94^.08^.039^^0^21^.172
+37 ;;^UTILITY(U,$J,112,627,2)
+38 ;;=.137^2.58^.28^.18^5^1.33^1.99^.41^55^10.7^13.39^2.4^0^2.97^^^0
+39 ;;^UTILITY(U,$J,112,627,3)
+40 ;;=.105^.511^.507^.898^.883^.277^.136^.462^.359^.621^.699^.318^.729^1.028^1.874^.864^.748^.509
+41 ;;^UTILITY(U,$J,112,627,4)
+42 ;;=.06^.04^.62^6.27^1.38^3.7^12.01^0^^11.3
+43 ;;^UTILITY(U,$J,112,627,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,628,0)
+46 ;;=SAUSAGE, BOLOGNA, TURKEY^7-011^oz.^28.3^100^N
+47 ;;^UTILITY(U,$J,112,628,1)
+48 ;;=13.73^15.21^.97^199^65.08^^^84^1.53^14^131^199^878^1.74^.03^.015^^0^0^.055
+49 ;;^UTILITY(U,$J,112,628,2)
+50 ;;=.165^3.527^.7^.22^7^.27^3.98^.31^99^5.06^4.79^4.29^0^3.3^^^0
+51 ;;^UTILITY(U,$J,112,628,3)
+52 ;;=.11^.657^.518^1.118^1.19^.386^.101^.569^.488^.562^.896^.52^.898^1.397^2.304^.804^.67^.641
+53 ;;^UTILITY(U,$J,112,628,4)
+54 ;;=0^.13^.25^3.11^.24^1.57^4.55^0
+55 ;;^UTILITY(U,$J,112,628,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,629,0)
+58 ;;=SAUSAGE, BRAUNSCHWEIGER (LIVER SAUSAGE), SMOKED^7-014^slices^18^100^N
+59 ;;^UTILITY(U,$J,112,629,1)
+60 ;;=13.5^32.09^3.13^359^48.01^^^9^9.36^11^168^199^1143^2.81^.24^.155^^14051^10^.249
+61 ;;^UTILITY(U,$J,112,629,2)
+62 ;;=1.525^8.368^3.38^.33^44^20.09^3.34^.4^156^10.9^14.91^3.74^4220^3.27^^^0
+63 ;;^UTILITY(U,$J,112,629,3)
+64 ;;=.145^.534^.484^1.032^.909^.311^.248^.553^.43^.616^.767^.32^.762^1.125^1.631^.886^.767^.588
+65 ;;^UTILITY(U,$J,112,629,4)
+66 ;;=.06^.13^.39^6.75^1.2^3.57^13.71^0
+67 ;;^UTILITY(U,$J,112,629,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,630,0)
+70 ;;=SAUSAGE, BROTWURST^7-015^links^70^100^N
+71 ;;^UTILITY(U,$J,112,630,1)
+72 ;;=14.27^27.8^2.97^323^51.3^^^48^1.03^16^134^281^1112^2.1^.08^.038^^0^28^.25
+73 ;;^UTILITY(U,$J,112,630,2)
+74 ;;=.227^3.3^.06^.13^5^2.05^2.54^.29^63^9.93^13.29^2.83^0^3.67^^^0
+75 ;;^UTILITY(U,$J,112,630,3)
+76 ;;=.131^.598^.606^1.08^1.139^.369^.163^.541^.443^.675^.946^.436^.925^1.292^2.109^1.025^.742^.588
+77 ;;^UTILITY(U,$J,112,630,4)
+78 ;;=.04^.02^.35^6.11^1.04^3.4^12.26^0
+79 ;;^UTILITY(U,$J,112,630,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,631,0)
+82 ;;=SAUSAGE, CHEESEFURTER, CHEESE SMOKIE^7-016^furters^43^100^N
+83 ;;^UTILITY(U,$J,112,631,1)
+84 ;;=14.05^28.95^1.5^327^52.48^^^58^1.08^13^178^206^1082^2.25^.07^.033^^157^20^.247
+85 ;;^UTILITY(U,$J,112,631,2)
+86 ;;=.16^2.9^.76^.13^3^1.73^2.62^.4^68^10.47^13.66^3.02^38^3.03^^^0
+87 ;;^UTILITY(U,$J,112,631,3)
+88 ;;=.148^.543^.619^1.097^1.159^.357^.152^.564^.517^.692^.837^.473^.832^1.238^2.349^.905^.971^.599
+89 ;;^UTILITY(U,$J,112,631,4)
+90 ;;=.09^.1^.56^6.39^1.14^3.33^12.51^0
+91 ;;^UTILITY(U,$J,112,631,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,632,0)
+94 ;;=SAUSAGE, CHORIZO^7-019^links^60^100^N
+95 ;;^UTILITY(U,$J,112,632,1)
+96 ;;=24.1^38.27^1.86^455^31.85^^^8^1.59^18^150^398^1235^3.41^.08^.04^^0^0^.63
+97 ;;^UTILITY(U,$J,112,632,2)
+98 ;;=.3^5.131^1.12^.53^2^2^2.93^.38^88^14.38^18.4^3.46^0^3.92^^^0
+99 ;;^UTILITY(U,$J,112,632,3)
+100 ;;=.278^1.473^2.206^1.708^2.414^.47^.276^1.149^.748^.914^1.693^.721^1.56^2.185^3.566^1.73^1.252^.993
+101 ;;^UTILITY(U,$J,112,632,4)
+102 ;;=0^0^.87^9.15^1.65^4.12^16.31^.09
