FHINI00J ; ; 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,41,4)
;;=.748^1.073^2.608^7.675^.668^2.19^6.073^0
;;^UTILITY(U,$J,112,41,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,42,0)
;;=CHEESE, PASTEURIZED PROCESSED, AMERICAN^1-042^oz.^28.3^100^N
;;^UTILITY(U,$J,112,42,1)
;;=22.15^31.25^1.6^375.459^39.16^^^615.5^.39^22.25^744.9^162^1430.4^2.99^.03^.015^^1209.6^0^.027
;;^UTILITY(U,$J,112,42,2)
;;=.353^.069^.482^.071^7.8^.696^.607^.383^94.4^19.694^8.951^.99^290^5.84^^^0
;;^UTILITY(U,$J,112,42,3)
;;=.323^.719^1.024^1.958^2.198^.573^.142^1.125^1.212^1.326^.927^.903^.555^1.361^4.597^.365^2.253^1.069
;;^UTILITY(U,$J,112,42,4)
;;=.642^.484^3.211^9.104^1.027^3.796^7.511^0^^14.4
;;^UTILITY(U,$J,112,42,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,43,0)
;;=CHEESE, PASTEURIZED PROCESSED, PIMIENTO^1-043^oz.^28.3^100^N
;;^UTILITY(U,$J,112,43,1)
;;=22.13^31.2^1.73^375.438^39.08^^^614.4^.42^22.21^743.8^161.7^1427.5^2.98^.033^.016^^1262^2.25^.027
;;^UTILITY(U,$J,112,43,2)
;;=.354^.078^.485^.071^7.8^.695^.606^.382^94.2^19.663^8.937^.988^322^5.84^^^0
;;^UTILITY(U,$J,112,43,3)
;;=.323^.718^1.023^1.956^2.196^.572^.142^1.124^1.211^1.325^.926^.902^.555^1.36^4.592^.364^2.251^1.068
;;^UTILITY(U,$J,112,43,4)
;;=.641^.483^3.206^9.09^1.026^3.79^7.499^0
;;^UTILITY(U,$J,112,43,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,44,0)
;;=CHEESE, PASTEURIZED PROCESSED, SWISS^1-044^oz.^28.3^100^N
;;^UTILITY(U,$J,112,44,1)
;;=24.73^25.01^2.1^333.562^42.31^^^771.9^.61^29.12^761.5^215.5^1370.3^3.61^.027^.014^^808^0^.014
;;^UTILITY(U,$J,112,44,2)
;;=.276^.038^.26^.036^5.9^1.226^.342^.28^84.8^16.045^7.046^.622^229^5.85^^^0
;;^UTILITY(U,$J,112,44,3)
;;=.36^.802^1.143^2.186^2.454^.64^.159^1.256^1.353^1.481^1.035^1.008^.62^1.519^5.132^.407^2.516^1.194
;;^UTILITY(U,$J,112,44,4)
;;=.572^.566^2.792^7.188^.677^2.602^5.896^0
;;^UTILITY(U,$J,112,44,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,45,0)
;;=CHEESE FOOD, COLD PACK, AMERICAN^1-045^oz.^28.3^100^N
;;^UTILITY(U,$J,112,45,1)
;;=19.66^24.46^8.32^331.15^43.12^^^497.2^.84^29.7^400^363^966^3.01^.03^.01^^705^0^.03
;;^UTILITY(U,$J,112,45,2)
;;=.446^.074^.977^.141^5.4^1.28^.461^.257^63.6^15.355^7.165^.719^202^4.44^^^0
;;^UTILITY(U,$J,112,45,3)
;;=.287^.638^.909^1.738^1.951^.509^.126^.999^1.076^1.177^.823^.801^.493^1.208^4.08^.324^2^.949
;;^UTILITY(U,$J,112,45,4)
;;=.591^.728^2.513^6.807^.646^2.805^6.015^0
;;^UTILITY(U,$J,112,45,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,46,0)
;;=CHEESE FOOD, PROCESSED, AMERICAN^1-046^oz.^28.3^100^N
;;^UTILITY(U,$J,112,46,1)
;;=19.61^24.6^7.29^328.181^43.15^^^574.2^.84^30.55^458.9^279^1189.3^2.99^.03^.01^^913^0^.029
;;^UTILITY(U,$J,112,46,2)
;;=.442^.14^.558^.141^7.3^1.118^.464^.259^63.9^15.443^7.206^.723^219^5.35^^^0
;;^UTILITY(U,$J,112,46,3)
;;=.286^.637^.907^1.733^1.946^.507^.126^.996^1.073^1.174^.821^.799^.491^1.205^4.07^.323^1.995^.946
;;^UTILITY(U,$J,112,46,4)
;;=.594^.732^2.528^6.846^.649^2.821^6.05^0^^16.1
;;^UTILITY(U,$J,112,46,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,47,0)
;;=CHEESE FOOD, PROCESSED, SWISS^1-047^oz.^28.3^100^N
;;^UTILITY(U,$J,112,47,1)
;;=21.92^24.14^4.5^323.204^43.67^^^723.4^.6^28^526^284^1552^3.55^.03^.01^^856^0^.014
;;^UTILITY(U,$J,112,47,2)
;;=.4^.104^.5^.035^5.8^2.3^.33^.27^81.8^15.487^6.801^.6^243^5.77^^^0
;;^UTILITY(U,$J,112,47,3)
;;=.319^.711^1.013^1.938^2.175^.567^.141^1.113^1.199^1.313^.917^.893^.55^1.346^4.549^.361^2.23^1.058
;;^UTILITY(U,$J,112,47,4)
;;=.552^.546^2.695^6.938^.653^2.511^5.691
;;^UTILITY(U,$J,112,47,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,48,0)
;;=CHEESE SPREAD, PROCESSED, AMERICAN^1-048^oz.^28.3^100^N
;;^UTILITY(U,$J,112,48,1)
;;=16.41^21.23^8.73^290.467^47.65^^^561.9^.33^28.52^711.9^241.9^1345.2^2.59^.033^.02^^788^0^.048
;;^UTILITY(U,$J,112,48,2)
;;=.431^.131^.686^.117^7^.4^.4^.223^55.2^13.327^6.219^.624^189^5.98^^^0
;;^UTILITY(U,$J,112,48,3)
;;=.239^.628^.833^1.78^1.507^.538^.105^.931^.89^1.366^.545^.509^.602^1.103^3.475^.311^2.32^1.037
;;^UTILITY(U,$J,112,48,4)
;;=.513^.632^2.181^5.908^.56^2.434^5.221^0^^11.3
;;^UTILITY(U,$J,112,48,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,49,0)
;;=CREAM, FLUID, HALF & HALF, CREAM AND MILK^1-049^tbsp.^15^100^N
;;^UTILITY(U,$J,112,49,1)
;;=2.96^11.5^4.3^130.365^80.57^^^104.9^.07^10.17^95.2^129.6^40.7^.51^.01^.001^^434^.86^.035
;;^UTILITY(U,$J,112,49,2)
;;=.149^.078^.289^.039^2.5^.329^.26^.167^36.9^7.158^3.321^.427^107^.67^^^0
;;^UTILITY(U,$J,112,49,3)
;;=.042^.134^.179^.29^.235^.074^.027^.143^.143^.198^.107^.08^.102^.225^.62^.063^.287^.161
FHINI00J ; ; 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,41,4)
+2 ;;=.748^1.073^2.608^7.675^.668^2.19^6.073^0
+3 ;;^UTILITY(U,$J,112,41,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,42,0)
+6 ;;=CHEESE, PASTEURIZED PROCESSED, AMERICAN^1-042^oz.^28.3^100^N
+7 ;;^UTILITY(U,$J,112,42,1)
+8 ;;=22.15^31.25^1.6^375.459^39.16^^^615.5^.39^22.25^744.9^162^1430.4^2.99^.03^.015^^1209.6^0^.027
+9 ;;^UTILITY(U,$J,112,42,2)
+10 ;;=.353^.069^.482^.071^7.8^.696^.607^.383^94.4^19.694^8.951^.99^290^5.84^^^0
+11 ;;^UTILITY(U,$J,112,42,3)
+12 ;;=.323^.719^1.024^1.958^2.198^.573^.142^1.125^1.212^1.326^.927^.903^.555^1.361^4.597^.365^2.253^1.069
+13 ;;^UTILITY(U,$J,112,42,4)
+14 ;;=.642^.484^3.211^9.104^1.027^3.796^7.511^0^^14.4
+15 ;;^UTILITY(U,$J,112,42,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,43,0)
+18 ;;=CHEESE, PASTEURIZED PROCESSED, PIMIENTO^1-043^oz.^28.3^100^N
+19 ;;^UTILITY(U,$J,112,43,1)
+20 ;;=22.13^31.2^1.73^375.438^39.08^^^614.4^.42^22.21^743.8^161.7^1427.5^2.98^.033^.016^^1262^2.25^.027
+21 ;;^UTILITY(U,$J,112,43,2)
+22 ;;=.354^.078^.485^.071^7.8^.695^.606^.382^94.2^19.663^8.937^.988^322^5.84^^^0
+23 ;;^UTILITY(U,$J,112,43,3)
+24 ;;=.323^.718^1.023^1.956^2.196^.572^.142^1.124^1.211^1.325^.926^.902^.555^1.36^4.592^.364^2.251^1.068
+25 ;;^UTILITY(U,$J,112,43,4)
+26 ;;=.641^.483^3.206^9.09^1.026^3.79^7.499^0
+27 ;;^UTILITY(U,$J,112,43,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,44,0)
+30 ;;=CHEESE, PASTEURIZED PROCESSED, SWISS^1-044^oz.^28.3^100^N
+31 ;;^UTILITY(U,$J,112,44,1)
+32 ;;=24.73^25.01^2.1^333.562^42.31^^^771.9^.61^29.12^761.5^215.5^1370.3^3.61^.027^.014^^808^0^.014
+33 ;;^UTILITY(U,$J,112,44,2)
+34 ;;=.276^.038^.26^.036^5.9^1.226^.342^.28^84.8^16.045^7.046^.622^229^5.85^^^0
+35 ;;^UTILITY(U,$J,112,44,3)
+36 ;;=.36^.802^1.143^2.186^2.454^.64^.159^1.256^1.353^1.481^1.035^1.008^.62^1.519^5.132^.407^2.516^1.194
+37 ;;^UTILITY(U,$J,112,44,4)
+38 ;;=.572^.566^2.792^7.188^.677^2.602^5.896^0
+39 ;;^UTILITY(U,$J,112,44,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,45,0)
+42 ;;=CHEESE FOOD, COLD PACK, AMERICAN^1-045^oz.^28.3^100^N
+43 ;;^UTILITY(U,$J,112,45,1)
+44 ;;=19.66^24.46^8.32^331.15^43.12^^^497.2^.84^29.7^400^363^966^3.01^.03^.01^^705^0^.03
+45 ;;^UTILITY(U,$J,112,45,2)
+46 ;;=.446^.074^.977^.141^5.4^1.28^.461^.257^63.6^15.355^7.165^.719^202^4.44^^^0
+47 ;;^UTILITY(U,$J,112,45,3)
+48 ;;=.287^.638^.909^1.738^1.951^.509^.126^.999^1.076^1.177^.823^.801^.493^1.208^4.08^.324^2^.949
+49 ;;^UTILITY(U,$J,112,45,4)
+50 ;;=.591^.728^2.513^6.807^.646^2.805^6.015^0
+51 ;;^UTILITY(U,$J,112,45,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,46,0)
+54 ;;=CHEESE FOOD, PROCESSED, AMERICAN^1-046^oz.^28.3^100^N
+55 ;;^UTILITY(U,$J,112,46,1)
+56 ;;=19.61^24.6^7.29^328.181^43.15^^^574.2^.84^30.55^458.9^279^1189.3^2.99^.03^.01^^913^0^.029
+57 ;;^UTILITY(U,$J,112,46,2)
+58 ;;=.442^.14^.558^.141^7.3^1.118^.464^.259^63.9^15.443^7.206^.723^219^5.35^^^0
+59 ;;^UTILITY(U,$J,112,46,3)
+60 ;;=.286^.637^.907^1.733^1.946^.507^.126^.996^1.073^1.174^.821^.799^.491^1.205^4.07^.323^1.995^.946
+61 ;;^UTILITY(U,$J,112,46,4)
+62 ;;=.594^.732^2.528^6.846^.649^2.821^6.05^0^^16.1
+63 ;;^UTILITY(U,$J,112,46,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,47,0)
+66 ;;=CHEESE FOOD, PROCESSED, SWISS^1-047^oz.^28.3^100^N
+67 ;;^UTILITY(U,$J,112,47,1)
+68 ;;=21.92^24.14^4.5^323.204^43.67^^^723.4^.6^28^526^284^1552^3.55^.03^.01^^856^0^.014
+69 ;;^UTILITY(U,$J,112,47,2)
+70 ;;=.4^.104^.5^.035^5.8^2.3^.33^.27^81.8^15.487^6.801^.6^243^5.77^^^0
+71 ;;^UTILITY(U,$J,112,47,3)
+72 ;;=.319^.711^1.013^1.938^2.175^.567^.141^1.113^1.199^1.313^.917^.893^.55^1.346^4.549^.361^2.23^1.058
+73 ;;^UTILITY(U,$J,112,47,4)
+74 ;;=.552^.546^2.695^6.938^.653^2.511^5.691
+75 ;;^UTILITY(U,$J,112,47,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,48,0)
+78 ;;=CHEESE SPREAD, PROCESSED, AMERICAN^1-048^oz.^28.3^100^N
+79 ;;^UTILITY(U,$J,112,48,1)
+80 ;;=16.41^21.23^8.73^290.467^47.65^^^561.9^.33^28.52^711.9^241.9^1345.2^2.59^.033^.02^^788^0^.048
+81 ;;^UTILITY(U,$J,112,48,2)
+82 ;;=.431^.131^.686^.117^7^.4^.4^.223^55.2^13.327^6.219^.624^189^5.98^^^0
+83 ;;^UTILITY(U,$J,112,48,3)
+84 ;;=.239^.628^.833^1.78^1.507^.538^.105^.931^.89^1.366^.545^.509^.602^1.103^3.475^.311^2.32^1.037
+85 ;;^UTILITY(U,$J,112,48,4)
+86 ;;=.513^.632^2.181^5.908^.56^2.434^5.221^0^^11.3
+87 ;;^UTILITY(U,$J,112,48,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,49,0)
+90 ;;=CREAM, FLUID, HALF & HALF, CREAM AND MILK^1-049^tbsp.^15^100^N
+91 ;;^UTILITY(U,$J,112,49,1)
+92 ;;=2.96^11.5^4.3^130.365^80.57^^^104.9^.07^10.17^95.2^129.6^40.7^.51^.01^.001^^434^.86^.035
+93 ;;^UTILITY(U,$J,112,49,2)
+94 ;;=.149^.078^.289^.039^2.5^.329^.26^.167^36.9^7.158^3.321^.427^107^.67^^^0
+95 ;;^UTILITY(U,$J,112,49,3)
+96 ;;=.042^.134^.179^.29^.235^.074^.027^.143^.143^.198^.107^.08^.102^.225^.62^.063^.287^.161
