FHINI00O ; ; 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,82,3)
;;=.048^.154^.206^.334^.27^.086^.032^.165^.165^.228^.123^.092^.118^.259^.714^.072^.33^.185
;;^UTILITY(U,$J,112,82,4)
;;=.004^.003^.017^.053^.007^.019^.038^0^.02^2.1
;;^UTILITY(U,$J,112,82,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,83,0)
;;=MILK, SKIM, PAST & RAW, FLUID, W/NFMS^1-086^cups^245^100^N
;;^UTILITY(U,$J,112,83,1)
;;=3.57^.25^5.02^36.869^90.38^^^129.1^.05^14.51^104^170.7^53^.41^.011^.002^^204^1.01^.041
;;^UTILITY(U,$J,112,83,2)
;;=.175^.091^.339^.046^5.4^.386^.006^.003^2^.162^.065^.009^61^.78^^^0
;;^UTILITY(U,$J,112,83,3)
;;=.05^.161^.216^.35^.283^.09^.033^.172^.172^.239^.129^.097^.123^.271^.748^.076^.346^.194
;;^UTILITY(U,$J,112,83,4)
;;=.005^.003^.024^.073^.009^.026^.053^0
;;^UTILITY(U,$J,112,83,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,84,0)
;;=MILK, SKIM, PAST & RAW, FLUID PROTEIN FORTIFIED^1-087^cups^246^100^N
;;^UTILITY(U,$J,112,84,1)
;;=3.96^.25^5.56^40.624^89.36^^^143^.06^16.06^111.9^181.5^58.7^.45^.011^.002^^203^1.12^.045
;;^UTILITY(U,$J,112,84,2)
;;=.194^.101^.376^.05^6^.427^.006^.003^2^.162^.065^.009^61^.87^^^0
;;^UTILITY(U,$J,112,84,3)
;;=.056^.179^.24^.388^.314^.099^.037^.191^.191^.265^.143^.107^.137^.3^.829^.084^.384^.215
;;^UTILITY(U,$J,112,84,4)
;;=.005^.003^.024^.073^.009^.026^.053^0
;;^UTILITY(U,$J,112,84,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,85,0)
;;=MILK, BUTTERMILK, FLUID, CULTURED, FROM SKIMMILK^1-088^cups^245^100^N
;;^UTILITY(U,$J,112,85,1)
;;=3.31^.88^4.79^40.406^90.13^^^116.4^.05^10.95^89.2^151.3^104.9^.42^.011^.002^^33^.98^.034
;;^UTILITY(U,$J,112,85,2)
;;=.154^.058^.275^.034^5^.219^.02^.013^3.5^.548^.254^.033^8^.89^^^0
;;^UTILITY(U,$J,112,85,3)
;;=.036^.158^.204^.329^.277^.081^.031^.174^.139^.243^.126^.095^.119^.264^.643^.073^.334^.172
;;^UTILITY(U,$J,112,85,4)
;;=.022^.025^.089^.231^.02^.107^.221^0^^2
;;^UTILITY(U,$J,112,85,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,86,0)
;;=MILK, LOW SODIUM, WHOLE, PAST & RAW, FLUID^1-089^cups^244^100^N
;;^UTILITY(U,$J,112,86,1)
;;=3.1^3.46^4.46^60.911^88.2^^^100.8^.05^5^85.5^252.8^2.5^.38^.01^.004^^130^.94^.02
;;^UTILITY(U,$J,112,86,2)
;;=.105^.043^.304^.034^5^.359^.078^.05^13.6^2.154^.999^.128^32^.78^^^0
;;^UTILITY(U,$J,112,86,3)
;;=.044^.14^.188^.304^.246^.078^.029^.15^.15^.207^.112^.084^.107^.235^.649^.066^.3^.169
;;^UTILITY(U,$J,112,86,4)
;;=.087^.097^.348^.91^.077^.419^.87^0
;;^UTILITY(U,$J,112,86,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,87,0)
;;=MILK, DRY, WHOLE^1-090^cups^128^100^N
;;^UTILITY(U,$J,112,87,1)
;;=26.32^26.71^38.42^495.853^2.47^^^912.4^.47^84.51^775.5^1329.9^371.3^3.34^.08^.04^^922^8.64^.283
;;^UTILITY(U,$J,112,87,2)
;;=1.205^.646^2.271^.302^37^3.253^.46^.204^97.1^16.742^7.924^.665^280^6.08^^^0
;;^UTILITY(U,$J,112,87,3)
;;=.371^1.188^1.592^2.578^2.087^.66^.243^1.271^1.271^1.762^.953^.714^.908^1.997^5.512^.557^2.549^1.432
;;^UTILITY(U,$J,112,87,4)
;;=.596^.614^2.82^7.522^1.196^2.853^6.192^0^2
;;^UTILITY(U,$J,112,87,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,88,0)
;;=MILK, DRY, SKIM, NON-FAT SOLIDS, REGULAR, WO/ADDED VIT A^1-091^cups^120^100^N
;;^UTILITY(U,$J,112,88,1)
;;=36.16^.77^51.98^362.334^3.16^^^1256.9^.32^110.1^968.2^1794.1^535.3^4.08^.041^.02^^36^6.76^.415
;;^UTILITY(U,$J,112,88,2)
;;=1.55^.951^3.568^.361^50.1^4.033^.019^.011^19.6^.499^.201^.03^8^7.93^^^0
;;^UTILITY(U,$J,112,88,3)
;;=.51^1.632^2.188^3.542^2.868^.907^.334^1.746^1.746^2.42^1.309^.981^1.247^2.743^7.572^.765^3.503^1.967
;;^UTILITY(U,$J,112,88,4)
;;=.018^.014^.083^.235^.022^.085^.167^0^10^27.3
;;^UTILITY(U,$J,112,88,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,89,0)
;;=MILK, DRY, SKIM, NON-FAT SOLIDS, INSTANT, W/ADDED VIT A^1-092^cups^68^100^N
;;^UTILITY(U,$J,112,89,1)
;;=35.1^.72^52.19^358.181^3.96^^^1230.8^.31^117.11^984.7^1705.4^548.7^4.41^.041^.02^^2370^5.58^.413
;;^UTILITY(U,$J,112,89,2)
;;=1.744^.891^3.235^.345^49.8^3.993^.018^.011^18.3^.467^.187^.028^710^8.03^^^0
;;^UTILITY(U,$J,112,89,3)
;;=.495^1.584^2.124^3.438^2.784^.88^.325^1.694^1.694^2.349^1.271^.952^1.21^2.663^7.35^.743^3.4^1.909
;;^UTILITY(U,$J,112,89,4)
;;=.017^.013^.078^.22^.021^.08^.156^0^^27.3
;;^UTILITY(U,$J,112,89,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,90,0)
;;=MILK, DRY, SKIM, CALCIUM REDUCED^1-093^oz.^28.3^100^N
;;^UTILITY(U,$J,112,90,1)
;;=35.5^.2^51.8^353.809^4.9^^^280^.32^60^1011^680^2280^4.03^.016^.008^^8^6.68^.163
;;^UTILITY(U,$J,112,90,2)
;;=1.642^.665^3.312^.298^49.5^3.976^.005^.003^2^.124^.058^.007^2^7.6^^^0
FHINI00O ; ; 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,82,3)
+2 ;;=.048^.154^.206^.334^.27^.086^.032^.165^.165^.228^.123^.092^.118^.259^.714^.072^.33^.185
+3 ;;^UTILITY(U,$J,112,82,4)
+4 ;;=.004^.003^.017^.053^.007^.019^.038^0^.02^2.1
+5 ;;^UTILITY(U,$J,112,82,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,83,0)
+8 ;;=MILK, SKIM, PAST & RAW, FLUID, W/NFMS^1-086^cups^245^100^N
+9 ;;^UTILITY(U,$J,112,83,1)
+10 ;;=3.57^.25^5.02^36.869^90.38^^^129.1^.05^14.51^104^170.7^53^.41^.011^.002^^204^1.01^.041
+11 ;;^UTILITY(U,$J,112,83,2)
+12 ;;=.175^.091^.339^.046^5.4^.386^.006^.003^2^.162^.065^.009^61^.78^^^0
+13 ;;^UTILITY(U,$J,112,83,3)
+14 ;;=.05^.161^.216^.35^.283^.09^.033^.172^.172^.239^.129^.097^.123^.271^.748^.076^.346^.194
+15 ;;^UTILITY(U,$J,112,83,4)
+16 ;;=.005^.003^.024^.073^.009^.026^.053^0
+17 ;;^UTILITY(U,$J,112,83,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,84,0)
+20 ;;=MILK, SKIM, PAST & RAW, FLUID PROTEIN FORTIFIED^1-087^cups^246^100^N
+21 ;;^UTILITY(U,$J,112,84,1)
+22 ;;=3.96^.25^5.56^40.624^89.36^^^143^.06^16.06^111.9^181.5^58.7^.45^.011^.002^^203^1.12^.045
+23 ;;^UTILITY(U,$J,112,84,2)
+24 ;;=.194^.101^.376^.05^6^.427^.006^.003^2^.162^.065^.009^61^.87^^^0
+25 ;;^UTILITY(U,$J,112,84,3)
+26 ;;=.056^.179^.24^.388^.314^.099^.037^.191^.191^.265^.143^.107^.137^.3^.829^.084^.384^.215
+27 ;;^UTILITY(U,$J,112,84,4)
+28 ;;=.005^.003^.024^.073^.009^.026^.053^0
+29 ;;^UTILITY(U,$J,112,84,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,85,0)
+32 ;;=MILK, BUTTERMILK, FLUID, CULTURED, FROM SKIMMILK^1-088^cups^245^100^N
+33 ;;^UTILITY(U,$J,112,85,1)
+34 ;;=3.31^.88^4.79^40.406^90.13^^^116.4^.05^10.95^89.2^151.3^104.9^.42^.011^.002^^33^.98^.034
+35 ;;^UTILITY(U,$J,112,85,2)
+36 ;;=.154^.058^.275^.034^5^.219^.02^.013^3.5^.548^.254^.033^8^.89^^^0
+37 ;;^UTILITY(U,$J,112,85,3)
+38 ;;=.036^.158^.204^.329^.277^.081^.031^.174^.139^.243^.126^.095^.119^.264^.643^.073^.334^.172
+39 ;;^UTILITY(U,$J,112,85,4)
+40 ;;=.022^.025^.089^.231^.02^.107^.221^0^^2
+41 ;;^UTILITY(U,$J,112,85,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,86,0)
+44 ;;=MILK, LOW SODIUM, WHOLE, PAST & RAW, FLUID^1-089^cups^244^100^N
+45 ;;^UTILITY(U,$J,112,86,1)
+46 ;;=3.1^3.46^4.46^60.911^88.2^^^100.8^.05^5^85.5^252.8^2.5^.38^.01^.004^^130^.94^.02
+47 ;;^UTILITY(U,$J,112,86,2)
+48 ;;=.105^.043^.304^.034^5^.359^.078^.05^13.6^2.154^.999^.128^32^.78^^^0
+49 ;;^UTILITY(U,$J,112,86,3)
+50 ;;=.044^.14^.188^.304^.246^.078^.029^.15^.15^.207^.112^.084^.107^.235^.649^.066^.3^.169
+51 ;;^UTILITY(U,$J,112,86,4)
+52 ;;=.087^.097^.348^.91^.077^.419^.87^0
+53 ;;^UTILITY(U,$J,112,86,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,87,0)
+56 ;;=MILK, DRY, WHOLE^1-090^cups^128^100^N
+57 ;;^UTILITY(U,$J,112,87,1)
+58 ;;=26.32^26.71^38.42^495.853^2.47^^^912.4^.47^84.51^775.5^1329.9^371.3^3.34^.08^.04^^922^8.64^.283
+59 ;;^UTILITY(U,$J,112,87,2)
+60 ;;=1.205^.646^2.271^.302^37^3.253^.46^.204^97.1^16.742^7.924^.665^280^6.08^^^0
+61 ;;^UTILITY(U,$J,112,87,3)
+62 ;;=.371^1.188^1.592^2.578^2.087^.66^.243^1.271^1.271^1.762^.953^.714^.908^1.997^5.512^.557^2.549^1.432
+63 ;;^UTILITY(U,$J,112,87,4)
+64 ;;=.596^.614^2.82^7.522^1.196^2.853^6.192^0^2
+65 ;;^UTILITY(U,$J,112,87,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,88,0)
+68 ;;=MILK, DRY, SKIM, NON-FAT SOLIDS, REGULAR, WO/ADDED VIT A^1-091^cups^120^100^N
+69 ;;^UTILITY(U,$J,112,88,1)
+70 ;;=36.16^.77^51.98^362.334^3.16^^^1256.9^.32^110.1^968.2^1794.1^535.3^4.08^.041^.02^^36^6.76^.415
+71 ;;^UTILITY(U,$J,112,88,2)
+72 ;;=1.55^.951^3.568^.361^50.1^4.033^.019^.011^19.6^.499^.201^.03^8^7.93^^^0
+73 ;;^UTILITY(U,$J,112,88,3)
+74 ;;=.51^1.632^2.188^3.542^2.868^.907^.334^1.746^1.746^2.42^1.309^.981^1.247^2.743^7.572^.765^3.503^1.967
+75 ;;^UTILITY(U,$J,112,88,4)
+76 ;;=.018^.014^.083^.235^.022^.085^.167^0^10^27.3
+77 ;;^UTILITY(U,$J,112,88,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,89,0)
+80 ;;=MILK, DRY, SKIM, NON-FAT SOLIDS, INSTANT, W/ADDED VIT A^1-092^cups^68^100^N
+81 ;;^UTILITY(U,$J,112,89,1)
+82 ;;=35.1^.72^52.19^358.181^3.96^^^1230.8^.31^117.11^984.7^1705.4^548.7^4.41^.041^.02^^2370^5.58^.413
+83 ;;^UTILITY(U,$J,112,89,2)
+84 ;;=1.744^.891^3.235^.345^49.8^3.993^.018^.011^18.3^.467^.187^.028^710^8.03^^^0
+85 ;;^UTILITY(U,$J,112,89,3)
+86 ;;=.495^1.584^2.124^3.438^2.784^.88^.325^1.694^1.694^2.349^1.271^.952^1.21^2.663^7.35^.743^3.4^1.909
+87 ;;^UTILITY(U,$J,112,89,4)
+88 ;;=.017^.013^.078^.22^.021^.08^.156^0^^27.3
+89 ;;^UTILITY(U,$J,112,89,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,90,0)
+92 ;;=MILK, DRY, SKIM, CALCIUM REDUCED^1-093^oz.^28.3^100^N
+93 ;;^UTILITY(U,$J,112,90,1)
+94 ;;=35.5^.2^51.8^353.809^4.9^^^280^.32^60^1011^680^2280^4.03^.016^.008^^8^6.68^.163
+95 ;;^UTILITY(U,$J,112,90,2)
+96 ;;=1.642^.665^3.312^.298^49.5^3.976^.005^.003^2^.124^.058^.007^2^7.6^^^0
