FHINI06Y ; ; 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,2415,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2416,0)
;;=BF, JUICE, APPLE^3-166^jars^130^100^N
;;^UTILITY(U,$J,112,2416,1)
;;=0^.1^11.7^47^88^^^4^.57^3^5^91^3^.03^.04^^^18^57.9^.007
;;^UTILITY(U,$J,112,2416,2)
;;=.016^.083^.116^.029^.1^0^^^^^^^2^.2^^^.1
;;^UTILITY(U,$J,112,2416,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2417,0)
;;=BF, JUICE, APPLE&PEACH^3-168^jars^130^100^N
;;^UTILITY(U,$J,112,2417,1)
;;=.2^.1^10.5^42^89^^^3^.56^3^4^97^1^.025^.037^^^63^58.5^.008
;;^UTILITY(U,$J,112,2417,2)
;;=.011^.213^.082^.022^1.3^0^^^^^^^6^.3^^^.1
;;^UTILITY(U,$J,112,2417,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2418,0)
;;=BF, JUICE, APPLE&PLUM^3-170^jars^130^100^N
;;^UTILITY(U,$J,112,2418,1)
;;=.1^0^12.3^49^87.3^^^5^.62^3^3^101^1^.03^.042^^^43^58.2^.02
;;^UTILITY(U,$J,112,2418,2)
;;=.017^.195^.123^.028^.2^0^^^^^^^4^.3^^^.1
;;^UTILITY(U,$J,112,2418,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2419,0)
;;=BF, JUICE, APPLE&PRUNE^3-171^jars^130^100^N
;;^UTILITY(U,$J,112,2419,1)
;;=.2^.1^18^73^81.3^^^9^.95^7^15^148^5^.047^.062^^^16^67.5^.005
;;^UTILITY(U,$J,112,2419,2)
;;=.002^.301^.181^.035^.1^0^^^^^^^2^.3^^^.1
;;^UTILITY(U,$J,112,2419,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2420,0)
;;=BF, JUICE, ORANGE^3-172^jars^130^100^N
;;^UTILITY(U,$J,112,2420,1)
;;=.6^.3^10.2^44^88.5^^^12^.17^9^11^184^1^.055^.046^^^55^62.5^.045
;;^UTILITY(U,$J,112,2420,2)
;;=.028^.239^.137^.054^26.4^0^^^^^^^6^.4^^^.1
;;^UTILITY(U,$J,112,2420,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2421,0)
;;=BF, JUICE, ORANGE&APPLE^3-173^jars^130^100^N
;;^UTILITY(U,$J,112,2421,1)
;;=.4^.2^10.1^43^88.9^^^10^.2^5^7^138^3^.025^.04^^^73^76.9^.038
;;^UTILITY(U,$J,112,2421,2)
;;=.028^.185^.12^.038^12.2^0^^^^^^^7^.4
;;^UTILITY(U,$J,112,2421,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2422,0)
;;=BF, JUICE, ORANGE&APPLE&BANANA^3-174^jars^130^100^N
;;^UTILITY(U,$J,112,2422,1)
;;=.4^.1^11.5^47^87.6^^^5^.35^6^8^134^4^.025^.044^^^27^32.1^.043
;;^UTILITY(U,$J,112,2422,2)
;;=.027^.263^.134^.062^9.7^0^^^^^^^3^.4^^^.1
;;^UTILITY(U,$J,112,2422,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2423,0)
;;=BF, JUICE, ORANGE&APRICOT^3-175^jars^130^100^N
;;^UTILITY(U,$J,112,2423,1)
;;=.8^.1^10.9^46^87.8^^^6^.38^7^12^199^6^.035^.084^^^216^85.9^.058
;;^UTILITY(U,$J,112,2423,2)
;;=.028^.267^.096^.056^19.9^0^^^^^^^22^.4^^^.1
;;^UTILITY(U,$J,112,2423,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2424,0)
;;=BF, JUICE, ORANGE&BANANA^3-176^jars^130^100^N
;;^UTILITY(U,$J,112,2424,1)
;;=.7^.1^11.9^50^86.9^^^17^.11^14^13^200^3^.086^.042^^^46^34^.051
;;^UTILITY(U,$J,112,2424,2)
;;=.042^.18^.148^.054^24.4^0^^^^^^^5^.4
;;^UTILITY(U,$J,112,2424,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2425,0)
;;=BF, JUICE, ORANGE&PINEAPPLE^3-177^jars^130^100^N
;;^UTILITY(U,$J,112,2425,1)
;;=.5^.1^11.7^48^87.3^^^8^.42^9^9^141^2^.04^.044^^^31^53.4^.05
;;^UTILITY(U,$J,112,2425,2)
;;=.023^.194^.059^.062^18.6^0^^^^^^^3^.4^^^.1
;;^UTILITY(U,$J,112,2425,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2426,0)
;;=BF, JUICE, PRUNE&ORANGE^3-178^jars^130^100^N
;;^UTILITY(U,$J,112,2426,1)
;;=.6^.3^16.8^70^81.9^^^12^.87^8^10^181^2^.04^.046^^^131^63.8^.044
;;^UTILITY(U,$J,112,2426,2)
;;=.12^.396^.137^.061^13.1^0^^^^^^^13^.4
;;^UTILITY(U,$J,112,2426,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2427,0)
;;=BF, JUICE, MIXED FRUIT^3-179^jars^130^100^N
;;^UTILITY(U,$J,112,2427,1)
;;=.1^.1^11.6^47^87.9^^^8^.34^5^5^101^4^.03^.04^^^42^63.6^.023
;;^UTILITY(U,$J,112,2427,2)
;;=.014^.123^.115^.043^6.7^0^^^^^^^4^.2^^^.1
;;^UTILITY(U,$J,112,2427,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2428,0)
;;=BF, CEREAL, MIXED, W/BANANAS, DRY^3-186^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2428,1)
;;=10.7^4.6^77.1^391^4.5^^^696^67.6^90^367^668^118^1.4^.256^^^125^3.6^3.78
;;^UTILITY(U,$J,112,2428,2)
;;=3.56^20.56^^.408^17.2^.24^^^^^^^12^3.1^^^7.8
;;^UTILITY(U,$J,112,2428,3)
;;=.126^.363^.43^.956^.46^.218^.205^.546^.439^.604^.505^.319^.437^.783^2.478^.369^.863^.505
;;^UTILITY(U,$J,112,2428,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2429,0)
;;=BF, CEREAL, MIXED, W/APPLESAUCE & BANANAS, STRAINED^3-187^jars^135^100^N
;;^UTILITY(U,$J,112,2429,1)
;;=1.2^.5^17.9^82^80^^^6^6.62^8^23^41^2^.19^.054^^^18^25.5^.28
;;^UTILITY(U,$J,112,2429,2)
;;=.35^3.963^.195^.137^3.6^0^^^^^^^2^.3^^^1.2
;;^UTILITY(U,$J,112,2429,3)
;;=.013^.035^.044^.088^.036^.025^.027^.063^.044^.059^.067^.028^.047^.083^.31^.052^.086^.051
FHINI06Y ; ; 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,2415,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,2416,0)
+4 ;;=BF, JUICE, APPLE^3-166^jars^130^100^N
+5 ;;^UTILITY(U,$J,112,2416,1)
+6 ;;=0^.1^11.7^47^88^^^4^.57^3^5^91^3^.03^.04^^^18^57.9^.007
+7 ;;^UTILITY(U,$J,112,2416,2)
+8 ;;=.016^.083^.116^.029^.1^0^^^^^^^2^.2^^^.1
+9 ;;^UTILITY(U,$J,112,2416,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,2417,0)
+12 ;;=BF, JUICE, APPLE&PEACH^3-168^jars^130^100^N
+13 ;;^UTILITY(U,$J,112,2417,1)
+14 ;;=.2^.1^10.5^42^89^^^3^.56^3^4^97^1^.025^.037^^^63^58.5^.008
+15 ;;^UTILITY(U,$J,112,2417,2)
+16 ;;=.011^.213^.082^.022^1.3^0^^^^^^^6^.3^^^.1
+17 ;;^UTILITY(U,$J,112,2417,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,2418,0)
+20 ;;=BF, JUICE, APPLE&PLUM^3-170^jars^130^100^N
+21 ;;^UTILITY(U,$J,112,2418,1)
+22 ;;=.1^0^12.3^49^87.3^^^5^.62^3^3^101^1^.03^.042^^^43^58.2^.02
+23 ;;^UTILITY(U,$J,112,2418,2)
+24 ;;=.017^.195^.123^.028^.2^0^^^^^^^4^.3^^^.1
+25 ;;^UTILITY(U,$J,112,2418,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,2419,0)
+28 ;;=BF, JUICE, APPLE&PRUNE^3-171^jars^130^100^N
+29 ;;^UTILITY(U,$J,112,2419,1)
+30 ;;=.2^.1^18^73^81.3^^^9^.95^7^15^148^5^.047^.062^^^16^67.5^.005
+31 ;;^UTILITY(U,$J,112,2419,2)
+32 ;;=.002^.301^.181^.035^.1^0^^^^^^^2^.3^^^.1
+33 ;;^UTILITY(U,$J,112,2419,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,2420,0)
+36 ;;=BF, JUICE, ORANGE^3-172^jars^130^100^N
+37 ;;^UTILITY(U,$J,112,2420,1)
+38 ;;=.6^.3^10.2^44^88.5^^^12^.17^9^11^184^1^.055^.046^^^55^62.5^.045
+39 ;;^UTILITY(U,$J,112,2420,2)
+40 ;;=.028^.239^.137^.054^26.4^0^^^^^^^6^.4^^^.1
+41 ;;^UTILITY(U,$J,112,2420,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,2421,0)
+44 ;;=BF, JUICE, ORANGE&APPLE^3-173^jars^130^100^N
+45 ;;^UTILITY(U,$J,112,2421,1)
+46 ;;=.4^.2^10.1^43^88.9^^^10^.2^5^7^138^3^.025^.04^^^73^76.9^.038
+47 ;;^UTILITY(U,$J,112,2421,2)
+48 ;;=.028^.185^.12^.038^12.2^0^^^^^^^7^.4
+49 ;;^UTILITY(U,$J,112,2421,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,2422,0)
+52 ;;=BF, JUICE, ORANGE&APPLE&BANANA^3-174^jars^130^100^N
+53 ;;^UTILITY(U,$J,112,2422,1)
+54 ;;=.4^.1^11.5^47^87.6^^^5^.35^6^8^134^4^.025^.044^^^27^32.1^.043
+55 ;;^UTILITY(U,$J,112,2422,2)
+56 ;;=.027^.263^.134^.062^9.7^0^^^^^^^3^.4^^^.1
+57 ;;^UTILITY(U,$J,112,2422,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,2423,0)
+60 ;;=BF, JUICE, ORANGE&APRICOT^3-175^jars^130^100^N
+61 ;;^UTILITY(U,$J,112,2423,1)
+62 ;;=.8^.1^10.9^46^87.8^^^6^.38^7^12^199^6^.035^.084^^^216^85.9^.058
+63 ;;^UTILITY(U,$J,112,2423,2)
+64 ;;=.028^.267^.096^.056^19.9^0^^^^^^^22^.4^^^.1
+65 ;;^UTILITY(U,$J,112,2423,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,2424,0)
+68 ;;=BF, JUICE, ORANGE&BANANA^3-176^jars^130^100^N
+69 ;;^UTILITY(U,$J,112,2424,1)
+70 ;;=.7^.1^11.9^50^86.9^^^17^.11^14^13^200^3^.086^.042^^^46^34^.051
+71 ;;^UTILITY(U,$J,112,2424,2)
+72 ;;=.042^.18^.148^.054^24.4^0^^^^^^^5^.4
+73 ;;^UTILITY(U,$J,112,2424,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,2425,0)
+76 ;;=BF, JUICE, ORANGE&PINEAPPLE^3-177^jars^130^100^N
+77 ;;^UTILITY(U,$J,112,2425,1)
+78 ;;=.5^.1^11.7^48^87.3^^^8^.42^9^9^141^2^.04^.044^^^31^53.4^.05
+79 ;;^UTILITY(U,$J,112,2425,2)
+80 ;;=.023^.194^.059^.062^18.6^0^^^^^^^3^.4^^^.1
+81 ;;^UTILITY(U,$J,112,2425,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,2426,0)
+84 ;;=BF, JUICE, PRUNE&ORANGE^3-178^jars^130^100^N
+85 ;;^UTILITY(U,$J,112,2426,1)
+86 ;;=.6^.3^16.8^70^81.9^^^12^.87^8^10^181^2^.04^.046^^^131^63.8^.044
+87 ;;^UTILITY(U,$J,112,2426,2)
+88 ;;=.12^.396^.137^.061^13.1^0^^^^^^^13^.4
+89 ;;^UTILITY(U,$J,112,2426,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,2427,0)
+92 ;;=BF, JUICE, MIXED FRUIT^3-179^jars^130^100^N
+93 ;;^UTILITY(U,$J,112,2427,1)
+94 ;;=.1^.1^11.6^47^87.9^^^8^.34^5^5^101^4^.03^.04^^^42^63.6^.023
+95 ;;^UTILITY(U,$J,112,2427,2)
+96 ;;=.014^.123^.115^.043^6.7^0^^^^^^^4^.2^^^.1
+97 ;;^UTILITY(U,$J,112,2427,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,2428,0)
+100 ;;=BF, CEREAL, MIXED, W/BANANAS, DRY^3-186^oz.^28.3^100^N
+101 ;;^UTILITY(U,$J,112,2428,1)
+102 ;;=10.7^4.6^77.1^391^4.5^^^696^67.6^90^367^668^118^1.4^.256^^^125^3.6^3.78
+103 ;;^UTILITY(U,$J,112,2428,2)
+104 ;;=3.56^20.56^^.408^17.2^.24^^^^^^^12^3.1^^^7.8
+105 ;;^UTILITY(U,$J,112,2428,3)
+106 ;;=.126^.363^.43^.956^.46^.218^.205^.546^.439^.604^.505^.319^.437^.783^2.478^.369^.863^.505
+107 ;;^UTILITY(U,$J,112,2428,20)
+108 ;;=USDA Std. Reference, Release 10
+109 ;;^UTILITY(U,$J,112,2429,0)
+110 ;;=BF, CEREAL, MIXED, W/APPLESAUCE & BANANAS, STRAINED^3-187^jars^135^100^N
+111 ;;^UTILITY(U,$J,112,2429,1)
+112 ;;=1.2^.5^17.9^82^80^^^6^6.62^8^23^41^2^.19^.054^^^18^25.5^.28
+113 ;;^UTILITY(U,$J,112,2429,2)
+114 ;;=.35^3.963^.195^.137^3.6^0^^^^^^^2^.3^^^1.2
+115 ;;^UTILITY(U,$J,112,2429,3)
+116 ;;=.013^.035^.044^.088^.036^.025^.027^.063^.044^.059^.067^.028^.047^.083^.31^.052^.086^.051