FHINI0JT ; ; 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,325,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,325,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,325,"I",1,0)
;;=987^1
;;^UTILITY(U,$J,114,325,"I",2,0)
;;=572^6.1875^1604^6.1875
;;^UTILITY(U,$J,114,325,"I",3,0)
;;=375^1^1615^1
;;^UTILITY(U,$J,114,325,"I",4,0)
;;=255^.625^1905^.625
;;^UTILITY(U,$J,114,325,"I",5,0)
;;=876^.04188^265^.04188
;;^UTILITY(U,$J,114,325,"X",0)
;;=^^2^2^2890725^
;;^UTILITY(U,$J,114,325,"X",1,0)
;;=1) COMBINE INGREDIENTS AND MIX TO DISTRIBUTE. COOK UNTIL MIXTURE
;;^UTILITY(U,$J,114,325,"X",2,0)
;;= IS LIGHTLY BROWNED, STIRRING FREQUENTLY.
;;^UTILITY(U,$J,114,326,0)
;;=ZUCCHINI ITALIAN^100^3-OZ^1-1/2 HRS^^^9^Y^V-75^^S^^.014
;;^UTILITY(U,$J,114,326,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,326,"E",1,0)
;;=23
;;^UTILITY(U,$J,114,326,"I",0)
;;=^114.01PA^12^12
;;^UTILITY(U,$J,114,326,"I",1,0)
;;=725^.0625^1384^.0625
;;^UTILITY(U,$J,114,326,"I",2,0)
;;=403^.01563
;;^UTILITY(U,$J,114,326,"I",3,0)
;;=377^.125^2873^.96125
;;^UTILITY(U,$J,114,326,"I",4,0)
;;=273^1.625^1932^1.625
;;^UTILITY(U,$J,114,326,"I",5,0)
;;=255^.125^1905^.125
;;^UTILITY(U,$J,114,326,"I",6,0)
;;=163^.01563^1359
;;^UTILITY(U,$J,114,326,"I",7,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,326,"I",8,0)
;;=192^.0625^288^.0625
;;^UTILITY(U,$J,114,326,"I",9,0)
;;=129^.0625^278^.0625
;;^UTILITY(U,$J,114,326,"I",10,0)
;;=44^.0625
;;^UTILITY(U,$J,114,326,"I",11,0)
;;=77^.0625^267^.0625
;;^UTILITY(U,$J,114,326,"I",12,0)
;;=960^12^2100^12
;;^UTILITY(U,$J,114,326,"X",0)
;;=^^7^7^2890725^
;;^UTILITY(U,$J,114,326,"X",1,0)
;;=1) RECONSTITUTE ONIONS AND GREEN PEPPERS.
;;^UTILITY(U,$J,114,326,"X",2,0)
;;=2) SAUTE IN OIL UNTIL ONIONS ARE CLEAR AND GLOSSY.
;;^UTILITY(U,$J,114,326,"X",3,0)
;;=3) COMBINE TOMATOES, SUGAR, MUSTARD AND SEASONINGS AND ADD TO
;;^UTILITY(U,$J,114,326,"X",4,0)
;;= MIXTURE IN STEP 1. SIMMER FOR 1 HOUR.
;;^UTILITY(U,$J,114,326,"X",5,0)
;;=4) COOK ZUCCHINI IN SALTED WATER UNTIL ALMOST TENDER.
;;^UTILITY(U,$J,114,326,"X",6,0)
;;=5) PLACE ZUCCHINI IN PANS AND COVER WITH SAUCE FROM STEP 3.
;;^UTILITY(U,$J,114,326,"X",7,0)
;;= COOK IN OVEN UNTIL THOROUGHLY HEATED.
;;^UTILITY(U,$J,114,327,0)
;;=CHEESE FONDUE^80^4-OZ^1.5 HR^^12^4^Y^E-255^^S^^.028
;;^UTILITY(U,$J,114,327,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,327,"E",1,0)
;;=22
;;^UTILITY(U,$J,114,327,"E",2,0)
;;=6
;;^UTILITY(U,$J,114,327,"I",0)
;;=^114.01PA^7^7
;;^UTILITY(U,$J,114,327,"I",1,0)
;;=157^2.25^138^2.25
;;^UTILITY(U,$J,114,327,"I",2,0)
;;=847^1.875^2021
;;^UTILITY(U,$J,114,327,"I",3,0)
;;=297^.5^372^.5
;;^UTILITY(U,$J,114,327,"I",4,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,327,"I",5,0)
;;=760^186^823
;;^UTILITY(U,$J,114,327,"I",6,0)
;;=489^9^9^9
;;^UTILITY(U,$J,114,327,"I",7,0)
;;=788^24^6498
;;^UTILITY(U,$J,114,327,"X",0)
;;=^^7^7^2890725^
;;^UTILITY(U,$J,114,327,"X",1,0)
;;=1) RECONSTITUTE MILK AND SCALD. ADD MARGARINE AND SALT; MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,327,"X",2,0)
;;=2) CUBE BREAD SLICES. GRATE CHEDDAR CHEESE.
;;^UTILITY(U,$J,114,327,"X",3,0)
;;=3) POUR MILK MIXTURE OVER BREAD CUBES. ADD CHEESE; MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,327,"X",4,0)
;;=4) ADD YOLKS FROM EGGS (SAVE WHITES) GRADUALLY TO BREAD MIXTURE. MIX
;;^UTILITY(U,$J,114,327,"X",5,0)
;;= TO DISTRIBUTE. FOLD IN STIFFLY BEATEN EGG WHITES.
;;^UTILITY(U,$J,114,327,"X",6,0)
;;=5) SCALE MIXTURE INTO WELL-GREASED PANS. BAKE (300F) FOR 50 MINUTES OR
;;^UTILITY(U,$J,114,327,"X",7,0)
;;= UNTIL SET. MARK AND CUT 20 PORTIONS/PAN (5 X 4).
;;^UTILITY(U,$J,114,328,0)
;;=BAKED WINTER SQUASH^100^3-OZ^15 MIN^^^9^Y^V-77^^S^^.002
;;^UTILITY(U,$J,114,328,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,328,"E",1,0)
;;=26
;;^UTILITY(U,$J,114,328,"I",0)
;;=^114.01PA^4^4
;;^UTILITY(U,$J,114,328,"I",1,0)
;;=1012^20^1901^20
;;^UTILITY(U,$J,114,328,"I",2,0)
;;=297^1^372^1
;;^UTILITY(U,$J,114,328,"I",3,0)
;;=255^.5^1905^.5
;;^UTILITY(U,$J,114,328,"I",4,0)
;;=230^.03125^1598^.03125
;;^UTILITY(U,$J,114,328,"X",0)
;;=^^3^3^2890725^
;;^UTILITY(U,$J,114,328,"X",1,0)
;;=1) CUT SQUASH INTO 3-OZ PORTIONS. BRUSH TOPS WITH MARGARINE.
;;^UTILITY(U,$J,114,328,"X",2,0)
;;=2) COMBINE SUGAR AND SALT AND BLEND. SPRINKLE ON TOP OF SQUASH.
;;^UTILITY(U,$J,114,328,"X",3,0)
;;=3) BAKE UNTIL TENDER AND LIGHTLY BROWNED.
;;^UTILITY(U,$J,114,329,0)
;;=LS BRAISED BEEF CUBES^25^4-OZ RAW^2.25 HR^^9^4^Y^E-135^^S^^.003
;;^UTILITY(U,$J,114,329,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,329,"E",1,0)
;;=33
;;^UTILITY(U,$J,114,329,"I",0)
;;=^114.01PA^3^3
;;^UTILITY(U,$J,114,329,"I",1,0)
;;=372^6^2125^3.54
FHINI0JT ; ; 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,325,"E",1,0)
+2 ;;=6
+3 ;;^UTILITY(U,$J,114,325,"I",0)
+4 ;;=^114.01PA^5^5
+5 ;;^UTILITY(U,$J,114,325,"I",1,0)
+6 ;;=987^1
+7 ;;^UTILITY(U,$J,114,325,"I",2,0)
+8 ;;=572^6.1875^1604^6.1875
+9 ;;^UTILITY(U,$J,114,325,"I",3,0)
+10 ;;=375^1^1615^1
+11 ;;^UTILITY(U,$J,114,325,"I",4,0)
+12 ;;=255^.625^1905^.625
+13 ;;^UTILITY(U,$J,114,325,"I",5,0)
+14 ;;=876^.04188^265^.04188
+15 ;;^UTILITY(U,$J,114,325,"X",0)
+16 ;;=^^2^2^2890725^
+17 ;;^UTILITY(U,$J,114,325,"X",1,0)
+18 ;;=1) COMBINE INGREDIENTS AND MIX TO DISTRIBUTE. COOK UNTIL MIXTURE
+19 ;;^UTILITY(U,$J,114,325,"X",2,0)
+20 ;;= IS LIGHTLY BROWNED, STIRRING FREQUENTLY.
+21 ;;^UTILITY(U,$J,114,326,0)
+22 ;;=ZUCCHINI ITALIAN^100^3-OZ^1-1/2 HRS^^^9^Y^V-75^^S^^.014
+23 ;;^UTILITY(U,$J,114,326,"E",0)
+24 ;;=^114.05P^1^1
+25 ;;^UTILITY(U,$J,114,326,"E",1,0)
+26 ;;=23
+27 ;;^UTILITY(U,$J,114,326,"I",0)
+28 ;;=^114.01PA^12^12
+29 ;;^UTILITY(U,$J,114,326,"I",1,0)
+30 ;;=725^.0625^1384^.0625
+31 ;;^UTILITY(U,$J,114,326,"I",2,0)
+32 ;;=403^.01563
+33 ;;^UTILITY(U,$J,114,326,"I",3,0)
+34 ;;=377^.125^2873^.96125
+35 ;;^UTILITY(U,$J,114,326,"I",4,0)
+36 ;;=273^1.625^1932^1.625
+37 ;;^UTILITY(U,$J,114,326,"I",5,0)
+38 ;;=255^.125^1905^.125
+39 ;;^UTILITY(U,$J,114,326,"I",6,0)
+40 ;;=163^.01563^1359
+41 ;;^UTILITY(U,$J,114,326,"I",7,0)
+42 ;;=230^.0625^1598^.0625
+43 ;;^UTILITY(U,$J,114,326,"I",8,0)
+44 ;;=192^.0625^288^.0625
+45 ;;^UTILITY(U,$J,114,326,"I",9,0)
+46 ;;=129^.0625^278^.0625
+47 ;;^UTILITY(U,$J,114,326,"I",10,0)
+48 ;;=44^.0625
+49 ;;^UTILITY(U,$J,114,326,"I",11,0)
+50 ;;=77^.0625^267^.0625
+51 ;;^UTILITY(U,$J,114,326,"I",12,0)
+52 ;;=960^12^2100^12
+53 ;;^UTILITY(U,$J,114,326,"X",0)
+54 ;;=^^7^7^2890725^
+55 ;;^UTILITY(U,$J,114,326,"X",1,0)
+56 ;;=1) RECONSTITUTE ONIONS AND GREEN PEPPERS.
+57 ;;^UTILITY(U,$J,114,326,"X",2,0)
+58 ;;=2) SAUTE IN OIL UNTIL ONIONS ARE CLEAR AND GLOSSY.
+59 ;;^UTILITY(U,$J,114,326,"X",3,0)
+60 ;;=3) COMBINE TOMATOES, SUGAR, MUSTARD AND SEASONINGS AND ADD TO
+61 ;;^UTILITY(U,$J,114,326,"X",4,0)
+62 ;;= MIXTURE IN STEP 1. SIMMER FOR 1 HOUR.
+63 ;;^UTILITY(U,$J,114,326,"X",5,0)
+64 ;;=4) COOK ZUCCHINI IN SALTED WATER UNTIL ALMOST TENDER.
+65 ;;^UTILITY(U,$J,114,326,"X",6,0)
+66 ;;=5) PLACE ZUCCHINI IN PANS AND COVER WITH SAUCE FROM STEP 3.
+67 ;;^UTILITY(U,$J,114,326,"X",7,0)
+68 ;;= COOK IN OVEN UNTIL THOROUGHLY HEATED.
+69 ;;^UTILITY(U,$J,114,327,0)
+70 ;;=CHEESE FONDUE^80^4-OZ^1.5 HR^^12^4^Y^E-255^^S^^.028
+71 ;;^UTILITY(U,$J,114,327,"E",0)
+72 ;;=^114.05P^2^2
+73 ;;^UTILITY(U,$J,114,327,"E",1,0)
+74 ;;=22
+75 ;;^UTILITY(U,$J,114,327,"E",2,0)
+76 ;;=6
+77 ;;^UTILITY(U,$J,114,327,"I",0)
+78 ;;=^114.01PA^7^7
+79 ;;^UTILITY(U,$J,114,327,"I",1,0)
+80 ;;=157^2.25^138^2.25
+81 ;;^UTILITY(U,$J,114,327,"I",2,0)
+82 ;;=847^1.875^2021
+83 ;;^UTILITY(U,$J,114,327,"I",3,0)
+84 ;;=297^.5^372^.5
+85 ;;^UTILITY(U,$J,114,327,"I",4,0)
+86 ;;=230^.0625^1598^.0625
+87 ;;^UTILITY(U,$J,114,327,"I",5,0)
+88 ;;=760^186^823
+89 ;;^UTILITY(U,$J,114,327,"I",6,0)
+90 ;;=489^9^9^9
+91 ;;^UTILITY(U,$J,114,327,"I",7,0)
+92 ;;=788^24^6498
+93 ;;^UTILITY(U,$J,114,327,"X",0)
+94 ;;=^^7^7^2890725^
+95 ;;^UTILITY(U,$J,114,327,"X",1,0)
+96 ;;=1) RECONSTITUTE MILK AND SCALD. ADD MARGARINE AND SALT; MIX TO DISTRIBUTE.
+97 ;;^UTILITY(U,$J,114,327,"X",2,0)
+98 ;;=2) CUBE BREAD SLICES. GRATE CHEDDAR CHEESE.
+99 ;;^UTILITY(U,$J,114,327,"X",3,0)
+100 ;;=3) POUR MILK MIXTURE OVER BREAD CUBES. ADD CHEESE; MIX TO DISTRIBUTE.
+101 ;;^UTILITY(U,$J,114,327,"X",4,0)
+102 ;;=4) ADD YOLKS FROM EGGS (SAVE WHITES) GRADUALLY TO BREAD MIXTURE. MIX
+103 ;;^UTILITY(U,$J,114,327,"X",5,0)
+104 ;;= TO DISTRIBUTE. FOLD IN STIFFLY BEATEN EGG WHITES.
+105 ;;^UTILITY(U,$J,114,327,"X",6,0)
+106 ;;=5) SCALE MIXTURE INTO WELL-GREASED PANS. BAKE (300F) FOR 50 MINUTES OR
+107 ;;^UTILITY(U,$J,114,327,"X",7,0)
+108 ;;= UNTIL SET. MARK AND CUT 20 PORTIONS/PAN (5 X 4).
+109 ;;^UTILITY(U,$J,114,328,0)
+110 ;;=BAKED WINTER SQUASH^100^3-OZ^15 MIN^^^9^Y^V-77^^S^^.002
+111 ;;^UTILITY(U,$J,114,328,"E",0)
+112 ;;=^114.05P^1^1
+113 ;;^UTILITY(U,$J,114,328,"E",1,0)
+114 ;;=26
+115 ;;^UTILITY(U,$J,114,328,"I",0)
+116 ;;=^114.01PA^4^4
+117 ;;^UTILITY(U,$J,114,328,"I",1,0)
+118 ;;=1012^20^1901^20
+119 ;;^UTILITY(U,$J,114,328,"I",2,0)
+120 ;;=297^1^372^1
+121 ;;^UTILITY(U,$J,114,328,"I",3,0)
+122 ;;=255^.5^1905^.5
+123 ;;^UTILITY(U,$J,114,328,"I",4,0)
+124 ;;=230^.03125^1598^.03125
+125 ;;^UTILITY(U,$J,114,328,"X",0)
+126 ;;=^^3^3^2890725^
+127 ;;^UTILITY(U,$J,114,328,"X",1,0)
+128 ;;=1) CUT SQUASH INTO 3-OZ PORTIONS. BRUSH TOPS WITH MARGARINE.
+129 ;;^UTILITY(U,$J,114,328,"X",2,0)
+130 ;;=2) COMBINE SUGAR AND SALT AND BLEND. SPRINKLE ON TOP OF SQUASH.
+131 ;;^UTILITY(U,$J,114,328,"X",3,0)
+132 ;;=3) BAKE UNTIL TENDER AND LIGHTLY BROWNED.
+133 ;;^UTILITY(U,$J,114,329,0)
+134 ;;=LS BRAISED BEEF CUBES^25^4-OZ RAW^2.25 HR^^9^4^Y^E-135^^S^^.003
+135 ;;^UTILITY(U,$J,114,329,"E",0)
+136 ;;=^114.05P^1^1
+137 ;;^UTILITY(U,$J,114,329,"E",1,0)
+138 ;;=33
+139 ;;^UTILITY(U,$J,114,329,"I",0)
+140 ;;=^114.01PA^3^3
+141 ;;^UTILITY(U,$J,114,329,"I",1,0)
+142 ;;=372^6^2125^3.54
