FHINI03A ; ; 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,1024,0)
;;=COOKIES, VANILLA WAFERS^18-212^cookies^3^100^N
;;^UTILITY(U,$J,112,1024,1)
;;=5^15.2^73.6^441^5.1^^^48^2.38^14^104^97^312^.36^.1^.262^^59^0^.275
;;^UTILITY(U,$J,112,1024,2)
;;=.32^3.106^.41^.073^9^.09^3.473^.226^58^3.465^6.086^3.7^18^1.1^^^1.5
;;^UTILITY(U,$J,112,1024,3)
;;=.068^.169^.213^.365^.23^.105^.11^.243^.16^.244^.221^.106^.188^.297^1.335^.167^.444^.293
;;^UTILITY(U,$J,112,1024,4)
;;=^^.055^1.963^.001^1.445^6.085^^^11.3
;;^UTILITY(U,$J,112,1024,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1025,0)
;;=BROWNIES, FROM MIX, W/EGG/WTR/NUTS, BKD^18-153^pieces^20^100^N
;;^UTILITY(U,$J,112,1025,1)
;;=4.1^19.9^61.7^423^13^^^19^1.7^33^78^184^252^.59^.224^.482^^46^.1^.11
;;^UTILITY(U,$J,112,1025,2)
;;=.149^1.367^.152^.034^8^.05^7.746^.837^28^4.084^6.033^8.596^13^1.2
;;^UTILITY(U,$J,112,1025,3)
;;=.057^.148^.169^.281^.192^.071^.077^.197^.14^.218^.233^.083^.171^.322^.874^.159^.271^.218
;;^UTILITY(U,$J,112,1025,4)
;;=0^0^.015^2.266^.041^1.798^5.965^.01
;;^UTILITY(U,$J,112,1025,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1027,0)
;;=COOKIE DOUGH, PLAIN, CHILLED, BKD^18-206^cookies^12^100^N
;;^UTILITY(U,$J,112,1027,1)
;;=4.7^23.1^65.6^484^5^^^90^1.84^8^187^163^468^.27^.041^.289^^37^0^.182
;;^UTILITY(U,$J,112,1027,2)
;;=.122^2.412^.151^.023^6^.07^2.731^.143^32^5.906^13.01^2.891^11^1.7
;;^UTILITY(U,$J,112,1027,3)
;;=.066^.153^.197^.34^.205^.096^.105^.23^.149^.227^.205^.1^.171^.262^1.341^.16^.447^.273
;;^UTILITY(U,$J,112,1027,4)
;;=0^0^.112^3.081^.028^2.709^12.979^.013
;;^UTILITY(U,$J,112,1027,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1028,0)
;;=CORN, YEL, ON COB, CKD WO/SALT^11-168^ears^77^55^N
;;^UTILITY(U,$J,112,1028,1)
;;=3.32^1.28^25.11^108^69.57^^^2^.61^32^103^249^17^.48^.053^.194^^217^6.2^.215
;;^UTILITY(U,$J,112,1028,2)
;;=.072^1.614^.878^.06^46.4^0^.586^.018^0^.197^.374^.603^22^.72^^^2.9
;;^UTILITY(U,$J,112,1028,3)
;;=.023^.133^.133^.358^.141^.069^.027^.155^.126^.191^.135^.091^.304^.252^.655^.131^.301^.158
;;^UTILITY(U,$J,112,1028,4)
;;=^^^.185^^.012^.374
;;^UTILITY(U,$J,112,1028,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1029,0)
;;=CORN, YEL, ON COB, CKD W/SALT^11-775^ears^77^55^N
;;^UTILITY(U,$J,112,1029,1)
;;=3.11^.74^22.33^93^73.2^^^3^.61^29^75^251^240^.63^.046^.142^^211^4.8^.174
;;^UTILITY(U,$J,112,1029,2)
;;=.069^1.517^.25^.224^30.5^0^.338^.01^0^.114^.216^.348^21^.62
;;^UTILITY(U,$J,112,1029,3)
;;=.022^.125^.125^.336^.132^.065^.025^.145^.119^.179^.126^.086^.285^.236^.615^.123^.282^.148
;;^UTILITY(U,$J,112,1029,4)
;;=^^^.107^^.007^.216
;;^UTILITY(U,$J,112,1029,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1030,0)
;;=CORN, WHITE, ON COB, CKD WO/SALT^11-914^ears^77^55^N
;;^UTILITY(U,$J,112,1030,1)
;;=3.11^.74^22.33^93^73.2^^^3^.61^29^75^251^4^.63^.046^.142^^0^4.8^.174
;;^UTILITY(U,$J,112,1030,2)
;;=.069^1.517^.25^.224^30.5^0^.338^.01^0^.114^.216^.348^0^.62^^^5.7
;;^UTILITY(U,$J,112,1030,3)
;;=.022^.125^.125^.336^.132^.065^.025^.145^.119^.179^.126^.086^.285^.236^.615^.123^.282^.148
;;^UTILITY(U,$J,112,1030,4)
;;=^^^.107^^.007^.216
;;^UTILITY(U,$J,112,1030,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1031,0)
;;=CORN, WHITE, ON COB, CKD W/SALT^11-915^ears^77^55^N
;;^UTILITY(U,$J,112,1031,1)
;;=3.11^.74^22.33^93^73.2^^^3^.61^29^75^251^240^.63^.046^.142^^0^4.8^.174
;;^UTILITY(U,$J,112,1031,2)
;;=.069^1.517^.25^.224^30.5^0^.338^.01^0^.114^.216^.348^0^.62
;;^UTILITY(U,$J,112,1031,3)
;;=.022^.125^.125^.336^.132^.065^.025^.145^.119^.179^.126^.086^.285^.236^.615^.123^.282^.148
;;^UTILITY(U,$J,112,1031,4)
;;=^^^.107^^.007^.216
;;^UTILITY(U,$J,112,1031,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1032,0)
;;=CORN, YEL, CND, CREAMED^11-174^cups^256^100^N
;;^UTILITY(U,$J,112,1032,1)
;;=1.74^.42^18.13^72^78.73^^^3^.38^17^51^134^285^.53^.052^.039^^97^4.6^.025
;;^UTILITY(U,$J,112,1032,2)
;;=.053^.96^.18^.063^44.8^0^.193^.006^0^.065^.123^.198^10^.98^^^1.2
;;^UTILITY(U,$J,112,1032,3)
;;=.012^.07^.07^.188^.074^.036^.014^.081^.066^.1^.071^.048^.159^.132^.343^.068^.158^.083
;;^UTILITY(U,$J,112,1032,4)
;;=^^^.061^^.004^.123
;;^UTILITY(U,$J,112,1032,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1033,0)
;;=CORN, WHITE, CND, CREAMED^11-906^cups^256^100^N
;;^UTILITY(U,$J,112,1033,1)
;;=1.74^.42^18.13^72^78.73^^^3^.38^17^51^134^285^.53^.052^.039^^0^4.6^.025
FHINI03A ; ; 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,1024,0)
+2 ;;=COOKIES, VANILLA WAFERS^18-212^cookies^3^100^N
+3 ;;^UTILITY(U,$J,112,1024,1)
+4 ;;=5^15.2^73.6^441^5.1^^^48^2.38^14^104^97^312^.36^.1^.262^^59^0^.275
+5 ;;^UTILITY(U,$J,112,1024,2)
+6 ;;=.32^3.106^.41^.073^9^.09^3.473^.226^58^3.465^6.086^3.7^18^1.1^^^1.5
+7 ;;^UTILITY(U,$J,112,1024,3)
+8 ;;=.068^.169^.213^.365^.23^.105^.11^.243^.16^.244^.221^.106^.188^.297^1.335^.167^.444^.293
+9 ;;^UTILITY(U,$J,112,1024,4)
+10 ;;=^^.055^1.963^.001^1.445^6.085^^^11.3
+11 ;;^UTILITY(U,$J,112,1024,20)
+12 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+13 ;;^UTILITY(U,$J,112,1025,0)
+14 ;;=BROWNIES, FROM MIX, W/EGG/WTR/NUTS, BKD^18-153^pieces^20^100^N
+15 ;;^UTILITY(U,$J,112,1025,1)
+16 ;;=4.1^19.9^61.7^423^13^^^19^1.7^33^78^184^252^.59^.224^.482^^46^.1^.11
+17 ;;^UTILITY(U,$J,112,1025,2)
+18 ;;=.149^1.367^.152^.034^8^.05^7.746^.837^28^4.084^6.033^8.596^13^1.2
+19 ;;^UTILITY(U,$J,112,1025,3)
+20 ;;=.057^.148^.169^.281^.192^.071^.077^.197^.14^.218^.233^.083^.171^.322^.874^.159^.271^.218
+21 ;;^UTILITY(U,$J,112,1025,4)
+22 ;;=0^0^.015^2.266^.041^1.798^5.965^.01
+23 ;;^UTILITY(U,$J,112,1025,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,1027,0)
+26 ;;=COOKIE DOUGH, PLAIN, CHILLED, BKD^18-206^cookies^12^100^N
+27 ;;^UTILITY(U,$J,112,1027,1)
+28 ;;=4.7^23.1^65.6^484^5^^^90^1.84^8^187^163^468^.27^.041^.289^^37^0^.182
+29 ;;^UTILITY(U,$J,112,1027,2)
+30 ;;=.122^2.412^.151^.023^6^.07^2.731^.143^32^5.906^13.01^2.891^11^1.7
+31 ;;^UTILITY(U,$J,112,1027,3)
+32 ;;=.066^.153^.197^.34^.205^.096^.105^.23^.149^.227^.205^.1^.171^.262^1.341^.16^.447^.273
+33 ;;^UTILITY(U,$J,112,1027,4)
+34 ;;=0^0^.112^3.081^.028^2.709^12.979^.013
+35 ;;^UTILITY(U,$J,112,1027,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,1028,0)
+38 ;;=CORN, YEL, ON COB, CKD WO/SALT^11-168^ears^77^55^N
+39 ;;^UTILITY(U,$J,112,1028,1)
+40 ;;=3.32^1.28^25.11^108^69.57^^^2^.61^32^103^249^17^.48^.053^.194^^217^6.2^.215
+41 ;;^UTILITY(U,$J,112,1028,2)
+42 ;;=.072^1.614^.878^.06^46.4^0^.586^.018^0^.197^.374^.603^22^.72^^^2.9
+43 ;;^UTILITY(U,$J,112,1028,3)
+44 ;;=.023^.133^.133^.358^.141^.069^.027^.155^.126^.191^.135^.091^.304^.252^.655^.131^.301^.158
+45 ;;^UTILITY(U,$J,112,1028,4)
+46 ;;=^^^.185^^.012^.374
+47 ;;^UTILITY(U,$J,112,1028,20)
+48 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+49 ;;^UTILITY(U,$J,112,1029,0)
+50 ;;=CORN, YEL, ON COB, CKD W/SALT^11-775^ears^77^55^N
+51 ;;^UTILITY(U,$J,112,1029,1)
+52 ;;=3.11^.74^22.33^93^73.2^^^3^.61^29^75^251^240^.63^.046^.142^^211^4.8^.174
+53 ;;^UTILITY(U,$J,112,1029,2)
+54 ;;=.069^1.517^.25^.224^30.5^0^.338^.01^0^.114^.216^.348^21^.62
+55 ;;^UTILITY(U,$J,112,1029,3)
+56 ;;=.022^.125^.125^.336^.132^.065^.025^.145^.119^.179^.126^.086^.285^.236^.615^.123^.282^.148
+57 ;;^UTILITY(U,$J,112,1029,4)
+58 ;;=^^^.107^^.007^.216
+59 ;;^UTILITY(U,$J,112,1029,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,1030,0)
+62 ;;=CORN, WHITE, ON COB, CKD WO/SALT^11-914^ears^77^55^N
+63 ;;^UTILITY(U,$J,112,1030,1)
+64 ;;=3.11^.74^22.33^93^73.2^^^3^.61^29^75^251^4^.63^.046^.142^^0^4.8^.174
+65 ;;^UTILITY(U,$J,112,1030,2)
+66 ;;=.069^1.517^.25^.224^30.5^0^.338^.01^0^.114^.216^.348^0^.62^^^5.7
+67 ;;^UTILITY(U,$J,112,1030,3)
+68 ;;=.022^.125^.125^.336^.132^.065^.025^.145^.119^.179^.126^.086^.285^.236^.615^.123^.282^.148
+69 ;;^UTILITY(U,$J,112,1030,4)
+70 ;;=^^^.107^^.007^.216
+71 ;;^UTILITY(U,$J,112,1030,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,1031,0)
+74 ;;=CORN, WHITE, ON COB, CKD W/SALT^11-915^ears^77^55^N
+75 ;;^UTILITY(U,$J,112,1031,1)
+76 ;;=3.11^.74^22.33^93^73.2^^^3^.61^29^75^251^240^.63^.046^.142^^0^4.8^.174
+77 ;;^UTILITY(U,$J,112,1031,2)
+78 ;;=.069^1.517^.25^.224^30.5^0^.338^.01^0^.114^.216^.348^0^.62
+79 ;;^UTILITY(U,$J,112,1031,3)
+80 ;;=.022^.125^.125^.336^.132^.065^.025^.145^.119^.179^.126^.086^.285^.236^.615^.123^.282^.148
+81 ;;^UTILITY(U,$J,112,1031,4)
+82 ;;=^^^.107^^.007^.216
+83 ;;^UTILITY(U,$J,112,1031,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,1032,0)
+86 ;;=CORN, YEL, CND, CREAMED^11-174^cups^256^100^N
+87 ;;^UTILITY(U,$J,112,1032,1)
+88 ;;=1.74^.42^18.13^72^78.73^^^3^.38^17^51^134^285^.53^.052^.039^^97^4.6^.025
+89 ;;^UTILITY(U,$J,112,1032,2)
+90 ;;=.053^.96^.18^.063^44.8^0^.193^.006^0^.065^.123^.198^10^.98^^^1.2
+91 ;;^UTILITY(U,$J,112,1032,3)
+92 ;;=.012^.07^.07^.188^.074^.036^.014^.081^.066^.1^.071^.048^.159^.132^.343^.068^.158^.083
+93 ;;^UTILITY(U,$J,112,1032,4)
+94 ;;=^^^.061^^.004^.123
+95 ;;^UTILITY(U,$J,112,1032,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,1033,0)
+98 ;;=CORN, WHITE, CND, CREAMED^11-906^cups^256^100^N
+99 ;;^UTILITY(U,$J,112,1033,1)
+100 ;;=1.74^.42^18.13^72^78.73^^^3^.38^17^51^134^285^.53^.052^.039^^0^4.6^.025
