FHINI0IV ; ; 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,190,"X",2,0)
;;=2) ADD VEGETABLES AND SEASONINGS. SIMMER 30-40 MINUTES OR UNTIL VEGETABLES
;;^UTILITY(U,$J,114,190,"X",3,0)
;;= ARE COOKED.
;;^UTILITY(U,$J,114,191,0)
;;=LS BEEF VEGETABLE SOUP^10^6-FLOZ^40 MIN^^10^10^Y^A-84^^S^^.103
;;^UTILITY(U,$J,114,191,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,191,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,191,"I",0)
;;=^114.01PA^9^9
;;^UTILITY(U,$J,114,191,"I",1,0)
;;=912^.20313^6638^.20313
;;^UTILITY(U,$J,114,191,"I",2,0)
;;=847^.625^2021
;;^UTILITY(U,$J,114,191,"I",3,0)
;;=211^.14063
;;^UTILITY(U,$J,114,191,"I",4,0)
;;=539^1.6875^1935^1.6875
;;^UTILITY(U,$J,114,191,"I",5,0)
;;=527^.4375^1418^.4375
;;^UTILITY(U,$J,114,191,"I",6,0)
;;=589^.4375^717^.4375
;;^UTILITY(U,$J,114,191,"I",7,0)
;;=725^.01563^1384^.01563
;;^UTILITY(U,$J,114,191,"I",8,0)
;;=192^.00781^288^.00781
;;^UTILITY(U,$J,114,191,"I",9,0)
;;=876^.00781^265^.00781
;;^UTILITY(U,$J,114,191,"X",0)
;;=^^3^3^2890724^
;;^UTILITY(U,$J,114,191,"X",1,0)
;;=1) COMBINE BASE AND WATER TO FORM STOCK.
;;^UTILITY(U,$J,114,191,"X",2,0)
;;=2) ADD POTATOES AND SIMMER UNTIL TENDER.
;;^UTILITY(U,$J,114,191,"X",3,0)
;;=3) ADD REMAINING VEGETABLES AND SEASONINGS. HEAT THOROUGHLY.
;;^UTILITY(U,$J,114,192,0)
;;=LS CORNBREAD^70^1-EACH^40 MINUTES^^2^12^Y^B-9^^S^^.057
;;^UTILITY(U,$J,114,192,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,192,"E",1,0)
;;=8
;;^UTILITY(U,$J,114,192,"I",0)
;;=^114.01PA^8^8
;;^UTILITY(U,$J,114,192,"I",1,0)
;;=96^1.6875^2763^1.6875
;;^UTILITY(U,$J,114,192,"I",2,0)
;;=628^1.75^1998^1.75
;;^UTILITY(U,$J,114,192,"I",3,0)
;;=256^.5^1906^.5
;;^UTILITY(U,$J,114,192,"I",4,0)
;;=10^.125^682^.125
;;^UTILITY(U,$J,114,192,"I",5,0)
;;=986^.35938^6011^.35938
;;^UTILITY(U,$J,114,192,"I",6,0)
;;=847^.29688^2021
;;^UTILITY(U,$J,114,192,"I",7,0)
;;=734^.67188^115^.571098
;;^UTILITY(U,$J,114,192,"I",8,0)
;;=286^.375^394^.375
;;^UTILITY(U,$J,114,192,"X",0)
;;=^^4^4^2890814^^
;;^UTILITY(U,$J,114,192,"X",1,0)
;;=1) SIFT ALL DRY INGREDIENTS TOGETHER.
;;^UTILITY(U,$J,114,192,"X",2,0)
;;=2) ADD REMAINING INGREDIENTS. MIX ONLY UNTIL DRY MIXTURE IS MOISTENED.
;;^UTILITY(U,$J,114,192,"X",3,0)
;;=3) SCALE INTO OILED PANS AND BAKE AT 425 DEGREES F FOR 25 MIN.
;;^UTILITY(U,$J,114,192,"X",4,0)
;;=4) PORTION INTO 70 CUTS PER 25" X 17" BAKING SHEET.
;;^UTILITY(U,$J,114,193,0)
;;=POTATO SALAD^100^3-OZ^45 MIN^^^7^Y^P-25^^S^^.005
;;^UTILITY(U,$J,114,193,"I",0)
;;=^114.01PA^8^8
;;^UTILITY(U,$J,114,193,"I",1,0)
;;=871^12.5625^1506^12.5625
;;^UTILITY(U,$J,114,193,"I",2,0)
;;=788^6^6498
;;^UTILITY(U,$J,114,193,"I",3,0)
;;=777^.5^1378^.45
;;^UTILITY(U,$J,114,193,"I",4,0)
;;=798^.5^1434^.41
;;^UTILITY(U,$J,114,193,"I",5,0)
;;=776^3.75^951^3.75
;;^UTILITY(U,$J,114,193,"I",6,0)
;;=196^.5^1484^.5
;;^UTILITY(U,$J,114,193,"I",7,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,193,"I",8,0)
;;=153^.625^360^4.85
;;^UTILITY(U,$J,114,193,"X",0)
;;=^^8^8^2890724^
;;^UTILITY(U,$J,114,193,"X",1,0)
;;=1) ADD POTATOES TO SALTED BOILING WATER; REDUCE HEAT AND SIMMER
;;^UTILITY(U,$J,114,193,"X",2,0)
;;= 15-20 MINUTES OR UNTIL JUST TENDER. DO NOT OVERCOOK. DRAIN
;;^UTILITY(U,$J,114,193,"X",3,0)
;;= THOROUGHLY. CHILL BEFORE USE.
;;^UTILITY(U,$J,114,193,"X",4,0)
;;=2) COOK EGGS UNTIL HARD COOKED. PEEL; CHOP.
;;^UTILITY(U,$J,114,193,"X",5,0)
;;=3) COMBINE ONIONS, PEPPERS, CELERY, PIMIENTOS AND SALT; ADD TO
;;^UTILITY(U,$J,114,193,"X",6,0)
;;= POTATOES TOGETHER WITH EGGS. MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,193,"X",7,0)
;;=4) ADD MAYONNAISE AND MIX TO COAT POTATOES THOROUGHLY.
;;^UTILITY(U,$J,114,193,"X",8,0)
;;= COVER AND REFRIGERATE.
;;^UTILITY(U,$J,114,194,0)
;;=LS DIXIE BARBECUE^25^4-OZ^3 HOUR^^9^4^Y^E-43^^S^^.001
;;^UTILITY(U,$J,114,194,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,194,"E",1,0)
;;=7
;;^UTILITY(U,$J,114,194,"E",2,0)
;;=22
;;^UTILITY(U,$J,114,194,"I",0)
;;=^114.01PA^8^8
;;^UTILITY(U,$J,114,194,"I",1,0)
;;=22^5^2167^5
;;^UTILITY(U,$J,114,194,"I",2,0)
;;=725^.5^1384^.5
;;^UTILITY(U,$J,114,194,"I",3,0)
;;=624^.5^371^.5
;;^UTILITY(U,$J,114,194,"I",4,0)
;;=271^5.3125^1951^5.3125
;;^UTILITY(U,$J,114,194,"I",5,0)
;;=431^.0625^1987^.529125
;;^UTILITY(U,$J,114,194,"I",6,0)
;;=303^.00391
;;^UTILITY(U,$J,114,194,"I",7,0)
;;=382^.04167
;;^UTILITY(U,$J,114,194,"I",8,0)
;;=192^.01042^288^.01042
;;^UTILITY(U,$J,114,194,"X",0)
;;=^^6^6^2890724^
;;^UTILITY(U,$J,114,194,"X",1,0)
;;=1) OVEN BRAISE BEEF IN ROASTING PAN AT 350F. FOR APPROXIATELY 60 MINUTES.
;;^UTILITY(U,$J,114,194,"X",2,0)
;;=2) SAUTE ONIONS IN MARGARINE IN STEAM JACKETED KETTLE UNTIL CLEAR AND TENDER.
FHINI0IV ; ; 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,190,"X",2,0)
+2 ;;=2) ADD VEGETABLES AND SEASONINGS. SIMMER 30-40 MINUTES OR UNTIL VEGETABLES
+3 ;;^UTILITY(U,$J,114,190,"X",3,0)
+4 ;;= ARE COOKED.
+5 ;;^UTILITY(U,$J,114,191,0)
+6 ;;=LS BEEF VEGETABLE SOUP^10^6-FLOZ^40 MIN^^10^10^Y^A-84^^S^^.103
+7 ;;^UTILITY(U,$J,114,191,"E",0)
+8 ;;=^114.05P^1^1
+9 ;;^UTILITY(U,$J,114,191,"E",1,0)
+10 ;;=5
+11 ;;^UTILITY(U,$J,114,191,"I",0)
+12 ;;=^114.01PA^9^9
+13 ;;^UTILITY(U,$J,114,191,"I",1,0)
+14 ;;=912^.20313^6638^.20313
+15 ;;^UTILITY(U,$J,114,191,"I",2,0)
+16 ;;=847^.625^2021
+17 ;;^UTILITY(U,$J,114,191,"I",3,0)
+18 ;;=211^.14063
+19 ;;^UTILITY(U,$J,114,191,"I",4,0)
+20 ;;=539^1.6875^1935^1.6875
+21 ;;^UTILITY(U,$J,114,191,"I",5,0)
+22 ;;=527^.4375^1418^.4375
+23 ;;^UTILITY(U,$J,114,191,"I",6,0)
+24 ;;=589^.4375^717^.4375
+25 ;;^UTILITY(U,$J,114,191,"I",7,0)
+26 ;;=725^.01563^1384^.01563
+27 ;;^UTILITY(U,$J,114,191,"I",8,0)
+28 ;;=192^.00781^288^.00781
+29 ;;^UTILITY(U,$J,114,191,"I",9,0)
+30 ;;=876^.00781^265^.00781
+31 ;;^UTILITY(U,$J,114,191,"X",0)
+32 ;;=^^3^3^2890724^
+33 ;;^UTILITY(U,$J,114,191,"X",1,0)
+34 ;;=1) COMBINE BASE AND WATER TO FORM STOCK.
+35 ;;^UTILITY(U,$J,114,191,"X",2,0)
+36 ;;=2) ADD POTATOES AND SIMMER UNTIL TENDER.
+37 ;;^UTILITY(U,$J,114,191,"X",3,0)
+38 ;;=3) ADD REMAINING VEGETABLES AND SEASONINGS. HEAT THOROUGHLY.
+39 ;;^UTILITY(U,$J,114,192,0)
+40 ;;=LS CORNBREAD^70^1-EACH^40 MINUTES^^2^12^Y^B-9^^S^^.057
+41 ;;^UTILITY(U,$J,114,192,"E",0)
+42 ;;=^114.05P^1^1
+43 ;;^UTILITY(U,$J,114,192,"E",1,0)
+44 ;;=8
+45 ;;^UTILITY(U,$J,114,192,"I",0)
+46 ;;=^114.01PA^8^8
+47 ;;^UTILITY(U,$J,114,192,"I",1,0)
+48 ;;=96^1.6875^2763^1.6875
+49 ;;^UTILITY(U,$J,114,192,"I",2,0)
+50 ;;=628^1.75^1998^1.75
+51 ;;^UTILITY(U,$J,114,192,"I",3,0)
+52 ;;=256^.5^1906^.5
+53 ;;^UTILITY(U,$J,114,192,"I",4,0)
+54 ;;=10^.125^682^.125
+55 ;;^UTILITY(U,$J,114,192,"I",5,0)
+56 ;;=986^.35938^6011^.35938
+57 ;;^UTILITY(U,$J,114,192,"I",6,0)
+58 ;;=847^.29688^2021
+59 ;;^UTILITY(U,$J,114,192,"I",7,0)
+60 ;;=734^.67188^115^.571098
+61 ;;^UTILITY(U,$J,114,192,"I",8,0)
+62 ;;=286^.375^394^.375
+63 ;;^UTILITY(U,$J,114,192,"X",0)
+64 ;;=^^4^4^2890814^^
+65 ;;^UTILITY(U,$J,114,192,"X",1,0)
+66 ;;=1) SIFT ALL DRY INGREDIENTS TOGETHER.
+67 ;;^UTILITY(U,$J,114,192,"X",2,0)
+68 ;;=2) ADD REMAINING INGREDIENTS. MIX ONLY UNTIL DRY MIXTURE IS MOISTENED.
+69 ;;^UTILITY(U,$J,114,192,"X",3,0)
+70 ;;=3) SCALE INTO OILED PANS AND BAKE AT 425 DEGREES F FOR 25 MIN.
+71 ;;^UTILITY(U,$J,114,192,"X",4,0)
+72 ;;=4) PORTION INTO 70 CUTS PER 25" X 17" BAKING SHEET.
+73 ;;^UTILITY(U,$J,114,193,0)
+74 ;;=POTATO SALAD^100^3-OZ^45 MIN^^^7^Y^P-25^^S^^.005
+75 ;;^UTILITY(U,$J,114,193,"I",0)
+76 ;;=^114.01PA^8^8
+77 ;;^UTILITY(U,$J,114,193,"I",1,0)
+78 ;;=871^12.5625^1506^12.5625
+79 ;;^UTILITY(U,$J,114,193,"I",2,0)
+80 ;;=788^6^6498
+81 ;;^UTILITY(U,$J,114,193,"I",3,0)
+82 ;;=777^.5^1378^.45
+83 ;;^UTILITY(U,$J,114,193,"I",4,0)
+84 ;;=798^.5^1434^.41
+85 ;;^UTILITY(U,$J,114,193,"I",5,0)
+86 ;;=776^3.75^951^3.75
+87 ;;^UTILITY(U,$J,114,193,"I",6,0)
+88 ;;=196^.5^1484^.5
+89 ;;^UTILITY(U,$J,114,193,"I",7,0)
+90 ;;=230^.1875^1598^.1875
+91 ;;^UTILITY(U,$J,114,193,"I",8,0)
+92 ;;=153^.625^360^4.85
+93 ;;^UTILITY(U,$J,114,193,"X",0)
+94 ;;=^^8^8^2890724^
+95 ;;^UTILITY(U,$J,114,193,"X",1,0)
+96 ;;=1) ADD POTATOES TO SALTED BOILING WATER; REDUCE HEAT AND SIMMER
+97 ;;^UTILITY(U,$J,114,193,"X",2,0)
+98 ;;= 15-20 MINUTES OR UNTIL JUST TENDER. DO NOT OVERCOOK. DRAIN
+99 ;;^UTILITY(U,$J,114,193,"X",3,0)
+100 ;;= THOROUGHLY. CHILL BEFORE USE.
+101 ;;^UTILITY(U,$J,114,193,"X",4,0)
+102 ;;=2) COOK EGGS UNTIL HARD COOKED. PEEL; CHOP.
+103 ;;^UTILITY(U,$J,114,193,"X",5,0)
+104 ;;=3) COMBINE ONIONS, PEPPERS, CELERY, PIMIENTOS AND SALT; ADD TO
+105 ;;^UTILITY(U,$J,114,193,"X",6,0)
+106 ;;= POTATOES TOGETHER WITH EGGS. MIX TO DISTRIBUTE.
+107 ;;^UTILITY(U,$J,114,193,"X",7,0)
+108 ;;=4) ADD MAYONNAISE AND MIX TO COAT POTATOES THOROUGHLY.
+109 ;;^UTILITY(U,$J,114,193,"X",8,0)
+110 ;;= COVER AND REFRIGERATE.
+111 ;;^UTILITY(U,$J,114,194,0)
+112 ;;=LS DIXIE BARBECUE^25^4-OZ^3 HOUR^^9^4^Y^E-43^^S^^.001
+113 ;;^UTILITY(U,$J,114,194,"E",0)
+114 ;;=^114.05P^2^2
+115 ;;^UTILITY(U,$J,114,194,"E",1,0)
+116 ;;=7
+117 ;;^UTILITY(U,$J,114,194,"E",2,0)
+118 ;;=22
+119 ;;^UTILITY(U,$J,114,194,"I",0)
+120 ;;=^114.01PA^8^8
+121 ;;^UTILITY(U,$J,114,194,"I",1,0)
+122 ;;=22^5^2167^5
+123 ;;^UTILITY(U,$J,114,194,"I",2,0)
+124 ;;=725^.5^1384^.5
+125 ;;^UTILITY(U,$J,114,194,"I",3,0)
+126 ;;=624^.5^371^.5
+127 ;;^UTILITY(U,$J,114,194,"I",4,0)
+128 ;;=271^5.3125^1951^5.3125
+129 ;;^UTILITY(U,$J,114,194,"I",5,0)
+130 ;;=431^.0625^1987^.529125
+131 ;;^UTILITY(U,$J,114,194,"I",6,0)
+132 ;;=303^.00391
+133 ;;^UTILITY(U,$J,114,194,"I",7,0)
+134 ;;=382^.04167
+135 ;;^UTILITY(U,$J,114,194,"I",8,0)
+136 ;;=192^.01042^288^.01042
+137 ;;^UTILITY(U,$J,114,194,"X",0)
+138 ;;=^^6^6^2890724^
+139 ;;^UTILITY(U,$J,114,194,"X",1,0)
+140 ;;=1) OVEN BRAISE BEEF IN ROASTING PAN AT 350F. FOR APPROXIATELY 60 MINUTES.
+141 ;;^UTILITY(U,$J,114,194,"X",2,0)
+142 ;;=2) SAUTE ONIONS IN MARGARINE IN STEAM JACKETED KETTLE UNTIL CLEAR AND TENDER.
