FHINI076 ; ; 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,2507,3)
;;=.163^.493^.592^1.001^.881^.32^.188^.592^.487^.691^.673^.363^.584^.965^2.36^.499^.877^.67
;;^UTILITY(U,$J,112,2507,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2508,0)
;;=FF, DANISH PASTRY, CHEESE^21-015^pastries^91^100^N
;;^UTILITY(U,$J,112,2508,1)
;;=6.41^27.06^31.53^388^33.8^^^77^2.03^17^88^128^351^.69^.095^.385^^170^2.9^.29
;;^UTILITY(U,$J,112,2508,2)
;;=.23^2.8^.63^.06^16^.25^2.663^^22^5.63^17.144^2.663^47^1.2
;;^UTILITY(U,$J,112,2508,3)
;;=.08^.227^.291^.501^.304^.141^.106^.316^.239^.327^.309^.158^.261^.402^1.55^.2^.582^.337
;;^UTILITY(U,$J,112,2508,4)
;;=^.025^.152^3.779^.025^1.674^17.118
;;^UTILITY(U,$J,112,2508,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2509,0)
;;=FF, DANISH PASTRY, CINNAMON^21-016^pastries^88^100^N
;;^UTILITY(U,$J,112,2509,1)
;;=5.46^19^53.24^397^20.9^^^42^2.04^16^84^109^371^.55^.085^.42^^20^2.9^.29
;;^UTILITY(U,$J,112,2509,2)
;;=.22^2.5^.63^.06^16^.25^1.87^^31^3.953^12.037^1.87^6^1.4
;;^UTILITY(U,$J,112,2509,3)
;;=.072^.19^.243^.415^.224^.12^.11^.277^.19^.278^.25^.127^.214^.332^1.437^.184^.502^.306
;;^UTILITY(U,$J,112,2509,4)
;;=^.018^.107^2.653^.018^1.175^12.019
;;^UTILITY(U,$J,112,2509,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2510,0)
;;=FF, DANISH PASTRY, FRUIT^21-017^pastries^94^100^N
;;^UTILITY(U,$J,112,2510,1)
;;=5.06^16.95^47.94^356^29^^^23^1.49^15^73^117^354^.51^.059^.205^^91^1.7^.31
;;^UTILITY(U,$J,112,2510,2)
;;=.22^1.91^.63^.06^16^.25^1.668^^20^3.527^10.74^1.668^26^1.04
;;^UTILITY(U,$J,112,2510,3)
;;=.067^.176^.225^.384^.207^.111^.101^.257^.176^.257^.231^.118^.198^.309^1.327^.17^.463^.283
;;^UTILITY(U,$J,112,2510,4)
;;=^.016^.095^2.367^.016^1.049^10.724
;;^UTILITY(U,$J,112,2510,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2511,0)
;;=FF, EGG, SCRAMBLED^21-018^eggs^47^100^N
;;^UTILITY(U,$J,112,2511,1)
;;=13.84^16.18^2.08^212^66.7^^^57^2.59^14^242^147^224^1.66^.067^.043^.96^889^3.3^.08
;;^UTILITY(U,$J,112,2511,2)
;;=.52^.21^.94^.19^56^1.01^1.649^.118^426^6.153^5.889^1.969^268^1.2^^^0
;;^UTILITY(U,$J,112,2511,3)
;;=.212^.657^.836^1.185^.913^.427^.307^.75^.562^.96^.836^.325^.763^1.311^1.773^.438^.577^1.002
;;^UTILITY(U,$J,112,2511,4)
;;=.104^.134^.085^3.909^.515^1.522^5.374^.202
;;^UTILITY(U,$J,112,2511,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2512,0)
;;=FF, ENGLISH MUFFIN, WITH BUTTER^21-019^muffins^63^100^N
;;^UTILITY(U,$J,112,2512,1)
;;=7.73^9.14^48.19^300^32.63^^^163^2.52^21^135^110^613^.67^.102^.332^.2^216^1.2^.4
;;^UTILITY(U,$J,112,2512,2)
;;=.5^4.15^.22^.06^27^.03^1.8^.305^20^3.857^2.432^2.14^53^2.3
;;^UTILITY(U,$J,112,2512,3)
;;=.095^.243^.297^.546^.256^.139^.151^.384^.249^.341^.331^.178^.291^.406^2.34^.291^.798^.383
;;^UTILITY(U,$J,112,2512,4)
;;=.182^.675^.711^1.387^.222^.478^2.083^.035
;;^UTILITY(U,$J,112,2512,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2513,0)
;;=FF, ENGLISH MUFFIN, WITH CHEESE AND SAUSAGE^21-020^muffins^115^100^N
;;^UTILITY(U,$J,112,2513,1)
;;=13.34^21.1^25.36^342^37.7^^^146^1.96^21^162^187^901^1.46^.066^.191^^330^1.1^.61
;;^UTILITY(U,$J,112,2513,2)
;;=.22^3.6^.46^.13^16^.59^2.022^.133^51^8.566^8.766^2.343^75^2.5
;;^UTILITY(U,$J,112,2513,3)
;;=.163^.459^.548^1.025^.975^.305^.15^.598^.529^.659^.642^.426^.527^.883^2.84^.509^1.118^.603
;;^UTILITY(U,$J,112,2513,4)
;;=.15^.171^.727^4.939^.644^2.324^7.937^.188
;;^UTILITY(U,$J,112,2513,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2514,0)
;;=FF, ENGLISH MUFFIN, WITH EGG, CHEESE, AND CANADIAN BACON^21-021^muffins^146^100^N
;;^UTILITY(U,$J,112,2514,1)
;;=13.57^13.53^21.54^262^48.99^^^142^2.25^23^219^146^537^1.24^.09^.181^.41^407^.9^.33
;;^UTILITY(U,$J,112,2514,2)
;;=.36^2.69^.61^.11^30^.55^1.21^.102^160^6.199^4.633^1.414^108^2.37
;;^UTILITY(U,$J,112,2514,3)
;;=.178^.518^.63^1.071^.959^.353^.206^.637^.54^.735^.685^.419^.577^1.008^2.505^.426^.922^.718
;;^UTILITY(U,$J,112,2514,4)
;;=.156^.199^.698^3.288^.409^1.374^4.104^.101
;;^UTILITY(U,$J,112,2514,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2515,0)
;;=FF, ENGLISH MUFFIN, WITH EGG, CHEESE, AND SAUSAGE^21-022^muffins^165^100^N
;;^UTILITY(U,$J,112,2515,1)
;;=13.13^18.7^18.77^295^47.4^^^119^2.1^18^174^178^688^1.43^.072^.181^^400^.9^.51
;;^UTILITY(U,$J,112,2515,2)
;;=.3^2.7^.85^.12^33^.83^1.856^.068^166^7.525^7.726^2.012^104^2
;;^UTILITY(U,$J,112,2515,3)
;;=.17^.489^.596^1.036^.947^.323^.179^.615^.526^.706^.666^.398^.56^.949^2.543^.477^.981^.668
;;^UTILITY(U,$J,112,2515,4)
;;=.127^.148^.611^4.469^.595^1.975^6.974^.089
FHINI076 ; ; 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,2507,3)
+2 ;;=.163^.493^.592^1.001^.881^.32^.188^.592^.487^.691^.673^.363^.584^.965^2.36^.499^.877^.67
+3 ;;^UTILITY(U,$J,112,2507,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,2508,0)
+6 ;;=FF, DANISH PASTRY, CHEESE^21-015^pastries^91^100^N
+7 ;;^UTILITY(U,$J,112,2508,1)
+8 ;;=6.41^27.06^31.53^388^33.8^^^77^2.03^17^88^128^351^.69^.095^.385^^170^2.9^.29
+9 ;;^UTILITY(U,$J,112,2508,2)
+10 ;;=.23^2.8^.63^.06^16^.25^2.663^^22^5.63^17.144^2.663^47^1.2
+11 ;;^UTILITY(U,$J,112,2508,3)
+12 ;;=.08^.227^.291^.501^.304^.141^.106^.316^.239^.327^.309^.158^.261^.402^1.55^.2^.582^.337
+13 ;;^UTILITY(U,$J,112,2508,4)
+14 ;;=^.025^.152^3.779^.025^1.674^17.118
+15 ;;^UTILITY(U,$J,112,2508,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,2509,0)
+18 ;;=FF, DANISH PASTRY, CINNAMON^21-016^pastries^88^100^N
+19 ;;^UTILITY(U,$J,112,2509,1)
+20 ;;=5.46^19^53.24^397^20.9^^^42^2.04^16^84^109^371^.55^.085^.42^^20^2.9^.29
+21 ;;^UTILITY(U,$J,112,2509,2)
+22 ;;=.22^2.5^.63^.06^16^.25^1.87^^31^3.953^12.037^1.87^6^1.4
+23 ;;^UTILITY(U,$J,112,2509,3)
+24 ;;=.072^.19^.243^.415^.224^.12^.11^.277^.19^.278^.25^.127^.214^.332^1.437^.184^.502^.306
+25 ;;^UTILITY(U,$J,112,2509,4)
+26 ;;=^.018^.107^2.653^.018^1.175^12.019
+27 ;;^UTILITY(U,$J,112,2509,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,2510,0)
+30 ;;=FF, DANISH PASTRY, FRUIT^21-017^pastries^94^100^N
+31 ;;^UTILITY(U,$J,112,2510,1)
+32 ;;=5.06^16.95^47.94^356^29^^^23^1.49^15^73^117^354^.51^.059^.205^^91^1.7^.31
+33 ;;^UTILITY(U,$J,112,2510,2)
+34 ;;=.22^1.91^.63^.06^16^.25^1.668^^20^3.527^10.74^1.668^26^1.04
+35 ;;^UTILITY(U,$J,112,2510,3)
+36 ;;=.067^.176^.225^.384^.207^.111^.101^.257^.176^.257^.231^.118^.198^.309^1.327^.17^.463^.283
+37 ;;^UTILITY(U,$J,112,2510,4)
+38 ;;=^.016^.095^2.367^.016^1.049^10.724
+39 ;;^UTILITY(U,$J,112,2510,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,2511,0)
+42 ;;=FF, EGG, SCRAMBLED^21-018^eggs^47^100^N
+43 ;;^UTILITY(U,$J,112,2511,1)
+44 ;;=13.84^16.18^2.08^212^66.7^^^57^2.59^14^242^147^224^1.66^.067^.043^.96^889^3.3^.08
+45 ;;^UTILITY(U,$J,112,2511,2)
+46 ;;=.52^.21^.94^.19^56^1.01^1.649^.118^426^6.153^5.889^1.969^268^1.2^^^0
+47 ;;^UTILITY(U,$J,112,2511,3)
+48 ;;=.212^.657^.836^1.185^.913^.427^.307^.75^.562^.96^.836^.325^.763^1.311^1.773^.438^.577^1.002
+49 ;;^UTILITY(U,$J,112,2511,4)
+50 ;;=.104^.134^.085^3.909^.515^1.522^5.374^.202
+51 ;;^UTILITY(U,$J,112,2511,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,2512,0)
+54 ;;=FF, ENGLISH MUFFIN, WITH BUTTER^21-019^muffins^63^100^N
+55 ;;^UTILITY(U,$J,112,2512,1)
+56 ;;=7.73^9.14^48.19^300^32.63^^^163^2.52^21^135^110^613^.67^.102^.332^.2^216^1.2^.4
+57 ;;^UTILITY(U,$J,112,2512,2)
+58 ;;=.5^4.15^.22^.06^27^.03^1.8^.305^20^3.857^2.432^2.14^53^2.3
+59 ;;^UTILITY(U,$J,112,2512,3)
+60 ;;=.095^.243^.297^.546^.256^.139^.151^.384^.249^.341^.331^.178^.291^.406^2.34^.291^.798^.383
+61 ;;^UTILITY(U,$J,112,2512,4)
+62 ;;=.182^.675^.711^1.387^.222^.478^2.083^.035
+63 ;;^UTILITY(U,$J,112,2512,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,2513,0)
+66 ;;=FF, ENGLISH MUFFIN, WITH CHEESE AND SAUSAGE^21-020^muffins^115^100^N
+67 ;;^UTILITY(U,$J,112,2513,1)
+68 ;;=13.34^21.1^25.36^342^37.7^^^146^1.96^21^162^187^901^1.46^.066^.191^^330^1.1^.61
+69 ;;^UTILITY(U,$J,112,2513,2)
+70 ;;=.22^3.6^.46^.13^16^.59^2.022^.133^51^8.566^8.766^2.343^75^2.5
+71 ;;^UTILITY(U,$J,112,2513,3)
+72 ;;=.163^.459^.548^1.025^.975^.305^.15^.598^.529^.659^.642^.426^.527^.883^2.84^.509^1.118^.603
+73 ;;^UTILITY(U,$J,112,2513,4)
+74 ;;=.15^.171^.727^4.939^.644^2.324^7.937^.188
+75 ;;^UTILITY(U,$J,112,2513,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,2514,0)
+78 ;;=FF, ENGLISH MUFFIN, WITH EGG, CHEESE, AND CANADIAN BACON^21-021^muffins^146^100^N
+79 ;;^UTILITY(U,$J,112,2514,1)
+80 ;;=13.57^13.53^21.54^262^48.99^^^142^2.25^23^219^146^537^1.24^.09^.181^.41^407^.9^.33
+81 ;;^UTILITY(U,$J,112,2514,2)
+82 ;;=.36^2.69^.61^.11^30^.55^1.21^.102^160^6.199^4.633^1.414^108^2.37
+83 ;;^UTILITY(U,$J,112,2514,3)
+84 ;;=.178^.518^.63^1.071^.959^.353^.206^.637^.54^.735^.685^.419^.577^1.008^2.505^.426^.922^.718
+85 ;;^UTILITY(U,$J,112,2514,4)
+86 ;;=.156^.199^.698^3.288^.409^1.374^4.104^.101
+87 ;;^UTILITY(U,$J,112,2514,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,2515,0)
+90 ;;=FF, ENGLISH MUFFIN, WITH EGG, CHEESE, AND SAUSAGE^21-022^muffins^165^100^N
+91 ;;^UTILITY(U,$J,112,2515,1)
+92 ;;=13.13^18.7^18.77^295^47.4^^^119^2.1^18^174^178^688^1.43^.072^.181^^400^.9^.51
+93 ;;^UTILITY(U,$J,112,2515,2)
+94 ;;=.3^2.7^.85^.12^33^.83^1.856^.068^166^7.525^7.726^2.012^104^2
+95 ;;^UTILITY(U,$J,112,2515,3)
+96 ;;=.17^.489^.596^1.036^.947^.323^.179^.615^.526^.706^.666^.398^.56^.949^2.543^.477^.981^.668
+97 ;;^UTILITY(U,$J,112,2515,4)
+98 ;;=.127^.148^.611^4.469^.595^1.975^6.974^.089
