FHINI0JE ; ; 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,276,"X",2,0)
;;= PEPPER. SEASON HAM WITH MIXTURE. LET HAM STAND OVERNIGHT.
;;^UTILITY(U,$J,114,276,"X",3,0)
;;=2) BAKE HAM IN ROTARY OVEN TO INTERNAL TEMPERATURE OF 185 F DEGREES.
;;^UTILITY(U,$J,114,276,"X",4,0)
;;=3) LET REST BEFORE SLICING.
;;^UTILITY(U,$J,114,276,"X",5,0)
;;=4) USE DRIPPINGS FOR MAKING GRAVY.
;;^UTILITY(U,$J,114,277,0)
;;=RAW CABBAGE SLAW W/ VINEGAR^100^4-OZ^30 MIN^^^9^Y^V-24^^S^^.072
;;^UTILITY(U,$J,114,277,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,277,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,277,"E",2,0)
;;=32
;;^UTILITY(U,$J,114,277,"I",0)
;;=^114.01PA^6^6
;;^UTILITY(U,$J,114,277,"I",1,0)
;;=987^2.625
;;^UTILITY(U,$J,114,277,"I",2,0)
;;=594^.1875^1986^1.587375
;;^UTILITY(U,$J,114,277,"I",3,0)
;;=847^.0625^2021
;;^UTILITY(U,$J,114,277,"I",4,0)
;;=256^.5^1906^.5
;;^UTILITY(U,$J,114,277,"I",5,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,277,"I",6,0)
;;=763^20^845^16
;;^UTILITY(U,$J,114,277,"X",0)
;;=^^4^4^2890725^
;;^UTILITY(U,$J,114,277,"X",1,0)
;;=1) ADD VINEGAR, WATER, SUGAR AND SALT TO BACON BITS AND
;;^UTILITY(U,$J,114,277,"X",2,0)
;;= COOK TOGETHER FOR 10 MINUTES OR UNTIL MIXTURE IS SMOOTH.
;;^UTILITY(U,$J,114,277,"X",3,0)
;;=2) FINELY SHRED CABBAGE. POUR DRESSING OVER CABBAGE AND TOSS
;;^UTILITY(U,$J,114,277,"X",4,0)
;;= TO DISTRIBUTE.
;;^UTILITY(U,$J,114,278,0)
;;=BARBECUED CHICKEN^100^8-OZ RAW^3 1/2 HOUR^^1^4^Y^E-207^^S^^.065
;;^UTILITY(U,$J,114,278,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,278,"E",1,0)
;;=25
;;^UTILITY(U,$J,114,278,"E",2,0)
;;=33
;;^UTILITY(U,$J,114,278,"I",0)
;;=^114.01PA^17^17
;;^UTILITY(U,$J,114,278,"I",1,0)
;;=628^3^1998^3
;;^UTILITY(U,$J,114,278,"I",2,0)
;;=884^50^401^33.5
;;^UTILITY(U,$J,114,278,"I",3,0)
;;=290^.25
;;^UTILITY(U,$J,114,278,"I",4,0)
;;=725^.375^1384^.375
;;^UTILITY(U,$J,114,278,"I",5,0)
;;=847^.3125^2021
;;^UTILITY(U,$J,114,278,"I",6,0)
;;=129^.00521^278^.00521
;;^UTILITY(U,$J,114,278,"I",7,0)
;;=593^13.125^1950^13.125
;;^UTILITY(U,$J,114,278,"I",8,0)
;;=255^.5^1905^.5
;;^UTILITY(U,$J,114,278,"I",9,0)
;;=382^.03125
;;^UTILITY(U,$J,114,278,"I",10,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,278,"I",11,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,278,"I",12,0)
;;=924^.01563^286^.01563
;;^UTILITY(U,$J,114,278,"I",13,0)
;;=191^.00781^1940^.064042
;;^UTILITY(U,$J,114,278,"I",14,0)
;;=431^.3125^1987^2.645625
;;^UTILITY(U,$J,114,278,"I",15,0)
;;=391^.01563^6354
;;^UTILITY(U,$J,114,278,"I",16,0)
;;=573^3.46875^1938^3.46875
;;^UTILITY(U,$J,114,278,"I",17,0)
;;=1007^.75
;;^UTILITY(U,$J,114,278,"X",0)
;;=^^11^11^2890725^^^^
;;^UTILITY(U,$J,114,278,"X",1,0)
;;=1) DREDGE CHICKEN IN FLOUR, SHAKE OFF EXCESS.
;;^UTILITY(U,$J,114,278,"X",2,0)
;;=2) PLACE CHICKEN SKIN SIDE DOWN INTO WELL-GREASED PANS AND BROWN ON BOTH
;;^UTILITY(U,$J,114,278,"X",3,0)
;;= SIDES IN OVEN.
;;^UTILITY(U,$J,114,278,"X",4,0)
;;=3) RECONSTITUTE ONIONS WITH COLD WATER. COOK ONIONS AND GARLIC IN TOMATO
;;^UTILITY(U,$J,114,278,"X",5,0)
;;= PUREE, STIRRING OCCASIONALLY.
;;^UTILITY(U,$J,114,278,"X",6,0)
;;=4) COMBINE REMAINING INGREDIENTS; ADD TO MIXTURE. SIMMER FOR 20 MINUTES,
;;^UTILITY(U,$J,114,278,"X",7,0)
;;= STIRRING FREQUENTLY.
;;^UTILITY(U,$J,114,278,"X",8,0)
;;=5) POUR PORTION OF BARBECUE SAUCE OVER CHICKEN IN EACH PAN. BAKE UNTIL
;;^UTILITY(U,$J,114,278,"X",9,0)
;;= CHICKEN IS TENDER (THICKEST PIECES ARE FORK-TENDER OR LEG BONE TWISTS
;;^UTILITY(U,$J,114,278,"X",10,0)
;;= EASILY IN THIGH JOINT). BASTE CHICKEN WITH SAUCE DURING COOKING.
;;^UTILITY(U,$J,114,278,"X",11,0)
;;= BAKE AT 325 F.
;;^UTILITY(U,$J,114,279,0)
;;=SMOTHERED STEAK^100^1-EACH^4.25 HR^^2^4^Y^E-114^^S^^.007
;;^UTILITY(U,$J,114,279,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,279,"E",1,0)
;;=2
;;^UTILITY(U,$J,114,279,"E",2,0)
;;=33
;;^UTILITY(U,$J,114,279,"I",0)
;;=^114.01PA^9^9
;;^UTILITY(U,$J,114,279,"I",1,0)
;;=379^25^2125^14.75
;;^UTILITY(U,$J,114,279,"I",2,0)
;;=628^2^1998^2
;;^UTILITY(U,$J,114,279,"I",3,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,279,"I",4,0)
;;=192^.03125^288^.03125
;;^UTILITY(U,$J,114,279,"I",5,0)
;;=725^.3125^1384^.3125
;;^UTILITY(U,$J,114,279,"I",6,0)
;;=847^.25^2021
;;^UTILITY(U,$J,114,279,"I",7,0)
;;=297^.5^372^.5
;;^UTILITY(U,$J,114,279,"I",8,0)
;;=129^.01563^278^.01563
;;^UTILITY(U,$J,114,279,"I",9,0)
;;=1007^3.75
;;^UTILITY(U,$J,114,279,"X",0)
;;=^^7^7^2890801^^
;;^UTILITY(U,$J,114,279,"X",1,0)
;;=1) COMBINE FIRST FLOUR, SALT AND PEPPER LISTING. DREDGE STEAKS IN MIXTURE.
;;^UTILITY(U,$J,114,279,"X",2,0)
;;= PAN STEAKS AND SET ASIDE.
FHINI0JE ; ; 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,276,"X",2,0)
+2 ;;= PEPPER. SEASON HAM WITH MIXTURE. LET HAM STAND OVERNIGHT.
+3 ;;^UTILITY(U,$J,114,276,"X",3,0)
+4 ;;=2) BAKE HAM IN ROTARY OVEN TO INTERNAL TEMPERATURE OF 185 F DEGREES.
+5 ;;^UTILITY(U,$J,114,276,"X",4,0)
+6 ;;=3) LET REST BEFORE SLICING.
+7 ;;^UTILITY(U,$J,114,276,"X",5,0)
+8 ;;=4) USE DRIPPINGS FOR MAKING GRAVY.
+9 ;;^UTILITY(U,$J,114,277,0)
+10 ;;=RAW CABBAGE SLAW W/ VINEGAR^100^4-OZ^30 MIN^^^9^Y^V-24^^S^^.072
+11 ;;^UTILITY(U,$J,114,277,"E",0)
+12 ;;=^114.05P^2^2
+13 ;;^UTILITY(U,$J,114,277,"E",1,0)
+14 ;;=6
+15 ;;^UTILITY(U,$J,114,277,"E",2,0)
+16 ;;=32
+17 ;;^UTILITY(U,$J,114,277,"I",0)
+18 ;;=^114.01PA^6^6
+19 ;;^UTILITY(U,$J,114,277,"I",1,0)
+20 ;;=987^2.625
+21 ;;^UTILITY(U,$J,114,277,"I",2,0)
+22 ;;=594^.1875^1986^1.587375
+23 ;;^UTILITY(U,$J,114,277,"I",3,0)
+24 ;;=847^.0625^2021
+25 ;;^UTILITY(U,$J,114,277,"I",4,0)
+26 ;;=256^.5^1906^.5
+27 ;;^UTILITY(U,$J,114,277,"I",5,0)
+28 ;;=230^.0625^1598^.0625
+29 ;;^UTILITY(U,$J,114,277,"I",6,0)
+30 ;;=763^20^845^16
+31 ;;^UTILITY(U,$J,114,277,"X",0)
+32 ;;=^^4^4^2890725^
+33 ;;^UTILITY(U,$J,114,277,"X",1,0)
+34 ;;=1) ADD VINEGAR, WATER, SUGAR AND SALT TO BACON BITS AND
+35 ;;^UTILITY(U,$J,114,277,"X",2,0)
+36 ;;= COOK TOGETHER FOR 10 MINUTES OR UNTIL MIXTURE IS SMOOTH.
+37 ;;^UTILITY(U,$J,114,277,"X",3,0)
+38 ;;=2) FINELY SHRED CABBAGE. POUR DRESSING OVER CABBAGE AND TOSS
+39 ;;^UTILITY(U,$J,114,277,"X",4,0)
+40 ;;= TO DISTRIBUTE.
+41 ;;^UTILITY(U,$J,114,278,0)
+42 ;;=BARBECUED CHICKEN^100^8-OZ RAW^3 1/2 HOUR^^1^4^Y^E-207^^S^^.065
+43 ;;^UTILITY(U,$J,114,278,"E",0)
+44 ;;=^114.05P^2^2
+45 ;;^UTILITY(U,$J,114,278,"E",1,0)
+46 ;;=25
+47 ;;^UTILITY(U,$J,114,278,"E",2,0)
+48 ;;=33
+49 ;;^UTILITY(U,$J,114,278,"I",0)
+50 ;;=^114.01PA^17^17
+51 ;;^UTILITY(U,$J,114,278,"I",1,0)
+52 ;;=628^3^1998^3
+53 ;;^UTILITY(U,$J,114,278,"I",2,0)
+54 ;;=884^50^401^33.5
+55 ;;^UTILITY(U,$J,114,278,"I",3,0)
+56 ;;=290^.25
+57 ;;^UTILITY(U,$J,114,278,"I",4,0)
+58 ;;=725^.375^1384^.375
+59 ;;^UTILITY(U,$J,114,278,"I",5,0)
+60 ;;=847^.3125^2021
+61 ;;^UTILITY(U,$J,114,278,"I",6,0)
+62 ;;=129^.00521^278^.00521
+63 ;;^UTILITY(U,$J,114,278,"I",7,0)
+64 ;;=593^13.125^1950^13.125
+65 ;;^UTILITY(U,$J,114,278,"I",8,0)
+66 ;;=255^.5^1905^.5
+67 ;;^UTILITY(U,$J,114,278,"I",9,0)
+68 ;;=382^.03125
+69 ;;^UTILITY(U,$J,114,278,"I",10,0)
+70 ;;=230^.0625^1598^.0625
+71 ;;^UTILITY(U,$J,114,278,"I",11,0)
+72 ;;=192^.01563^288^.01563
+73 ;;^UTILITY(U,$J,114,278,"I",12,0)
+74 ;;=924^.01563^286^.01563
+75 ;;^UTILITY(U,$J,114,278,"I",13,0)
+76 ;;=191^.00781^1940^.064042
+77 ;;^UTILITY(U,$J,114,278,"I",14,0)
+78 ;;=431^.3125^1987^2.645625
+79 ;;^UTILITY(U,$J,114,278,"I",15,0)
+80 ;;=391^.01563^6354
+81 ;;^UTILITY(U,$J,114,278,"I",16,0)
+82 ;;=573^3.46875^1938^3.46875
+83 ;;^UTILITY(U,$J,114,278,"I",17,0)
+84 ;;=1007^.75
+85 ;;^UTILITY(U,$J,114,278,"X",0)
+86 ;;=^^11^11^2890725^^^^
+87 ;;^UTILITY(U,$J,114,278,"X",1,0)
+88 ;;=1) DREDGE CHICKEN IN FLOUR, SHAKE OFF EXCESS.
+89 ;;^UTILITY(U,$J,114,278,"X",2,0)
+90 ;;=2) PLACE CHICKEN SKIN SIDE DOWN INTO WELL-GREASED PANS AND BROWN ON BOTH
+91 ;;^UTILITY(U,$J,114,278,"X",3,0)
+92 ;;= SIDES IN OVEN.
+93 ;;^UTILITY(U,$J,114,278,"X",4,0)
+94 ;;=3) RECONSTITUTE ONIONS WITH COLD WATER. COOK ONIONS AND GARLIC IN TOMATO
+95 ;;^UTILITY(U,$J,114,278,"X",5,0)
+96 ;;= PUREE, STIRRING OCCASIONALLY.
+97 ;;^UTILITY(U,$J,114,278,"X",6,0)
+98 ;;=4) COMBINE REMAINING INGREDIENTS; ADD TO MIXTURE. SIMMER FOR 20 MINUTES,
+99 ;;^UTILITY(U,$J,114,278,"X",7,0)
+100 ;;= STIRRING FREQUENTLY.
+101 ;;^UTILITY(U,$J,114,278,"X",8,0)
+102 ;;=5) POUR PORTION OF BARBECUE SAUCE OVER CHICKEN IN EACH PAN. BAKE UNTIL
+103 ;;^UTILITY(U,$J,114,278,"X",9,0)
+104 ;;= CHICKEN IS TENDER (THICKEST PIECES ARE FORK-TENDER OR LEG BONE TWISTS
+105 ;;^UTILITY(U,$J,114,278,"X",10,0)
+106 ;;= EASILY IN THIGH JOINT). BASTE CHICKEN WITH SAUCE DURING COOKING.
+107 ;;^UTILITY(U,$J,114,278,"X",11,0)
+108 ;;= BAKE AT 325 F.
+109 ;;^UTILITY(U,$J,114,279,0)
+110 ;;=SMOTHERED STEAK^100^1-EACH^4.25 HR^^2^4^Y^E-114^^S^^.007
+111 ;;^UTILITY(U,$J,114,279,"E",0)
+112 ;;=^114.05P^2^2
+113 ;;^UTILITY(U,$J,114,279,"E",1,0)
+114 ;;=2
+115 ;;^UTILITY(U,$J,114,279,"E",2,0)
+116 ;;=33
+117 ;;^UTILITY(U,$J,114,279,"I",0)
+118 ;;=^114.01PA^9^9
+119 ;;^UTILITY(U,$J,114,279,"I",1,0)
+120 ;;=379^25^2125^14.75
+121 ;;^UTILITY(U,$J,114,279,"I",2,0)
+122 ;;=628^2^1998^2
+123 ;;^UTILITY(U,$J,114,279,"I",3,0)
+124 ;;=230^.125^1598^.125
+125 ;;^UTILITY(U,$J,114,279,"I",4,0)
+126 ;;=192^.03125^288^.03125
+127 ;;^UTILITY(U,$J,114,279,"I",5,0)
+128 ;;=725^.3125^1384^.3125
+129 ;;^UTILITY(U,$J,114,279,"I",6,0)
+130 ;;=847^.25^2021
+131 ;;^UTILITY(U,$J,114,279,"I",7,0)
+132 ;;=297^.5^372^.5
+133 ;;^UTILITY(U,$J,114,279,"I",8,0)
+134 ;;=129^.01563^278^.01563
+135 ;;^UTILITY(U,$J,114,279,"I",9,0)
+136 ;;=1007^3.75
+137 ;;^UTILITY(U,$J,114,279,"X",0)
+138 ;;=^^7^7^2890801^^
+139 ;;^UTILITY(U,$J,114,279,"X",1,0)
+140 ;;=1) COMBINE FIRST FLOUR, SALT AND PEPPER LISTING. DREDGE STEAKS IN MIXTURE.
+141 ;;^UTILITY(U,$J,114,279,"X",2,0)
+142 ;;= PAN STEAKS AND SET ASIDE.
