FHINI0JS ; ; 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,322,"X",6,0)
;;=4) PARTIALLY COOK BACON, PLACE ONE STRIP ON TOP OF FILLING ON EACH HALF
;;^UTILITY(U,$J,114,322,"X",7,0)
;;= ROLL.
;;^UTILITY(U,$J,114,322,"X",8,0)
;;=5) BAKE (350F) UNTIL CHEESE MELTS AND BACON IS GOLDEN BROWN (20-30 MINUTES).
;;^UTILITY(U,$J,114,323,0)
;;=BRAISED BEEF CUBES^100^4-OZ RAW^3 HR^^9^4^Y^E-131^^S^^.066
;;^UTILITY(U,$J,114,323,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,323,"E",1,0)
;;=33
;;^UTILITY(U,$J,114,323,"I",0)
;;=^114.01PA^13^13
;;^UTILITY(U,$J,114,323,"I",1,0)
;;=372^24^2125^14.16
;;^UTILITY(U,$J,114,323,"I",2,0)
;;=289^.375^363^.375
;;^UTILITY(U,$J,114,323,"I",3,0)
;;=725^.25^1384^.25
;;^UTILITY(U,$J,114,323,"I",4,0)
;;=1005^.25^2021^2.09
;;^UTILITY(U,$J,114,323,"I",5,0)
;;=776^1.5^951^1.5
;;^UTILITY(U,$J,114,323,"I",6,0)
;;=534^1.5^1346^1.5
;;^UTILITY(U,$J,114,323,"I",7,0)
;;=297^.375^372^.375
;;^UTILITY(U,$J,114,323,"I",8,0)
;;=628^.8125^1998^.8125
;;^UTILITY(U,$J,114,323,"I",9,0)
;;=230^.375^1598^.375
;;^UTILITY(U,$J,114,323,"I",10,0)
;;=256^.125^1906^.125
;;^UTILITY(U,$J,114,323,"I",11,0)
;;=847^.25^2021
;;^UTILITY(U,$J,114,323,"I",12,0)
;;=273^9.875^1932^9.875
;;^UTILITY(U,$J,114,323,"I",13,0)
;;=573^1.75^1938^1.75
;;^UTILITY(U,$J,114,323,"X",0)
;;=8^^11^11^2890801^^
;;^UTILITY(U,$J,114,323,"X",1,0)
;;=1) PLACE BEEF CUBES IN PANS. BROWN IN OVEN AT 350 DEGREES FOR 30 MIN.
;;^UTILITY(U,$J,114,323,"X",2,0)
;;= DO NOT DRAIN.
;;^UTILITY(U,$J,114,323,"X",3,0)
;;=2) RECONSTITUTE ONIONS IN COLD WATER. DRAIN MUSHROOMS AND RESERVE LIQUID.
;;^UTILITY(U,$J,114,323,"X",4,0)
;;= SAUTE VEGETABLES IN MARGARINE FOR 10 MINUTES OR UNTIL ONIONS ARE CLEAR.
;;^UTILITY(U,$J,114,323,"X",5,0)
;;= REDUCE HEAT.
;;^UTILITY(U,$J,114,323,"X",6,0)
;;=3) COMBINE DRY INGREDIENTS. ADD WATER OR LIQUID FROM MUSHROOMS TO
;;^UTILITY(U,$J,114,323,"X",7,0)
;;= DRY MIX TO FORM PASTE. STIR INTO SAUTEED VEGETABLES.
;;^UTILITY(U,$J,114,323,"X",8,0)
;;= COOK FOR 10 MIN UNTIL THICKENED.
;;^UTILITY(U,$J,114,323,"X",9,0)
;;=4) ADD TOMATOES AND CATSUP TO COOKED VEGETABLE MIXTURE. MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,323,"X",10,0)
;;=5) POUR VEGETABLE SAUCE OVER BEEF CUBES. MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,323,"X",11,0)
;;=6) BAKE AT 350 DEGREES UNTIL MEAT IS TENDER, APPROX. 90 MIN.
;;^UTILITY(U,$J,114,324,0)
;;=CHICKEN ALA MARYLAND^100^8-OZ RAW^2 HOURS^^12^4^Y^E-216^^S^^.049
;;^UTILITY(U,$J,114,324,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,324,"E",1,0)
;;=25
;;^UTILITY(U,$J,114,324,"E",2,0)
;;=33
;;^UTILITY(U,$J,114,324,"I",0)
;;=^114.01PA^13^11
;;^UTILITY(U,$J,114,324,"I",1,0)
;;=474^50^401^33.5
;;^UTILITY(U,$J,114,324,"I",2,0)
;;=628^4^1998^4
;;^UTILITY(U,$J,114,324,"I",3,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,324,"I",4,0)
;;=192^.04688^288^.04688
;;^UTILITY(U,$J,114,324,"I",5,0)
;;=924^.01563^286^.01563
;;^UTILITY(U,$J,114,324,"I",6,0)
;;=788^24^6498
;;^UTILITY(U,$J,114,324,"I",7,0)
;;=157^.75^138^.75
;;^UTILITY(U,$J,114,324,"I",8,0)
;;=1005^.625^2021^5.225
;;^UTILITY(U,$J,114,324,"I",9,0)
;;=867^6^827^6
;;^UTILITY(U,$J,114,324,"I",10,0)
;;=297^3^372^3
;;^UTILITY(U,$J,114,324,"I",13,0)
;;=847^3.375^2021
;;^UTILITY(U,$J,114,324,"X",0)
;;=^^13^13^2890725^^^^
;;^UTILITY(U,$J,114,324,"X",1,0)
;;=1) COMBINE FIRST ENTRY FLOUR, SALT, PEPPER, AND PAPRIKA AND BLEND. DREDGE
;;^UTILITY(U,$J,114,324,"X",2,0)
;;= CHICKEN IN MIXTURE.
;;^UTILITY(U,$J,114,324,"X",3,0)
;;=2) COMBINE EGGS WITH FIRST ENTRY OF NON-FAT DRIED MILK AND WATER AND BLEND.
;;^UTILITY(U,$J,114,324,"X",4,0)
;;= DIP FLOURED CHICKEN IN MIXTURE.
;;^UTILITY(U,$J,114,324,"X",5,0)
;;=3) ROLL CHICKEN IN BREAD CRUMBS; SHAKE OFF EXCESS.
;;^UTILITY(U,$J,114,324,"X",6,0)
;;=4) DEEP FAT FRY UNTIL GOLDEN BROWN. DRAIN OFF EXCESS FAT.
;;^UTILITY(U,$J,114,324,"X",7,0)
;;=5) TO MAKE CREAM SAUCE: COMBINE MARGARINE AND SECOND FLOUR ENTRY TO FORM
;;^UTILITY(U,$J,114,324,"X",8,0)
;;= ROUX. DO NOT BROWN!!!
;;^UTILITY(U,$J,114,324,"X",9,0)
;;=6) RECONSTITUTE SECOND MILK ENTRY. ADD TO ROUX, ALONG WITH SECOND SALT AND
;;^UTILITY(U,$J,114,324,"X",10,0)
;;= PEPPER ENTRIES. MIX TO DISTRIBUTE. COOK UNTIL MIXTURE IS THICKENED.
;;^UTILITY(U,$J,114,324,"X",11,0)
;;=7) PLACE FRIED CHICKEN IN MODULAR PANS. POUR CREAM SAUCE OVER CHICKEN.
;;^UTILITY(U,$J,114,324,"X",12,0)
;;= BAKE UNTIL CHICKEN IS TENDER.
;;^UTILITY(U,$J,114,324,"X",13,0)
;;= BAKE AT 325 F
;;^UTILITY(U,$J,114,325,0)
;;=DUTCH SWEET SAUERKRAUT^50^4-OZ^10 MIN^^^9^Y^V-73^^S^^.108
;;^UTILITY(U,$J,114,325,"E",0)
;;=^114.05P^1^1
FHINI0JS ; ; 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,322,"X",6,0)
+2 ;;=4) PARTIALLY COOK BACON, PLACE ONE STRIP ON TOP OF FILLING ON EACH HALF
+3 ;;^UTILITY(U,$J,114,322,"X",7,0)
+4 ;;= ROLL.
+5 ;;^UTILITY(U,$J,114,322,"X",8,0)
+6 ;;=5) BAKE (350F) UNTIL CHEESE MELTS AND BACON IS GOLDEN BROWN (20-30 MINUTES).
+7 ;;^UTILITY(U,$J,114,323,0)
+8 ;;=BRAISED BEEF CUBES^100^4-OZ RAW^3 HR^^9^4^Y^E-131^^S^^.066
+9 ;;^UTILITY(U,$J,114,323,"E",0)
+10 ;;=^114.05P^1^1
+11 ;;^UTILITY(U,$J,114,323,"E",1,0)
+12 ;;=33
+13 ;;^UTILITY(U,$J,114,323,"I",0)
+14 ;;=^114.01PA^13^13
+15 ;;^UTILITY(U,$J,114,323,"I",1,0)
+16 ;;=372^24^2125^14.16
+17 ;;^UTILITY(U,$J,114,323,"I",2,0)
+18 ;;=289^.375^363^.375
+19 ;;^UTILITY(U,$J,114,323,"I",3,0)
+20 ;;=725^.25^1384^.25
+21 ;;^UTILITY(U,$J,114,323,"I",4,0)
+22 ;;=1005^.25^2021^2.09
+23 ;;^UTILITY(U,$J,114,323,"I",5,0)
+24 ;;=776^1.5^951^1.5
+25 ;;^UTILITY(U,$J,114,323,"I",6,0)
+26 ;;=534^1.5^1346^1.5
+27 ;;^UTILITY(U,$J,114,323,"I",7,0)
+28 ;;=297^.375^372^.375
+29 ;;^UTILITY(U,$J,114,323,"I",8,0)
+30 ;;=628^.8125^1998^.8125
+31 ;;^UTILITY(U,$J,114,323,"I",9,0)
+32 ;;=230^.375^1598^.375
+33 ;;^UTILITY(U,$J,114,323,"I",10,0)
+34 ;;=256^.125^1906^.125
+35 ;;^UTILITY(U,$J,114,323,"I",11,0)
+36 ;;=847^.25^2021
+37 ;;^UTILITY(U,$J,114,323,"I",12,0)
+38 ;;=273^9.875^1932^9.875
+39 ;;^UTILITY(U,$J,114,323,"I",13,0)
+40 ;;=573^1.75^1938^1.75
+41 ;;^UTILITY(U,$J,114,323,"X",0)
+42 ;;=8^^11^11^2890801^^
+43 ;;^UTILITY(U,$J,114,323,"X",1,0)
+44 ;;=1) PLACE BEEF CUBES IN PANS. BROWN IN OVEN AT 350 DEGREES FOR 30 MIN.
+45 ;;^UTILITY(U,$J,114,323,"X",2,0)
+46 ;;= DO NOT DRAIN.
+47 ;;^UTILITY(U,$J,114,323,"X",3,0)
+48 ;;=2) RECONSTITUTE ONIONS IN COLD WATER. DRAIN MUSHROOMS AND RESERVE LIQUID.
+49 ;;^UTILITY(U,$J,114,323,"X",4,0)
+50 ;;= SAUTE VEGETABLES IN MARGARINE FOR 10 MINUTES OR UNTIL ONIONS ARE CLEAR.
+51 ;;^UTILITY(U,$J,114,323,"X",5,0)
+52 ;;= REDUCE HEAT.
+53 ;;^UTILITY(U,$J,114,323,"X",6,0)
+54 ;;=3) COMBINE DRY INGREDIENTS. ADD WATER OR LIQUID FROM MUSHROOMS TO
+55 ;;^UTILITY(U,$J,114,323,"X",7,0)
+56 ;;= DRY MIX TO FORM PASTE. STIR INTO SAUTEED VEGETABLES.
+57 ;;^UTILITY(U,$J,114,323,"X",8,0)
+58 ;;= COOK FOR 10 MIN UNTIL THICKENED.
+59 ;;^UTILITY(U,$J,114,323,"X",9,0)
+60 ;;=4) ADD TOMATOES AND CATSUP TO COOKED VEGETABLE MIXTURE. MIX TO DISTRIBUTE.
+61 ;;^UTILITY(U,$J,114,323,"X",10,0)
+62 ;;=5) POUR VEGETABLE SAUCE OVER BEEF CUBES. MIX TO DISTRIBUTE.
+63 ;;^UTILITY(U,$J,114,323,"X",11,0)
+64 ;;=6) BAKE AT 350 DEGREES UNTIL MEAT IS TENDER, APPROX. 90 MIN.
+65 ;;^UTILITY(U,$J,114,324,0)
+66 ;;=CHICKEN ALA MARYLAND^100^8-OZ RAW^2 HOURS^^12^4^Y^E-216^^S^^.049
+67 ;;^UTILITY(U,$J,114,324,"E",0)
+68 ;;=^114.05P^2^2
+69 ;;^UTILITY(U,$J,114,324,"E",1,0)
+70 ;;=25
+71 ;;^UTILITY(U,$J,114,324,"E",2,0)
+72 ;;=33
+73 ;;^UTILITY(U,$J,114,324,"I",0)
+74 ;;=^114.01PA^13^11
+75 ;;^UTILITY(U,$J,114,324,"I",1,0)
+76 ;;=474^50^401^33.5
+77 ;;^UTILITY(U,$J,114,324,"I",2,0)
+78 ;;=628^4^1998^4
+79 ;;^UTILITY(U,$J,114,324,"I",3,0)
+80 ;;=230^.1875^1598^.1875
+81 ;;^UTILITY(U,$J,114,324,"I",4,0)
+82 ;;=192^.04688^288^.04688
+83 ;;^UTILITY(U,$J,114,324,"I",5,0)
+84 ;;=924^.01563^286^.01563
+85 ;;^UTILITY(U,$J,114,324,"I",6,0)
+86 ;;=788^24^6498
+87 ;;^UTILITY(U,$J,114,324,"I",7,0)
+88 ;;=157^.75^138^.75
+89 ;;^UTILITY(U,$J,114,324,"I",8,0)
+90 ;;=1005^.625^2021^5.225
+91 ;;^UTILITY(U,$J,114,324,"I",9,0)
+92 ;;=867^6^827^6
+93 ;;^UTILITY(U,$J,114,324,"I",10,0)
+94 ;;=297^3^372^3
+95 ;;^UTILITY(U,$J,114,324,"I",13,0)
+96 ;;=847^3.375^2021
+97 ;;^UTILITY(U,$J,114,324,"X",0)
+98 ;;=^^13^13^2890725^^^^
+99 ;;^UTILITY(U,$J,114,324,"X",1,0)
+100 ;;=1) COMBINE FIRST ENTRY FLOUR, SALT, PEPPER, AND PAPRIKA AND BLEND. DREDGE
+101 ;;^UTILITY(U,$J,114,324,"X",2,0)
+102 ;;= CHICKEN IN MIXTURE.
+103 ;;^UTILITY(U,$J,114,324,"X",3,0)
+104 ;;=2) COMBINE EGGS WITH FIRST ENTRY OF NON-FAT DRIED MILK AND WATER AND BLEND.
+105 ;;^UTILITY(U,$J,114,324,"X",4,0)
+106 ;;= DIP FLOURED CHICKEN IN MIXTURE.
+107 ;;^UTILITY(U,$J,114,324,"X",5,0)
+108 ;;=3) ROLL CHICKEN IN BREAD CRUMBS; SHAKE OFF EXCESS.
+109 ;;^UTILITY(U,$J,114,324,"X",6,0)
+110 ;;=4) DEEP FAT FRY UNTIL GOLDEN BROWN. DRAIN OFF EXCESS FAT.
+111 ;;^UTILITY(U,$J,114,324,"X",7,0)
+112 ;;=5) TO MAKE CREAM SAUCE: COMBINE MARGARINE AND SECOND FLOUR ENTRY TO FORM
+113 ;;^UTILITY(U,$J,114,324,"X",8,0)
+114 ;;= ROUX. DO NOT BROWN!!!
+115 ;;^UTILITY(U,$J,114,324,"X",9,0)
+116 ;;=6) RECONSTITUTE SECOND MILK ENTRY. ADD TO ROUX, ALONG WITH SECOND SALT AND
+117 ;;^UTILITY(U,$J,114,324,"X",10,0)
+118 ;;= PEPPER ENTRIES. MIX TO DISTRIBUTE. COOK UNTIL MIXTURE IS THICKENED.
+119 ;;^UTILITY(U,$J,114,324,"X",11,0)
+120 ;;=7) PLACE FRIED CHICKEN IN MODULAR PANS. POUR CREAM SAUCE OVER CHICKEN.
+121 ;;^UTILITY(U,$J,114,324,"X",12,0)
+122 ;;= BAKE UNTIL CHICKEN IS TENDER.
+123 ;;^UTILITY(U,$J,114,324,"X",13,0)
+124 ;;= BAKE AT 325 F
+125 ;;^UTILITY(U,$J,114,325,0)
+126 ;;=DUTCH SWEET SAUERKRAUT^50^4-OZ^10 MIN^^^9^Y^V-73^^S^^.108
+127 ;;^UTILITY(U,$J,114,325,"E",0)
+128 ;;=^114.05P^1^1