FHINI0JG ; ; 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,283,"X",8,0)
;;= BAKE UNTIL FIRM (INSERTED KNIFE COMES OUT CLEAN).
;;^UTILITY(U,$J,114,284,0)
;;=SWISS STEAK W/TOMATOES^100^1-EACH^3.5 HR^^2^4^Y^E-116^^S^^.044
;;^UTILITY(U,$J,114,284,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,284,"E",1,0)
;;=2
;;^UTILITY(U,$J,114,284,"E",2,0)
;;=33
;;^UTILITY(U,$J,114,284,"I",0)
;;=^114.01PA^11^9
;;^UTILITY(U,$J,114,284,"I",1,0)
;;=379^25^2125^14.75
;;^UTILITY(U,$J,114,284,"I",2,0)
;;=628^.5^1998^.5
;;^UTILITY(U,$J,114,284,"I",3,0)
;;=230^.25^1598^.25
;;^UTILITY(U,$J,114,284,"I",4,0)
;;=192^.03125^288^.03125
;;^UTILITY(U,$J,114,284,"I",5,0)
;;=256^.25^1906^.25
;;^UTILITY(U,$J,114,284,"I",6,0)
;;=273^12.75^1932^12.75
;;^UTILITY(U,$J,114,284,"I",7,0)
;;=725^.5625^1384^.5625
;;^UTILITY(U,$J,114,284,"I",8,0)
;;=847^.75^2021
;;^UTILITY(U,$J,114,284,"I",11,0)
;;=1005^.125^2021^1.045
;;^UTILITY(U,$J,114,284,"X",0)
;;=^^9^9^2890801^^^
;;^UTILITY(U,$J,114,284,"X",1,0)
;;=1) COMBINE FIRST LISTING FLOUR, SALT, PEPPER, AND SUGAR.
;;^UTILITY(U,$J,114,284,"X",2,0)
;;= DREDGE STEAKS IN MIXTURE.
;;^UTILITY(U,$J,114,284,"X",3,0)
;;=2) BROWN STEAKS ON BOTH SIDES ON GRILL. PAN AND SET ASIDE.
;;^UTILITY(U,$J,114,284,"X",4,0)
;;=3) RECONSTITUTE ONIONS IN WATER. COMBINE WITH TOMATOES AND SALT
;;^UTILITY(U,$J,114,284,"X",5,0)
;;= (SECOND LISTING).
;;^UTILITY(U,$J,114,284,"X",6,0)
;;=4) COMBINE FLOUR(SECOND LISTING) WITH COLD WATER TO FORM SMOOTH PASTE.
;;^UTILITY(U,$J,114,284,"X",7,0)
;;= POUR MIXTURE OVER VEGETABLES, MIX THOROUGHLY.
;;^UTILITY(U,$J,114,284,"X",8,0)
;;=5) POUR LIQUID OVER PANNED STEAKS. COVER PANS AND BAKE AT 350 DEGREES
;;^UTILITY(U,$J,114,284,"X",9,0)
;;= UNTIL TENDER.
;;^UTILITY(U,$J,114,285,0)
;;=BAKED/GRILLED PORK CHOP - 2^100^1-EACH^2 HRS^^1^4^Y^E-168^^S^^.001
;;^UTILITY(U,$J,114,285,"E",0)
;;=^114.05P^3^3
;;^UTILITY(U,$J,114,285,"E",1,0)
;;=33
;;^UTILITY(U,$J,114,285,"E",2,0)
;;=26
;;^UTILITY(U,$J,114,285,"E",3,0)
;;=2
;;^UTILITY(U,$J,114,285,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,285,"I",1,0)
;;=504^36^161^29.16
;;^UTILITY(U,$J,114,285,"I",2,0)
;;=230^.28125^1598^.28125
;;^UTILITY(U,$J,114,285,"I",3,0)
;;=192^.00781^288^.00781
;;^UTILITY(U,$J,114,285,"I",4,0)
;;=129^.01042^278^.01042
;;^UTILITY(U,$J,114,285,"I",5,0)
;;=173^.01042^285^.01042
;;^UTILITY(U,$J,114,285,"X",0)
;;=^^7^7^2890725^
;;^UTILITY(U,$J,114,285,"X",1,0)
;;=1) MAKE "ADOBO" SEASONING BY COMBINING SALT, PEPPER, GARLIC POWDER AND
;;^UTILITY(U,$J,114,285,"X",2,0)
;;= OREGANO. BLEND SEASONINGS WELL.
;;^UTILITY(U,$J,114,285,"X",3,0)
;;=2) SPRINKLE OVER CHOPS AND LET STAND OVERNIGHT.
;;^UTILITY(U,$J,114,285,"X",4,0)
;;=3) NEXT DAY: PAN CHOPS AND BAKE AT 350 F DEGREES FOR ONE HOUR. REMOVE
;;^UTILITY(U,$J,114,285,"X",5,0)
;;= FROM PAN.
;;^UTILITY(U,$J,114,285,"X",6,0)
;;=4) GRILL CHOPS AT 350 F DEGREES FOR 30 MINUTES (15 MINUTES EACH SIDE)
;;^UTILITY(U,$J,114,285,"X",7,0)
;;= UNTIL BROWNED.
;;^UTILITY(U,$J,114,286,0)
;;=WAISTLINE BARBECUED CHICKEN^100^8-OZ RAW^3HR 20MIN^^1^4^Y^E-208^^S^^.043
;;^UTILITY(U,$J,114,286,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,286,"E",1,0)
;;=25
;;^UTILITY(U,$J,114,286,"E",2,0)
;;=33
;;^UTILITY(U,$J,114,286,"I",0)
;;=^114.01PA^11^11
;;^UTILITY(U,$J,114,286,"I",1,0)
;;=474^50^401^33.5
;;^UTILITY(U,$J,114,286,"I",2,0)
;;=230^.25^1598^.25
;;^UTILITY(U,$J,114,286,"I",3,0)
;;=192^.00781^288^.00781
;;^UTILITY(U,$J,114,286,"I",4,0)
;;=377^.09375^2873^.7209375
;;^UTILITY(U,$J,114,286,"I",5,0)
;;=412^1.5^1942^12.9105
;;^UTILITY(U,$J,114,286,"I",6,0)
;;=431^.0625^1987^.529125
;;^UTILITY(U,$J,114,286,"I",7,0)
;;=256^.375^1906^.375
;;^UTILITY(U,$J,114,286,"I",8,0)
;;=877^1.5^1378^1.35
;;^UTILITY(U,$J,114,286,"I",9,0)
;;=391^.07813^6354
;;^UTILITY(U,$J,114,286,"I",10,0)
;;=573^1.5^1938^1.5
;;^UTILITY(U,$J,114,286,"I",11,0)
;;=382^.125
;;^UTILITY(U,$J,114,286,"X",0)
;;=^^6^6^2890815^^^^
;;^UTILITY(U,$J,114,286,"X",1,0)
;;=1) PLACE QUARTERED CHICKEN IN BAKING PAN. SEASON AND BRUSH WITH OIL.
;;^UTILITY(U,$J,114,286,"X",2,0)
;;= BROIL 15 MINUTES.
;;^UTILITY(U,$J,114,286,"X",3,0)
;;=2) COMBINE ALL INGREDIENTS AND POUR OVER CHICKEN.
;;^UTILITY(U,$J,114,286,"X",4,0)
;;=3) COVER AND BAKE FOR 2 HOURS IN ROTARY OVEN, BASTING EVERY 15 MINUTES
;;^UTILITY(U,$J,114,286,"X",5,0)
;;= WITH SAUCE.
;;^UTILITY(U,$J,114,286,"X",6,0)
;;=4) BAKE AT 375 F.
;;^UTILITY(U,$J,114,287,0)
;;=GLAZED CARROTS^70^2.5-OZ^30 MIN^^^9^Y^V-32^^S^^.005
;;^UTILITY(U,$J,114,287,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,287,"E",1,0)
;;=25
FHINI0JG ; ; 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,283,"X",8,0)
+2 ;;= BAKE UNTIL FIRM (INSERTED KNIFE COMES OUT CLEAN).
+3 ;;^UTILITY(U,$J,114,284,0)
+4 ;;=SWISS STEAK W/TOMATOES^100^1-EACH^3.5 HR^^2^4^Y^E-116^^S^^.044
+5 ;;^UTILITY(U,$J,114,284,"E",0)
+6 ;;=^114.05P^2^2
+7 ;;^UTILITY(U,$J,114,284,"E",1,0)
+8 ;;=2
+9 ;;^UTILITY(U,$J,114,284,"E",2,0)
+10 ;;=33
+11 ;;^UTILITY(U,$J,114,284,"I",0)
+12 ;;=^114.01PA^11^9
+13 ;;^UTILITY(U,$J,114,284,"I",1,0)
+14 ;;=379^25^2125^14.75
+15 ;;^UTILITY(U,$J,114,284,"I",2,0)
+16 ;;=628^.5^1998^.5
+17 ;;^UTILITY(U,$J,114,284,"I",3,0)
+18 ;;=230^.25^1598^.25
+19 ;;^UTILITY(U,$J,114,284,"I",4,0)
+20 ;;=192^.03125^288^.03125
+21 ;;^UTILITY(U,$J,114,284,"I",5,0)
+22 ;;=256^.25^1906^.25
+23 ;;^UTILITY(U,$J,114,284,"I",6,0)
+24 ;;=273^12.75^1932^12.75
+25 ;;^UTILITY(U,$J,114,284,"I",7,0)
+26 ;;=725^.5625^1384^.5625
+27 ;;^UTILITY(U,$J,114,284,"I",8,0)
+28 ;;=847^.75^2021
+29 ;;^UTILITY(U,$J,114,284,"I",11,0)
+30 ;;=1005^.125^2021^1.045
+31 ;;^UTILITY(U,$J,114,284,"X",0)
+32 ;;=^^9^9^2890801^^^
+33 ;;^UTILITY(U,$J,114,284,"X",1,0)
+34 ;;=1) COMBINE FIRST LISTING FLOUR, SALT, PEPPER, AND SUGAR.
+35 ;;^UTILITY(U,$J,114,284,"X",2,0)
+36 ;;= DREDGE STEAKS IN MIXTURE.
+37 ;;^UTILITY(U,$J,114,284,"X",3,0)
+38 ;;=2) BROWN STEAKS ON BOTH SIDES ON GRILL. PAN AND SET ASIDE.
+39 ;;^UTILITY(U,$J,114,284,"X",4,0)
+40 ;;=3) RECONSTITUTE ONIONS IN WATER. COMBINE WITH TOMATOES AND SALT
+41 ;;^UTILITY(U,$J,114,284,"X",5,0)
+42 ;;= (SECOND LISTING).
+43 ;;^UTILITY(U,$J,114,284,"X",6,0)
+44 ;;=4) COMBINE FLOUR(SECOND LISTING) WITH COLD WATER TO FORM SMOOTH PASTE.
+45 ;;^UTILITY(U,$J,114,284,"X",7,0)
+46 ;;= POUR MIXTURE OVER VEGETABLES, MIX THOROUGHLY.
+47 ;;^UTILITY(U,$J,114,284,"X",8,0)
+48 ;;=5) POUR LIQUID OVER PANNED STEAKS. COVER PANS AND BAKE AT 350 DEGREES
+49 ;;^UTILITY(U,$J,114,284,"X",9,0)
+50 ;;= UNTIL TENDER.
+51 ;;^UTILITY(U,$J,114,285,0)
+52 ;;=BAKED/GRILLED PORK CHOP - 2^100^1-EACH^2 HRS^^1^4^Y^E-168^^S^^.001
+53 ;;^UTILITY(U,$J,114,285,"E",0)
+54 ;;=^114.05P^3^3
+55 ;;^UTILITY(U,$J,114,285,"E",1,0)
+56 ;;=33
+57 ;;^UTILITY(U,$J,114,285,"E",2,0)
+58 ;;=26
+59 ;;^UTILITY(U,$J,114,285,"E",3,0)
+60 ;;=2
+61 ;;^UTILITY(U,$J,114,285,"I",0)
+62 ;;=^114.01PA^5^5
+63 ;;^UTILITY(U,$J,114,285,"I",1,0)
+64 ;;=504^36^161^29.16
+65 ;;^UTILITY(U,$J,114,285,"I",2,0)
+66 ;;=230^.28125^1598^.28125
+67 ;;^UTILITY(U,$J,114,285,"I",3,0)
+68 ;;=192^.00781^288^.00781
+69 ;;^UTILITY(U,$J,114,285,"I",4,0)
+70 ;;=129^.01042^278^.01042
+71 ;;^UTILITY(U,$J,114,285,"I",5,0)
+72 ;;=173^.01042^285^.01042
+73 ;;^UTILITY(U,$J,114,285,"X",0)
+74 ;;=^^7^7^2890725^
+75 ;;^UTILITY(U,$J,114,285,"X",1,0)
+76 ;;=1) MAKE "ADOBO" SEASONING BY COMBINING SALT, PEPPER, GARLIC POWDER AND
+77 ;;^UTILITY(U,$J,114,285,"X",2,0)
+78 ;;= OREGANO. BLEND SEASONINGS WELL.
+79 ;;^UTILITY(U,$J,114,285,"X",3,0)
+80 ;;=2) SPRINKLE OVER CHOPS AND LET STAND OVERNIGHT.
+81 ;;^UTILITY(U,$J,114,285,"X",4,0)
+82 ;;=3) NEXT DAY: PAN CHOPS AND BAKE AT 350 F DEGREES FOR ONE HOUR. REMOVE
+83 ;;^UTILITY(U,$J,114,285,"X",5,0)
+84 ;;= FROM PAN.
+85 ;;^UTILITY(U,$J,114,285,"X",6,0)
+86 ;;=4) GRILL CHOPS AT 350 F DEGREES FOR 30 MINUTES (15 MINUTES EACH SIDE)
+87 ;;^UTILITY(U,$J,114,285,"X",7,0)
+88 ;;= UNTIL BROWNED.
+89 ;;^UTILITY(U,$J,114,286,0)
+90 ;;=WAISTLINE BARBECUED CHICKEN^100^8-OZ RAW^3HR 20MIN^^1^4^Y^E-208^^S^^.043
+91 ;;^UTILITY(U,$J,114,286,"E",0)
+92 ;;=^114.05P^2^2
+93 ;;^UTILITY(U,$J,114,286,"E",1,0)
+94 ;;=25
+95 ;;^UTILITY(U,$J,114,286,"E",2,0)
+96 ;;=33
+97 ;;^UTILITY(U,$J,114,286,"I",0)
+98 ;;=^114.01PA^11^11
+99 ;;^UTILITY(U,$J,114,286,"I",1,0)
+100 ;;=474^50^401^33.5
+101 ;;^UTILITY(U,$J,114,286,"I",2,0)
+102 ;;=230^.25^1598^.25
+103 ;;^UTILITY(U,$J,114,286,"I",3,0)
+104 ;;=192^.00781^288^.00781
+105 ;;^UTILITY(U,$J,114,286,"I",4,0)
+106 ;;=377^.09375^2873^.7209375
+107 ;;^UTILITY(U,$J,114,286,"I",5,0)
+108 ;;=412^1.5^1942^12.9105
+109 ;;^UTILITY(U,$J,114,286,"I",6,0)
+110 ;;=431^.0625^1987^.529125
+111 ;;^UTILITY(U,$J,114,286,"I",7,0)
+112 ;;=256^.375^1906^.375
+113 ;;^UTILITY(U,$J,114,286,"I",8,0)
+114 ;;=877^1.5^1378^1.35
+115 ;;^UTILITY(U,$J,114,286,"I",9,0)
+116 ;;=391^.07813^6354
+117 ;;^UTILITY(U,$J,114,286,"I",10,0)
+118 ;;=573^1.5^1938^1.5
+119 ;;^UTILITY(U,$J,114,286,"I",11,0)
+120 ;;=382^.125
+121 ;;^UTILITY(U,$J,114,286,"X",0)
+122 ;;=^^6^6^2890815^^^^
+123 ;;^UTILITY(U,$J,114,286,"X",1,0)
+124 ;;=1) PLACE QUARTERED CHICKEN IN BAKING PAN. SEASON AND BRUSH WITH OIL.
+125 ;;^UTILITY(U,$J,114,286,"X",2,0)
+126 ;;= BROIL 15 MINUTES.
+127 ;;^UTILITY(U,$J,114,286,"X",3,0)
+128 ;;=2) COMBINE ALL INGREDIENTS AND POUR OVER CHICKEN.
+129 ;;^UTILITY(U,$J,114,286,"X",4,0)
+130 ;;=3) COVER AND BAKE FOR 2 HOURS IN ROTARY OVEN, BASTING EVERY 15 MINUTES
+131 ;;^UTILITY(U,$J,114,286,"X",5,0)
+132 ;;= WITH SAUCE.
+133 ;;^UTILITY(U,$J,114,286,"X",6,0)
+134 ;;=4) BAKE AT 375 F.
+135 ;;^UTILITY(U,$J,114,287,0)
+136 ;;=GLAZED CARROTS^70^2.5-OZ^30 MIN^^^9^Y^V-32^^S^^.005
+137 ;;^UTILITY(U,$J,114,287,"E",0)
+138 ;;=^114.05P^1^1
+139 ;;^UTILITY(U,$J,114,287,"E",1,0)
+140 ;;=25
