FHINI07F ; ; 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,2584,1)
;;=11.58^12.85^18.27^233^55.2^^^118^1.72^17^140^149^634^1.7^.08^.19^^280^1.5^.21
;;^UTILITY(U,$J,112,2584,2)
;;=.15^4.14^.22^.1^14^.8^.597^.358^34^5.966^4.654^.955^46^2.1
;;^UTILITY(U,$J,112,2584,3)
;;=.146^.419^.493^.901^.794^.246^.131^.506^.383^.588^.626^.349^.557^.863^2.503^.601^.891^.472
;;^UTILITY(U,$J,112,2584,4)
;;=^.119^.716^2.983^.477^1.79^4.176
;;^UTILITY(U,$J,112,2584,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2585,0)
;;=FF, CHEESEBURGER, REGULAR, DOUBLE PATTY, PLAIN^21-092^burgers^155^100^N
;;^UTILITY(U,$J,112,2585,1)
;;=17.85^18.37^14.23^295^42.37^^^150^2.2^21^241^199^410^3.2^.084^.151^.77^214^0^.16
;;^UTILITY(U,$J,112,2585,2)
;;=.24^3.88^.4^.16^19^1.49^^^71^8.385^7.102^1.235^51^2.39
;;^UTILITY(U,$J,112,2585,3)
;;=.227^.676^.769^1.428^1.393^.406^.178^.754^.627^.91^1.028^.573^.924^1.405^3.405^1.002^1.252^.682
;;^UTILITY(U,$J,112,2585,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2586,0)
;;=FF, CHEESEBURGER, REGULAR, DOUBLE PATTY, W/ COND & VEG^21-093^burgers^166^100^N
;;^UTILITY(U,$J,112,2586,1)
;;=12.8^12.7^21.2^251^51.2^^^103^2.06^18^146^202^633^2.1^.09^.18^^240^1^.21
;;^UTILITY(U,$J,112,2586,2)
;;=.17^4.85^.26^.11^14^1.16^^^36^5.251^4.704^1.601^39^2.1
;;^UTILITY(U,$J,112,2586,3)
;;=.161^.483^.549^1.013^.989^.287^.128^.539^.444^.648^.731^.407^.658^1.018^2.475^.71^.883^.487
;;^UTILITY(U,$J,112,2586,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2587,0)
;;=FF, CHEESEBURGER, REGULAR, DOUBLE PATTY & BUN, PLAIN^21-094^burgers^160^100^N
;;^UTILITY(U,$J,112,2587,1)
;;=13.83^13.51^27.66^288^43.4^^^140^2.31^21^211^178^557^2.72^.088^.19^^173^0^.21
;;^UTILITY(U,$J,112,2587,2)
;;=.24^3.76^.41^.14^23^1.2^^^50^5.943^5.208^1.143^41^1.6
;;^UTILITY(U,$J,112,2587,3)
;;=.174^.508^.589^1.086^1.008^.303^.147^.591^.468^.698^.769^.426^.691^1.046^2.776^.749^1.012^.542
;;^UTILITY(U,$J,112,2587,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2588,0)
;;=FF, CHEESEBURGER, REGULAR, DOUBLE PATTY & BUN, W/ COND & VEG^21-095^burgers^228^100^N
;;^UTILITY(U,$J,112,2588,1)
;;=13.04^15.47^23.3^285^46.56^^^74^2.07^16^153^171^404^1.81^.071^.12^.87^163^1.2^.25
;;^UTILITY(U,$J,112,2588,2)
;;=.19^3.66^.28^.12^15^.91^2.465^.285^41^5.6^5.543^2.792^37^1.63
;;^UTILITY(U,$J,112,2588,3)
;;=.164^.482^.558^1.023^.949^.286^.139^.558^.44^.661^.728^.402^.652^.989^2.615^.705^.949^.511
;;^UTILITY(U,$J,112,2588,4)
;;=.04^.06^.447^3.034^.457^1.641^4.931^.043
;;^UTILITY(U,$J,112,2588,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2589,0)
;;=FF, CHEESEBURGER, LARGE, SINGLE PATTY, PLAIN^21-096^burgers^185^100^N
;;^UTILITY(U,$J,112,2589,1)
;;=16.29^17.83^25.63^329^38.65^^^49^2.95^21^228^348^859^3^.085^.167^^333^0^.26
;;^UTILITY(U,$J,112,2589,2)
;;=.31^6.04^.4^.15^21^1.37^^^52^8.024^6.887^1.318^80^1.6
;;^UTILITY(U,$J,112,2589,3)
;;=.205^.609^.699^1.295^1.24^.365^.168^.691^.565^.827^.927^.515^.833^1.263^3.17^.901^1.161^.628
;;^UTILITY(U,$J,112,2589,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2590,0)
;;=FF, CHEESEBURGER, LARGE, SINGLE PATTY, W/ BACON & COND^21-097^burgers^195^100^N
;;^UTILITY(U,$J,112,2590,1)
;;=16.41^18.85^19.04^312^43.6^^^83^2.43^23^205^170^535^3.5^.081^.17^^208^1.1^.16
;;^UTILITY(U,$J,112,2590,2)
;;=.21^3.4^.18^.16^17^1.2^^^57^8.33^7.43^1.39^41^2.1
;;^UTILITY(U,$J,112,2590,3)
;;=.199^.617^.696^1.271^1.239^.365^.169^.683^.551^.826^.948^.508^.852^1.292^3.034^.956^1.112^.63
;;^UTILITY(U,$J,112,2590,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2591,0)
;;=FF, CHEESEBURGER, LARGE, SINGLE PATTY, W/ COND & VEG^21-098^burgers^219^100^N
;;^UTILITY(U,$J,112,2591,1)
;;=12.87^15.04^17.53^257^52.5^^^94^2.13^20^142^203^506^2.1^.085^.142^.54^280^3.6^.18
;;^UTILITY(U,$J,112,2591,2)
;;=.21^3.37^.33^.13^13^1.17^.716^.178^40^6.867^5.758^.925^59^2.06
;;^UTILITY(U,$J,112,2591,3)
;;=.162^.48^.548^1.009^.968^.284^.133^.542^.44^.648^.725^.401^.652^1.013^2.554^.702^.901^.494
;;^UTILITY(U,$J,112,2591,4)
;;=.105^.132^.731^3.353^.588^1.877^4.96^.031
;;^UTILITY(U,$J,112,2591,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2592,0)
;;=FF, CHEESEBURGER, LARGE, SINGLE PATTY, W/ HAM, COND & VEG^21-099^burgers^254^100^N
;;^UTILITY(U,$J,112,2592,1)
;;=15.55^18.97^14.83^293^50.05^^^119^1.98^20^209^212^674^2.61^.097^.147^^199^2.9^.21
;;^UTILITY(U,$J,112,2592,2)
;;=.22^3.61^.41^.15^20^1.13^^^48^8.317^7.429^1.516^41^2.42
;;^UTILITY(U,$J,112,2592,3)
;;=.196^.597^.67^1.232^1.197^.354^.171^.662^.532^.773^.901^.499^.81^1.244^2.975^.85^1.046^.657
FHINI07F ; ; 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,2584,1)
+2 ;;=11.58^12.85^18.27^233^55.2^^^118^1.72^17^140^149^634^1.7^.08^.19^^280^1.5^.21
+3 ;;^UTILITY(U,$J,112,2584,2)
+4 ;;=.15^4.14^.22^.1^14^.8^.597^.358^34^5.966^4.654^.955^46^2.1
+5 ;;^UTILITY(U,$J,112,2584,3)
+6 ;;=.146^.419^.493^.901^.794^.246^.131^.506^.383^.588^.626^.349^.557^.863^2.503^.601^.891^.472
+7 ;;^UTILITY(U,$J,112,2584,4)
+8 ;;=^.119^.716^2.983^.477^1.79^4.176
+9 ;;^UTILITY(U,$J,112,2584,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,2585,0)
+12 ;;=FF, CHEESEBURGER, REGULAR, DOUBLE PATTY, PLAIN^21-092^burgers^155^100^N
+13 ;;^UTILITY(U,$J,112,2585,1)
+14 ;;=17.85^18.37^14.23^295^42.37^^^150^2.2^21^241^199^410^3.2^.084^.151^.77^214^0^.16
+15 ;;^UTILITY(U,$J,112,2585,2)
+16 ;;=.24^3.88^.4^.16^19^1.49^^^71^8.385^7.102^1.235^51^2.39
+17 ;;^UTILITY(U,$J,112,2585,3)
+18 ;;=.227^.676^.769^1.428^1.393^.406^.178^.754^.627^.91^1.028^.573^.924^1.405^3.405^1.002^1.252^.682
+19 ;;^UTILITY(U,$J,112,2585,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,2586,0)
+22 ;;=FF, CHEESEBURGER, REGULAR, DOUBLE PATTY, W/ COND & VEG^21-093^burgers^166^100^N
+23 ;;^UTILITY(U,$J,112,2586,1)
+24 ;;=12.8^12.7^21.2^251^51.2^^^103^2.06^18^146^202^633^2.1^.09^.18^^240^1^.21
+25 ;;^UTILITY(U,$J,112,2586,2)
+26 ;;=.17^4.85^.26^.11^14^1.16^^^36^5.251^4.704^1.601^39^2.1
+27 ;;^UTILITY(U,$J,112,2586,3)
+28 ;;=.161^.483^.549^1.013^.989^.287^.128^.539^.444^.648^.731^.407^.658^1.018^2.475^.71^.883^.487
+29 ;;^UTILITY(U,$J,112,2586,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,2587,0)
+32 ;;=FF, CHEESEBURGER, REGULAR, DOUBLE PATTY & BUN, PLAIN^21-094^burgers^160^100^N
+33 ;;^UTILITY(U,$J,112,2587,1)
+34 ;;=13.83^13.51^27.66^288^43.4^^^140^2.31^21^211^178^557^2.72^.088^.19^^173^0^.21
+35 ;;^UTILITY(U,$J,112,2587,2)
+36 ;;=.24^3.76^.41^.14^23^1.2^^^50^5.943^5.208^1.143^41^1.6
+37 ;;^UTILITY(U,$J,112,2587,3)
+38 ;;=.174^.508^.589^1.086^1.008^.303^.147^.591^.468^.698^.769^.426^.691^1.046^2.776^.749^1.012^.542
+39 ;;^UTILITY(U,$J,112,2587,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,2588,0)
+42 ;;=FF, CHEESEBURGER, REGULAR, DOUBLE PATTY & BUN, W/ COND & VEG^21-095^burgers^228^100^N
+43 ;;^UTILITY(U,$J,112,2588,1)
+44 ;;=13.04^15.47^23.3^285^46.56^^^74^2.07^16^153^171^404^1.81^.071^.12^.87^163^1.2^.25
+45 ;;^UTILITY(U,$J,112,2588,2)
+46 ;;=.19^3.66^.28^.12^15^.91^2.465^.285^41^5.6^5.543^2.792^37^1.63
+47 ;;^UTILITY(U,$J,112,2588,3)
+48 ;;=.164^.482^.558^1.023^.949^.286^.139^.558^.44^.661^.728^.402^.652^.989^2.615^.705^.949^.511
+49 ;;^UTILITY(U,$J,112,2588,4)
+50 ;;=.04^.06^.447^3.034^.457^1.641^4.931^.043
+51 ;;^UTILITY(U,$J,112,2588,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,2589,0)
+54 ;;=FF, CHEESEBURGER, LARGE, SINGLE PATTY, PLAIN^21-096^burgers^185^100^N
+55 ;;^UTILITY(U,$J,112,2589,1)
+56 ;;=16.29^17.83^25.63^329^38.65^^^49^2.95^21^228^348^859^3^.085^.167^^333^0^.26
+57 ;;^UTILITY(U,$J,112,2589,2)
+58 ;;=.31^6.04^.4^.15^21^1.37^^^52^8.024^6.887^1.318^80^1.6
+59 ;;^UTILITY(U,$J,112,2589,3)
+60 ;;=.205^.609^.699^1.295^1.24^.365^.168^.691^.565^.827^.927^.515^.833^1.263^3.17^.901^1.161^.628
+61 ;;^UTILITY(U,$J,112,2589,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,2590,0)
+64 ;;=FF, CHEESEBURGER, LARGE, SINGLE PATTY, W/ BACON & COND^21-097^burgers^195^100^N
+65 ;;^UTILITY(U,$J,112,2590,1)
+66 ;;=16.41^18.85^19.04^312^43.6^^^83^2.43^23^205^170^535^3.5^.081^.17^^208^1.1^.16
+67 ;;^UTILITY(U,$J,112,2590,2)
+68 ;;=.21^3.4^.18^.16^17^1.2^^^57^8.33^7.43^1.39^41^2.1
+69 ;;^UTILITY(U,$J,112,2590,3)
+70 ;;=.199^.617^.696^1.271^1.239^.365^.169^.683^.551^.826^.948^.508^.852^1.292^3.034^.956^1.112^.63
+71 ;;^UTILITY(U,$J,112,2590,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,2591,0)
+74 ;;=FF, CHEESEBURGER, LARGE, SINGLE PATTY, W/ COND & VEG^21-098^burgers^219^100^N
+75 ;;^UTILITY(U,$J,112,2591,1)
+76 ;;=12.87^15.04^17.53^257^52.5^^^94^2.13^20^142^203^506^2.1^.085^.142^.54^280^3.6^.18
+77 ;;^UTILITY(U,$J,112,2591,2)
+78 ;;=.21^3.37^.33^.13^13^1.17^.716^.178^40^6.867^5.758^.925^59^2.06
+79 ;;^UTILITY(U,$J,112,2591,3)
+80 ;;=.162^.48^.548^1.009^.968^.284^.133^.542^.44^.648^.725^.401^.652^1.013^2.554^.702^.901^.494
+81 ;;^UTILITY(U,$J,112,2591,4)
+82 ;;=.105^.132^.731^3.353^.588^1.877^4.96^.031
+83 ;;^UTILITY(U,$J,112,2591,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,2592,0)
+86 ;;=FF, CHEESEBURGER, LARGE, SINGLE PATTY, W/ HAM, COND & VEG^21-099^burgers^254^100^N
+87 ;;^UTILITY(U,$J,112,2592,1)
+88 ;;=15.55^18.97^14.83^293^50.05^^^119^1.98^20^209^212^674^2.61^.097^.147^^199^2.9^.21
+89 ;;^UTILITY(U,$J,112,2592,2)
+90 ;;=.22^3.61^.41^.15^20^1.13^^^48^8.317^7.429^1.516^41^2.42
+91 ;;^UTILITY(U,$J,112,2592,3)
+92 ;;=.196^.597^.67^1.232^1.197^.354^.171^.662^.532^.773^.901^.499^.81^1.244^2.975^.85^1.046^.657
