FHINI0JD ; ; 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,272,"X",6,0)
;;=5) ADD BEETS FROM STEP 1 TO MIXTURE. HEAT THOROUGHLY.
;;^UTILITY(U,$J,114,273,0)
;;=BLAND LS GRLD/BKD LIVER^100^3-OZ RAW^27 MIN^^1^4^Y^E-204^^S^^.001
;;^UTILITY(U,$J,114,273,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,273,"E",1,0)
;;=2
;;^UTILITY(U,$J,114,273,"I",0)
;;=^114.01PA^3^3
;;^UTILITY(U,$J,114,273,"I",1,0)
;;=628^.75^1998^.75
;;^UTILITY(U,$J,114,273,"I",2,0)
;;=881^20^1310^20
;;^UTILITY(U,$J,114,273,"I",3,0)
;;=290^.25
;;^UTILITY(U,$J,114,273,"X",0)
;;=^^5^5^2890725^
;;^UTILITY(U,$J,114,273,"X",1,0)
;;=1) DREDGE LIVER IN FLOUR; SHAKE OFF EXCESS.
;;^UTILITY(U,$J,114,273,"X",2,0)
;;=2) GRILL LIVER ON BOTH SIDES ON LIGHTLY GREASED GRIDDLE UNTIL BROWNED
;;^UTILITY(U,$J,114,273,"X",3,0)
;;= AND COOKED.
;;^UTILITY(U,$J,114,273,"X",4,0)
;;= ALTERNATE PROCEDURE: PAN FLOURED LIVER IN WELL-GREASED SHEET PANS.
;;^UTILITY(U,$J,114,273,"X",5,0)
;;= BAKE AT 375 F FOR 15 MINUTES OR UNTIL BROWNED AND COOKED.
;;^UTILITY(U,$J,114,274,0)
;;=PEPPER STEAK^100^1-EACH^3.5 HR^^12^4^Y^E-111^^S^^.032
;;^UTILITY(U,$J,114,274,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,274,"E",1,0)
;;=2
;;^UTILITY(U,$J,114,274,"E",2,0)
;;=33
;;^UTILITY(U,$J,114,274,"I",0)
;;=^114.01PA^14^12
;;^UTILITY(U,$J,114,274,"I",1,0)
;;=628^2^1998^2
;;^UTILITY(U,$J,114,274,"I",2,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,274,"I",3,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,274,"I",4,0)
;;=379^25^2125^14.75
;;^UTILITY(U,$J,114,274,"I",5,0)
;;=725^.28125^1384^.28125
;;^UTILITY(U,$J,114,274,"I",6,0)
;;=403^.15625
;;^UTILITY(U,$J,114,274,"I",7,0)
;;=847^.5^2021
;;^UTILITY(U,$J,114,274,"I",8,0)
;;=129^.01563^278^.01563
;;^UTILITY(U,$J,114,274,"I",9,0)
;;=297^1^372^1
;;^UTILITY(U,$J,114,274,"I",10,0)
;;=593^6.5625^1950^6.5625
;;^UTILITY(U,$J,114,274,"I",11,0)
;;=1007^1
;;^UTILITY(U,$J,114,274,"I",14,0)
;;=391^.04688^6354
;;^UTILITY(U,$J,114,274,"X",0)
;;=^^9^9^2890801^^
;;^UTILITY(U,$J,114,274,"X",1,0)
;;=1) COMBINE FIRST LISTING SALT AND PEPPER WITH FLOUR. DREDGE STEAKS IN MIXTURE.
;;^UTILITY(U,$J,114,274,"X",2,0)
;;=2) BROWN STEAKS ON BOTH SIDES ON GRILL. PLACE IN PANS. SET ASIDE.
;;^UTILITY(U,$J,114,274,"X",3,0)
;;=3) RECONSTITUTE PEPPERS AND ONIONS IN WATER.
;;^UTILITY(U,$J,114,274,"X",4,0)
;;=4) ADD GARLIC TO PEPPERS AND ONIONS. SAUTE MIXTURE IN MARGARINE UNTIL TENDER.
;;^UTILITY(U,$J,114,274,"X",5,0)
;;=5) COMBINE REMAINING INGREDIENTS WITH SAUTEED VEGETABLES, MIX THOROUGHLY.
;;^UTILITY(U,$J,114,274,"X",6,0)
;;=6) EVENLY DISTRIBUTE LIQUID AND VEGETABLES OVER BROWNED STEAKS IN PANS.
;;^UTILITY(U,$J,114,274,"X",7,0)
;;=7) COVER PANS AND BAKE AT 325 DEGREES FOR 2 HOURS. UNCOVER PANS AND CONTINUE
;;^UTILITY(U,$J,114,274,"X",8,0)
;;= BAKING FOR 30 MINUTES MORE, BASTING OCCAISIONALLY.
;;^UTILITY(U,$J,114,274,"X",9,0)
;;=8) SERVE SAUCE OVER STEAKS.
;;^UTILITY(U,$J,114,275,0)
;;=BROCCOLI POLONAISE^100^2-OZ^20 MIN^^^9^Y^P-21^^S
;;^UTILITY(U,$J,114,275,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,275,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,275,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,275,"I",1,0)
;;=345^12.5^836^12.5
;;^UTILITY(U,$J,114,275,"I",2,0)
;;=788^6^6498
;;^UTILITY(U,$J,114,275,"I",3,0)
;;=867^.28125^827^.28125
;;^UTILITY(U,$J,114,275,"I",4,0)
;;=297^.875^372^.875
;;^UTILITY(U,$J,114,275,"I",5,0)
;;=176^.125^287^.125
;;^UTILITY(U,$J,114,275,"X",0)
;;=^^6^6^2890725^
;;^UTILITY(U,$J,114,275,"X",1,0)
;;=1) COOK BROCCOLI IN SALTED WATER UNTIL JUST TENDER. DRAIN.
;;^UTILITY(U,$J,114,275,"X",2,0)
;;= PLACE IN PAN.
;;^UTILITY(U,$J,114,275,"X",3,0)
;;=2) COOK EGGS UNTIL HARD COOKED; COOL IN COLD WATER. PEEL AND
;;^UTILITY(U,$J,114,275,"X",4,0)
;;= CHOP EGGS. RETAIN FOR STEP 4.
;;^UTILITY(U,$J,114,275,"X",5,0)
;;=3) BROWN CRUMBS IN MARGARINE. POUR OVER COOKED BROCCOLI FROM STEP 1.
;;^UTILITY(U,$J,114,275,"X",6,0)
;;=4) GARNISH WITH CHOPPED EGG FROM STEP 2 AND PARSLEY.
;;^UTILITY(U,$J,114,276,0)
;;=ROAST FRESH HAM^100^4-OZ^4 HRS^^1^4^Y^E-164^^S^^.001
;;^UTILITY(U,$J,114,276,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,276,"E",1,0)
;;=33
;;^UTILITY(U,$J,114,276,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,276,"I",1,0)
;;=503^25^199^16.5
;;^UTILITY(U,$J,114,276,"I",2,0)
;;=129^.01042^278^.01042
;;^UTILITY(U,$J,114,276,"I",3,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,276,"I",4,0)
;;=173^.01042^285^.01042
;;^UTILITY(U,$J,114,276,"I",5,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,276,"X",0)
;;=^^5^5^2890725^
;;^UTILITY(U,$J,114,276,"X",1,0)
;;=1) MAKE "ADOBO" SEASONING BY MIXING GARLIC, SALT, OREGANO AND BLACK
FHINI0JD ; ; 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,272,"X",6,0)
+2 ;;=5) ADD BEETS FROM STEP 1 TO MIXTURE. HEAT THOROUGHLY.
+3 ;;^UTILITY(U,$J,114,273,0)
+4 ;;=BLAND LS GRLD/BKD LIVER^100^3-OZ RAW^27 MIN^^1^4^Y^E-204^^S^^.001
+5 ;;^UTILITY(U,$J,114,273,"E",0)
+6 ;;=^114.05P^1^1
+7 ;;^UTILITY(U,$J,114,273,"E",1,0)
+8 ;;=2
+9 ;;^UTILITY(U,$J,114,273,"I",0)
+10 ;;=^114.01PA^3^3
+11 ;;^UTILITY(U,$J,114,273,"I",1,0)
+12 ;;=628^.75^1998^.75
+13 ;;^UTILITY(U,$J,114,273,"I",2,0)
+14 ;;=881^20^1310^20
+15 ;;^UTILITY(U,$J,114,273,"I",3,0)
+16 ;;=290^.25
+17 ;;^UTILITY(U,$J,114,273,"X",0)
+18 ;;=^^5^5^2890725^
+19 ;;^UTILITY(U,$J,114,273,"X",1,0)
+20 ;;=1) DREDGE LIVER IN FLOUR; SHAKE OFF EXCESS.
+21 ;;^UTILITY(U,$J,114,273,"X",2,0)
+22 ;;=2) GRILL LIVER ON BOTH SIDES ON LIGHTLY GREASED GRIDDLE UNTIL BROWNED
+23 ;;^UTILITY(U,$J,114,273,"X",3,0)
+24 ;;= AND COOKED.
+25 ;;^UTILITY(U,$J,114,273,"X",4,0)
+26 ;;= ALTERNATE PROCEDURE: PAN FLOURED LIVER IN WELL-GREASED SHEET PANS.
+27 ;;^UTILITY(U,$J,114,273,"X",5,0)
+28 ;;= BAKE AT 375 F FOR 15 MINUTES OR UNTIL BROWNED AND COOKED.
+29 ;;^UTILITY(U,$J,114,274,0)
+30 ;;=PEPPER STEAK^100^1-EACH^3.5 HR^^12^4^Y^E-111^^S^^.032
+31 ;;^UTILITY(U,$J,114,274,"E",0)
+32 ;;=^114.05P^2^2
+33 ;;^UTILITY(U,$J,114,274,"E",1,0)
+34 ;;=2
+35 ;;^UTILITY(U,$J,114,274,"E",2,0)
+36 ;;=33
+37 ;;^UTILITY(U,$J,114,274,"I",0)
+38 ;;=^114.01PA^14^12
+39 ;;^UTILITY(U,$J,114,274,"I",1,0)
+40 ;;=628^2^1998^2
+41 ;;^UTILITY(U,$J,114,274,"I",2,0)
+42 ;;=230^.125^1598^.125
+43 ;;^UTILITY(U,$J,114,274,"I",3,0)
+44 ;;=192^.01563^288^.01563
+45 ;;^UTILITY(U,$J,114,274,"I",4,0)
+46 ;;=379^25^2125^14.75
+47 ;;^UTILITY(U,$J,114,274,"I",5,0)
+48 ;;=725^.28125^1384^.28125
+49 ;;^UTILITY(U,$J,114,274,"I",6,0)
+50 ;;=403^.15625
+51 ;;^UTILITY(U,$J,114,274,"I",7,0)
+52 ;;=847^.5^2021
+53 ;;^UTILITY(U,$J,114,274,"I",8,0)
+54 ;;=129^.01563^278^.01563
+55 ;;^UTILITY(U,$J,114,274,"I",9,0)
+56 ;;=297^1^372^1
+57 ;;^UTILITY(U,$J,114,274,"I",10,0)
+58 ;;=593^6.5625^1950^6.5625
+59 ;;^UTILITY(U,$J,114,274,"I",11,0)
+60 ;;=1007^1
+61 ;;^UTILITY(U,$J,114,274,"I",14,0)
+62 ;;=391^.04688^6354
+63 ;;^UTILITY(U,$J,114,274,"X",0)
+64 ;;=^^9^9^2890801^^
+65 ;;^UTILITY(U,$J,114,274,"X",1,0)
+66 ;;=1) COMBINE FIRST LISTING SALT AND PEPPER WITH FLOUR. DREDGE STEAKS IN MIXTURE.
+67 ;;^UTILITY(U,$J,114,274,"X",2,0)
+68 ;;=2) BROWN STEAKS ON BOTH SIDES ON GRILL. PLACE IN PANS. SET ASIDE.
+69 ;;^UTILITY(U,$J,114,274,"X",3,0)
+70 ;;=3) RECONSTITUTE PEPPERS AND ONIONS IN WATER.
+71 ;;^UTILITY(U,$J,114,274,"X",4,0)
+72 ;;=4) ADD GARLIC TO PEPPERS AND ONIONS. SAUTE MIXTURE IN MARGARINE UNTIL TENDER.
+73 ;;^UTILITY(U,$J,114,274,"X",5,0)
+74 ;;=5) COMBINE REMAINING INGREDIENTS WITH SAUTEED VEGETABLES, MIX THOROUGHLY.
+75 ;;^UTILITY(U,$J,114,274,"X",6,0)
+76 ;;=6) EVENLY DISTRIBUTE LIQUID AND VEGETABLES OVER BROWNED STEAKS IN PANS.
+77 ;;^UTILITY(U,$J,114,274,"X",7,0)
+78 ;;=7) COVER PANS AND BAKE AT 325 DEGREES FOR 2 HOURS. UNCOVER PANS AND CONTINUE
+79 ;;^UTILITY(U,$J,114,274,"X",8,0)
+80 ;;= BAKING FOR 30 MINUTES MORE, BASTING OCCAISIONALLY.
+81 ;;^UTILITY(U,$J,114,274,"X",9,0)
+82 ;;=8) SERVE SAUCE OVER STEAKS.
+83 ;;^UTILITY(U,$J,114,275,0)
+84 ;;=BROCCOLI POLONAISE^100^2-OZ^20 MIN^^^9^Y^P-21^^S
+85 ;;^UTILITY(U,$J,114,275,"E",0)
+86 ;;=^114.05P^1^1
+87 ;;^UTILITY(U,$J,114,275,"E",1,0)
+88 ;;=6
+89 ;;^UTILITY(U,$J,114,275,"I",0)
+90 ;;=^114.01PA^5^5
+91 ;;^UTILITY(U,$J,114,275,"I",1,0)
+92 ;;=345^12.5^836^12.5
+93 ;;^UTILITY(U,$J,114,275,"I",2,0)
+94 ;;=788^6^6498
+95 ;;^UTILITY(U,$J,114,275,"I",3,0)
+96 ;;=867^.28125^827^.28125
+97 ;;^UTILITY(U,$J,114,275,"I",4,0)
+98 ;;=297^.875^372^.875
+99 ;;^UTILITY(U,$J,114,275,"I",5,0)
+100 ;;=176^.125^287^.125
+101 ;;^UTILITY(U,$J,114,275,"X",0)
+102 ;;=^^6^6^2890725^
+103 ;;^UTILITY(U,$J,114,275,"X",1,0)
+104 ;;=1) COOK BROCCOLI IN SALTED WATER UNTIL JUST TENDER. DRAIN.
+105 ;;^UTILITY(U,$J,114,275,"X",2,0)
+106 ;;= PLACE IN PAN.
+107 ;;^UTILITY(U,$J,114,275,"X",3,0)
+108 ;;=2) COOK EGGS UNTIL HARD COOKED; COOL IN COLD WATER. PEEL AND
+109 ;;^UTILITY(U,$J,114,275,"X",4,0)
+110 ;;= CHOP EGGS. RETAIN FOR STEP 4.
+111 ;;^UTILITY(U,$J,114,275,"X",5,0)
+112 ;;=3) BROWN CRUMBS IN MARGARINE. POUR OVER COOKED BROCCOLI FROM STEP 1.
+113 ;;^UTILITY(U,$J,114,275,"X",6,0)
+114 ;;=4) GARNISH WITH CHOPPED EGG FROM STEP 2 AND PARSLEY.
+115 ;;^UTILITY(U,$J,114,276,0)
+116 ;;=ROAST FRESH HAM^100^4-OZ^4 HRS^^1^4^Y^E-164^^S^^.001
+117 ;;^UTILITY(U,$J,114,276,"E",0)
+118 ;;=^114.05P^1^1
+119 ;;^UTILITY(U,$J,114,276,"E",1,0)
+120 ;;=33
+121 ;;^UTILITY(U,$J,114,276,"I",0)
+122 ;;=^114.01PA^5^5
+123 ;;^UTILITY(U,$J,114,276,"I",1,0)
+124 ;;=503^25^199^16.5
+125 ;;^UTILITY(U,$J,114,276,"I",2,0)
+126 ;;=129^.01042^278^.01042
+127 ;;^UTILITY(U,$J,114,276,"I",3,0)
+128 ;;=230^.1875^1598^.1875
+129 ;;^UTILITY(U,$J,114,276,"I",4,0)
+130 ;;=173^.01042^285^.01042
+131 ;;^UTILITY(U,$J,114,276,"I",5,0)
+132 ;;=192^.01563^288^.01563
+133 ;;^UTILITY(U,$J,114,276,"X",0)
+134 ;;=^^5^5^2890725^
+135 ;;^UTILITY(U,$J,114,276,"X",1,0)
+136 ;;=1) MAKE "ADOBO" SEASONING BY MIXING GARLIC, SALT, OREGANO AND BLACK
