FHINI05R ; ; 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,1983,0)
;;=VEGETABLES, MIXED, FRZ, CKD WO/SALT^11-584^cups^182^100^N
;;^UTILITY(U,$J,112,1983,1)
;;=2.86^.15^13.09^59^83.23^^^25^.82^22^51^169^35^.49^.083^.379^^4277^3.2^.071
;;^UTILITY(U,$J,112,1983,2)
;;=.12^.851^.151^.074^19^0^.053^.019^0^.031^.01^.072^428^.67^^^5.4
;;^UTILITY(U,$J,112,1983,3)
;;=.029^.115^.139^.19^.17^.034^.026^.12^.074^.149^.193^.073^.123^.303^.39^.104^.07^.136
;;^UTILITY(U,$J,112,1983,4)
;;=^0^0^.027^0^.003^.009^^^.3
;;^UTILITY(U,$J,112,1983,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1984,0)
;;=VEGETABLES, MIXED, FRZ, CKD W/SALT^11-894^cups^182^100^N
;;^UTILITY(U,$J,112,1984,1)
;;=2.86^.15^13.09^59^83.23^^^25^.82^22^51^169^271^.49^.083^.379^^4277^3.2^.071
;;^UTILITY(U,$J,112,1984,2)
;;=.12^.851^.151^.074^19^0^.053^.019^0^.031^.01^.072^428^.67
;;^UTILITY(U,$J,112,1984,3)
;;=.029^.115^.139^.19^.17^.034^.026^.12^.074^.149^.193^.073^.123^.303^.39^.104^.07^.136
;;^UTILITY(U,$J,112,1984,4)
;;=^0^0^.027^0^.003^.009
;;^UTILITY(U,$J,112,1984,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1985,0)
;;=VENISON, LEAN MEAT ONLY, RAW^17-164^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1985,1)
;;=22.96^2.42^0^120^73.57^^^5^3.4^23^202^318^51^2.09^.253^.041^^0^0^.22
;;^UTILITY(U,$J,112,1985,2)
;;=.48^6.37^^^^^.31^.07^85^.95^.67^.47^0^1.16^^^0
;;^UTILITY(U,$J,112,1985,3)
;;=^1.08^.908^1.951^2.006^.566^.257^.937^.812^1.073^1.653^1.135^1.433^2.13^3.336^1.175^1.183^.974
;;^UTILITY(U,$J,112,1985,4)
;;=0^0^.02^.41^.03^.51^.63^.1
;;^UTILITY(U,$J,112,1985,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1986,0)
;;=VINEGAR, CIDER^2406-0^tbsp.^15^100^N
;;^UTILITY(U,$J,112,1986,1)
;;=0^0^5.9^14^93.8^^^6^.6^^9^100^1^^^^^0^0^0
;;^UTILITY(U,$J,112,1986,2)
;;=0^0^^^^^0^^0^0^^^^.3
;;^UTILITY(U,$J,112,1986,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1986,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1987,0)
;;=VINEGAR, DISTILLED^2407-0^tbsp.^15^100^N
;;^UTILITY(U,$J,112,1987,1)
;;=0^0^5^12^95^^^0^0^^0^15^1^^^^^0^0^0
;;^UTILITY(U,$J,112,1987,2)
;;=0^0^^^^^0^^0^0^^^^0
;;^UTILITY(U,$J,112,1987,4)
;;=^^^^^^0^^0
;;^UTILITY(U,$J,112,1987,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1988,0)
;;=WAFFLES, BAKED FROM HOME RECIPE, ENR^18-367^waffles^200^100^N
;;^UTILITY(U,$J,112,1988,1)
;;=7.9^14.1^32.9^291^42^^^255^2.31^19^190^159^511^.68^.062^.265^^228^.4^.263
;;^UTILITY(U,$J,112,1988,2)
;;=.347^2.073^.485^.056^15^.25^5.975^.782^69^2.866^3.521^6.785^65^3.1
;;^UTILITY(U,$J,112,1988,3)
;;=.099^.289^.362^.63^.384^.179^.145^.395^.293^.409^.345^.187^.301^.509^1.989^.247^.726^.447
;;^UTILITY(U,$J,112,1988,4)
;;=.032^.036^.145^1.865^.096^.696^3.395^.021
;;^UTILITY(U,$J,112,1988,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1989,0)
;;=WAFFLES, FRZ, ENR^18-365^waffles^34^100^N
;;^UTILITY(U,$J,112,1989,1)
;;=5.9^7.8^38.6^251^44.9^^^221^4.25^21^399^122^748^.55^.073^.348^^1281^0^.457
;;^UTILITY(U,$J,112,1989,2)
;;=.503^4.681^.589^.945^48^2.38^2.449^.171^22^1.367^3.05^2.643^384^2.8^^^2.4
;;^UTILITY(U,$J,112,1989,3)
;;=.072^.184^.225^.423^.185^.117^.126^.294^.187^.258^.254^.131^.212^.31^1.755^.207^.601^.317
;;^UTILITY(U,$J,112,1989,4)
;;=.001^.001^.012^.955^.061^.397^2.985^.018
;;^UTILITY(U,$J,112,1989,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1990,0)
;;=WAFFLES, BAKED FROM MIX, ENR^18-366^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1990,1)
;;=6.1^13.7^35.2^290^42.5^^^124^1.63^20^336^179^611^.47^.09^.262^^90^.2^.206
;;^UTILITY(U,$J,112,1990,2)
;;=.252^1.64^.339^.1^12^.26^6.119^.753^51^2.247^3.604^6.897^26^2.5^^^1.4
;;^UTILITY(U,$J,112,1990,3)
;;=.07^.234^.27^.525^.285^.137^.119^.306^.221^.318^.281^.148^.279^.419^1.419^.203^.528^.342
;;^UTILITY(U,$J,112,1990,4)
;;=.004^.005^.031^1.606^.071^.587^3.507^.019
;;^UTILITY(U,$J,112,1990,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1991,0)
;;=WAFFLES, MADE FROM PANCAKE & WAFFLE MIX, ENR^2417-0^waffles^200^100^N
;;^UTILITY(U,$J,112,1991,1)
;;=8.8^10.6^36.2^275^41.7^^^239^1.6^^343^195^686^^^^^230^.6^.19
;;^UTILITY(U,$J,112,1991,2)
;;=.3^1.2^^^^^1.65^^60^3.65^^^^2.7
;;^UTILITY(U,$J,112,1991,4)
;;=^^^^^^4.48
;;^UTILITY(U,$J,112,1991,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1992,0)
;;=WALNUTS, BLACK^12-154^oz.^28.3^24^N
;;^UTILITY(U,$J,112,1992,1)
;;=24.35^56.58^12.1^607^4.36^^^58^3.07^202^464^524^1^3.42^1.02^4.271^^296^3.2^.217
;;^UTILITY(U,$J,112,1992,2)
;;=.109^.69^.626^.554^65.5^0^33.459^3.306^0^3.628^12.727^37.492^30^2.61^^^5
;;^UTILITY(U,$J,112,1992,3)
;;=.322^.73^.978^1.704^.721^.473^.468^1.107^.749^1.286^3.661^.68^1.061^2.462^5.213^1.203^.937^1.24
FHINI05R ; ; 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,1983,0)
+2 ;;=VEGETABLES, MIXED, FRZ, CKD WO/SALT^11-584^cups^182^100^N
+3 ;;^UTILITY(U,$J,112,1983,1)
+4 ;;=2.86^.15^13.09^59^83.23^^^25^.82^22^51^169^35^.49^.083^.379^^4277^3.2^.071
+5 ;;^UTILITY(U,$J,112,1983,2)
+6 ;;=.12^.851^.151^.074^19^0^.053^.019^0^.031^.01^.072^428^.67^^^5.4
+7 ;;^UTILITY(U,$J,112,1983,3)
+8 ;;=.029^.115^.139^.19^.17^.034^.026^.12^.074^.149^.193^.073^.123^.303^.39^.104^.07^.136
+9 ;;^UTILITY(U,$J,112,1983,4)
+10 ;;=^0^0^.027^0^.003^.009^^^.3
+11 ;;^UTILITY(U,$J,112,1983,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,1984,0)
+14 ;;=VEGETABLES, MIXED, FRZ, CKD W/SALT^11-894^cups^182^100^N
+15 ;;^UTILITY(U,$J,112,1984,1)
+16 ;;=2.86^.15^13.09^59^83.23^^^25^.82^22^51^169^271^.49^.083^.379^^4277^3.2^.071
+17 ;;^UTILITY(U,$J,112,1984,2)
+18 ;;=.12^.851^.151^.074^19^0^.053^.019^0^.031^.01^.072^428^.67
+19 ;;^UTILITY(U,$J,112,1984,3)
+20 ;;=.029^.115^.139^.19^.17^.034^.026^.12^.074^.149^.193^.073^.123^.303^.39^.104^.07^.136
+21 ;;^UTILITY(U,$J,112,1984,4)
+22 ;;=^0^0^.027^0^.003^.009
+23 ;;^UTILITY(U,$J,112,1984,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,1985,0)
+26 ;;=VENISON, LEAN MEAT ONLY, RAW^17-164^oz.^28.3^100^N
+27 ;;^UTILITY(U,$J,112,1985,1)
+28 ;;=22.96^2.42^0^120^73.57^^^5^3.4^23^202^318^51^2.09^.253^.041^^0^0^.22
+29 ;;^UTILITY(U,$J,112,1985,2)
+30 ;;=.48^6.37^^^^^.31^.07^85^.95^.67^.47^0^1.16^^^0
+31 ;;^UTILITY(U,$J,112,1985,3)
+32 ;;=^1.08^.908^1.951^2.006^.566^.257^.937^.812^1.073^1.653^1.135^1.433^2.13^3.336^1.175^1.183^.974
+33 ;;^UTILITY(U,$J,112,1985,4)
+34 ;;=0^0^.02^.41^.03^.51^.63^.1
+35 ;;^UTILITY(U,$J,112,1985,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,1986,0)
+38 ;;=VINEGAR, CIDER^2406-0^tbsp.^15^100^N
+39 ;;^UTILITY(U,$J,112,1986,1)
+40 ;;=0^0^5.9^14^93.8^^^6^.6^^9^100^1^^^^^0^0^0
+41 ;;^UTILITY(U,$J,112,1986,2)
+42 ;;=0^0^^^^^0^^0^0^^^^.3
+43 ;;^UTILITY(U,$J,112,1986,4)
+44 ;;=^^^^^^0
+45 ;;^UTILITY(U,$J,112,1986,20)
+46 ;;=USDA Std. Reference, Release 8
+47 ;;^UTILITY(U,$J,112,1987,0)
+48 ;;=VINEGAR, DISTILLED^2407-0^tbsp.^15^100^N
+49 ;;^UTILITY(U,$J,112,1987,1)
+50 ;;=0^0^5^12^95^^^0^0^^0^15^1^^^^^0^0^0
+51 ;;^UTILITY(U,$J,112,1987,2)
+52 ;;=0^0^^^^^0^^0^0^^^^0
+53 ;;^UTILITY(U,$J,112,1987,4)
+54 ;;=^^^^^^0^^0
+55 ;;^UTILITY(U,$J,112,1987,20)
+56 ;;=USDA Std. Reference, Release 8
+57 ;;^UTILITY(U,$J,112,1988,0)
+58 ;;=WAFFLES, BAKED FROM HOME RECIPE, ENR^18-367^waffles^200^100^N
+59 ;;^UTILITY(U,$J,112,1988,1)
+60 ;;=7.9^14.1^32.9^291^42^^^255^2.31^19^190^159^511^.68^.062^.265^^228^.4^.263
+61 ;;^UTILITY(U,$J,112,1988,2)
+62 ;;=.347^2.073^.485^.056^15^.25^5.975^.782^69^2.866^3.521^6.785^65^3.1
+63 ;;^UTILITY(U,$J,112,1988,3)
+64 ;;=.099^.289^.362^.63^.384^.179^.145^.395^.293^.409^.345^.187^.301^.509^1.989^.247^.726^.447
+65 ;;^UTILITY(U,$J,112,1988,4)
+66 ;;=.032^.036^.145^1.865^.096^.696^3.395^.021
+67 ;;^UTILITY(U,$J,112,1988,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,1989,0)
+70 ;;=WAFFLES, FRZ, ENR^18-365^waffles^34^100^N
+71 ;;^UTILITY(U,$J,112,1989,1)
+72 ;;=5.9^7.8^38.6^251^44.9^^^221^4.25^21^399^122^748^.55^.073^.348^^1281^0^.457
+73 ;;^UTILITY(U,$J,112,1989,2)
+74 ;;=.503^4.681^.589^.945^48^2.38^2.449^.171^22^1.367^3.05^2.643^384^2.8^^^2.4
+75 ;;^UTILITY(U,$J,112,1989,3)
+76 ;;=.072^.184^.225^.423^.185^.117^.126^.294^.187^.258^.254^.131^.212^.31^1.755^.207^.601^.317
+77 ;;^UTILITY(U,$J,112,1989,4)
+78 ;;=.001^.001^.012^.955^.061^.397^2.985^.018
+79 ;;^UTILITY(U,$J,112,1989,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,1990,0)
+82 ;;=WAFFLES, BAKED FROM MIX, ENR^18-366^oz.^28.3^100^N
+83 ;;^UTILITY(U,$J,112,1990,1)
+84 ;;=6.1^13.7^35.2^290^42.5^^^124^1.63^20^336^179^611^.47^.09^.262^^90^.2^.206
+85 ;;^UTILITY(U,$J,112,1990,2)
+86 ;;=.252^1.64^.339^.1^12^.26^6.119^.753^51^2.247^3.604^6.897^26^2.5^^^1.4
+87 ;;^UTILITY(U,$J,112,1990,3)
+88 ;;=.07^.234^.27^.525^.285^.137^.119^.306^.221^.318^.281^.148^.279^.419^1.419^.203^.528^.342
+89 ;;^UTILITY(U,$J,112,1990,4)
+90 ;;=.004^.005^.031^1.606^.071^.587^3.507^.019
+91 ;;^UTILITY(U,$J,112,1990,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,1991,0)
+94 ;;=WAFFLES, MADE FROM PANCAKE & WAFFLE MIX, ENR^2417-0^waffles^200^100^N
+95 ;;^UTILITY(U,$J,112,1991,1)
+96 ;;=8.8^10.6^36.2^275^41.7^^^239^1.6^^343^195^686^^^^^230^.6^.19
+97 ;;^UTILITY(U,$J,112,1991,2)
+98 ;;=.3^1.2^^^^^1.65^^60^3.65^^^^2.7
+99 ;;^UTILITY(U,$J,112,1991,4)
+100 ;;=^^^^^^4.48
+101 ;;^UTILITY(U,$J,112,1991,20)
+102 ;;=USDA Std. Reference, Release 8
+103 ;;^UTILITY(U,$J,112,1992,0)
+104 ;;=WALNUTS, BLACK^12-154^oz.^28.3^24^N
+105 ;;^UTILITY(U,$J,112,1992,1)
+106 ;;=24.35^56.58^12.1^607^4.36^^^58^3.07^202^464^524^1^3.42^1.02^4.271^^296^3.2^.217
+107 ;;^UTILITY(U,$J,112,1992,2)
+108 ;;=.109^.69^.626^.554^65.5^0^33.459^3.306^0^3.628^12.727^37.492^30^2.61^^^5
+109 ;;^UTILITY(U,$J,112,1992,3)
+110 ;;=.322^.73^.978^1.704^.721^.473^.468^1.107^.749^1.286^3.661^.68^1.061^2.462^5.213^1.203^.937^1.24
