FHINI06V ; ; 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,2378,2)
;;=.041^.497^.278^.08^17.3^0^^^^^^^1181^.7^^^1.7
;;^UTILITY(U,$J,112,2378,3)
;;=.011^.023^.024^.033^.021^.009^.006^.025^.02^.031^.052^.013^.041^.127^.225^.022^.021^.024
;;^UTILITY(U,$J,112,2378,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2379,0)
;;=BF, VEGETABLES, CARROTS, BUTTERED, STR^3-101^jars^128^100^N
;;^UTILITY(U,$J,112,2379,1)
;;=.8^.6^7.4^36^90.6^^^35^.28^^^228^18^^^^^10828^9.1^.015
;;^UTILITY(U,$J,112,2379,2)
;;=.055^.596^^^9.4^^^^^^^^1083^.6
;;^UTILITY(U,$J,112,2379,3)
;;=.012^.024^.025^.034^.021^.009^.006^.026^.02^.032^.053^.013^.043^.131^.232^.023^.021^.025
;;^UTILITY(U,$J,112,2379,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2380,0)
;;=BF, VEGETABLES, CARROTS, BUTTERED, JNR^3-102^jars^213^100^N
;;^UTILITY(U,$J,112,2380,1)
;;=.8^.6^6.7^33^91.4^^^35^.31^^^145^16^^^^^9840^7.6^.019
;;^UTILITY(U,$J,112,2380,2)
;;=.056^.516^^^8.6^^^^^^^^984^.6
;;^UTILITY(U,$J,112,2380,3)
;;=.011^.023^.024^.033^.021^.009^.006^.025^.02^.031^.052^.013^.041^.127^.225^.022^.021^.024
;;^UTILITY(U,$J,112,2380,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2381,0)
;;=BF, VEGETABLES, SPINACH, CREAMED, JNR^3-103^jars^213^100^N
;;^UTILITY(U,$J,112,2381,1)
;;=3^1.4^6.4^42^88.2^^^113^1.4^63^49^221^55^.35^.068^^^3676^3.6^.023
;;^UTILITY(U,$J,112,2381,2)
;;=.086^.259^^.058^68.8^.07^^^^^^^368^1^^^1.8
;;^UTILITY(U,$J,112,2381,3)
;;=.044^.121^.135^.265^.178^.066^.037^.116^.138^.181^.182^.076^.141^.243^.505^.117^.248^.123
;;^UTILITY(U,$J,112,2381,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2382,0)
;;=BF, VEGETABLES, SQUASH, JNR^3-105^jars^213^100^N
;;^UTILITY(U,$J,112,2382,1)
;;=.8^.2^5.6^24^92.8^^^24^.35^12^16^185^1^.08^.054^^^2014^7.8^.011
;;^UTILITY(U,$J,112,2382,2)
;;=.065^.378^.219^.069^15.4^0^^^^^^^201^.6^^^2.1
;;^UTILITY(U,$J,112,2382,3)
;;=.012^.025^.033^.048^.031^.011^.007^.029^.028^.036^.047^.016^.035^.091^.148^.031^.03^.033
;;^UTILITY(U,$J,112,2382,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2383,0)
;;=BF, VEGETABLES, SQUASH, BUTTERED, STR^3-106^jars^128^100^N
;;^UTILITY(U,$J,112,2383,1)
;;=.6^.3^6.9^29^91.7^^^33^.41^^^127^2^^^^^1658^7.6^.011
;;^UTILITY(U,$J,112,2383,2)
;;=.073^.356^^^11.8^^^^^^^^166^.5
;;^UTILITY(U,$J,112,2383,3)
;;=.009^.019^.025^.036^.023^.008^.006^.022^.022^.028^.035^.012^.027^.069^.112^.023^.023^.025
;;^UTILITY(U,$J,112,2383,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2384,0)
;;=BF, VEGETABLES, SQUASH, BUTTERED, JNR^3-107^jars^213^100^N
;;^UTILITY(U,$J,112,2384,1)
;;=.7^.6^6.4^30^91.8^^^31^.42^^^135^2^^^^^1530^7.6^.01
;;^UTILITY(U,$J,112,2384,2)
;;=.066^.315^^^11.7^^^^^^^^153^.5
;;^UTILITY(U,$J,112,2384,3)
;;=.01^.021^.028^.041^.026^.009^.006^.025^.024^.031^.04^.013^.03^.077^.125^.026^.025^.028
;;^UTILITY(U,$J,112,2384,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2385,0)
;;=BF, VEGETABLES, SWEETPOTATOES, JNR^3-109^jars^220^100^N
;;^UTILITY(U,$J,112,2385,1)
;;=1.1^.1^13.9^60^84.1^^^16^.39^12^24^243^22^.11^.1^^^6636^9.6^.026
;;^UTILITY(U,$J,112,2385,2)
;;=.034^.384^.408^.113^10.3^0^^^^^^^664^.7^^^1.5
;;^UTILITY(U,$J,112,2385,3)
;;=.021^.053^.05^.076^.043^.023^.015^.061^.04^.071^.053^.025^.059^.195^.115^.049^.054^.05
;;^UTILITY(U,$J,112,2385,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2386,0)
;;=BF, VEGETABLES, SWEETPOTATOES, BUTTERED, JNR^3-111^jars^220^100^N
;;^UTILITY(U,$J,112,2386,1)
;;=.8^.7^12.2^57^85.6^^^28^.4^^^216^8^^^^^6043^9.3^.017
;;^UTILITY(U,$J,112,2386,2)
;;=.045^.296^^^13.4^^^^^^^^604^.7
;;^UTILITY(U,$J,112,2386,3)
;;=.015^.038^.036^.055^.031^.017^.011^.044^.029^.052^.038^.018^.043^.141^.083^.036^.039^.036
;;^UTILITY(U,$J,112,2386,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2387,0)
;;=BF, FRUIT, APPLESAUCE, JNR^3-117^jars^213^100^N
;;^UTILITY(U,$J,112,2387,1)
;;=0^0^10.3^37^89.5^^^5^.22^3^6^77^2^.04^.035^^^9^37.8^.012
;;^UTILITY(U,$J,112,2387,2)
;;=.027^.063^.1^.03^1.7^0^^^^^^^1^.2^^^1.7
;;^UTILITY(U,$J,112,2387,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2388,0)
;;=BF, VEGETABLES, CORN, CREAMED, JUNIOR^3-120^jars^213^100^N
;;^UTILITY(U,$J,112,2388,1)
;;=1.4^.4^16.3^65^81.4^^^18^.27^8^33^81^52^.23^.038^^^77^2.2^.013
;;^UTILITY(U,$J,112,2388,2)
;;=.048^.504^.327^.041^12.7^.02^^^^^^^8^.5^^^2.1
;;^UTILITY(U,$J,112,2388,3)
;;=.015^.052^.065^.141^.082^.04^.018^.049^.068^.078^.06^.046^.071^.099^.276^.036^.161^.062
;;^UTILITY(U,$J,112,2388,20)
;;=USDA Std. Reference, Release 10
FHINI06V ; ; 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,2378,2)
+2 ;;=.041^.497^.278^.08^17.3^0^^^^^^^1181^.7^^^1.7
+3 ;;^UTILITY(U,$J,112,2378,3)
+4 ;;=.011^.023^.024^.033^.021^.009^.006^.025^.02^.031^.052^.013^.041^.127^.225^.022^.021^.024
+5 ;;^UTILITY(U,$J,112,2378,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,2379,0)
+8 ;;=BF, VEGETABLES, CARROTS, BUTTERED, STR^3-101^jars^128^100^N
+9 ;;^UTILITY(U,$J,112,2379,1)
+10 ;;=.8^.6^7.4^36^90.6^^^35^.28^^^228^18^^^^^10828^9.1^.015
+11 ;;^UTILITY(U,$J,112,2379,2)
+12 ;;=.055^.596^^^9.4^^^^^^^^1083^.6
+13 ;;^UTILITY(U,$J,112,2379,3)
+14 ;;=.012^.024^.025^.034^.021^.009^.006^.026^.02^.032^.053^.013^.043^.131^.232^.023^.021^.025
+15 ;;^UTILITY(U,$J,112,2379,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,2380,0)
+18 ;;=BF, VEGETABLES, CARROTS, BUTTERED, JNR^3-102^jars^213^100^N
+19 ;;^UTILITY(U,$J,112,2380,1)
+20 ;;=.8^.6^6.7^33^91.4^^^35^.31^^^145^16^^^^^9840^7.6^.019
+21 ;;^UTILITY(U,$J,112,2380,2)
+22 ;;=.056^.516^^^8.6^^^^^^^^984^.6
+23 ;;^UTILITY(U,$J,112,2380,3)
+24 ;;=.011^.023^.024^.033^.021^.009^.006^.025^.02^.031^.052^.013^.041^.127^.225^.022^.021^.024
+25 ;;^UTILITY(U,$J,112,2380,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,2381,0)
+28 ;;=BF, VEGETABLES, SPINACH, CREAMED, JNR^3-103^jars^213^100^N
+29 ;;^UTILITY(U,$J,112,2381,1)
+30 ;;=3^1.4^6.4^42^88.2^^^113^1.4^63^49^221^55^.35^.068^^^3676^3.6^.023
+31 ;;^UTILITY(U,$J,112,2381,2)
+32 ;;=.086^.259^^.058^68.8^.07^^^^^^^368^1^^^1.8
+33 ;;^UTILITY(U,$J,112,2381,3)
+34 ;;=.044^.121^.135^.265^.178^.066^.037^.116^.138^.181^.182^.076^.141^.243^.505^.117^.248^.123
+35 ;;^UTILITY(U,$J,112,2381,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,2382,0)
+38 ;;=BF, VEGETABLES, SQUASH, JNR^3-105^jars^213^100^N
+39 ;;^UTILITY(U,$J,112,2382,1)
+40 ;;=.8^.2^5.6^24^92.8^^^24^.35^12^16^185^1^.08^.054^^^2014^7.8^.011
+41 ;;^UTILITY(U,$J,112,2382,2)
+42 ;;=.065^.378^.219^.069^15.4^0^^^^^^^201^.6^^^2.1
+43 ;;^UTILITY(U,$J,112,2382,3)
+44 ;;=.012^.025^.033^.048^.031^.011^.007^.029^.028^.036^.047^.016^.035^.091^.148^.031^.03^.033
+45 ;;^UTILITY(U,$J,112,2382,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,2383,0)
+48 ;;=BF, VEGETABLES, SQUASH, BUTTERED, STR^3-106^jars^128^100^N
+49 ;;^UTILITY(U,$J,112,2383,1)
+50 ;;=.6^.3^6.9^29^91.7^^^33^.41^^^127^2^^^^^1658^7.6^.011
+51 ;;^UTILITY(U,$J,112,2383,2)
+52 ;;=.073^.356^^^11.8^^^^^^^^166^.5
+53 ;;^UTILITY(U,$J,112,2383,3)
+54 ;;=.009^.019^.025^.036^.023^.008^.006^.022^.022^.028^.035^.012^.027^.069^.112^.023^.023^.025
+55 ;;^UTILITY(U,$J,112,2383,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,2384,0)
+58 ;;=BF, VEGETABLES, SQUASH, BUTTERED, JNR^3-107^jars^213^100^N
+59 ;;^UTILITY(U,$J,112,2384,1)
+60 ;;=.7^.6^6.4^30^91.8^^^31^.42^^^135^2^^^^^1530^7.6^.01
+61 ;;^UTILITY(U,$J,112,2384,2)
+62 ;;=.066^.315^^^11.7^^^^^^^^153^.5
+63 ;;^UTILITY(U,$J,112,2384,3)
+64 ;;=.01^.021^.028^.041^.026^.009^.006^.025^.024^.031^.04^.013^.03^.077^.125^.026^.025^.028
+65 ;;^UTILITY(U,$J,112,2384,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,2385,0)
+68 ;;=BF, VEGETABLES, SWEETPOTATOES, JNR^3-109^jars^220^100^N
+69 ;;^UTILITY(U,$J,112,2385,1)
+70 ;;=1.1^.1^13.9^60^84.1^^^16^.39^12^24^243^22^.11^.1^^^6636^9.6^.026
+71 ;;^UTILITY(U,$J,112,2385,2)
+72 ;;=.034^.384^.408^.113^10.3^0^^^^^^^664^.7^^^1.5
+73 ;;^UTILITY(U,$J,112,2385,3)
+74 ;;=.021^.053^.05^.076^.043^.023^.015^.061^.04^.071^.053^.025^.059^.195^.115^.049^.054^.05
+75 ;;^UTILITY(U,$J,112,2385,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,2386,0)
+78 ;;=BF, VEGETABLES, SWEETPOTATOES, BUTTERED, JNR^3-111^jars^220^100^N
+79 ;;^UTILITY(U,$J,112,2386,1)
+80 ;;=.8^.7^12.2^57^85.6^^^28^.4^^^216^8^^^^^6043^9.3^.017
+81 ;;^UTILITY(U,$J,112,2386,2)
+82 ;;=.045^.296^^^13.4^^^^^^^^604^.7
+83 ;;^UTILITY(U,$J,112,2386,3)
+84 ;;=.015^.038^.036^.055^.031^.017^.011^.044^.029^.052^.038^.018^.043^.141^.083^.036^.039^.036
+85 ;;^UTILITY(U,$J,112,2386,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,2387,0)
+88 ;;=BF, FRUIT, APPLESAUCE, JNR^3-117^jars^213^100^N
+89 ;;^UTILITY(U,$J,112,2387,1)
+90 ;;=0^0^10.3^37^89.5^^^5^.22^3^6^77^2^.04^.035^^^9^37.8^.012
+91 ;;^UTILITY(U,$J,112,2387,2)
+92 ;;=.027^.063^.1^.03^1.7^0^^^^^^^1^.2^^^1.7
+93 ;;^UTILITY(U,$J,112,2387,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,2388,0)
+96 ;;=BF, VEGETABLES, CORN, CREAMED, JUNIOR^3-120^jars^213^100^N
+97 ;;^UTILITY(U,$J,112,2388,1)
+98 ;;=1.4^.4^16.3^65^81.4^^^18^.27^8^33^81^52^.23^.038^^^77^2.2^.013
+99 ;;^UTILITY(U,$J,112,2388,2)
+100 ;;=.048^.504^.327^.041^12.7^.02^^^^^^^8^.5^^^2.1
+101 ;;^UTILITY(U,$J,112,2388,3)
+102 ;;=.015^.052^.065^.141^.082^.04^.018^.049^.068^.078^.06^.046^.071^.099^.276^.036^.161^.062
+103 ;;^UTILITY(U,$J,112,2388,20)
+104 ;;=USDA Std. Reference, Release 10
