FHINI0J4 ; ; 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,235,0)
;;=LS FARINA^50^4-FLOZ^15 MIN^^9^2^Y^C-58^^S^^.013
;;^UTILITY(U,$J,114,235,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,235,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,235,"I",0)
;;=^114.01PA^2^2
;;^UTILITY(U,$J,114,235,"I",1,0)
;;=410^2^1167^2
;;^UTILITY(U,$J,114,235,"I",2,0)
;;=847^1.25^2021
;;^UTILITY(U,$J,114,235,"X",0)
;;=^^3^3^2890727^^
;;^UTILITY(U,$J,114,235,"X",1,0)
;;=1) HEAT WATER TO BOILING.
;;^UTILITY(U,$J,114,235,"X",2,0)
;;=2) ADD CEREAL GRADUALLY, STIRRING TO PREVENT LUMPING.
;;^UTILITY(U,$J,114,235,"X",3,0)
;;=3) BRING TO BOIL AND COOK THE REQUIRED TIME, STIRRING AS NEEDED.
;;^UTILITY(U,$J,114,236,0)
;;=TOMATO RICE SOUP^100^6-FLOZ^3 HR^^10^10^Y^A-113^^S^^.026
;;^UTILITY(U,$J,114,236,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,236,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,236,"I",0)
;;=^114.01PA^14^14
;;^UTILITY(U,$J,114,236,"I",1,0)
;;=297^.5^372^.5
;;^UTILITY(U,$J,114,236,"I",2,0)
;;=777^1.125^1378^1.0125
;;^UTILITY(U,$J,114,236,"I",3,0)
;;=798^.75^1434^.615
;;^UTILITY(U,$J,114,236,"I",4,0)
;;=776^.75^951^.75
;;^UTILITY(U,$J,114,236,"I",5,0)
;;=273^6.375^1932^6.375
;;^UTILITY(U,$J,114,236,"I",6,0)
;;=593^1.1875^1950^1.1875
;;^UTILITY(U,$J,114,236,"I",7,0)
;;=1007^3
;;^UTILITY(U,$J,114,236,"I",8,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,236,"I",9,0)
;;=192^.00781^288^.00781
;;^UTILITY(U,$J,114,236,"I",10,0)
;;=850^1^262
;;^UTILITY(U,$J,114,236,"I",11,0)
;;=849^.00521^269^.00521
;;^UTILITY(U,$J,114,236,"I",12,0)
;;=256^.0625^1906^.0625
;;^UTILITY(U,$J,114,236,"I",13,0)
;;=221^.5^2932^.5
;;^UTILITY(U,$J,114,236,"I",14,0)
;;=820^.25^2048^.2375
;;^UTILITY(U,$J,114,236,"X",0)
;;=^^6^6^2890801^^
;;^UTILITY(U,$J,114,236,"X",1,0)
;;=1) SAUTE ONIONS, GREEN PEPPERS, AND CELERY UNTIL TENDER AND CLEAR.
;;^UTILITY(U,$J,114,236,"X",2,0)
;;=2) ADD TOMATOES, PUREE, STOCK, AND SEASONINGS. SIMMER 1 HOUR, MAINTAIN VOLUME.
;;^UTILITY(U,$J,114,236,"X",3,0)
;;=3) WASH RICE. ADD 30 MINUTES BEFORE SERVING TIME. MAINTAIN AT SLOW BOIL
;;^UTILITY(U,$J,114,236,"X",4,0)
;;= UNTIL RICE IS COOKED.
;;^UTILITY(U,$J,114,236,"X",5,0)
;;=4) ADD PARSLEY IMMEDIATELY BEFORE SERVING.
;;^UTILITY(U,$J,114,236,"X",6,0)
;;=5) STRAIN FOR FULL LIQUID.
;;^UTILITY(U,$J,114,237,0)
;;=NAVY BEANS, BOILED^100^4-OZ^20 MIN^^12^7^Y^P-39^^S^^.032
;;^UTILITY(U,$J,114,237,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,237,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,237,"I",0)
;;=^114.01PA^4^4
;;^UTILITY(U,$J,114,237,"I",1,0)
;;=585^10.79688^2269^10.79688
;;^UTILITY(U,$J,114,237,"I",2,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,237,"I",3,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,237,"I",4,0)
;;=567^.5
;;^UTILITY(U,$J,114,237,"X",0)
;;=^^5^5^2890725^
;;^UTILITY(U,$J,114,237,"X",1,0)
;;=1) WASH BEANS AND DRAIN.
;;^UTILITY(U,$J,114,237,"X",2,0)
;;=2) COVER WITH WATER AND LET SOAK OVERNIGHT IN REFRIGERATOR.
;;^UTILITY(U,$J,114,237,"X",3,0)
;;=3) DRAIN BEANS; COVER WITH WATER.
;;^UTILITY(U,$J,114,237,"X",4,0)
;;=4) ADD REMAINING INGREDIENTS. BRING TO BOIL; REDUCE HEAT TO SIMMER
;;^UTILITY(U,$J,114,237,"X",5,0)
;;= AND COOK UNTIL BEANS ARE TENDER. DO NOT OVERCOOK.
;;^UTILITY(U,$J,114,239,0)
;;=FRENCH TOAST BATTER^100^3-FLOZ^40 MINUTES^^^5^Y^E-1^^S^^.012
;;^UTILITY(U,$J,114,239,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,239,"E",1,0)
;;=32
;;^UTILITY(U,$J,114,239,"E",2,0)
;;=2
;;^UTILITY(U,$J,114,239,"I",0)
;;=^114.01PA^6^6
;;^UTILITY(U,$J,114,239,"I",1,0)
;;=734^6.1875^115^5.259375
;;^UTILITY(U,$J,114,239,"I",2,0)
;;=157^.9375^138^.9375
;;^UTILITY(U,$J,114,239,"I",3,0)
;;=847^.9375^2021
;;^UTILITY(U,$J,114,239,"I",4,0)
;;=256^.6875^1906^.6875
;;^UTILITY(U,$J,114,239,"I",5,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,239,"I",6,0)
;;=81^.01563^268^.01563
;;^UTILITY(U,$J,114,239,"X",0)
;;=^^4^4^2890801^^
;;^UTILITY(U,$J,114,239,"X",1,0)
;;=1) COMBINE ALL INGREDIENTS AND BLEND WELL.
;;^UTILITY(U,$J,114,239,"X",2,0)
;;=2) DIP BREAD (TWO SLICES PER SERVING - 3 OZ BATTER PER SERVING) INTO BATTER
;;^UTILITY(U,$J,114,239,"X",3,0)
;;= UNTIL WELL COATED. DRAIN OFF EXCESS BATTER.
;;^UTILITY(U,$J,114,239,"X",4,0)
;;=3) COOK ON GRIDDLE UNTIL LIGHTLY BROWNED AT 350 DEGREES.
;;^UTILITY(U,$J,114,240,0)
;;=BOSTON BAKED BEANS WITH CATSUP^100^4-OZ^1 HR 20MIN^^^7^Y^P-41^^S^^.035
;;^UTILITY(U,$J,114,240,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,240,"E",1,0)
;;=22
;;^UTILITY(U,$J,114,240,"I",0)
;;=^114.01PA^10^10
;;^UTILITY(U,$J,114,240,"I",1,0)
;;=585^10^2269^10
;;^UTILITY(U,$J,114,240,"I",2,0)
;;=1009^2.5^243^2.5
FHINI0J4 ; ; 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,235,0)
+2 ;;=LS FARINA^50^4-FLOZ^15 MIN^^9^2^Y^C-58^^S^^.013
+3 ;;^UTILITY(U,$J,114,235,"E",0)
+4 ;;=^114.05P^1^1
+5 ;;^UTILITY(U,$J,114,235,"E",1,0)
+6 ;;=6
+7 ;;^UTILITY(U,$J,114,235,"I",0)
+8 ;;=^114.01PA^2^2
+9 ;;^UTILITY(U,$J,114,235,"I",1,0)
+10 ;;=410^2^1167^2
+11 ;;^UTILITY(U,$J,114,235,"I",2,0)
+12 ;;=847^1.25^2021
+13 ;;^UTILITY(U,$J,114,235,"X",0)
+14 ;;=^^3^3^2890727^^
+15 ;;^UTILITY(U,$J,114,235,"X",1,0)
+16 ;;=1) HEAT WATER TO BOILING.
+17 ;;^UTILITY(U,$J,114,235,"X",2,0)
+18 ;;=2) ADD CEREAL GRADUALLY, STIRRING TO PREVENT LUMPING.
+19 ;;^UTILITY(U,$J,114,235,"X",3,0)
+20 ;;=3) BRING TO BOIL AND COOK THE REQUIRED TIME, STIRRING AS NEEDED.
+21 ;;^UTILITY(U,$J,114,236,0)
+22 ;;=TOMATO RICE SOUP^100^6-FLOZ^3 HR^^10^10^Y^A-113^^S^^.026
+23 ;;^UTILITY(U,$J,114,236,"E",0)
+24 ;;=^114.05P^1^1
+25 ;;^UTILITY(U,$J,114,236,"E",1,0)
+26 ;;=6
+27 ;;^UTILITY(U,$J,114,236,"I",0)
+28 ;;=^114.01PA^14^14
+29 ;;^UTILITY(U,$J,114,236,"I",1,0)
+30 ;;=297^.5^372^.5
+31 ;;^UTILITY(U,$J,114,236,"I",2,0)
+32 ;;=777^1.125^1378^1.0125
+33 ;;^UTILITY(U,$J,114,236,"I",3,0)
+34 ;;=798^.75^1434^.615
+35 ;;^UTILITY(U,$J,114,236,"I",4,0)
+36 ;;=776^.75^951^.75
+37 ;;^UTILITY(U,$J,114,236,"I",5,0)
+38 ;;=273^6.375^1932^6.375
+39 ;;^UTILITY(U,$J,114,236,"I",6,0)
+40 ;;=593^1.1875^1950^1.1875
+41 ;;^UTILITY(U,$J,114,236,"I",7,0)
+42 ;;=1007^3
+43 ;;^UTILITY(U,$J,114,236,"I",8,0)
+44 ;;=230^.125^1598^.125
+45 ;;^UTILITY(U,$J,114,236,"I",9,0)
+46 ;;=192^.00781^288^.00781
+47 ;;^UTILITY(U,$J,114,236,"I",10,0)
+48 ;;=850^1^262
+49 ;;^UTILITY(U,$J,114,236,"I",11,0)
+50 ;;=849^.00521^269^.00521
+51 ;;^UTILITY(U,$J,114,236,"I",12,0)
+52 ;;=256^.0625^1906^.0625
+53 ;;^UTILITY(U,$J,114,236,"I",13,0)
+54 ;;=221^.5^2932^.5
+55 ;;^UTILITY(U,$J,114,236,"I",14,0)
+56 ;;=820^.25^2048^.2375
+57 ;;^UTILITY(U,$J,114,236,"X",0)
+58 ;;=^^6^6^2890801^^
+59 ;;^UTILITY(U,$J,114,236,"X",1,0)
+60 ;;=1) SAUTE ONIONS, GREEN PEPPERS, AND CELERY UNTIL TENDER AND CLEAR.
+61 ;;^UTILITY(U,$J,114,236,"X",2,0)
+62 ;;=2) ADD TOMATOES, PUREE, STOCK, AND SEASONINGS. SIMMER 1 HOUR, MAINTAIN VOLUME.
+63 ;;^UTILITY(U,$J,114,236,"X",3,0)
+64 ;;=3) WASH RICE. ADD 30 MINUTES BEFORE SERVING TIME. MAINTAIN AT SLOW BOIL
+65 ;;^UTILITY(U,$J,114,236,"X",4,0)
+66 ;;= UNTIL RICE IS COOKED.
+67 ;;^UTILITY(U,$J,114,236,"X",5,0)
+68 ;;=4) ADD PARSLEY IMMEDIATELY BEFORE SERVING.
+69 ;;^UTILITY(U,$J,114,236,"X",6,0)
+70 ;;=5) STRAIN FOR FULL LIQUID.
+71 ;;^UTILITY(U,$J,114,237,0)
+72 ;;=NAVY BEANS, BOILED^100^4-OZ^20 MIN^^12^7^Y^P-39^^S^^.032
+73 ;;^UTILITY(U,$J,114,237,"E",0)
+74 ;;=^114.05P^1^1
+75 ;;^UTILITY(U,$J,114,237,"E",1,0)
+76 ;;=6
+77 ;;^UTILITY(U,$J,114,237,"I",0)
+78 ;;=^114.01PA^4^4
+79 ;;^UTILITY(U,$J,114,237,"I",1,0)
+80 ;;=585^10.79688^2269^10.79688
+81 ;;^UTILITY(U,$J,114,237,"I",2,0)
+82 ;;=230^.1875^1598^.1875
+83 ;;^UTILITY(U,$J,114,237,"I",3,0)
+84 ;;=192^.01563^288^.01563
+85 ;;^UTILITY(U,$J,114,237,"I",4,0)
+86 ;;=567^.5
+87 ;;^UTILITY(U,$J,114,237,"X",0)
+88 ;;=^^5^5^2890725^
+89 ;;^UTILITY(U,$J,114,237,"X",1,0)
+90 ;;=1) WASH BEANS AND DRAIN.
+91 ;;^UTILITY(U,$J,114,237,"X",2,0)
+92 ;;=2) COVER WITH WATER AND LET SOAK OVERNIGHT IN REFRIGERATOR.
+93 ;;^UTILITY(U,$J,114,237,"X",3,0)
+94 ;;=3) DRAIN BEANS; COVER WITH WATER.
+95 ;;^UTILITY(U,$J,114,237,"X",4,0)
+96 ;;=4) ADD REMAINING INGREDIENTS. BRING TO BOIL; REDUCE HEAT TO SIMMER
+97 ;;^UTILITY(U,$J,114,237,"X",5,0)
+98 ;;= AND COOK UNTIL BEANS ARE TENDER. DO NOT OVERCOOK.
+99 ;;^UTILITY(U,$J,114,239,0)
+100 ;;=FRENCH TOAST BATTER^100^3-FLOZ^40 MINUTES^^^5^Y^E-1^^S^^.012
+101 ;;^UTILITY(U,$J,114,239,"E",0)
+102 ;;=^114.05P^2^2
+103 ;;^UTILITY(U,$J,114,239,"E",1,0)
+104 ;;=32
+105 ;;^UTILITY(U,$J,114,239,"E",2,0)
+106 ;;=2
+107 ;;^UTILITY(U,$J,114,239,"I",0)
+108 ;;=^114.01PA^6^6
+109 ;;^UTILITY(U,$J,114,239,"I",1,0)
+110 ;;=734^6.1875^115^5.259375
+111 ;;^UTILITY(U,$J,114,239,"I",2,0)
+112 ;;=157^.9375^138^.9375
+113 ;;^UTILITY(U,$J,114,239,"I",3,0)
+114 ;;=847^.9375^2021
+115 ;;^UTILITY(U,$J,114,239,"I",4,0)
+116 ;;=256^.6875^1906^.6875
+117 ;;^UTILITY(U,$J,114,239,"I",5,0)
+118 ;;=230^.0625^1598^.0625
+119 ;;^UTILITY(U,$J,114,239,"I",6,0)
+120 ;;=81^.01563^268^.01563
+121 ;;^UTILITY(U,$J,114,239,"X",0)
+122 ;;=^^4^4^2890801^^
+123 ;;^UTILITY(U,$J,114,239,"X",1,0)
+124 ;;=1) COMBINE ALL INGREDIENTS AND BLEND WELL.
+125 ;;^UTILITY(U,$J,114,239,"X",2,0)
+126 ;;=2) DIP BREAD (TWO SLICES PER SERVING - 3 OZ BATTER PER SERVING) INTO BATTER
+127 ;;^UTILITY(U,$J,114,239,"X",3,0)
+128 ;;= UNTIL WELL COATED. DRAIN OFF EXCESS BATTER.
+129 ;;^UTILITY(U,$J,114,239,"X",4,0)
+130 ;;=3) COOK ON GRIDDLE UNTIL LIGHTLY BROWNED AT 350 DEGREES.
+131 ;;^UTILITY(U,$J,114,240,0)
+132 ;;=BOSTON BAKED BEANS WITH CATSUP^100^4-OZ^1 HR 20MIN^^^7^Y^P-41^^S^^.035
+133 ;;^UTILITY(U,$J,114,240,"E",0)
+134 ;;=^114.05P^1^1
+135 ;;^UTILITY(U,$J,114,240,"E",1,0)
+136 ;;=22
+137 ;;^UTILITY(U,$J,114,240,"I",0)
+138 ;;=^114.01PA^10^10
+139 ;;^UTILITY(U,$J,114,240,"I",1,0)
+140 ;;=585^10^2269^10
+141 ;;^UTILITY(U,$J,114,240,"I",2,0)
+142 ;;=1009^2.5^243^2.5
