FHINI0J5 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(114) 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,114,240,"I",3,0)
;;=725^.14063^1384^.14063
;;^UTILITY(U,$J,114,240,"I",4,0)
;;=160^.3125^1334^3.615625
;;^UTILITY(U,$J,114,240,"I",5,0)
;;=382^.01042
;;^UTILITY(U,$J,114,240,"I",6,0)
;;=255^.23438^1905^.23438
;;^UTILITY(U,$J,114,240,"I",7,0)
;;=573^1.5625^1938^1.5625
;;^UTILITY(U,$J,114,240,"I",8,0)
;;=230^.10938^1598^.10938
;;^UTILITY(U,$J,114,240,"I",9,0)
;;=1005^.25^2021^2.09
;;^UTILITY(U,$J,114,240,"I",10,0)
;;=847^2.04688^2021
;;^UTILITY(U,$J,114,240,"X",0)
;;=^^9^9^2890725^
;;^UTILITY(U,$J,114,240,"X",1,0)
;;=1) RINSE BEANS, COVER WITH COLD WATER AND SOAK OVERNIGHT.
;;^UTILITY(U,$J,114,240,"X",2,0)
;;=2) DRAIN SOAKED BEANS AND DISTRIBUTE SALT PORK EVENLY OVER BEANS.
;;^UTILITY(U,$J,114,240,"X",3,0)
;;=3) RECONSTITUTE ONIONS. COMBINE WITH MOLASSES, MUSTARD, SUGAR,
;;^UTILITY(U,$J,114,240,"X",4,0)
;;= CATSUP, SALT AND COLD WATER AND MIX THOROUGHLY. POUR
;;^UTILITY(U,$J,114,240,"X",5,0)
;;= OVER BEANS.
;;^UTILITY(U,$J,114,240,"X",6,0)
;;=4) DISTRIBUTE TAP WATER OVER BEANS.
;;^UTILITY(U,$J,114,240,"X",7,0)
;;=5) SEAL PANS WITH ALUMINUM FOIL. BAKE IN PREHEATED OVEN FOR 3 HOURS.
;;^UTILITY(U,$J,114,240,"X",8,0)
;;=6) REMOVE FOIL AND CONTINUE COOKING, STIRRING EVERY HOUR FOR
;;^UTILITY(U,$J,114,240,"X",9,0)
;;= 4-1/2 HOURS OR UNTIL BEANS ARE COOKED.
;;^UTILITY(U,$J,114,241,0)
;;=FRENCH TOAST, FROZEN^100^2-EACH^30 MIN^^2^5^N^E-2^^F
;;^UTILITY(U,$J,114,241,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,241,"E",1,0)
;;=33
;;^UTILITY(U,$J,114,241,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,241,"I",1,0)
;;=791^31.25^6427^31.25
;;^UTILITY(U,$J,114,241,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,241,"X",1,0)
;;=PREPARE ACCORDING TO PACKAGE DIRECTIONS.
;;^UTILITY(U,$J,114,242,0)
;;=LS FRENCH TOAST^25^3-FLOZ^25 MIN^^2^5^Y^E-3^^S^^.161
;;^UTILITY(U,$J,114,242,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,242,"E",1,0)
;;=32
;;^UTILITY(U,$J,114,242,"E",2,0)
;;=2
;;^UTILITY(U,$J,114,242,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,242,"I",1,0)
;;=734^1.54688^115^1.314848
;;^UTILITY(U,$J,114,242,"I",2,0)
;;=986^.4375^6011^.4375
;;^UTILITY(U,$J,114,242,"I",3,0)
;;=847^.21875^2021
;;^UTILITY(U,$J,114,242,"I",4,0)
;;=256^.17188^1906^.17188
;;^UTILITY(U,$J,114,242,"I",5,0)
;;=81^.00521^268^.00521
;;^UTILITY(U,$J,114,242,"X",0)
;;=^^4^4^2890801^^
;;^UTILITY(U,$J,114,242,"X",1,0)
;;=1) COMBINE ALL INGREDIENTS AND BLEND THOROUGHLY.
;;^UTILITY(U,$J,114,242,"X",2,0)
;;=2) DIP LS BREAD (TWO SLICES PER SERVING - 3 OZ BATTER PER SERVING) INTO
;;^UTILITY(U,$J,114,242,"X",3,0)
;;= BATTER UNTIL WELL COATED. DRAIN OFF EXCESS BATTER.
;;^UTILITY(U,$J,114,242,"X",4,0)
;;=3) COOK ON GRILL UNTIL SLIGHTLY BROWNED AT 350 DEGREES.
;;^UTILITY(U,$J,114,243,0)
;;=RED BEANS AND RICE^100^4-OZ^1 HR^^12^7^Y^P-50^^S^^.011
;;^UTILITY(U,$J,114,243,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,243,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,243,"I",0)
;;=^114.01PA^9^9
;;^UTILITY(U,$J,114,243,"I",1,0)
;;=574^4^2644^4
;;^UTILITY(U,$J,114,243,"I",2,0)
;;=802^.79688^221^.79688
;;^UTILITY(U,$J,114,243,"I",3,0)
;;=725^.1875^1384^.1875
;;^UTILITY(U,$J,114,243,"I",4,0)
;;=403^.09375
;;^UTILITY(U,$J,114,243,"I",5,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,243,"I",6,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,243,"I",7,0)
;;=273^2.39063^1932^2.39063
;;^UTILITY(U,$J,114,243,"I",8,0)
;;=593^.59375^1950^.59375
;;^UTILITY(U,$J,114,243,"I",9,0)
;;=448^6.39063^1558^6.39063
;;^UTILITY(U,$J,114,243,"X",0)
;;=^^8^8^2890725^
;;^UTILITY(U,$J,114,243,"X",1,0)
;;=1) SOAK BEANS OVERNIGHT IN COLD WATER TO COVER.
;;^UTILITY(U,$J,114,243,"X",2,0)
;;=2) DRAIN BEANS; PLACE IN KETTLE WITH WATER TO COVER. BRING TO BOIL.
;;^UTILITY(U,$J,114,243,"X",3,0)
;;=3) ADD HAM TO BEANS. REDUCE HEAT AND SIMMER UNTIL BEANS ARE HALF DONE.
;;^UTILITY(U,$J,114,243,"X",4,0)
;;=4) RECONSTITUTE ONIONS AND GREEN PEPPERS. ADD TO BEANS TOGETHER
;;^UTILITY(U,$J,114,243,"X",5,0)
;;= WITH SEASONINGS. COOK MIXTURE UNTIL BEANS ARE TENDER. DO NOT OVERCOOK.
;;^UTILITY(U,$J,114,243,"X",6,0)
;;=5) COMBINE TOMATOES, PUREE AND RICE AND ADD TO COOKED MIXTURE.
;;^UTILITY(U,$J,114,243,"X",7,0)
;;= MIX TO DISTRIBUTE. CONTINUE TO SIMMER FOR 10 MINUTES OR UNTIL
;;^UTILITY(U,$J,114,243,"X",8,0)
;;= RICE IS COOKED.
;;^UTILITY(U,$J,114,244,0)
;;=PEACH FRITTER BATTER^100^2-EACH^35 MIN^^1^5^Y^E-4^^S^^.018
;;^UTILITY(U,$J,114,244,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,244,"E",1,0)
;;=32
;;^UTILITY(U,$J,114,244,"E",2,0)
;;=4
;;^UTILITY(U,$J,114,244,"I",0)
;;=^114.01PA^10^10
FHINI0J5 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(114)
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,114,240,"I",3,0)
+2 ;;=725^.14063^1384^.14063
+3 ;;^UTILITY(U,$J,114,240,"I",4,0)
+4 ;;=160^.3125^1334^3.615625
+5 ;;^UTILITY(U,$J,114,240,"I",5,0)
+6 ;;=382^.01042
+7 ;;^UTILITY(U,$J,114,240,"I",6,0)
+8 ;;=255^.23438^1905^.23438
+9 ;;^UTILITY(U,$J,114,240,"I",7,0)
+10 ;;=573^1.5625^1938^1.5625
+11 ;;^UTILITY(U,$J,114,240,"I",8,0)
+12 ;;=230^.10938^1598^.10938
+13 ;;^UTILITY(U,$J,114,240,"I",9,0)
+14 ;;=1005^.25^2021^2.09
+15 ;;^UTILITY(U,$J,114,240,"I",10,0)
+16 ;;=847^2.04688^2021
+17 ;;^UTILITY(U,$J,114,240,"X",0)
+18 ;;=^^9^9^2890725^
+19 ;;^UTILITY(U,$J,114,240,"X",1,0)
+20 ;;=1) RINSE BEANS, COVER WITH COLD WATER AND SOAK OVERNIGHT.
+21 ;;^UTILITY(U,$J,114,240,"X",2,0)
+22 ;;=2) DRAIN SOAKED BEANS AND DISTRIBUTE SALT PORK EVENLY OVER BEANS.
+23 ;;^UTILITY(U,$J,114,240,"X",3,0)
+24 ;;=3) RECONSTITUTE ONIONS. COMBINE WITH MOLASSES, MUSTARD, SUGAR,
+25 ;;^UTILITY(U,$J,114,240,"X",4,0)
+26 ;;= CATSUP, SALT AND COLD WATER AND MIX THOROUGHLY. POUR
+27 ;;^UTILITY(U,$J,114,240,"X",5,0)
+28 ;;= OVER BEANS.
+29 ;;^UTILITY(U,$J,114,240,"X",6,0)
+30 ;;=4) DISTRIBUTE TAP WATER OVER BEANS.
+31 ;;^UTILITY(U,$J,114,240,"X",7,0)
+32 ;;=5) SEAL PANS WITH ALUMINUM FOIL. BAKE IN PREHEATED OVEN FOR 3 HOURS.
+33 ;;^UTILITY(U,$J,114,240,"X",8,0)
+34 ;;=6) REMOVE FOIL AND CONTINUE COOKING, STIRRING EVERY HOUR FOR
+35 ;;^UTILITY(U,$J,114,240,"X",9,0)
+36 ;;= 4-1/2 HOURS OR UNTIL BEANS ARE COOKED.
+37 ;;^UTILITY(U,$J,114,241,0)
+38 ;;=FRENCH TOAST, FROZEN^100^2-EACH^30 MIN^^2^5^N^E-2^^F
+39 ;;^UTILITY(U,$J,114,241,"E",0)
+40 ;;=^114.05P^1^1
+41 ;;^UTILITY(U,$J,114,241,"E",1,0)
+42 ;;=33
+43 ;;^UTILITY(U,$J,114,241,"I",0)
+44 ;;=^114.01PA^1^1
+45 ;;^UTILITY(U,$J,114,241,"I",1,0)
+46 ;;=791^31.25^6427^31.25
+47 ;;^UTILITY(U,$J,114,241,"X",0)
+48 ;;=^^1^1^2890801^^
+49 ;;^UTILITY(U,$J,114,241,"X",1,0)
+50 ;;=PREPARE ACCORDING TO PACKAGE DIRECTIONS.
+51 ;;^UTILITY(U,$J,114,242,0)
+52 ;;=LS FRENCH TOAST^25^3-FLOZ^25 MIN^^2^5^Y^E-3^^S^^.161
+53 ;;^UTILITY(U,$J,114,242,"E",0)
+54 ;;=^114.05P^2^2
+55 ;;^UTILITY(U,$J,114,242,"E",1,0)
+56 ;;=32
+57 ;;^UTILITY(U,$J,114,242,"E",2,0)
+58 ;;=2
+59 ;;^UTILITY(U,$J,114,242,"I",0)
+60 ;;=^114.01PA^5^5
+61 ;;^UTILITY(U,$J,114,242,"I",1,0)
+62 ;;=734^1.54688^115^1.314848
+63 ;;^UTILITY(U,$J,114,242,"I",2,0)
+64 ;;=986^.4375^6011^.4375
+65 ;;^UTILITY(U,$J,114,242,"I",3,0)
+66 ;;=847^.21875^2021
+67 ;;^UTILITY(U,$J,114,242,"I",4,0)
+68 ;;=256^.17188^1906^.17188
+69 ;;^UTILITY(U,$J,114,242,"I",5,0)
+70 ;;=81^.00521^268^.00521
+71 ;;^UTILITY(U,$J,114,242,"X",0)
+72 ;;=^^4^4^2890801^^
+73 ;;^UTILITY(U,$J,114,242,"X",1,0)
+74 ;;=1) COMBINE ALL INGREDIENTS AND BLEND THOROUGHLY.
+75 ;;^UTILITY(U,$J,114,242,"X",2,0)
+76 ;;=2) DIP LS BREAD (TWO SLICES PER SERVING - 3 OZ BATTER PER SERVING) INTO
+77 ;;^UTILITY(U,$J,114,242,"X",3,0)
+78 ;;= BATTER UNTIL WELL COATED. DRAIN OFF EXCESS BATTER.
+79 ;;^UTILITY(U,$J,114,242,"X",4,0)
+80 ;;=3) COOK ON GRILL UNTIL SLIGHTLY BROWNED AT 350 DEGREES.
+81 ;;^UTILITY(U,$J,114,243,0)
+82 ;;=RED BEANS AND RICE^100^4-OZ^1 HR^^12^7^Y^P-50^^S^^.011
+83 ;;^UTILITY(U,$J,114,243,"E",0)
+84 ;;=^114.05P^1^1
+85 ;;^UTILITY(U,$J,114,243,"E",1,0)
+86 ;;=6
+87 ;;^UTILITY(U,$J,114,243,"I",0)
+88 ;;=^114.01PA^9^9
+89 ;;^UTILITY(U,$J,114,243,"I",1,0)
+90 ;;=574^4^2644^4
+91 ;;^UTILITY(U,$J,114,243,"I",2,0)
+92 ;;=802^.79688^221^.79688
+93 ;;^UTILITY(U,$J,114,243,"I",3,0)
+94 ;;=725^.1875^1384^.1875
+95 ;;^UTILITY(U,$J,114,243,"I",4,0)
+96 ;;=403^.09375
+97 ;;^UTILITY(U,$J,114,243,"I",5,0)
+98 ;;=230^.125^1598^.125
+99 ;;^UTILITY(U,$J,114,243,"I",6,0)
+100 ;;=192^.01563^288^.01563
+101 ;;^UTILITY(U,$J,114,243,"I",7,0)
+102 ;;=273^2.39063^1932^2.39063
+103 ;;^UTILITY(U,$J,114,243,"I",8,0)
+104 ;;=593^.59375^1950^.59375
+105 ;;^UTILITY(U,$J,114,243,"I",9,0)
+106 ;;=448^6.39063^1558^6.39063
+107 ;;^UTILITY(U,$J,114,243,"X",0)
+108 ;;=^^8^8^2890725^
+109 ;;^UTILITY(U,$J,114,243,"X",1,0)
+110 ;;=1) SOAK BEANS OVERNIGHT IN COLD WATER TO COVER.
+111 ;;^UTILITY(U,$J,114,243,"X",2,0)
+112 ;;=2) DRAIN BEANS; PLACE IN KETTLE WITH WATER TO COVER. BRING TO BOIL.
+113 ;;^UTILITY(U,$J,114,243,"X",3,0)
+114 ;;=3) ADD HAM TO BEANS. REDUCE HEAT AND SIMMER UNTIL BEANS ARE HALF DONE.
+115 ;;^UTILITY(U,$J,114,243,"X",4,0)
+116 ;;=4) RECONSTITUTE ONIONS AND GREEN PEPPERS. ADD TO BEANS TOGETHER
+117 ;;^UTILITY(U,$J,114,243,"X",5,0)
+118 ;;= WITH SEASONINGS. COOK MIXTURE UNTIL BEANS ARE TENDER. DO NOT OVERCOOK.
+119 ;;^UTILITY(U,$J,114,243,"X",6,0)
+120 ;;=5) COMBINE TOMATOES, PUREE AND RICE AND ADD TO COOKED MIXTURE.
+121 ;;^UTILITY(U,$J,114,243,"X",7,0)
+122 ;;= MIX TO DISTRIBUTE. CONTINUE TO SIMMER FOR 10 MINUTES OR UNTIL
+123 ;;^UTILITY(U,$J,114,243,"X",8,0)
+124 ;;= RICE IS COOKED.
+125 ;;^UTILITY(U,$J,114,244,0)
+126 ;;=PEACH FRITTER BATTER^100^2-EACH^35 MIN^^1^5^Y^E-4^^S^^.018
+127 ;;^UTILITY(U,$J,114,244,"E",0)
+128 ;;=^114.05P^2^2
+129 ;;^UTILITY(U,$J,114,244,"E",1,0)
+130 ;;=32
+131 ;;^UTILITY(U,$J,114,244,"E",2,0)
+132 ;;=4
+133 ;;^UTILITY(U,$J,114,244,"I",0)
+134 ;;=^114.01PA^10^10
