FHINI00F ; ; 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,9,1)
;;=24.9^33.14^1.28^402.577^36.75^^^721.3^.68^27.78^512.1^98.4^620.5^3.11^.031^.01^^1059^0^.027
;;^UTILITY(U,$J,112,9,2)
;;=.375^.08^.413^.074^18.2^.827^.577^.365^104.9^21.092^9.391^.942^303^3.93^^^0
;;^UTILITY(U,$J,112,9,3)
;;=.32^.886^1.546^2.385^2.072^.652^.125^1.311^1.202^1.663^.941^.874^.703^1.6^6.092^.429^2.806^1.456
;;^UTILITY(U,$J,112,9,4)
;;=.6^.541^3.33^9.803^1.004^4.007^7.905^0^3^13.9
;;^UTILITY(U,$J,112,9,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,10,0)
;;=CHEESE, CHESHIRE^1-010^oz.^28.3^100^N
;;^UTILITY(U,$J,112,10,1)
;;=23.37^30.6^4.78^387.262^37.65^^^643^.21^20.9^463.7^95^700^2.79^.042^.012^^985^0^.046
;;^UTILITY(U,$J,112,10,2)
;;=.293^.08^.413^.074^18.2^.827^.533^.337^103^19.475^8.671^.87^245^3.6^^^0
;;^UTILITY(U,$J,112,10,3)
;;=.3^.832^1.451^2.238^1.945^.612^.117^1.231^1.128^1.56^.883^.821^.659^1.502^5.718^.403^2.634^1.366
;;^UTILITY(U,$J,112,10,4)
;;=.554^.5^3.075^9.052^.927^3.7^7.299
;;^UTILITY(U,$J,112,10,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,11,0)
;;=CHEESE, COLBY^1-011^oz.^28.3^100^N
;;^UTILITY(U,$J,112,11,1)
;;=23.76^32.11^2.57^393.648^38.2^^^684.6^.76^25.82^456.5^126.5^604.2^3.07^.042^.012^^1034^0^.015
;;^UTILITY(U,$J,112,11,2)
;;=.375^.093^.21^.079^18.2^.826^.676^.277^94.9^20.218^9.28^.953^275^3.36^^^0
;;^UTILITY(U,$J,112,11,3)
;;=.305^.845^1.475^2.275^1.978^.622^.119^1.251^1.147^1.586^.898^.834^.67^1.527^5.813^.41^2.678^1.389
;;^UTILITY(U,$J,112,11,4)
;;=.597^.422^3.831^8.232^.979^3.63^7.813^0
;;^UTILITY(U,$J,112,11,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,12,0)
;;=CHEESE, COTTAGE, CREAMED, REG^1-012^oz.^28.3^100^N
;;^UTILITY(U,$J,112,12,1)
;;=12.49^4.51^2.68^103.347^78.96^^^60^.14^5.26^131.8^84.3^404.8^.37^.028^.003^^163^0^.021
;;^UTILITY(U,$J,112,12,2)
;;=.163^.126^.213^.067^12.2^.623^.099^.04^14.9^2.853^1.285^.139^48^1.36^^^0
;;^UTILITY(U,$J,112,12,3)
;;=.139^.554^.734^1.284^1.01^.376^.116^.673^.666^.773^.57^.415^.648^.846^2.706^.272^1.447^.701
;;^UTILITY(U,$J,112,12,4)
;;=.082^.072^.472^1.363^.161^.515^1.056^0^^9
;;^UTILITY(U,$J,112,12,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,13,0)
;;=CHEESE, COTTAGE, CREAMED, W/FRUIT^1-013^oz.^28.3^100^N
;;^UTILITY(U,$J,112,13,1)
;;=9.9^3.4^13.3^123.63^72.1^^^47.6^.11^4.17^104.5^66.9^404.8^.29^.028^.003^^123^0^.017
;;^UTILITY(U,$J,112,13,2)
;;=.129^.1^.168^.053^9.7^.494^.075^.03^11.2^2.151^.969^.105^36^1.3^^^0
;;^UTILITY(U,$J,112,13,3)
;;=.11^.439^.582^1.018^.801^.298^.092^.534^.528^.613^.452^.329^.514^.67^2.144^.216^1.147^.556
;;^UTILITY(U,$J,112,13,4)
;;=.062^.055^.356^1.028^.122^.388^.796^0
;;^UTILITY(U,$J,112,13,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,14,0)
;;=CHEESE, COTTAGE, UNCREAMED, DRY^1-014^oz.^28.3^100^N
;;^UTILITY(U,$J,112,14,1)
;;=17.27^.42^1.85^84.594^79.77^^^31.7^.23^3.94^104^32.4^12.8^.47^.028^.003^^30^0^.025
;;^UTILITY(U,$J,112,14,2)
;;=.142^.155^.163^.082^14.8^.825^.011^.004^6.7^.273^.11^.015^8^.69^^^0
;;^UTILITY(U,$J,112,14,3)
;;=.192^.766^1.015^1.776^1.397^.52^.16^.931^.92^1.069^.788^.574^.896^1.169^3.741^.376^2^.969
;;^UTILITY(U,$J,112,14,4)
;;=.009^.006^.042^.131^.012^.045^.093^0
;;^UTILITY(U,$J,112,14,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,15,0)
;;=CHEESE, COTTAGE, LOWFAT, 2% FAT^1-015^oz.^28.3^100^N
;;^UTILITY(U,$J,112,15,1)
;;=13.74^1.93^3.63^89.683^79.31^^^68.5^.16^6^150.5^96.2^406^.42^.028^.003^^70^0^.024
;;^UTILITY(U,$J,112,15,2)
;;=.185^.144^.242^.076^13.1^.712^.042^.017^8.4^1.221^.55^.059^20^1.39^^^0
;;^UTILITY(U,$J,112,15,3)
;;=.153^.609^.808^1.413^1.111^.413^.127^.741^.732^.851^.627^.457^.713^.93^2.976^.299^1.592^.771
;;^UTILITY(U,$J,112,15,4)
;;=.035^.031^.202^.583^.069^.22^.452^0
;;^UTILITY(U,$J,112,15,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,16,0)
;;=CHEESE, COTTAGE, LOWFAT, 1% FAT^1-016^oz.^28.3^100^N
;;^UTILITY(U,$J,112,16,1)
;;=12.39^1.02^2.72^72.397^82.48^^^60.9^.14^5.34^133.8^85.5^406^.38^.028^.003^^37^0^.021
;;^UTILITY(U,$J,112,16,2)
;;=.165^.128^.215^.068^12.4^.633^.022^.009^4.4^.645^.291^.031^11^1.39^^^0
;;^UTILITY(U,$J,112,16,3)
;;=.138^.55^.728^1.274^1.002^.373^.115^.668^.66^.767^.565^.412^.643^.839^2.684^.27^1.435^.695
;;^UTILITY(U,$J,112,16,4)
;;=.019^.016^.107^.308^.036^.116^.239^0
;;^UTILITY(U,$J,112,16,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,17,0)
;;=CHEESE, CREAM^1-017^oz.^28.3^100^N
;;^UTILITY(U,$J,112,17,1)
;;=7.55^34.87^2.66^349.04^53.75^^^79.9^1.2^6.44^104.4^119.4^295.5^.54^.016^.004^^1427^0^.017
FHINI00F ; ; 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,9,1)
+2 ;;=24.9^33.14^1.28^402.577^36.75^^^721.3^.68^27.78^512.1^98.4^620.5^3.11^.031^.01^^1059^0^.027
+3 ;;^UTILITY(U,$J,112,9,2)
+4 ;;=.375^.08^.413^.074^18.2^.827^.577^.365^104.9^21.092^9.391^.942^303^3.93^^^0
+5 ;;^UTILITY(U,$J,112,9,3)
+6 ;;=.32^.886^1.546^2.385^2.072^.652^.125^1.311^1.202^1.663^.941^.874^.703^1.6^6.092^.429^2.806^1.456
+7 ;;^UTILITY(U,$J,112,9,4)
+8 ;;=.6^.541^3.33^9.803^1.004^4.007^7.905^0^3^13.9
+9 ;;^UTILITY(U,$J,112,9,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,10,0)
+12 ;;=CHEESE, CHESHIRE^1-010^oz.^28.3^100^N
+13 ;;^UTILITY(U,$J,112,10,1)
+14 ;;=23.37^30.6^4.78^387.262^37.65^^^643^.21^20.9^463.7^95^700^2.79^.042^.012^^985^0^.046
+15 ;;^UTILITY(U,$J,112,10,2)
+16 ;;=.293^.08^.413^.074^18.2^.827^.533^.337^103^19.475^8.671^.87^245^3.6^^^0
+17 ;;^UTILITY(U,$J,112,10,3)
+18 ;;=.3^.832^1.451^2.238^1.945^.612^.117^1.231^1.128^1.56^.883^.821^.659^1.502^5.718^.403^2.634^1.366
+19 ;;^UTILITY(U,$J,112,10,4)
+20 ;;=.554^.5^3.075^9.052^.927^3.7^7.299
+21 ;;^UTILITY(U,$J,112,10,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,11,0)
+24 ;;=CHEESE, COLBY^1-011^oz.^28.3^100^N
+25 ;;^UTILITY(U,$J,112,11,1)
+26 ;;=23.76^32.11^2.57^393.648^38.2^^^684.6^.76^25.82^456.5^126.5^604.2^3.07^.042^.012^^1034^0^.015
+27 ;;^UTILITY(U,$J,112,11,2)
+28 ;;=.375^.093^.21^.079^18.2^.826^.676^.277^94.9^20.218^9.28^.953^275^3.36^^^0
+29 ;;^UTILITY(U,$J,112,11,3)
+30 ;;=.305^.845^1.475^2.275^1.978^.622^.119^1.251^1.147^1.586^.898^.834^.67^1.527^5.813^.41^2.678^1.389
+31 ;;^UTILITY(U,$J,112,11,4)
+32 ;;=.597^.422^3.831^8.232^.979^3.63^7.813^0
+33 ;;^UTILITY(U,$J,112,11,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,12,0)
+36 ;;=CHEESE, COTTAGE, CREAMED, REG^1-012^oz.^28.3^100^N
+37 ;;^UTILITY(U,$J,112,12,1)
+38 ;;=12.49^4.51^2.68^103.347^78.96^^^60^.14^5.26^131.8^84.3^404.8^.37^.028^.003^^163^0^.021
+39 ;;^UTILITY(U,$J,112,12,2)
+40 ;;=.163^.126^.213^.067^12.2^.623^.099^.04^14.9^2.853^1.285^.139^48^1.36^^^0
+41 ;;^UTILITY(U,$J,112,12,3)
+42 ;;=.139^.554^.734^1.284^1.01^.376^.116^.673^.666^.773^.57^.415^.648^.846^2.706^.272^1.447^.701
+43 ;;^UTILITY(U,$J,112,12,4)
+44 ;;=.082^.072^.472^1.363^.161^.515^1.056^0^^9
+45 ;;^UTILITY(U,$J,112,12,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,13,0)
+48 ;;=CHEESE, COTTAGE, CREAMED, W/FRUIT^1-013^oz.^28.3^100^N
+49 ;;^UTILITY(U,$J,112,13,1)
+50 ;;=9.9^3.4^13.3^123.63^72.1^^^47.6^.11^4.17^104.5^66.9^404.8^.29^.028^.003^^123^0^.017
+51 ;;^UTILITY(U,$J,112,13,2)
+52 ;;=.129^.1^.168^.053^9.7^.494^.075^.03^11.2^2.151^.969^.105^36^1.3^^^0
+53 ;;^UTILITY(U,$J,112,13,3)
+54 ;;=.11^.439^.582^1.018^.801^.298^.092^.534^.528^.613^.452^.329^.514^.67^2.144^.216^1.147^.556
+55 ;;^UTILITY(U,$J,112,13,4)
+56 ;;=.062^.055^.356^1.028^.122^.388^.796^0
+57 ;;^UTILITY(U,$J,112,13,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,14,0)
+60 ;;=CHEESE, COTTAGE, UNCREAMED, DRY^1-014^oz.^28.3^100^N
+61 ;;^UTILITY(U,$J,112,14,1)
+62 ;;=17.27^.42^1.85^84.594^79.77^^^31.7^.23^3.94^104^32.4^12.8^.47^.028^.003^^30^0^.025
+63 ;;^UTILITY(U,$J,112,14,2)
+64 ;;=.142^.155^.163^.082^14.8^.825^.011^.004^6.7^.273^.11^.015^8^.69^^^0
+65 ;;^UTILITY(U,$J,112,14,3)
+66 ;;=.192^.766^1.015^1.776^1.397^.52^.16^.931^.92^1.069^.788^.574^.896^1.169^3.741^.376^2^.969
+67 ;;^UTILITY(U,$J,112,14,4)
+68 ;;=.009^.006^.042^.131^.012^.045^.093^0
+69 ;;^UTILITY(U,$J,112,14,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,15,0)
+72 ;;=CHEESE, COTTAGE, LOWFAT, 2% FAT^1-015^oz.^28.3^100^N
+73 ;;^UTILITY(U,$J,112,15,1)
+74 ;;=13.74^1.93^3.63^89.683^79.31^^^68.5^.16^6^150.5^96.2^406^.42^.028^.003^^70^0^.024
+75 ;;^UTILITY(U,$J,112,15,2)
+76 ;;=.185^.144^.242^.076^13.1^.712^.042^.017^8.4^1.221^.55^.059^20^1.39^^^0
+77 ;;^UTILITY(U,$J,112,15,3)
+78 ;;=.153^.609^.808^1.413^1.111^.413^.127^.741^.732^.851^.627^.457^.713^.93^2.976^.299^1.592^.771
+79 ;;^UTILITY(U,$J,112,15,4)
+80 ;;=.035^.031^.202^.583^.069^.22^.452^0
+81 ;;^UTILITY(U,$J,112,15,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,16,0)
+84 ;;=CHEESE, COTTAGE, LOWFAT, 1% FAT^1-016^oz.^28.3^100^N
+85 ;;^UTILITY(U,$J,112,16,1)
+86 ;;=12.39^1.02^2.72^72.397^82.48^^^60.9^.14^5.34^133.8^85.5^406^.38^.028^.003^^37^0^.021
+87 ;;^UTILITY(U,$J,112,16,2)
+88 ;;=.165^.128^.215^.068^12.4^.633^.022^.009^4.4^.645^.291^.031^11^1.39^^^0
+89 ;;^UTILITY(U,$J,112,16,3)
+90 ;;=.138^.55^.728^1.274^1.002^.373^.115^.668^.66^.767^.565^.412^.643^.839^2.684^.27^1.435^.695
+91 ;;^UTILITY(U,$J,112,16,4)
+92 ;;=.019^.016^.107^.308^.036^.116^.239^0
+93 ;;^UTILITY(U,$J,112,16,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,17,0)
+96 ;;=CHEESE, CREAM^1-017^oz.^28.3^100^N
+97 ;;^UTILITY(U,$J,112,17,1)
+98 ;;=7.55^34.87^2.66^349.04^53.75^^^79.9^1.2^6.44^104.4^119.4^295.5^.54^.016^.004^^1427^0^.017
