FHINI01C ; ; 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,298,1)
;;=26.381^54.776^9.39^588.234^4.811^^^131.158^7.797^346.667^775.555^406.667^39.5^10.25^1.46^1.43^^66^0^.722
;;^UTILITY(U,$J,112,298,2)
;;=.085^4.682^.681^.146^.054^0^^^0^^^^6.6^4.642^^^3
;;^UTILITY(U,$J,112,298,3)
;;=.473^1.18^1.289^2.15^.831^.896^.523^1.528^1.125^1.478^3.325^.677^1.409^2.265^4.943^1.896^1.359^1.309
;;^UTILITY(U,$J,112,298,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,299,0)
;;=TARRAGON, GROUND^2-041^tsp.^1.6^100^N
;;^UTILITY(U,$J,112,299,1)
;;=22.765^7.242^50.224^295.461^7.739^^^1139.25^32.3^346.667^313.333^3019.5^62.3^3.9^.677^7.967^^4200^^.251
;;^UTILITY(U,$J,112,299,2)
;;=1.339^8.95^^^^0^^^0^^^^420^12.03^^^7.4
;;^UTILITY(U,$J,112,299,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,300,0)
;;=THYME, GROUND^2-042^tsp.^1.4^100^N
;;^UTILITY(U,$J,112,300,1)
;;=9.105^7.425^63.939^276.18^7.79^^^1889.5^123.6^220.375^201.025^814.259^54.7^6.18^.86^7.867^^3800^^.513
;;^UTILITY(U,$J,112,300,2)
;;=.399^4.94^^^^0^.5^.69^0^2.73^.47^1.19^380^11.741^^^18.6
;;^UTILITY(U,$J,112,300,3)
;;=.186^.252^.468^.43^.207^^^^^.502
;;^UTILITY(U,$J,112,300,4)
;;=.12^.23^.15^1.72^^.28^.47
;;^UTILITY(U,$J,112,300,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,301,0)
;;=TURMERIC, GROUND^2-043^tsp.^2.2^100^N
;;^UTILITY(U,$J,112,301,1)
;;=7.828^9.876^64.93^354^11.356^^^182.5^41.42^193.333^267.6^2525^37.8^4.35^.603^7.833^^0^25.855^.152
;;^UTILITY(U,$J,112,301,2)
;;=.233^5.14^^^.018^0^^^0^^^^0^6.015^^^21.1
;;^UTILITY(U,$J,112,301,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,302,0)
;;=BF, MEAT, BEEF, STR^3-002^jars^99^100^N
;;^UTILITY(U,$J,112,302,1)
;;=13.6^5.4^0^107^80.6^^^7^1.47^17^84^220^81^2.455^.043^^^185^2.1^.01
;;^UTILITY(U,$J,112,302,2)
;;=.142^2.849^.34^.14^5.5^1.42^.09^.05^^2.58^2.2^.24^55^.8^^^0
;;^UTILITY(U,$J,112,302,3)
;;=.137^.597^.619^1.091^1.133^.418^.159^.527^.453^.688^.928^.462^.858^1.198^2.069^.869^.682^.499
;;^UTILITY(U,$J,112,302,4)
;;=0^0^.16^1.33^.2^.89^1.91^.05
;;^UTILITY(U,$J,112,302,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,303,0)
;;=BF, MEAT, VEAL, STR^3-005^jars^99^100^N
;;^UTILITY(U,$J,112,303,1)
;;=13.5^4.8^0^101^80.9^^^7^1.27^12^98^216^64^2^.04^^^46^2.3^.016
;;^UTILITY(U,$J,112,303,2)
;;=.159^3.552^.43^.149^5.9^1.3^.1^.03^^2.29^2.05^.16^14^.9^^^0
;;^UTILITY(U,$J,112,303,3)
;;=.156^.564^.61^1.044^1.085^.298^.175^.523^.432^.657^.897^.415^.845^1.193^1.939^.927^.746^.48
;;^UTILITY(U,$J,112,303,4)
;;=0^.02^.24^1.18^.19^.67^1.79^.02
;;^UTILITY(U,$J,112,303,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,304,0)
;;=BF, MEAT, PORK, STR^3-007^jars^99^100^N
;;^UTILITY(U,$J,112,304,1)
;;=14^7.1^0^124^78.4^^^5^1^10^94^223^42^2.27^.072^^^38^1.8^.146
;;^UTILITY(U,$J,112,304,2)
;;=.203^2.269^.272^.205^1.9^.99^.69^.03^^2.4^3.58^.78^12^1.1^^^0
;;^UTILITY(U,$J,112,304,3)
;;=.136^.617^.68^1.127^1.158^.398^.154^.57^.51^.702^.948^.447^.879^1.31^2.133^.76^.747^.541
;;^UTILITY(U,$J,112,304,4)
;;=0^0^.08^1.53^.23^.72^3.27
;;^UTILITY(U,$J,112,304,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,305,0)
;;=BF, MEAT, EGG YOLKS & HAM, STR^3-008^jars^99^100^N
;;^UTILITY(U,$J,112,305,1)
;;=13.9^5.8^0^111^79.4^^^6^1.03^13^81^204^41^2.246^.065^^^38^2.1^.139
;;^UTILITY(U,$J,112,305,2)
;;=.154^2.633^.51^.252^2^.1^.71^.03^^1.94^2.76^.78^11^1^^^0
;;^UTILITY(U,$J,112,305,3)
;;=.138^.603^.661^1.111^1.18^.355^.171^.53^.466^.716^.94^.472^.838^1.326^2.089^.796^.645^.503
;;^UTILITY(U,$J,112,305,4)
;;=0^.01^.07^1.22^.16^.59^2.52^.04
;;^UTILITY(U,$J,112,305,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,306,0)
;;=BF, MEAT, LAMB, STR^3-010^jars^99^100^N
;;^UTILITY(U,$J,112,306,1)
;;=14.1^4.7^.1^103^80.3^^^7^1.49^13^97^205^62^2.756^.055^^^86^1.2^.019
;;^UTILITY(U,$J,112,306,2)
;;=.2^2.925^.41^.152^2.3^2.19^.13^.05^^2.31^1.87^.2^26^.8^^^0
;;^UTILITY(U,$J,112,306,3)
;;=.14^.642^.662^1.112^1.249^.441^.194^.554^.493^.714^.923^.356^.882^1.324^2.156^.819^.788^.54
;;^UTILITY(U,$J,112,306,4)
;;=.01^0^.11^1.03^.06^.99^1.78^.01
;;^UTILITY(U,$J,112,306,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,307,0)
;;=BF, MEAT, CHICKEN, STR^3-012^jars^99^100^N
;;^UTILITY(U,$J,112,307,1)
;;=13.7^7.9^.1^130^77.5^^^64^1.4^13^97^141^47^1.21^.045^^^135^1.7^.014
;;^UTILITY(U,$J,112,307,2)
;;=.152^3.255^.68^.2^10.4^.4^1.85^.04^^2.03^3.56^1.92^40^.8^^^0
;;^UTILITY(U,$J,112,307,3)
;;=.156^.615^.645^1.058^1.144^.367^.18^.558^.439^.689^.957^.415^.871^1.269^1.982^.913^.707^.498
;;^UTILITY(U,$J,112,307,4)
;;=^0^.05^1.48^.29^.42^3.25^.03
FHINI01C ; ; 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,298,1)
+2 ;;=26.381^54.776^9.39^588.234^4.811^^^131.158^7.797^346.667^775.555^406.667^39.5^10.25^1.46^1.43^^66^0^.722
+3 ;;^UTILITY(U,$J,112,298,2)
+4 ;;=.085^4.682^.681^.146^.054^0^^^0^^^^6.6^4.642^^^3
+5 ;;^UTILITY(U,$J,112,298,3)
+6 ;;=.473^1.18^1.289^2.15^.831^.896^.523^1.528^1.125^1.478^3.325^.677^1.409^2.265^4.943^1.896^1.359^1.309
+7 ;;^UTILITY(U,$J,112,298,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,299,0)
+10 ;;=TARRAGON, GROUND^2-041^tsp.^1.6^100^N
+11 ;;^UTILITY(U,$J,112,299,1)
+12 ;;=22.765^7.242^50.224^295.461^7.739^^^1139.25^32.3^346.667^313.333^3019.5^62.3^3.9^.677^7.967^^4200^^.251
+13 ;;^UTILITY(U,$J,112,299,2)
+14 ;;=1.339^8.95^^^^0^^^0^^^^420^12.03^^^7.4
+15 ;;^UTILITY(U,$J,112,299,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,300,0)
+18 ;;=THYME, GROUND^2-042^tsp.^1.4^100^N
+19 ;;^UTILITY(U,$J,112,300,1)
+20 ;;=9.105^7.425^63.939^276.18^7.79^^^1889.5^123.6^220.375^201.025^814.259^54.7^6.18^.86^7.867^^3800^^.513
+21 ;;^UTILITY(U,$J,112,300,2)
+22 ;;=.399^4.94^^^^0^.5^.69^0^2.73^.47^1.19^380^11.741^^^18.6
+23 ;;^UTILITY(U,$J,112,300,3)
+24 ;;=.186^.252^.468^.43^.207^^^^^.502
+25 ;;^UTILITY(U,$J,112,300,4)
+26 ;;=.12^.23^.15^1.72^^.28^.47
+27 ;;^UTILITY(U,$J,112,300,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,301,0)
+30 ;;=TURMERIC, GROUND^2-043^tsp.^2.2^100^N
+31 ;;^UTILITY(U,$J,112,301,1)
+32 ;;=7.828^9.876^64.93^354^11.356^^^182.5^41.42^193.333^267.6^2525^37.8^4.35^.603^7.833^^0^25.855^.152
+33 ;;^UTILITY(U,$J,112,301,2)
+34 ;;=.233^5.14^^^.018^0^^^0^^^^0^6.015^^^21.1
+35 ;;^UTILITY(U,$J,112,301,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,302,0)
+38 ;;=BF, MEAT, BEEF, STR^3-002^jars^99^100^N
+39 ;;^UTILITY(U,$J,112,302,1)
+40 ;;=13.6^5.4^0^107^80.6^^^7^1.47^17^84^220^81^2.455^.043^^^185^2.1^.01
+41 ;;^UTILITY(U,$J,112,302,2)
+42 ;;=.142^2.849^.34^.14^5.5^1.42^.09^.05^^2.58^2.2^.24^55^.8^^^0
+43 ;;^UTILITY(U,$J,112,302,3)
+44 ;;=.137^.597^.619^1.091^1.133^.418^.159^.527^.453^.688^.928^.462^.858^1.198^2.069^.869^.682^.499
+45 ;;^UTILITY(U,$J,112,302,4)
+46 ;;=0^0^.16^1.33^.2^.89^1.91^.05
+47 ;;^UTILITY(U,$J,112,302,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,303,0)
+50 ;;=BF, MEAT, VEAL, STR^3-005^jars^99^100^N
+51 ;;^UTILITY(U,$J,112,303,1)
+52 ;;=13.5^4.8^0^101^80.9^^^7^1.27^12^98^216^64^2^.04^^^46^2.3^.016
+53 ;;^UTILITY(U,$J,112,303,2)
+54 ;;=.159^3.552^.43^.149^5.9^1.3^.1^.03^^2.29^2.05^.16^14^.9^^^0
+55 ;;^UTILITY(U,$J,112,303,3)
+56 ;;=.156^.564^.61^1.044^1.085^.298^.175^.523^.432^.657^.897^.415^.845^1.193^1.939^.927^.746^.48
+57 ;;^UTILITY(U,$J,112,303,4)
+58 ;;=0^.02^.24^1.18^.19^.67^1.79^.02
+59 ;;^UTILITY(U,$J,112,303,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,304,0)
+62 ;;=BF, MEAT, PORK, STR^3-007^jars^99^100^N
+63 ;;^UTILITY(U,$J,112,304,1)
+64 ;;=14^7.1^0^124^78.4^^^5^1^10^94^223^42^2.27^.072^^^38^1.8^.146
+65 ;;^UTILITY(U,$J,112,304,2)
+66 ;;=.203^2.269^.272^.205^1.9^.99^.69^.03^^2.4^3.58^.78^12^1.1^^^0
+67 ;;^UTILITY(U,$J,112,304,3)
+68 ;;=.136^.617^.68^1.127^1.158^.398^.154^.57^.51^.702^.948^.447^.879^1.31^2.133^.76^.747^.541
+69 ;;^UTILITY(U,$J,112,304,4)
+70 ;;=0^0^.08^1.53^.23^.72^3.27
+71 ;;^UTILITY(U,$J,112,304,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,305,0)
+74 ;;=BF, MEAT, EGG YOLKS & HAM, STR^3-008^jars^99^100^N
+75 ;;^UTILITY(U,$J,112,305,1)
+76 ;;=13.9^5.8^0^111^79.4^^^6^1.03^13^81^204^41^2.246^.065^^^38^2.1^.139
+77 ;;^UTILITY(U,$J,112,305,2)
+78 ;;=.154^2.633^.51^.252^2^.1^.71^.03^^1.94^2.76^.78^11^1^^^0
+79 ;;^UTILITY(U,$J,112,305,3)
+80 ;;=.138^.603^.661^1.111^1.18^.355^.171^.53^.466^.716^.94^.472^.838^1.326^2.089^.796^.645^.503
+81 ;;^UTILITY(U,$J,112,305,4)
+82 ;;=0^.01^.07^1.22^.16^.59^2.52^.04
+83 ;;^UTILITY(U,$J,112,305,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,306,0)
+86 ;;=BF, MEAT, LAMB, STR^3-010^jars^99^100^N
+87 ;;^UTILITY(U,$J,112,306,1)
+88 ;;=14.1^4.7^.1^103^80.3^^^7^1.49^13^97^205^62^2.756^.055^^^86^1.2^.019
+89 ;;^UTILITY(U,$J,112,306,2)
+90 ;;=.2^2.925^.41^.152^2.3^2.19^.13^.05^^2.31^1.87^.2^26^.8^^^0
+91 ;;^UTILITY(U,$J,112,306,3)
+92 ;;=.14^.642^.662^1.112^1.249^.441^.194^.554^.493^.714^.923^.356^.882^1.324^2.156^.819^.788^.54
+93 ;;^UTILITY(U,$J,112,306,4)
+94 ;;=.01^0^.11^1.03^.06^.99^1.78^.01
+95 ;;^UTILITY(U,$J,112,306,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,307,0)
+98 ;;=BF, MEAT, CHICKEN, STR^3-012^jars^99^100^N
+99 ;;^UTILITY(U,$J,112,307,1)
+100 ;;=13.7^7.9^.1^130^77.5^^^64^1.4^13^97^141^47^1.21^.045^^^135^1.7^.014
+101 ;;^UTILITY(U,$J,112,307,2)
+102 ;;=.152^3.255^.68^.2^10.4^.4^1.85^.04^^2.03^3.56^1.92^40^.8^^^0
+103 ;;^UTILITY(U,$J,112,307,3)
+104 ;;=.156^.615^.645^1.058^1.144^.367^.18^.558^.439^.689^.957^.415^.871^1.269^1.982^.913^.707^.498
+105 ;;^UTILITY(U,$J,112,307,4)
+106 ;;=^0^.05^1.48^.29^.42^3.25^.03
