FHINI04Q ; ; 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,1587,0)
;;=MAYONNAISE, DIET, 8 CAL/TSP, W/SALT^1941-1^tbsp.^16^100^N
;;^UTILITY(U,$J,112,1587,1)
;;=1.1^12.7^4.8^136^80.7^^^18^.2^^28^9^118^^^^^220^0^.01
;;^UTILITY(U,$J,112,1587,2)
;;=.03^0^^^^^6.31^^50^2.3^^^^.7
;;^UTILITY(U,$J,112,1587,4)
;;=^^^^^^2.81
;;^UTILITY(U,$J,112,1587,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1588,0)
;;=MAYONNAISE, DIET, 8 CAL/TSP, WO/SALT^1941-2^tbsp.^16^100^N
;;^UTILITY(U,$J,112,1588,1)
;;=1.1^12.7^4.8^136^80.7^^^18^.2^^28^9^30^^^^^220^0^.01
;;^UTILITY(U,$J,112,1588,2)
;;=.03^0^^^^^6.31^^50^2.3^^^^.7
;;^UTILITY(U,$J,112,1588,4)
;;=^^^^^^2.81
;;^UTILITY(U,$J,112,1588,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1589,0)
;;=SALAD DRESSING, THOUSAND ISLAND, REGULAR, WO/SALT^1942-2^tbsp.^15.3^100^N
;;^UTILITY(U,$J,112,1589,1)
;;=.8^50.2^.4^502^32^^^11^.6^^17^113^30^^^^^320^3^.02
;;^UTILITY(U,$J,112,1589,2)
;;=.03^.2^^^^^25.2^^50^8.89^^^^1.6
;;^UTILITY(U,$J,112,1589,4)
;;=^^^^^^10.84
;;^UTILITY(U,$J,112,1589,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1590,0)
;;=SALAD DRESSING, THOUSAND ISLAND, DIET, 10 CAL/TSP, WO/SLT^1943-2^tbsp.^15.3^100^N
;;^UTILITY(U,$J,112,1590,1)
;;=.9^13.7^15.6^180^68.2^^^11^.6^^17^113^30^^^^^320^3^.02
;;^UTILITY(U,$J,112,1590,2)
;;=.03^.2^^^^^6.88^^50^2.42^^^^1.6
;;^UTILITY(U,$J,112,1590,4)
;;=^^^^^^2.96
;;^UTILITY(U,$J,112,1590,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1591,0)
;;=SALMON, PINK, CND, SOL+LIQ, W/SALT^15-181^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1591,1)
;;=19.78^6.05^0^139^68.81^^^213^.84^34^329^326^75^.92^.102^.02^^55^0^.023
;;^UTILITY(U,$J,112,1591,2)
;;=.186^6.536^.55^.3^15.4^4.4^.058^.058^55^1.535^1.807^2.049^17^2.6^^^0
;;^UTILITY(U,$J,112,1591,3)
;;=.222^.867^.912^1.608^1.817^.586^.212^.772^.668^1.019^1.184^.582^1.196^2.026^2.953^.95^.699^.807
;;^UTILITY(U,$J,112,1591,4)
;;=^^.048^1.35^.466^.135^1.068^.077
;;^UTILITY(U,$J,112,1591,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1592,0)
;;=SALMON, PINK, CND, SOL+LIQ, WO/SALT^1955-2^oz.^28.3^^N
;;^UTILITY(U,$J,112,1592,1)
;;=20.5^5.9^0^141^70.8^^^196^.8^^286^361^64^^^^^70^0^.03
;;^UTILITY(U,$J,112,1592,2)
;;=.18^8^^^^^.11^^35^1.55
;;^UTILITY(U,$J,112,1592,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1593,0)
;;=SALMON, SOCKEYE, CANNED, DRAINED SOLIDS WITH BONE^15-087^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1593,1)
;;=20.47^7.31^0^153^68.72^^^239^1.06^29^326^377^538^1.02^.084^.03^^176^0^.016
;;^UTILITY(U,$J,112,1593,2)
;;=.193^5.48^.55^.3^9.8^.3^.085^.09^44^1.644^2.776^2.277^53^2.7^^^0
;;^UTILITY(U,$J,112,1593,3)
;;=.229^.897^.943^1.664^1.88^.606^.219^.799^.691^1.055^1.225^.603^1.238^2.096^3.056^.983^.724^.835
;;^UTILITY(U,$J,112,1593,4)
;;=^^.359^1.079^.406^.205^1.451^.374
;;^UTILITY(U,$J,112,1593,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1594,0)
;;=SALMON, SOCKEYE, CANNED, WO/SALT, DRAINED SOLIDS WITH BON^15-182^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1594,1)
;;=20.47^7.31^0^153^68.72^^^239^1.06^29^326^377^75^1.02^.084^.03^^176^0^.016
;;^UTILITY(U,$J,112,1594,2)
;;=.193^5.48^.55^.3^9.8^.3^.085^.09^44^1.644^2.776^2.277^53^2.7^^^0
;;^UTILITY(U,$J,112,1594,3)
;;=.229^.897^.943^1.664^1.88^.606^.219^.799^.691^1.055^1.225^.603^1.238^2.096^3.056^.983^.724^.835
;;^UTILITY(U,$J,112,1594,4)
;;=^^.359^1.079^.406^.205^1.451^.374
;;^UTILITY(U,$J,112,1594,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1595,0)
;;=SALMON, BROILED OR BAKED^15-086^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1595,1)
;;=27.31^10.97^0^216^61.84^^^7^.55^31^276^375^66^.51^.067^.02^^209^0^.215
;;^UTILITY(U,$J,112,1595,2)
;;=.171^6.67^.7^.219^5^5.8^.113^.062^87^1.917^5.29^2.409^63^1.37^^^0
;;^UTILITY(U,$J,112,1595,3)
;;=.306^1.197^1.258^2.219^2.508^.808^.293^1.066^.922^1.407^1.634^.804^1.651^2.796^4.076^1.311^.966^1.114
;;^UTILITY(U,$J,112,1595,4)
;;=^^.258^1.005^.321^.158^1.338^.03^^37.8
;;^UTILITY(U,$J,112,1595,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1596,0)
;;=SALMON RICE LOAF^1959-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1596,1)
;;=12^4.5^7.3^122^74.4^^^53^.9^^106^129^275^^^^^69^0^.09
;;^UTILITY(U,$J,112,1596,2)
;;=.05^2.9^^^^^0^^21^1^^^^1.8
;;^UTILITY(U,$J,112,1596,4)
;;=^^^^^^1
;;^UTILITY(U,$J,112,1596,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1597,0)
;;=SALMON, SMOKED^15-077^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1597,1)
;;=18.28^4.32^0^117^72^^^11^.85^18^164^175^784^.31^.23^.017^^88^0^.023
;;^UTILITY(U,$J,112,1597,2)
;;=.101^4.72^.87^.278^1.9^3.26^.472^^23^.929^2.023^.995^26^2.62^^^0
FHINI04Q ; ; 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,1587,0)
+2 ;;=MAYONNAISE, DIET, 8 CAL/TSP, W/SALT^1941-1^tbsp.^16^100^N
+3 ;;^UTILITY(U,$J,112,1587,1)
+4 ;;=1.1^12.7^4.8^136^80.7^^^18^.2^^28^9^118^^^^^220^0^.01
+5 ;;^UTILITY(U,$J,112,1587,2)
+6 ;;=.03^0^^^^^6.31^^50^2.3^^^^.7
+7 ;;^UTILITY(U,$J,112,1587,4)
+8 ;;=^^^^^^2.81
+9 ;;^UTILITY(U,$J,112,1587,20)
+10 ;;=USDA Std. Reference, Release 8
+11 ;;^UTILITY(U,$J,112,1588,0)
+12 ;;=MAYONNAISE, DIET, 8 CAL/TSP, WO/SALT^1941-2^tbsp.^16^100^N
+13 ;;^UTILITY(U,$J,112,1588,1)
+14 ;;=1.1^12.7^4.8^136^80.7^^^18^.2^^28^9^30^^^^^220^0^.01
+15 ;;^UTILITY(U,$J,112,1588,2)
+16 ;;=.03^0^^^^^6.31^^50^2.3^^^^.7
+17 ;;^UTILITY(U,$J,112,1588,4)
+18 ;;=^^^^^^2.81
+19 ;;^UTILITY(U,$J,112,1588,20)
+20 ;;=USDA Std. Reference, Release 8
+21 ;;^UTILITY(U,$J,112,1589,0)
+22 ;;=SALAD DRESSING, THOUSAND ISLAND, REGULAR, WO/SALT^1942-2^tbsp.^15.3^100^N
+23 ;;^UTILITY(U,$J,112,1589,1)
+24 ;;=.8^50.2^.4^502^32^^^11^.6^^17^113^30^^^^^320^3^.02
+25 ;;^UTILITY(U,$J,112,1589,2)
+26 ;;=.03^.2^^^^^25.2^^50^8.89^^^^1.6
+27 ;;^UTILITY(U,$J,112,1589,4)
+28 ;;=^^^^^^10.84
+29 ;;^UTILITY(U,$J,112,1589,20)
+30 ;;=USDA Std. Reference, Release 8
+31 ;;^UTILITY(U,$J,112,1590,0)
+32 ;;=SALAD DRESSING, THOUSAND ISLAND, DIET, 10 CAL/TSP, WO/SLT^1943-2^tbsp.^15.3^100^N
+33 ;;^UTILITY(U,$J,112,1590,1)
+34 ;;=.9^13.7^15.6^180^68.2^^^11^.6^^17^113^30^^^^^320^3^.02
+35 ;;^UTILITY(U,$J,112,1590,2)
+36 ;;=.03^.2^^^^^6.88^^50^2.42^^^^1.6
+37 ;;^UTILITY(U,$J,112,1590,4)
+38 ;;=^^^^^^2.96
+39 ;;^UTILITY(U,$J,112,1590,20)
+40 ;;=USDA Std. Reference, Release 8
+41 ;;^UTILITY(U,$J,112,1591,0)
+42 ;;=SALMON, PINK, CND, SOL+LIQ, W/SALT^15-181^oz.^28.3^100^N
+43 ;;^UTILITY(U,$J,112,1591,1)
+44 ;;=19.78^6.05^0^139^68.81^^^213^.84^34^329^326^75^.92^.102^.02^^55^0^.023
+45 ;;^UTILITY(U,$J,112,1591,2)
+46 ;;=.186^6.536^.55^.3^15.4^4.4^.058^.058^55^1.535^1.807^2.049^17^2.6^^^0
+47 ;;^UTILITY(U,$J,112,1591,3)
+48 ;;=.222^.867^.912^1.608^1.817^.586^.212^.772^.668^1.019^1.184^.582^1.196^2.026^2.953^.95^.699^.807
+49 ;;^UTILITY(U,$J,112,1591,4)
+50 ;;=^^.048^1.35^.466^.135^1.068^.077
+51 ;;^UTILITY(U,$J,112,1591,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,1592,0)
+54 ;;=SALMON, PINK, CND, SOL+LIQ, WO/SALT^1955-2^oz.^28.3^^N
+55 ;;^UTILITY(U,$J,112,1592,1)
+56 ;;=20.5^5.9^0^141^70.8^^^196^.8^^286^361^64^^^^^70^0^.03
+57 ;;^UTILITY(U,$J,112,1592,2)
+58 ;;=.18^8^^^^^.11^^35^1.55
+59 ;;^UTILITY(U,$J,112,1592,20)
+60 ;;=USDA Std. Reference, Release 8
+61 ;;^UTILITY(U,$J,112,1593,0)
+62 ;;=SALMON, SOCKEYE, CANNED, DRAINED SOLIDS WITH BONE^15-087^oz.^28.3^100^N
+63 ;;^UTILITY(U,$J,112,1593,1)
+64 ;;=20.47^7.31^0^153^68.72^^^239^1.06^29^326^377^538^1.02^.084^.03^^176^0^.016
+65 ;;^UTILITY(U,$J,112,1593,2)
+66 ;;=.193^5.48^.55^.3^9.8^.3^.085^.09^44^1.644^2.776^2.277^53^2.7^^^0
+67 ;;^UTILITY(U,$J,112,1593,3)
+68 ;;=.229^.897^.943^1.664^1.88^.606^.219^.799^.691^1.055^1.225^.603^1.238^2.096^3.056^.983^.724^.835
+69 ;;^UTILITY(U,$J,112,1593,4)
+70 ;;=^^.359^1.079^.406^.205^1.451^.374
+71 ;;^UTILITY(U,$J,112,1593,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,1594,0)
+74 ;;=SALMON, SOCKEYE, CANNED, WO/SALT, DRAINED SOLIDS WITH BON^15-182^oz.^28.3^100^N
+75 ;;^UTILITY(U,$J,112,1594,1)
+76 ;;=20.47^7.31^0^153^68.72^^^239^1.06^29^326^377^75^1.02^.084^.03^^176^0^.016
+77 ;;^UTILITY(U,$J,112,1594,2)
+78 ;;=.193^5.48^.55^.3^9.8^.3^.085^.09^44^1.644^2.776^2.277^53^2.7^^^0
+79 ;;^UTILITY(U,$J,112,1594,3)
+80 ;;=.229^.897^.943^1.664^1.88^.606^.219^.799^.691^1.055^1.225^.603^1.238^2.096^3.056^.983^.724^.835
+81 ;;^UTILITY(U,$J,112,1594,4)
+82 ;;=^^.359^1.079^.406^.205^1.451^.374
+83 ;;^UTILITY(U,$J,112,1594,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,1595,0)
+86 ;;=SALMON, BROILED OR BAKED^15-086^oz.^28.3^100^N
+87 ;;^UTILITY(U,$J,112,1595,1)
+88 ;;=27.31^10.97^0^216^61.84^^^7^.55^31^276^375^66^.51^.067^.02^^209^0^.215
+89 ;;^UTILITY(U,$J,112,1595,2)
+90 ;;=.171^6.67^.7^.219^5^5.8^.113^.062^87^1.917^5.29^2.409^63^1.37^^^0
+91 ;;^UTILITY(U,$J,112,1595,3)
+92 ;;=.306^1.197^1.258^2.219^2.508^.808^.293^1.066^.922^1.407^1.634^.804^1.651^2.796^4.076^1.311^.966^1.114
+93 ;;^UTILITY(U,$J,112,1595,4)
+94 ;;=^^.258^1.005^.321^.158^1.338^.03^^37.8
+95 ;;^UTILITY(U,$J,112,1595,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,1596,0)
+98 ;;=SALMON RICE LOAF^1959-0^oz.^28.3^100^N
+99 ;;^UTILITY(U,$J,112,1596,1)
+100 ;;=12^4.5^7.3^122^74.4^^^53^.9^^106^129^275^^^^^69^0^.09
+101 ;;^UTILITY(U,$J,112,1596,2)
+102 ;;=.05^2.9^^^^^0^^21^1^^^^1.8
+103 ;;^UTILITY(U,$J,112,1596,4)
+104 ;;=^^^^^^1
+105 ;;^UTILITY(U,$J,112,1596,20)
+106 ;;=USDA Std. Reference, Release 8
+107 ;;^UTILITY(U,$J,112,1597,0)
+108 ;;=SALMON, SMOKED^15-077^oz.^28.3^100^N
+109 ;;^UTILITY(U,$J,112,1597,1)
+110 ;;=18.28^4.32^0^117^72^^^11^.85^18^164^175^784^.31^.23^.017^^88^0^.023
+111 ;;^UTILITY(U,$J,112,1597,2)
+112 ;;=.101^4.72^.87^.278^1.9^3.26^.472^^23^.929^2.023^.995^26^2.62^^^0
