FHINI06W ; ; 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,2389,0)
;;=BF, VEGETABLES, PEAS, BUTTERED, STRAINED^3-123^jars^128^100^N
;;^UTILITY(U,$J,112,2389,1)
;;=3.7^1.1^10.6^56^84.2^^^39^1.1^^^97^8^^^^^330^12^.075
;;^UTILITY(U,$J,112,2389,2)
;;=.07^1.368^^^34.7^^^^^^^^33^.4
;;^UTILITY(U,$J,112,2389,3)
;;=.036^.143^.159^.247^.246^.042^.028^.15^.125^.178^.41^.079^.195^.328^.534^.14^.174^.139
;;^UTILITY(U,$J,112,2389,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2390,0)
;;=BF, VEGETABLES, PEAS, BUTTERED, JUNIOR^3-124^jars^206^100^N
;;^UTILITY(U,$J,112,2390,1)
;;=3.5^1.3^11.3^60^83.5^^^45^1.04^^^117^5^^^^^410^12.7^.073
;;^UTILITY(U,$J,112,2390,2)
;;=.078^1.377^^^36.2^^^^^^^^41^.4
;;^UTILITY(U,$J,112,2390,3)
;;=.034^.138^.153^.238^.237^.041^.027^.145^.121^.171^.395^.076^.188^.316^.515^.135^.168^.134
;;^UTILITY(U,$J,112,2390,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2391,0)
;;=BF, VEGETABLES, PEAS, CREAMED, STRAINED^3-125^jars^128^100^N
;;^UTILITY(U,$J,112,2391,1)
;;=2.2^1.9^8.9^53^86.5^^^13^.56^16^31^88^14^.387^.051^^^86^1.6^.088
;;^UTILITY(U,$J,112,2391,2)
;;=.056^.812^.302^.047^22.7^.08^^^^^^^9^.5^^^1.9
;;^UTILITY(U,$J,112,2391,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2392,0)
;;=BF, VEGETABLES, SPINACH, CREAMED, STR^3-127^jars^128^100^N
;;^UTILITY(U,$J,112,2392,1)
;;=2.5^1.3^5.7^37^89.6^^^89^.62^55^54^191^49^.31^.06^^^4170^8.7^.015
;;^UTILITY(U,$J,112,2392,2)
;;=.104^.216^^.075^60.8^.06^^^^^^^417^1^^^1.8
;;^UTILITY(U,$J,112,2392,3)
;;=.036^.101^.112^.221^.148^.055^.031^.096^.115^.151^.152^.064^.117^.203^.421^.097^.207^.103
;;^UTILITY(U,$J,112,2392,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2393,0)
;;=BF, FRUIT, APRICOT W/TAPIOCA, JNR^3-128^jars^220^100^N
;;^UTILITY(U,$J,112,2393,1)
;;=.3^0^17.3^63^82.1^^^8^.27^4^10^125^6^.04^.036^^^723^17.9^.008
;;^UTILITY(U,$J,112,2393,2)
;;=.013^.196^.138^.028^1.6^0^^^^^^^72^.4^^^1.5
;;^UTILITY(U,$J,112,2393,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2394,0)
;;=BF, FRUIT, PEACHES W/SUGAR, JNR^3-131^jars^220^100^N
;;^UTILITY(U,$J,112,2394,1)
;;=.5^.2^18.9^71^80.1^^^5^.27^5^11^155^5^.058^.05^^^178^18.9^.014
;;^UTILITY(U,$J,112,2394,2)
;;=.032^.647^.13^.018^3.9^0^^^^^^^18^.3^^^1.5
;;^UTILITY(U,$J,112,2394,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2395,0)
;;=BF, FRUIT, PEARS, JNR^3-133^jars^213^100^N
;;^UTILITY(U,$J,112,2395,1)
;;=.3^.1^11.6^43^87.8^^^8^.25^9^12^115^2^.08^.08^^^34^22^.014
;;^UTILITY(U,$J,112,2395,2)
;;=.03^.188^.095^.01^3.8^0^^^^^^^3^.2^^^3.6
;;^UTILITY(U,$J,112,2395,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2396,0)
;;=BF, FRUIT, PLUMS W/TAPIOCA, WO/ASCORBIC ACID, JNR^3-135^jars^220^100^N
;;^UTILITY(U,$J,112,2396,1)
;;=.1^0^20.4^74^79.2^^^6^.22^4^6^83^8^.08^.038^^^94^.8^.006
;;^UTILITY(U,$J,112,2396,2)
;;=.03^.206^.114^.029^.9^0^^^^^^^9^.2^^^1.2
;;^UTILITY(U,$J,112,2396,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2397,0)
;;=BF, FRUIT, PRUNES W/TAPIOCA, WO/ASCORBIC ACID, JNR^3-137^jars^220^100^N
;;^UTILITY(U,$J,112,2397,1)
;;=.6^.1^18.7^70^80.1^^^15^.33^10^15^162^2^.1^.062^^^407^.8^.022
;;^UTILITY(U,$J,112,2397,2)
;;=.083^.526^.141^.086^.2^0^^^^^^^41^.5^^^2.7
;;^UTILITY(U,$J,112,2397,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2398,0)
;;=BF, FRUIT, GUAVA W/TAPIOCA, STRAINED^3-138^jars^128^100^N
;;^UTILITY(U,$J,112,2398,1)
;;=.3^0^18.3^67^81.2^^^7^.2^2^5^73^2^.075^^^^299^75.4^.014
;;^UTILITY(U,$J,112,2398,2)
;;=.07^.389^.166^.042^2^0^^^^^^^30^.2^^^1.8
;;^UTILITY(U,$J,112,2398,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2399,0)
;;=BF, FRUIT, MANGO W/TAPIOCA, STRAINED^3-140^jars^135^100^N
;;^UTILITY(U,$J,112,2399,1)
;;=.3^.2^21.6^80^77.7^^^4^.1^4^6^59^4^.06^^^^665^124.4^.023
;;^UTILITY(U,$J,112,2399,2)
;;=.027^.253^.195^.117^2^0^^^^^^^67^.2^^^1
;;^UTILITY(U,$J,112,2399,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2400,0)
;;=BF, FRUIT, APPLESAUCE & APRICOTS, STR^3-142^jars^135^100^N
;;^UTILITY(U,$J,112,2400,1)
;;=.2^.2^11.6^45^87.7^^^6^.25^4^9^120^3^.042^.041^^^387^18.9^.014
;;^UTILITY(U,$J,112,2400,2)
;;=.029^.14^.119^.03^1.3^0^^^^^^^39^.3^^^1.8
;;^UTILITY(U,$J,112,2400,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2401,0)
;;=BF, FRUIT, APPLESAUCE & APRICOTS, JNR^3-143^jars^220^100^N
;;^UTILITY(U,$J,112,2401,1)
;;=.2^.2^12.4^47^86.9^^^6^.26^4^10^109^3^.03^.044^^^339^17.9^.014
;;^UTILITY(U,$J,112,2401,2)
;;=.03^.145^.125^.03^1.4^0^^^^^^^34^.3^^^1.8
;;^UTILITY(U,$J,112,2401,20)
;;=USDA Std. Reference, Release 10
FHINI06W ; ; 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,2389,0)
+2 ;;=BF, VEGETABLES, PEAS, BUTTERED, STRAINED^3-123^jars^128^100^N
+3 ;;^UTILITY(U,$J,112,2389,1)
+4 ;;=3.7^1.1^10.6^56^84.2^^^39^1.1^^^97^8^^^^^330^12^.075
+5 ;;^UTILITY(U,$J,112,2389,2)
+6 ;;=.07^1.368^^^34.7^^^^^^^^33^.4
+7 ;;^UTILITY(U,$J,112,2389,3)
+8 ;;=.036^.143^.159^.247^.246^.042^.028^.15^.125^.178^.41^.079^.195^.328^.534^.14^.174^.139
+9 ;;^UTILITY(U,$J,112,2389,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,2390,0)
+12 ;;=BF, VEGETABLES, PEAS, BUTTERED, JUNIOR^3-124^jars^206^100^N
+13 ;;^UTILITY(U,$J,112,2390,1)
+14 ;;=3.5^1.3^11.3^60^83.5^^^45^1.04^^^117^5^^^^^410^12.7^.073
+15 ;;^UTILITY(U,$J,112,2390,2)
+16 ;;=.078^1.377^^^36.2^^^^^^^^41^.4
+17 ;;^UTILITY(U,$J,112,2390,3)
+18 ;;=.034^.138^.153^.238^.237^.041^.027^.145^.121^.171^.395^.076^.188^.316^.515^.135^.168^.134
+19 ;;^UTILITY(U,$J,112,2390,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,2391,0)
+22 ;;=BF, VEGETABLES, PEAS, CREAMED, STRAINED^3-125^jars^128^100^N
+23 ;;^UTILITY(U,$J,112,2391,1)
+24 ;;=2.2^1.9^8.9^53^86.5^^^13^.56^16^31^88^14^.387^.051^^^86^1.6^.088
+25 ;;^UTILITY(U,$J,112,2391,2)
+26 ;;=.056^.812^.302^.047^22.7^.08^^^^^^^9^.5^^^1.9
+27 ;;^UTILITY(U,$J,112,2391,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,2392,0)
+30 ;;=BF, VEGETABLES, SPINACH, CREAMED, STR^3-127^jars^128^100^N
+31 ;;^UTILITY(U,$J,112,2392,1)
+32 ;;=2.5^1.3^5.7^37^89.6^^^89^.62^55^54^191^49^.31^.06^^^4170^8.7^.015
+33 ;;^UTILITY(U,$J,112,2392,2)
+34 ;;=.104^.216^^.075^60.8^.06^^^^^^^417^1^^^1.8
+35 ;;^UTILITY(U,$J,112,2392,3)
+36 ;;=.036^.101^.112^.221^.148^.055^.031^.096^.115^.151^.152^.064^.117^.203^.421^.097^.207^.103
+37 ;;^UTILITY(U,$J,112,2392,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,2393,0)
+40 ;;=BF, FRUIT, APRICOT W/TAPIOCA, JNR^3-128^jars^220^100^N
+41 ;;^UTILITY(U,$J,112,2393,1)
+42 ;;=.3^0^17.3^63^82.1^^^8^.27^4^10^125^6^.04^.036^^^723^17.9^.008
+43 ;;^UTILITY(U,$J,112,2393,2)
+44 ;;=.013^.196^.138^.028^1.6^0^^^^^^^72^.4^^^1.5
+45 ;;^UTILITY(U,$J,112,2393,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,2394,0)
+48 ;;=BF, FRUIT, PEACHES W/SUGAR, JNR^3-131^jars^220^100^N
+49 ;;^UTILITY(U,$J,112,2394,1)
+50 ;;=.5^.2^18.9^71^80.1^^^5^.27^5^11^155^5^.058^.05^^^178^18.9^.014
+51 ;;^UTILITY(U,$J,112,2394,2)
+52 ;;=.032^.647^.13^.018^3.9^0^^^^^^^18^.3^^^1.5
+53 ;;^UTILITY(U,$J,112,2394,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,2395,0)
+56 ;;=BF, FRUIT, PEARS, JNR^3-133^jars^213^100^N
+57 ;;^UTILITY(U,$J,112,2395,1)
+58 ;;=.3^.1^11.6^43^87.8^^^8^.25^9^12^115^2^.08^.08^^^34^22^.014
+59 ;;^UTILITY(U,$J,112,2395,2)
+60 ;;=.03^.188^.095^.01^3.8^0^^^^^^^3^.2^^^3.6
+61 ;;^UTILITY(U,$J,112,2395,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,2396,0)
+64 ;;=BF, FRUIT, PLUMS W/TAPIOCA, WO/ASCORBIC ACID, JNR^3-135^jars^220^100^N
+65 ;;^UTILITY(U,$J,112,2396,1)
+66 ;;=.1^0^20.4^74^79.2^^^6^.22^4^6^83^8^.08^.038^^^94^.8^.006
+67 ;;^UTILITY(U,$J,112,2396,2)
+68 ;;=.03^.206^.114^.029^.9^0^^^^^^^9^.2^^^1.2
+69 ;;^UTILITY(U,$J,112,2396,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,2397,0)
+72 ;;=BF, FRUIT, PRUNES W/TAPIOCA, WO/ASCORBIC ACID, JNR^3-137^jars^220^100^N
+73 ;;^UTILITY(U,$J,112,2397,1)
+74 ;;=.6^.1^18.7^70^80.1^^^15^.33^10^15^162^2^.1^.062^^^407^.8^.022
+75 ;;^UTILITY(U,$J,112,2397,2)
+76 ;;=.083^.526^.141^.086^.2^0^^^^^^^41^.5^^^2.7
+77 ;;^UTILITY(U,$J,112,2397,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,2398,0)
+80 ;;=BF, FRUIT, GUAVA W/TAPIOCA, STRAINED^3-138^jars^128^100^N
+81 ;;^UTILITY(U,$J,112,2398,1)
+82 ;;=.3^0^18.3^67^81.2^^^7^.2^2^5^73^2^.075^^^^299^75.4^.014
+83 ;;^UTILITY(U,$J,112,2398,2)
+84 ;;=.07^.389^.166^.042^2^0^^^^^^^30^.2^^^1.8
+85 ;;^UTILITY(U,$J,112,2398,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,2399,0)
+88 ;;=BF, FRUIT, MANGO W/TAPIOCA, STRAINED^3-140^jars^135^100^N
+89 ;;^UTILITY(U,$J,112,2399,1)
+90 ;;=.3^.2^21.6^80^77.7^^^4^.1^4^6^59^4^.06^^^^665^124.4^.023
+91 ;;^UTILITY(U,$J,112,2399,2)
+92 ;;=.027^.253^.195^.117^2^0^^^^^^^67^.2^^^1
+93 ;;^UTILITY(U,$J,112,2399,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,2400,0)
+96 ;;=BF, FRUIT, APPLESAUCE & APRICOTS, STR^3-142^jars^135^100^N
+97 ;;^UTILITY(U,$J,112,2400,1)
+98 ;;=.2^.2^11.6^45^87.7^^^6^.25^4^9^120^3^.042^.041^^^387^18.9^.014
+99 ;;^UTILITY(U,$J,112,2400,2)
+100 ;;=.029^.14^.119^.03^1.3^0^^^^^^^39^.3^^^1.8
+101 ;;^UTILITY(U,$J,112,2400,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,2401,0)
+104 ;;=BF, FRUIT, APPLESAUCE & APRICOTS, JNR^3-143^jars^220^100^N
+105 ;;^UTILITY(U,$J,112,2401,1)
+106 ;;=.2^.2^12.4^47^86.9^^^6^.26^4^10^109^3^.03^.044^^^339^17.9^.014
+107 ;;^UTILITY(U,$J,112,2401,2)
+108 ;;=.03^.145^.125^.03^1.4^0^^^^^^^34^.3^^^1.8
+109 ;;^UTILITY(U,$J,112,2401,20)
+110 ;;=USDA Std. Reference, Release 10
