FHINI06X ; ; 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,2402,0)
;;=BF, FRUIT, APPLESAUCE & CHERRIES, STRAINED^3-144^jars^135^100^N
;;^UTILITY(U,$J,112,2402,1)
;;=.3^0^13.1^48^86.4^^^10^.39^4^8^96^2^.027^.045^^^39^33.5^.016
;;^UTILITY(U,$J,112,2402,2)
;;=.042^.098^.131^.037^.4^0^^^^^^^4^.3^^^1.5
;;^UTILITY(U,$J,112,2402,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2403,0)
;;=BF, FRUIT, APPLESAUCE & CHERRIES, JUNIOR^3-145^jars^220^100^N
;;^UTILITY(U,$J,112,2403,1)
;;=.3^0^13.2^48^86.3^^^9^.41^4^8^97^3^.028^.046^^^41^23.2^.015
;;^UTILITY(U,$J,112,2403,2)
;;=.046^.098^.13^.039^.4^0^^^^^^^4^.3^^^1.5
;;^UTILITY(U,$J,112,2403,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2404,0)
;;=BF, FRUIT, APPLESAUCE & PINEAPPLE, STRAINED^3-150^jars^128^100^N
;;^UTILITY(U,$J,112,2404,1)
;;=.1^.1^10.1^37^89.5^^^4^.1^3^6^78^2^.015^.035^^^20^28.1^.021
;;^UTILITY(U,$J,112,2404,2)
;;=.026^.078^.101^.039^1.9^0^^^^^^^2^.2^^^1.5
;;^UTILITY(U,$J,112,2404,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2405,0)
;;=BF, FRUIT, APPLESAUCE & PINEAPPLE, JUNIOR^3-151^jars^213^100^N
;;^UTILITY(U,$J,112,2405,1)
;;=.1^.1^10.5^39^89.1^^^4^.1^4^6^76^2^.03^.036^^^21^26.8^.022
;;^UTILITY(U,$J,112,2405,2)
;;=.027^.079^.104^.039^2^0^^^^^^^2^.2^^^1.5
;;^UTILITY(U,$J,112,2405,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2406,0)
;;=BF, FRUIT, APPLE & RASPBERRY, W/SUGAR, STRAINED^3-152^jars^135^100^N
;;^UTILITY(U,$J,112,2406,1)
;;=.2^.2^15.7^58^83.8^^^5^.22^4^8^80^2^.033^.054^^^22^26.8^.014
;;^UTILITY(U,$J,112,2406,2)
;;=.028^.106^.09^.034^3.4^0^^^^^^^2^.2^^^2.1
;;^UTILITY(U,$J,112,2406,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2407,0)
;;=BF, FRUIT, APPLE & RASPBERRY, W/SUGAR, JUNIOR^3-153^jars^220^100^N
;;^UTILITY(U,$J,112,2407,1)
;;=.2^.2^15.5^58^84^^^5^.22^4^8^72^2^.032^.053^^^30^28.9^.012
;;^UTILITY(U,$J,112,2407,2)
;;=.029^.104^.088^.034^3.3^0^^^^^^^3^.2^^^2.1
;;^UTILITY(U,$J,112,2407,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2408,0)
;;=BF, FRUIT, BANANAS & PINEAPPLE WITH TAPIOCA, JNR^3-156^jars^135^100^N
;;^UTILITY(U,$J,112,2408,1)
;;=.2^.1^18.4^68^81.1^^^7^.13^6^5^78^8^.031^.04^^^40^21.2^.015
;;^UTILITY(U,$J,112,2408,2)
;;=.019^.182^.148^.092^5.5^0^^^^^^^4^.2^^^1.6
;;^UTILITY(U,$J,112,2408,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2409,0)
;;=BF, FRUIT, BANANAS & PINEAPPLE WITH TAPIOCA, STR^3-157^jars^220^100^N
;;^UTILITY(U,$J,112,2409,1)
;;=.2^0^17.8^65^81.7^^^7^.23^6^5^68^6^.04^.039^^^41^19.2^.019
;;^UTILITY(U,$J,112,2409,2)
;;=.019^.168^.143^.082^5.4^0^^^^^^^4^.2^^^1.6
;;^UTILITY(U,$J,112,2409,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2410,0)
;;=BF, FRUIT, PEARS & PINEAPPLE, STR^3-158^jars^128^100^N
;;^UTILITY(U,$J,112,2410,1)
;;=.3^.1^10.9^41^88.5^^^10^.25^7^9^116^4^.065^.14^^^29^27.5^.021
;;^UTILITY(U,$J,112,2410,2)
;;=.028^.207^.089^.016^2.8^0^^^^^^^3^.3^^^2.6
;;^UTILITY(U,$J,112,2410,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2411,0)
;;=BF, FRUIT, PEARS & PINEAPPLE, JNR^3-159^jars^213^100^N
;;^UTILITY(U,$J,112,2411,1)
;;=.3^.2^11.4^44^87.8^^^10^.21^7^10^118^1^.127^.105^^^32^16.8^.024
;;^UTILITY(U,$J,112,2411,2)
;;=.023^.183^.095^.013^2.9^0^^^^^^^3^.3^^^2.6
;;^UTILITY(U,$J,112,2411,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2412,0)
;;=BF, FRUIT, GUAVA & PAPAYA W/TAPIOCA, STRAINED^3-160^jars^128^100^N
;;^UTILITY(U,$J,112,2412,1)
;;=.2^.1^17^63^82.5^^^7^.2^5^6^74^4^.06^^^^184^80.9^.01
;;^UTILITY(U,$J,112,2412,2)
;;=.022^.263^^.014^2^0^^^^^^^18^.2
;;^UTILITY(U,$J,112,2412,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2413,0)
;;=BF, FRUIT, PAPAYA & APPLESAUCE W/TAPIOCA, STRAINED^3-162^jars^128^100^N
;;^UTILITY(U,$J,112,2413,1)
;;=.2^.1^18.9^70^80.6^^^7^.44^5^5^79^5^.03^.044^^^76^113.1^.01
;;^UTILITY(U,$J,112,2413,2)
;;=.028^.108^.28^.023^2^0^^^^^^^8^.2^^^1.4
;;^UTILITY(U,$J,112,2413,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2414,0)
;;=BF, FRUIT, APPLE & BLUEBERRY, STRAINED^3-164^jars^135^100^N
;;^UTILITY(U,$J,112,2414,1)
;;=.2^.2^16.3^61^83.1^^^4^.2^3^8^69^2^.034^.056^^^20^27.8^.017
;;^UTILITY(U,$J,112,2414,2)
;;=.034^.12^.163^.037^3.5^0^^^^^^^2^.2^^^1.8
;;^UTILITY(U,$J,112,2414,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2415,0)
;;=BF, FRUIT, APPLE & BLUEBERRY, JUNIOR^3-165^jars^220^100^N
;;^UTILITY(U,$J,112,2415,1)
;;=.2^.2^16.6^62^82.8^^^5^.4^3^7^65^13^.035^.057^^^42^13.9^.018
;;^UTILITY(U,$J,112,2415,2)
;;=.043^.103^.164^.042^3.5^0^^^^^^^4^.2^^^1.8
FHINI06X ; ; 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,2402,0)
+2 ;;=BF, FRUIT, APPLESAUCE & CHERRIES, STRAINED^3-144^jars^135^100^N
+3 ;;^UTILITY(U,$J,112,2402,1)
+4 ;;=.3^0^13.1^48^86.4^^^10^.39^4^8^96^2^.027^.045^^^39^33.5^.016
+5 ;;^UTILITY(U,$J,112,2402,2)
+6 ;;=.042^.098^.131^.037^.4^0^^^^^^^4^.3^^^1.5
+7 ;;^UTILITY(U,$J,112,2402,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,2403,0)
+10 ;;=BF, FRUIT, APPLESAUCE & CHERRIES, JUNIOR^3-145^jars^220^100^N
+11 ;;^UTILITY(U,$J,112,2403,1)
+12 ;;=.3^0^13.2^48^86.3^^^9^.41^4^8^97^3^.028^.046^^^41^23.2^.015
+13 ;;^UTILITY(U,$J,112,2403,2)
+14 ;;=.046^.098^.13^.039^.4^0^^^^^^^4^.3^^^1.5
+15 ;;^UTILITY(U,$J,112,2403,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,2404,0)
+18 ;;=BF, FRUIT, APPLESAUCE & PINEAPPLE, STRAINED^3-150^jars^128^100^N
+19 ;;^UTILITY(U,$J,112,2404,1)
+20 ;;=.1^.1^10.1^37^89.5^^^4^.1^3^6^78^2^.015^.035^^^20^28.1^.021
+21 ;;^UTILITY(U,$J,112,2404,2)
+22 ;;=.026^.078^.101^.039^1.9^0^^^^^^^2^.2^^^1.5
+23 ;;^UTILITY(U,$J,112,2404,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,2405,0)
+26 ;;=BF, FRUIT, APPLESAUCE & PINEAPPLE, JUNIOR^3-151^jars^213^100^N
+27 ;;^UTILITY(U,$J,112,2405,1)
+28 ;;=.1^.1^10.5^39^89.1^^^4^.1^4^6^76^2^.03^.036^^^21^26.8^.022
+29 ;;^UTILITY(U,$J,112,2405,2)
+30 ;;=.027^.079^.104^.039^2^0^^^^^^^2^.2^^^1.5
+31 ;;^UTILITY(U,$J,112,2405,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,2406,0)
+34 ;;=BF, FRUIT, APPLE & RASPBERRY, W/SUGAR, STRAINED^3-152^jars^135^100^N
+35 ;;^UTILITY(U,$J,112,2406,1)
+36 ;;=.2^.2^15.7^58^83.8^^^5^.22^4^8^80^2^.033^.054^^^22^26.8^.014
+37 ;;^UTILITY(U,$J,112,2406,2)
+38 ;;=.028^.106^.09^.034^3.4^0^^^^^^^2^.2^^^2.1
+39 ;;^UTILITY(U,$J,112,2406,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,2407,0)
+42 ;;=BF, FRUIT, APPLE & RASPBERRY, W/SUGAR, JUNIOR^3-153^jars^220^100^N
+43 ;;^UTILITY(U,$J,112,2407,1)
+44 ;;=.2^.2^15.5^58^84^^^5^.22^4^8^72^2^.032^.053^^^30^28.9^.012
+45 ;;^UTILITY(U,$J,112,2407,2)
+46 ;;=.029^.104^.088^.034^3.3^0^^^^^^^3^.2^^^2.1
+47 ;;^UTILITY(U,$J,112,2407,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,2408,0)
+50 ;;=BF, FRUIT, BANANAS & PINEAPPLE WITH TAPIOCA, JNR^3-156^jars^135^100^N
+51 ;;^UTILITY(U,$J,112,2408,1)
+52 ;;=.2^.1^18.4^68^81.1^^^7^.13^6^5^78^8^.031^.04^^^40^21.2^.015
+53 ;;^UTILITY(U,$J,112,2408,2)
+54 ;;=.019^.182^.148^.092^5.5^0^^^^^^^4^.2^^^1.6
+55 ;;^UTILITY(U,$J,112,2408,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,2409,0)
+58 ;;=BF, FRUIT, BANANAS & PINEAPPLE WITH TAPIOCA, STR^3-157^jars^220^100^N
+59 ;;^UTILITY(U,$J,112,2409,1)
+60 ;;=.2^0^17.8^65^81.7^^^7^.23^6^5^68^6^.04^.039^^^41^19.2^.019
+61 ;;^UTILITY(U,$J,112,2409,2)
+62 ;;=.019^.168^.143^.082^5.4^0^^^^^^^4^.2^^^1.6
+63 ;;^UTILITY(U,$J,112,2409,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,2410,0)
+66 ;;=BF, FRUIT, PEARS & PINEAPPLE, STR^3-158^jars^128^100^N
+67 ;;^UTILITY(U,$J,112,2410,1)
+68 ;;=.3^.1^10.9^41^88.5^^^10^.25^7^9^116^4^.065^.14^^^29^27.5^.021
+69 ;;^UTILITY(U,$J,112,2410,2)
+70 ;;=.028^.207^.089^.016^2.8^0^^^^^^^3^.3^^^2.6
+71 ;;^UTILITY(U,$J,112,2410,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,2411,0)
+74 ;;=BF, FRUIT, PEARS & PINEAPPLE, JNR^3-159^jars^213^100^N
+75 ;;^UTILITY(U,$J,112,2411,1)
+76 ;;=.3^.2^11.4^44^87.8^^^10^.21^7^10^118^1^.127^.105^^^32^16.8^.024
+77 ;;^UTILITY(U,$J,112,2411,2)
+78 ;;=.023^.183^.095^.013^2.9^0^^^^^^^3^.3^^^2.6
+79 ;;^UTILITY(U,$J,112,2411,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,2412,0)
+82 ;;=BF, FRUIT, GUAVA & PAPAYA W/TAPIOCA, STRAINED^3-160^jars^128^100^N
+83 ;;^UTILITY(U,$J,112,2412,1)
+84 ;;=.2^.1^17^63^82.5^^^7^.2^5^6^74^4^.06^^^^184^80.9^.01
+85 ;;^UTILITY(U,$J,112,2412,2)
+86 ;;=.022^.263^^.014^2^0^^^^^^^18^.2
+87 ;;^UTILITY(U,$J,112,2412,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,2413,0)
+90 ;;=BF, FRUIT, PAPAYA & APPLESAUCE W/TAPIOCA, STRAINED^3-162^jars^128^100^N
+91 ;;^UTILITY(U,$J,112,2413,1)
+92 ;;=.2^.1^18.9^70^80.6^^^7^.44^5^5^79^5^.03^.044^^^76^113.1^.01
+93 ;;^UTILITY(U,$J,112,2413,2)
+94 ;;=.028^.108^.28^.023^2^0^^^^^^^8^.2^^^1.4
+95 ;;^UTILITY(U,$J,112,2413,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,2414,0)
+98 ;;=BF, FRUIT, APPLE & BLUEBERRY, STRAINED^3-164^jars^135^100^N
+99 ;;^UTILITY(U,$J,112,2414,1)
+100 ;;=.2^.2^16.3^61^83.1^^^4^.2^3^8^69^2^.034^.056^^^20^27.8^.017
+101 ;;^UTILITY(U,$J,112,2414,2)
+102 ;;=.034^.12^.163^.037^3.5^0^^^^^^^2^.2^^^1.8
+103 ;;^UTILITY(U,$J,112,2414,20)
+104 ;;=USDA Std. Reference, Release 10
+105 ;;^UTILITY(U,$J,112,2415,0)
+106 ;;=BF, FRUIT, APPLE & BLUEBERRY, JUNIOR^3-165^jars^220^100^N
+107 ;;^UTILITY(U,$J,112,2415,1)
+108 ;;=.2^.2^16.6^62^82.8^^^5^.4^3^7^65^13^.035^.057^^^42^13.9^.018
+109 ;;^UTILITY(U,$J,112,2415,2)
+110 ;;=.043^.103^.164^.042^3.5^0^^^^^^^4^.2^^^1.8
