FHINI01K ; ; 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,379,4)
;;=0^.1^.4^7.7^0^3.8^38.9^0
;;^UTILITY(U,$J,112,379,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,380,0)
;;=MARGARINE, IMITATION(APPX 40% FAT), SYBN&CTTNSD^4-110^tsp.^4.8^100^N
;;^UTILITY(U,$J,112,380,1)
;;=.5^38.8^.4^345.2^58.1^^^17.8^0^1.55^13.7^25.3^959.56^0^^^8.6^3307^.096^.006
;;^UTILITY(U,$J,112,380,2)
;;=.022^.013^.051^.005^.71^.057^10.7^.7^0^7.2^18.4^11.4^993^2.2^^^0^60
;;^UTILITY(U,$J,112,380,3)
;;=.007^.023^.031^.05^.04^.013^.005^.025^.025^.034^.018^.014^.018^.039^.107^.011^.049^.028
;;^UTILITY(U,$J,112,380,4)
;;=0^0^0^4.4^0^2.8^18.4^0
;;^UTILITY(U,$J,112,380,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,381,0)
;;=SALAD DRESSING, ITALIAN, REG, W/SALT^4-114^tbsp.^14.7^100^N
;;^UTILITY(U,$J,112,381,1)
;;=.7^48.3^10.2^467.3^38.4^^^10^.2^.64^5^15^787^.11^^^5^78^0^.01
;;^UTILITY(U,$J,112,381,2)
;;=.019^.003^.189^.013^4.89^.162^24.6^3.3^0^7^11.2^28^24^2.5^^^0^45
;;^UTILITY(U,$J,112,381,3)
;;=.01^.038^.04^.059^.047^.018^.012^.03^.03^.043^.048^.017^.035^.058^.086^.021^.029^.058
;;^UTILITY(U,$J,112,381,4)
;;=0^0^0^5^.1^1.8^11^0
;;^UTILITY(U,$J,112,381,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,382,0)
;;=SALAD DRESSING, FRENCH, REG, W/SALT^4-120^tbsp.^15.6^100^N
;;^UTILITY(U,$J,112,382,1)
;;=.6^41^17.5^429.7^38.1^^^11^.4^0^14^79^1370^.08^^^5^67^0^.008
;;^UTILITY(U,$J,112,382,2)
;;=.016^.003^.162^.011^4.19^.139^20.3^0^58^9.5^8^21.7^20^3^^^0^38
;;^UTILITY(U,$J,112,382,3)
;;=.009^.032^.034^.051^.04^.015^.011^.026^.026^.037^.042^.014^.03^.05^.073^.018^.025^.05
;;^UTILITY(U,$J,112,382,4)
;;=0^0^.3^7.7^.4^.8^7.1^0
;;^UTILITY(U,$J,112,382,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,383,0)
;;=SALAD DRESSING, HOME RECIPE, VINEGAR & OIL^4-135^tbsp.^15.6^100^N
;;^UTILITY(U,$J,112,383,1)
;;=0^50.1^2.5^448.8^47.4^^^0^0^0^0^7.5^.5^0^^^4^0^0^0
;;^UTILITY(U,$J,112,383,2)
;;=0^0^0^0^0^0^22.7^1.4^0^9.1^14.8^24.1^0^0^^^0^51.6
;;^UTILITY(U,$J,112,383,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,383,4)
;;=0^0^.2^7^.1^1.9^14.7^0
;;^UTILITY(U,$J,112,383,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,384,0)
;;=SALAD DRESSING, BLUE+ROQUEFORT CHEESE, REGULAR, WO/SALT^4-140^tbsp.^15^100^N
;;^UTILITY(U,$J,112,384,1)
;;=4.8^52.3^7.4^504^32.3^^^81^.2^^74^37^30^^^^^210^2^.01
;;^UTILITY(U,$J,112,384,2)
;;=.1^.1^^^^^23.5^^17^9.9^^^^.5^^^0
;;^UTILITY(U,$J,112,384,4)
;;=^^^^^^11.8
;;^UTILITY(U,$J,112,384,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,385,0)
;;=SALAD DRESSING, FRENCH, REG, WO/SALT^4-141^tbsp.^15^100^N
;;^UTILITY(U,$J,112,385,1)
;;=.6^41^17.5^429.7^38.1^^^11^.4^^14^79^.03^^^^^67^0^.008
;;^UTILITY(U,$J,112,385,2)
;;=.016^.003^^^^^20.3^^0^9.5^^^^.5^^^0
;;^UTILITY(U,$J,112,385,4)
;;=^^^^^^7.1
;;^UTILITY(U,$J,112,385,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,386,0)
;;=SALAD DRESSING, FRENCH, DIET, 5 CAL/TSP, WO/SALT^4-142^tbsp.^15^100^N
;;^UTILITY(U,$J,112,386,1)
;;=.2^5.8^21.7^134.2^69.4^^^11^.4^^14^79^30^^^^^0^0^0
;;^UTILITY(U,$J,112,386,2)
;;=0^0^^^^^3^^0^.8^^^^.5
;;^UTILITY(U,$J,112,386,4)
;;=^^^^^^1.3
;;^UTILITY(U,$J,112,386,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,387,0)
;;=SALAD DRESSING, ITALIAN, REG, WO/SALT^4-143^tbsp.^14.7^100^N
;;^UTILITY(U,$J,112,387,1)
;;=.7^48.3^10.2^467.3^38.4^^^10^.2^^5^15^30^^^^^78^.01^.019
;;^UTILITY(U,$J,112,387,2)
;;=.003^.189^^^^^24.6^^67^7^^^^.5^^^0
;;^UTILITY(U,$J,112,387,4)
;;=^^^^^^11
;;^UTILITY(U,$J,112,387,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,388,0)
;;=SALAD DRESSING, ITALIAN, DIET, 2 CAL/TSP, WO/SALT^4-144^tbsp.^14.7^100^N
;;^UTILITY(U,$J,112,388,1)
;;=.1^9.8^4.9^105.4^81.9^^^2^.2^^5^15^30^^^^^0^0^0
;;^UTILITY(U,$J,112,388,2)
;;=0^0^^^^^5.2^^6^1.3^^^^.5
;;^UTILITY(U,$J,112,388,4)
;;=^^^^^^2
;;^UTILITY(U,$J,112,388,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,389,0)
;;=MAYONNAISE, SOYBEAN OIL, WO/SALT^4-145^oz.^28.3^100^N
;;^UTILITY(U,$J,112,389,1)
;;=1.1^79.4^2.7^716.8^15.3^^^18^.5^^28^34^30^^^^^280^0^0
;;^UTILITY(U,$J,112,389,2)
;;=0^0^^^^^37.1^^59^11.8^^^^.3^^^0
;;^UTILITY(U,$J,112,389,4)
;;=^^^^^^22.5
;;^UTILITY(U,$J,112,389,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,390,0)
;;=OIL, COCOA BUTTER^4-501^cups^218^100^N
;;^UTILITY(U,$J,112,390,1)
;;=0^100^0^884^0^^^0^0^0^0^0^0^0^^^1.8^0^0^0
;;^UTILITY(U,$J,112,390,2)
;;=0^0^0^0^0^0^2.8^.1^0^59.7^32.9^3^0^0^^^0^19.9
;;^UTILITY(U,$J,112,390,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
FHINI01K ; ; 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,379,4)
+2 ;;=0^.1^.4^7.7^0^3.8^38.9^0
+3 ;;^UTILITY(U,$J,112,379,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,380,0)
+6 ;;=MARGARINE, IMITATION(APPX 40% FAT), SYBN&CTTNSD^4-110^tsp.^4.8^100^N
+7 ;;^UTILITY(U,$J,112,380,1)
+8 ;;=.5^38.8^.4^345.2^58.1^^^17.8^0^1.55^13.7^25.3^959.56^0^^^8.6^3307^.096^.006
+9 ;;^UTILITY(U,$J,112,380,2)
+10 ;;=.022^.013^.051^.005^.71^.057^10.7^.7^0^7.2^18.4^11.4^993^2.2^^^0^60
+11 ;;^UTILITY(U,$J,112,380,3)
+12 ;;=.007^.023^.031^.05^.04^.013^.005^.025^.025^.034^.018^.014^.018^.039^.107^.011^.049^.028
+13 ;;^UTILITY(U,$J,112,380,4)
+14 ;;=0^0^0^4.4^0^2.8^18.4^0
+15 ;;^UTILITY(U,$J,112,380,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,381,0)
+18 ;;=SALAD DRESSING, ITALIAN, REG, W/SALT^4-114^tbsp.^14.7^100^N
+19 ;;^UTILITY(U,$J,112,381,1)
+20 ;;=.7^48.3^10.2^467.3^38.4^^^10^.2^.64^5^15^787^.11^^^5^78^0^.01
+21 ;;^UTILITY(U,$J,112,381,2)
+22 ;;=.019^.003^.189^.013^4.89^.162^24.6^3.3^0^7^11.2^28^24^2.5^^^0^45
+23 ;;^UTILITY(U,$J,112,381,3)
+24 ;;=.01^.038^.04^.059^.047^.018^.012^.03^.03^.043^.048^.017^.035^.058^.086^.021^.029^.058
+25 ;;^UTILITY(U,$J,112,381,4)
+26 ;;=0^0^0^5^.1^1.8^11^0
+27 ;;^UTILITY(U,$J,112,381,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,382,0)
+30 ;;=SALAD DRESSING, FRENCH, REG, W/SALT^4-120^tbsp.^15.6^100^N
+31 ;;^UTILITY(U,$J,112,382,1)
+32 ;;=.6^41^17.5^429.7^38.1^^^11^.4^0^14^79^1370^.08^^^5^67^0^.008
+33 ;;^UTILITY(U,$J,112,382,2)
+34 ;;=.016^.003^.162^.011^4.19^.139^20.3^0^58^9.5^8^21.7^20^3^^^0^38
+35 ;;^UTILITY(U,$J,112,382,3)
+36 ;;=.009^.032^.034^.051^.04^.015^.011^.026^.026^.037^.042^.014^.03^.05^.073^.018^.025^.05
+37 ;;^UTILITY(U,$J,112,382,4)
+38 ;;=0^0^.3^7.7^.4^.8^7.1^0
+39 ;;^UTILITY(U,$J,112,382,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,383,0)
+42 ;;=SALAD DRESSING, HOME RECIPE, VINEGAR & OIL^4-135^tbsp.^15.6^100^N
+43 ;;^UTILITY(U,$J,112,383,1)
+44 ;;=0^50.1^2.5^448.8^47.4^^^0^0^0^0^7.5^.5^0^^^4^0^0^0
+45 ;;^UTILITY(U,$J,112,383,2)
+46 ;;=0^0^0^0^0^0^22.7^1.4^0^9.1^14.8^24.1^0^0^^^0^51.6
+47 ;;^UTILITY(U,$J,112,383,3)
+48 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+49 ;;^UTILITY(U,$J,112,383,4)
+50 ;;=0^0^.2^7^.1^1.9^14.7^0
+51 ;;^UTILITY(U,$J,112,383,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,384,0)
+54 ;;=SALAD DRESSING, BLUE+ROQUEFORT CHEESE, REGULAR, WO/SALT^4-140^tbsp.^15^100^N
+55 ;;^UTILITY(U,$J,112,384,1)
+56 ;;=4.8^52.3^7.4^504^32.3^^^81^.2^^74^37^30^^^^^210^2^.01
+57 ;;^UTILITY(U,$J,112,384,2)
+58 ;;=.1^.1^^^^^23.5^^17^9.9^^^^.5^^^0
+59 ;;^UTILITY(U,$J,112,384,4)
+60 ;;=^^^^^^11.8
+61 ;;^UTILITY(U,$J,112,384,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,385,0)
+64 ;;=SALAD DRESSING, FRENCH, REG, WO/SALT^4-141^tbsp.^15^100^N
+65 ;;^UTILITY(U,$J,112,385,1)
+66 ;;=.6^41^17.5^429.7^38.1^^^11^.4^^14^79^.03^^^^^67^0^.008
+67 ;;^UTILITY(U,$J,112,385,2)
+68 ;;=.016^.003^^^^^20.3^^0^9.5^^^^.5^^^0
+69 ;;^UTILITY(U,$J,112,385,4)
+70 ;;=^^^^^^7.1
+71 ;;^UTILITY(U,$J,112,385,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,386,0)
+74 ;;=SALAD DRESSING, FRENCH, DIET, 5 CAL/TSP, WO/SALT^4-142^tbsp.^15^100^N
+75 ;;^UTILITY(U,$J,112,386,1)
+76 ;;=.2^5.8^21.7^134.2^69.4^^^11^.4^^14^79^30^^^^^0^0^0
+77 ;;^UTILITY(U,$J,112,386,2)
+78 ;;=0^0^^^^^3^^0^.8^^^^.5
+79 ;;^UTILITY(U,$J,112,386,4)
+80 ;;=^^^^^^1.3
+81 ;;^UTILITY(U,$J,112,386,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,387,0)
+84 ;;=SALAD DRESSING, ITALIAN, REG, WO/SALT^4-143^tbsp.^14.7^100^N
+85 ;;^UTILITY(U,$J,112,387,1)
+86 ;;=.7^48.3^10.2^467.3^38.4^^^10^.2^^5^15^30^^^^^78^.01^.019
+87 ;;^UTILITY(U,$J,112,387,2)
+88 ;;=.003^.189^^^^^24.6^^67^7^^^^.5^^^0
+89 ;;^UTILITY(U,$J,112,387,4)
+90 ;;=^^^^^^11
+91 ;;^UTILITY(U,$J,112,387,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,388,0)
+94 ;;=SALAD DRESSING, ITALIAN, DIET, 2 CAL/TSP, WO/SALT^4-144^tbsp.^14.7^100^N
+95 ;;^UTILITY(U,$J,112,388,1)
+96 ;;=.1^9.8^4.9^105.4^81.9^^^2^.2^^5^15^30^^^^^0^0^0
+97 ;;^UTILITY(U,$J,112,388,2)
+98 ;;=0^0^^^^^5.2^^6^1.3^^^^.5
+99 ;;^UTILITY(U,$J,112,388,4)
+100 ;;=^^^^^^2
+101 ;;^UTILITY(U,$J,112,388,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,389,0)
+104 ;;=MAYONNAISE, SOYBEAN OIL, WO/SALT^4-145^oz.^28.3^100^N
+105 ;;^UTILITY(U,$J,112,389,1)
+106 ;;=1.1^79.4^2.7^716.8^15.3^^^18^.5^^28^34^30^^^^^280^0^0
+107 ;;^UTILITY(U,$J,112,389,2)
+108 ;;=0^0^^^^^37.1^^59^11.8^^^^.3^^^0
+109 ;;^UTILITY(U,$J,112,389,4)
+110 ;;=^^^^^^22.5
+111 ;;^UTILITY(U,$J,112,389,20)
+112 ;;=USDA Std. Reference, Release 10
+113 ;;^UTILITY(U,$J,112,390,0)
+114 ;;=OIL, COCOA BUTTER^4-501^cups^218^100^N
+115 ;;^UTILITY(U,$J,112,390,1)
+116 ;;=0^100^0^884^0^^^0^0^0^0^0^0^0^^^1.8^0^0^0
+117 ;;^UTILITY(U,$J,112,390,2)
+118 ;;=0^0^0^0^0^0^2.8^.1^0^59.7^32.9^3^0^0^^^0^19.9
+119 ;;^UTILITY(U,$J,112,390,3)
+120 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
