FHINI00Q ; ; 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,98,4)
;;=.083^.093^.333^.884^.075^.412^.847^0
;;^UTILITY(U,$J,112,98,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,99,0)
;;=MILK, CHOCOLATE DRINK, FLUID, WHOLE^1-102^cups^250^100^N
;;^UTILITY(U,$J,112,99,1)
;;=3.17^3.39^10.34^83.35^82.3^^^112.1^.24^13.03^100.5^166.9^59.6^.41^.065^.077^^121^.91^.037
;;^UTILITY(U,$J,112,99,2)
;;=.162^.125^.295^.04^4.7^.334^.078^.046^12.2^2.104^.99^.124^29^.8^^^1.5
;;^UTILITY(U,$J,112,99,3)
;;=.045^.143^.192^.311^.251^.079^.029^.153^.153^.212^.115^.086^.109^.24^.664^.067^.307^.172
;;^UTILITY(U,$J,112,99,4)
;;=.078^.088^.315^.889^.071^.466^.872^0
;;^UTILITY(U,$J,112,99,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,100,0)
;;=MILK, CHOCOLATE DRINK, FLUID, LOWFAT, 2% FAT^1-103^cups^250^100^N
;;^UTILITY(U,$J,112,100,1)
;;=3.21^2^10.4^71.535^83.58^^^113.6^.24^13.2^101.7^168.8^60.2^.41^.063^.075^^200^.92^.037
;;^UTILITY(U,$J,112,100,2)
;;=.164^.126^.299^.041^4.8^.339^.047^.026^6.8^1.239^.588^.072^57^.81^^^1.5
;;^UTILITY(U,$J,112,100,3)
;;=.045^.145^.194^.314^.255^.081^.03^.155^.155^.215^.116^.087^.111^.244^.672^.068^.311^.175
;;^UTILITY(U,$J,112,100,4)
;;=.044^.049^.175^.524^.04^.297^.523^0^.4^1.9
;;^UTILITY(U,$J,112,100,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,101,0)
;;=MILK, CHOCOLATE DRINK, FLUID, LOWFAT, 1% FAT^1-104^cups^250^100^N
;;^UTILITY(U,$J,112,101,1)
;;=3.24^1^10.44^63.028^84.5^^^114.7^.24^13.33^102.6^170.2^60.7^.41^.065^.077^^200^.93^.038
;;^UTILITY(U,$J,112,101,2)
;;=.166^.127^.302^.041^4.8^.342^.024^.011^2.9^.616^.3^.035^59^.82^^^0
;;^UTILITY(U,$J,112,101,3)
;;=.046^.146^.196^.317^.257^.081^.03^.156^.156^.217^.117^.088^.112^.246^.678^.069^.314^.176
;;^UTILITY(U,$J,112,101,4)
;;=.019^.021^.075^.261^.018^.176^.271^0^^1.9
;;^UTILITY(U,$J,112,101,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,102,0)
;;=MILK, CHOCOLATE BEVERAGE, HOME MADE HOT COCOA^1-105^cups^250^100^N
;;^UTILITY(U,$J,112,102,1)
;;=3.64^3.62^10.31^87.262^81.62^^^119.3^.31^22.2^108^191.9^49.1^.49^.116^.138^^127^.96^.041
;;^UTILITY(U,$J,112,102,2)
;;=.174^.146^.323^.043^4.9^.348^.084^.048^13.3^2.244^1.06^.132^34^.81^^^1.5
;;^UTILITY(U,$J,112,102,3)
;;=.051^.164^.22^.357^.289^.091^.034^.176^.176^.244^.132^.099^.126^.276^.762^.077^.353^.198
;;^UTILITY(U,$J,112,102,4)
;;=.082^.091^.328^.949^.074^.515^.938^0
;;^UTILITY(U,$J,112,102,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,103,0)
;;=MILK, HUMAN, MATURE, FLUID^1-107^fl oz.^30.8^100^N
;;^UTILITY(U,$J,112,103,1)
;;=1.03^4.38^6.89^69.563^87.5^^^32.2^.03^3.4^13.7^51.2^16.9^.17^.052^.026^^241^5^.014
;;^UTILITY(U,$J,112,103,2)
;;=.036^.177^.223^.011^5.2^.045^.374^.052^13.9^2.009^1.658^.497^64^.2^^^0
;;^UTILITY(U,$J,112,103,3)
;;=.017^.046^.056^.095^.068^.021^.019^.046^.053^.063^.043^.023^.036^.082^.168^.026^.082^.043
;;^UTILITY(U,$J,112,103,4)
;;=.063^.256^.321^.919^.129^.293^1.475^.026^2^1.8
;;^UTILITY(U,$J,112,103,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,104,0)
;;=MILK SHAKES, THICK CHOCOLATE^1-110^oz.^28.3^100^N
;;^UTILITY(U,$J,112,104,1)
;;=3.05^2.7^21.15^118.607^72.2^^^132^.31^16^126^224^111^.48^.065^.039^^86^0^.047
;;^UTILITY(U,$J,112,104,2)
;;=.222^.124^.363^.025^4.9^.315^.061^.039^10.5^1.681^.78^.1^21^.9^^^.3
;;^UTILITY(U,$J,112,104,3)
;;=.043^.138^.185^.299^.242^.076^.028^.147^.147^.204^.11^.083^.105^.231^.639^.065^.295^.166
;;^UTILITY(U,$J,112,104,4)
;;=.068^.076^.272^.71^.06^.327^.679^0
;;^UTILITY(U,$J,112,104,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,105,0)
;;=MILK SHAKES, THICK VANILLA^1-111^oz.^28.3^100^N
;;^UTILITY(U,$J,112,105,1)
;;=3.86^3.03^17.75^111.808^74.45^^^146.1^.1^11.76^115.2^182.7^95.4^.39^.051^.014^^114^0^.03
;;^UTILITY(U,$J,112,105,2)
;;=.195^.146^.368^.042^6.6^.52^.068^.044^11.8^1.886^.875^.113^28^.91^^^0
;;^UTILITY(U,$J,112,105,3)
;;=.054^.174^.234^.378^.306^.097^.036^.186^.186^.258^.14^.105^.133^.293^.808^.082^.374^.21
;;^UTILITY(U,$J,112,105,4)
;;=.076^.085^.305^.797^.068^.367^.762^0
;;^UTILITY(U,$J,112,105,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,106,0)
;;=WHEY, SWEET, FLUID^1-114^cups^246^100^N
;;^UTILITY(U,$J,112,106,1)
;;=.85^.36^5.14^26.686^93.12^^^46.8^.06^8.26^45.6^161^53.5^.13^.004^.001^^16^.1^.036
;;^UTILITY(U,$J,112,106,2)
;;=.158^.074^.383^.031^.8^.277^.008^.003^2^.23^.1^.011^4^.53^^^0
;;^UTILITY(U,$J,112,106,3)
;;=.013^.054^.047^.078^.068^.016^.017^.027^.024^.046^.025^.016^.039^.083^.148^.018^.052^.041
;;^UTILITY(U,$J,112,106,4)
;;=.006^.004^.035^.11^.011^.033^.084^0
FHINI00Q ; ; 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,98,4)
+2 ;;=.083^.093^.333^.884^.075^.412^.847^0
+3 ;;^UTILITY(U,$J,112,98,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,99,0)
+6 ;;=MILK, CHOCOLATE DRINK, FLUID, WHOLE^1-102^cups^250^100^N
+7 ;;^UTILITY(U,$J,112,99,1)
+8 ;;=3.17^3.39^10.34^83.35^82.3^^^112.1^.24^13.03^100.5^166.9^59.6^.41^.065^.077^^121^.91^.037
+9 ;;^UTILITY(U,$J,112,99,2)
+10 ;;=.162^.125^.295^.04^4.7^.334^.078^.046^12.2^2.104^.99^.124^29^.8^^^1.5
+11 ;;^UTILITY(U,$J,112,99,3)
+12 ;;=.045^.143^.192^.311^.251^.079^.029^.153^.153^.212^.115^.086^.109^.24^.664^.067^.307^.172
+13 ;;^UTILITY(U,$J,112,99,4)
+14 ;;=.078^.088^.315^.889^.071^.466^.872^0
+15 ;;^UTILITY(U,$J,112,99,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,100,0)
+18 ;;=MILK, CHOCOLATE DRINK, FLUID, LOWFAT, 2% FAT^1-103^cups^250^100^N
+19 ;;^UTILITY(U,$J,112,100,1)
+20 ;;=3.21^2^10.4^71.535^83.58^^^113.6^.24^13.2^101.7^168.8^60.2^.41^.063^.075^^200^.92^.037
+21 ;;^UTILITY(U,$J,112,100,2)
+22 ;;=.164^.126^.299^.041^4.8^.339^.047^.026^6.8^1.239^.588^.072^57^.81^^^1.5
+23 ;;^UTILITY(U,$J,112,100,3)
+24 ;;=.045^.145^.194^.314^.255^.081^.03^.155^.155^.215^.116^.087^.111^.244^.672^.068^.311^.175
+25 ;;^UTILITY(U,$J,112,100,4)
+26 ;;=.044^.049^.175^.524^.04^.297^.523^0^.4^1.9
+27 ;;^UTILITY(U,$J,112,100,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,101,0)
+30 ;;=MILK, CHOCOLATE DRINK, FLUID, LOWFAT, 1% FAT^1-104^cups^250^100^N
+31 ;;^UTILITY(U,$J,112,101,1)
+32 ;;=3.24^1^10.44^63.028^84.5^^^114.7^.24^13.33^102.6^170.2^60.7^.41^.065^.077^^200^.93^.038
+33 ;;^UTILITY(U,$J,112,101,2)
+34 ;;=.166^.127^.302^.041^4.8^.342^.024^.011^2.9^.616^.3^.035^59^.82^^^0
+35 ;;^UTILITY(U,$J,112,101,3)
+36 ;;=.046^.146^.196^.317^.257^.081^.03^.156^.156^.217^.117^.088^.112^.246^.678^.069^.314^.176
+37 ;;^UTILITY(U,$J,112,101,4)
+38 ;;=.019^.021^.075^.261^.018^.176^.271^0^^1.9
+39 ;;^UTILITY(U,$J,112,101,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,102,0)
+42 ;;=MILK, CHOCOLATE BEVERAGE, HOME MADE HOT COCOA^1-105^cups^250^100^N
+43 ;;^UTILITY(U,$J,112,102,1)
+44 ;;=3.64^3.62^10.31^87.262^81.62^^^119.3^.31^22.2^108^191.9^49.1^.49^.116^.138^^127^.96^.041
+45 ;;^UTILITY(U,$J,112,102,2)
+46 ;;=.174^.146^.323^.043^4.9^.348^.084^.048^13.3^2.244^1.06^.132^34^.81^^^1.5
+47 ;;^UTILITY(U,$J,112,102,3)
+48 ;;=.051^.164^.22^.357^.289^.091^.034^.176^.176^.244^.132^.099^.126^.276^.762^.077^.353^.198
+49 ;;^UTILITY(U,$J,112,102,4)
+50 ;;=.082^.091^.328^.949^.074^.515^.938^0
+51 ;;^UTILITY(U,$J,112,102,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,103,0)
+54 ;;=MILK, HUMAN, MATURE, FLUID^1-107^fl oz.^30.8^100^N
+55 ;;^UTILITY(U,$J,112,103,1)
+56 ;;=1.03^4.38^6.89^69.563^87.5^^^32.2^.03^3.4^13.7^51.2^16.9^.17^.052^.026^^241^5^.014
+57 ;;^UTILITY(U,$J,112,103,2)
+58 ;;=.036^.177^.223^.011^5.2^.045^.374^.052^13.9^2.009^1.658^.497^64^.2^^^0
+59 ;;^UTILITY(U,$J,112,103,3)
+60 ;;=.017^.046^.056^.095^.068^.021^.019^.046^.053^.063^.043^.023^.036^.082^.168^.026^.082^.043
+61 ;;^UTILITY(U,$J,112,103,4)
+62 ;;=.063^.256^.321^.919^.129^.293^1.475^.026^2^1.8
+63 ;;^UTILITY(U,$J,112,103,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,104,0)
+66 ;;=MILK SHAKES, THICK CHOCOLATE^1-110^oz.^28.3^100^N
+67 ;;^UTILITY(U,$J,112,104,1)
+68 ;;=3.05^2.7^21.15^118.607^72.2^^^132^.31^16^126^224^111^.48^.065^.039^^86^0^.047
+69 ;;^UTILITY(U,$J,112,104,2)
+70 ;;=.222^.124^.363^.025^4.9^.315^.061^.039^10.5^1.681^.78^.1^21^.9^^^.3
+71 ;;^UTILITY(U,$J,112,104,3)
+72 ;;=.043^.138^.185^.299^.242^.076^.028^.147^.147^.204^.11^.083^.105^.231^.639^.065^.295^.166
+73 ;;^UTILITY(U,$J,112,104,4)
+74 ;;=.068^.076^.272^.71^.06^.327^.679^0
+75 ;;^UTILITY(U,$J,112,104,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,105,0)
+78 ;;=MILK SHAKES, THICK VANILLA^1-111^oz.^28.3^100^N
+79 ;;^UTILITY(U,$J,112,105,1)
+80 ;;=3.86^3.03^17.75^111.808^74.45^^^146.1^.1^11.76^115.2^182.7^95.4^.39^.051^.014^^114^0^.03
+81 ;;^UTILITY(U,$J,112,105,2)
+82 ;;=.195^.146^.368^.042^6.6^.52^.068^.044^11.8^1.886^.875^.113^28^.91^^^0
+83 ;;^UTILITY(U,$J,112,105,3)
+84 ;;=.054^.174^.234^.378^.306^.097^.036^.186^.186^.258^.14^.105^.133^.293^.808^.082^.374^.21
+85 ;;^UTILITY(U,$J,112,105,4)
+86 ;;=.076^.085^.305^.797^.068^.367^.762^0
+87 ;;^UTILITY(U,$J,112,105,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,106,0)
+90 ;;=WHEY, SWEET, FLUID^1-114^cups^246^100^N
+91 ;;^UTILITY(U,$J,112,106,1)
+92 ;;=.85^.36^5.14^26.686^93.12^^^46.8^.06^8.26^45.6^161^53.5^.13^.004^.001^^16^.1^.036
+93 ;;^UTILITY(U,$J,112,106,2)
+94 ;;=.158^.074^.383^.031^.8^.277^.008^.003^2^.23^.1^.011^4^.53^^^0
+95 ;;^UTILITY(U,$J,112,106,3)
+96 ;;=.013^.054^.047^.078^.068^.016^.017^.027^.024^.046^.025^.016^.039^.083^.148^.018^.052^.041
+97 ;;^UTILITY(U,$J,112,106,4)
+98 ;;=.006^.004^.035^.11^.011^.033^.084^0
