FHINI00G ; ; 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,17,2)
;;=.197^.101^.271^.047^13.2^.424^.774^.491^109.7^21.966^9.838^1.265^437^1.17^^^0
;;^UTILITY(U,$J,112,17,3)
;;=.067^.321^.399^.731^.676^.181^.066^.419^.36^.443^.286^.271^.23^.533^1.714^.149^.689^.398
;;^UTILITY(U,$J,112,17,4)
;;=.667^.465^3.603^10.538^.984^4.045^8.381^0^^2.4
;;^UTILITY(U,$J,112,17,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,18,0)
;;=CHEESE, EDAM^1-018^oz.^28.3^100^N
;;^UTILITY(U,$J,112,18,1)
;;=24.99^27.8^1.43^356.603^41.56^^^731^.44^29.77^535.6^187.7^965^3.75^.036^.011^^916^0^.037
;;^UTILITY(U,$J,112,18,2)
;;=.389^.082^.281^.076^16.2^1.535^.418^.247^89.2^17.572^8.125^.665^253^4.22^^^0
;;^UTILITY(U,$J,112,18,3)
;;=.352^.932^1.308^2.57^2.66^.721^.255^1.434^1.457^1.81^.964^1.034^.764^1.747^6.15^.486^3.251^1.547
;;^UTILITY(U,$J,112,18,4)
;;=.589^.496^2.943^8.067^.813^2.983^6.911^0
;;^UTILITY(U,$J,112,18,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,19,0)
;;=CHEESE, FETA^1-019^oz.^28.3^100^N
;;^UTILITY(U,$J,112,19,1)
;;=14.21^21.28^4.09^263.556^55.22^^^492.5^.65^19.21^337.2^61.8^1116.1^2.88^.032^.028^^447^0^.154
;;^UTILITY(U,$J,112,19,2)
;;=.844^.991^.967^.424^32^1.69^.326^.265^89^14.946^4.623^.591^128^5.2^^^0
;;^UTILITY(U,$J,112,19,3)
;;=.2^.637^.803^1.395^1.219^.368^.083^.675^.668^1.065^.47^.397^.639^.779^2.421^.097^1.378^1.169
;;^UTILITY(U,$J,112,19,4)
;;=1.977^1.159^2.761^5.151^.385^1.488^3.975^0^^15
;;^UTILITY(U,$J,112,19,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,20,0)
;;=CHEESE, FONTINA^1-020^oz.^28.3^100^N
;;^UTILITY(U,$J,112,20,1)
;;=25.6^31.14^1.55^389.031^37.92^^^550^.23^14^346.3^63.5^800^3.5^.025^.014^^1174^0^.021
;;^UTILITY(U,$J,112,20,2)
;;=.204^.15^.429^.083^6^1.676^.864^.79^116^19.196^8.687^1.654^290^3.79^^^0
;;^UTILITY(U,$J,112,20,3)
;;=.361^.935^1.384^2.664^2.328^.706^.261^1.497^1.524^1.926^.835^.959^.823^1.413^5.136^.457^3.323^1.477
;;^UTILITY(U,$J,112,20,4)
;;=.651^.804^2.964^8.458^.89^2.655^7.1^0
;;^UTILITY(U,$J,112,20,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,21,0)
;;=CHEESE, GJETOST^1-021^oz.^28.3^100^N
;;^UTILITY(U,$J,112,21,1)
;;=9.65^29.51^42.65^465.654^13.44^^^400^.52^70^444^1409^600^1.14^.08^.04^^1113^0^.315
;;^UTILITY(U,$J,112,21,2)
;;=1.382^.813^3.351^.271^4.6^2.424^.508^.429^94^19.16^7.879^.938^274^4.75^^^0
;;^UTILITY(U,$J,112,21,3)
;;=.135^.393^.519^.992^.814^.318^.057^.54^.541^.765^.33^.293^.325^.709^1.987^.189^1.18^.47
;;^UTILITY(U,$J,112,21,4)
;;=.576^.831^3.27^8.662^.534^3.477^6.955^0
;;^UTILITY(U,$J,112,21,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,22,0)
;;=CHEESE, GOUDA^1-022^oz.^28.3^100^N
;;^UTILITY(U,$J,112,22,1)
;;=24.94^27.44^2.22^356.283^41.46^^^699.8^.24^29^546.3^120.5^819.3^3.9^.036^.011^^644^0^.03
;;^UTILITY(U,$J,112,22,2)
;;=.334^.063^.34^.08^20.9^1.535^.263^.394^114^17.614^7.747^.657^174^3.94^^^0
;;^UTILITY(U,$J,112,22,3)
;;=.352^.93^1.306^2.564^2.654^.719^.254^1.431^1.454^1.806^.962^1.032^.762^1.743^6.137^.485^3.245^1.544
;;^UTILITY(U,$J,112,22,4)
;;=.918^1.211^3.04^6.851^.889^2.918^6.388^0
;;^UTILITY(U,$J,112,22,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,23,0)
;;=CHEESE, GRUYERE^1-023^oz.^28.3^100^N
;;^UTILITY(U,$J,112,23,1)
;;=29.81^32.34^.36^412.95^33.19^^^1011^.17^35.91^605.3^81^336^3.9^.032^.017^^1219^0^.06
;;^UTILITY(U,$J,112,23,2)
;;=.279^.106^.562^.081^10.4^1.6^1.3^.433^110^18.913^10.043^1.733^301^4.3^^^0
;;^UTILITY(U,$J,112,23,3)
;;=.421^1.089^1.612^3.102^2.71^.822^.304^1.743^1.776^2.243^.972^1.117^.958^1.645^5.981^.533^3.869^1.719
;;^UTILITY(U,$J,112,23,4)
;;=.751^.911^3.369^8.753^.724^2.324^8.582^0
;;^UTILITY(U,$J,112,23,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,24,0)
;;=CHEESE, LIMBURGER^1-024^oz.^28.3^100^N
;;^UTILITY(U,$J,112,24,1)
;;=20.05^27.25^.49^327.037^48.42^^^496.7^.13^21^393^128^800^2.1^.021^.038^^1281^0^.08
;;^UTILITY(U,$J,112,24,2)
;;=.503^.158^1.177^.086^57.5^1.04^.339^.156^90^16.746^8.606^.495^316^3.79^^^0
;;^UTILITY(U,$J,112,24,3)
;;=.289^.739^1.219^2.093^1.675^.619^.11^1.116^1.197^1.439^.698^.578^.666^1.477^4.51^.409^2.439^1.144
;;^UTILITY(U,$J,112,24,4)
;;=.481^.87^2.787^7.401^1.013^3.054^7.179^0
;;^UTILITY(U,$J,112,24,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,25,0)
;;=CHEESE, MONTEREY^1-025^oz.^28.3^100^N
;;^UTILITY(U,$J,112,25,1)
;;=24.48^30.28^.68^373.322^41.01^^^746.4^.72^27.01^444^80.7^536.3^3^.032^.011^^950^0^.015
;;^UTILITY(U,$J,112,25,2)
;;=.39^.093^.21^.079^18.2^.826^.637^.261^89^19.066^8.751^.899^253^3.55^^^0
FHINI00G ; ; 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,17,2)
+2 ;;=.197^.101^.271^.047^13.2^.424^.774^.491^109.7^21.966^9.838^1.265^437^1.17^^^0
+3 ;;^UTILITY(U,$J,112,17,3)
+4 ;;=.067^.321^.399^.731^.676^.181^.066^.419^.36^.443^.286^.271^.23^.533^1.714^.149^.689^.398
+5 ;;^UTILITY(U,$J,112,17,4)
+6 ;;=.667^.465^3.603^10.538^.984^4.045^8.381^0^^2.4
+7 ;;^UTILITY(U,$J,112,17,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,18,0)
+10 ;;=CHEESE, EDAM^1-018^oz.^28.3^100^N
+11 ;;^UTILITY(U,$J,112,18,1)
+12 ;;=24.99^27.8^1.43^356.603^41.56^^^731^.44^29.77^535.6^187.7^965^3.75^.036^.011^^916^0^.037
+13 ;;^UTILITY(U,$J,112,18,2)
+14 ;;=.389^.082^.281^.076^16.2^1.535^.418^.247^89.2^17.572^8.125^.665^253^4.22^^^0
+15 ;;^UTILITY(U,$J,112,18,3)
+16 ;;=.352^.932^1.308^2.57^2.66^.721^.255^1.434^1.457^1.81^.964^1.034^.764^1.747^6.15^.486^3.251^1.547
+17 ;;^UTILITY(U,$J,112,18,4)
+18 ;;=.589^.496^2.943^8.067^.813^2.983^6.911^0
+19 ;;^UTILITY(U,$J,112,18,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,19,0)
+22 ;;=CHEESE, FETA^1-019^oz.^28.3^100^N
+23 ;;^UTILITY(U,$J,112,19,1)
+24 ;;=14.21^21.28^4.09^263.556^55.22^^^492.5^.65^19.21^337.2^61.8^1116.1^2.88^.032^.028^^447^0^.154
+25 ;;^UTILITY(U,$J,112,19,2)
+26 ;;=.844^.991^.967^.424^32^1.69^.326^.265^89^14.946^4.623^.591^128^5.2^^^0
+27 ;;^UTILITY(U,$J,112,19,3)
+28 ;;=.2^.637^.803^1.395^1.219^.368^.083^.675^.668^1.065^.47^.397^.639^.779^2.421^.097^1.378^1.169
+29 ;;^UTILITY(U,$J,112,19,4)
+30 ;;=1.977^1.159^2.761^5.151^.385^1.488^3.975^0^^15
+31 ;;^UTILITY(U,$J,112,19,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,20,0)
+34 ;;=CHEESE, FONTINA^1-020^oz.^28.3^100^N
+35 ;;^UTILITY(U,$J,112,20,1)
+36 ;;=25.6^31.14^1.55^389.031^37.92^^^550^.23^14^346.3^63.5^800^3.5^.025^.014^^1174^0^.021
+37 ;;^UTILITY(U,$J,112,20,2)
+38 ;;=.204^.15^.429^.083^6^1.676^.864^.79^116^19.196^8.687^1.654^290^3.79^^^0
+39 ;;^UTILITY(U,$J,112,20,3)
+40 ;;=.361^.935^1.384^2.664^2.328^.706^.261^1.497^1.524^1.926^.835^.959^.823^1.413^5.136^.457^3.323^1.477
+41 ;;^UTILITY(U,$J,112,20,4)
+42 ;;=.651^.804^2.964^8.458^.89^2.655^7.1^0
+43 ;;^UTILITY(U,$J,112,20,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,21,0)
+46 ;;=CHEESE, GJETOST^1-021^oz.^28.3^100^N
+47 ;;^UTILITY(U,$J,112,21,1)
+48 ;;=9.65^29.51^42.65^465.654^13.44^^^400^.52^70^444^1409^600^1.14^.08^.04^^1113^0^.315
+49 ;;^UTILITY(U,$J,112,21,2)
+50 ;;=1.382^.813^3.351^.271^4.6^2.424^.508^.429^94^19.16^7.879^.938^274^4.75^^^0
+51 ;;^UTILITY(U,$J,112,21,3)
+52 ;;=.135^.393^.519^.992^.814^.318^.057^.54^.541^.765^.33^.293^.325^.709^1.987^.189^1.18^.47
+53 ;;^UTILITY(U,$J,112,21,4)
+54 ;;=.576^.831^3.27^8.662^.534^3.477^6.955^0
+55 ;;^UTILITY(U,$J,112,21,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,22,0)
+58 ;;=CHEESE, GOUDA^1-022^oz.^28.3^100^N
+59 ;;^UTILITY(U,$J,112,22,1)
+60 ;;=24.94^27.44^2.22^356.283^41.46^^^699.8^.24^29^546.3^120.5^819.3^3.9^.036^.011^^644^0^.03
+61 ;;^UTILITY(U,$J,112,22,2)
+62 ;;=.334^.063^.34^.08^20.9^1.535^.263^.394^114^17.614^7.747^.657^174^3.94^^^0
+63 ;;^UTILITY(U,$J,112,22,3)
+64 ;;=.352^.93^1.306^2.564^2.654^.719^.254^1.431^1.454^1.806^.962^1.032^.762^1.743^6.137^.485^3.245^1.544
+65 ;;^UTILITY(U,$J,112,22,4)
+66 ;;=.918^1.211^3.04^6.851^.889^2.918^6.388^0
+67 ;;^UTILITY(U,$J,112,22,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,23,0)
+70 ;;=CHEESE, GRUYERE^1-023^oz.^28.3^100^N
+71 ;;^UTILITY(U,$J,112,23,1)
+72 ;;=29.81^32.34^.36^412.95^33.19^^^1011^.17^35.91^605.3^81^336^3.9^.032^.017^^1219^0^.06
+73 ;;^UTILITY(U,$J,112,23,2)
+74 ;;=.279^.106^.562^.081^10.4^1.6^1.3^.433^110^18.913^10.043^1.733^301^4.3^^^0
+75 ;;^UTILITY(U,$J,112,23,3)
+76 ;;=.421^1.089^1.612^3.102^2.71^.822^.304^1.743^1.776^2.243^.972^1.117^.958^1.645^5.981^.533^3.869^1.719
+77 ;;^UTILITY(U,$J,112,23,4)
+78 ;;=.751^.911^3.369^8.753^.724^2.324^8.582^0
+79 ;;^UTILITY(U,$J,112,23,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,24,0)
+82 ;;=CHEESE, LIMBURGER^1-024^oz.^28.3^100^N
+83 ;;^UTILITY(U,$J,112,24,1)
+84 ;;=20.05^27.25^.49^327.037^48.42^^^496.7^.13^21^393^128^800^2.1^.021^.038^^1281^0^.08
+85 ;;^UTILITY(U,$J,112,24,2)
+86 ;;=.503^.158^1.177^.086^57.5^1.04^.339^.156^90^16.746^8.606^.495^316^3.79^^^0
+87 ;;^UTILITY(U,$J,112,24,3)
+88 ;;=.289^.739^1.219^2.093^1.675^.619^.11^1.116^1.197^1.439^.698^.578^.666^1.477^4.51^.409^2.439^1.144
+89 ;;^UTILITY(U,$J,112,24,4)
+90 ;;=.481^.87^2.787^7.401^1.013^3.054^7.179^0
+91 ;;^UTILITY(U,$J,112,24,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,25,0)
+94 ;;=CHEESE, MONTEREY^1-025^oz.^28.3^100^N
+95 ;;^UTILITY(U,$J,112,25,1)
+96 ;;=24.48^30.28^.68^373.322^41.01^^^746.4^.72^27.01^444^80.7^536.3^3^.032^.011^^950^0^.015
+97 ;;^UTILITY(U,$J,112,25,2)
+98 ;;=.39^.093^.21^.079^18.2^.826^.637^.261^89^19.066^8.751^.899^253^3.55^^^0
