FHINI08I ; ; 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,2945,1)
;;=21.43^5.5^0^141^70.77^^^249^.7^30^354^300^487^1^.1^.02^^61^0^.02
;;^UTILITY(U,$J,112,2945,2)
;;=.16^7^.56^.38^20^4.4^.057^.049^39^1.486^1.919^1.517^18^2.47^^^0
;;^UTILITY(U,$J,112,2945,3)
;;=.24^.94^.988^1.742^1.968^.634^.23^.837^.724^1.104^1.282^.631^1.296^2.195^3.199^1.029^.758^.874
;;^UTILITY(U,$J,112,2945,4)
;;=^^.482^.816^.237^.188^1.159^.073
;;^UTILITY(U,$J,112,2945,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2946,0)
;;=SALMON, COHO, COOKED, MOIST HEAT^15-082^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2946,1)
;;=27.36^7.5^0^184^65.39^^^46^.71^35^298^455^53^.52^.065^.018^^108^1^.115
;;^UTILITY(U,$J,112,2946,2)
;;=.159^7.779^.834^.556^9^4.48^.26^.199^57^1.595^2.702^2.521^32^1.53^^^0
;;^UTILITY(U,$J,112,2946,3)
;;=.306^1.2^1.261^2.224^2.513^.81^.293^1.068^.924^1.41^1.637^.806^1.655^2.802^4.085^1.313^.968^1.116
;;^UTILITY(U,$J,112,2946,4)
;;=^^.334^.95^.64^.262^1.524^.169
;;^UTILITY(U,$J,112,2946,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2947,0)
;;=SARDINES, PACIFIC, CND IN TOMATO SAUCE^15-089^sardines^38^100^N
;;^UTILITY(U,$J,112,2947,1)
;;=16.35^11.98^0^178^68.3^^^240^2.3^34^366^341^414^1.4^.272^.206^^365^1^.044
;;^UTILITY(U,$J,112,2947,2)
;;=.233^4.2^.73^.123^24.3^9^.141^.27^61^3.087^3.672^4.295^70^3.7^^^.6
;;^UTILITY(U,$J,112,2947,3)
;;=.157^.795^.795^1.358^1.4^.476^.139^.793^.625^.926^1.049^.68^1.005^1.666^2.307^.827^.651^.727
;;^UTILITY(U,$J,112,2947,4)
;;=^^.807^1.997^.728^.281^2.126^.341
;;^UTILITY(U,$J,112,2947,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2948,0)
;;=SAUCE, CHEESE, DEHYDRATED, DRY^6-103^pkts.^35.2^100^N
;;^UTILITY(U,$J,112,2948,1)
;;=22.69^25.44^33.66^448^4.09^^^795^.42^44^597^519^4110^2.5^.02^.01^^238^1^.16
;;^UTILITY(U,$J,112,2948,2)
;;=.476^.324^1^.1^13^.8^3.26^.4^51^12.05^8.44^3.66^71^14.12^^^1.1
;;^UTILITY(U,$J,112,2948,4)
;;=.35^.28^1.71^5.84^.54^2.47^7.64^^^13.6
;;^UTILITY(U,$J,112,2948,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2949,0)
;;=SAUCE, MUSHROOM, DEHYDRATED, DRY^6-106^cups^22.7^100^N
;;^UTILITY(U,$J,112,2949,1)
;;=14.38^9.5^54.72^349^3.5^^^9^1^18^133^433^6230^.9^.6^.1^^0^0^.1
;;^UTILITY(U,$J,112,2949,2)
;;=.5^4.6^2.3^.1^27^0^3.32^.25^0^1.42^4.09^3.57^0^17.9
;;^UTILITY(U,$J,112,2949,4)
;;=^^.01^.93^.04^.48^4.04
;;^UTILITY(U,$J,112,2949,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2950,0)
;;=SAUCE, SOUR CREAM, DEHYDRATED, DRY^6-148^cups^70.4^100^N
;;^UTILITY(U,$J,112,2950,1)
;;=15.7^31.4^48.31^512^1.59^^^363^.7^21^118^515^1260^1.821^.075^.2^^241^.4^.06
;;^UTILITY(U,$J,112,2950,2)
;;=.44^.5^.7^.06^4^.3^3.04^.47^80^15.65^10.71^3.51^96^3
;;^UTILITY(U,$J,112,2950,4)
;;=.52^.59^2.15^6.99^.47^3.65^9.93
;;^UTILITY(U,$J,112,2950,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2951,0)
;;=SAUCE, WHITE, DEHYDRATED, DRY^6-113^cups^19.8^100^N
;;^UTILITY(U,$J,112,2951,1)
;;=10.94^26.7^50.56^463^1.5^^^674^.5^39^245^370^3410^1.1^.08^.06^^7^3^.2
;;^UTILITY(U,$J,112,2951,2)
;;=.4^.7^.8^.1^14^.8^6.54^.43^1^6.68^11.88^6.97^2^10.3^^^2.8
;;^UTILITY(U,$J,112,2951,4)
;;=^^.11^3.76^0^2.83^11.88
;;^UTILITY(U,$J,112,2951,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2952,0)
;;=SAUSAGE, BLOOD SAUSAGE OR BLOOD PUDDING^7-005^slices^25^100^N
;;^UTILITY(U,$J,112,2952,1)
;;=14.61^34.48^1.28^378^47.33^^^6^6.4^8^22^38^680^1.3^.04^.011^^0^0^.073
;;^UTILITY(U,$J,112,2952,2)
;;=.13^1.2^.6^.04^5^1^3.2^.26^120^13.37^15.85^3.46^0^2.31^^^0
;;^UTILITY(U,$J,112,2952,3)
;;=.187^.584^.327^1.426^1.075^.21^.187^.842^.351^1.052^.701^.725^1.075^1.379^2.174^.935^1.029^.701
;;^UTILITY(U,$J,112,2952,4)
;;=0^.03^.62^8.3^.88^4.41^14.97^0
;;^UTILITY(U,$J,112,2952,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2953,0)
;;=SAUSAGE, BRATWURST^7-013^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2953,1)
;;=14.08^25.87^2.07^301^56.13^^^44^1.29^15^149^212^557^2.3^.09^.046^^0^1^.505
;;^UTILITY(U,$J,112,2953,2)
;;=.183^3.2^.32^.21^2^.95^2.48^.26^60^9.32^12.19^2.74^0^1.85^^^0
;;^UTILITY(U,$J,112,2953,3)
;;=.113^.556^.514^.944^1.07^.342^.142^.471^.406^.566^.831^.406^.789^1.172^1.947^.854^.656^.545
;;^UTILITY(U,$J,112,2953,4)
;;=.03^.01^.3^5.85^.82^3.13^11.37^0
;;^UTILITY(U,$J,112,2953,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2954,0)
;;=SAUSAGE, LUNCHEON TYPE^7-090^slices^23^100^N
;;^UTILITY(U,$J,112,2954,1)
;;=15.38^20.9^1.58^260^58.62^^^13^1.43^14^122^245^1182^2.45^.08^.042^^0^19^.217
;;^UTILITY(U,$J,112,2954,2)
;;=.195^3.527^.37^.2^3^1.96^1.77^.28^64^7.62^9.93^2.05^0^3.52^^^0
FHINI08I ; ; 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,2945,1)
+2 ;;=21.43^5.5^0^141^70.77^^^249^.7^30^354^300^487^1^.1^.02^^61^0^.02
+3 ;;^UTILITY(U,$J,112,2945,2)
+4 ;;=.16^7^.56^.38^20^4.4^.057^.049^39^1.486^1.919^1.517^18^2.47^^^0
+5 ;;^UTILITY(U,$J,112,2945,3)
+6 ;;=.24^.94^.988^1.742^1.968^.634^.23^.837^.724^1.104^1.282^.631^1.296^2.195^3.199^1.029^.758^.874
+7 ;;^UTILITY(U,$J,112,2945,4)
+8 ;;=^^.482^.816^.237^.188^1.159^.073
+9 ;;^UTILITY(U,$J,112,2945,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,2946,0)
+12 ;;=SALMON, COHO, COOKED, MOIST HEAT^15-082^oz.^28.3^100^N
+13 ;;^UTILITY(U,$J,112,2946,1)
+14 ;;=27.36^7.5^0^184^65.39^^^46^.71^35^298^455^53^.52^.065^.018^^108^1^.115
+15 ;;^UTILITY(U,$J,112,2946,2)
+16 ;;=.159^7.779^.834^.556^9^4.48^.26^.199^57^1.595^2.702^2.521^32^1.53^^^0
+17 ;;^UTILITY(U,$J,112,2946,3)
+18 ;;=.306^1.2^1.261^2.224^2.513^.81^.293^1.068^.924^1.41^1.637^.806^1.655^2.802^4.085^1.313^.968^1.116
+19 ;;^UTILITY(U,$J,112,2946,4)
+20 ;;=^^.334^.95^.64^.262^1.524^.169
+21 ;;^UTILITY(U,$J,112,2946,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,2947,0)
+24 ;;=SARDINES, PACIFIC, CND IN TOMATO SAUCE^15-089^sardines^38^100^N
+25 ;;^UTILITY(U,$J,112,2947,1)
+26 ;;=16.35^11.98^0^178^68.3^^^240^2.3^34^366^341^414^1.4^.272^.206^^365^1^.044
+27 ;;^UTILITY(U,$J,112,2947,2)
+28 ;;=.233^4.2^.73^.123^24.3^9^.141^.27^61^3.087^3.672^4.295^70^3.7^^^.6
+29 ;;^UTILITY(U,$J,112,2947,3)
+30 ;;=.157^.795^.795^1.358^1.4^.476^.139^.793^.625^.926^1.049^.68^1.005^1.666^2.307^.827^.651^.727
+31 ;;^UTILITY(U,$J,112,2947,4)
+32 ;;=^^.807^1.997^.728^.281^2.126^.341
+33 ;;^UTILITY(U,$J,112,2947,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,2948,0)
+36 ;;=SAUCE, CHEESE, DEHYDRATED, DRY^6-103^pkts.^35.2^100^N
+37 ;;^UTILITY(U,$J,112,2948,1)
+38 ;;=22.69^25.44^33.66^448^4.09^^^795^.42^44^597^519^4110^2.5^.02^.01^^238^1^.16
+39 ;;^UTILITY(U,$J,112,2948,2)
+40 ;;=.476^.324^1^.1^13^.8^3.26^.4^51^12.05^8.44^3.66^71^14.12^^^1.1
+41 ;;^UTILITY(U,$J,112,2948,4)
+42 ;;=.35^.28^1.71^5.84^.54^2.47^7.64^^^13.6
+43 ;;^UTILITY(U,$J,112,2948,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,2949,0)
+46 ;;=SAUCE, MUSHROOM, DEHYDRATED, DRY^6-106^cups^22.7^100^N
+47 ;;^UTILITY(U,$J,112,2949,1)
+48 ;;=14.38^9.5^54.72^349^3.5^^^9^1^18^133^433^6230^.9^.6^.1^^0^0^.1
+49 ;;^UTILITY(U,$J,112,2949,2)
+50 ;;=.5^4.6^2.3^.1^27^0^3.32^.25^0^1.42^4.09^3.57^0^17.9
+51 ;;^UTILITY(U,$J,112,2949,4)
+52 ;;=^^.01^.93^.04^.48^4.04
+53 ;;^UTILITY(U,$J,112,2949,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,2950,0)
+56 ;;=SAUCE, SOUR CREAM, DEHYDRATED, DRY^6-148^cups^70.4^100^N
+57 ;;^UTILITY(U,$J,112,2950,1)
+58 ;;=15.7^31.4^48.31^512^1.59^^^363^.7^21^118^515^1260^1.821^.075^.2^^241^.4^.06
+59 ;;^UTILITY(U,$J,112,2950,2)
+60 ;;=.44^.5^.7^.06^4^.3^3.04^.47^80^15.65^10.71^3.51^96^3
+61 ;;^UTILITY(U,$J,112,2950,4)
+62 ;;=.52^.59^2.15^6.99^.47^3.65^9.93
+63 ;;^UTILITY(U,$J,112,2950,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,2951,0)
+66 ;;=SAUCE, WHITE, DEHYDRATED, DRY^6-113^cups^19.8^100^N
+67 ;;^UTILITY(U,$J,112,2951,1)
+68 ;;=10.94^26.7^50.56^463^1.5^^^674^.5^39^245^370^3410^1.1^.08^.06^^7^3^.2
+69 ;;^UTILITY(U,$J,112,2951,2)
+70 ;;=.4^.7^.8^.1^14^.8^6.54^.43^1^6.68^11.88^6.97^2^10.3^^^2.8
+71 ;;^UTILITY(U,$J,112,2951,4)
+72 ;;=^^.11^3.76^0^2.83^11.88
+73 ;;^UTILITY(U,$J,112,2951,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,2952,0)
+76 ;;=SAUSAGE, BLOOD SAUSAGE OR BLOOD PUDDING^7-005^slices^25^100^N
+77 ;;^UTILITY(U,$J,112,2952,1)
+78 ;;=14.61^34.48^1.28^378^47.33^^^6^6.4^8^22^38^680^1.3^.04^.011^^0^0^.073
+79 ;;^UTILITY(U,$J,112,2952,2)
+80 ;;=.13^1.2^.6^.04^5^1^3.2^.26^120^13.37^15.85^3.46^0^2.31^^^0
+81 ;;^UTILITY(U,$J,112,2952,3)
+82 ;;=.187^.584^.327^1.426^1.075^.21^.187^.842^.351^1.052^.701^.725^1.075^1.379^2.174^.935^1.029^.701
+83 ;;^UTILITY(U,$J,112,2952,4)
+84 ;;=0^.03^.62^8.3^.88^4.41^14.97^0
+85 ;;^UTILITY(U,$J,112,2952,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,2953,0)
+88 ;;=SAUSAGE, BRATWURST^7-013^oz.^28.3^100^N
+89 ;;^UTILITY(U,$J,112,2953,1)
+90 ;;=14.08^25.87^2.07^301^56.13^^^44^1.29^15^149^212^557^2.3^.09^.046^^0^1^.505
+91 ;;^UTILITY(U,$J,112,2953,2)
+92 ;;=.183^3.2^.32^.21^2^.95^2.48^.26^60^9.32^12.19^2.74^0^1.85^^^0
+93 ;;^UTILITY(U,$J,112,2953,3)
+94 ;;=.113^.556^.514^.944^1.07^.342^.142^.471^.406^.566^.831^.406^.789^1.172^1.947^.854^.656^.545
+95 ;;^UTILITY(U,$J,112,2953,4)
+96 ;;=.03^.01^.3^5.85^.82^3.13^11.37^0
+97 ;;^UTILITY(U,$J,112,2953,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,2954,0)
+100 ;;=SAUSAGE, LUNCHEON TYPE^7-090^slices^23^100^N
+101 ;;^UTILITY(U,$J,112,2954,1)
+102 ;;=15.38^20.9^1.58^260^58.62^^^13^1.43^14^122^245^1182^2.45^.08^.042^^0^19^.217
+103 ;;^UTILITY(U,$J,112,2954,2)
+104 ;;=.195^3.527^.37^.2^3^1.96^1.77^.28^64^7.62^9.93^2.05^0^3.52^^^0
