FHINI0JO ; ; 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,309,"X",11,0)
;;= DROP DUMPLINGS INTO A PAN OF BOILING SALTED STOCK. COOK UNTIL JUST
;;^UTILITY(U,$J,114,309,"X",12,0)
;;= TENDER. PLACE IN PAN WITH CHICKEN AND SAUCE FOR SERVICE.
;;^UTILITY(U,$J,114,310,0)
;;=SEASONED MUSTARD GREENS^75^3-OZ^15 MIN^^^9^Y^V-52^^S^^.001
;;^UTILITY(U,$J,114,310,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,310,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,310,"I",0)
;;=^114.01PA^4^4
;;^UTILITY(U,$J,114,310,"I",1,0)
;;=1009^.5^243^.5
;;^UTILITY(U,$J,114,310,"I",2,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,310,"I",3,0)
;;=801^12^1353^12
;;^UTILITY(U,$J,114,310,"I",4,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,310,"X",0)
;;=^^4^4^2890725^
;;^UTILITY(U,$J,114,310,"X",1,0)
;;=1) ADD SALT AND SALT PORK TO WATER AND BRING TO BOIL.
;;^UTILITY(U,$J,114,310,"X",2,0)
;;=2) ADD MUSTARD GREENS TO BOILING MIXTURE; RETURN TO SLOW BOIL
;;^UTILITY(U,$J,114,310,"X",3,0)
;;= AND COOK UNCOVERED FOR 30 MINUTES OR UNTIL TENDER. DRAIN.
;;^UTILITY(U,$J,114,310,"X",4,0)
;;=3) CUT THROUGH GREENS SEVERAL TIMES AND SPRINKLE WITH PEPPER.
;;^UTILITY(U,$J,114,311,0)
;;=BEEF STROGANOFF^100^3-OZ RAW^4 HR^^10^4^Y^E-127^^S^^.107
;;^UTILITY(U,$J,114,311,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,311,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,311,"I",0)
;;=^114.01PA^14^14
;;^UTILITY(U,$J,114,311,"I",1,0)
;;=372^18.25^2125^10.7675
;;^UTILITY(U,$J,114,311,"I",2,0)
;;=877^2^1378^1.8
;;^UTILITY(U,$J,114,311,"I",3,0)
;;=129^.01563^278^.01563
;;^UTILITY(U,$J,114,311,"I",4,0)
;;=235^.375
;;^UTILITY(U,$J,114,311,"I",5,0)
;;=1005^1.375^2021^11.495
;;^UTILITY(U,$J,114,311,"I",6,0)
;;=628^.75^1998^.75
;;^UTILITY(U,$J,114,311,"I",7,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,311,"I",8,0)
;;=230^.03125^1598^.03125
;;^UTILITY(U,$J,114,311,"I",9,0)
;;=594^.04688^1986^.39688608
;;^UTILITY(U,$J,114,311,"I",10,0)
;;=534^3^1346^3
;;^UTILITY(U,$J,114,311,"I",11,0)
;;=391^.02344^6354
;;^UTILITY(U,$J,114,311,"I",12,0)
;;=158^4.1875^137^4.1875
;;^UTILITY(U,$J,114,311,"I",13,0)
;;=166^5.29688^1363^5.29688
;;^UTILITY(U,$J,114,311,"I",14,0)
;;=847^1.25^2021
;;^UTILITY(U,$J,114,311,"X",0)
;;=7^^11^11^2890815^^
;;^UTILITY(U,$J,114,311,"X",1,0)
;;=1) BROWN BEEF CUBES IN KETTLE. ADD ONIONS AND GARLIC. SIMMER APPROX.
;;^UTILITY(U,$J,114,311,"X",2,0)
;;= 1.5 HR OR UNTIL MEAT IS TENDER. DRAIN OFF EXCESS FAT.
;;^UTILITY(U,$J,114,311,"X",3,0)
;;=2) COMBINE COLD WATER, BEEF BASE AND FLOUR IN KETTLE. BLEND THOROUGHLY.
;;^UTILITY(U,$J,114,311,"X",4,0)
;;=3) ADD PEPPR, SALT, VINEGAR, MUSHROOMS(DRAINED), WORCESTERSHIRE SAUCE
;;^UTILITY(U,$J,114,311,"X",5,0)
;;= AND EVAPORATED MILK TO GRAVY. COOK TOGETHER. STIRRING CONSTANTLY,
;;^UTILITY(U,$J,114,311,"X",6,0)
;;= UNTIL MIXTURE IS THICKENED, APPROX. 10 MIN.
;;^UTILITY(U,$J,114,311,"X",7,0)
;;=4) POUR SAUCE OVER COOKED BEEF CUBES. BAKE AT 350 DEGREES UNTIL
;;^UTILITY(U,$J,114,311,"X",8,0)
;;= MIXTURE IS HEATED THROUGH.
;;^UTILITY(U,$J,114,311,"X",9,0)
;;=5) BOIL REMAINING WATER. DROP NOODLES INTO WATER. COOK UNTIL TENDER.
;;^UTILITY(U,$J,114,311,"X",10,0)
;;= DO NOT OVERCOOK. DRAIN AND RINSE NOODLES.
;;^UTILITY(U,$J,114,311,"X",11,0)
;;=6) SERVE BEEF STROGANOFF OVER 1/2 CUP NOODLES.
;;^UTILITY(U,$J,114,312,0)
;;=CREAMED SPINACH^120^3-OZ^30 MIN^^^9^Y^V-56^^S^^.013
;;^UTILITY(U,$J,114,312,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,312,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,312,"I",0)
;;=^114.01PA^7^7
;;^UTILITY(U,$J,114,312,"I",1,0)
;;=297^.5^372^.5
;;^UTILITY(U,$J,114,312,"I",2,0)
;;=628^.25^1998^.25
;;^UTILITY(U,$J,114,312,"I",3,0)
;;=157^.70313^138^.70313
;;^UTILITY(U,$J,114,312,"I",4,0)
;;=158^2^137^2
;;^UTILITY(U,$J,114,312,"I",5,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,312,"I",6,0)
;;=391^.0026^6354
;;^UTILITY(U,$J,114,312,"I",7,0)
;;=602^18^1871^18
;;^UTILITY(U,$J,114,312,"X",0)
;;=^^9^9^2890725^
;;^UTILITY(U,$J,114,312,"X",1,0)
;;=1) MELT MARGARINE. STIR IN FLOUR. COOK TO FORM ROUX.
;;^UTILITY(U,$J,114,312,"X",2,0)
;;= DO NOT BROWN. RETAIN FOR STEP 3.
;;^UTILITY(U,$J,114,312,"X",3,0)
;;=2) RECONSTITUTE MILK. COMBINE WITH EVAPORATED MILK, SALT AND
;;^UTILITY(U,$J,114,312,"X",4,0)
;;= WORCESTERSHIRE SAUCE. BLEND THOROUGHLY.
;;^UTILITY(U,$J,114,312,"X",5,0)
;;=3) STIR MILK MIXTURE INTO ROUX FROM STEP 1. COOK FOR 5 MINUTES
;;^UTILITY(U,$J,114,312,"X",6,0)
;;= UNTIL SMOOTH AND THICKENED. RETAIN FOR STEP 5.
;;^UTILITY(U,$J,114,312,"X",7,0)
;;=4) COOK SPINACH UNTIL TENDER. DRAIN.
;;^UTILITY(U,$J,114,312,"X",8,0)
;;=5) COMBINE SPINACH WITH CREAM SAUCE FROM STEP 3; MIX TO DISTRIBUTE.
FHINI0JO ; ; 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,309,"X",11,0)
+2 ;;= DROP DUMPLINGS INTO A PAN OF BOILING SALTED STOCK. COOK UNTIL JUST
+3 ;;^UTILITY(U,$J,114,309,"X",12,0)
+4 ;;= TENDER. PLACE IN PAN WITH CHICKEN AND SAUCE FOR SERVICE.
+5 ;;^UTILITY(U,$J,114,310,0)
+6 ;;=SEASONED MUSTARD GREENS^75^3-OZ^15 MIN^^^9^Y^V-52^^S^^.001
+7 ;;^UTILITY(U,$J,114,310,"E",0)
+8 ;;=^114.05P^1^1
+9 ;;^UTILITY(U,$J,114,310,"E",1,0)
+10 ;;=6
+11 ;;^UTILITY(U,$J,114,310,"I",0)
+12 ;;=^114.01PA^4^4
+13 ;;^UTILITY(U,$J,114,310,"I",1,0)
+14 ;;=1009^.5^243^.5
+15 ;;^UTILITY(U,$J,114,310,"I",2,0)
+16 ;;=230^.0625^1598^.0625
+17 ;;^UTILITY(U,$J,114,310,"I",3,0)
+18 ;;=801^12^1353^12
+19 ;;^UTILITY(U,$J,114,310,"I",4,0)
+20 ;;=192^.01563^288^.01563
+21 ;;^UTILITY(U,$J,114,310,"X",0)
+22 ;;=^^4^4^2890725^
+23 ;;^UTILITY(U,$J,114,310,"X",1,0)
+24 ;;=1) ADD SALT AND SALT PORK TO WATER AND BRING TO BOIL.
+25 ;;^UTILITY(U,$J,114,310,"X",2,0)
+26 ;;=2) ADD MUSTARD GREENS TO BOILING MIXTURE; RETURN TO SLOW BOIL
+27 ;;^UTILITY(U,$J,114,310,"X",3,0)
+28 ;;= AND COOK UNCOVERED FOR 30 MINUTES OR UNTIL TENDER. DRAIN.
+29 ;;^UTILITY(U,$J,114,310,"X",4,0)
+30 ;;=3) CUT THROUGH GREENS SEVERAL TIMES AND SPRINKLE WITH PEPPER.
+31 ;;^UTILITY(U,$J,114,311,0)
+32 ;;=BEEF STROGANOFF^100^3-OZ RAW^4 HR^^10^4^Y^E-127^^S^^.107
+33 ;;^UTILITY(U,$J,114,311,"E",0)
+34 ;;=^114.05P^1^1
+35 ;;^UTILITY(U,$J,114,311,"E",1,0)
+36 ;;=5
+37 ;;^UTILITY(U,$J,114,311,"I",0)
+38 ;;=^114.01PA^14^14
+39 ;;^UTILITY(U,$J,114,311,"I",1,0)
+40 ;;=372^18.25^2125^10.7675
+41 ;;^UTILITY(U,$J,114,311,"I",2,0)
+42 ;;=877^2^1378^1.8
+43 ;;^UTILITY(U,$J,114,311,"I",3,0)
+44 ;;=129^.01563^278^.01563
+45 ;;^UTILITY(U,$J,114,311,"I",4,0)
+46 ;;=235^.375
+47 ;;^UTILITY(U,$J,114,311,"I",5,0)
+48 ;;=1005^1.375^2021^11.495
+49 ;;^UTILITY(U,$J,114,311,"I",6,0)
+50 ;;=628^.75^1998^.75
+51 ;;^UTILITY(U,$J,114,311,"I",7,0)
+52 ;;=192^.01563^288^.01563
+53 ;;^UTILITY(U,$J,114,311,"I",8,0)
+54 ;;=230^.03125^1598^.03125
+55 ;;^UTILITY(U,$J,114,311,"I",9,0)
+56 ;;=594^.04688^1986^.39688608
+57 ;;^UTILITY(U,$J,114,311,"I",10,0)
+58 ;;=534^3^1346^3
+59 ;;^UTILITY(U,$J,114,311,"I",11,0)
+60 ;;=391^.02344^6354
+61 ;;^UTILITY(U,$J,114,311,"I",12,0)
+62 ;;=158^4.1875^137^4.1875
+63 ;;^UTILITY(U,$J,114,311,"I",13,0)
+64 ;;=166^5.29688^1363^5.29688
+65 ;;^UTILITY(U,$J,114,311,"I",14,0)
+66 ;;=847^1.25^2021
+67 ;;^UTILITY(U,$J,114,311,"X",0)
+68 ;;=7^^11^11^2890815^^
+69 ;;^UTILITY(U,$J,114,311,"X",1,0)
+70 ;;=1) BROWN BEEF CUBES IN KETTLE. ADD ONIONS AND GARLIC. SIMMER APPROX.
+71 ;;^UTILITY(U,$J,114,311,"X",2,0)
+72 ;;= 1.5 HR OR UNTIL MEAT IS TENDER. DRAIN OFF EXCESS FAT.
+73 ;;^UTILITY(U,$J,114,311,"X",3,0)
+74 ;;=2) COMBINE COLD WATER, BEEF BASE AND FLOUR IN KETTLE. BLEND THOROUGHLY.
+75 ;;^UTILITY(U,$J,114,311,"X",4,0)
+76 ;;=3) ADD PEPPR, SALT, VINEGAR, MUSHROOMS(DRAINED), WORCESTERSHIRE SAUCE
+77 ;;^UTILITY(U,$J,114,311,"X",5,0)
+78 ;;= AND EVAPORATED MILK TO GRAVY. COOK TOGETHER. STIRRING CONSTANTLY,
+79 ;;^UTILITY(U,$J,114,311,"X",6,0)
+80 ;;= UNTIL MIXTURE IS THICKENED, APPROX. 10 MIN.
+81 ;;^UTILITY(U,$J,114,311,"X",7,0)
+82 ;;=4) POUR SAUCE OVER COOKED BEEF CUBES. BAKE AT 350 DEGREES UNTIL
+83 ;;^UTILITY(U,$J,114,311,"X",8,0)
+84 ;;= MIXTURE IS HEATED THROUGH.
+85 ;;^UTILITY(U,$J,114,311,"X",9,0)
+86 ;;=5) BOIL REMAINING WATER. DROP NOODLES INTO WATER. COOK UNTIL TENDER.
+87 ;;^UTILITY(U,$J,114,311,"X",10,0)
+88 ;;= DO NOT OVERCOOK. DRAIN AND RINSE NOODLES.
+89 ;;^UTILITY(U,$J,114,311,"X",11,0)
+90 ;;=6) SERVE BEEF STROGANOFF OVER 1/2 CUP NOODLES.
+91 ;;^UTILITY(U,$J,114,312,0)
+92 ;;=CREAMED SPINACH^120^3-OZ^30 MIN^^^9^Y^V-56^^S^^.013
+93 ;;^UTILITY(U,$J,114,312,"E",0)
+94 ;;=^114.05P^1^1
+95 ;;^UTILITY(U,$J,114,312,"E",1,0)
+96 ;;=6
+97 ;;^UTILITY(U,$J,114,312,"I",0)
+98 ;;=^114.01PA^7^7
+99 ;;^UTILITY(U,$J,114,312,"I",1,0)
+100 ;;=297^.5^372^.5
+101 ;;^UTILITY(U,$J,114,312,"I",2,0)
+102 ;;=628^.25^1998^.25
+103 ;;^UTILITY(U,$J,114,312,"I",3,0)
+104 ;;=157^.70313^138^.70313
+105 ;;^UTILITY(U,$J,114,312,"I",4,0)
+106 ;;=158^2^137^2
+107 ;;^UTILITY(U,$J,114,312,"I",5,0)
+108 ;;=230^.125^1598^.125
+109 ;;^UTILITY(U,$J,114,312,"I",6,0)
+110 ;;=391^.0026^6354
+111 ;;^UTILITY(U,$J,114,312,"I",7,0)
+112 ;;=602^18^1871^18
+113 ;;^UTILITY(U,$J,114,312,"X",0)
+114 ;;=^^9^9^2890725^
+115 ;;^UTILITY(U,$J,114,312,"X",1,0)
+116 ;;=1) MELT MARGARINE. STIR IN FLOUR. COOK TO FORM ROUX.
+117 ;;^UTILITY(U,$J,114,312,"X",2,0)
+118 ;;= DO NOT BROWN. RETAIN FOR STEP 3.
+119 ;;^UTILITY(U,$J,114,312,"X",3,0)
+120 ;;=2) RECONSTITUTE MILK. COMBINE WITH EVAPORATED MILK, SALT AND
+121 ;;^UTILITY(U,$J,114,312,"X",4,0)
+122 ;;= WORCESTERSHIRE SAUCE. BLEND THOROUGHLY.
+123 ;;^UTILITY(U,$J,114,312,"X",5,0)
+124 ;;=3) STIR MILK MIXTURE INTO ROUX FROM STEP 1. COOK FOR 5 MINUTES
+125 ;;^UTILITY(U,$J,114,312,"X",6,0)
+126 ;;= UNTIL SMOOTH AND THICKENED. RETAIN FOR STEP 5.
+127 ;;^UTILITY(U,$J,114,312,"X",7,0)
+128 ;;=4) COOK SPINACH UNTIL TENDER. DRAIN.
+129 ;;^UTILITY(U,$J,114,312,"X",8,0)
+130 ;;=5) COMBINE SPINACH WITH CREAM SAUCE FROM STEP 3; MIX TO DISTRIBUTE.
