FHINI0JC ; ; 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,266,"I",4,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,266,"X",0)
;;=^^5^5^2890725^
;;^UTILITY(U,$J,114,266,"X",1,0)
;;=1) COOK BEANS IN SALTED WATER UNTIL JUST TENDER. DRAIN.
;;^UTILITY(U,$J,114,266,"X",2,0)
;;= RETAIN LIQUID.
;;^UTILITY(U,$J,114,266,"X",3,0)
;;=2) DRAIN MUSHROOMS; SAUTE IN MARGARINE.
;;^UTILITY(U,$J,114,266,"X",4,0)
;;=3) ADD COOKED BEANS, LQUID, AND SALT. TOSS TO DISTRIBUTE.
;;^UTILITY(U,$J,114,266,"X",5,0)
;;= HEAT THOROUGHLY.
;;^UTILITY(U,$J,114,267,0)
;;=LS SCRAMBLED EGG MIX^100^2.5-OZ^15 MIN^^4^5^Y^E-24^^S^^.043
;;^UTILITY(U,$J,114,267,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,267,"E",1,0)
;;=32
;;^UTILITY(U,$J,114,267,"E",2,0)
;;=2
;;^UTILITY(U,$J,114,267,"I",0)
;;=^114.01PA^4^4
;;^UTILITY(U,$J,114,267,"I",1,0)
;;=734^14.75^115^12.5375
;;^UTILITY(U,$J,114,267,"I",2,0)
;;=986^.46875^6011^.46875
;;^UTILITY(U,$J,114,267,"I",3,0)
;;=847^.51563^2021
;;^UTILITY(U,$J,114,267,"I",4,0)
;;=192^.00781^288^.00781
;;^UTILITY(U,$J,114,267,"X",0)
;;=^^3^3^2890725^
;;^UTILITY(U,$J,114,267,"X",1,0)
;;=1) COMBINE INGREDIENTS; BEAT LIGHTLY. DO NOT OVERMIX
;;^UTILITY(U,$J,114,267,"X",2,0)
;;=2) PORTION AND COOK TO ORDER ON GRILL.
;;^UTILITY(U,$J,114,267,"X",3,0)
;;=3) SERVING #12 SCOOP
;;^UTILITY(U,$J,114,268,0)
;;=HOT SPICED BEETS^90^4-EACH^15 M^^^9^Y^V-16^^S^^.063
;;^UTILITY(U,$J,114,268,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,268,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,268,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,268,"I",1,0)
;;=422^19.5^780^19.5
;;^UTILITY(U,$J,114,268,"I",2,0)
;;=414^.0625
;;^UTILITY(U,$J,114,268,"I",3,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,268,"I",4,0)
;;=255^.0625^1905^.0625
;;^UTILITY(U,$J,114,268,"I",5,0)
;;=594^.0625^1986^.529125
;;^UTILITY(U,$J,114,268,"X",0)
;;=^^4^4^2890725^
;;^UTILITY(U,$J,114,268,"X",1,0)
;;=1) DRAIN BEETS. BRING BEET JUICE TO BOIL.
;;^UTILITY(U,$J,114,268,"X",2,0)
;;=2) ADD REMAINING INGREDIENTS AND BRING TO BOIL.
;;^UTILITY(U,$J,114,268,"X",3,0)
;;=3) ADD BEETS FROM STEP 1 AND COOK TOGETHER FOR 5 MINUTES
;;^UTILITY(U,$J,114,268,"X",4,0)
;;= UNTIL THOROUGHLY HEATED.
;;^UTILITY(U,$J,114,269,0)
;;=EGG, FRESH^100^1-EACH^^^^5^N^E-27^^S
;;^UTILITY(U,$J,114,269,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,269,"I",1,0)
;;=788^100^6498
;;^UTILITY(U,$J,114,269,"X",0)
;;=^^1^1^2890725^
;;^UTILITY(U,$J,114,269,"X",1,0)
;;=1) COOK TO ORDER.
;;^UTILITY(U,$J,114,270,0)
;;=ROAST PORK^100^4-OZ^4 HRS^^1^4^Y^E-165^^S
;;^UTILITY(U,$J,114,270,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,270,"E",1,0)
;;=33
;;^UTILITY(U,$J,114,270,"E",2,0)
;;=25
;;^UTILITY(U,$J,114,270,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,270,"I",1,0)
;;=1010^25^164^17.25
;;^UTILITY(U,$J,114,270,"X",0)
;;=^^6^6^2890725^
;;^UTILITY(U,$J,114,270,"X",1,0)
;;=1) PLACE ROAST INTO ROASTING PANS AND COOK TO WELL DONE STAGE AND UNTIL
;;^UTILITY(U,$J,114,270,"X",2,0)
;;= INTERNAL TEMPERATURE OF 185 F DEGREES IS REACHED IN THICKEST PORTION
;;^UTILITY(U,$J,114,270,"X",3,0)
;;= OF MEAT. BAKE AT 300 F FOR 3-1/2 - 4 HOURS
;;^UTILITY(U,$J,114,270,"X",4,0)
;;=2) COOL SLIGHTLY BEFORE PORTIONING. PAN SLICES FOR SERVICE.
;;^UTILITY(U,$J,114,270,"X",5,0)
;;=3) NOTE: 1. MEAT DRIPPINGS MAY BE USED TO MAKE GRAVEY.
;;^UTILITY(U,$J,114,270,"X",6,0)
;;= 2. MAY BE SERVED WITH SPICED APPLESAUCE
;;^UTILITY(U,$J,114,272,0)
;;=HARVARD BEETS^90^4-EACH^15 MIN^^^9^Y^V-17^^S^^.072
;;^UTILITY(U,$J,114,272,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,272,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,272,"I",0)
;;=^114.01PA^8^8
;;^UTILITY(U,$J,114,272,"I",1,0)
;;=422^19.5^780^19.5
;;^UTILITY(U,$J,114,272,"I",2,0)
;;=850^4^262
;;^UTILITY(U,$J,114,272,"I",3,0)
;;=849^.01042^269^.01042
;;^UTILITY(U,$J,114,272,"I",4,0)
;;=256^1^1906^1
;;^UTILITY(U,$J,114,272,"I",5,0)
;;=360^.5^1061^.5
;;^UTILITY(U,$J,114,272,"I",6,0)
;;=230^.07813^1598^.07813
;;^UTILITY(U,$J,114,272,"I",7,0)
;;=297^.3125^372^.3125
;;^UTILITY(U,$J,114,272,"I",8,0)
;;=594^.25^1986^2.1165
;;^UTILITY(U,$J,114,272,"X",0)
;;=^^6^6^2890725^
;;^UTILITY(U,$J,114,272,"X",1,0)
;;=1) DRAIN BEETS; RETAIN JUICE FOR STEP 2.
;;^UTILITY(U,$J,114,272,"X",2,0)
;;=2) COMBINE BAY CLEAVES AND CLOVE WITH BEET JUICE AND HEAT TO BOILING.
;;^UTILITY(U,$J,114,272,"X",3,0)
;;=3) COMBINE SUGAR, CORNSTARCH AND SALT AND MIX. ADD SLOWLY TO HOT
;;^UTILITY(U,$J,114,272,"X",4,0)
;;= JUICE MIXTURE, STIRRING CONSTANTLY. COOK UNTIL THICK AND CLEAR.
;;^UTILITY(U,$J,114,272,"X",5,0)
;;=4) BLEND MARGARINE AND VINEGAR INTO COOKED MIXTURE.
FHINI0JC ; ; 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,266,"I",4,0)
+2 ;;=230^.0625^1598^.0625
+3 ;;^UTILITY(U,$J,114,266,"X",0)
+4 ;;=^^5^5^2890725^
+5 ;;^UTILITY(U,$J,114,266,"X",1,0)
+6 ;;=1) COOK BEANS IN SALTED WATER UNTIL JUST TENDER. DRAIN.
+7 ;;^UTILITY(U,$J,114,266,"X",2,0)
+8 ;;= RETAIN LIQUID.
+9 ;;^UTILITY(U,$J,114,266,"X",3,0)
+10 ;;=2) DRAIN MUSHROOMS; SAUTE IN MARGARINE.
+11 ;;^UTILITY(U,$J,114,266,"X",4,0)
+12 ;;=3) ADD COOKED BEANS, LQUID, AND SALT. TOSS TO DISTRIBUTE.
+13 ;;^UTILITY(U,$J,114,266,"X",5,0)
+14 ;;= HEAT THOROUGHLY.
+15 ;;^UTILITY(U,$J,114,267,0)
+16 ;;=LS SCRAMBLED EGG MIX^100^2.5-OZ^15 MIN^^4^5^Y^E-24^^S^^.043
+17 ;;^UTILITY(U,$J,114,267,"E",0)
+18 ;;=^114.05P^2^2
+19 ;;^UTILITY(U,$J,114,267,"E",1,0)
+20 ;;=32
+21 ;;^UTILITY(U,$J,114,267,"E",2,0)
+22 ;;=2
+23 ;;^UTILITY(U,$J,114,267,"I",0)
+24 ;;=^114.01PA^4^4
+25 ;;^UTILITY(U,$J,114,267,"I",1,0)
+26 ;;=734^14.75^115^12.5375
+27 ;;^UTILITY(U,$J,114,267,"I",2,0)
+28 ;;=986^.46875^6011^.46875
+29 ;;^UTILITY(U,$J,114,267,"I",3,0)
+30 ;;=847^.51563^2021
+31 ;;^UTILITY(U,$J,114,267,"I",4,0)
+32 ;;=192^.00781^288^.00781
+33 ;;^UTILITY(U,$J,114,267,"X",0)
+34 ;;=^^3^3^2890725^
+35 ;;^UTILITY(U,$J,114,267,"X",1,0)
+36 ;;=1) COMBINE INGREDIENTS; BEAT LIGHTLY. DO NOT OVERMIX
+37 ;;^UTILITY(U,$J,114,267,"X",2,0)
+38 ;;=2) PORTION AND COOK TO ORDER ON GRILL.
+39 ;;^UTILITY(U,$J,114,267,"X",3,0)
+40 ;;=3) SERVING #12 SCOOP
+41 ;;^UTILITY(U,$J,114,268,0)
+42 ;;=HOT SPICED BEETS^90^4-EACH^15 M^^^9^Y^V-16^^S^^.063
+43 ;;^UTILITY(U,$J,114,268,"E",0)
+44 ;;=^114.05P^1^1
+45 ;;^UTILITY(U,$J,114,268,"E",1,0)
+46 ;;=6
+47 ;;^UTILITY(U,$J,114,268,"I",0)
+48 ;;=^114.01PA^5^5
+49 ;;^UTILITY(U,$J,114,268,"I",1,0)
+50 ;;=422^19.5^780^19.5
+51 ;;^UTILITY(U,$J,114,268,"I",2,0)
+52 ;;=414^.0625
+53 ;;^UTILITY(U,$J,114,268,"I",3,0)
+54 ;;=230^.125^1598^.125
+55 ;;^UTILITY(U,$J,114,268,"I",4,0)
+56 ;;=255^.0625^1905^.0625
+57 ;;^UTILITY(U,$J,114,268,"I",5,0)
+58 ;;=594^.0625^1986^.529125
+59 ;;^UTILITY(U,$J,114,268,"X",0)
+60 ;;=^^4^4^2890725^
+61 ;;^UTILITY(U,$J,114,268,"X",1,0)
+62 ;;=1) DRAIN BEETS. BRING BEET JUICE TO BOIL.
+63 ;;^UTILITY(U,$J,114,268,"X",2,0)
+64 ;;=2) ADD REMAINING INGREDIENTS AND BRING TO BOIL.
+65 ;;^UTILITY(U,$J,114,268,"X",3,0)
+66 ;;=3) ADD BEETS FROM STEP 1 AND COOK TOGETHER FOR 5 MINUTES
+67 ;;^UTILITY(U,$J,114,268,"X",4,0)
+68 ;;= UNTIL THOROUGHLY HEATED.
+69 ;;^UTILITY(U,$J,114,269,0)
+70 ;;=EGG, FRESH^100^1-EACH^^^^5^N^E-27^^S
+71 ;;^UTILITY(U,$J,114,269,"I",0)
+72 ;;=^114.01PA^1^1
+73 ;;^UTILITY(U,$J,114,269,"I",1,0)
+74 ;;=788^100^6498
+75 ;;^UTILITY(U,$J,114,269,"X",0)
+76 ;;=^^1^1^2890725^
+77 ;;^UTILITY(U,$J,114,269,"X",1,0)
+78 ;;=1) COOK TO ORDER.
+79 ;;^UTILITY(U,$J,114,270,0)
+80 ;;=ROAST PORK^100^4-OZ^4 HRS^^1^4^Y^E-165^^S
+81 ;;^UTILITY(U,$J,114,270,"E",0)
+82 ;;=^114.05P^2^2
+83 ;;^UTILITY(U,$J,114,270,"E",1,0)
+84 ;;=33
+85 ;;^UTILITY(U,$J,114,270,"E",2,0)
+86 ;;=25
+87 ;;^UTILITY(U,$J,114,270,"I",0)
+88 ;;=^114.01PA^1^1
+89 ;;^UTILITY(U,$J,114,270,"I",1,0)
+90 ;;=1010^25^164^17.25
+91 ;;^UTILITY(U,$J,114,270,"X",0)
+92 ;;=^^6^6^2890725^
+93 ;;^UTILITY(U,$J,114,270,"X",1,0)
+94 ;;=1) PLACE ROAST INTO ROASTING PANS AND COOK TO WELL DONE STAGE AND UNTIL
+95 ;;^UTILITY(U,$J,114,270,"X",2,0)
+96 ;;= INTERNAL TEMPERATURE OF 185 F DEGREES IS REACHED IN THICKEST PORTION
+97 ;;^UTILITY(U,$J,114,270,"X",3,0)
+98 ;;= OF MEAT. BAKE AT 300 F FOR 3-1/2 - 4 HOURS
+99 ;;^UTILITY(U,$J,114,270,"X",4,0)
+100 ;;=2) COOL SLIGHTLY BEFORE PORTIONING. PAN SLICES FOR SERVICE.
+101 ;;^UTILITY(U,$J,114,270,"X",5,0)
+102 ;;=3) NOTE: 1. MEAT DRIPPINGS MAY BE USED TO MAKE GRAVEY.
+103 ;;^UTILITY(U,$J,114,270,"X",6,0)
+104 ;;= 2. MAY BE SERVED WITH SPICED APPLESAUCE
+105 ;;^UTILITY(U,$J,114,272,0)
+106 ;;=HARVARD BEETS^90^4-EACH^15 MIN^^^9^Y^V-17^^S^^.072
+107 ;;^UTILITY(U,$J,114,272,"E",0)
+108 ;;=^114.05P^1^1
+109 ;;^UTILITY(U,$J,114,272,"E",1,0)
+110 ;;=6
+111 ;;^UTILITY(U,$J,114,272,"I",0)
+112 ;;=^114.01PA^8^8
+113 ;;^UTILITY(U,$J,114,272,"I",1,0)
+114 ;;=422^19.5^780^19.5
+115 ;;^UTILITY(U,$J,114,272,"I",2,0)
+116 ;;=850^4^262
+117 ;;^UTILITY(U,$J,114,272,"I",3,0)
+118 ;;=849^.01042^269^.01042
+119 ;;^UTILITY(U,$J,114,272,"I",4,0)
+120 ;;=256^1^1906^1
+121 ;;^UTILITY(U,$J,114,272,"I",5,0)
+122 ;;=360^.5^1061^.5
+123 ;;^UTILITY(U,$J,114,272,"I",6,0)
+124 ;;=230^.07813^1598^.07813
+125 ;;^UTILITY(U,$J,114,272,"I",7,0)
+126 ;;=297^.3125^372^.3125
+127 ;;^UTILITY(U,$J,114,272,"I",8,0)
+128 ;;=594^.25^1986^2.1165
+129 ;;^UTILITY(U,$J,114,272,"X",0)
+130 ;;=^^6^6^2890725^
+131 ;;^UTILITY(U,$J,114,272,"X",1,0)
+132 ;;=1) DRAIN BEETS; RETAIN JUICE FOR STEP 2.
+133 ;;^UTILITY(U,$J,114,272,"X",2,0)
+134 ;;=2) COMBINE BAY CLEAVES AND CLOVE WITH BEET JUICE AND HEAT TO BOILING.
+135 ;;^UTILITY(U,$J,114,272,"X",3,0)
+136 ;;=3) COMBINE SUGAR, CORNSTARCH AND SALT AND MIX. ADD SLOWLY TO HOT
+137 ;;^UTILITY(U,$J,114,272,"X",4,0)
+138 ;;= JUICE MIXTURE, STIRRING CONSTANTLY. COOK UNTIL THICK AND CLEAR.
+139 ;;^UTILITY(U,$J,114,272,"X",5,0)
+140 ;;=4) BLEND MARGARINE AND VINEGAR INTO COOKED MIXTURE.
