FHINI02S ; ; 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,830,4)
;;=^^^^^^4.43
;;^UTILITY(U,$J,112,830,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,834,0)
;;=BROCCOLI, CHOPPED, CKD WO/SALT^11-093^cups^185^100^N
;;^UTILITY(U,$J,112,834,1)
;;=3.1^.12^5.35^28^90.72^^^51^.61^20^55^180^24^.3^.043^.325^^1892^40.1^.055
;;^UTILITY(U,$J,112,834,2)
;;=.081^.458^.274^.13^56.4^0^.013^.042^0^.018^.008^.055^189^.71^^^3
;;^UTILITY(U,$J,112,834,3)
;;=.032^.101^.121^.145^.156^.037^.022^.094^.07^.142^.161^.055^.13^.236^.417^.105^.127^.111
;;^UTILITY(U,$J,112,834,4)
;;=^^^.016^^.002^.008
;;^UTILITY(U,$J,112,834,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,835,0)
;;=BROCCOLI, CHOPPED, CKD W/SALT^11-743^cups^185^100^N
;;^UTILITY(U,$J,112,835,1)
;;=3.1^.12^5.35^28^90.72^^^51^.61^20^55^180^260^.3^.043^.325^^1892^40.1^.055
;;^UTILITY(U,$J,112,835,2)
;;=.081^.458^.274^.13^56.4^0^.013^.042^0^.018^.008^.055^189^.71
;;^UTILITY(U,$J,112,835,3)
;;=.032^.101^.121^.145^.156^.037^.022^.094^.07^.142^.161^.055^.13^.236^.417^.105^.127^.111
;;^UTILITY(U,$J,112,835,4)
;;=^^^.016^^.002^.008
;;^UTILITY(U,$J,112,835,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,836,0)
;;=BROCCOLI, FRZ, CKD WO/SALT^11-095^cups^184^100^N
;;^UTILITY(U,$J,112,836,1)
;;=3.1^.11^5.35^28^90.72^^^51^.61^20^55^180^24^.3^.043^.325^^1892^40.1^.055
;;^UTILITY(U,$J,112,836,2)
;;=.081^.458^.274^.13^30^0^.013^.042^0^.018^.008^.055^189^.71^^^3
;;^UTILITY(U,$J,112,836,3)
;;=.032^.101^.121^.145^.156^.037^.022^.094^.07^.142^.161^.055^.131^.236^.417^.105^.127^.111
;;^UTILITY(U,$J,112,836,4)
;;=^^^.016^^.002^.008^^^1.9
;;^UTILITY(U,$J,112,836,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,837,0)
;;=BROCCOLI, FRZ, CKD W/SALT^11-744^cups^184^100^N
;;^UTILITY(U,$J,112,837,1)
;;=3.1^.11^5.35^28^90.72^^^51^.61^20^55^180^260^.3^.043^.325^^1892^40.1^.055
;;^UTILITY(U,$J,112,837,2)
;;=.081^.458^.274^.13^30^0^.013^.042^0^.018^.008^.055^189^.71
;;^UTILITY(U,$J,112,837,3)
;;=.032^.101^.121^.145^.156^.037^.022^.094^.07^.142^.161^.055^.131^.236^.417^.105^.127^.111
;;^UTILITY(U,$J,112,837,4)
;;=^^^.016^^.002^.008
;;^UTILITY(U,$J,112,837,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,838,0)
;;=BRUSSEL SPROUTS, CKD WO/SALT^11-099^cups^156^100^N
;;^UTILITY(U,$J,112,838,1)
;;=2.55^.51^8.67^39^87.32^^^36^1.2^20^56^317^21^.33^.083^.227^^719^62^.107
;;^UTILITY(U,$J,112,838,2)
;;=.08^.607^.252^.178^60^0^.077^.168^0^.105^.039^.26^72^.95^^^4.9
;;^UTILITY(U,$J,112,838,3)
;;=.028^.091^.1^.114^.116^.024^.016^.074^^.117^.153^.057
;;^UTILITY(U,$J,112,838,4)
;;=0^0^.001^.09^.004^.005^.033^.002
;;^UTILITY(U,$J,112,838,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,839,0)
;;=BRUSSEL SPROUTS, CKD W/SALT^11-745^cups^156^100^N
;;^UTILITY(U,$J,112,839,1)
;;=2.55^.51^8.67^39^87.32^^^36^1.2^20^56^317^257^.33^.083^.227^^719^62^.107
;;^UTILITY(U,$J,112,839,2)
;;=.08^.607^.252^.178^60^0^.077^.168^0^.105^.039^.26^72^.95
;;^UTILITY(U,$J,112,839,3)
;;=.028^.091^.1^.114^.116^.024^.016^.074^^.117^.153^.057
;;^UTILITY(U,$J,112,839,4)
;;=0^0^.001^.09^.004^.005^.033^.002
;;^UTILITY(U,$J,112,839,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,840,0)
;;=BRUSSEL SPROUTS, FRZ, CKD WO/SALT^11-101^cups^155^100^N
;;^UTILITY(U,$J,112,840,1)
;;=3.64^.39^8.32^42^86.74^^^24^.74^24^54^325^23^.36^.07^.32^^589^45.7^.103
;;^UTILITY(U,$J,112,840,2)
;;=.113^.537^.342^.289^101.2^0^.059^.129^0^.081^.03^.2^59^.91
;;^UTILITY(U,$J,112,840,3)
;;=.04^.13^.143^.164^.166^.035^.023^.106^^.167^.218^.082
;;^UTILITY(U,$J,112,840,4)
;;=0^0^.001^.069^.003^.004^.025^.002
;;^UTILITY(U,$J,112,840,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,841,0)
;;=BRUSSEL SPROUTS, FRZ, CKD W/SALT^11-746^cups^155^100^N
;;^UTILITY(U,$J,112,841,1)
;;=3.64^.39^8.32^42^86.74^^^24^.74^24^54^325^259^.36^.07^.32^^589^45.7^.103
;;^UTILITY(U,$J,112,841,2)
;;=.113^.537^.342^.289^101.2^0^.059^.129^0^.081^.03^.2^59^.91
;;^UTILITY(U,$J,112,841,3)
;;=.04^.13^.143^.164^.166^.035^.023^.106^^.167^.218^.082
;;^UTILITY(U,$J,112,841,4)
;;=0^0^.001^.069^.003^.004^.025^.002
;;^UTILITY(U,$J,112,841,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,842,0)
;;=BUCKWHEAT FLOUR, LIGHT^20-011^cups^98^100^N
;;^UTILITY(U,$J,112,842,1)
;;=12.62^3.1^70.59^335^11.15^^^41^4.06^251^337^577^11^3.12^.515^2.03^^0^0^.417
;;^UTILITY(U,$J,112,842,2)
;;=.19^6.15^.44^.582^54^0^.877^.071^0^.677^.949^.949^0^2.54^^^10
;;^UTILITY(U,$J,112,842,3)
;;=.183^.482^.474^.792^.64^.164^.218^.495^.23^.646^.935^.294^.712^1.078^1.948^.981^.482^.652
FHINI02S ; ; 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,830,4)
+2 ;;=^^^^^^4.43
+3 ;;^UTILITY(U,$J,112,830,20)
+4 ;;=USDA Std. Reference, Release 8
+5 ;;^UTILITY(U,$J,112,834,0)
+6 ;;=BROCCOLI, CHOPPED, CKD WO/SALT^11-093^cups^185^100^N
+7 ;;^UTILITY(U,$J,112,834,1)
+8 ;;=3.1^.12^5.35^28^90.72^^^51^.61^20^55^180^24^.3^.043^.325^^1892^40.1^.055
+9 ;;^UTILITY(U,$J,112,834,2)
+10 ;;=.081^.458^.274^.13^56.4^0^.013^.042^0^.018^.008^.055^189^.71^^^3
+11 ;;^UTILITY(U,$J,112,834,3)
+12 ;;=.032^.101^.121^.145^.156^.037^.022^.094^.07^.142^.161^.055^.13^.236^.417^.105^.127^.111
+13 ;;^UTILITY(U,$J,112,834,4)
+14 ;;=^^^.016^^.002^.008
+15 ;;^UTILITY(U,$J,112,834,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,835,0)
+18 ;;=BROCCOLI, CHOPPED, CKD W/SALT^11-743^cups^185^100^N
+19 ;;^UTILITY(U,$J,112,835,1)
+20 ;;=3.1^.12^5.35^28^90.72^^^51^.61^20^55^180^260^.3^.043^.325^^1892^40.1^.055
+21 ;;^UTILITY(U,$J,112,835,2)
+22 ;;=.081^.458^.274^.13^56.4^0^.013^.042^0^.018^.008^.055^189^.71
+23 ;;^UTILITY(U,$J,112,835,3)
+24 ;;=.032^.101^.121^.145^.156^.037^.022^.094^.07^.142^.161^.055^.13^.236^.417^.105^.127^.111
+25 ;;^UTILITY(U,$J,112,835,4)
+26 ;;=^^^.016^^.002^.008
+27 ;;^UTILITY(U,$J,112,835,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,836,0)
+30 ;;=BROCCOLI, FRZ, CKD WO/SALT^11-095^cups^184^100^N
+31 ;;^UTILITY(U,$J,112,836,1)
+32 ;;=3.1^.11^5.35^28^90.72^^^51^.61^20^55^180^24^.3^.043^.325^^1892^40.1^.055
+33 ;;^UTILITY(U,$J,112,836,2)
+34 ;;=.081^.458^.274^.13^30^0^.013^.042^0^.018^.008^.055^189^.71^^^3
+35 ;;^UTILITY(U,$J,112,836,3)
+36 ;;=.032^.101^.121^.145^.156^.037^.022^.094^.07^.142^.161^.055^.131^.236^.417^.105^.127^.111
+37 ;;^UTILITY(U,$J,112,836,4)
+38 ;;=^^^.016^^.002^.008^^^1.9
+39 ;;^UTILITY(U,$J,112,836,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,837,0)
+42 ;;=BROCCOLI, FRZ, CKD W/SALT^11-744^cups^184^100^N
+43 ;;^UTILITY(U,$J,112,837,1)
+44 ;;=3.1^.11^5.35^28^90.72^^^51^.61^20^55^180^260^.3^.043^.325^^1892^40.1^.055
+45 ;;^UTILITY(U,$J,112,837,2)
+46 ;;=.081^.458^.274^.13^30^0^.013^.042^0^.018^.008^.055^189^.71
+47 ;;^UTILITY(U,$J,112,837,3)
+48 ;;=.032^.101^.121^.145^.156^.037^.022^.094^.07^.142^.161^.055^.131^.236^.417^.105^.127^.111
+49 ;;^UTILITY(U,$J,112,837,4)
+50 ;;=^^^.016^^.002^.008
+51 ;;^UTILITY(U,$J,112,837,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,838,0)
+54 ;;=BRUSSEL SPROUTS, CKD WO/SALT^11-099^cups^156^100^N
+55 ;;^UTILITY(U,$J,112,838,1)
+56 ;;=2.55^.51^8.67^39^87.32^^^36^1.2^20^56^317^21^.33^.083^.227^^719^62^.107
+57 ;;^UTILITY(U,$J,112,838,2)
+58 ;;=.08^.607^.252^.178^60^0^.077^.168^0^.105^.039^.26^72^.95^^^4.9
+59 ;;^UTILITY(U,$J,112,838,3)
+60 ;;=.028^.091^.1^.114^.116^.024^.016^.074^^.117^.153^.057
+61 ;;^UTILITY(U,$J,112,838,4)
+62 ;;=0^0^.001^.09^.004^.005^.033^.002
+63 ;;^UTILITY(U,$J,112,838,20)
+64 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+65 ;;^UTILITY(U,$J,112,839,0)
+66 ;;=BRUSSEL SPROUTS, CKD W/SALT^11-745^cups^156^100^N
+67 ;;^UTILITY(U,$J,112,839,1)
+68 ;;=2.55^.51^8.67^39^87.32^^^36^1.2^20^56^317^257^.33^.083^.227^^719^62^.107
+69 ;;^UTILITY(U,$J,112,839,2)
+70 ;;=.08^.607^.252^.178^60^0^.077^.168^0^.105^.039^.26^72^.95
+71 ;;^UTILITY(U,$J,112,839,3)
+72 ;;=.028^.091^.1^.114^.116^.024^.016^.074^^.117^.153^.057
+73 ;;^UTILITY(U,$J,112,839,4)
+74 ;;=0^0^.001^.09^.004^.005^.033^.002
+75 ;;^UTILITY(U,$J,112,839,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,840,0)
+78 ;;=BRUSSEL SPROUTS, FRZ, CKD WO/SALT^11-101^cups^155^100^N
+79 ;;^UTILITY(U,$J,112,840,1)
+80 ;;=3.64^.39^8.32^42^86.74^^^24^.74^24^54^325^23^.36^.07^.32^^589^45.7^.103
+81 ;;^UTILITY(U,$J,112,840,2)
+82 ;;=.113^.537^.342^.289^101.2^0^.059^.129^0^.081^.03^.2^59^.91
+83 ;;^UTILITY(U,$J,112,840,3)
+84 ;;=.04^.13^.143^.164^.166^.035^.023^.106^^.167^.218^.082
+85 ;;^UTILITY(U,$J,112,840,4)
+86 ;;=0^0^.001^.069^.003^.004^.025^.002
+87 ;;^UTILITY(U,$J,112,840,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,841,0)
+90 ;;=BRUSSEL SPROUTS, FRZ, CKD W/SALT^11-746^cups^155^100^N
+91 ;;^UTILITY(U,$J,112,841,1)
+92 ;;=3.64^.39^8.32^42^86.74^^^24^.74^24^54^325^259^.36^.07^.32^^589^45.7^.103
+93 ;;^UTILITY(U,$J,112,841,2)
+94 ;;=.113^.537^.342^.289^101.2^0^.059^.129^0^.081^.03^.2^59^.91
+95 ;;^UTILITY(U,$J,112,841,3)
+96 ;;=.04^.13^.143^.164^.166^.035^.023^.106^^.167^.218^.082
+97 ;;^UTILITY(U,$J,112,841,4)
+98 ;;=0^0^.001^.069^.003^.004^.025^.002
+99 ;;^UTILITY(U,$J,112,841,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,842,0)
+102 ;;=BUCKWHEAT FLOUR, LIGHT^20-011^cups^98^100^N
+103 ;;^UTILITY(U,$J,112,842,1)
+104 ;;=12.62^3.1^70.59^335^11.15^^^41^4.06^251^337^577^11^3.12^.515^2.03^^0^0^.417
+105 ;;^UTILITY(U,$J,112,842,2)
+106 ;;=.19^6.15^.44^.582^54^0^.877^.071^0^.677^.949^.949^0^2.54^^^10
+107 ;;^UTILITY(U,$J,112,842,3)
+108 ;;=.183^.482^.474^.792^.64^.164^.218^.495^.23^.646^.935^.294^.712^1.078^1.948^.981^.482^.652
