FHINI00I ; ; 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,33,3)
;;=.482^1.317^1.894^3.452^3.306^.958^.235^1.922^1.995^2.454^1.317^1.384^1.048^2.236^8.209^.622^4.18^2.068
;;^UTILITY(U,$J,112,33,4)
;;=.648^.873^2.911^6.966^.394^2.301^6.656^0
;;^UTILITY(U,$J,112,33,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,34,0)
;;=CHEESE, PORT DE SALUT^1-034^oz.^28.3^100^N
;;^UTILITY(U,$J,112,34,1)
;;=23.78^28.2^.57^351.624^45.45^^^649.8^.43^24.32^360^135.8^534^2.6^.022^.011^^1333^0^.014
;;^UTILITY(U,$J,112,34,2)
;;=.24^.06^.21^.053^18.2^1.5^.378^.351^123^16.691^9.338^.729^372^2^^^0
;;^UTILITY(U,$J,112,34,3)
;;=.343^.876^1.446^2.482^1.987^.734^.134^1.323^1.42^1.707^.827^.686^.79^1.752^5.349^.485^2.892^1.357
;;^UTILITY(U,$J,112,34,4)
;;=.681^.768^2.724^6.638^.833^3.35^8.051^0
;;^UTILITY(U,$J,112,34,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,35,0)
;;=CHEESE, PROVOLONE^1-035^oz.^28.3^100^N
;;^UTILITY(U,$J,112,35,1)
;;=25.58^26.62^2.14^351.498^40.95^^^755.9^.52^27.58^496.1^138.3^875.5^3.23^.026^.01^^815^0^.019
;;^UTILITY(U,$J,112,35,2)
;;=.321^.156^.476^.073^10.4^1.463^.494^.275^68.9^17.078^7.393^.769^264^4.71^^^0
;;^UTILITY(U,$J,112,35,3)
;;=.345^.982^1.091^2.297^2.646^.686^.116^1.287^1.52^1.64^1.022^1.115^.706^1.744^6.235^.433^2.766^1.471
;;^UTILITY(U,$J,112,35,4)
;;=.482^.355^2.748^8.159^.878^3.063^6.164^0
;;^UTILITY(U,$J,112,35,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,36,0)
;;=CHEESE, RICOTTA, WHOLE MILK^1-036^cups^248^100^N
;;^UTILITY(U,$J,112,36,1)
;;=11.26^12.98^3.04^173.939^71.7^^^207^.38^11.3^158.1^104.6^84.1^1.16^.021^.006^^490^0^.013
;;^UTILITY(U,$J,112,36,2)
;;=.195^.104^.213^.043^12.2^.338^.273^.112^50.6^8.295^3.627^.385^134^1.02^^^0
;;^UTILITY(U,$J,112,36,3)
;;=.125^.517^.589^1.221^1.338^.281^.099^.556^.589^.692^.632^.459^.499^.995^2.446^.295^1.066^.575
;;^UTILITY(U,$J,112,36,4)
;;=.229^.158^1.364^4.057^.532^1.281^2.872^0
;;^UTILITY(U,$J,112,36,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,37,0)
;;=CHEESE, RICOTTA, PART SKIM MILK^1-037^cups^248^100^N
;;^UTILITY(U,$J,112,37,1)
;;=11.39^7.91^5.14^138.056^74.41^^^272^.44^14.77^182.6^125^124.7^1.34^.034^.01^^432^0^.021
;;^UTILITY(U,$J,112,37,2)
;;=.185^.078^.242^.02^13.1^.291^.19^.07^30.8^4.927^2.314^.26^113^1.15^^^0
;;^UTILITY(U,$J,112,37,3)
;;=.127^.523^.596^1.235^1.353^.284^.1^.562^.596^.7^.639^.464^.505^1.007^2.474^.298^1.078^.582
;;^UTILITY(U,$J,112,37,4)
;;=.151^.105^.808^2.442^.277^.866^1.92^0
;;^UTILITY(U,$J,112,37,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,38,0)
;;=CHEESE, ROMANO^1-038^oz.^28.3^100^N
;;^UTILITY(U,$J,112,38,1)
;;=31.8^26.94^3.63^386.637^30.91^^^1063.8^.77^40.93^760^86.3^1200^2.58^.03^.02^^571^0^.037
;;^UTILITY(U,$J,112,38,2)
;;=.37^.077^.424^.085^6.8^1.124^.284^.31^104^17.115^7.838^.593^141^6.72^^^0
;;^UTILITY(U,$J,112,38,3)
;;=.429^1.171^1.685^3.071^2.941^.852^.209^1.71^1.775^2.183^1.171^1.231^.932^1.989^7.302^.553^3.718^1.84
;;^UTILITY(U,$J,112,38,4)
;;=.671^.911^3.036^7.265^.411^2.4^6.942
;;^UTILITY(U,$J,112,38,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,39,0)
;;=CHEESE, ROQUEFORT TYPE^1-039^oz.^28.3^100^N
;;^UTILITY(U,$J,112,39,1)
;;=21.54^30.64^2^369.041^39.38^^^661.8^.56^29.53^392.1^90.7^1809^2.08^.034^.03^^1047^0^.04
;;^UTILITY(U,$J,112,39,2)
;;=.586^.734^1.731^.124^49^.643^.616^.704^90^19.263^8.474^1.32^299^6.44^^^0
;;^UTILITY(U,$J,112,39,3)
;;=.303^.965^1.217^2.114^1.848^.558^.126^1.023^1.012^1.614^.713^.602^.969^1.181^3.67^.148^2.089^1.772
;;^UTILITY(U,$J,112,39,4)
;;=2.163^1.295^3.25^6.57^.73^3.141^7.456^0
;;^UTILITY(U,$J,112,39,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,40,0)
;;=CHEESE, SWISS, DOMESTIC^1-040^oz.^28.3^100^N
;;^UTILITY(U,$J,112,40,1)
;;=28.43^27.45^3.38^375.762^37.21^^^960.9^.17^35.91^604.6^110.7^260^3.9^.032^.017^^845^0^.022
;;^UTILITY(U,$J,112,40,2)
;;=.365^.092^.429^.083^6.4^1.676^.62^.352^91.7^17.779^7.274^.972^253^3.53^^^0
;;^UTILITY(U,$J,112,40,3)
;;=.401^1.038^1.537^2.959^2.585^.784^.29^1.662^1.693^2.139^.927^1.065^.914^1.569^5.704^.508^3.69^1.64
;;^UTILITY(U,$J,112,40,4)
;;=.625^.521^3.062^7.79^.879^3.248^6.017^0^^12.7
;;^UTILITY(U,$J,112,40,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,41,0)
;;=CHEESE, TILSIT, WHOLE MILK^1-041^oz.^28.3^100^N
;;^UTILITY(U,$J,112,41,1)
;;=24.41^25.98^1.88^339.87^42.86^^^700^.23^13^500^64.5^753^3.5^.026^.013^^1045^0^.061
;;^UTILITY(U,$J,112,41,2)
;;=.359^.205^.346^.065^20^2.1^.398^.323^102^16.775^7.136^.721^291^4.87^^^0
;;^UTILITY(U,$J,112,41,3)
;;=.352^.899^1.484^2.548^2.039^.754^.138^1.358^1.458^1.752^.849^.704^.811^1.798^5.49^.497^2.969^1.393
FHINI00I ; ; 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,33,3)
+2 ;;=.482^1.317^1.894^3.452^3.306^.958^.235^1.922^1.995^2.454^1.317^1.384^1.048^2.236^8.209^.622^4.18^2.068
+3 ;;^UTILITY(U,$J,112,33,4)
+4 ;;=.648^.873^2.911^6.966^.394^2.301^6.656^0
+5 ;;^UTILITY(U,$J,112,33,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,34,0)
+8 ;;=CHEESE, PORT DE SALUT^1-034^oz.^28.3^100^N
+9 ;;^UTILITY(U,$J,112,34,1)
+10 ;;=23.78^28.2^.57^351.624^45.45^^^649.8^.43^24.32^360^135.8^534^2.6^.022^.011^^1333^0^.014
+11 ;;^UTILITY(U,$J,112,34,2)
+12 ;;=.24^.06^.21^.053^18.2^1.5^.378^.351^123^16.691^9.338^.729^372^2^^^0
+13 ;;^UTILITY(U,$J,112,34,3)
+14 ;;=.343^.876^1.446^2.482^1.987^.734^.134^1.323^1.42^1.707^.827^.686^.79^1.752^5.349^.485^2.892^1.357
+15 ;;^UTILITY(U,$J,112,34,4)
+16 ;;=.681^.768^2.724^6.638^.833^3.35^8.051^0
+17 ;;^UTILITY(U,$J,112,34,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,35,0)
+20 ;;=CHEESE, PROVOLONE^1-035^oz.^28.3^100^N
+21 ;;^UTILITY(U,$J,112,35,1)
+22 ;;=25.58^26.62^2.14^351.498^40.95^^^755.9^.52^27.58^496.1^138.3^875.5^3.23^.026^.01^^815^0^.019
+23 ;;^UTILITY(U,$J,112,35,2)
+24 ;;=.321^.156^.476^.073^10.4^1.463^.494^.275^68.9^17.078^7.393^.769^264^4.71^^^0
+25 ;;^UTILITY(U,$J,112,35,3)
+26 ;;=.345^.982^1.091^2.297^2.646^.686^.116^1.287^1.52^1.64^1.022^1.115^.706^1.744^6.235^.433^2.766^1.471
+27 ;;^UTILITY(U,$J,112,35,4)
+28 ;;=.482^.355^2.748^8.159^.878^3.063^6.164^0
+29 ;;^UTILITY(U,$J,112,35,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,36,0)
+32 ;;=CHEESE, RICOTTA, WHOLE MILK^1-036^cups^248^100^N
+33 ;;^UTILITY(U,$J,112,36,1)
+34 ;;=11.26^12.98^3.04^173.939^71.7^^^207^.38^11.3^158.1^104.6^84.1^1.16^.021^.006^^490^0^.013
+35 ;;^UTILITY(U,$J,112,36,2)
+36 ;;=.195^.104^.213^.043^12.2^.338^.273^.112^50.6^8.295^3.627^.385^134^1.02^^^0
+37 ;;^UTILITY(U,$J,112,36,3)
+38 ;;=.125^.517^.589^1.221^1.338^.281^.099^.556^.589^.692^.632^.459^.499^.995^2.446^.295^1.066^.575
+39 ;;^UTILITY(U,$J,112,36,4)
+40 ;;=.229^.158^1.364^4.057^.532^1.281^2.872^0
+41 ;;^UTILITY(U,$J,112,36,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,37,0)
+44 ;;=CHEESE, RICOTTA, PART SKIM MILK^1-037^cups^248^100^N
+45 ;;^UTILITY(U,$J,112,37,1)
+46 ;;=11.39^7.91^5.14^138.056^74.41^^^272^.44^14.77^182.6^125^124.7^1.34^.034^.01^^432^0^.021
+47 ;;^UTILITY(U,$J,112,37,2)
+48 ;;=.185^.078^.242^.02^13.1^.291^.19^.07^30.8^4.927^2.314^.26^113^1.15^^^0
+49 ;;^UTILITY(U,$J,112,37,3)
+50 ;;=.127^.523^.596^1.235^1.353^.284^.1^.562^.596^.7^.639^.464^.505^1.007^2.474^.298^1.078^.582
+51 ;;^UTILITY(U,$J,112,37,4)
+52 ;;=.151^.105^.808^2.442^.277^.866^1.92^0
+53 ;;^UTILITY(U,$J,112,37,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,38,0)
+56 ;;=CHEESE, ROMANO^1-038^oz.^28.3^100^N
+57 ;;^UTILITY(U,$J,112,38,1)
+58 ;;=31.8^26.94^3.63^386.637^30.91^^^1063.8^.77^40.93^760^86.3^1200^2.58^.03^.02^^571^0^.037
+59 ;;^UTILITY(U,$J,112,38,2)
+60 ;;=.37^.077^.424^.085^6.8^1.124^.284^.31^104^17.115^7.838^.593^141^6.72^^^0
+61 ;;^UTILITY(U,$J,112,38,3)
+62 ;;=.429^1.171^1.685^3.071^2.941^.852^.209^1.71^1.775^2.183^1.171^1.231^.932^1.989^7.302^.553^3.718^1.84
+63 ;;^UTILITY(U,$J,112,38,4)
+64 ;;=.671^.911^3.036^7.265^.411^2.4^6.942
+65 ;;^UTILITY(U,$J,112,38,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,39,0)
+68 ;;=CHEESE, ROQUEFORT TYPE^1-039^oz.^28.3^100^N
+69 ;;^UTILITY(U,$J,112,39,1)
+70 ;;=21.54^30.64^2^369.041^39.38^^^661.8^.56^29.53^392.1^90.7^1809^2.08^.034^.03^^1047^0^.04
+71 ;;^UTILITY(U,$J,112,39,2)
+72 ;;=.586^.734^1.731^.124^49^.643^.616^.704^90^19.263^8.474^1.32^299^6.44^^^0
+73 ;;^UTILITY(U,$J,112,39,3)
+74 ;;=.303^.965^1.217^2.114^1.848^.558^.126^1.023^1.012^1.614^.713^.602^.969^1.181^3.67^.148^2.089^1.772
+75 ;;^UTILITY(U,$J,112,39,4)
+76 ;;=2.163^1.295^3.25^6.57^.73^3.141^7.456^0
+77 ;;^UTILITY(U,$J,112,39,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,40,0)
+80 ;;=CHEESE, SWISS, DOMESTIC^1-040^oz.^28.3^100^N
+81 ;;^UTILITY(U,$J,112,40,1)
+82 ;;=28.43^27.45^3.38^375.762^37.21^^^960.9^.17^35.91^604.6^110.7^260^3.9^.032^.017^^845^0^.022
+83 ;;^UTILITY(U,$J,112,40,2)
+84 ;;=.365^.092^.429^.083^6.4^1.676^.62^.352^91.7^17.779^7.274^.972^253^3.53^^^0
+85 ;;^UTILITY(U,$J,112,40,3)
+86 ;;=.401^1.038^1.537^2.959^2.585^.784^.29^1.662^1.693^2.139^.927^1.065^.914^1.569^5.704^.508^3.69^1.64
+87 ;;^UTILITY(U,$J,112,40,4)
+88 ;;=.625^.521^3.062^7.79^.879^3.248^6.017^0^^12.7
+89 ;;^UTILITY(U,$J,112,40,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,41,0)
+92 ;;=CHEESE, TILSIT, WHOLE MILK^1-041^oz.^28.3^100^N
+93 ;;^UTILITY(U,$J,112,41,1)
+94 ;;=24.41^25.98^1.88^339.87^42.86^^^700^.23^13^500^64.5^753^3.5^.026^.013^^1045^0^.061
+95 ;;^UTILITY(U,$J,112,41,2)
+96 ;;=.359^.205^.346^.065^20^2.1^.398^.323^102^16.775^7.136^.721^291^4.87^^^0
+97 ;;^UTILITY(U,$J,112,41,3)
+98 ;;=.352^.899^1.484^2.548^2.039^.754^.138^1.358^1.458^1.752^.849^.704^.811^1.798^5.49^.497^2.969^1.393
