FHINI00K ; ; 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,49,4)
;;=.288^.323^1.157^3.025^.258^1.394^2.893^0^^1.8
;;^UTILITY(U,$J,112,49,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,50,0)
;;=CREAM, FLUID, LIGHT, COFFEE OR TABLE^1-050^tbsp.^15^100^N
;;^UTILITY(U,$J,112,50,1)
;;=2.7^19.31^3.66^195.428^73.75^^^96.2^.04^8.65^79.9^121.7^39.6^.27^.008^.001^^720^.76^.032
;;^UTILITY(U,$J,112,50,2)
;;=.148^.057^.276^.032^2.3^.22^.436^.281^66.1^12.02^5.577^.717^182^.58^^^0
;;^UTILITY(U,$J,112,50,3)
;;=.038^.122^.163^.264^.214^.068^.025^.13^.13^.181^.098^.073^.093^.205^.565^.057^.262^.147
;;^UTILITY(U,$J,112,50,4)
;;=.484^.542^1.942^5.079^.432^2.34^4.858^0^^.6
;;^UTILITY(U,$J,112,50,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,51,0)
;;=CREAM, FLUID, MEDIUM, 25% FAT^1-051^tbsp.^15^100^N
;;^UTILITY(U,$J,112,51,1)
;;=2.47^25^3.48^243.764^68.5^^^90.2^.04^8.38^70.6^114.5^37^.26^.008^.001^^942^.71^.029
;;^UTILITY(U,$J,112,51,2)
;;=.136^.052^.27^.031^2.3^.218^.565^.364^87.5^15.562^7.221^.928^232^.55^^^0
;;^UTILITY(U,$J,112,51,3)
;;=.035^.111^.149^.242^.196^.062^.023^.119^.119^.165^.089^.067^.085^.187^.517^.052^.239^.134
;;^UTILITY(U,$J,112,51,4)
;;=.627^.702^2.514^6.576^.56^3.03^6.289^0
;;^UTILITY(U,$J,112,51,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,52,0)
;;=CREAM, FLUID, LIGHT WHIPPING^1-052^tbsp.^15^100^N
;;^UTILITY(U,$J,112,52,1)
;;=2.17^30.91^2.96^292.42^63.5^^^69.4^.03^7.23^61.1^96.8^34.3^.25^.007^.001^^1127^.61^.024
;;^UTILITY(U,$J,112,52,2)
;;=.125^.042^.259^.028^3.7^.195^.618^.266^111^19.337^9.093^.884^295^.46^^^0
;;^UTILITY(U,$J,112,52,3)
;;=.031^.098^.131^.213^.172^.054^.02^.105^.105^.145^.079^.059^.075^.165^.454^.046^.21^.118
;;^UTILITY(U,$J,112,52,4)
;;=.629^.366^3.29^8.84^1.01^3.37^7.658^0
;;^UTILITY(U,$J,112,52,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,53,0)
;;=CREAM, FLUID, HEAVY WHIPPING^1-053^tbsp.^15^100^N
;;^UTILITY(U,$J,112,53,1)
;;=2.05^37^2.79^344.781^57.71^^^64.6^.03^7.03^62.4^75.4^37.6^.23^.006^.001^^1470^.58^.022
;;^UTILITY(U,$J,112,53,2)
;;=.11^.039^.255^.026^3.7^.18^.836^.538^137.1^23.032^10.686^1.374^421^.45^^^0
;;^UTILITY(U,$J,112,53,3)
;;=.029^.093^.124^.201^.163^.051^.019^.099^.099^.137^.074^.056^.071^.156^.429^.043^.199^.111
;;^UTILITY(U,$J,112,53,4)
;;=.928^1.039^3.721^9.732^.829^4.484^9.308^0
;;^UTILITY(U,$J,112,53,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,54,0)
;;=CREAM, WHIPPED, CREAM TOPPING, PRESSURIZED^1-054^tbsp.^3^100^N
;;^UTILITY(U,$J,112,54,1)
;;=3.2^22.22^12.49^257.314^61.33^^^101^.05^10.78^89.3^147.3^130^.37^.01^.001^^913^0^.037
;;^UTILITY(U,$J,112,54,2)
;;=.065^.07^.305^.041^2.6^.292^.502^.323^76^13.831^6.418^.825^207^.76^^^0
;;^UTILITY(U,$J,112,54,3)
;;=.045^.144^.194^.313^.254^.08^.03^.154^.154^.214^.116^.087^.11^.243^.67^.068^.31^.174
;;^UTILITY(U,$J,112,54,4)
;;=.557^.624^2.235^5.844^.498^2.693^5.59^0
;;^UTILITY(U,$J,112,54,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,55,0)
;;=CREAM, SOUR HALF & HALF, CULTURED^1-055^tbsp.^15^100^N
;;^UTILITY(U,$J,112,55,1)
;;=2.94^12^4.26^134.52^80.14^^^104.4^.07^10.1^94.8^128.9^40.5^.5^.016^.003^^452^.86^.035
;;^UTILITY(U,$J,112,55,2)
;;=.149^.067^.363^.016^10.8^.3^.271^.175^38.5^7.47^3.466^.446^112^.66^^^0
;;^UTILITY(U,$J,112,55,3)
;;=.041^.133^.178^.288^.233^.074^.027^.142^.142^.197^.106^.08^.101^.223^.616^.063^.285^.16
;;^UTILITY(U,$J,112,55,4)
;;=.301^.337^1.207^3.156^.269^1.454^3.019^0
;;^UTILITY(U,$J,112,55,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,56,0)
;;=SOUR CREAM^1-056^tbsp.^12^100^N
;;^UTILITY(U,$J,112,56,1)
;;=3.16^20.96^4.27^214.257^70.95^^^116.4^.06^11.23^84.9^144^53.3^.27^.019^.003^^790^.86^.035
;;^UTILITY(U,$J,112,56,2)
;;=.149^.067^.36^.016^10.8^.3^.473^.305^44.4^13.047^6.054^.778^195^.66^^^0
;;^UTILITY(U,$J,112,56,3)
;;=.044^.143^.191^.309^.251^.08^.029^.153^.153^.211^.114^.085^.109^.24^.662^.067^.306^.172
;;^UTILITY(U,$J,112,56,4)
;;=.526^.588^2.108^5.513^.469^2.54^5.273^0^1^2.2
;;^UTILITY(U,$J,112,56,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,57,0)
;;=EGGNOG^1-057^cups^254^100^N
;;^UTILITY(U,$J,112,57,1)
;;=3.81^7.48^13.54^134.605^74.37^^^130^.2^18.5^109.4^165.2^54.4^.46^.013^.005^^352^1.5^.034
;;^UTILITY(U,$J,112,57,2)
;;=.19^.105^.417^.05^.9^.45^.227^.101^58.7^4.443^2.233^.339^80^.8^^^0
;;^UTILITY(U,$J,112,57,3)
;;=.054^.175^.23^.369^.298^.087^.038^.182^.182^.253^.149^.095^.136^.291^.769^.084^.35^.217
;;^UTILITY(U,$J,112,57,4)
;;=.171^.192^.688^1.94^.174^.877^1.958^.006
;;^UTILITY(U,$J,112,57,20)
;;=USDA Std. Reference, Release 10
FHINI00K ; ; 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,49,4)
+2 ;;=.288^.323^1.157^3.025^.258^1.394^2.893^0^^1.8
+3 ;;^UTILITY(U,$J,112,49,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,50,0)
+6 ;;=CREAM, FLUID, LIGHT, COFFEE OR TABLE^1-050^tbsp.^15^100^N
+7 ;;^UTILITY(U,$J,112,50,1)
+8 ;;=2.7^19.31^3.66^195.428^73.75^^^96.2^.04^8.65^79.9^121.7^39.6^.27^.008^.001^^720^.76^.032
+9 ;;^UTILITY(U,$J,112,50,2)
+10 ;;=.148^.057^.276^.032^2.3^.22^.436^.281^66.1^12.02^5.577^.717^182^.58^^^0
+11 ;;^UTILITY(U,$J,112,50,3)
+12 ;;=.038^.122^.163^.264^.214^.068^.025^.13^.13^.181^.098^.073^.093^.205^.565^.057^.262^.147
+13 ;;^UTILITY(U,$J,112,50,4)
+14 ;;=.484^.542^1.942^5.079^.432^2.34^4.858^0^^.6
+15 ;;^UTILITY(U,$J,112,50,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,51,0)
+18 ;;=CREAM, FLUID, MEDIUM, 25% FAT^1-051^tbsp.^15^100^N
+19 ;;^UTILITY(U,$J,112,51,1)
+20 ;;=2.47^25^3.48^243.764^68.5^^^90.2^.04^8.38^70.6^114.5^37^.26^.008^.001^^942^.71^.029
+21 ;;^UTILITY(U,$J,112,51,2)
+22 ;;=.136^.052^.27^.031^2.3^.218^.565^.364^87.5^15.562^7.221^.928^232^.55^^^0
+23 ;;^UTILITY(U,$J,112,51,3)
+24 ;;=.035^.111^.149^.242^.196^.062^.023^.119^.119^.165^.089^.067^.085^.187^.517^.052^.239^.134
+25 ;;^UTILITY(U,$J,112,51,4)
+26 ;;=.627^.702^2.514^6.576^.56^3.03^6.289^0
+27 ;;^UTILITY(U,$J,112,51,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,52,0)
+30 ;;=CREAM, FLUID, LIGHT WHIPPING^1-052^tbsp.^15^100^N
+31 ;;^UTILITY(U,$J,112,52,1)
+32 ;;=2.17^30.91^2.96^292.42^63.5^^^69.4^.03^7.23^61.1^96.8^34.3^.25^.007^.001^^1127^.61^.024
+33 ;;^UTILITY(U,$J,112,52,2)
+34 ;;=.125^.042^.259^.028^3.7^.195^.618^.266^111^19.337^9.093^.884^295^.46^^^0
+35 ;;^UTILITY(U,$J,112,52,3)
+36 ;;=.031^.098^.131^.213^.172^.054^.02^.105^.105^.145^.079^.059^.075^.165^.454^.046^.21^.118
+37 ;;^UTILITY(U,$J,112,52,4)
+38 ;;=.629^.366^3.29^8.84^1.01^3.37^7.658^0
+39 ;;^UTILITY(U,$J,112,52,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,53,0)
+42 ;;=CREAM, FLUID, HEAVY WHIPPING^1-053^tbsp.^15^100^N
+43 ;;^UTILITY(U,$J,112,53,1)
+44 ;;=2.05^37^2.79^344.781^57.71^^^64.6^.03^7.03^62.4^75.4^37.6^.23^.006^.001^^1470^.58^.022
+45 ;;^UTILITY(U,$J,112,53,2)
+46 ;;=.11^.039^.255^.026^3.7^.18^.836^.538^137.1^23.032^10.686^1.374^421^.45^^^0
+47 ;;^UTILITY(U,$J,112,53,3)
+48 ;;=.029^.093^.124^.201^.163^.051^.019^.099^.099^.137^.074^.056^.071^.156^.429^.043^.199^.111
+49 ;;^UTILITY(U,$J,112,53,4)
+50 ;;=.928^1.039^3.721^9.732^.829^4.484^9.308^0
+51 ;;^UTILITY(U,$J,112,53,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,54,0)
+54 ;;=CREAM, WHIPPED, CREAM TOPPING, PRESSURIZED^1-054^tbsp.^3^100^N
+55 ;;^UTILITY(U,$J,112,54,1)
+56 ;;=3.2^22.22^12.49^257.314^61.33^^^101^.05^10.78^89.3^147.3^130^.37^.01^.001^^913^0^.037
+57 ;;^UTILITY(U,$J,112,54,2)
+58 ;;=.065^.07^.305^.041^2.6^.292^.502^.323^76^13.831^6.418^.825^207^.76^^^0
+59 ;;^UTILITY(U,$J,112,54,3)
+60 ;;=.045^.144^.194^.313^.254^.08^.03^.154^.154^.214^.116^.087^.11^.243^.67^.068^.31^.174
+61 ;;^UTILITY(U,$J,112,54,4)
+62 ;;=.557^.624^2.235^5.844^.498^2.693^5.59^0
+63 ;;^UTILITY(U,$J,112,54,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,55,0)
+66 ;;=CREAM, SOUR HALF & HALF, CULTURED^1-055^tbsp.^15^100^N
+67 ;;^UTILITY(U,$J,112,55,1)
+68 ;;=2.94^12^4.26^134.52^80.14^^^104.4^.07^10.1^94.8^128.9^40.5^.5^.016^.003^^452^.86^.035
+69 ;;^UTILITY(U,$J,112,55,2)
+70 ;;=.149^.067^.363^.016^10.8^.3^.271^.175^38.5^7.47^3.466^.446^112^.66^^^0
+71 ;;^UTILITY(U,$J,112,55,3)
+72 ;;=.041^.133^.178^.288^.233^.074^.027^.142^.142^.197^.106^.08^.101^.223^.616^.063^.285^.16
+73 ;;^UTILITY(U,$J,112,55,4)
+74 ;;=.301^.337^1.207^3.156^.269^1.454^3.019^0
+75 ;;^UTILITY(U,$J,112,55,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,56,0)
+78 ;;=SOUR CREAM^1-056^tbsp.^12^100^N
+79 ;;^UTILITY(U,$J,112,56,1)
+80 ;;=3.16^20.96^4.27^214.257^70.95^^^116.4^.06^11.23^84.9^144^53.3^.27^.019^.003^^790^.86^.035
+81 ;;^UTILITY(U,$J,112,56,2)
+82 ;;=.149^.067^.36^.016^10.8^.3^.473^.305^44.4^13.047^6.054^.778^195^.66^^^0
+83 ;;^UTILITY(U,$J,112,56,3)
+84 ;;=.044^.143^.191^.309^.251^.08^.029^.153^.153^.211^.114^.085^.109^.24^.662^.067^.306^.172
+85 ;;^UTILITY(U,$J,112,56,4)
+86 ;;=.526^.588^2.108^5.513^.469^2.54^5.273^0^1^2.2
+87 ;;^UTILITY(U,$J,112,56,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,57,0)
+90 ;;=EGGNOG^1-057^cups^254^100^N
+91 ;;^UTILITY(U,$J,112,57,1)
+92 ;;=3.81^7.48^13.54^134.605^74.37^^^130^.2^18.5^109.4^165.2^54.4^.46^.013^.005^^352^1.5^.034
+93 ;;^UTILITY(U,$J,112,57,2)
+94 ;;=.19^.105^.417^.05^.9^.45^.227^.101^58.7^4.443^2.233^.339^80^.8^^^0
+95 ;;^UTILITY(U,$J,112,57,3)
+96 ;;=.054^.175^.23^.369^.298^.087^.038^.182^.182^.253^.149^.095^.136^.291^.769^.084^.35^.217
+97 ;;^UTILITY(U,$J,112,57,4)
+98 ;;=.171^.192^.688^1.94^.174^.877^1.958^.006
+99 ;;^UTILITY(U,$J,112,57,20)
+100 ;;=USDA Std. Reference, Release 10
