Routine: FHINI0JS

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

FHINI0JS.m