FHINI0IH ; ; 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,123,"X",2,0)
;;=2) ADD VEGETABLES AND SIMMER UNTIL NOT QUITE TENDER.
;;^UTILITY(U,$J,114,123,"X",3,0)
;;=3) ADD REMAINING INGREDIENTS. SIMMER APPROXIMATELY 30 MINUTES.
;;^UTILITY(U,$J,114,124,0)
;;=POTATOES AU GRATIN^100^5-OZ^60 MIN^^12^7^Y^P-1^^S^^.012
;;^UTILITY(U,$J,114,124,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,124,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,124,"I",0)
;;=^114.01PA^11^10
;;^UTILITY(U,$J,114,124,"I",1,0)
;;=870^18.5^1506^18.5
;;^UTILITY(U,$J,114,124,"I",2,0)
;;=157^1.0625^138^1.0625
;;^UTILITY(U,$J,114,124,"I",3,0)
;;=847^1.03125^2021
;;^UTILITY(U,$J,114,124,"I",4,0)
;;=297^.76563^372^.76563
;;^UTILITY(U,$J,114,124,"I",5,0)
;;=628^.375^1998^.375
;;^UTILITY(U,$J,114,124,"I",6,0)
;;=230^.09375^1598^.09375
;;^UTILITY(U,$J,114,124,"I",7,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,124,"I",8,0)
;;=489^2.5^9^2.5
;;^UTILITY(U,$J,114,124,"I",9,0)
;;=382^.01563
;;^UTILITY(U,$J,114,124,"I",11,0)
;;=867^.57813^827^.57813
;;^UTILITY(U,$J,114,124,"X",0)
;;=^^14^14^2890815^^
;;^UTILITY(U,$J,114,124,"X",1,0)
;;=1) STEAM POTATOES UNTIL JUST TEDNER. DO NOT OVERCOOK. RESERVE FOR STEP 6.
;;^UTILITY(U,$J,114,124,"X",2,0)
;;=2) RECONSTITUTE MILK; HEAT TO BELOW BOILING. DO NOT BOIL.
;;^UTILITY(U,$J,114,124,"X",3,0)
;;= RESERVE FOR STEP 4.
;;^UTILITY(U,$J,114,124,"X",4,0)
;;=3) MELT MARGARINE (FIRST LISTING). COMBINE FLOUR, SALT AND PEPPER.
;;^UTILITY(U,$J,114,124,"X",5,0)
;;= STIR INTO MARGARINE TO FORM ROUX. DO NOT BROWN.
;;^UTILITY(U,$J,114,124,"X",6,0)
;;=4) ADD ROUX TO HOT MILK (FROM STEP 2), STIRRING CONSTANTLY.
;;^UTILITY(U,$J,114,124,"X",7,0)
;;= SIMMER 5 MINUTES OR UNTIL THICKENED.
;;^UTILITY(U,$J,114,124,"X",8,0)
;;=5) BLEND CHEESE (FIRST LISTING) AND MUSTARD INTO SAUCE, STIRRING CONSTANTLY
;;^UTILITY(U,$J,114,124,"X",9,0)
;;= UNTIL CHEESE IS MELTED.
;;^UTILITY(U,$J,114,124,"X",10,0)
;;=6) POUR SAUCE OVER POTATOES (FROM STEP 1); MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,124,"X",11,0)
;;=7) MELT MARGARINE (SECOND LISTING). COMBINE MARGARINE AND BREADCRUMBS
;;^UTILITY(U,$J,114,124,"X",12,0)
;;= AND MIX. TOP POTATOES WITH MIXTURE.
;;^UTILITY(U,$J,114,124,"X",13,0)
;;=8) GRATE CHEESE (SECOND LISTING). SPRINKLE CHEESE OVER CRUMB MIXTURE.
;;^UTILITY(U,$J,114,124,"X",14,0)
;;= BAKE UNTIL LIGHTLY BROWNED.
;;^UTILITY(U,$J,114,125,0)
;;=BEEF NOODLE SOUP^100^6-FLOZ^70 MIN^^10^10^Y^A-63^^S^^.02
;;^UTILITY(U,$J,114,125,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,125,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,125,"I",0)
;;=^114.01PA^6^6
;;^UTILITY(U,$J,114,125,"I",1,0)
;;=235^1.25
;;^UTILITY(U,$J,114,125,"I",2,0)
;;=847^5^2021
;;^UTILITY(U,$J,114,125,"I",3,0)
;;=725^.25^1384^.25
;;^UTILITY(U,$J,114,125,"I",4,0)
;;=776^2^951^2
;;^UTILITY(U,$J,114,125,"I",5,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,125,"I",6,0)
;;=166^1.5^1363^1.5
;;^UTILITY(U,$J,114,125,"X",0)
;;=^^3^3^2890724^
;;^UTILITY(U,$J,114,125,"X",1,0)
;;=1) COMBINE BASE AND WATER TO FORM STOCK.
;;^UTILITY(U,$J,114,125,"X",2,0)
;;=2) ADD VEGETABLES. BRING TO BOILING POINT.
;;^UTILITY(U,$J,114,125,"X",3,0)
;;=3) ADD SALT AND NOODLES. SIMMER 20-30 MINUTES OR UNTIL TENDER.
;;^UTILITY(U,$J,114,126,0)
;;=BAKED POTATO SUPREME^100^3.75-OZ^30^^^7^Y^P-3^^S
;;^UTILITY(U,$J,114,126,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,126,"E",1,0)
;;=23
;;^UTILITY(U,$J,114,126,"I",0)
;;=^114.01PA^4^4
;;^UTILITY(U,$J,114,126,"I",1,0)
;;=958^25^1506^25
;;^UTILITY(U,$J,114,126,"I",2,0)
;;=297^1.5^372^1.5
;;^UTILITY(U,$J,114,126,"I",3,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,126,"I",4,0)
;;=867^1.5^827^1.5
;;^UTILITY(U,$J,114,126,"X",0)
;;=^^6^6^2890724^
;;^UTILITY(U,$J,114,126,"X",1,0)
;;=1) DRAIN POTATOES AND DRY.
;;^UTILITY(U,$J,114,126,"X",2,0)
;;=2) MELT MARGARINE; ADD SALT AND MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,126,"X",3,0)
;;=3) DIP WHOLE POTATOES TO COAT.
;;^UTILITY(U,$J,114,126,"X",4,0)
;;=4) ROLL POTATOES IN CRUMBS; SHAKE OFF EXCESS.
;;^UTILITY(U,$J,114,126,"X",5,0)
;;=5) POUR REMAINING MARGARINE OVER POTATOES.
;;^UTILITY(U,$J,114,126,"X",6,0)
;;=6) BAKE UNTIL DONE.
;;^UTILITY(U,$J,114,127,0)
;;=LS BAKED POTATO SUPREME^100^3.75-OZ^30 MIN^^^7^Y^P-4^^S
;;^UTILITY(U,$J,114,127,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,127,"E",1,0)
;;=23
;;^UTILITY(U,$J,114,127,"I",0)
;;=^114.01PA^3^3
;;^UTILITY(U,$J,114,127,"I",1,0)
;;=958^25^1506^25
;;^UTILITY(U,$J,114,127,"I",2,0)
;;=624^1.5^371^1.5
;;^UTILITY(U,$J,114,127,"I",3,0)
;;=867^1.5^827^1.5
;;^UTILITY(U,$J,114,127,"X",0)
;;=^^5^5^2890724^
;;^UTILITY(U,$J,114,127,"X",1,0)
;;=1) DRAIN POTATOES THOROUGHLY AND DRY.
FHINI0IH ; ; 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,123,"X",2,0)
+2 ;;=2) ADD VEGETABLES AND SIMMER UNTIL NOT QUITE TENDER.
+3 ;;^UTILITY(U,$J,114,123,"X",3,0)
+4 ;;=3) ADD REMAINING INGREDIENTS. SIMMER APPROXIMATELY 30 MINUTES.
+5 ;;^UTILITY(U,$J,114,124,0)
+6 ;;=POTATOES AU GRATIN^100^5-OZ^60 MIN^^12^7^Y^P-1^^S^^.012
+7 ;;^UTILITY(U,$J,114,124,"E",0)
+8 ;;=^114.05P^1^1
+9 ;;^UTILITY(U,$J,114,124,"E",1,0)
+10 ;;=6
+11 ;;^UTILITY(U,$J,114,124,"I",0)
+12 ;;=^114.01PA^11^10
+13 ;;^UTILITY(U,$J,114,124,"I",1,0)
+14 ;;=870^18.5^1506^18.5
+15 ;;^UTILITY(U,$J,114,124,"I",2,0)
+16 ;;=157^1.0625^138^1.0625
+17 ;;^UTILITY(U,$J,114,124,"I",3,0)
+18 ;;=847^1.03125^2021
+19 ;;^UTILITY(U,$J,114,124,"I",4,0)
+20 ;;=297^.76563^372^.76563
+21 ;;^UTILITY(U,$J,114,124,"I",5,0)
+22 ;;=628^.375^1998^.375
+23 ;;^UTILITY(U,$J,114,124,"I",6,0)
+24 ;;=230^.09375^1598^.09375
+25 ;;^UTILITY(U,$J,114,124,"I",7,0)
+26 ;;=192^.01563^288^.01563
+27 ;;^UTILITY(U,$J,114,124,"I",8,0)
+28 ;;=489^2.5^9^2.5
+29 ;;^UTILITY(U,$J,114,124,"I",9,0)
+30 ;;=382^.01563
+31 ;;^UTILITY(U,$J,114,124,"I",11,0)
+32 ;;=867^.57813^827^.57813
+33 ;;^UTILITY(U,$J,114,124,"X",0)
+34 ;;=^^14^14^2890815^^
+35 ;;^UTILITY(U,$J,114,124,"X",1,0)
+36 ;;=1) STEAM POTATOES UNTIL JUST TEDNER. DO NOT OVERCOOK. RESERVE FOR STEP 6.
+37 ;;^UTILITY(U,$J,114,124,"X",2,0)
+38 ;;=2) RECONSTITUTE MILK; HEAT TO BELOW BOILING. DO NOT BOIL.
+39 ;;^UTILITY(U,$J,114,124,"X",3,0)
+40 ;;= RESERVE FOR STEP 4.
+41 ;;^UTILITY(U,$J,114,124,"X",4,0)
+42 ;;=3) MELT MARGARINE (FIRST LISTING). COMBINE FLOUR, SALT AND PEPPER.
+43 ;;^UTILITY(U,$J,114,124,"X",5,0)
+44 ;;= STIR INTO MARGARINE TO FORM ROUX. DO NOT BROWN.
+45 ;;^UTILITY(U,$J,114,124,"X",6,0)
+46 ;;=4) ADD ROUX TO HOT MILK (FROM STEP 2), STIRRING CONSTANTLY.
+47 ;;^UTILITY(U,$J,114,124,"X",7,0)
+48 ;;= SIMMER 5 MINUTES OR UNTIL THICKENED.
+49 ;;^UTILITY(U,$J,114,124,"X",8,0)
+50 ;;=5) BLEND CHEESE (FIRST LISTING) AND MUSTARD INTO SAUCE, STIRRING CONSTANTLY
+51 ;;^UTILITY(U,$J,114,124,"X",9,0)
+52 ;;= UNTIL CHEESE IS MELTED.
+53 ;;^UTILITY(U,$J,114,124,"X",10,0)
+54 ;;=6) POUR SAUCE OVER POTATOES (FROM STEP 1); MIX TO DISTRIBUTE.
+55 ;;^UTILITY(U,$J,114,124,"X",11,0)
+56 ;;=7) MELT MARGARINE (SECOND LISTING). COMBINE MARGARINE AND BREADCRUMBS
+57 ;;^UTILITY(U,$J,114,124,"X",12,0)
+58 ;;= AND MIX. TOP POTATOES WITH MIXTURE.
+59 ;;^UTILITY(U,$J,114,124,"X",13,0)
+60 ;;=8) GRATE CHEESE (SECOND LISTING). SPRINKLE CHEESE OVER CRUMB MIXTURE.
+61 ;;^UTILITY(U,$J,114,124,"X",14,0)
+62 ;;= BAKE UNTIL LIGHTLY BROWNED.
+63 ;;^UTILITY(U,$J,114,125,0)
+64 ;;=BEEF NOODLE SOUP^100^6-FLOZ^70 MIN^^10^10^Y^A-63^^S^^.02
+65 ;;^UTILITY(U,$J,114,125,"E",0)
+66 ;;=^114.05P^1^1
+67 ;;^UTILITY(U,$J,114,125,"E",1,0)
+68 ;;=5
+69 ;;^UTILITY(U,$J,114,125,"I",0)
+70 ;;=^114.01PA^6^6
+71 ;;^UTILITY(U,$J,114,125,"I",1,0)
+72 ;;=235^1.25
+73 ;;^UTILITY(U,$J,114,125,"I",2,0)
+74 ;;=847^5^2021
+75 ;;^UTILITY(U,$J,114,125,"I",3,0)
+76 ;;=725^.25^1384^.25
+77 ;;^UTILITY(U,$J,114,125,"I",4,0)
+78 ;;=776^2^951^2
+79 ;;^UTILITY(U,$J,114,125,"I",5,0)
+80 ;;=230^.0625^1598^.0625
+81 ;;^UTILITY(U,$J,114,125,"I",6,0)
+82 ;;=166^1.5^1363^1.5
+83 ;;^UTILITY(U,$J,114,125,"X",0)
+84 ;;=^^3^3^2890724^
+85 ;;^UTILITY(U,$J,114,125,"X",1,0)
+86 ;;=1) COMBINE BASE AND WATER TO FORM STOCK.
+87 ;;^UTILITY(U,$J,114,125,"X",2,0)
+88 ;;=2) ADD VEGETABLES. BRING TO BOILING POINT.
+89 ;;^UTILITY(U,$J,114,125,"X",3,0)
+90 ;;=3) ADD SALT AND NOODLES. SIMMER 20-30 MINUTES OR UNTIL TENDER.
+91 ;;^UTILITY(U,$J,114,126,0)
+92 ;;=BAKED POTATO SUPREME^100^3.75-OZ^30^^^7^Y^P-3^^S
+93 ;;^UTILITY(U,$J,114,126,"E",0)
+94 ;;=^114.05P^1^1
+95 ;;^UTILITY(U,$J,114,126,"E",1,0)
+96 ;;=23
+97 ;;^UTILITY(U,$J,114,126,"I",0)
+98 ;;=^114.01PA^4^4
+99 ;;^UTILITY(U,$J,114,126,"I",1,0)
+100 ;;=958^25^1506^25
+101 ;;^UTILITY(U,$J,114,126,"I",2,0)
+102 ;;=297^1.5^372^1.5
+103 ;;^UTILITY(U,$J,114,126,"I",3,0)
+104 ;;=230^.125^1598^.125
+105 ;;^UTILITY(U,$J,114,126,"I",4,0)
+106 ;;=867^1.5^827^1.5
+107 ;;^UTILITY(U,$J,114,126,"X",0)
+108 ;;=^^6^6^2890724^
+109 ;;^UTILITY(U,$J,114,126,"X",1,0)
+110 ;;=1) DRAIN POTATOES AND DRY.
+111 ;;^UTILITY(U,$J,114,126,"X",2,0)
+112 ;;=2) MELT MARGARINE; ADD SALT AND MIX TO DISTRIBUTE.
+113 ;;^UTILITY(U,$J,114,126,"X",3,0)
+114 ;;=3) DIP WHOLE POTATOES TO COAT.
+115 ;;^UTILITY(U,$J,114,126,"X",4,0)
+116 ;;=4) ROLL POTATOES IN CRUMBS; SHAKE OFF EXCESS.
+117 ;;^UTILITY(U,$J,114,126,"X",5,0)
+118 ;;=5) POUR REMAINING MARGARINE OVER POTATOES.
+119 ;;^UTILITY(U,$J,114,126,"X",6,0)
+120 ;;=6) BAKE UNTIL DONE.
+121 ;;^UTILITY(U,$J,114,127,0)
+122 ;;=LS BAKED POTATO SUPREME^100^3.75-OZ^30 MIN^^^7^Y^P-4^^S
+123 ;;^UTILITY(U,$J,114,127,"E",0)
+124 ;;=^114.05P^1^1
+125 ;;^UTILITY(U,$J,114,127,"E",1,0)
+126 ;;=23
+127 ;;^UTILITY(U,$J,114,127,"I",0)
+128 ;;=^114.01PA^3^3
+129 ;;^UTILITY(U,$J,114,127,"I",1,0)
+130 ;;=958^25^1506^25
+131 ;;^UTILITY(U,$J,114,127,"I",2,0)
+132 ;;=624^1.5^371^1.5
+133 ;;^UTILITY(U,$J,114,127,"I",3,0)
+134 ;;=867^1.5^827^1.5
+135 ;;^UTILITY(U,$J,114,127,"X",0)
+136 ;;=^^5^5^2890724^
+137 ;;^UTILITY(U,$J,114,127,"X",1,0)
+138 ;;=1) DRAIN POTATOES THOROUGHLY AND DRY.
