FHINI02C ; ; 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,641,2)
;;=.214^2.879^.82^.18^5^1.61^2.68^.4^67^9.91^12.94^3.08^0^3.5^^^0
;;^UTILITY(U,$J,112,641,3)
;;=.138^.432^.639^.874^1.01^.276^.225^.501^.49^.639^.942^.314^.848^1.218^1.618^1.039^.687^.53
;;^UTILITY(U,$J,112,641,4)
;;=.03^.02^.36^6.13^.97^3.36^11.97^0^^17.7
;;^UTILITY(U,$J,112,641,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,642,0)
;;=SAUSAGE, KNOCKWURST^7-038^links^68^100^N
;;^UTILITY(U,$J,112,642,1)
;;=11.88^27.76^1.76^308^55.5^^^11^.91^11^98^199^1010^1.66^.06^.021^^0^27^.342
;;^UTILITY(U,$J,112,642,2)
;;=.14^2.734^.32^.17^2^1.18^2.48^.44^58^10.2^12.81^2.92^0^3.1^^^0
;;^UTILITY(U,$J,112,642,3)
;;=.108^.479^.466^.821^.933^.287^.147^.407^.361^.515^.709^.361^.675^1.011^1.619^.703^.539^.477
;;^UTILITY(U,$J,112,642,4)
;;=.11^.09^.58^5.97^1.28^3.46^11.53^0
;;^UTILITY(U,$J,112,642,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,643,0)
;;=SAUSAGE, LEBANON BOLOGNA^7-039^slices^23^100^N
;;^UTILITY(U,$J,112,643,1)
;;=19.3^13.2^2.7^212^60.8^^^13^2.47^16^150^300^1338^3.98^.09^.057^^0^22^.062
;;^UTILITY(U,$J,112,643,2)
;;=.188^4.362^.53^.24^.564^2.55^.46^.15^70^5.84^5.94^.61^0^4^^^0
;;^UTILITY(U,$J,112,643,3)
;;=.158^.81^.792^1.444^1.577^.467^.229^.724^.585^.888^1.305^.56^1.277^1.717^2.787^1.435^1.052^.789
;;^UTILITY(U,$J,112,643,4)
;;=.03^.04^.38^3.09^.89^2.09^5.05^0
;;^UTILITY(U,$J,112,643,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,644,0)
;;=SAUSAGE, LIVERWURST, FRESH^7-041^slices^18^100^N
;;^UTILITY(U,$J,112,644,1)
;;=14.1^28.5^2.2^326^52.1^^^26^6.4^12^230^170^860^2.3^.24^.155^^27667^0^.272
;;^UTILITY(U,$J,112,644,2)
;;=1.03^4.3^2.95^.19^30^13.46^2.45^.14^158^10.6^13.34^2.6^8300^3.1^^^0
;;^UTILITY(U,$J,112,644,3)
;;=.151^.671^.653^1.139^1.155^.285^.149^.617^.362^.857^.812^.448^.83^1.164^2.195^1.096^.85^.694
;;^UTILITY(U,$J,112,644,4)
;;=0^0^.43^6.85^1.06^3.31^12.05^0^^58
;;^UTILITY(U,$J,112,644,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,645,0)
;;=LUNCHEON MEAT, OLIVE LOAF^7-051^slices^28.35^100^N
;;^UTILITY(U,$J,112,645,1)
;;=11.8^16.5^9.2^235^58.2^^^109^.54^19^127^297^1484^1.38^.05^.035^^200^9^.295
;;^UTILITY(U,$J,112,645,2)
;;=.26^1.835^.77^.23^2^1.26^1.82^.11^38^5.85^7.87^1.93^0^4.3^^^0
;;^UTILITY(U,$J,112,645,3)
;;=.104^.472^.421^.87^.809^.301^.144^.419^.383^.508^.583^.292^.618^.951^1.919^.68^.83^.517
;;^UTILITY(U,$J,112,645,4)
;;=.01^.01^.27^3.54^.66^2.02^7.21^0
;;^UTILITY(U,$J,112,645,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,646,0)
;;=LUNCHEON MEAT, PEPPERED LOAF^7-056^slices^28.35^100^N
;;^UTILITY(U,$J,112,646,1)
;;=17.27^6.37^4.6^148^67.37^^^54^1.07^20^170^394^1523^3.23^.12^.064^^0^25^.377
;;^UTILITY(U,$J,112,646,2)
;;=.303^3.08^.53^.27^2^1.96^.43^.07^46^2.29^3^.5^0^4.4^^^0
;;^UTILITY(U,$J,112,646,3)
;;=.199^.761^.782^1.388^1.509^.448^.243^.696^.552^.826^1.17^.649^1.009^1.627^2.654^.895^.807^.701
;;^UTILITY(U,$J,112,646,4)
;;=.03^.01^.09^1.36^.28^.79^2.72^0
;;^UTILITY(U,$J,112,646,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,647,0)
;;=LUNCHEON MEAT, PICKLE & PIMIENTO LOAF^7-058^slices^28.35^100^N
;;^UTILITY(U,$J,112,647,1)
;;=11.5^21.1^5.9^262^57.1^^^95^1.02^18^140^340^1389^1.4^.125^.029^^73^14^.293
;;^UTILITY(U,$J,112,647,2)
;;=.254^2.054^.793^.19^5^1.18^2.31^.27^37^7.84^9.59^2.59^30000^4.4^^^0
;;^UTILITY(U,$J,112,647,3)
;;=.116^.521^.49^.948^.895^.254^.118^.438^.39^.556^.665^.343^.668^1.02^1.915^.768^.836^.567
;;^UTILITY(U,$J,112,647,4)
;;=.07^.04^.33^4.68^.79^2.71^8.8^0
;;^UTILITY(U,$J,112,647,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,648,0)
;;=SAUSAGE, POLISH-STYLE^7-059^sausages^227^100^N
;;^UTILITY(U,$J,112,648,1)
;;=14.1^28.72^1.63^326^53.15^^^12^1.44^14^136^237^876^1.93^.09^.049^^0^1^.502
;;^UTILITY(U,$J,112,648,2)
;;=.148^3.443^.45^.19^2^.98^2.79^.29^70^10.33^13.52^3.08^0^2.4^^^0
;;^UTILITY(U,$J,112,648,3)
;;=.138^.591^.611^1.076^1.11^.379^.157^.539^.444^.679^.925^.444^.902^1.293^2.117^.992^.712^.584
;;^UTILITY(U,$J,112,648,4)
;;=.07^.07^.4^6.4^.95^3.38^12.58^0^^17.7
;;^UTILITY(U,$J,112,648,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,649,0)
;;=LUNCHEON MEAT, PICNIC LOAF^7-062^slices^28.35^100^N
;;^UTILITY(U,$J,112,649,1)
;;=14.92^16.64^4.76^232^60.2^^^47^1.02^15^125^267^1164^2.18^.07^.028^^0^18^.374
;;^UTILITY(U,$J,112,649,2)
;;=.242^2.306^.68^.3^2^1.5^1.68^.21^38^6.07^7.68^1.89^0^3.48^^^0
;;^UTILITY(U,$J,112,649,3)
;;=.143^.656^.582^1.146^1.193^.377^.162^.537^.458^.642^.888^.437^.89^1.318^2.253^.972^.859^.656
FHINI02C ; ; 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,641,2)
+2 ;;=.214^2.879^.82^.18^5^1.61^2.68^.4^67^9.91^12.94^3.08^0^3.5^^^0
+3 ;;^UTILITY(U,$J,112,641,3)
+4 ;;=.138^.432^.639^.874^1.01^.276^.225^.501^.49^.639^.942^.314^.848^1.218^1.618^1.039^.687^.53
+5 ;;^UTILITY(U,$J,112,641,4)
+6 ;;=.03^.02^.36^6.13^.97^3.36^11.97^0^^17.7
+7 ;;^UTILITY(U,$J,112,641,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,642,0)
+10 ;;=SAUSAGE, KNOCKWURST^7-038^links^68^100^N
+11 ;;^UTILITY(U,$J,112,642,1)
+12 ;;=11.88^27.76^1.76^308^55.5^^^11^.91^11^98^199^1010^1.66^.06^.021^^0^27^.342
+13 ;;^UTILITY(U,$J,112,642,2)
+14 ;;=.14^2.734^.32^.17^2^1.18^2.48^.44^58^10.2^12.81^2.92^0^3.1^^^0
+15 ;;^UTILITY(U,$J,112,642,3)
+16 ;;=.108^.479^.466^.821^.933^.287^.147^.407^.361^.515^.709^.361^.675^1.011^1.619^.703^.539^.477
+17 ;;^UTILITY(U,$J,112,642,4)
+18 ;;=.11^.09^.58^5.97^1.28^3.46^11.53^0
+19 ;;^UTILITY(U,$J,112,642,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,643,0)
+22 ;;=SAUSAGE, LEBANON BOLOGNA^7-039^slices^23^100^N
+23 ;;^UTILITY(U,$J,112,643,1)
+24 ;;=19.3^13.2^2.7^212^60.8^^^13^2.47^16^150^300^1338^3.98^.09^.057^^0^22^.062
+25 ;;^UTILITY(U,$J,112,643,2)
+26 ;;=.188^4.362^.53^.24^.564^2.55^.46^.15^70^5.84^5.94^.61^0^4^^^0
+27 ;;^UTILITY(U,$J,112,643,3)
+28 ;;=.158^.81^.792^1.444^1.577^.467^.229^.724^.585^.888^1.305^.56^1.277^1.717^2.787^1.435^1.052^.789
+29 ;;^UTILITY(U,$J,112,643,4)
+30 ;;=.03^.04^.38^3.09^.89^2.09^5.05^0
+31 ;;^UTILITY(U,$J,112,643,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,644,0)
+34 ;;=SAUSAGE, LIVERWURST, FRESH^7-041^slices^18^100^N
+35 ;;^UTILITY(U,$J,112,644,1)
+36 ;;=14.1^28.5^2.2^326^52.1^^^26^6.4^12^230^170^860^2.3^.24^.155^^27667^0^.272
+37 ;;^UTILITY(U,$J,112,644,2)
+38 ;;=1.03^4.3^2.95^.19^30^13.46^2.45^.14^158^10.6^13.34^2.6^8300^3.1^^^0
+39 ;;^UTILITY(U,$J,112,644,3)
+40 ;;=.151^.671^.653^1.139^1.155^.285^.149^.617^.362^.857^.812^.448^.83^1.164^2.195^1.096^.85^.694
+41 ;;^UTILITY(U,$J,112,644,4)
+42 ;;=0^0^.43^6.85^1.06^3.31^12.05^0^^58
+43 ;;^UTILITY(U,$J,112,644,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,645,0)
+46 ;;=LUNCHEON MEAT, OLIVE LOAF^7-051^slices^28.35^100^N
+47 ;;^UTILITY(U,$J,112,645,1)
+48 ;;=11.8^16.5^9.2^235^58.2^^^109^.54^19^127^297^1484^1.38^.05^.035^^200^9^.295
+49 ;;^UTILITY(U,$J,112,645,2)
+50 ;;=.26^1.835^.77^.23^2^1.26^1.82^.11^38^5.85^7.87^1.93^0^4.3^^^0
+51 ;;^UTILITY(U,$J,112,645,3)
+52 ;;=.104^.472^.421^.87^.809^.301^.144^.419^.383^.508^.583^.292^.618^.951^1.919^.68^.83^.517
+53 ;;^UTILITY(U,$J,112,645,4)
+54 ;;=.01^.01^.27^3.54^.66^2.02^7.21^0
+55 ;;^UTILITY(U,$J,112,645,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,646,0)
+58 ;;=LUNCHEON MEAT, PEPPERED LOAF^7-056^slices^28.35^100^N
+59 ;;^UTILITY(U,$J,112,646,1)
+60 ;;=17.27^6.37^4.6^148^67.37^^^54^1.07^20^170^394^1523^3.23^.12^.064^^0^25^.377
+61 ;;^UTILITY(U,$J,112,646,2)
+62 ;;=.303^3.08^.53^.27^2^1.96^.43^.07^46^2.29^3^.5^0^4.4^^^0
+63 ;;^UTILITY(U,$J,112,646,3)
+64 ;;=.199^.761^.782^1.388^1.509^.448^.243^.696^.552^.826^1.17^.649^1.009^1.627^2.654^.895^.807^.701
+65 ;;^UTILITY(U,$J,112,646,4)
+66 ;;=.03^.01^.09^1.36^.28^.79^2.72^0
+67 ;;^UTILITY(U,$J,112,646,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,647,0)
+70 ;;=LUNCHEON MEAT, PICKLE & PIMIENTO LOAF^7-058^slices^28.35^100^N
+71 ;;^UTILITY(U,$J,112,647,1)
+72 ;;=11.5^21.1^5.9^262^57.1^^^95^1.02^18^140^340^1389^1.4^.125^.029^^73^14^.293
+73 ;;^UTILITY(U,$J,112,647,2)
+74 ;;=.254^2.054^.793^.19^5^1.18^2.31^.27^37^7.84^9.59^2.59^30000^4.4^^^0
+75 ;;^UTILITY(U,$J,112,647,3)
+76 ;;=.116^.521^.49^.948^.895^.254^.118^.438^.39^.556^.665^.343^.668^1.02^1.915^.768^.836^.567
+77 ;;^UTILITY(U,$J,112,647,4)
+78 ;;=.07^.04^.33^4.68^.79^2.71^8.8^0
+79 ;;^UTILITY(U,$J,112,647,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,648,0)
+82 ;;=SAUSAGE, POLISH-STYLE^7-059^sausages^227^100^N
+83 ;;^UTILITY(U,$J,112,648,1)
+84 ;;=14.1^28.72^1.63^326^53.15^^^12^1.44^14^136^237^876^1.93^.09^.049^^0^1^.502
+85 ;;^UTILITY(U,$J,112,648,2)
+86 ;;=.148^3.443^.45^.19^2^.98^2.79^.29^70^10.33^13.52^3.08^0^2.4^^^0
+87 ;;^UTILITY(U,$J,112,648,3)
+88 ;;=.138^.591^.611^1.076^1.11^.379^.157^.539^.444^.679^.925^.444^.902^1.293^2.117^.992^.712^.584
+89 ;;^UTILITY(U,$J,112,648,4)
+90 ;;=.07^.07^.4^6.4^.95^3.38^12.58^0^^17.7
+91 ;;^UTILITY(U,$J,112,648,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,649,0)
+94 ;;=LUNCHEON MEAT, PICNIC LOAF^7-062^slices^28.35^100^N
+95 ;;^UTILITY(U,$J,112,649,1)
+96 ;;=14.92^16.64^4.76^232^60.2^^^47^1.02^15^125^267^1164^2.18^.07^.028^^0^18^.374
+97 ;;^UTILITY(U,$J,112,649,2)
+98 ;;=.242^2.306^.68^.3^2^1.5^1.68^.21^38^6.07^7.68^1.89^0^3.48^^^0
+99 ;;^UTILITY(U,$J,112,649,3)
+100 ;;=.143^.656^.582^1.146^1.193^.377^.162^.537^.458^.642^.888^.437^.89^1.318^2.253^.972^.859^.656
