FHINI09K ; ; 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,6591,20)
;;=Land O'Lakes Prod Lit. undated. DOE: 110485 #516
;;^UTILITY(U,$J,112,6593,0)
;;=HAM SALAD SANDWICH W/WHITE BREAD^^sandwiches^133.78
;;^UTILITY(U,$J,112,6593,1)
;;=9.3^12^22^239.3^40.4^^^38.7^1.5^7.06^127^178.5^797^.77^.045^.008^.89^271.7^8.03^.375
;;^UTILITY(U,$J,112,6593,2)
;;=.2^3.1^.24^.098^1.43^.23^2.55^.23^21^5.55^2.55^2.48^^^^^.08
;;^UTILITY(U,$J,112,6593,20)
;;=VACO Standardized Recipe E-338. DOE: 121085 #516
;;^UTILITY(U,$J,112,6594,0)
;;=HAM SALAD SANDWICH W/WHEAT BREAD^^sandwiches^133.78
;;^UTILITY(U,$J,112,6594,1)
;;=9.9^11.85^24^240^42.6^^^42.9^1.75^7.06^198.6^248^832.4^.77^.045^.008^.89^271.7^8.03^.35
;;^UTILITY(U,$J,112,6594,2)
;;=.15^3.08^.24^.098^1.43^.23^2.6^.23^21.2^5.55^2.55^2.48^^^^^.08
;;^UTILITY(U,$J,112,6594,20)
;;=VACO Standardized Recipe E-338. DOE:121085 #516
;;^UTILITY(U,$J,112,6595,0)
;;=EGG SALAD SANDWICH W/WHEAT BREAD^^sandwiches^138.33
;;^UTILITY(U,$J,112,6595,1)
;;=7.26^11.6^24.9^225^53.9^^^61^2^4.5^158.9^182.5^454.4^.42^.004^.06^.84^566.4^3.28^.15
;;^UTILITY(U,$J,112,6595,2)
;;=.13^1.2^.5^.037^17.8^.37^2.47^.17^150.6^5.16^2.33^2.35
;;^UTILITY(U,$J,112,6595,20)
;;=VACO Standardized Recipe E-347. DOE: 120685 #516
;;^UTILITY(U,$J,112,6596,0)
;;=EGG SALAD SANDWICH W/WHITE BREAD^^sandwiches^138.33
;;^UTILITY(U,$J,112,6596,1)
;;=7.1^11.8^25.4^237.3^53.6^^^60.96^1.92^4.52^94.8^120.8^445^.42^.004^.06^.84^566.4^3.28^.19
;;^UTILITY(U,$J,112,6596,2)
;;=.19^1.41^.5^.04^17.78^.37^2.48^.17^150.6^5.24^2.33^2.35
;;^UTILITY(U,$J,112,6596,20)
;;=VACO Standardized Recipe E-347. DOE: 120685 #516
;;^UTILITY(U,$J,112,6599,0)
;;=RICE PILAF, REGULAR^^oz.^28.35
;;^UTILITY(U,$J,112,6599,1)
;;=1.3^3.2^6.6^60^87.5^^^31^1.58^5.96^17.66^83.36^697.54^.08^0^.01^.34^971.13^2.06^.03
;;^UTILITY(U,$J,112,6599,2)
;;=.03^.41^.03^.02^1.68^.01^1.1^0^.1^.6^1.2^1.2^^^^^.1
;;^UTILITY(U,$J,112,6599,20)
;;=BAY PINES STANDARDIZED RECIPE 2/27/86
;;^UTILITY(U,$J,112,6600,0)
;;=RICE PILAF, DIET^^oz.^28.35
;;^UTILITY(U,$J,112,6600,1)
;;=1^.5^7.5^37^92^^^25.66^1.61^4.45^13.24^77.98^10.3^.09^0^.01^0^879.32^2.14^.03
;;^UTILITY(U,$J,112,6600,2)
;;=.02^.35^.01^.02^.86^0^0^0^0^0^0^0^^^^^.2
;;^UTILITY(U,$J,112,6600,20)
;;=BAY PINES STANDARDIZED RECIPE 2/27/86
;;^UTILITY(U,$J,112,6601,0)
;;=MEATBALLS, DIET^^oz.^28.35
;;^UTILITY(U,$J,112,6601,1)
;;=20.3^8.6^4^180^62.6^^^17.41^2.7^3.78^172.83^261.5^66.11^.12^.02^.03^0^175^3.68^.08
;;^UTILITY(U,$J,112,6601,2)
;;=.18^4.23^.15^.03^5.51^.1^.3^0^99.4^3.9^.3^.1^^^^^.1
;;^UTILITY(U,$J,112,6601,20)
;;=BAY PINES STANDARDIZED RECIPE 2/27/86
;;^UTILITY(U,$J,112,6602,0)
;;=CELERY DRESSING^^oz.^28.35
;;^UTILITY(U,$J,112,6602,1)
;;=4.3^5.5^21.2^151^66.4^^^71.66^2.43^9.01^56.23^129.33^716.43^.16^.01^.02^.43^372.22^2.52^.16
;;^UTILITY(U,$J,112,6602,2)
;;=.12^1.4^.08^.02^3.48^.05^1.7^0^14.6^1.1^1.7^1.5^^^^^.1
;;^UTILITY(U,$J,112,6602,20)
;;=BAY PINES STANDARDIZED RECIPE 2/27/86
;;^UTILITY(U,$J,112,6603,0)
;;=JELLO GELATIN POPS^^pops^44
;;^UTILITY(U,$J,112,6603,1)
;;=2.27^0^18.16^79.45^^^^^^^^0^11.35
;;^UTILITY(U,$J,112,6603,20)
;;=General Foods Prod Lit dated Sep 85. DOE: 050286 #516
;;^UTILITY(U,$J,112,6604,0)
;;=CRYSTAL LIGHT FRUIT PUNCH^^8-oz srv.^228
;;^UTILITY(U,$J,112,6604,1)
;;=0^0^.035^1.75^100^^^13.74^0^^0^19.73^0^^^^^0^2.48^0
;;^UTILITY(U,$J,112,6604,2)
;;=0^0
;;^UTILITY(U,$J,112,6604,20)
;;=General Foods Prod Lit dated Sep 85. DOE: 050286 #516
;;^UTILITY(U,$J,112,6605,0)
;;=CRYSTAL LIGHT LEMONADE FLAVOR^^8-oz srv.^230
;;^UTILITY(U,$J,112,6605,1)
;;=0^0^.09^1.74^100^^^0^0^^0^26^0^^^^^0^2.6^0
;;^UTILITY(U,$J,112,6605,2)
;;=0^0
;;^UTILITY(U,$J,112,6605,20)
;;=General Foods Prod Lit dated Sep 85. DOE 050286 #516
;;^UTILITY(U,$J,112,6606,0)
;;=PICKLED BEET AND ONION SALAD^^servings^101
;;^UTILITY(U,$J,112,6606,1)
;;=.9^.1^15.7^63.6^84.4^^^24.5^.96^24.3^24.7^247^242^.22^.04^.15^^924.7^11.3^.03
;;^UTILITY(U,$J,112,6606,2)
;;=.04^.2^.08^.03^31.47
;;^UTILITY(U,$J,112,6606,20)
;;=BAY PINES STD RECIPE 5/16/86
;;^UTILITY(U,$J,112,6607,0)
;;=CUCUMBER RELISH^^servings^67.8
;;^UTILITY(U,$J,112,6607,1)
;;=.88^2.6^3.5^39.7^91.7^^^17.6^.44^11.1^22.3^167^101^.37^.03^.06^^335^6.86^.03
;;^UTILITY(U,$J,112,6607,2)
;;=.03^.25^.21^.04^13^^^^^2.35^.15^^^^^^.44
;;^UTILITY(U,$J,112,6607,20)
;;=BAY PINES STD RECIPE 5/16/86
;;^UTILITY(U,$J,112,6608,0)
;;=CUCUMBERS IN SOUR CREAM^^servings^76.3
;;^UTILITY(U,$J,112,6608,1)
;;=1.18^17.9^5.5^183^74.3^^^35.9^.37^9.1^31.2^125^254^.21^.03^.04^3.9^548^5.54^.03
;;^UTILITY(U,$J,112,6608,2)
;;=.05^.18^.25^.13^11.2^.1^9.4^.65^18.5^3.9^3.4^9.9^^^^^.3
FHINI09K ; ; 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,6591,20)
+2 ;;=Land O'Lakes Prod Lit. undated. DOE: 110485 #516
+3 ;;^UTILITY(U,$J,112,6593,0)
+4 ;;=HAM SALAD SANDWICH W/WHITE BREAD^^sandwiches^133.78
+5 ;;^UTILITY(U,$J,112,6593,1)
+6 ;;=9.3^12^22^239.3^40.4^^^38.7^1.5^7.06^127^178.5^797^.77^.045^.008^.89^271.7^8.03^.375
+7 ;;^UTILITY(U,$J,112,6593,2)
+8 ;;=.2^3.1^.24^.098^1.43^.23^2.55^.23^21^5.55^2.55^2.48^^^^^.08
+9 ;;^UTILITY(U,$J,112,6593,20)
+10 ;;=VACO Standardized Recipe E-338. DOE: 121085 #516
+11 ;;^UTILITY(U,$J,112,6594,0)
+12 ;;=HAM SALAD SANDWICH W/WHEAT BREAD^^sandwiches^133.78
+13 ;;^UTILITY(U,$J,112,6594,1)
+14 ;;=9.9^11.85^24^240^42.6^^^42.9^1.75^7.06^198.6^248^832.4^.77^.045^.008^.89^271.7^8.03^.35
+15 ;;^UTILITY(U,$J,112,6594,2)
+16 ;;=.15^3.08^.24^.098^1.43^.23^2.6^.23^21.2^5.55^2.55^2.48^^^^^.08
+17 ;;^UTILITY(U,$J,112,6594,20)
+18 ;;=VACO Standardized Recipe E-338. DOE:121085 #516
+19 ;;^UTILITY(U,$J,112,6595,0)
+20 ;;=EGG SALAD SANDWICH W/WHEAT BREAD^^sandwiches^138.33
+21 ;;^UTILITY(U,$J,112,6595,1)
+22 ;;=7.26^11.6^24.9^225^53.9^^^61^2^4.5^158.9^182.5^454.4^.42^.004^.06^.84^566.4^3.28^.15
+23 ;;^UTILITY(U,$J,112,6595,2)
+24 ;;=.13^1.2^.5^.037^17.8^.37^2.47^.17^150.6^5.16^2.33^2.35
+25 ;;^UTILITY(U,$J,112,6595,20)
+26 ;;=VACO Standardized Recipe E-347. DOE: 120685 #516
+27 ;;^UTILITY(U,$J,112,6596,0)
+28 ;;=EGG SALAD SANDWICH W/WHITE BREAD^^sandwiches^138.33
+29 ;;^UTILITY(U,$J,112,6596,1)
+30 ;;=7.1^11.8^25.4^237.3^53.6^^^60.96^1.92^4.52^94.8^120.8^445^.42^.004^.06^.84^566.4^3.28^.19
+31 ;;^UTILITY(U,$J,112,6596,2)
+32 ;;=.19^1.41^.5^.04^17.78^.37^2.48^.17^150.6^5.24^2.33^2.35
+33 ;;^UTILITY(U,$J,112,6596,20)
+34 ;;=VACO Standardized Recipe E-347. DOE: 120685 #516
+35 ;;^UTILITY(U,$J,112,6599,0)
+36 ;;=RICE PILAF, REGULAR^^oz.^28.35
+37 ;;^UTILITY(U,$J,112,6599,1)
+38 ;;=1.3^3.2^6.6^60^87.5^^^31^1.58^5.96^17.66^83.36^697.54^.08^0^.01^.34^971.13^2.06^.03
+39 ;;^UTILITY(U,$J,112,6599,2)
+40 ;;=.03^.41^.03^.02^1.68^.01^1.1^0^.1^.6^1.2^1.2^^^^^.1
+41 ;;^UTILITY(U,$J,112,6599,20)
+42 ;;=BAY PINES STANDARDIZED RECIPE 2/27/86
+43 ;;^UTILITY(U,$J,112,6600,0)
+44 ;;=RICE PILAF, DIET^^oz.^28.35
+45 ;;^UTILITY(U,$J,112,6600,1)
+46 ;;=1^.5^7.5^37^92^^^25.66^1.61^4.45^13.24^77.98^10.3^.09^0^.01^0^879.32^2.14^.03
+47 ;;^UTILITY(U,$J,112,6600,2)
+48 ;;=.02^.35^.01^.02^.86^0^0^0^0^0^0^0^^^^^.2
+49 ;;^UTILITY(U,$J,112,6600,20)
+50 ;;=BAY PINES STANDARDIZED RECIPE 2/27/86
+51 ;;^UTILITY(U,$J,112,6601,0)
+52 ;;=MEATBALLS, DIET^^oz.^28.35
+53 ;;^UTILITY(U,$J,112,6601,1)
+54 ;;=20.3^8.6^4^180^62.6^^^17.41^2.7^3.78^172.83^261.5^66.11^.12^.02^.03^0^175^3.68^.08
+55 ;;^UTILITY(U,$J,112,6601,2)
+56 ;;=.18^4.23^.15^.03^5.51^.1^.3^0^99.4^3.9^.3^.1^^^^^.1
+57 ;;^UTILITY(U,$J,112,6601,20)
+58 ;;=BAY PINES STANDARDIZED RECIPE 2/27/86
+59 ;;^UTILITY(U,$J,112,6602,0)
+60 ;;=CELERY DRESSING^^oz.^28.35
+61 ;;^UTILITY(U,$J,112,6602,1)
+62 ;;=4.3^5.5^21.2^151^66.4^^^71.66^2.43^9.01^56.23^129.33^716.43^.16^.01^.02^.43^372.22^2.52^.16
+63 ;;^UTILITY(U,$J,112,6602,2)
+64 ;;=.12^1.4^.08^.02^3.48^.05^1.7^0^14.6^1.1^1.7^1.5^^^^^.1
+65 ;;^UTILITY(U,$J,112,6602,20)
+66 ;;=BAY PINES STANDARDIZED RECIPE 2/27/86
+67 ;;^UTILITY(U,$J,112,6603,0)
+68 ;;=JELLO GELATIN POPS^^pops^44
+69 ;;^UTILITY(U,$J,112,6603,1)
+70 ;;=2.27^0^18.16^79.45^^^^^^^^0^11.35
+71 ;;^UTILITY(U,$J,112,6603,20)
+72 ;;=General Foods Prod Lit dated Sep 85. DOE: 050286 #516
+73 ;;^UTILITY(U,$J,112,6604,0)
+74 ;;=CRYSTAL LIGHT FRUIT PUNCH^^8-oz srv.^228
+75 ;;^UTILITY(U,$J,112,6604,1)
+76 ;;=0^0^.035^1.75^100^^^13.74^0^^0^19.73^0^^^^^0^2.48^0
+77 ;;^UTILITY(U,$J,112,6604,2)
+78 ;;=0^0
+79 ;;^UTILITY(U,$J,112,6604,20)
+80 ;;=General Foods Prod Lit dated Sep 85. DOE: 050286 #516
+81 ;;^UTILITY(U,$J,112,6605,0)
+82 ;;=CRYSTAL LIGHT LEMONADE FLAVOR^^8-oz srv.^230
+83 ;;^UTILITY(U,$J,112,6605,1)
+84 ;;=0^0^.09^1.74^100^^^0^0^^0^26^0^^^^^0^2.6^0
+85 ;;^UTILITY(U,$J,112,6605,2)
+86 ;;=0^0
+87 ;;^UTILITY(U,$J,112,6605,20)
+88 ;;=General Foods Prod Lit dated Sep 85. DOE 050286 #516
+89 ;;^UTILITY(U,$J,112,6606,0)
+90 ;;=PICKLED BEET AND ONION SALAD^^servings^101
+91 ;;^UTILITY(U,$J,112,6606,1)
+92 ;;=.9^.1^15.7^63.6^84.4^^^24.5^.96^24.3^24.7^247^242^.22^.04^.15^^924.7^11.3^.03
+93 ;;^UTILITY(U,$J,112,6606,2)
+94 ;;=.04^.2^.08^.03^31.47
+95 ;;^UTILITY(U,$J,112,6606,20)
+96 ;;=BAY PINES STD RECIPE 5/16/86
+97 ;;^UTILITY(U,$J,112,6607,0)
+98 ;;=CUCUMBER RELISH^^servings^67.8
+99 ;;^UTILITY(U,$J,112,6607,1)
+100 ;;=.88^2.6^3.5^39.7^91.7^^^17.6^.44^11.1^22.3^167^101^.37^.03^.06^^335^6.86^.03
+101 ;;^UTILITY(U,$J,112,6607,2)
+102 ;;=.03^.25^.21^.04^13^^^^^2.35^.15^^^^^^.44
+103 ;;^UTILITY(U,$J,112,6607,20)
+104 ;;=BAY PINES STD RECIPE 5/16/86
+105 ;;^UTILITY(U,$J,112,6608,0)
+106 ;;=CUCUMBERS IN SOUR CREAM^^servings^76.3
+107 ;;^UTILITY(U,$J,112,6608,1)
+108 ;;=1.18^17.9^5.5^183^74.3^^^35.9^.37^9.1^31.2^125^254^.21^.03^.04^3.9^548^5.54^.03
+109 ;;^UTILITY(U,$J,112,6608,2)
+110 ;;=.05^.18^.25^.13^11.2^.1^9.4^.65^18.5^3.9^3.4^9.9^^^^^.3
