FHINI0IU ; ; 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,187,0)
;;=CREAM OF CORN SOUP^100^6-FLOZ^95 MIN^^10^10^Y^A-102^^S^^.074
;;^UTILITY(U,$J,114,187,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,187,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,187,"I",0)
;;=^114.01PA^12^12
;;^UTILITY(U,$J,114,187,"I",1,0)
;;=776^1^951^1
;;^UTILITY(U,$J,114,187,"I",2,0)
;;=725^.125^1384^.125
;;^UTILITY(U,$J,114,187,"I",3,0)
;;=1005^2.25^2021^18.81
;;^UTILITY(U,$J,114,187,"I",4,0)
;;=297^1^372^1
;;^UTILITY(U,$J,114,187,"I",5,0)
;;=322^13.25^1032^13.25
;;^UTILITY(U,$J,114,187,"I",6,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,187,"I",7,0)
;;=192^.01042^288^.01042
;;^UTILITY(U,$J,114,187,"I",8,0)
;;=44^.01042
;;^UTILITY(U,$J,114,187,"I",9,0)
;;=256^.01563^1906^.01563
;;^UTILITY(U,$J,114,187,"I",10,0)
;;=628^.65625^1998^.65625
;;^UTILITY(U,$J,114,187,"I",11,0)
;;=157^2.625^138^2.625
;;^UTILITY(U,$J,114,187,"I",12,0)
;;=847^.32813^2021
;;^UTILITY(U,$J,114,187,"X",0)
;;=^^10^10^2890724^
;;^UTILITY(U,$J,114,187,"X",1,0)
;;=1) COMBINE CELERY, ONIONS AND FIRST WATER ENTERY. ADD MARGARINE.
;;^UTILITY(U,$J,114,187,"X",2,0)
;;= COVER. SIMMER UNTIL VEGETABLES ARE TENDER (10-15 MINUTES).
;;^UTILITY(U,$J,114,187,"X",3,0)
;;=2) ADD CORN, SEASONINGS, AND SUGAR TO COOKED VEGETABLE MIXTURE.
;;^UTILITY(U,$J,114,187,"X",4,0)
;;=3) MIX TOGETHER FLOUR AND DRIED MILK. ADD SECOND WATER ENTRY TO MAKE
;;^UTILITY(U,$J,114,187,"X",5,0)
;;= A SMOOTH PASTE. STIR INTO VEGETABLE MIXTURE AND WHIP WITH FRENCH
;;^UTILITY(U,$J,114,187,"X",6,0)
;;= WHIP UNTIL SMOOTH. SIMMER APPROXIMATELY 15 MINUTES OR UNTIL WELL
;;^UTILITY(U,$J,114,187,"X",7,0)
;;= COOKED. STIR OCCASIONALLY.
;;^UTILITY(U,$J,114,187,"X",8,0)
;;=4) NOTE: 1. STRAIN OR BLENDERIZE FOR PUREED AND LIQUID DIETS.
;;^UTILITY(U,$J,114,187,"X",9,0)
;;= 2. OPTIONAL: PARSLEY, MINCED (1/4 CUP)
;;^UTILITY(U,$J,114,187,"X",10,0)
;;= PAPRIKA (2-2/3 TBSP)
;;^UTILITY(U,$J,114,188,0)
;;=LS BROWNED POTATOES^100^3-OZ^25 MIN^^^7^Y^P-20^^S
;;^UTILITY(U,$J,114,188,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,188,"E",1,0)
;;=25
;;^UTILITY(U,$J,114,188,"I",0)
;;=^114.01PA^2^2
;;^UTILITY(U,$J,114,188,"I",1,0)
;;=958^25^1506^25
;;^UTILITY(U,$J,114,188,"I",2,0)
;;=624^1^371^1
;;^UTILITY(U,$J,114,188,"X",0)
;;=^^5^5^2890724^
;;^UTILITY(U,$J,114,188,"X",1,0)
;;=1) PARBOIL POTATOES 15 MINUTES. DRAIN THOROUGHLY.
;;^UTILITY(U,$J,114,188,"X",2,0)
;;=2) PLACE IN ROASTING PAN.
;;^UTILITY(U,$J,114,188,"X",3,0)
;;=3) POUR OVER POTATOES; COAT THOROUGHLY.
;;^UTILITY(U,$J,114,188,"X",4,0)
;;=4) BAKE UNTIL BROWNED AND TENDER. BASTE FREQUENTLY; TURN POTATOES
;;^UTILITY(U,$J,114,188,"X",5,0)
;;= TWICE DURING COOKING PERIOD.
;;^UTILITY(U,$J,114,189,0)
;;=CORNBREAD #2^70^1-EACH^40 MIN^^2^12^Y^B-8^^S^^.014
;;^UTILITY(U,$J,114,189,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,189,"E",1,0)
;;=8
;;^UTILITY(U,$J,114,189,"I",0)
;;=^114.01PA^8^8
;;^UTILITY(U,$J,114,189,"I",1,0)
;;=96^2.6875^2763^2.6875
;;^UTILITY(U,$J,114,189,"I",2,0)
;;=628^1.1875^1998^1.1875
;;^UTILITY(U,$J,114,189,"I",3,0)
;;=256^.3125^1906^.3125
;;^UTILITY(U,$J,114,189,"I",4,0)
;;=230^.03125^1598^.03125
;;^UTILITY(U,$J,114,189,"I",5,0)
;;=11^.1875^680^.1875
;;^UTILITY(U,$J,114,189,"I",6,0)
;;=762^6^85
;;^UTILITY(U,$J,114,189,"I",7,0)
;;=734^1.25^115^1.0625
;;^UTILITY(U,$J,114,189,"I",8,0)
;;=286^.8125^394^.8125
;;^UTILITY(U,$J,114,189,"X",0)
;;=^^4^4^2890814^^
;;^UTILITY(U,$J,114,189,"X",1,0)
;;=1) SIFT TOGETHER ALL DRY INGREDIENTS.
;;^UTILITY(U,$J,114,189,"X",2,0)
;;=2) ADD REMAINING INGREDIENTS, MIX ONLY UNTIL DRY MIXTURE IS MOISTENED.
;;^UTILITY(U,$J,114,189,"X",3,0)
;;=3) SCALE INTO OILED PANS AND BAKE AT 425 DEGREES F FOR 25 MINUTES.
;;^UTILITY(U,$J,114,189,"X",4,0)
;;=4) PORTION INTO 70 CUTS PER 25" X 17" BAKING SHEET.
;;^UTILITY(U,$J,114,190,0)
;;=BEEF VEGETABLE SOUP^100^6-FLOZ^90 MIN^^10^10^Y^A-83^^S^^.02
;;^UTILITY(U,$J,114,190,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,190,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,190,"I",0)
;;=^114.01PA^8^8
;;^UTILITY(U,$J,114,190,"I",1,0)
;;=235^2
;;^UTILITY(U,$J,114,190,"I",2,0)
;;=847^6^2021
;;^UTILITY(U,$J,114,190,"I",3,0)
;;=866^2.5^935^2.5
;;^UTILITY(U,$J,114,190,"I",4,0)
;;=776^2.5^951^2.5
;;^UTILITY(U,$J,114,190,"I",5,0)
;;=725^.21875^1384^.21875
;;^UTILITY(U,$J,114,190,"I",6,0)
;;=211^.57813
;;^UTILITY(U,$J,114,190,"I",7,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,190,"I",8,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,190,"X",0)
;;=^^3^3^2890724^^
;;^UTILITY(U,$J,114,190,"X",1,0)
;;=1) COMBINE BASE AND WATER TO FORM STOCK.
FHINI0IU ; ; 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,187,0)
+2 ;;=CREAM OF CORN SOUP^100^6-FLOZ^95 MIN^^10^10^Y^A-102^^S^^.074
+3 ;;^UTILITY(U,$J,114,187,"E",0)
+4 ;;=^114.05P^1^1
+5 ;;^UTILITY(U,$J,114,187,"E",1,0)
+6 ;;=5
+7 ;;^UTILITY(U,$J,114,187,"I",0)
+8 ;;=^114.01PA^12^12
+9 ;;^UTILITY(U,$J,114,187,"I",1,0)
+10 ;;=776^1^951^1
+11 ;;^UTILITY(U,$J,114,187,"I",2,0)
+12 ;;=725^.125^1384^.125
+13 ;;^UTILITY(U,$J,114,187,"I",3,0)
+14 ;;=1005^2.25^2021^18.81
+15 ;;^UTILITY(U,$J,114,187,"I",4,0)
+16 ;;=297^1^372^1
+17 ;;^UTILITY(U,$J,114,187,"I",5,0)
+18 ;;=322^13.25^1032^13.25
+19 ;;^UTILITY(U,$J,114,187,"I",6,0)
+20 ;;=230^.1875^1598^.1875
+21 ;;^UTILITY(U,$J,114,187,"I",7,0)
+22 ;;=192^.01042^288^.01042
+23 ;;^UTILITY(U,$J,114,187,"I",8,0)
+24 ;;=44^.01042
+25 ;;^UTILITY(U,$J,114,187,"I",9,0)
+26 ;;=256^.01563^1906^.01563
+27 ;;^UTILITY(U,$J,114,187,"I",10,0)
+28 ;;=628^.65625^1998^.65625
+29 ;;^UTILITY(U,$J,114,187,"I",11,0)
+30 ;;=157^2.625^138^2.625
+31 ;;^UTILITY(U,$J,114,187,"I",12,0)
+32 ;;=847^.32813^2021
+33 ;;^UTILITY(U,$J,114,187,"X",0)
+34 ;;=^^10^10^2890724^
+35 ;;^UTILITY(U,$J,114,187,"X",1,0)
+36 ;;=1) COMBINE CELERY, ONIONS AND FIRST WATER ENTERY. ADD MARGARINE.
+37 ;;^UTILITY(U,$J,114,187,"X",2,0)
+38 ;;= COVER. SIMMER UNTIL VEGETABLES ARE TENDER (10-15 MINUTES).
+39 ;;^UTILITY(U,$J,114,187,"X",3,0)
+40 ;;=2) ADD CORN, SEASONINGS, AND SUGAR TO COOKED VEGETABLE MIXTURE.
+41 ;;^UTILITY(U,$J,114,187,"X",4,0)
+42 ;;=3) MIX TOGETHER FLOUR AND DRIED MILK. ADD SECOND WATER ENTRY TO MAKE
+43 ;;^UTILITY(U,$J,114,187,"X",5,0)
+44 ;;= A SMOOTH PASTE. STIR INTO VEGETABLE MIXTURE AND WHIP WITH FRENCH
+45 ;;^UTILITY(U,$J,114,187,"X",6,0)
+46 ;;= WHIP UNTIL SMOOTH. SIMMER APPROXIMATELY 15 MINUTES OR UNTIL WELL
+47 ;;^UTILITY(U,$J,114,187,"X",7,0)
+48 ;;= COOKED. STIR OCCASIONALLY.
+49 ;;^UTILITY(U,$J,114,187,"X",8,0)
+50 ;;=4) NOTE: 1. STRAIN OR BLENDERIZE FOR PUREED AND LIQUID DIETS.
+51 ;;^UTILITY(U,$J,114,187,"X",9,0)
+52 ;;= 2. OPTIONAL: PARSLEY, MINCED (1/4 CUP)
+53 ;;^UTILITY(U,$J,114,187,"X",10,0)
+54 ;;= PAPRIKA (2-2/3 TBSP)
+55 ;;^UTILITY(U,$J,114,188,0)
+56 ;;=LS BROWNED POTATOES^100^3-OZ^25 MIN^^^7^Y^P-20^^S
+57 ;;^UTILITY(U,$J,114,188,"E",0)
+58 ;;=^114.05P^1^1
+59 ;;^UTILITY(U,$J,114,188,"E",1,0)
+60 ;;=25
+61 ;;^UTILITY(U,$J,114,188,"I",0)
+62 ;;=^114.01PA^2^2
+63 ;;^UTILITY(U,$J,114,188,"I",1,0)
+64 ;;=958^25^1506^25
+65 ;;^UTILITY(U,$J,114,188,"I",2,0)
+66 ;;=624^1^371^1
+67 ;;^UTILITY(U,$J,114,188,"X",0)
+68 ;;=^^5^5^2890724^
+69 ;;^UTILITY(U,$J,114,188,"X",1,0)
+70 ;;=1) PARBOIL POTATOES 15 MINUTES. DRAIN THOROUGHLY.
+71 ;;^UTILITY(U,$J,114,188,"X",2,0)
+72 ;;=2) PLACE IN ROASTING PAN.
+73 ;;^UTILITY(U,$J,114,188,"X",3,0)
+74 ;;=3) POUR OVER POTATOES; COAT THOROUGHLY.
+75 ;;^UTILITY(U,$J,114,188,"X",4,0)
+76 ;;=4) BAKE UNTIL BROWNED AND TENDER. BASTE FREQUENTLY; TURN POTATOES
+77 ;;^UTILITY(U,$J,114,188,"X",5,0)
+78 ;;= TWICE DURING COOKING PERIOD.
+79 ;;^UTILITY(U,$J,114,189,0)
+80 ;;=CORNBREAD #2^70^1-EACH^40 MIN^^2^12^Y^B-8^^S^^.014
+81 ;;^UTILITY(U,$J,114,189,"E",0)
+82 ;;=^114.05P^1^1
+83 ;;^UTILITY(U,$J,114,189,"E",1,0)
+84 ;;=8
+85 ;;^UTILITY(U,$J,114,189,"I",0)
+86 ;;=^114.01PA^8^8
+87 ;;^UTILITY(U,$J,114,189,"I",1,0)
+88 ;;=96^2.6875^2763^2.6875
+89 ;;^UTILITY(U,$J,114,189,"I",2,0)
+90 ;;=628^1.1875^1998^1.1875
+91 ;;^UTILITY(U,$J,114,189,"I",3,0)
+92 ;;=256^.3125^1906^.3125
+93 ;;^UTILITY(U,$J,114,189,"I",4,0)
+94 ;;=230^.03125^1598^.03125
+95 ;;^UTILITY(U,$J,114,189,"I",5,0)
+96 ;;=11^.1875^680^.1875
+97 ;;^UTILITY(U,$J,114,189,"I",6,0)
+98 ;;=762^6^85
+99 ;;^UTILITY(U,$J,114,189,"I",7,0)
+100 ;;=734^1.25^115^1.0625
+101 ;;^UTILITY(U,$J,114,189,"I",8,0)
+102 ;;=286^.8125^394^.8125
+103 ;;^UTILITY(U,$J,114,189,"X",0)
+104 ;;=^^4^4^2890814^^
+105 ;;^UTILITY(U,$J,114,189,"X",1,0)
+106 ;;=1) SIFT TOGETHER ALL DRY INGREDIENTS.
+107 ;;^UTILITY(U,$J,114,189,"X",2,0)
+108 ;;=2) ADD REMAINING INGREDIENTS, MIX ONLY UNTIL DRY MIXTURE IS MOISTENED.
+109 ;;^UTILITY(U,$J,114,189,"X",3,0)
+110 ;;=3) SCALE INTO OILED PANS AND BAKE AT 425 DEGREES F FOR 25 MINUTES.
+111 ;;^UTILITY(U,$J,114,189,"X",4,0)
+112 ;;=4) PORTION INTO 70 CUTS PER 25" X 17" BAKING SHEET.
+113 ;;^UTILITY(U,$J,114,190,0)
+114 ;;=BEEF VEGETABLE SOUP^100^6-FLOZ^90 MIN^^10^10^Y^A-83^^S^^.02
+115 ;;^UTILITY(U,$J,114,190,"E",0)
+116 ;;=^114.05P^1^1
+117 ;;^UTILITY(U,$J,114,190,"E",1,0)
+118 ;;=5
+119 ;;^UTILITY(U,$J,114,190,"I",0)
+120 ;;=^114.01PA^8^8
+121 ;;^UTILITY(U,$J,114,190,"I",1,0)
+122 ;;=235^2
+123 ;;^UTILITY(U,$J,114,190,"I",2,0)
+124 ;;=847^6^2021
+125 ;;^UTILITY(U,$J,114,190,"I",3,0)
+126 ;;=866^2.5^935^2.5
+127 ;;^UTILITY(U,$J,114,190,"I",4,0)
+128 ;;=776^2.5^951^2.5
+129 ;;^UTILITY(U,$J,114,190,"I",5,0)
+130 ;;=725^.21875^1384^.21875
+131 ;;^UTILITY(U,$J,114,190,"I",6,0)
+132 ;;=211^.57813
+133 ;;^UTILITY(U,$J,114,190,"I",7,0)
+134 ;;=230^.1875^1598^.1875
+135 ;;^UTILITY(U,$J,114,190,"I",8,0)
+136 ;;=192^.01563^288^.01563
+137 ;;^UTILITY(U,$J,114,190,"X",0)
+138 ;;=^^3^3^2890724^^
+139 ;;^UTILITY(U,$J,114,190,"X",1,0)
+140 ;;=1) COMBINE BASE AND WATER TO FORM STOCK.
