FHINI039 ; ; 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,1014,4)
;;=.697^5.614^2.235^1.089^^.669^.549
;;^UTILITY(U,$J,112,1014,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1015,0)
;;=COOKIES, MARSHMALLOW^18-176^cookies^18^100^N
;;^UTILITY(U,$J,112,1015,1)
;;=4^16.9^67.7^421^10.1^^^46^2.53^36^97^182^168^.65^.262^.285^^3^1.3^.093
;;^UTILITY(U,$J,112,1015,2)
;;=.208^.784^.329^.038^4^.12^1.871^.099^0^4.676^9.476^1.97^1^1.1
;;^UTILITY(U,$J,112,1015,3)
;;=.036^.128^.127^.225^.197^.049^.043^.142^.083^.17^.242^.059^.265^.294^.742^.487^.442^.172
;;^UTILITY(U,$J,112,1015,4)
;;=.001^.001^.085^2.334^.004^2.251^9.472
;;^UTILITY(U,$J,112,1015,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1016,0)
;;=COOKIES, MOLASSES^18-177^cookies^32.5^100^N
;;^UTILITY(U,$J,112,1016,1)
;;=5.6^12.8^73.8^430^5.8^^^74^6.43^52^95^346^459^.45^.373^1.257^^1^0^.355
;;^UTILITY(U,$J,112,1016,2)
;;=.264^3.031^.425^.241^7^0^1.771^.036^0^2.316^7.403^1.807^0^2
;;^UTILITY(U,$J,112,1016,3)
;;=.08^.154^.21^.377^.193^.094^.12^.263^.158^.244^.212^.113^.167^.238^1.824^.188^.614^.291
;;^UTILITY(U,$J,112,1016,4)
;;=.001^.001^.001^1.278^.013^.96^7.39
;;^UTILITY(U,$J,112,1016,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1017,0)
;;=COOKIES, OATMEAL, W/RAISINS^18-178^cookies^13^100^N
;;^UTILITY(U,$J,112,1017,1)
;;=6.2^18.1^68.7^450^5.7^^^37^2.58^33^138^142^383^.79^.134^.839^^16^.4^.267
;;^UTILITY(U,$J,112,1017,2)
;;=.23^2.227^.207^.054^7^0^2.657^.063^0^3.326^10.387^2.721^2^1.4^^^3.1
;;^UTILITY(U,$J,112,1017,3)
;;=.099^.174^.221^.431^.237^.12^.168^.295^.202^.298^.365^.144^.255^.452^1.618^.272^.476^.317
;;^UTILITY(U,$J,112,1017,4)
;;=^^.004^1.905^.02^1.32^10.367^^^9.8
;;^UTILITY(U,$J,112,1017,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1018,0)
;;=COOKIES, PEANUT^18-185^cookies^12.25^100^N
;;^UTILITY(U,$J,112,1018,1)
;;=9.6^23.6^58.9^477^6.1^^^35^2.51^45^86^167^415^.53^.2^.28^^29^0^.17
;;^UTILITY(U,$J,112,1018,2)
;;=.18^4.27^.437^.07^32^.05^7.694^.449^1^5.341^8.783^8.153^9^1.8
;;^UTILITY(U,$J,112,1018,3)
;;=.11^.323^.363^.652^.38^.148^.16^.485^.353^.425^.852^.225^.37^.922^2.271^.477^.612^.504
;;^UTILITY(U,$J,112,1018,4)
;;=0^0^.069^4.331^.052^.938^8.609^.008^^5.9
;;^UTILITY(U,$J,112,1018,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1019,0)
;;=COOKIES, RAISIN^828-0^cookies^14.25^100^N
;;^UTILITY(U,$J,112,1019,1)
;;=4.4^5.3^80.8^379^8.2^^^71^3.6^^157^272^52^^^^^210^.3^.24
;;^UTILITY(U,$J,112,1019,2)
;;=.22^2.3^^^^^1.04^^39^1.44^^^^1.3
;;^UTILITY(U,$J,112,1019,4)
;;=^^^^^^2.49
;;^UTILITY(U,$J,112,1019,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1020,0)
;;=COOKIES, SANDWICH TYPE^829-0^cookies^10^100^N
;;^UTILITY(U,$J,112,1020,1)
;;=4.8^22.5^69.3^495^2.2^^^26^2^^241^38^483^^^^^0^0^.23
;;^UTILITY(U,$J,112,1020,2)
;;=.17^2.1^^^^^4.66^^39^6.09^^^^1.2
;;^UTILITY(U,$J,112,1020,4)
;;=^^^^^^10.97
;;^UTILITY(U,$J,112,1020,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1021,0)
;;=COOKIES, SHORTBREAD^18-192^cookies^7.5^100^N
;;^UTILITY(U,$J,112,1021,1)
;;=6.1^24.1^64.5^502^3.7^^^35^2.74^17^108^100^455^.53^.144^.428^^39^0^.33
;;^UTILITY(U,$J,112,1021,2)
;;=.329^3.339^.302^.025^9^.07^2.931^.153^20^6.151^13.523^3.1^12^1.5
;;^UTILITY(U,$J,112,1021,3)
;;=.084^.195^.251^.451^.253^.119^.134^.295^.191^.29^.259^.131^.224^.327^1.768^.208^.598^.343
;;^UTILITY(U,$J,112,1021,4)
;;=0^0^.117^3.219^.029^2.811^13.491^.013
;;^UTILITY(U,$J,112,1021,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1022,0)
;;=COOKIES, SUGAR, ENR, HOME RECIPE^18-208^cookies^8^100^N
;;^UTILITY(U,$J,112,1022,1)
;;=5.9^23.4^60^472^8.9^^^73^2.33^12^90^77^491^.42^.078^.316^^964^.1^.294
;;^UTILITY(U,$J,112,1022,2)
;;=.257^2.443^.24^.03^11^.09^6.962^.318^26^4.69^10.189^7.29^250^1.8
;;^UTILITY(U,$J,112,1022,3)
;;=.073^.184^.23^.43^.192^.118^.122^.298^.193^.264^.251^.134^.208^.307^1.775^.204^.618^.315
;;^UTILITY(U,$J,112,1022,4)
;;=.003^.003^.068^2.911^.021^1.694^10.166^.009
;;^UTILITY(U,$J,112,1022,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1023,0)
;;=COOKIES, SUGAR WAFERS^18-209^cookies^3.5^100^N
;;^UTILITY(U,$J,112,1023,1)
;;=4.1^24.3^70.1^511^1^^^18^1.95^11^56^59^147^.35^.091^.276^^0^0^.102
;;^UTILITY(U,$J,112,1023,2)
;;=.196^2.432^.178^.014^7^0^3.226^.054^0^4.403^14.313^3.28^0^.5
;;^UTILITY(U,$J,112,1023,3)
;;=.059^.115^.156^.281^.144^.07^.089^.194^.118^.181^.156^.083^.126^.174^1.344^.138^.453^.215
;;^UTILITY(U,$J,112,1023,4)
;;=^^0^2.404^.024^1.859^14.289
;;^UTILITY(U,$J,112,1023,20)
;;=USDA Std. Reference, Release 10
FHINI039 ; ; 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,1014,4)
+2 ;;=.697^5.614^2.235^1.089^^.669^.549
+3 ;;^UTILITY(U,$J,112,1014,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,1015,0)
+6 ;;=COOKIES, MARSHMALLOW^18-176^cookies^18^100^N
+7 ;;^UTILITY(U,$J,112,1015,1)
+8 ;;=4^16.9^67.7^421^10.1^^^46^2.53^36^97^182^168^.65^.262^.285^^3^1.3^.093
+9 ;;^UTILITY(U,$J,112,1015,2)
+10 ;;=.208^.784^.329^.038^4^.12^1.871^.099^0^4.676^9.476^1.97^1^1.1
+11 ;;^UTILITY(U,$J,112,1015,3)
+12 ;;=.036^.128^.127^.225^.197^.049^.043^.142^.083^.17^.242^.059^.265^.294^.742^.487^.442^.172
+13 ;;^UTILITY(U,$J,112,1015,4)
+14 ;;=.001^.001^.085^2.334^.004^2.251^9.472
+15 ;;^UTILITY(U,$J,112,1015,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,1016,0)
+18 ;;=COOKIES, MOLASSES^18-177^cookies^32.5^100^N
+19 ;;^UTILITY(U,$J,112,1016,1)
+20 ;;=5.6^12.8^73.8^430^5.8^^^74^6.43^52^95^346^459^.45^.373^1.257^^1^0^.355
+21 ;;^UTILITY(U,$J,112,1016,2)
+22 ;;=.264^3.031^.425^.241^7^0^1.771^.036^0^2.316^7.403^1.807^0^2
+23 ;;^UTILITY(U,$J,112,1016,3)
+24 ;;=.08^.154^.21^.377^.193^.094^.12^.263^.158^.244^.212^.113^.167^.238^1.824^.188^.614^.291
+25 ;;^UTILITY(U,$J,112,1016,4)
+26 ;;=.001^.001^.001^1.278^.013^.96^7.39
+27 ;;^UTILITY(U,$J,112,1016,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,1017,0)
+30 ;;=COOKIES, OATMEAL, W/RAISINS^18-178^cookies^13^100^N
+31 ;;^UTILITY(U,$J,112,1017,1)
+32 ;;=6.2^18.1^68.7^450^5.7^^^37^2.58^33^138^142^383^.79^.134^.839^^16^.4^.267
+33 ;;^UTILITY(U,$J,112,1017,2)
+34 ;;=.23^2.227^.207^.054^7^0^2.657^.063^0^3.326^10.387^2.721^2^1.4^^^3.1
+35 ;;^UTILITY(U,$J,112,1017,3)
+36 ;;=.099^.174^.221^.431^.237^.12^.168^.295^.202^.298^.365^.144^.255^.452^1.618^.272^.476^.317
+37 ;;^UTILITY(U,$J,112,1017,4)
+38 ;;=^^.004^1.905^.02^1.32^10.367^^^9.8
+39 ;;^UTILITY(U,$J,112,1017,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,1018,0)
+42 ;;=COOKIES, PEANUT^18-185^cookies^12.25^100^N
+43 ;;^UTILITY(U,$J,112,1018,1)
+44 ;;=9.6^23.6^58.9^477^6.1^^^35^2.51^45^86^167^415^.53^.2^.28^^29^0^.17
+45 ;;^UTILITY(U,$J,112,1018,2)
+46 ;;=.18^4.27^.437^.07^32^.05^7.694^.449^1^5.341^8.783^8.153^9^1.8
+47 ;;^UTILITY(U,$J,112,1018,3)
+48 ;;=.11^.323^.363^.652^.38^.148^.16^.485^.353^.425^.852^.225^.37^.922^2.271^.477^.612^.504
+49 ;;^UTILITY(U,$J,112,1018,4)
+50 ;;=0^0^.069^4.331^.052^.938^8.609^.008^^5.9
+51 ;;^UTILITY(U,$J,112,1018,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,1019,0)
+54 ;;=COOKIES, RAISIN^828-0^cookies^14.25^100^N
+55 ;;^UTILITY(U,$J,112,1019,1)
+56 ;;=4.4^5.3^80.8^379^8.2^^^71^3.6^^157^272^52^^^^^210^.3^.24
+57 ;;^UTILITY(U,$J,112,1019,2)
+58 ;;=.22^2.3^^^^^1.04^^39^1.44^^^^1.3
+59 ;;^UTILITY(U,$J,112,1019,4)
+60 ;;=^^^^^^2.49
+61 ;;^UTILITY(U,$J,112,1019,20)
+62 ;;=USDA Std. Reference, Release 8
+63 ;;^UTILITY(U,$J,112,1020,0)
+64 ;;=COOKIES, SANDWICH TYPE^829-0^cookies^10^100^N
+65 ;;^UTILITY(U,$J,112,1020,1)
+66 ;;=4.8^22.5^69.3^495^2.2^^^26^2^^241^38^483^^^^^0^0^.23
+67 ;;^UTILITY(U,$J,112,1020,2)
+68 ;;=.17^2.1^^^^^4.66^^39^6.09^^^^1.2
+69 ;;^UTILITY(U,$J,112,1020,4)
+70 ;;=^^^^^^10.97
+71 ;;^UTILITY(U,$J,112,1020,20)
+72 ;;=USDA Std. Reference, Release 8
+73 ;;^UTILITY(U,$J,112,1021,0)
+74 ;;=COOKIES, SHORTBREAD^18-192^cookies^7.5^100^N
+75 ;;^UTILITY(U,$J,112,1021,1)
+76 ;;=6.1^24.1^64.5^502^3.7^^^35^2.74^17^108^100^455^.53^.144^.428^^39^0^.33
+77 ;;^UTILITY(U,$J,112,1021,2)
+78 ;;=.329^3.339^.302^.025^9^.07^2.931^.153^20^6.151^13.523^3.1^12^1.5
+79 ;;^UTILITY(U,$J,112,1021,3)
+80 ;;=.084^.195^.251^.451^.253^.119^.134^.295^.191^.29^.259^.131^.224^.327^1.768^.208^.598^.343
+81 ;;^UTILITY(U,$J,112,1021,4)
+82 ;;=0^0^.117^3.219^.029^2.811^13.491^.013
+83 ;;^UTILITY(U,$J,112,1021,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,1022,0)
+86 ;;=COOKIES, SUGAR, ENR, HOME RECIPE^18-208^cookies^8^100^N
+87 ;;^UTILITY(U,$J,112,1022,1)
+88 ;;=5.9^23.4^60^472^8.9^^^73^2.33^12^90^77^491^.42^.078^.316^^964^.1^.294
+89 ;;^UTILITY(U,$J,112,1022,2)
+90 ;;=.257^2.443^.24^.03^11^.09^6.962^.318^26^4.69^10.189^7.29^250^1.8
+91 ;;^UTILITY(U,$J,112,1022,3)
+92 ;;=.073^.184^.23^.43^.192^.118^.122^.298^.193^.264^.251^.134^.208^.307^1.775^.204^.618^.315
+93 ;;^UTILITY(U,$J,112,1022,4)
+94 ;;=.003^.003^.068^2.911^.021^1.694^10.166^.009
+95 ;;^UTILITY(U,$J,112,1022,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,1023,0)
+98 ;;=COOKIES, SUGAR WAFERS^18-209^cookies^3.5^100^N
+99 ;;^UTILITY(U,$J,112,1023,1)
+100 ;;=4.1^24.3^70.1^511^1^^^18^1.95^11^56^59^147^.35^.091^.276^^0^0^.102
+101 ;;^UTILITY(U,$J,112,1023,2)
+102 ;;=.196^2.432^.178^.014^7^0^3.226^.054^0^4.403^14.313^3.28^0^.5
+103 ;;^UTILITY(U,$J,112,1023,3)
+104 ;;=.059^.115^.156^.281^.144^.07^.089^.194^.118^.181^.156^.083^.126^.174^1.344^.138^.453^.215
+105 ;;^UTILITY(U,$J,112,1023,4)
+106 ;;=^^0^2.404^.024^1.859^14.289
+107 ;;^UTILITY(U,$J,112,1023,20)
+108 ;;=USDA Std. Reference, Release 10
