FHINI0IG ; ; 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,120,"X",1,0)
;;=PORTION INTO SERVING DISHES. COVER AND CHILL TO SERVE.
;;^UTILITY(U,$J,114,121,0)
;;=PEPPERPOT SOUP^100^6-FLOZ^100 MIN^^10^10^Y^A-90^^^^.032
;;^UTILITY(U,$J,114,121,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,121,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,121,"I",0)
;;=^114.01PA^13^13
;;^UTILITY(U,$J,114,121,"I",1,0)
;;=235^2
;;^UTILITY(U,$J,114,121,"I",2,0)
;;=847^4.25^2021
;;^UTILITY(U,$J,114,121,"I",3,0)
;;=403^.21875
;;^UTILITY(U,$J,114,121,"I",4,0)
;;=725^.125^1384^.125
;;^UTILITY(U,$J,114,121,"I",5,0)
;;=866^1^935^1
;;^UTILITY(U,$J,114,121,"I",6,0)
;;=776^1^951^1
;;^UTILITY(U,$J,114,121,"I",7,0)
;;=1005^.5^2021^4.18
;;^UTILITY(U,$J,114,121,"I",8,0)
;;=297^.5625^372^.5625
;;^UTILITY(U,$J,114,121,"I",9,0)
;;=628^.5625^1998^.5625
;;^UTILITY(U,$J,114,121,"I",10,0)
;;=273^2.125^1932^2.125
;;^UTILITY(U,$J,114,121,"I",11,0)
;;=391^.03906^6354
;;^UTILITY(U,$J,114,121,"I",12,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,121,"I",13,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,121,"X",0)
;;=^^6^6^2890815^^
;;^UTILITY(U,$J,114,121,"X",1,0)
;;=1) COMBINE BASE AND TAP WATER TO FORM STOCK.
;;^UTILITY(U,$J,114,121,"X",2,0)
;;=2) COOK VEGETABLES IN COLD WATER UNTIL TENDER.
;;^UTILITY(U,$J,114,121,"X",3,0)
;;=3) COMBINE MARGARINE AND FLOUR TO FORM ROUX. ADD STOCK AND COOK UNTIL SMOOTH.
;;^UTILITY(U,$J,114,121,"X",4,0)
;;=4) ADD TOMATOES AND THE COOKED VEGETABLES. BRING TO BOIL. REDUCE HEAT.
;;^UTILITY(U,$J,114,121,"X",5,0)
;;=5) ADD SEASONINGS.
;;^UTILITY(U,$J,114,121,"X",6,0)
;;=NOT: STRAIN OR BLENDERIZE FOR PUREED DIET.
;;^UTILITY(U,$J,114,122,0)
;;=BEEFARONI^100^6-OZ^2 1/2 HR^^10^4^Y^E-31^^S^^.092
;;^UTILITY(U,$J,114,122,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,122,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,122,"E",2,0)
;;=22
;;^UTILITY(U,$J,114,122,"I",0)
;;=^114.01PA^14^14
;;^UTILITY(U,$J,114,122,"I",1,0)
;;=725^.375^1384^.375
;;^UTILITY(U,$J,114,122,"I",2,0)
;;=847^.32813^2021
;;^UTILITY(U,$J,114,122,"I",3,0)
;;=22^15.625^2167^15.625
;;^UTILITY(U,$J,114,122,"I",4,0)
;;=273^6.375^1932^6.375
;;^UTILITY(U,$J,114,122,"I",5,0)
;;=593^6.5625^1950^6.5625
;;^UTILITY(U,$J,114,122,"I",6,0)
;;=1007^.45
;;^UTILITY(U,$J,114,122,"I",7,0)
;;=534^2^1346^2
;;^UTILITY(U,$J,114,122,"I",8,0)
;;=776^1^951^1
;;^UTILITY(U,$J,114,122,"I",9,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,122,"I",10,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,122,"I",11,0)
;;=129^.0625^278^.0625
;;^UTILITY(U,$J,114,122,"I",12,0)
;;=519^3.5^1318^3.5
;;^UTILITY(U,$J,114,122,"I",13,0)
;;=1005^1^2021^8.36
;;^UTILITY(U,$J,114,122,"I",14,0)
;;=697^2^32^2
;;^UTILITY(U,$J,114,122,"X",0)
;;=^^11^11^2890815^^^
;;^UTILITY(U,$J,114,122,"X",1,0)
;;=1) RECONSTITUTE ONIONS WITH TAP WATER.
;;^UTILITY(U,$J,114,122,"X",2,0)
;;=2) SAUTE TOGETHER ONIONS AND GROUND BEEF; DRAIN OFF EXCESS FAT.
;;^UTILITY(U,$J,114,122,"X",3,0)
;;=3) DRAIN MUSHROOMS.
;;^UTILITY(U,$J,114,122,"X",4,0)
;;=4) COMBINE VEGETABLES AND SEASONINGS AND ADD THESE INGREDIENTS TO MEAT
;;^UTILITY(U,$J,114,122,"X",5,0)
;;= MIXTURE; SIMMER FOR 2 HOURS.
;;^UTILITY(U,$J,114,122,"X",6,0)
;;=5) COOK MACARONI IN SALTED BOILING WATER 10-15 MINUTES. DO NOT OVERCOOK.
;;^UTILITY(U,$J,114,122,"X",7,0)
;;= DRAIN. ADD TO MEAT MIXTURE AND VEGETABLE/SEASONING MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,122,"X",8,0)
;;=6) SCALE MEAT AND MACARONI MIXTURE INTO PANS.
;;^UTILITY(U,$J,114,122,"X",9,0)
;;= TOP EACH PAN WITH GRATED CHEESE.
;;^UTILITY(U,$J,114,122,"X",10,0)
;;=7) BAKE SLOWLY UNTIL CHEESE MELTS.
;;^UTILITY(U,$J,114,122,"X",11,0)
;;= NOTE: MAY BE SERVED WITH ADDITIONAL GRATED CHEESE.
;;^UTILITY(U,$J,114,123,0)
;;=MANHATTAN CLAM CHOWDER^100^6-FLOZ^75 MIN^^10^10^Y^A-62^^S^^.157
;;^UTILITY(U,$J,114,123,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,123,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,123,"I",0)
;;=^114.01PA^11^11
;;^UTILITY(U,$J,114,123,"I",1,0)
;;=235^1
;;^UTILITY(U,$J,114,123,"I",2,0)
;;=847^4^2021
;;^UTILITY(U,$J,114,123,"I",3,0)
;;=725^.125^1384^.125
;;^UTILITY(U,$J,114,123,"I",4,0)
;;=403^.0625
;;^UTILITY(U,$J,114,123,"I",5,0)
;;=211^1.42188
;;^UTILITY(U,$J,114,123,"I",6,0)
;;=866^.625^935^.625
;;^UTILITY(U,$J,114,123,"I",7,0)
;;=776^.5^951^.5
;;^UTILITY(U,$J,114,123,"I",8,0)
;;=598^9.5^982^9.5
;;^UTILITY(U,$J,114,123,"I",9,0)
;;=273^12.75^1932^12.75
;;^UTILITY(U,$J,114,123,"I",10,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,123,"I",11,0)
;;=192^.07813^288^.07813
;;^UTILITY(U,$J,114,123,"X",0)
;;=^^3^3^2890724^^^
;;^UTILITY(U,$J,114,123,"X",1,0)
;;=1) COMBINE BEEF BASE AND WATER TO FORM STOCK.
FHINI0IG ; ; 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,120,"X",1,0)
+2 ;;=PORTION INTO SERVING DISHES. COVER AND CHILL TO SERVE.
+3 ;;^UTILITY(U,$J,114,121,0)
+4 ;;=PEPPERPOT SOUP^100^6-FLOZ^100 MIN^^10^10^Y^A-90^^^^.032
+5 ;;^UTILITY(U,$J,114,121,"E",0)
+6 ;;=^114.05P^1^1
+7 ;;^UTILITY(U,$J,114,121,"E",1,0)
+8 ;;=5
+9 ;;^UTILITY(U,$J,114,121,"I",0)
+10 ;;=^114.01PA^13^13
+11 ;;^UTILITY(U,$J,114,121,"I",1,0)
+12 ;;=235^2
+13 ;;^UTILITY(U,$J,114,121,"I",2,0)
+14 ;;=847^4.25^2021
+15 ;;^UTILITY(U,$J,114,121,"I",3,0)
+16 ;;=403^.21875
+17 ;;^UTILITY(U,$J,114,121,"I",4,0)
+18 ;;=725^.125^1384^.125
+19 ;;^UTILITY(U,$J,114,121,"I",5,0)
+20 ;;=866^1^935^1
+21 ;;^UTILITY(U,$J,114,121,"I",6,0)
+22 ;;=776^1^951^1
+23 ;;^UTILITY(U,$J,114,121,"I",7,0)
+24 ;;=1005^.5^2021^4.18
+25 ;;^UTILITY(U,$J,114,121,"I",8,0)
+26 ;;=297^.5625^372^.5625
+27 ;;^UTILITY(U,$J,114,121,"I",9,0)
+28 ;;=628^.5625^1998^.5625
+29 ;;^UTILITY(U,$J,114,121,"I",10,0)
+30 ;;=273^2.125^1932^2.125
+31 ;;^UTILITY(U,$J,114,121,"I",11,0)
+32 ;;=391^.03906^6354
+33 ;;^UTILITY(U,$J,114,121,"I",12,0)
+34 ;;=230^.125^1598^.125
+35 ;;^UTILITY(U,$J,114,121,"I",13,0)
+36 ;;=192^.01563^288^.01563
+37 ;;^UTILITY(U,$J,114,121,"X",0)
+38 ;;=^^6^6^2890815^^
+39 ;;^UTILITY(U,$J,114,121,"X",1,0)
+40 ;;=1) COMBINE BASE AND TAP WATER TO FORM STOCK.
+41 ;;^UTILITY(U,$J,114,121,"X",2,0)
+42 ;;=2) COOK VEGETABLES IN COLD WATER UNTIL TENDER.
+43 ;;^UTILITY(U,$J,114,121,"X",3,0)
+44 ;;=3) COMBINE MARGARINE AND FLOUR TO FORM ROUX. ADD STOCK AND COOK UNTIL SMOOTH.
+45 ;;^UTILITY(U,$J,114,121,"X",4,0)
+46 ;;=4) ADD TOMATOES AND THE COOKED VEGETABLES. BRING TO BOIL. REDUCE HEAT.
+47 ;;^UTILITY(U,$J,114,121,"X",5,0)
+48 ;;=5) ADD SEASONINGS.
+49 ;;^UTILITY(U,$J,114,121,"X",6,0)
+50 ;;=NOT: STRAIN OR BLENDERIZE FOR PUREED DIET.
+51 ;;^UTILITY(U,$J,114,122,0)
+52 ;;=BEEFARONI^100^6-OZ^2 1/2 HR^^10^4^Y^E-31^^S^^.092
+53 ;;^UTILITY(U,$J,114,122,"E",0)
+54 ;;=^114.05P^2^2
+55 ;;^UTILITY(U,$J,114,122,"E",1,0)
+56 ;;=5
+57 ;;^UTILITY(U,$J,114,122,"E",2,0)
+58 ;;=22
+59 ;;^UTILITY(U,$J,114,122,"I",0)
+60 ;;=^114.01PA^14^14
+61 ;;^UTILITY(U,$J,114,122,"I",1,0)
+62 ;;=725^.375^1384^.375
+63 ;;^UTILITY(U,$J,114,122,"I",2,0)
+64 ;;=847^.32813^2021
+65 ;;^UTILITY(U,$J,114,122,"I",3,0)
+66 ;;=22^15.625^2167^15.625
+67 ;;^UTILITY(U,$J,114,122,"I",4,0)
+68 ;;=273^6.375^1932^6.375
+69 ;;^UTILITY(U,$J,114,122,"I",5,0)
+70 ;;=593^6.5625^1950^6.5625
+71 ;;^UTILITY(U,$J,114,122,"I",6,0)
+72 ;;=1007^.45
+73 ;;^UTILITY(U,$J,114,122,"I",7,0)
+74 ;;=534^2^1346^2
+75 ;;^UTILITY(U,$J,114,122,"I",8,0)
+76 ;;=776^1^951^1
+77 ;;^UTILITY(U,$J,114,122,"I",9,0)
+78 ;;=230^.1875^1598^.1875
+79 ;;^UTILITY(U,$J,114,122,"I",10,0)
+80 ;;=192^.01563^288^.01563
+81 ;;^UTILITY(U,$J,114,122,"I",11,0)
+82 ;;=129^.0625^278^.0625
+83 ;;^UTILITY(U,$J,114,122,"I",12,0)
+84 ;;=519^3.5^1318^3.5
+85 ;;^UTILITY(U,$J,114,122,"I",13,0)
+86 ;;=1005^1^2021^8.36
+87 ;;^UTILITY(U,$J,114,122,"I",14,0)
+88 ;;=697^2^32^2
+89 ;;^UTILITY(U,$J,114,122,"X",0)
+90 ;;=^^11^11^2890815^^^
+91 ;;^UTILITY(U,$J,114,122,"X",1,0)
+92 ;;=1) RECONSTITUTE ONIONS WITH TAP WATER.
+93 ;;^UTILITY(U,$J,114,122,"X",2,0)
+94 ;;=2) SAUTE TOGETHER ONIONS AND GROUND BEEF; DRAIN OFF EXCESS FAT.
+95 ;;^UTILITY(U,$J,114,122,"X",3,0)
+96 ;;=3) DRAIN MUSHROOMS.
+97 ;;^UTILITY(U,$J,114,122,"X",4,0)
+98 ;;=4) COMBINE VEGETABLES AND SEASONINGS AND ADD THESE INGREDIENTS TO MEAT
+99 ;;^UTILITY(U,$J,114,122,"X",5,0)
+100 ;;= MIXTURE; SIMMER FOR 2 HOURS.
+101 ;;^UTILITY(U,$J,114,122,"X",6,0)
+102 ;;=5) COOK MACARONI IN SALTED BOILING WATER 10-15 MINUTES. DO NOT OVERCOOK.
+103 ;;^UTILITY(U,$J,114,122,"X",7,0)
+104 ;;= DRAIN. ADD TO MEAT MIXTURE AND VEGETABLE/SEASONING MIX TO DISTRIBUTE.
+105 ;;^UTILITY(U,$J,114,122,"X",8,0)
+106 ;;=6) SCALE MEAT AND MACARONI MIXTURE INTO PANS.
+107 ;;^UTILITY(U,$J,114,122,"X",9,0)
+108 ;;= TOP EACH PAN WITH GRATED CHEESE.
+109 ;;^UTILITY(U,$J,114,122,"X",10,0)
+110 ;;=7) BAKE SLOWLY UNTIL CHEESE MELTS.
+111 ;;^UTILITY(U,$J,114,122,"X",11,0)
+112 ;;= NOTE: MAY BE SERVED WITH ADDITIONAL GRATED CHEESE.
+113 ;;^UTILITY(U,$J,114,123,0)
+114 ;;=MANHATTAN CLAM CHOWDER^100^6-FLOZ^75 MIN^^10^10^Y^A-62^^S^^.157
+115 ;;^UTILITY(U,$J,114,123,"E",0)
+116 ;;=^114.05P^1^1
+117 ;;^UTILITY(U,$J,114,123,"E",1,0)
+118 ;;=5
+119 ;;^UTILITY(U,$J,114,123,"I",0)
+120 ;;=^114.01PA^11^11
+121 ;;^UTILITY(U,$J,114,123,"I",1,0)
+122 ;;=235^1
+123 ;;^UTILITY(U,$J,114,123,"I",2,0)
+124 ;;=847^4^2021
+125 ;;^UTILITY(U,$J,114,123,"I",3,0)
+126 ;;=725^.125^1384^.125
+127 ;;^UTILITY(U,$J,114,123,"I",4,0)
+128 ;;=403^.0625
+129 ;;^UTILITY(U,$J,114,123,"I",5,0)
+130 ;;=211^1.42188
+131 ;;^UTILITY(U,$J,114,123,"I",6,0)
+132 ;;=866^.625^935^.625
+133 ;;^UTILITY(U,$J,114,123,"I",7,0)
+134 ;;=776^.5^951^.5
+135 ;;^UTILITY(U,$J,114,123,"I",8,0)
+136 ;;=598^9.5^982^9.5
+137 ;;^UTILITY(U,$J,114,123,"I",9,0)
+138 ;;=273^12.75^1932^12.75
+139 ;;^UTILITY(U,$J,114,123,"I",10,0)
+140 ;;=230^.125^1598^.125
+141 ;;^UTILITY(U,$J,114,123,"I",11,0)
+142 ;;=192^.07813^288^.07813
+143 ;;^UTILITY(U,$J,114,123,"X",0)
+144 ;;=^^3^3^2890724^^^
+145 ;;^UTILITY(U,$J,114,123,"X",1,0)
+146 ;;=1) COMBINE BEEF BASE AND WATER TO FORM STOCK.
