FHINI01H ; ; 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,351,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,352,0)
;;=SALAD DRESSING, SESAME SEED^4-016^tbsp.^15.3^100^N
;;^UTILITY(U,$J,112,352,1)
;;=3.1^45.2^8.6^443.1^39.2^^^19^.6^0^37^157^1000^.1^^^5^690^0^0
;;^UTILITY(U,$J,112,352,2)
;;=0^0^0^0^0^0^23.2^2^0^6.2^11.9^25.1^207^3.9^^^^42
;;^UTILITY(U,$J,112,352,3)
;;=.047^.049^.047^.082^.142^.029^0^.086^.102^.068^.399^.031^0^0^.461^0^0^0
;;^UTILITY(U,$J,112,352,4)
;;=0^0^0^4.2^0^1.9^11.9^0
;;^UTILITY(U,$J,112,352,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,353,0)
;;=SALAD DRESSING, THOUSAND ISLAND, REGULAR, W/SALT^4-017^tbsp.^15.6^100^N
;;^UTILITY(U,$J,112,353,1)
;;=.9^35.7^15.2^377.3^46.1^^^11^.6^2^17^113^700^.14^^^4^320^0^.013
;;^UTILITY(U,$J,112,353,2)
;;=.024^.004^.243^.017^6.28^.208^16.5^2.5^26^6^8.3^19.8^96^2.1^^^2^30
;;^UTILITY(U,$J,112,353,3)
;;=.013^.049^.052^.077^.061^.023^.016^.039^.039^.055^.062^.022^.045^.075^.11^.027^.037^.075
;;^UTILITY(U,$J,112,353,4)
;;=0^.1^.1^4.3^.2^1.3^7.7^0^^2.1
;;^UTILITY(U,$J,112,353,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,354,0)
;;=SALAD DRESSING, MAYONNAISE-TYPE, W/SALT^4-018^tbsp.^14.7^100^N
;;^UTILITY(U,$J,112,354,1)
;;=.9^33.4^23.9^389.7^39.9^^^14^.2^2^26^9^710.78^.18^^^4^220^0^.013
;;^UTILITY(U,$J,112,354,2)
;;=.024^.004^.243^.017^6.28^.208^16^2^26^4.9^9^18^84^1.9^^^0^30
;;^UTILITY(U,$J,112,354,3)
;;=.013^.049^.052^.077^.061^.023^.016^.039^.039^.055^.062^.022^.045^.075^.11^.027^.037^.075
;;^UTILITY(U,$J,112,354,4)
;;=0^.1^0^3.5^0^1.4^9^0
;;^UTILITY(U,$J,112,354,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,355,0)
;;=SALAD DRESSING, FRENCH, DIET, 5 CAL/TSP, W/SALT^4-020^tbsp.^16.3^100^N
;;^UTILITY(U,$J,112,355,1)
;;=.2^5.8^21.7^134.2^69.4^^^11^.4^0^14^79^787^.18^^^1^0^0^0
;;^UTILITY(U,$J,112,355,2)
;;=0^0^0^0^0^0^3^.4^6^.8^1.4^3.4^0^2.9^^^.3^5
;;^UTILITY(U,$J,112,355,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,355,4)
;;=0^0^0^.6^0^.2^1.3^0
;;^UTILITY(U,$J,112,355,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,356,0)
;;=SALAD DRESSING, ITALIAN, DIET, 2 CAL/TSP, W/SALT^4-021^tbsp.^15^100^N
;;^UTILITY(U,$J,112,356,1)
;;=.1^9.8^4.9^105.4^81.9^^^2^.2^0^5^15^787^.11^^^1^0^0^0
;;^UTILITY(U,$J,112,356,2)
;;=0^0^0^0^0^0^5.2^.8^6^1.3^2^6^0^3.3^^^.1^9
;;^UTILITY(U,$J,112,356,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,356,4)
;;=0^0^0^1^0^.4^2^0
;;^UTILITY(U,$J,112,356,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,357,0)
;;=SALAD DRESSING, RUSSIAN, LOW CALORIE, W/SALT^4-022^tbsp.^16.3^100^N
;;^UTILITY(U,$J,112,357,1)
;;=.5^4^27.6^141.4^65^^^19^.6^.46^37^157^868^.1^^^.4^56^6^.007
;;^UTILITY(U,$J,112,357,2)
;;=.013^.002^.135^.009^3.49^.116^2^.3^6^.6^.9^2.3^16^2.9^^^.3^4
;;^UTILITY(U,$J,112,357,3)
;;=.007^.027^.029^.043^.034^.013^.009^.022^.022^.03^.035^.012^.025^.042^.061^.015^.021^.041
;;^UTILITY(U,$J,112,357,4)
;;=0^0^0^.4^0^.2^.9^0
;;^UTILITY(U,$J,112,357,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,358,0)
;;=SALAD DRESSING, THOUSAND ISLAND, DIET, 10 CAL/TSP, W/SALT^4-023^tbsp.^15.3^100^N
;;^UTILITY(U,$J,112,358,1)
;;=.8^10.7^16.2^158.6^69.3^^^11^.6^.7^17^113^1000^.16^^^1^320^0^.011
;;^UTILITY(U,$J,112,358,2)
;;=.021^.003^.216^.015^5.58^.185^5.3^.9^15^1.6^2.4^6.2^96^3.1^^^1.2^10
;;^UTILITY(U,$J,112,358,3)
;;=.012^.043^.046^.068^.054^.02^.014^.034^.034^.049^.055^.019^.04^.067^.097^.024^.033^.066
;;^UTILITY(U,$J,112,358,4)
;;=0^0^0^1.1^0^.4^2.4^0
;;^UTILITY(U,$J,112,358,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,359,0)
;;=MAYONNAISE, SOYBEAN OIL, W/SALT^4-025^tbsp.^13.8^100^N
;;^UTILITY(U,$J,112,359,1)
;;=1.1^79.4^2.7^716.8^15.3^^^18^.5^1.01^28^34^568.39^.16^^^20.8^280^0^0
;;^UTILITY(U,$J,112,359,2)
;;=0^.005^.217^.577^7.68^.255^37.1^4.2^59^11.8^22.7^41.3^84^1.5^^^0^58
;;^UTILITY(U,$J,112,359,3)
;;=.017^.055^.065^.095^.072^.035^.023^.057^.046^.074^.072^.026^.061^.094^.143^.037^.044^.088
;;^UTILITY(U,$J,112,359,4)
;;=0^.1^.1^8.5^.1^3.1^22.5^0^81^1.7
;;^UTILITY(U,$J,112,359,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,360,0)
;;=MAYONNAISE, REGULAR, W/SALT^4-026^tbsp.^13.8^100^N
;;^UTILITY(U,$J,112,360,1)
;;=1.1^79.4^2.7^716.8^15.3^^^18^.5^1.01^28^34^568.39^.12^^^22^280^0^0
;;^UTILITY(U,$J,112,360,2)
;;=0^.005^.297^.577^7.68^.255^52^3^59^8.6^13^55^84^1.5^^^0^66
;;^UTILITY(U,$J,112,360,3)
;;=.017^.055^.065^.095^.072^.035^.023^.057^.046^.074^.072^.026^.061^.094^.143^.037^.044^.088
;;^UTILITY(U,$J,112,360,4)
;;=0^0^.1^6.1^0^2.4^13^0
FHINI01H ; ; 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,351,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,352,0)
+4 ;;=SALAD DRESSING, SESAME SEED^4-016^tbsp.^15.3^100^N
+5 ;;^UTILITY(U,$J,112,352,1)
+6 ;;=3.1^45.2^8.6^443.1^39.2^^^19^.6^0^37^157^1000^.1^^^5^690^0^0
+7 ;;^UTILITY(U,$J,112,352,2)
+8 ;;=0^0^0^0^0^0^23.2^2^0^6.2^11.9^25.1^207^3.9^^^^42
+9 ;;^UTILITY(U,$J,112,352,3)
+10 ;;=.047^.049^.047^.082^.142^.029^0^.086^.102^.068^.399^.031^0^0^.461^0^0^0
+11 ;;^UTILITY(U,$J,112,352,4)
+12 ;;=0^0^0^4.2^0^1.9^11.9^0
+13 ;;^UTILITY(U,$J,112,352,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,353,0)
+16 ;;=SALAD DRESSING, THOUSAND ISLAND, REGULAR, W/SALT^4-017^tbsp.^15.6^100^N
+17 ;;^UTILITY(U,$J,112,353,1)
+18 ;;=.9^35.7^15.2^377.3^46.1^^^11^.6^2^17^113^700^.14^^^4^320^0^.013
+19 ;;^UTILITY(U,$J,112,353,2)
+20 ;;=.024^.004^.243^.017^6.28^.208^16.5^2.5^26^6^8.3^19.8^96^2.1^^^2^30
+21 ;;^UTILITY(U,$J,112,353,3)
+22 ;;=.013^.049^.052^.077^.061^.023^.016^.039^.039^.055^.062^.022^.045^.075^.11^.027^.037^.075
+23 ;;^UTILITY(U,$J,112,353,4)
+24 ;;=0^.1^.1^4.3^.2^1.3^7.7^0^^2.1
+25 ;;^UTILITY(U,$J,112,353,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,354,0)
+28 ;;=SALAD DRESSING, MAYONNAISE-TYPE, W/SALT^4-018^tbsp.^14.7^100^N
+29 ;;^UTILITY(U,$J,112,354,1)
+30 ;;=.9^33.4^23.9^389.7^39.9^^^14^.2^2^26^9^710.78^.18^^^4^220^0^.013
+31 ;;^UTILITY(U,$J,112,354,2)
+32 ;;=.024^.004^.243^.017^6.28^.208^16^2^26^4.9^9^18^84^1.9^^^0^30
+33 ;;^UTILITY(U,$J,112,354,3)
+34 ;;=.013^.049^.052^.077^.061^.023^.016^.039^.039^.055^.062^.022^.045^.075^.11^.027^.037^.075
+35 ;;^UTILITY(U,$J,112,354,4)
+36 ;;=0^.1^0^3.5^0^1.4^9^0
+37 ;;^UTILITY(U,$J,112,354,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,355,0)
+40 ;;=SALAD DRESSING, FRENCH, DIET, 5 CAL/TSP, W/SALT^4-020^tbsp.^16.3^100^N
+41 ;;^UTILITY(U,$J,112,355,1)
+42 ;;=.2^5.8^21.7^134.2^69.4^^^11^.4^0^14^79^787^.18^^^1^0^0^0
+43 ;;^UTILITY(U,$J,112,355,2)
+44 ;;=0^0^0^0^0^0^3^.4^6^.8^1.4^3.4^0^2.9^^^.3^5
+45 ;;^UTILITY(U,$J,112,355,3)
+46 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+47 ;;^UTILITY(U,$J,112,355,4)
+48 ;;=0^0^0^.6^0^.2^1.3^0
+49 ;;^UTILITY(U,$J,112,355,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,356,0)
+52 ;;=SALAD DRESSING, ITALIAN, DIET, 2 CAL/TSP, W/SALT^4-021^tbsp.^15^100^N
+53 ;;^UTILITY(U,$J,112,356,1)
+54 ;;=.1^9.8^4.9^105.4^81.9^^^2^.2^0^5^15^787^.11^^^1^0^0^0
+55 ;;^UTILITY(U,$J,112,356,2)
+56 ;;=0^0^0^0^0^0^5.2^.8^6^1.3^2^6^0^3.3^^^.1^9
+57 ;;^UTILITY(U,$J,112,356,3)
+58 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+59 ;;^UTILITY(U,$J,112,356,4)
+60 ;;=0^0^0^1^0^.4^2^0
+61 ;;^UTILITY(U,$J,112,356,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,357,0)
+64 ;;=SALAD DRESSING, RUSSIAN, LOW CALORIE, W/SALT^4-022^tbsp.^16.3^100^N
+65 ;;^UTILITY(U,$J,112,357,1)
+66 ;;=.5^4^27.6^141.4^65^^^19^.6^.46^37^157^868^.1^^^.4^56^6^.007
+67 ;;^UTILITY(U,$J,112,357,2)
+68 ;;=.013^.002^.135^.009^3.49^.116^2^.3^6^.6^.9^2.3^16^2.9^^^.3^4
+69 ;;^UTILITY(U,$J,112,357,3)
+70 ;;=.007^.027^.029^.043^.034^.013^.009^.022^.022^.03^.035^.012^.025^.042^.061^.015^.021^.041
+71 ;;^UTILITY(U,$J,112,357,4)
+72 ;;=0^0^0^.4^0^.2^.9^0
+73 ;;^UTILITY(U,$J,112,357,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,358,0)
+76 ;;=SALAD DRESSING, THOUSAND ISLAND, DIET, 10 CAL/TSP, W/SALT^4-023^tbsp.^15.3^100^N
+77 ;;^UTILITY(U,$J,112,358,1)
+78 ;;=.8^10.7^16.2^158.6^69.3^^^11^.6^.7^17^113^1000^.16^^^1^320^0^.011
+79 ;;^UTILITY(U,$J,112,358,2)
+80 ;;=.021^.003^.216^.015^5.58^.185^5.3^.9^15^1.6^2.4^6.2^96^3.1^^^1.2^10
+81 ;;^UTILITY(U,$J,112,358,3)
+82 ;;=.012^.043^.046^.068^.054^.02^.014^.034^.034^.049^.055^.019^.04^.067^.097^.024^.033^.066
+83 ;;^UTILITY(U,$J,112,358,4)
+84 ;;=0^0^0^1.1^0^.4^2.4^0
+85 ;;^UTILITY(U,$J,112,358,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,359,0)
+88 ;;=MAYONNAISE, SOYBEAN OIL, W/SALT^4-025^tbsp.^13.8^100^N
+89 ;;^UTILITY(U,$J,112,359,1)
+90 ;;=1.1^79.4^2.7^716.8^15.3^^^18^.5^1.01^28^34^568.39^.16^^^20.8^280^0^0
+91 ;;^UTILITY(U,$J,112,359,2)
+92 ;;=0^.005^.217^.577^7.68^.255^37.1^4.2^59^11.8^22.7^41.3^84^1.5^^^0^58
+93 ;;^UTILITY(U,$J,112,359,3)
+94 ;;=.017^.055^.065^.095^.072^.035^.023^.057^.046^.074^.072^.026^.061^.094^.143^.037^.044^.088
+95 ;;^UTILITY(U,$J,112,359,4)
+96 ;;=0^.1^.1^8.5^.1^3.1^22.5^0^81^1.7
+97 ;;^UTILITY(U,$J,112,359,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,360,0)
+100 ;;=MAYONNAISE, REGULAR, W/SALT^4-026^tbsp.^13.8^100^N
+101 ;;^UTILITY(U,$J,112,360,1)
+102 ;;=1.1^79.4^2.7^716.8^15.3^^^18^.5^1.01^28^34^568.39^.12^^^22^280^0^0
+103 ;;^UTILITY(U,$J,112,360,2)
+104 ;;=0^.005^.297^.577^7.68^.255^52^3^59^8.6^13^55^84^1.5^^^0^66
+105 ;;^UTILITY(U,$J,112,360,3)
+106 ;;=.017^.055^.065^.095^.072^.035^.023^.057^.046^.074^.072^.026^.061^.094^.143^.037^.044^.088
+107 ;;^UTILITY(U,$J,112,360,4)
+108 ;;=0^0^.1^6.1^0^2.4^13^0
