FHINI038 ; ; 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,1006,0)
;;=COOKIES, BUTTER, THIN, RICH^18-155^cookies^5^100^N
;;^UTILITY(U,$J,112,1006,1)
;;=6.1^18.8^68.9^467^4.6^^^29^2.22^12^102^111^351^.38^.2^.17^^600^0^.37
;;^UTILITY(U,$J,112,1006,2)
;;=.335^3.19^.488^.036^6^.25^.698^.272^87^10.704^5.17^.992^151^1.5^^^2.4
;;^UTILITY(U,$J,112,1006,3)
;;=.084^.215^.277^.471^.308^.131^.122^.299^.211^.315^.261^.136^.224^.371^1.618^.194^.566^.354
;;^UTILITY(U,$J,112,1006,4)
;;=.43^.481^1.723^4.824^.415^2.177^4.751^.017
;;^UTILITY(U,$J,112,1006,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1007,0)
;;=COOKIES, CHOCOLATE^18-157^cookies^9^100^N
;;^UTILITY(U,$J,112,1007,1)
;;=6.6^14.2^72.4^433^4.5^^^31^4.01^53^132^210^580^1.09^.463^.696^^8^0^.203
;;^UTILITY(U,$J,112,1007,2)
;;=.266^2.858^.343^.036^11^.06^1.665^.033^2^3.65^7.569^1.702^2^2
;;^UTILITY(U,$J,112,1007,3)
;;=.096^.22^.261^.447^.281^.105^.127^.308^.205^.323^.286^.128^.238^.407^1.753^.236^.577^.335
;;^UTILITY(U,$J,112,1007,4)
;;=.001^.001^.006^1.842^.024^1.732^7.545^.003
;;^UTILITY(U,$J,112,1007,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1008,0)
;;=COOKIES, CHOCOLATE CHIP, HOME RECIPE, ENR^18-165^cookies^10^100^N
;;^UTILITY(U,$J,112,1008,1)
;;=5.7^28.3^58.4^488^5.7^^^39^2.46^55^100^224^361^.93^.383^.663^^636^.3^.185
;;^UTILITY(U,$J,112,1008,2)
;;=.178^1.362^.255^.085^13^.08^7.565^.829^32^8.074^10.377^8.41^164^1.5
;;^UTILITY(U,$J,112,1008,3)
;;=.072^.191^.224^.392^.214^.106^.111^.271^.188^.279^.377^.123^.227^.424^1.285^.223^.399^.298
;;^UTILITY(U,$J,112,1008,4)
;;=0^0^.068^4.361^.038^3.582^10.288^.013
;;^UTILITY(U,$J,112,1008,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1009,0)
;;=COOKIES, CHOCOLATE CHIP, COMMERCIAL^18-159^cookies^7.3^100^N
;;^UTILITY(U,$J,112,1009,1)
;;=5.4^22.6^66.8^481^4.1^^^25^2.81^31^108^135^315^.64^.212^.449^^4^0^.221
;;^UTILITY(U,$J,112,1009,2)
;;=.284^2.718^.229^.056^9^.01^2.128^.11^0^7.8^11.463^2.238^0^1.1^^^2.5
;;^UTILITY(U,$J,112,1009,3)
;;=.073^.168^.222^.396^.219^.095^.095^.261^.173^.261^.191^.102^.168^.277^1.602^.168^.557^.272
;;^UTILITY(U,$J,112,1009,4)
;;=^^.088^3.705^.013^4.006^11.45^^^6
;;^UTILITY(U,$J,112,1009,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1010,0)
;;=COOKIES, COCONUT BARS^819-0^cookies^9^100^N
;;^UTILITY(U,$J,112,1010,1)
;;=6.2^24.5^63.9^494^3.8^^^72^3.2^^120^228^148^^^^^160^0^.19
;;^UTILITY(U,$J,112,1010,2)
;;=.17^1.7^^^^^4.04^^109^9.38^^^^1.6
;;^UTILITY(U,$J,112,1010,4)
;;=^^^^^^9.85
;;^UTILITY(U,$J,112,1010,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1011,0)
;;=COOKIES, FIG BARS^18-170^cookies^14^100^N
;;^UTILITY(U,$J,112,1011,1)
;;=3.7^7.3^70.9^348^16.5^^^64^2.9^27^62^207^350^.39^.147^.343^^44^.2^.158
;;^UTILITY(U,$J,112,1011,2)
;;=.217^1.874^.364^.075^10^.02^1.233^.021^0^1.339^3.996^1.254^4^1.6^^^4.6
;;^UTILITY(U,$J,112,1011,3)
;;=.046^.113^.132^.224^.14^.053^.073^.145^.122^.155^.121^.067^.148^.387^.914^.122^.347^.189
;;^UTILITY(U,$J,112,1011,4)
;;=0^0^.006^.766^.008^.526^3.988^^^3.3
;;^UTILITY(U,$J,112,1011,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1012,0)
;;=COOKIES, GINGERSNAPS^18-172^cookies^7^100^N
;;^UTILITY(U,$J,112,1012,1)
;;=5.6^9.8^76.9^416^5.3^^^77^6.4^49^83^346^654^.55^.305^1.555^^1^0^.2
;;^UTILITY(U,$J,112,1012,2)
;;=.293^3.235^.339^.183^6^0^1.373^.031^0^1.774^5.616^1.404^0^2.4^^^1.5
;;^UTILITY(U,$J,112,1012,3)
;;=.08^.155^.212^.38^.195^.094^.12^.263^.159^.248^.213^.114^.169^.248^1.825^.189^.614^.292
;;^UTILITY(U,$J,112,1012,4)
;;=.002^.002^.002^.982^.01^.728^5.606
;;^UTILITY(U,$J,112,1012,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1013,0)
;;=COOKIES, LADYFINGERS^18-175^fingers^11^100^N
;;^UTILITY(U,$J,112,1013,1)
;;=10.6^9.1^59.7^365^19.5^^^47^3.58^12^173^113^147^1.14^.095^.24^^556^3.7^.284
;;^UTILITY(U,$J,112,1013,2)
;;=.428^2.104^1.116^.122^37^.75^1.129^.037^365^2.765^3.369^1.326^167^1.1
;;^UTILITY(U,$J,112,1013,3)
;;=.133^.467^.516^.861^.679^.268^.224^.511^.408^.579^.61^.248^.502^.888^1.92^.346^.625^.761
;;^UTILITY(U,$J,112,1013,4)
;;=.003^.003^.03^1.993^.262^.69^3.073^.125
;;^UTILITY(U,$J,112,1013,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1014,0)
;;=COOKIES, MACAROONS^18-169^cookies^19^100^N
;;^UTILITY(U,$J,112,1014,1)
;;=3.6^12.7^72.2^404^10.6^^^7^.75^21^43^156^247^.71^.143^.947^^0^0^.011
;;^UTILITY(U,$J,112,1014,2)
;;=.11^.13^.27^.099^3^.03^.141^^0^11.236^.549^.141^0^1
;;^UTILITY(U,$J,112,1014,3)
;;=.041^.143^.171^.273^.203^.099^.081^.188^.122^.211^.303^.076^.187^.338^.552^.131^.133^.213
FHINI038 ; ; 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,1006,0)
+2 ;;=COOKIES, BUTTER, THIN, RICH^18-155^cookies^5^100^N
+3 ;;^UTILITY(U,$J,112,1006,1)
+4 ;;=6.1^18.8^68.9^467^4.6^^^29^2.22^12^102^111^351^.38^.2^.17^^600^0^.37
+5 ;;^UTILITY(U,$J,112,1006,2)
+6 ;;=.335^3.19^.488^.036^6^.25^.698^.272^87^10.704^5.17^.992^151^1.5^^^2.4
+7 ;;^UTILITY(U,$J,112,1006,3)
+8 ;;=.084^.215^.277^.471^.308^.131^.122^.299^.211^.315^.261^.136^.224^.371^1.618^.194^.566^.354
+9 ;;^UTILITY(U,$J,112,1006,4)
+10 ;;=.43^.481^1.723^4.824^.415^2.177^4.751^.017
+11 ;;^UTILITY(U,$J,112,1006,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,1007,0)
+14 ;;=COOKIES, CHOCOLATE^18-157^cookies^9^100^N
+15 ;;^UTILITY(U,$J,112,1007,1)
+16 ;;=6.6^14.2^72.4^433^4.5^^^31^4.01^53^132^210^580^1.09^.463^.696^^8^0^.203
+17 ;;^UTILITY(U,$J,112,1007,2)
+18 ;;=.266^2.858^.343^.036^11^.06^1.665^.033^2^3.65^7.569^1.702^2^2
+19 ;;^UTILITY(U,$J,112,1007,3)
+20 ;;=.096^.22^.261^.447^.281^.105^.127^.308^.205^.323^.286^.128^.238^.407^1.753^.236^.577^.335
+21 ;;^UTILITY(U,$J,112,1007,4)
+22 ;;=.001^.001^.006^1.842^.024^1.732^7.545^.003
+23 ;;^UTILITY(U,$J,112,1007,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,1008,0)
+26 ;;=COOKIES, CHOCOLATE CHIP, HOME RECIPE, ENR^18-165^cookies^10^100^N
+27 ;;^UTILITY(U,$J,112,1008,1)
+28 ;;=5.7^28.3^58.4^488^5.7^^^39^2.46^55^100^224^361^.93^.383^.663^^636^.3^.185
+29 ;;^UTILITY(U,$J,112,1008,2)
+30 ;;=.178^1.362^.255^.085^13^.08^7.565^.829^32^8.074^10.377^8.41^164^1.5
+31 ;;^UTILITY(U,$J,112,1008,3)
+32 ;;=.072^.191^.224^.392^.214^.106^.111^.271^.188^.279^.377^.123^.227^.424^1.285^.223^.399^.298
+33 ;;^UTILITY(U,$J,112,1008,4)
+34 ;;=0^0^.068^4.361^.038^3.582^10.288^.013
+35 ;;^UTILITY(U,$J,112,1008,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,1009,0)
+38 ;;=COOKIES, CHOCOLATE CHIP, COMMERCIAL^18-159^cookies^7.3^100^N
+39 ;;^UTILITY(U,$J,112,1009,1)
+40 ;;=5.4^22.6^66.8^481^4.1^^^25^2.81^31^108^135^315^.64^.212^.449^^4^0^.221
+41 ;;^UTILITY(U,$J,112,1009,2)
+42 ;;=.284^2.718^.229^.056^9^.01^2.128^.11^0^7.8^11.463^2.238^0^1.1^^^2.5
+43 ;;^UTILITY(U,$J,112,1009,3)
+44 ;;=.073^.168^.222^.396^.219^.095^.095^.261^.173^.261^.191^.102^.168^.277^1.602^.168^.557^.272
+45 ;;^UTILITY(U,$J,112,1009,4)
+46 ;;=^^.088^3.705^.013^4.006^11.45^^^6
+47 ;;^UTILITY(U,$J,112,1009,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,1010,0)
+50 ;;=COOKIES, COCONUT BARS^819-0^cookies^9^100^N
+51 ;;^UTILITY(U,$J,112,1010,1)
+52 ;;=6.2^24.5^63.9^494^3.8^^^72^3.2^^120^228^148^^^^^160^0^.19
+53 ;;^UTILITY(U,$J,112,1010,2)
+54 ;;=.17^1.7^^^^^4.04^^109^9.38^^^^1.6
+55 ;;^UTILITY(U,$J,112,1010,4)
+56 ;;=^^^^^^9.85
+57 ;;^UTILITY(U,$J,112,1010,20)
+58 ;;=USDA Std. Reference, Release 8
+59 ;;^UTILITY(U,$J,112,1011,0)
+60 ;;=COOKIES, FIG BARS^18-170^cookies^14^100^N
+61 ;;^UTILITY(U,$J,112,1011,1)
+62 ;;=3.7^7.3^70.9^348^16.5^^^64^2.9^27^62^207^350^.39^.147^.343^^44^.2^.158
+63 ;;^UTILITY(U,$J,112,1011,2)
+64 ;;=.217^1.874^.364^.075^10^.02^1.233^.021^0^1.339^3.996^1.254^4^1.6^^^4.6
+65 ;;^UTILITY(U,$J,112,1011,3)
+66 ;;=.046^.113^.132^.224^.14^.053^.073^.145^.122^.155^.121^.067^.148^.387^.914^.122^.347^.189
+67 ;;^UTILITY(U,$J,112,1011,4)
+68 ;;=0^0^.006^.766^.008^.526^3.988^^^3.3
+69 ;;^UTILITY(U,$J,112,1011,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,1012,0)
+72 ;;=COOKIES, GINGERSNAPS^18-172^cookies^7^100^N
+73 ;;^UTILITY(U,$J,112,1012,1)
+74 ;;=5.6^9.8^76.9^416^5.3^^^77^6.4^49^83^346^654^.55^.305^1.555^^1^0^.2
+75 ;;^UTILITY(U,$J,112,1012,2)
+76 ;;=.293^3.235^.339^.183^6^0^1.373^.031^0^1.774^5.616^1.404^0^2.4^^^1.5
+77 ;;^UTILITY(U,$J,112,1012,3)
+78 ;;=.08^.155^.212^.38^.195^.094^.12^.263^.159^.248^.213^.114^.169^.248^1.825^.189^.614^.292
+79 ;;^UTILITY(U,$J,112,1012,4)
+80 ;;=.002^.002^.002^.982^.01^.728^5.606
+81 ;;^UTILITY(U,$J,112,1012,20)
+82 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+83 ;;^UTILITY(U,$J,112,1013,0)
+84 ;;=COOKIES, LADYFINGERS^18-175^fingers^11^100^N
+85 ;;^UTILITY(U,$J,112,1013,1)
+86 ;;=10.6^9.1^59.7^365^19.5^^^47^3.58^12^173^113^147^1.14^.095^.24^^556^3.7^.284
+87 ;;^UTILITY(U,$J,112,1013,2)
+88 ;;=.428^2.104^1.116^.122^37^.75^1.129^.037^365^2.765^3.369^1.326^167^1.1
+89 ;;^UTILITY(U,$J,112,1013,3)
+90 ;;=.133^.467^.516^.861^.679^.268^.224^.511^.408^.579^.61^.248^.502^.888^1.92^.346^.625^.761
+91 ;;^UTILITY(U,$J,112,1013,4)
+92 ;;=.003^.003^.03^1.993^.262^.69^3.073^.125
+93 ;;^UTILITY(U,$J,112,1013,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,1014,0)
+96 ;;=COOKIES, MACAROONS^18-169^cookies^19^100^N
+97 ;;^UTILITY(U,$J,112,1014,1)
+98 ;;=3.6^12.7^72.2^404^10.6^^^7^.75^21^43^156^247^.71^.143^.947^^0^0^.011
+99 ;;^UTILITY(U,$J,112,1014,2)
+100 ;;=.11^.13^.27^.099^3^.03^.141^^0^11.236^.549^.141^0^1
+101 ;;^UTILITY(U,$J,112,1014,3)
+102 ;;=.041^.143^.171^.273^.203^.099^.081^.188^.122^.211^.303^.076^.187^.338^.552^.131^.133^.213
