FHINI07H ; ; 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,2601,3)
;;=.156^.474^.536^.968^.789^.261^.16^.54^.361^.624^.732^.354^.687^.983^2.777^.774^.919^.552
;;^UTILITY(U,$J,112,2601,4)
;;=.015^.012^.202^1.809^.26^1.044^3.1^.017^^19.5
;;^UTILITY(U,$J,112,2601,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2602,0)
;;=FF, HAMBURGER, REGULAR, SINGLE PATTY, W/ COND & VEG^21-109^burgers^110^100^N
;;^UTILITY(U,$J,112,2602,1)
;;=11.74^12.25^24.81^254^49.41^^^57^2.39^20^113^206^458^1.87^.093^.23^^75^1.5^.21
;;^UTILITY(U,$J,112,2602,2)
;;=.18^3.35^.27^.11^17^.8^^^24^3.755^4.809^2.343^8^1.78
;;^UTILITY(U,$J,112,2602,3)
;;=.142^.438^.495^.892^.726^.24^.148^.499^.333^.576^.672^.325^.633^.917^2.579^.711^.841^.51
;;^UTILITY(U,$J,112,2602,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2603,0)
;;=FF, HAMBURGER, REGULAR, DOUBLE PATTY, PLAIN^21-110^burgers^176^100^N
;;^UTILITY(U,$J,112,2603,1)
;;=17^15.85^24.39^309^41.1^^^49^2.59^21^133^206^315^3.25^.095^.16^.75^0^0^.19
;;^UTILITY(U,$J,112,2603,2)
;;=.21^4.69^.38^.18^21^1.66^^^56^5.896^6.879^1.33^0^1.65
;;^UTILITY(U,$J,112,2603,3)
;;=.206^.666^.716^1.319^1.226^.37^.186^.677^.502^.823^1.053^.505^1.006^1.415^3.156^1.141^1.039^.694
;;^UTILITY(U,$J,112,2603,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2604,0)
;;=FF, HAMBURGER, REGULAR, DOUBLE PATTY, W/ CONDIMENTS^21-111^burgers^215^100^N
;;^UTILITY(U,$J,112,2604,1)
;;=14.8^15.1^18.02^268^50.51^^^43^2.58^21^132^245^345^2.7^.09^.151^^25^.5^.16
;;^UTILITY(U,$J,112,2604,2)
;;=.19^3.13^.36^.17^21^1.55^^^48^5.582^6.571^1.286^2^1.57
;;^UTILITY(U,$J,112,2604,3)
;;=.179^.58^.623^1.143^1.062^.32^.162^.589^.437^.714^.914^.437^.873^1.231^2.759^.988^.904^.601
;;^UTILITY(U,$J,112,2604,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2605,0)
;;=FF, HAMBURGER, LARGE, SINGLE PATTY, PLAIN^21-112^burgers^137^100^N
;;^UTILITY(U,$J,112,2605,1)
;;=16.51^16.73^23.16^311^42.1^^^54^2.61^20^128^195^346^3^.095^.178^^0^0^.21
;;^UTILITY(U,$J,112,2605,2)
;;=.21^4.56^.39^.17^23^1.5^^^52^6.12^7.21^1.56^0^1.5
;;^UTILITY(U,$J,112,2605,3)
;;=.2^.639^.692^1.27^1.153^.354^.186^.663^.482^.799^1.004^.482^.956^1.347^3.15^1.081^1.041^.679
;;^UTILITY(U,$J,112,2605,4)
;;=^^^^^^^^^19.8
;;^UTILITY(U,$J,112,2605,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2606,0)
;;=FF, HAMBURGER, LARGE, SINGLE PATTY, W/ COND & VEG^21-113^burgers^218^100^N
;;^UTILITY(U,$J,112,2606,1)
;;=11.85^12.55^18.35^235^55.7^^^44^2.26^20^107^220^378^2.24^.091^.16^^143^1.2^.19
;;^UTILITY(U,$J,112,2606,2)
;;=.17^3.34^.33^.15^17^1.09^.88^.11^40^4.78^5.24^1.01^15^1.56
;;^UTILITY(U,$J,112,2606,3)
;;=.141^.455^.491^.896^.814^.248^.134^.472^.34^.566^.709^.34^.676^.982^2.317^.76^.732^.481
;;^UTILITY(U,$J,112,2606,4)
;;=.02^.01^.3^2.76^.43^1.44^4.65^.02^^3.66
;;^UTILITY(U,$J,112,2606,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2607,0)
;;=FF, HAMBURGER, LARGE, DOUBLE PATTY, W/ COND & VEG^21-114^burgers^226^100^N
;;^UTILITY(U,$J,112,2607,1)
;;=15.17^11.75^17.82^239^53.74^^^45^2.59^22^139^252^350^2.51^.097^.11^^45^.5^.16
;;^UTILITY(U,$J,112,2607,2)
;;=.17^3.35^.24^.24^12^1.8^^^54^4.654^4.57^1.237^5^1.52
;;^UTILITY(U,$J,112,2607,3)
;;=.183^.599^.638^1.172^1.108^.33^.164^.599^.448^.729^.944^.45^.903^1.289^2.803^1.02^.898^.612
;;^UTILITY(U,$J,112,2607,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2608,0)
;;=FF, HAMBURGER, LARGE, TRIPLE PATTY, W/ CONDIMENTS^21-115^burgers^259^100^N
;;^UTILITY(U,$J,112,2608,1)
;;=19.3^16.01^11.04^267^52.37^^^25^3.21^21^152^303^275^4.15^.076^.09^^61^.5^.12
;;^UTILITY(U,$J,112,2608,2)
;;=.21^4.23^.26^.24^12^1.9^^^55^6.147^7.04^1.059^6^1.28
;;^UTILITY(U,$J,112,2608,3)
;;=.237^.778^.822^1.522^1.482^.433^.202^.756^.585^.937^1.242^.588^1.192^1.672^3.384^1.351^1.108^.775
;;^UTILITY(U,$J,112,2608,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2609,0)
;;=FF, HAM AND CHEESE SANDWICH^21-116^sandwichs^146^100^N
;;^UTILITY(U,$J,112,2609,1)
;;=14.17^10.6^22.84^241^50.8^^^89^2.22^11^104^199^528^.94^.125^.095^.2^219^1.9^.21
;;^UTILITY(U,$J,112,2609,2)
;;=.33^1.84^.71^.14^49^.37^.89^.052^40^4.409^4.615^.942^52^1.59
;;^UTILITY(U,$J,112,2609,3)
;;=.185^.506^.624^1.142^1.077^.333^.171^.68^.562^.735^.696^.483^.552^.994^3.104^.481^1.184^.659
;;^UTILITY(U,$J,112,2609,4)
;;=.095^.085^.443^2.662^.516^1.048^4.099
;;^UTILITY(U,$J,112,2609,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2610,0)
;;=FF, HAM, EGG, AND CHEESE SANDWICH^21-117^sandwichs^143^100^N
;;^UTILITY(U,$J,112,2610,1)
;;=13.46^11.4^21.64^243^51.15^^^148^2.17^18^242^147^703^1.39^.085^.17^^393^1.9^.3
FHINI07H ; ; 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,2601,3)
+2 ;;=.156^.474^.536^.968^.789^.261^.16^.54^.361^.624^.732^.354^.687^.983^2.777^.774^.919^.552
+3 ;;^UTILITY(U,$J,112,2601,4)
+4 ;;=.015^.012^.202^1.809^.26^1.044^3.1^.017^^19.5
+5 ;;^UTILITY(U,$J,112,2601,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,2602,0)
+8 ;;=FF, HAMBURGER, REGULAR, SINGLE PATTY, W/ COND & VEG^21-109^burgers^110^100^N
+9 ;;^UTILITY(U,$J,112,2602,1)
+10 ;;=11.74^12.25^24.81^254^49.41^^^57^2.39^20^113^206^458^1.87^.093^.23^^75^1.5^.21
+11 ;;^UTILITY(U,$J,112,2602,2)
+12 ;;=.18^3.35^.27^.11^17^.8^^^24^3.755^4.809^2.343^8^1.78
+13 ;;^UTILITY(U,$J,112,2602,3)
+14 ;;=.142^.438^.495^.892^.726^.24^.148^.499^.333^.576^.672^.325^.633^.917^2.579^.711^.841^.51
+15 ;;^UTILITY(U,$J,112,2602,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,2603,0)
+18 ;;=FF, HAMBURGER, REGULAR, DOUBLE PATTY, PLAIN^21-110^burgers^176^100^N
+19 ;;^UTILITY(U,$J,112,2603,1)
+20 ;;=17^15.85^24.39^309^41.1^^^49^2.59^21^133^206^315^3.25^.095^.16^.75^0^0^.19
+21 ;;^UTILITY(U,$J,112,2603,2)
+22 ;;=.21^4.69^.38^.18^21^1.66^^^56^5.896^6.879^1.33^0^1.65
+23 ;;^UTILITY(U,$J,112,2603,3)
+24 ;;=.206^.666^.716^1.319^1.226^.37^.186^.677^.502^.823^1.053^.505^1.006^1.415^3.156^1.141^1.039^.694
+25 ;;^UTILITY(U,$J,112,2603,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,2604,0)
+28 ;;=FF, HAMBURGER, REGULAR, DOUBLE PATTY, W/ CONDIMENTS^21-111^burgers^215^100^N
+29 ;;^UTILITY(U,$J,112,2604,1)
+30 ;;=14.8^15.1^18.02^268^50.51^^^43^2.58^21^132^245^345^2.7^.09^.151^^25^.5^.16
+31 ;;^UTILITY(U,$J,112,2604,2)
+32 ;;=.19^3.13^.36^.17^21^1.55^^^48^5.582^6.571^1.286^2^1.57
+33 ;;^UTILITY(U,$J,112,2604,3)
+34 ;;=.179^.58^.623^1.143^1.062^.32^.162^.589^.437^.714^.914^.437^.873^1.231^2.759^.988^.904^.601
+35 ;;^UTILITY(U,$J,112,2604,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,2605,0)
+38 ;;=FF, HAMBURGER, LARGE, SINGLE PATTY, PLAIN^21-112^burgers^137^100^N
+39 ;;^UTILITY(U,$J,112,2605,1)
+40 ;;=16.51^16.73^23.16^311^42.1^^^54^2.61^20^128^195^346^3^.095^.178^^0^0^.21
+41 ;;^UTILITY(U,$J,112,2605,2)
+42 ;;=.21^4.56^.39^.17^23^1.5^^^52^6.12^7.21^1.56^0^1.5
+43 ;;^UTILITY(U,$J,112,2605,3)
+44 ;;=.2^.639^.692^1.27^1.153^.354^.186^.663^.482^.799^1.004^.482^.956^1.347^3.15^1.081^1.041^.679
+45 ;;^UTILITY(U,$J,112,2605,4)
+46 ;;=^^^^^^^^^19.8
+47 ;;^UTILITY(U,$J,112,2605,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,2606,0)
+50 ;;=FF, HAMBURGER, LARGE, SINGLE PATTY, W/ COND & VEG^21-113^burgers^218^100^N
+51 ;;^UTILITY(U,$J,112,2606,1)
+52 ;;=11.85^12.55^18.35^235^55.7^^^44^2.26^20^107^220^378^2.24^.091^.16^^143^1.2^.19
+53 ;;^UTILITY(U,$J,112,2606,2)
+54 ;;=.17^3.34^.33^.15^17^1.09^.88^.11^40^4.78^5.24^1.01^15^1.56
+55 ;;^UTILITY(U,$J,112,2606,3)
+56 ;;=.141^.455^.491^.896^.814^.248^.134^.472^.34^.566^.709^.34^.676^.982^2.317^.76^.732^.481
+57 ;;^UTILITY(U,$J,112,2606,4)
+58 ;;=.02^.01^.3^2.76^.43^1.44^4.65^.02^^3.66
+59 ;;^UTILITY(U,$J,112,2606,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,2607,0)
+62 ;;=FF, HAMBURGER, LARGE, DOUBLE PATTY, W/ COND & VEG^21-114^burgers^226^100^N
+63 ;;^UTILITY(U,$J,112,2607,1)
+64 ;;=15.17^11.75^17.82^239^53.74^^^45^2.59^22^139^252^350^2.51^.097^.11^^45^.5^.16
+65 ;;^UTILITY(U,$J,112,2607,2)
+66 ;;=.17^3.35^.24^.24^12^1.8^^^54^4.654^4.57^1.237^5^1.52
+67 ;;^UTILITY(U,$J,112,2607,3)
+68 ;;=.183^.599^.638^1.172^1.108^.33^.164^.599^.448^.729^.944^.45^.903^1.289^2.803^1.02^.898^.612
+69 ;;^UTILITY(U,$J,112,2607,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,2608,0)
+72 ;;=FF, HAMBURGER, LARGE, TRIPLE PATTY, W/ CONDIMENTS^21-115^burgers^259^100^N
+73 ;;^UTILITY(U,$J,112,2608,1)
+74 ;;=19.3^16.01^11.04^267^52.37^^^25^3.21^21^152^303^275^4.15^.076^.09^^61^.5^.12
+75 ;;^UTILITY(U,$J,112,2608,2)
+76 ;;=.21^4.23^.26^.24^12^1.9^^^55^6.147^7.04^1.059^6^1.28
+77 ;;^UTILITY(U,$J,112,2608,3)
+78 ;;=.237^.778^.822^1.522^1.482^.433^.202^.756^.585^.937^1.242^.588^1.192^1.672^3.384^1.351^1.108^.775
+79 ;;^UTILITY(U,$J,112,2608,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,2609,0)
+82 ;;=FF, HAM AND CHEESE SANDWICH^21-116^sandwichs^146^100^N
+83 ;;^UTILITY(U,$J,112,2609,1)
+84 ;;=14.17^10.6^22.84^241^50.8^^^89^2.22^11^104^199^528^.94^.125^.095^.2^219^1.9^.21
+85 ;;^UTILITY(U,$J,112,2609,2)
+86 ;;=.33^1.84^.71^.14^49^.37^.89^.052^40^4.409^4.615^.942^52^1.59
+87 ;;^UTILITY(U,$J,112,2609,3)
+88 ;;=.185^.506^.624^1.142^1.077^.333^.171^.68^.562^.735^.696^.483^.552^.994^3.104^.481^1.184^.659
+89 ;;^UTILITY(U,$J,112,2609,4)
+90 ;;=.095^.085^.443^2.662^.516^1.048^4.099
+91 ;;^UTILITY(U,$J,112,2609,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,2610,0)
+94 ;;=FF, HAM, EGG, AND CHEESE SANDWICH^21-117^sandwichs^143^100^N
+95 ;;^UTILITY(U,$J,112,2610,1)
+96 ;;=13.46^11.4^21.64^243^51.15^^^148^2.17^18^242^147^703^1.39^.085^.17^^393^1.9^.3
