FHINI05X ; ; 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,2042,2)
;;=.02^.2^.072^.113^24.3^0^.045^.066^0^.027^.003^.111^5^.57^^^2.5
;;^UTILITY(U,$J,112,2042,3)
;;=.006^.034^.028^.052^.042^.01^.014^.03^.022^.031^.042^.014^.04^.076^.123^.037^.036^.05
;;^UTILITY(U,$J,112,2042,4)
;;=^^^.025^^.001^.003
;;^UTILITY(U,$J,112,2042,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2043,0)
;;=LENTILS, SPROUTED, RAW^11-248^cups^77^100^N
;;^UTILITY(U,$J,112,2043,1)
;;=8.96^.55^22.14^106^67.34^^^25^3.21^37^173^322^11^1.51^.352^.506^^45^16.5^.228
;;^UTILITY(U,$J,112,2043,2)
;;=.128^1.128^.578^.19^99.9^0^.181^.038^0^.057^.104^.219^5^1
;;^UTILITY(U,$J,112,2043,3)
;;=^.328^.326^.628^.712^.105^.334^.442^.252^.399^.611^.257^.356^1.433^1.258^.319^.356^.495
;;^UTILITY(U,$J,112,2043,4)
;;=^^^.052^^.006^.104^^48
;;^UTILITY(U,$J,112,2043,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2044,0)
;;=LENTILS, SPROUTED, STIR-FRIED, WO/SALT^11-249^cups^64.68^100^N
;;^UTILITY(U,$J,112,2044,1)
;;=8.8^.45^21.25^101^68.7^^^14^3.1^35^153^284^10^1.6^.337^.502^^41^12.6^.22
;;^UTILITY(U,$J,112,2044,2)
;;=.09^1.2^.571^.164^67^0^.166^.035^0^.053^.095^.201^4^.8
;;^UTILITY(U,$J,112,2044,3)
;;=^.322^.32^.617^.698^.103^.328^.434^.248^.391^.6^.252^.349^1.407^1.235^.313^.349^.486
;;^UTILITY(U,$J,112,2044,4)
;;=^^^.047^^.005^.095
;;^UTILITY(U,$J,112,2044,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2045,0)
;;=TOMATO SAUCE, MARINARA, CND^11-256^cups^250^100^N
;;^UTILITY(U,$J,112,2045,1)
;;=1.6^3.35^10.18^68^82.51^^^18^.8^24^35^424^629^.27^.141^.35^^961^12.8^.045
;;^UTILITY(U,$J,112,2045,2)
;;=.059^1.59^.494^.248^13.5^0^.858^.059^0^.48^1.711^.918^96^2.36
;;^UTILITY(U,$J,112,2045,3)
;;=.011^.037^.031^.045^.046^.008^.009^.034^.022^.033^.032^.025^.05^.2^.64^.026^.035^.038
;;^UTILITY(U,$J,112,2045,4)
;;=^^.002^.344^.018^.129^1.686
;;^UTILITY(U,$J,112,2045,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2046,0)
;;=ONIONS, CND^11-285^cups^224^100^N
;;^UTILITY(U,$J,112,2046,1)
;;=.85^.09^4.01^19^94.1^^^45^.13^6^28^111^371^.29^.055^.102^^0^4.3^.032
;;^UTILITY(U,$J,112,2046,2)
;;=.006^.061^.097^.137^9.7^0^.034^.002^0^.016^.013^.036^0^.94^^^1.3
;;^UTILITY(U,$J,112,2046,3)
;;=.012^.02^.029^.028^.039^.007^.015^.021^.02^.019^.109^.013^.023^.044^.131^.034^.025^.024
;;^UTILITY(U,$J,112,2046,4)
;;=^^0^.014^^.001^.013
;;^UTILITY(U,$J,112,2046,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2047,0)
;;=ONION RINGS, BREADED, FRZ, PREPARED^11-296^rings^10^100^N
;;^UTILITY(U,$J,112,2047,1)
;;=5.34^26.7^38.16^407^28.5^^^31^1.69^19^81^129^375^.42^.08^.42^^225^1.4^.28
;;^UTILITY(U,$J,112,2047,2)
;;=.14^3.61^.23^.077^13^0^4.828^.285^0^8.585^10.866^5.113^23^1.3
;;^UTILITY(U,$J,112,2047,3)
;;=.07^.15^.214^.35^.151^.081^.108^.243^.157^.216^.325^.109^.172^.246^1.648^.196^.521^.256
;;^UTILITY(U,$J,112,2047,4)
;;=^^.214^5.201^.356^3.17^10.509^^^3.5
;;^UTILITY(U,$J,112,2047,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2048,0)
;;=PARSLEY, RAW^11-297^sprigs^1^95^N
;;^UTILITY(U,$J,112,2048,1)
;;=2.97^.79^6.33^36^87.71^^^138^6.2^50^58^554^56^1.07^.149^.16^^5200^133^.086
;;^UTILITY(U,$J,112,2048,2)
;;=.098^1.313^.4^.09^152^0^.115^.008^0^.132^.295^.124^520^2.2^^^5.4
;;^UTILITY(U,$J,112,2048,3)
;;=.045^.122^.118^.204^.181^.042^.014^.145^.082^.172^.122^.061^.195^.294^.249^.145^.213^.136
;;^UTILITY(U,$J,112,2048,4)
;;=^^.008^.084^.008^.039^.287^^540
;;^UTILITY(U,$J,112,2048,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2049,0)
;;=PEAS, GREEN, FRZ, CKD, WO/SALT^11-313^cups^160^100^N
;;^UTILITY(U,$J,112,2049,1)
;;=5.15^.27^14.26^78^79.52^^^24^1.57^29^90^168^87^.94^.139^.414^^668^9.9^.283
;;^UTILITY(U,$J,112,2049,2)
;;=.1^1.48^.142^.113^58.6^0^.105^.024^0^.049^.024^.129^67^.8^^^5.4
;;^UTILITY(U,$J,112,2049,3)
;;=.035^.193^.185^.307^.302^.078^.03^.19^.108^.223^.407^.101^.228^.471^.705^.175^.165^.172
;;^UTILITY(U,$J,112,2049,4)
;;=^^^.044^^.005^.024^^^1
;;^UTILITY(U,$J,112,2049,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2050,0)
;;=PEAS AND CARROTS, CND, REG PK, W/SALT^11-318^cups^255^100^N
;;^UTILITY(U,$J,112,2050,1)
;;=2.17^.27^8.48^38^88.15^^^23^.75^14^46^100^260^.58^.103^.357^^5770^6.6^.074
;;^UTILITY(U,$J,112,2050,2)
;;=.053^.581^.12^.088^18.3^0^.105^.023^0^.049^.023^.129^577^.93^^^3.3
;;^UTILITY(U,$J,112,2050,3)
;;=.016^.081^.079^.125^.123^.031^.013^.079^.045^.094^.164^.042^.098^.206^.307^.072^.069^.072
FHINI05X ; ; 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,2042,2)
+2 ;;=.02^.2^.072^.113^24.3^0^.045^.066^0^.027^.003^.111^5^.57^^^2.5
+3 ;;^UTILITY(U,$J,112,2042,3)
+4 ;;=.006^.034^.028^.052^.042^.01^.014^.03^.022^.031^.042^.014^.04^.076^.123^.037^.036^.05
+5 ;;^UTILITY(U,$J,112,2042,4)
+6 ;;=^^^.025^^.001^.003
+7 ;;^UTILITY(U,$J,112,2042,20)
+8 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+9 ;;^UTILITY(U,$J,112,2043,0)
+10 ;;=LENTILS, SPROUTED, RAW^11-248^cups^77^100^N
+11 ;;^UTILITY(U,$J,112,2043,1)
+12 ;;=8.96^.55^22.14^106^67.34^^^25^3.21^37^173^322^11^1.51^.352^.506^^45^16.5^.228
+13 ;;^UTILITY(U,$J,112,2043,2)
+14 ;;=.128^1.128^.578^.19^99.9^0^.181^.038^0^.057^.104^.219^5^1
+15 ;;^UTILITY(U,$J,112,2043,3)
+16 ;;=^.328^.326^.628^.712^.105^.334^.442^.252^.399^.611^.257^.356^1.433^1.258^.319^.356^.495
+17 ;;^UTILITY(U,$J,112,2043,4)
+18 ;;=^^^.052^^.006^.104^^48
+19 ;;^UTILITY(U,$J,112,2043,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,2044,0)
+22 ;;=LENTILS, SPROUTED, STIR-FRIED, WO/SALT^11-249^cups^64.68^100^N
+23 ;;^UTILITY(U,$J,112,2044,1)
+24 ;;=8.8^.45^21.25^101^68.7^^^14^3.1^35^153^284^10^1.6^.337^.502^^41^12.6^.22
+25 ;;^UTILITY(U,$J,112,2044,2)
+26 ;;=.09^1.2^.571^.164^67^0^.166^.035^0^.053^.095^.201^4^.8
+27 ;;^UTILITY(U,$J,112,2044,3)
+28 ;;=^.322^.32^.617^.698^.103^.328^.434^.248^.391^.6^.252^.349^1.407^1.235^.313^.349^.486
+29 ;;^UTILITY(U,$J,112,2044,4)
+30 ;;=^^^.047^^.005^.095
+31 ;;^UTILITY(U,$J,112,2044,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,2045,0)
+34 ;;=TOMATO SAUCE, MARINARA, CND^11-256^cups^250^100^N
+35 ;;^UTILITY(U,$J,112,2045,1)
+36 ;;=1.6^3.35^10.18^68^82.51^^^18^.8^24^35^424^629^.27^.141^.35^^961^12.8^.045
+37 ;;^UTILITY(U,$J,112,2045,2)
+38 ;;=.059^1.59^.494^.248^13.5^0^.858^.059^0^.48^1.711^.918^96^2.36
+39 ;;^UTILITY(U,$J,112,2045,3)
+40 ;;=.011^.037^.031^.045^.046^.008^.009^.034^.022^.033^.032^.025^.05^.2^.64^.026^.035^.038
+41 ;;^UTILITY(U,$J,112,2045,4)
+42 ;;=^^.002^.344^.018^.129^1.686
+43 ;;^UTILITY(U,$J,112,2045,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,2046,0)
+46 ;;=ONIONS, CND^11-285^cups^224^100^N
+47 ;;^UTILITY(U,$J,112,2046,1)
+48 ;;=.85^.09^4.01^19^94.1^^^45^.13^6^28^111^371^.29^.055^.102^^0^4.3^.032
+49 ;;^UTILITY(U,$J,112,2046,2)
+50 ;;=.006^.061^.097^.137^9.7^0^.034^.002^0^.016^.013^.036^0^.94^^^1.3
+51 ;;^UTILITY(U,$J,112,2046,3)
+52 ;;=.012^.02^.029^.028^.039^.007^.015^.021^.02^.019^.109^.013^.023^.044^.131^.034^.025^.024
+53 ;;^UTILITY(U,$J,112,2046,4)
+54 ;;=^^0^.014^^.001^.013
+55 ;;^UTILITY(U,$J,112,2046,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,2047,0)
+58 ;;=ONION RINGS, BREADED, FRZ, PREPARED^11-296^rings^10^100^N
+59 ;;^UTILITY(U,$J,112,2047,1)
+60 ;;=5.34^26.7^38.16^407^28.5^^^31^1.69^19^81^129^375^.42^.08^.42^^225^1.4^.28
+61 ;;^UTILITY(U,$J,112,2047,2)
+62 ;;=.14^3.61^.23^.077^13^0^4.828^.285^0^8.585^10.866^5.113^23^1.3
+63 ;;^UTILITY(U,$J,112,2047,3)
+64 ;;=.07^.15^.214^.35^.151^.081^.108^.243^.157^.216^.325^.109^.172^.246^1.648^.196^.521^.256
+65 ;;^UTILITY(U,$J,112,2047,4)
+66 ;;=^^.214^5.201^.356^3.17^10.509^^^3.5
+67 ;;^UTILITY(U,$J,112,2047,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,2048,0)
+70 ;;=PARSLEY, RAW^11-297^sprigs^1^95^N
+71 ;;^UTILITY(U,$J,112,2048,1)
+72 ;;=2.97^.79^6.33^36^87.71^^^138^6.2^50^58^554^56^1.07^.149^.16^^5200^133^.086
+73 ;;^UTILITY(U,$J,112,2048,2)
+74 ;;=.098^1.313^.4^.09^152^0^.115^.008^0^.132^.295^.124^520^2.2^^^5.4
+75 ;;^UTILITY(U,$J,112,2048,3)
+76 ;;=.045^.122^.118^.204^.181^.042^.014^.145^.082^.172^.122^.061^.195^.294^.249^.145^.213^.136
+77 ;;^UTILITY(U,$J,112,2048,4)
+78 ;;=^^.008^.084^.008^.039^.287^^540
+79 ;;^UTILITY(U,$J,112,2048,20)
+80 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+81 ;;^UTILITY(U,$J,112,2049,0)
+82 ;;=PEAS, GREEN, FRZ, CKD, WO/SALT^11-313^cups^160^100^N
+83 ;;^UTILITY(U,$J,112,2049,1)
+84 ;;=5.15^.27^14.26^78^79.52^^^24^1.57^29^90^168^87^.94^.139^.414^^668^9.9^.283
+85 ;;^UTILITY(U,$J,112,2049,2)
+86 ;;=.1^1.48^.142^.113^58.6^0^.105^.024^0^.049^.024^.129^67^.8^^^5.4
+87 ;;^UTILITY(U,$J,112,2049,3)
+88 ;;=.035^.193^.185^.307^.302^.078^.03^.19^.108^.223^.407^.101^.228^.471^.705^.175^.165^.172
+89 ;;^UTILITY(U,$J,112,2049,4)
+90 ;;=^^^.044^^.005^.024^^^1
+91 ;;^UTILITY(U,$J,112,2049,20)
+92 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+93 ;;^UTILITY(U,$J,112,2050,0)
+94 ;;=PEAS AND CARROTS, CND, REG PK, W/SALT^11-318^cups^255^100^N
+95 ;;^UTILITY(U,$J,112,2050,1)
+96 ;;=2.17^.27^8.48^38^88.15^^^23^.75^14^46^100^260^.58^.103^.357^^5770^6.6^.074
+97 ;;^UTILITY(U,$J,112,2050,2)
+98 ;;=.053^.581^.12^.088^18.3^0^.105^.023^0^.049^.023^.129^577^.93^^^3.3
+99 ;;^UTILITY(U,$J,112,2050,3)
+100 ;;=.016^.081^.079^.125^.123^.031^.013^.079^.045^.094^.164^.042^.098^.206^.307^.072^.069^.072
