FHINI07G ; ; 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,2592,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2593,0)
;;=FF, CHEESEBURGER, LARGE, DOUBLE PATTY, W/ COND & VEG^21-100^burgers^258^100^N
;;^UTILITY(U,$J,112,2593,1)
;;=14.72^16.92^15.37^273^51.09^^^93^2.29^20^153^231^445^2.59^.08^.123^^135^.4^.14
;;^UTILITY(U,$J,112,2593,2)
;;=.19^2.81^.33^.16^19^1.32^^^55^6.85^6.726^1.821^21^1.9
;;^UTILITY(U,$J,112,2593,3)
;;=.183^.568^.627^1.159^1.126^.328^.152^.601^.482^.731^.881^.458^.815^1.211^2.764^.9^.95^.539
;;^UTILITY(U,$J,112,2593,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2594,0)
;;=FF, CHEESEBURGER, TRIPLE PATTY, PLAIN^21-101^burgers^304^100^N
;;^UTILITY(U,$J,112,2594,1)
;;=18.44^16.76^8.78^262^54.1^^^93^2.73^20^178^270^399^3.58^.085^.116^^118^.9^.2
;;^UTILITY(U,$J,112,2594,2)
;;=.21^3.77^.38^.2^17^1.94^^^53^7.14^7.08^1.037^28^1.91
;;^UTILITY(U,$J,112,2594,3)
;;=.229^.732^.791^1.469^1.454^.419^.187^.744^.601^.916^1.148^.58^1.077^1.556^3.29^1.202^1.133^.753
;;^UTILITY(U,$J,112,2594,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2595,0)
;;=FF, CHICKEN FILLET SANDWICH, PLAIN^21-102^sandwichs^182^100^N
;;^UTILITY(U,$J,112,2595,1)
;;=13.25^16.18^21.26^283^47.31^^^33^2.57^19^128^194^526^1.03^.127^.26^^55^4.9^.18
;;^UTILITY(U,$J,112,2595,2)
;;=.13^3.74^.33^.11^16^.21^4^.527^33^4.685^5.72^4.606^17^2
;;^UTILITY(U,$J,112,2595,3)
;;=.155^.523^.666^.978^.958^.334^.183^.554^.418^.659^.743^.383^.67^1.077^2.44^.622^.732^.504
;;^UTILITY(U,$J,112,2595,4)
;;=.003^.006^.16^3.018^.541^1.408^5.128^.079
;;^UTILITY(U,$J,112,2595,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2596,0)
;;=FF, CHICKEN FILLET SANDWICH, W/ CHEESE^21-103^sandwichs^228^100^N
;;^UTILITY(U,$J,112,2596,1)
;;=12.9^17^18.24^277^46.01^^^113^1.59^19^178^146^543^1.27^.075^.167^^272^1.3^.18
;;^UTILITY(U,$J,112,2596,2)
;;=.2^3.98^.59^.18^20^.2^^^34^5.46^5.987^4.363^56^2.1
;;^UTILITY(U,$J,112,2596,3)
;;=.152^.474^.601^.955^.924^.308^.168^.553^.441^.647^.695^.376^.607^.978^2.469^.649^.903^.526
;;^UTILITY(U,$J,112,2596,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2597,0)
;;=FF, EGG AND CHEESE SANDWICH^21-104^sandwichs^146^100^N
;;^UTILITY(U,$J,112,2597,1)
;;=10.69^13.3^17.76^233^56.3^^^154^2.04^15^207^129^551^1.13^.075^.15^^458^1^.18
;;^UTILITY(U,$J,112,2597,2)
;;=.39^1.42^.6^.09^25^.78^^^199^4.538^5.662^1.769^124^1.95
;;^UTILITY(U,$J,112,2597,3)
;;=.149^.403^.535^.852^.635^.262^.182^.55^.401^.642^.531^.281^.448^.776^2.18^.328^.806^.635
;;^UTILITY(U,$J,112,2597,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2598,0)
;;=FF, FISH SANDWICH, W/ TARTAR SAUCE^21-105^sandwichs^158^100^N
;;^UTILITY(U,$J,112,2598,1)
;;=10.72^14.41^25.96^273^47.35^^^53^1.65^21^134^215^389^.63^.121^.231^.55^69^1.8^.21
;;^UTILITY(U,$J,112,2598,2)
;;=.14^2.15^.37^.07^28^.68^4.821^.399^35^3.313^4.869^5.22^19^1.56
;;^UTILITY(U,$J,112,2598,3)
;;=.124^.426^.48^.837^.77^.274^.14^.458^.332^.553^.583^.29^.569^.936^2.143^.486^.62^.479
;;^UTILITY(U,$J,112,2598,4)
;;=.069^.042^.175^1.91^.567^1.117^4.302
;;^UTILITY(U,$J,112,2598,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2599,0)
;;=FF, FISH SANDWICH, W/ TARTAR SAUCE AND CHEESE^21-106^sandwichs^183^100^N
;;^UTILITY(U,$J,112,2599,1)
;;=11.26^15.63^26.03^286^45.18^^^101^1.91^20^170^193^513^.64^.065^.198^1^236^1.5^.25
;;^UTILITY(U,$J,112,2599,2)
;;=.23^2.31^.24^.06^17^.59^4.602^.524^37^4.448^4.874^5.154^53^1.91
;;^UTILITY(U,$J,112,2599,3)
;;=.134^.435^.505^.893^.849^.287^.134^.492^.383^.591^.591^.324^.553^.94^2.257^.464^.717^.507
;;^UTILITY(U,$J,112,2599,4)
;;=.045^.038^.352^2.43^.32^1.398^4.405^.028
;;^UTILITY(U,$J,112,2599,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2600,0)
;;=FF, HAMBURGER, REGULAR, SINGLE PATTY, PLAIN^21-107^burgers^90^100^N
;;^UTILITY(U,$J,112,2600,1)
;;=13.69^13.13^33.9^305^37.55^^^70^2.67^21^114^161^430^2.22^.1^.237^.55^0^0^.37
;;^UTILITY(U,$J,112,2600,2)
;;=.3^4.13^.41^.07^28^.99^.938^.082^39^4.601^6.062^1.02^0^1.73
;;^UTILITY(U,$J,112,2600,3)
;;=.168^.513^.579^1.049^.854^.282^.173^.583^.391^.674^.79^.384^.745^1.056^2.976^.84^.997^.54
;;^UTILITY(U,$J,112,2600,4)
;;=.073^.046^.375^2.369^.639^1.615^5.178
;;^UTILITY(U,$J,112,2600,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2601,0)
;;=FF, HAMBURGER, REGULAR, SINGLE PATTY, W/ CONDIMENTS^21-108^burgers^107^100^N
;;^UTILITY(U,$J,112,2601,1)
;;=12.71^9.56^30.54^257^45.51^^^48^2.3^21^103^201^527^1.92^.115^.197^.4^118^2.4^.24
;;^UTILITY(U,$J,112,2601,2)
;;=.3^4.39^.35^.12^16^.78^1.459^.182^40^3.281^3.474^1.658^12^1.68
FHINI07G ; ; 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,2592,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,2593,0)
+4 ;;=FF, CHEESEBURGER, LARGE, DOUBLE PATTY, W/ COND & VEG^21-100^burgers^258^100^N
+5 ;;^UTILITY(U,$J,112,2593,1)
+6 ;;=14.72^16.92^15.37^273^51.09^^^93^2.29^20^153^231^445^2.59^.08^.123^^135^.4^.14
+7 ;;^UTILITY(U,$J,112,2593,2)
+8 ;;=.19^2.81^.33^.16^19^1.32^^^55^6.85^6.726^1.821^21^1.9
+9 ;;^UTILITY(U,$J,112,2593,3)
+10 ;;=.183^.568^.627^1.159^1.126^.328^.152^.601^.482^.731^.881^.458^.815^1.211^2.764^.9^.95^.539
+11 ;;^UTILITY(U,$J,112,2593,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,2594,0)
+14 ;;=FF, CHEESEBURGER, TRIPLE PATTY, PLAIN^21-101^burgers^304^100^N
+15 ;;^UTILITY(U,$J,112,2594,1)
+16 ;;=18.44^16.76^8.78^262^54.1^^^93^2.73^20^178^270^399^3.58^.085^.116^^118^.9^.2
+17 ;;^UTILITY(U,$J,112,2594,2)
+18 ;;=.21^3.77^.38^.2^17^1.94^^^53^7.14^7.08^1.037^28^1.91
+19 ;;^UTILITY(U,$J,112,2594,3)
+20 ;;=.229^.732^.791^1.469^1.454^.419^.187^.744^.601^.916^1.148^.58^1.077^1.556^3.29^1.202^1.133^.753
+21 ;;^UTILITY(U,$J,112,2594,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,2595,0)
+24 ;;=FF, CHICKEN FILLET SANDWICH, PLAIN^21-102^sandwichs^182^100^N
+25 ;;^UTILITY(U,$J,112,2595,1)
+26 ;;=13.25^16.18^21.26^283^47.31^^^33^2.57^19^128^194^526^1.03^.127^.26^^55^4.9^.18
+27 ;;^UTILITY(U,$J,112,2595,2)
+28 ;;=.13^3.74^.33^.11^16^.21^4^.527^33^4.685^5.72^4.606^17^2
+29 ;;^UTILITY(U,$J,112,2595,3)
+30 ;;=.155^.523^.666^.978^.958^.334^.183^.554^.418^.659^.743^.383^.67^1.077^2.44^.622^.732^.504
+31 ;;^UTILITY(U,$J,112,2595,4)
+32 ;;=.003^.006^.16^3.018^.541^1.408^5.128^.079
+33 ;;^UTILITY(U,$J,112,2595,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,2596,0)
+36 ;;=FF, CHICKEN FILLET SANDWICH, W/ CHEESE^21-103^sandwichs^228^100^N
+37 ;;^UTILITY(U,$J,112,2596,1)
+38 ;;=12.9^17^18.24^277^46.01^^^113^1.59^19^178^146^543^1.27^.075^.167^^272^1.3^.18
+39 ;;^UTILITY(U,$J,112,2596,2)
+40 ;;=.2^3.98^.59^.18^20^.2^^^34^5.46^5.987^4.363^56^2.1
+41 ;;^UTILITY(U,$J,112,2596,3)
+42 ;;=.152^.474^.601^.955^.924^.308^.168^.553^.441^.647^.695^.376^.607^.978^2.469^.649^.903^.526
+43 ;;^UTILITY(U,$J,112,2596,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,2597,0)
+46 ;;=FF, EGG AND CHEESE SANDWICH^21-104^sandwichs^146^100^N
+47 ;;^UTILITY(U,$J,112,2597,1)
+48 ;;=10.69^13.3^17.76^233^56.3^^^154^2.04^15^207^129^551^1.13^.075^.15^^458^1^.18
+49 ;;^UTILITY(U,$J,112,2597,2)
+50 ;;=.39^1.42^.6^.09^25^.78^^^199^4.538^5.662^1.769^124^1.95
+51 ;;^UTILITY(U,$J,112,2597,3)
+52 ;;=.149^.403^.535^.852^.635^.262^.182^.55^.401^.642^.531^.281^.448^.776^2.18^.328^.806^.635
+53 ;;^UTILITY(U,$J,112,2597,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,2598,0)
+56 ;;=FF, FISH SANDWICH, W/ TARTAR SAUCE^21-105^sandwichs^158^100^N
+57 ;;^UTILITY(U,$J,112,2598,1)
+58 ;;=10.72^14.41^25.96^273^47.35^^^53^1.65^21^134^215^389^.63^.121^.231^.55^69^1.8^.21
+59 ;;^UTILITY(U,$J,112,2598,2)
+60 ;;=.14^2.15^.37^.07^28^.68^4.821^.399^35^3.313^4.869^5.22^19^1.56
+61 ;;^UTILITY(U,$J,112,2598,3)
+62 ;;=.124^.426^.48^.837^.77^.274^.14^.458^.332^.553^.583^.29^.569^.936^2.143^.486^.62^.479
+63 ;;^UTILITY(U,$J,112,2598,4)
+64 ;;=.069^.042^.175^1.91^.567^1.117^4.302
+65 ;;^UTILITY(U,$J,112,2598,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,2599,0)
+68 ;;=FF, FISH SANDWICH, W/ TARTAR SAUCE AND CHEESE^21-106^sandwichs^183^100^N
+69 ;;^UTILITY(U,$J,112,2599,1)
+70 ;;=11.26^15.63^26.03^286^45.18^^^101^1.91^20^170^193^513^.64^.065^.198^1^236^1.5^.25
+71 ;;^UTILITY(U,$J,112,2599,2)
+72 ;;=.23^2.31^.24^.06^17^.59^4.602^.524^37^4.448^4.874^5.154^53^1.91
+73 ;;^UTILITY(U,$J,112,2599,3)
+74 ;;=.134^.435^.505^.893^.849^.287^.134^.492^.383^.591^.591^.324^.553^.94^2.257^.464^.717^.507
+75 ;;^UTILITY(U,$J,112,2599,4)
+76 ;;=.045^.038^.352^2.43^.32^1.398^4.405^.028
+77 ;;^UTILITY(U,$J,112,2599,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,2600,0)
+80 ;;=FF, HAMBURGER, REGULAR, SINGLE PATTY, PLAIN^21-107^burgers^90^100^N
+81 ;;^UTILITY(U,$J,112,2600,1)
+82 ;;=13.69^13.13^33.9^305^37.55^^^70^2.67^21^114^161^430^2.22^.1^.237^.55^0^0^.37
+83 ;;^UTILITY(U,$J,112,2600,2)
+84 ;;=.3^4.13^.41^.07^28^.99^.938^.082^39^4.601^6.062^1.02^0^1.73
+85 ;;^UTILITY(U,$J,112,2600,3)
+86 ;;=.168^.513^.579^1.049^.854^.282^.173^.583^.391^.674^.79^.384^.745^1.056^2.976^.84^.997^.54
+87 ;;^UTILITY(U,$J,112,2600,4)
+88 ;;=.073^.046^.375^2.369^.639^1.615^5.178
+89 ;;^UTILITY(U,$J,112,2600,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,2601,0)
+92 ;;=FF, HAMBURGER, REGULAR, SINGLE PATTY, W/ CONDIMENTS^21-108^burgers^107^100^N
+93 ;;^UTILITY(U,$J,112,2601,1)
+94 ;;=12.71^9.56^30.54^257^45.51^^^48^2.3^21^103^201^527^1.92^.115^.197^.4^118^2.4^.24
+95 ;;^UTILITY(U,$J,112,2601,2)
+96 ;;=.3^4.39^.35^.12^16^.78^1.459^.182^40^3.281^3.474^1.658^12^1.68
