FHINI03E ; ; 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,1063,3)
;;=.037^.118^.17^.226^.209^.045^.047^.174^.13^.184^.222^.103
;;^UTILITY(U,$J,112,1063,4)
;;=^^.001^.082^.001^.013^.021
;;^UTILITY(U,$J,112,1063,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1064,0)
;;=PEAS, BLACKEYE, CND^898-0^cups^255^100^N
;;^UTILITY(U,$J,112,1064,1)
;;=5^.3^12.4^70^81^^^18^1.5^^112^352^236^^^^^60^3^.09
;;^UTILITY(U,$J,112,1064,2)
;;=.05^.5^^^^^0^^0^0^^^^1.3
;;^UTILITY(U,$J,112,1064,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1064,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1065,0)
;;=PEAS, BLACKEYE, FRZ, CKD WO/SALT^11-196^cups^170^100^N
;;^UTILITY(U,$J,112,1065,1)
;;=8.49^.66^23.76^132^66.1^^^23^2.12^50^122^375^5^1.42^.184^.791^^75^2.6^.26
;;^UTILITY(U,$J,112,1065,2)
;;=.064^.728^.213^.095^141.3^0^.159^.116^0^.175^.06^.28^8^.99
;;^UTILITY(U,$J,112,1065,3)
;;=.098^.316^.455^.606^.558^.121^.126^.466^.348^.492^.595^.274
;;^UTILITY(U,$J,112,1065,4)
;;=^^.002^.14^.002^.022^.035^^^3.4
;;^UTILITY(U,$J,112,1065,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1066,0)
;;=PEAS, BLACKEYE, FRZ, CKD W/SALT^11-778^cups^170^100^N
;;^UTILITY(U,$J,112,1066,1)
;;=8.49^.66^23.76^132^66.1^^^23^2.12^50^122^375^241^1.42^.184^.791^^75^2.6^.26
;;^UTILITY(U,$J,112,1066,2)
;;=.064^.728^.213^.095^141.3^0^.159^.116^0^.175^.06^.28^8^.99
;;^UTILITY(U,$J,112,1066,3)
;;=.098^.316^.455^.606^.558^.121^.126^.466^.348^.492^.595^.274
;;^UTILITY(U,$J,112,1066,4)
;;=^^.002^.14^.002^.022^.035
;;^UTILITY(U,$J,112,1066,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1067,0)
;;=PEAS, BLACKEYE, DRY, CKD^16-063^cups^250^100^N
;;^UTILITY(U,$J,112,1067,1)
;;=7.73^.53^20.77^116^70.04^^^24^2.51^53^156^278^4^1.29^.268^.475^^15^.4^.202
;;^UTILITY(U,$J,112,1067,2)
;;=.055^.495^.411^.1^207.9^0^.143^.083^0^.138^.044^.225^2^.94^^^6.5
;;^UTILITY(U,$J,112,1067,3)
;;=.095^.294^.314^.592^.523^.11^.085^.451^.25^.368^.535^.24^.352^.933^1.463^.319^.347^.387
;;^UTILITY(U,$J,112,1067,4)
;;=^0^.001^.106^.002^.022^.036^^^2.5
;;^UTILITY(U,$J,112,1067,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1068,0)
;;=CRAB, BLUE, COOKED, MOIST HEAT^15-140^cups^155^100^N
;;^UTILITY(U,$J,112,1068,1)
;;=20.2^1.77^0^102^77.43^^^104^.91^33^206^324^279^4.22^.645^.19^^6^3.3^.1
;;^UTILITY(U,$J,112,1068,2)
;;=.05^3.3^.43^.18^50.8^7.3^.028^.021^100^.228^.28^.68^2^2^^^0
;;^UTILITY(U,$J,112,1068,3)
;;=.281^.818^.979^1.603^1.758^.569^.226^.853^.672^.95^1.765^.41^1.144^2.088^3.445^1.218^.666^.795
;;^UTILITY(U,$J,112,1068,4)
;;=^^.018^.144^.089^.061^.151^.084^^40.2
;;^UTILITY(U,$J,112,1068,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1069,0)
;;=CRAB, CND^15-141^cups^160^100^N
;;^UTILITY(U,$J,112,1069,1)
;;=20.52^1.23^0^99^76.16^^^101^.84^39^260^374^333^4.02^.76^.19^^5^2.7^.08
;;^UTILITY(U,$J,112,1069,2)
;;=.084^1.37^.36^.15^42.5^.46^.014^^89^.252^.218^.44^2^2.05^^^0
;;^UTILITY(U,$J,112,1069,3)
;;=.286^.831^.995^1.628^1.786^.578^.23^.867^.683^.965^1.793^.417^1.162^2.121^3.5^1.238^.676^.808
;;^UTILITY(U,$J,112,1069,4)
;;=^^^.16^.067^.092^.118^.063^^31.8
;;^UTILITY(U,$J,112,1069,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1070,0)
;;=CRAB, DEVILED^907-0^cups^240^100^N
;;^UTILITY(U,$J,112,1070,1)
;;=11.4^9.4^13.3^188^63.3^^^47^1.2^^137^166^867^^^^^667^6^.08
;;^UTILITY(U,$J,112,1070,2)
;;=.11^1.5^^^^^1.1^^102^2.7^^^^2.6
;;^UTILITY(U,$J,112,1070,4)
;;=^^^^^^.2
;;^UTILITY(U,$J,112,1070,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1071,0)
;;=CRAB, IMPERIAL^908-0^cups^220^100^N
;;^UTILITY(U,$J,112,1071,1)
;;=14.6^7.6^3.9^147^71.9^^^60^.9^^166^131^728^^^^^311^5^.06
;;^UTILITY(U,$J,112,1071,2)
;;=.12^1.1^^^^^0^^140^4^^^^2
;;^UTILITY(U,$J,112,1071,4)
;;=^^^^^^3
;;^UTILITY(U,$J,112,1071,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1072,0)
;;=CRACKERS, ANIMAL^18-150^crackers^2.6^100^N
;;^UTILITY(U,$J,112,1072,1)
;;=6.9^13.8^74.1^446^3.9^^^43^2.75^18^114^100^393^.64^.157^.423^^0^0^.35
;;^UTILITY(U,$J,112,1072,2)
;;=.326^3.47^.376^.022^14^.05^1.728^.093^0^3.47^7.734^1.821^0^1.3
;;^UTILITY(U,$J,112,1072,3)
;;=.099^.193^.263^.47^.242^.116^.149^.324^.196^.303^.263^.14^.209^.292^2.262^.231^.763^.362
;;^UTILITY(U,$J,112,1072,4)
;;=^^.067^1.793^.002^1.607^7.733^^^7
;;^UTILITY(U,$J,112,1072,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1073,0)
;;=CRACKERS, BUTTER^18-229^crackers^3.3^100^N
;;^UTILITY(U,$J,112,1073,1)
;;=7.4^25.3^61^502^3.5^^^120^3.6^27^228^133^847^.68^.213^.556^^0^0^.408
;;^UTILITY(U,$J,112,1073,2)
;;=.342^4.048^.271^.053^14^0^7.707^.575^0^4.852^10.775^8.282^0^2.8^^^2
FHINI03E ; ; 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,1063,3)
+2 ;;=.037^.118^.17^.226^.209^.045^.047^.174^.13^.184^.222^.103
+3 ;;^UTILITY(U,$J,112,1063,4)
+4 ;;=^^.001^.082^.001^.013^.021
+5 ;;^UTILITY(U,$J,112,1063,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,1064,0)
+8 ;;=PEAS, BLACKEYE, CND^898-0^cups^255^100^N
+9 ;;^UTILITY(U,$J,112,1064,1)
+10 ;;=5^.3^12.4^70^81^^^18^1.5^^112^352^236^^^^^60^3^.09
+11 ;;^UTILITY(U,$J,112,1064,2)
+12 ;;=.05^.5^^^^^0^^0^0^^^^1.3
+13 ;;^UTILITY(U,$J,112,1064,4)
+14 ;;=^^^^^^0
+15 ;;^UTILITY(U,$J,112,1064,20)
+16 ;;=USDA Std. Reference, Release 8
+17 ;;^UTILITY(U,$J,112,1065,0)
+18 ;;=PEAS, BLACKEYE, FRZ, CKD WO/SALT^11-196^cups^170^100^N
+19 ;;^UTILITY(U,$J,112,1065,1)
+20 ;;=8.49^.66^23.76^132^66.1^^^23^2.12^50^122^375^5^1.42^.184^.791^^75^2.6^.26
+21 ;;^UTILITY(U,$J,112,1065,2)
+22 ;;=.064^.728^.213^.095^141.3^0^.159^.116^0^.175^.06^.28^8^.99
+23 ;;^UTILITY(U,$J,112,1065,3)
+24 ;;=.098^.316^.455^.606^.558^.121^.126^.466^.348^.492^.595^.274
+25 ;;^UTILITY(U,$J,112,1065,4)
+26 ;;=^^.002^.14^.002^.022^.035^^^3.4
+27 ;;^UTILITY(U,$J,112,1065,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,1066,0)
+30 ;;=PEAS, BLACKEYE, FRZ, CKD W/SALT^11-778^cups^170^100^N
+31 ;;^UTILITY(U,$J,112,1066,1)
+32 ;;=8.49^.66^23.76^132^66.1^^^23^2.12^50^122^375^241^1.42^.184^.791^^75^2.6^.26
+33 ;;^UTILITY(U,$J,112,1066,2)
+34 ;;=.064^.728^.213^.095^141.3^0^.159^.116^0^.175^.06^.28^8^.99
+35 ;;^UTILITY(U,$J,112,1066,3)
+36 ;;=.098^.316^.455^.606^.558^.121^.126^.466^.348^.492^.595^.274
+37 ;;^UTILITY(U,$J,112,1066,4)
+38 ;;=^^.002^.14^.002^.022^.035
+39 ;;^UTILITY(U,$J,112,1066,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,1067,0)
+42 ;;=PEAS, BLACKEYE, DRY, CKD^16-063^cups^250^100^N
+43 ;;^UTILITY(U,$J,112,1067,1)
+44 ;;=7.73^.53^20.77^116^70.04^^^24^2.51^53^156^278^4^1.29^.268^.475^^15^.4^.202
+45 ;;^UTILITY(U,$J,112,1067,2)
+46 ;;=.055^.495^.411^.1^207.9^0^.143^.083^0^.138^.044^.225^2^.94^^^6.5
+47 ;;^UTILITY(U,$J,112,1067,3)
+48 ;;=.095^.294^.314^.592^.523^.11^.085^.451^.25^.368^.535^.24^.352^.933^1.463^.319^.347^.387
+49 ;;^UTILITY(U,$J,112,1067,4)
+50 ;;=^0^.001^.106^.002^.022^.036^^^2.5
+51 ;;^UTILITY(U,$J,112,1067,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,1068,0)
+54 ;;=CRAB, BLUE, COOKED, MOIST HEAT^15-140^cups^155^100^N
+55 ;;^UTILITY(U,$J,112,1068,1)
+56 ;;=20.2^1.77^0^102^77.43^^^104^.91^33^206^324^279^4.22^.645^.19^^6^3.3^.1
+57 ;;^UTILITY(U,$J,112,1068,2)
+58 ;;=.05^3.3^.43^.18^50.8^7.3^.028^.021^100^.228^.28^.68^2^2^^^0
+59 ;;^UTILITY(U,$J,112,1068,3)
+60 ;;=.281^.818^.979^1.603^1.758^.569^.226^.853^.672^.95^1.765^.41^1.144^2.088^3.445^1.218^.666^.795
+61 ;;^UTILITY(U,$J,112,1068,4)
+62 ;;=^^.018^.144^.089^.061^.151^.084^^40.2
+63 ;;^UTILITY(U,$J,112,1068,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,1069,0)
+66 ;;=CRAB, CND^15-141^cups^160^100^N
+67 ;;^UTILITY(U,$J,112,1069,1)
+68 ;;=20.52^1.23^0^99^76.16^^^101^.84^39^260^374^333^4.02^.76^.19^^5^2.7^.08
+69 ;;^UTILITY(U,$J,112,1069,2)
+70 ;;=.084^1.37^.36^.15^42.5^.46^.014^^89^.252^.218^.44^2^2.05^^^0
+71 ;;^UTILITY(U,$J,112,1069,3)
+72 ;;=.286^.831^.995^1.628^1.786^.578^.23^.867^.683^.965^1.793^.417^1.162^2.121^3.5^1.238^.676^.808
+73 ;;^UTILITY(U,$J,112,1069,4)
+74 ;;=^^^.16^.067^.092^.118^.063^^31.8
+75 ;;^UTILITY(U,$J,112,1069,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,1070,0)
+78 ;;=CRAB, DEVILED^907-0^cups^240^100^N
+79 ;;^UTILITY(U,$J,112,1070,1)
+80 ;;=11.4^9.4^13.3^188^63.3^^^47^1.2^^137^166^867^^^^^667^6^.08
+81 ;;^UTILITY(U,$J,112,1070,2)
+82 ;;=.11^1.5^^^^^1.1^^102^2.7^^^^2.6
+83 ;;^UTILITY(U,$J,112,1070,4)
+84 ;;=^^^^^^.2
+85 ;;^UTILITY(U,$J,112,1070,20)
+86 ;;=USDA Std. Reference, Release 8
+87 ;;^UTILITY(U,$J,112,1071,0)
+88 ;;=CRAB, IMPERIAL^908-0^cups^220^100^N
+89 ;;^UTILITY(U,$J,112,1071,1)
+90 ;;=14.6^7.6^3.9^147^71.9^^^60^.9^^166^131^728^^^^^311^5^.06
+91 ;;^UTILITY(U,$J,112,1071,2)
+92 ;;=.12^1.1^^^^^0^^140^4^^^^2
+93 ;;^UTILITY(U,$J,112,1071,4)
+94 ;;=^^^^^^3
+95 ;;^UTILITY(U,$J,112,1071,20)
+96 ;;=USDA Std. Reference, Release 8
+97 ;;^UTILITY(U,$J,112,1072,0)
+98 ;;=CRACKERS, ANIMAL^18-150^crackers^2.6^100^N
+99 ;;^UTILITY(U,$J,112,1072,1)
+100 ;;=6.9^13.8^74.1^446^3.9^^^43^2.75^18^114^100^393^.64^.157^.423^^0^0^.35
+101 ;;^UTILITY(U,$J,112,1072,2)
+102 ;;=.326^3.47^.376^.022^14^.05^1.728^.093^0^3.47^7.734^1.821^0^1.3
+103 ;;^UTILITY(U,$J,112,1072,3)
+104 ;;=.099^.193^.263^.47^.242^.116^.149^.324^.196^.303^.263^.14^.209^.292^2.262^.231^.763^.362
+105 ;;^UTILITY(U,$J,112,1072,4)
+106 ;;=^^.067^1.793^.002^1.607^7.733^^^7
+107 ;;^UTILITY(U,$J,112,1072,20)
+108 ;;=USDA Std. Reference, Release 10
+109 ;;^UTILITY(U,$J,112,1073,0)
+110 ;;=CRACKERS, BUTTER^18-229^crackers^3.3^100^N
+111 ;;^UTILITY(U,$J,112,1073,1)
+112 ;;=7.4^25.3^61^502^3.5^^^120^3.6^27^228^133^847^.68^.213^.556^^0^0^.408
+113 ;;^UTILITY(U,$J,112,1073,2)
+114 ;;=.342^4.048^.271^.053^14^0^7.707^.575^0^4.852^10.775^8.282^0^2.8^^^2
