FHINI00H ; ; 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,25,3)
;;=.315^.871^1.519^2.344^2.037^.641^.123^1.289^1.182^1.635^.925^.859^.691^1.573^5.99^.422^2.759^1.431
;;^UTILITY(U,$J,112,25,4)
;;=.563^.398^3.613^7.763^.923^3.423^7.368
;;^UTILITY(U,$J,112,25,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,26,0)
;;=CHEESE, MOZZARELLA, WHOLE MILK^1-026^oz.^28.3^100^N
;;^UTILITY(U,$J,112,26,1)
;;=19.42^21.6^2.22^281.379^54.14^^^517^.18^18.58^370.7^67.1^373.1^2.21^.02^.008^^792^0^.015
;;^UTILITY(U,$J,112,26,2)
;;=.243^.084^.064^.056^7^.654^.393^.372^78.4^13.152^6.573^.765^241^2.62^^^0
;;^UTILITY(U,$J,112,26,3)
;;=.271^.74^.931^1.893^1.972^.542^.116^1.014^1.123^1.215^.834^.731^.594^1.406^4.545^.371^2^1.132
;;^UTILITY(U,$J,112,26,4)
;;=.582^.69^2.189^5.331^.597^2.442^5.649^0
;;^UTILITY(U,$J,112,26,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,27,0)
;;=CHEESE, MOZZARELLA, WHOLE MILK, LOW MOISTURE^1-027^oz.^28.3^100^N
;;^UTILITY(U,$J,112,27,1)
;;=21.6^24.64^2.47^318.376^48.38^^^574.9^.2^20.67^412.3^74.6^415^2.46^.022^.009^^904^0^.016
;;^UTILITY(U,$J,112,27,2)
;;=.27^.094^.071^.062^7.8^.727^.566^.212^89.4^15.561^7.027^.778^274^2.91^^^0
;;^UTILITY(U,$J,112,27,3)
;;=.302^.823^1.036^2.106^2.194^.603^.129^1.127^1.249^1.351^.928^.813^.66^1.564^5.055^.413^2.224^1.259
;;^UTILITY(U,$J,112,27,4)
;;=.412^.255^2.683^7.491^.822^2.88^5.925^0
;;^UTILITY(U,$J,112,27,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,28,0)
;;=CHEESE, MOZZARELLA, PART SKIM MILK^1-028^oz.^28.3^100^N
;;^UTILITY(U,$J,112,28,1)
;;=24.26^15.92^2.77^254.247^53.78^^^645.7^.22^23.21^463^83.7^466^2.76^.025^.01^^584^0^.018
;;^UTILITY(U,$J,112,28,2)
;;=.303^.105^.079^.07^8.8^.817^.335^.137^57.8^10.114^4.51^.472^177^3.27^^^0
;;^UTILITY(U,$J,112,28,3)
;;=.339^.924^1.164^2.365^2.464^.677^.144^1.266^1.403^1.517^1.042^.913^.741^1.757^5.677^.464^2.498^1.415
;;^UTILITY(U,$J,112,28,4)
;;=.251^.164^1.598^4.855^.44^1.937^3.874^0
;;^UTILITY(U,$J,112,28,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,29,0)
;;=CHEESE, MOZZARELLA, PART SKIM MILK, LOW MOISTURE^1-029^oz.^28.3^100^N
;;^UTILITY(U,$J,112,29,1)
;;=27.47^17.12^3.14^279.933^48.57^^^731.3^.25^26.27^524.1^94.84^527.7^3.13^.027^.011^^628^0^.021
;;^UTILITY(U,$J,112,29,2)
;;=.343^.119^.09^.079^9.9^.925^.36^.147^54^10.877^4.85^.508^191^3.7^^^0
;;^UTILITY(U,$J,112,29,3)
;;=.384^1.046^1.318^2.678^2.79^.766^.164^1.434^1.589^1.718^1.18^1.033^.84^1.989^6.428^.525^2.829^1.602
;;^UTILITY(U,$J,112,29,4)
;;=.27^.177^1.719^5.221^.473^2.083^4.166^0^^16.3
;;^UTILITY(U,$J,112,29,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,30,0)
;;=CHEESE, MUENSTER^1-030^oz.^28.3^100^N
;;^UTILITY(U,$J,112,30,1)
;;=23.41^30.04^1.12^368.346^41.77^^^717.3^.41^27.35^467.7^134.4^627.7^2.81^.031^.008^^1120^0^.013
;;^UTILITY(U,$J,112,30,2)
;;=.32^.103^.19^.056^12.1^1.473^.431^.23^95.6^19.113^8.711^.661^316^3.66^^^0
;;^UTILITY(U,$J,112,30,3)
;;=.327^.888^1.145^2.26^2.139^.569^.132^1.24^1.123^1.482^.881^.829^.675^1.6^5.555^.44^2.594^1.299
;;^UTILITY(U,$J,112,30,4)
;;=.586^.367^3.072^9.218^.973^3.569^7.338^0
;;^UTILITY(U,$J,112,30,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,31,0)
;;=CHEESE, NEUFCHATEL^1-031^oz.^28.3^100^N
;;^UTILITY(U,$J,112,31,1)
;;=9.96^23.43^2.94^259.856^62.21^^^75.3^.28^7.6^136.3^114.1^399.4^.52^.016^.004^^1134^0^.015
;;^UTILITY(U,$J,112,31,2)
;;=.195^.126^.566^.041^11.3^.264^.448^.202^76.1^14.797^6.772^.65^264^1.46^^^0
;;^UTILITY(U,$J,112,31,3)
;;=.089^.423^.526^.965^.891^.239^.087^.553^.475^.584^.378^.357^.303^.703^2.261^.197^.909^.525
;;^UTILITY(U,$J,112,31,4)
;;=.435^.286^2.352^6.877^.737^2.985^5.656^0
;;^UTILITY(U,$J,112,31,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,32,0)
;;=CHEESE, PARMESAN, GRATED^1-032^tbsp.^5^100^N
;;^UTILITY(U,$J,112,32,1)
;;=41.56^30.02^3.74^455.811^17.66^^^1375.7^.95^50.8^807.1^107.1^1861.5^3.19^.037^.023^^701^0^.045
;;^UTILITY(U,$J,112,32,2)
;;=.386^.315^.527^.105^8^1.4^.316^.345^78.7^19.072^8.734^.661^173^7.02^^^0
;;^UTILITY(U,$J,112,32,3)
;;=.56^1.531^2.202^4.013^3.843^1.114^.274^2.234^2.319^2.853^1.531^1.609^1.218^2.599^9.543^.723^4.86^2.404
;;^UTILITY(U,$J,112,32,4)
;;=.753^1.015^3.383^8.096^.458^2.675^7.736^0^^26.2
;;^UTILITY(U,$J,112,32,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,33,0)
;;=CHEESE, PARMESAN, PIECE^1-033^oz.^28.3^100^N
;;^UTILITY(U,$J,112,33,1)
;;=35.75^25.83^3.22^392.159^29.16^^^1183.5^.82^43.71^694.4^92.2^1601.5^2.75^.032^.02^^603^0^.039
;;^UTILITY(U,$J,112,33,2)
;;=.332^.271^.453^.091^6.9^1.2^.272^.297^67.7^16.41^7.515^.569^149^6.04^^^0
FHINI00H ; ; 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,25,3)
+2 ;;=.315^.871^1.519^2.344^2.037^.641^.123^1.289^1.182^1.635^.925^.859^.691^1.573^5.99^.422^2.759^1.431
+3 ;;^UTILITY(U,$J,112,25,4)
+4 ;;=.563^.398^3.613^7.763^.923^3.423^7.368
+5 ;;^UTILITY(U,$J,112,25,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,26,0)
+8 ;;=CHEESE, MOZZARELLA, WHOLE MILK^1-026^oz.^28.3^100^N
+9 ;;^UTILITY(U,$J,112,26,1)
+10 ;;=19.42^21.6^2.22^281.379^54.14^^^517^.18^18.58^370.7^67.1^373.1^2.21^.02^.008^^792^0^.015
+11 ;;^UTILITY(U,$J,112,26,2)
+12 ;;=.243^.084^.064^.056^7^.654^.393^.372^78.4^13.152^6.573^.765^241^2.62^^^0
+13 ;;^UTILITY(U,$J,112,26,3)
+14 ;;=.271^.74^.931^1.893^1.972^.542^.116^1.014^1.123^1.215^.834^.731^.594^1.406^4.545^.371^2^1.132
+15 ;;^UTILITY(U,$J,112,26,4)
+16 ;;=.582^.69^2.189^5.331^.597^2.442^5.649^0
+17 ;;^UTILITY(U,$J,112,26,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,27,0)
+20 ;;=CHEESE, MOZZARELLA, WHOLE MILK, LOW MOISTURE^1-027^oz.^28.3^100^N
+21 ;;^UTILITY(U,$J,112,27,1)
+22 ;;=21.6^24.64^2.47^318.376^48.38^^^574.9^.2^20.67^412.3^74.6^415^2.46^.022^.009^^904^0^.016
+23 ;;^UTILITY(U,$J,112,27,2)
+24 ;;=.27^.094^.071^.062^7.8^.727^.566^.212^89.4^15.561^7.027^.778^274^2.91^^^0
+25 ;;^UTILITY(U,$J,112,27,3)
+26 ;;=.302^.823^1.036^2.106^2.194^.603^.129^1.127^1.249^1.351^.928^.813^.66^1.564^5.055^.413^2.224^1.259
+27 ;;^UTILITY(U,$J,112,27,4)
+28 ;;=.412^.255^2.683^7.491^.822^2.88^5.925^0
+29 ;;^UTILITY(U,$J,112,27,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,28,0)
+32 ;;=CHEESE, MOZZARELLA, PART SKIM MILK^1-028^oz.^28.3^100^N
+33 ;;^UTILITY(U,$J,112,28,1)
+34 ;;=24.26^15.92^2.77^254.247^53.78^^^645.7^.22^23.21^463^83.7^466^2.76^.025^.01^^584^0^.018
+35 ;;^UTILITY(U,$J,112,28,2)
+36 ;;=.303^.105^.079^.07^8.8^.817^.335^.137^57.8^10.114^4.51^.472^177^3.27^^^0
+37 ;;^UTILITY(U,$J,112,28,3)
+38 ;;=.339^.924^1.164^2.365^2.464^.677^.144^1.266^1.403^1.517^1.042^.913^.741^1.757^5.677^.464^2.498^1.415
+39 ;;^UTILITY(U,$J,112,28,4)
+40 ;;=.251^.164^1.598^4.855^.44^1.937^3.874^0
+41 ;;^UTILITY(U,$J,112,28,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,29,0)
+44 ;;=CHEESE, MOZZARELLA, PART SKIM MILK, LOW MOISTURE^1-029^oz.^28.3^100^N
+45 ;;^UTILITY(U,$J,112,29,1)
+46 ;;=27.47^17.12^3.14^279.933^48.57^^^731.3^.25^26.27^524.1^94.84^527.7^3.13^.027^.011^^628^0^.021
+47 ;;^UTILITY(U,$J,112,29,2)
+48 ;;=.343^.119^.09^.079^9.9^.925^.36^.147^54^10.877^4.85^.508^191^3.7^^^0
+49 ;;^UTILITY(U,$J,112,29,3)
+50 ;;=.384^1.046^1.318^2.678^2.79^.766^.164^1.434^1.589^1.718^1.18^1.033^.84^1.989^6.428^.525^2.829^1.602
+51 ;;^UTILITY(U,$J,112,29,4)
+52 ;;=.27^.177^1.719^5.221^.473^2.083^4.166^0^^16.3
+53 ;;^UTILITY(U,$J,112,29,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,30,0)
+56 ;;=CHEESE, MUENSTER^1-030^oz.^28.3^100^N
+57 ;;^UTILITY(U,$J,112,30,1)
+58 ;;=23.41^30.04^1.12^368.346^41.77^^^717.3^.41^27.35^467.7^134.4^627.7^2.81^.031^.008^^1120^0^.013
+59 ;;^UTILITY(U,$J,112,30,2)
+60 ;;=.32^.103^.19^.056^12.1^1.473^.431^.23^95.6^19.113^8.711^.661^316^3.66^^^0
+61 ;;^UTILITY(U,$J,112,30,3)
+62 ;;=.327^.888^1.145^2.26^2.139^.569^.132^1.24^1.123^1.482^.881^.829^.675^1.6^5.555^.44^2.594^1.299
+63 ;;^UTILITY(U,$J,112,30,4)
+64 ;;=.586^.367^3.072^9.218^.973^3.569^7.338^0
+65 ;;^UTILITY(U,$J,112,30,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,31,0)
+68 ;;=CHEESE, NEUFCHATEL^1-031^oz.^28.3^100^N
+69 ;;^UTILITY(U,$J,112,31,1)
+70 ;;=9.96^23.43^2.94^259.856^62.21^^^75.3^.28^7.6^136.3^114.1^399.4^.52^.016^.004^^1134^0^.015
+71 ;;^UTILITY(U,$J,112,31,2)
+72 ;;=.195^.126^.566^.041^11.3^.264^.448^.202^76.1^14.797^6.772^.65^264^1.46^^^0
+73 ;;^UTILITY(U,$J,112,31,3)
+74 ;;=.089^.423^.526^.965^.891^.239^.087^.553^.475^.584^.378^.357^.303^.703^2.261^.197^.909^.525
+75 ;;^UTILITY(U,$J,112,31,4)
+76 ;;=.435^.286^2.352^6.877^.737^2.985^5.656^0
+77 ;;^UTILITY(U,$J,112,31,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,32,0)
+80 ;;=CHEESE, PARMESAN, GRATED^1-032^tbsp.^5^100^N
+81 ;;^UTILITY(U,$J,112,32,1)
+82 ;;=41.56^30.02^3.74^455.811^17.66^^^1375.7^.95^50.8^807.1^107.1^1861.5^3.19^.037^.023^^701^0^.045
+83 ;;^UTILITY(U,$J,112,32,2)
+84 ;;=.386^.315^.527^.105^8^1.4^.316^.345^78.7^19.072^8.734^.661^173^7.02^^^0
+85 ;;^UTILITY(U,$J,112,32,3)
+86 ;;=.56^1.531^2.202^4.013^3.843^1.114^.274^2.234^2.319^2.853^1.531^1.609^1.218^2.599^9.543^.723^4.86^2.404
+87 ;;^UTILITY(U,$J,112,32,4)
+88 ;;=.753^1.015^3.383^8.096^.458^2.675^7.736^0^^26.2
+89 ;;^UTILITY(U,$J,112,32,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,33,0)
+92 ;;=CHEESE, PARMESAN, PIECE^1-033^oz.^28.3^100^N
+93 ;;^UTILITY(U,$J,112,33,1)
+94 ;;=35.75^25.83^3.22^392.159^29.16^^^1183.5^.82^43.71^694.4^92.2^1601.5^2.75^.032^.02^^603^0^.039
+95 ;;^UTILITY(U,$J,112,33,2)
+96 ;;=.332^.271^.453^.091^6.9^1.2^.272^.297^67.7^16.41^7.515^.569^149^6.04^^^0
