FHINI08C ; ; 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,2889,4)
;;=^0^.001^.023^.001^.007^.013
;;^UTILITY(U,$J,112,2889,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2890,0)
;;=PEPPERS, SWEET, RED, BOILED, DRAINED, W/SALT^11-824^peppers^73^100^N
;;^UTILITY(U,$J,112,2890,1)
;;=.92^.2^6.7^28^91.87^^^9^.46^10^18^166^238^.12^.065^.115^^3760^171^.059
;;^UTILITY(U,$J,112,2890,2)
;;=.03^.477^.079^.233^16^0^.096^.01^0^.029^.013^.106^376^.31
;;^UTILITY(U,$J,112,2890,3)
;;=.012^.034^.03^.048^.041^.011^.018^.029^.019^.039^.044^.019^.038^.132^.122^.034^.04^.037
;;^UTILITY(U,$J,112,2890,4)
;;=^0^0^.022^.001^.007^.012
;;^UTILITY(U,$J,112,2890,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2891,0)
;;=PEPPERS, SWEET, RED, BOILED, DRAINED, WO/SALT^11-823^peppers^73^100^N
;;^UTILITY(U,$J,112,2891,1)
;;=.92^.2^6.7^28^91.87^^^9^.46^10^18^166^2^.12^.065^.115^^3760^171^.059
;;^UTILITY(U,$J,112,2891,2)
;;=.03^.477^.079^.233^16^0^.096^.01^0^.029^.013^.106^376^.31^^^1.2
;;^UTILITY(U,$J,112,2891,3)
;;=.012^.034^.03^.048^.041^.011^.018^.029^.019^.039^.044^.019^.038^.132^.122^.034^.04^.037
;;^UTILITY(U,$J,112,2891,4)
;;=^0^0^.022^.001^.007^.012
;;^UTILITY(U,$J,112,2891,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2892,0)
;;=PEPPERS, SWEET, RED, FRZ, CHOPPED, BOILED, DRAINED, W/SALT^11-919^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2892,1)
;;=.95^.18^3.9^18^94.7^^^8^.52^7^13^72^240^.05^.044^.097^^3343^41.2^.051
;;^UTILITY(U,$J,112,2892,2)
;;=.031^1.082^.023^.108^9.9^0^.09^.009^0^.027^.012^.099^334^.27
;;^UTILITY(U,$J,112,2892,3)
;;=.012^.035^.031^.049^.042^.011^.018^.029^.02^.04^.045^.019^.039^.135^.125^.035^.041^.038
;;^UTILITY(U,$J,112,2892,4)
;;=^0^.001^.02^.001^.006^.011
;;^UTILITY(U,$J,112,2892,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2893,0)
;;=PEPPERS, SWEET, RED, FRZ, CHOPPED, BOILED, DRAINED, WO/SALT^11-918^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2893,1)
;;=.95^.18^3.9^18^94.7^^^8^.52^7^13^72^4^.05^.044^.097^^3343^41.2^.051
;;^UTILITY(U,$J,112,2893,2)
;;=.031^1.082^.023^.108^9.9^0^.09^.009^0^.027^.012^.099^334^.27
;;^UTILITY(U,$J,112,2893,3)
;;=.012^.035^.031^.049^.042^.011^.018^.029^.02^.04^.045^.019^.039^.135^.125^.035^.041^.038
;;^UTILITY(U,$J,112,2893,4)
;;=^0^.001^.02^.001^.006^.011
;;^UTILITY(U,$J,112,2893,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2894,0)
;;=PEPPERS, SWEET, RED, FRZ, CHOPPED, UNPREPARED^11-917^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2894,1)
;;=1.08^.21^4.45^20^93.96^^^9^.62^8^17^91^5^.06^.053^.117^^4762^58.7^.069
;;^UTILITY(U,$J,112,2894,2)
;;=.038^1.37^.03^.137^14.1^0^.102^.01^0^.031^.014^.113^476^.3^^^1.6
;;^UTILITY(U,$J,112,2894,3)
;;=.014^.04^.035^.056^.048^.013^.021^.033^.022^.045^.052^.022^.044^.154^.142^.04^.047^.043
;;^UTILITY(U,$J,112,2894,4)
;;=^0^.001^.023^.001^.007^.013
;;^UTILITY(U,$J,112,2894,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2895,0)
;;=PERCH, COOKED, DRY HEAT^15-061^fillets^46^100^N
;;^UTILITY(U,$J,112,2895,1)
;;=24.86^1.18^0^117^73.25^^^102^1.16^38^257^344^79^1.43^.192^.9^^32^1.7^.08
;;^UTILITY(U,$J,112,2895,2)
;;=.12^1.9^.87^.14^5.8^2.2^.014^.015^115^.237^.195^.472^10^1.59^^^0
;;^UTILITY(U,$J,112,2895,3)
;;=.278^1.09^1.145^2.02^2.283^.736^.266^.97^.839^1.281^1.487^.732^1.503^2.545^3.711^1.193^.879^1.014
;;^UTILITY(U,$J,112,2895,4)
;;=^^.017^.179^.073^.04^.09^.067
;;^UTILITY(U,$J,112,2895,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2896,0)
;;=PICKLES, CUCUMBER, SOUR, LOW SODIUM^11-946^slices^7^100^N
;;^UTILITY(U,$J,112,2896,1)
;;=.33^.2^2.25^11^94.08^^^0^.4^4^14^23^18^.02^.085^^^145^1^0
;;^UTILITY(U,$J,112,2896,2)
;;=.01^0^^^^0^.035^.047^0^.052^.003^.082^15^3.13^^^1.2
;;^UTILITY(U,$J,112,2896,3)
;;=.003^.009^.01^.014^.014^.003^.002^.009^.006^.011^.021^.005^.011^.02^.095^.012^.008^.01
;;^UTILITY(U,$J,112,2896,4)
;;=^.002^.002^.044^0^.005^.003
;;^UTILITY(U,$J,112,2896,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2897,0)
;;=PICKLES, CUCUMBER, SWEET, LOW SODIUM^11-948^slices^6^100^N
;;^UTILITY(U,$J,112,2897,1)
;;=.37^.26^31.81^117^65.26^^^4^.59^4^12^32^18^.08^.105^.015^^126^1.2^.009
;;^UTILITY(U,$J,112,2897,2)
;;=.032^.174^.12^.015^1^0^.046^.06^0^.067^.004^.106^13^2.3^^^1.5
;;^UTILITY(U,$J,112,2897,3)
;;=.003^.01^.012^.016^.015^.003^.002^.01^.006^.012^.024^.005^.013^.022^.106^.013^.008^.011
;;^UTILITY(U,$J,112,2897,4)
;;=^.002^.002^.056^0^.006^.004
;;^UTILITY(U,$J,112,2897,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2898,0)
;;=PICKLES, CUCUMBER, DILL, LOW SODIUM^11-947^slices^6^100^N
FHINI08C ; ; 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,2889,4)
+2 ;;=^0^.001^.023^.001^.007^.013
+3 ;;^UTILITY(U,$J,112,2889,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,2890,0)
+6 ;;=PEPPERS, SWEET, RED, BOILED, DRAINED, W/SALT^11-824^peppers^73^100^N
+7 ;;^UTILITY(U,$J,112,2890,1)
+8 ;;=.92^.2^6.7^28^91.87^^^9^.46^10^18^166^238^.12^.065^.115^^3760^171^.059
+9 ;;^UTILITY(U,$J,112,2890,2)
+10 ;;=.03^.477^.079^.233^16^0^.096^.01^0^.029^.013^.106^376^.31
+11 ;;^UTILITY(U,$J,112,2890,3)
+12 ;;=.012^.034^.03^.048^.041^.011^.018^.029^.019^.039^.044^.019^.038^.132^.122^.034^.04^.037
+13 ;;^UTILITY(U,$J,112,2890,4)
+14 ;;=^0^0^.022^.001^.007^.012
+15 ;;^UTILITY(U,$J,112,2890,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,2891,0)
+18 ;;=PEPPERS, SWEET, RED, BOILED, DRAINED, WO/SALT^11-823^peppers^73^100^N
+19 ;;^UTILITY(U,$J,112,2891,1)
+20 ;;=.92^.2^6.7^28^91.87^^^9^.46^10^18^166^2^.12^.065^.115^^3760^171^.059
+21 ;;^UTILITY(U,$J,112,2891,2)
+22 ;;=.03^.477^.079^.233^16^0^.096^.01^0^.029^.013^.106^376^.31^^^1.2
+23 ;;^UTILITY(U,$J,112,2891,3)
+24 ;;=.012^.034^.03^.048^.041^.011^.018^.029^.019^.039^.044^.019^.038^.132^.122^.034^.04^.037
+25 ;;^UTILITY(U,$J,112,2891,4)
+26 ;;=^0^0^.022^.001^.007^.012
+27 ;;^UTILITY(U,$J,112,2891,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,2892,0)
+30 ;;=PEPPERS, SWEET, RED, FRZ, CHOPPED, BOILED, DRAINED, W/SALT^11-919^oz.^28.3^100^N
+31 ;;^UTILITY(U,$J,112,2892,1)
+32 ;;=.95^.18^3.9^18^94.7^^^8^.52^7^13^72^240^.05^.044^.097^^3343^41.2^.051
+33 ;;^UTILITY(U,$J,112,2892,2)
+34 ;;=.031^1.082^.023^.108^9.9^0^.09^.009^0^.027^.012^.099^334^.27
+35 ;;^UTILITY(U,$J,112,2892,3)
+36 ;;=.012^.035^.031^.049^.042^.011^.018^.029^.02^.04^.045^.019^.039^.135^.125^.035^.041^.038
+37 ;;^UTILITY(U,$J,112,2892,4)
+38 ;;=^0^.001^.02^.001^.006^.011
+39 ;;^UTILITY(U,$J,112,2892,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,2893,0)
+42 ;;=PEPPERS, SWEET, RED, FRZ, CHOPPED, BOILED, DRAINED, WO/SALT^11-918^oz.^28.3^100^N
+43 ;;^UTILITY(U,$J,112,2893,1)
+44 ;;=.95^.18^3.9^18^94.7^^^8^.52^7^13^72^4^.05^.044^.097^^3343^41.2^.051
+45 ;;^UTILITY(U,$J,112,2893,2)
+46 ;;=.031^1.082^.023^.108^9.9^0^.09^.009^0^.027^.012^.099^334^.27
+47 ;;^UTILITY(U,$J,112,2893,3)
+48 ;;=.012^.035^.031^.049^.042^.011^.018^.029^.02^.04^.045^.019^.039^.135^.125^.035^.041^.038
+49 ;;^UTILITY(U,$J,112,2893,4)
+50 ;;=^0^.001^.02^.001^.006^.011
+51 ;;^UTILITY(U,$J,112,2893,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,2894,0)
+54 ;;=PEPPERS, SWEET, RED, FRZ, CHOPPED, UNPREPARED^11-917^oz.^28.3^100^N
+55 ;;^UTILITY(U,$J,112,2894,1)
+56 ;;=1.08^.21^4.45^20^93.96^^^9^.62^8^17^91^5^.06^.053^.117^^4762^58.7^.069
+57 ;;^UTILITY(U,$J,112,2894,2)
+58 ;;=.038^1.37^.03^.137^14.1^0^.102^.01^0^.031^.014^.113^476^.3^^^1.6
+59 ;;^UTILITY(U,$J,112,2894,3)
+60 ;;=.014^.04^.035^.056^.048^.013^.021^.033^.022^.045^.052^.022^.044^.154^.142^.04^.047^.043
+61 ;;^UTILITY(U,$J,112,2894,4)
+62 ;;=^0^.001^.023^.001^.007^.013
+63 ;;^UTILITY(U,$J,112,2894,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,2895,0)
+66 ;;=PERCH, COOKED, DRY HEAT^15-061^fillets^46^100^N
+67 ;;^UTILITY(U,$J,112,2895,1)
+68 ;;=24.86^1.18^0^117^73.25^^^102^1.16^38^257^344^79^1.43^.192^.9^^32^1.7^.08
+69 ;;^UTILITY(U,$J,112,2895,2)
+70 ;;=.12^1.9^.87^.14^5.8^2.2^.014^.015^115^.237^.195^.472^10^1.59^^^0
+71 ;;^UTILITY(U,$J,112,2895,3)
+72 ;;=.278^1.09^1.145^2.02^2.283^.736^.266^.97^.839^1.281^1.487^.732^1.503^2.545^3.711^1.193^.879^1.014
+73 ;;^UTILITY(U,$J,112,2895,4)
+74 ;;=^^.017^.179^.073^.04^.09^.067
+75 ;;^UTILITY(U,$J,112,2895,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,2896,0)
+78 ;;=PICKLES, CUCUMBER, SOUR, LOW SODIUM^11-946^slices^7^100^N
+79 ;;^UTILITY(U,$J,112,2896,1)
+80 ;;=.33^.2^2.25^11^94.08^^^0^.4^4^14^23^18^.02^.085^^^145^1^0
+81 ;;^UTILITY(U,$J,112,2896,2)
+82 ;;=.01^0^^^^0^.035^.047^0^.052^.003^.082^15^3.13^^^1.2
+83 ;;^UTILITY(U,$J,112,2896,3)
+84 ;;=.003^.009^.01^.014^.014^.003^.002^.009^.006^.011^.021^.005^.011^.02^.095^.012^.008^.01
+85 ;;^UTILITY(U,$J,112,2896,4)
+86 ;;=^.002^.002^.044^0^.005^.003
+87 ;;^UTILITY(U,$J,112,2896,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,2897,0)
+90 ;;=PICKLES, CUCUMBER, SWEET, LOW SODIUM^11-948^slices^6^100^N
+91 ;;^UTILITY(U,$J,112,2897,1)
+92 ;;=.37^.26^31.81^117^65.26^^^4^.59^4^12^32^18^.08^.105^.015^^126^1.2^.009
+93 ;;^UTILITY(U,$J,112,2897,2)
+94 ;;=.032^.174^.12^.015^1^0^.046^.06^0^.067^.004^.106^13^2.3^^^1.5
+95 ;;^UTILITY(U,$J,112,2897,3)
+96 ;;=.003^.01^.012^.016^.015^.003^.002^.01^.006^.012^.024^.005^.013^.022^.106^.013^.008^.011
+97 ;;^UTILITY(U,$J,112,2897,4)
+98 ;;=^.002^.002^.056^0^.006^.004
+99 ;;^UTILITY(U,$J,112,2897,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,2898,0)
+102 ;;=PICKLES, CUCUMBER, DILL, LOW SODIUM^11-947^slices^6^100^N
