FHINI0IM ; ; 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,146,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,146,"I",1,0)
;;=370^100^1731
;;^UTILITY(U,$J,114,146,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,146,"X",1,0)
;;=PLACE CAN ON TRAY.
;;^UTILITY(U,$J,114,147,0)
;;=BLAND CREAM OF BEET SOUP^10^6-FLOZ^25 MIN^^10^10^Y^A-93^^S^^.089
;;^UTILITY(U,$J,114,147,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,147,"E",1,0)
;;=7
;;^UTILITY(U,$J,114,147,"I",0)
;;=^114.01PA^6^6
;;^UTILITY(U,$J,114,147,"I",1,0)
;;=297^.15625^372^.15625
;;^UTILITY(U,$J,114,147,"I",2,0)
;;=628^.07813^1998^.07813
;;^UTILITY(U,$J,114,147,"I",3,0)
;;=157^.42188^138^.42188
;;^UTILITY(U,$J,114,147,"I",4,0)
;;=1005^.4375^2021^3.6575
;;^UTILITY(U,$J,114,147,"I",5,0)
;;=529^1^6448^1
;;^UTILITY(U,$J,114,147,"I",6,0)
;;=230^.03125^1598^.03125
;;^UTILITY(U,$J,114,147,"X",0)
;;=^^6^6^2890724^
;;^UTILITY(U,$J,114,147,"X",1,0)
;;=1) COMBINE MARGARINE AND FLOUR TO FORM ROUX. DO NOT BROWN.
;;^UTILITY(U,$J,114,147,"X",2,0)
;;=2) RECONSTITUTE MILK WITH WATER. ADD MILK SLOWLY TO ROUX AND BLEND
;;^UTILITY(U,$J,114,147,"X",3,0)
;;= THOROUGHLY. COOK UNTIL MIXTURE IS THICKENED.
;;^UTILITY(U,$J,114,147,"X",4,0)
;;=3) ADD BEET PUREE AND SALT TO CREAM SAUCE. MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,147,"X",5,0)
;;=4) NOTE: 1. ADJUST SEASONING TO TASTE. 2. 1/3 OZ. MINCED ONION
;;^UTILITY(U,$J,114,147,"X",6,0)
;;= MAY BE ADDED.
;;^UTILITY(U,$J,114,148,0)
;;=LS CASSEROLE CREOLE^25^6-OZ^85 MIN^^10^4^Y^E-36^^S^^.029
;;^UTILITY(U,$J,114,148,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,148,"E",1,0)
;;=7
;;^UTILITY(U,$J,114,148,"E",2,0)
;;=22
;;^UTILITY(U,$J,114,148,"I",0)
;;=^114.01PA^13^12
;;^UTILITY(U,$J,114,148,"I",1,0)
;;=166^1.25^1363^1.25
;;^UTILITY(U,$J,114,148,"I",2,0)
;;=1006^.22656^2021^1.8940416
;;^UTILITY(U,$J,114,148,"I",3,0)
;;=624^.125^371^.125
;;^UTILITY(U,$J,114,148,"I",4,0)
;;=777^.09375^1378^.084375
;;^UTILITY(U,$J,114,148,"I",5,0)
;;=798^.09375^1434^.076875
;;^UTILITY(U,$J,114,148,"I",6,0)
;;=22^3.125^2167^3.125
;;^UTILITY(U,$J,114,148,"I",7,0)
;;=271^3.25^1951^3.25
;;^UTILITY(U,$J,114,148,"I",8,0)
;;=77^.00781^267^.00781
;;^UTILITY(U,$J,114,148,"I",9,0)
;;=192^.00781^288^.00781
;;^UTILITY(U,$J,114,148,"I",10,0)
;;=912^.04688^6638^.04688
;;^UTILITY(U,$J,114,148,"I",11,0)
;;=847^.1875^2021
;;^UTILITY(U,$J,114,148,"I",13,0)
;;=67^.625^6433^.625
;;^UTILITY(U,$J,114,148,"X",0)
;;=^^10^10^2890724^^^^
;;^UTILITY(U,$J,114,148,"X",1,0)
;;=1) COOK NOODLES IN BOILING WATER. DRAIN AND RETAIN FOR LATER.
;;^UTILITY(U,$J,114,148,"X",2,0)
;;=2) BRAISE ONIONS AND GREEN PEPPER (CHOPPED) IN MARGARINE UNTIL ONIONS ARE
;;^UTILITY(U,$J,114,148,"X",3,0)
;;= CLEAR. REMOVE VEGETABLES FROM MARGARINE.
;;^UTILITY(U,$J,114,148,"X",4,0)
;;=3) ADD MEAT TO VEGETABLE MIXTURE FROM STEP 2. AND BROWN.
;;^UTILITY(U,$J,114,148,"X",5,0)
;;=4) COMBINE TOMATO PUREE WITH SEASONINGS PLUS BEEF SOUP AND WATER
;;^UTILITY(U,$J,114,148,"X",6,0)
;;= COMBINE TOMATO MIXTURE WITH VEGETABLES FROM STEP 2.AND ADD TO MEAT. SIMMER
;;^UTILITY(U,$J,114,148,"X",7,0)
;;= UNTIL MIXTURE IS BLENDED.
;;^UTILITY(U,$J,114,148,"X",8,0)
;;=5) ADD NOODLES FROM STEP 1 TO COOKED MIXTURE. STIR TO DISTRIBUTE.
;;^UTILITY(U,$J,114,148,"X",9,0)
;;=6) SCALE MIXTURE INTO WELL GREASED PAN. TOP WITH 10 OZ. OF CHEESE.
;;^UTILITY(U,$J,114,148,"X",10,0)
;;=7) BAKE UNTIL HEATED THROUGH AND CHEESE IS MELTED.
;;^UTILITY(U,$J,114,149,0)
;;=POTATO CHOWDER^100^6-FLOZ^105 MIN^^10^10^Y^A-76^^S^^.032
;;^UTILITY(U,$J,114,149,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,149,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,149,"I",0)
;;=^114.01PA^12^12
;;^UTILITY(U,$J,114,149,"I",1,0)
;;=211^2.5
;;^UTILITY(U,$J,114,149,"I",2,0)
;;=776^1^951^1
;;^UTILITY(U,$J,114,149,"I",3,0)
;;=725^.0625^1384^.0625
;;^UTILITY(U,$J,114,149,"I",4,0)
;;=1006^1.5^2021^12.54
;;^UTILITY(U,$J,114,149,"I",5,0)
;;=963^1.5^212^1.5
;;^UTILITY(U,$J,114,149,"I",6,0)
;;=1008^.0625
;;^UTILITY(U,$J,114,149,"I",7,0)
;;=628^.5^1998^.5
;;^UTILITY(U,$J,114,149,"I",8,0)
;;=157^3^138^3
;;^UTILITY(U,$J,114,149,"I",9,0)
;;=847^3^2021
;;^UTILITY(U,$J,114,149,"I",10,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,149,"I",11,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,149,"I",12,0)
;;=176^.03125^287^.03125
;;^UTILITY(U,$J,114,149,"X",0)
;;=^^8^8^2890724^^
;;^UTILITY(U,$J,114,149,"X",1,0)
;;=1) COOK VEGETABLES IN FIRST WATER ENTRY UNTIL TENDER, BUT NOT MUSHY. DRAIN
;;^UTILITY(U,$J,114,149,"X",2,0)
;;= AND RESERVE LIQUID FOR STEP 4.
;;^UTILITY(U,$J,114,149,"X",3,0)
;;=2) COOK BACON UNTIL CRISP. DRAIN AND RESERVE DRIPPINGS FOR STEP 3.
FHINI0IM ; ; 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,146,"I",0)
+2 ;;=^114.01PA^1^1
+3 ;;^UTILITY(U,$J,114,146,"I",1,0)
+4 ;;=370^100^1731
+5 ;;^UTILITY(U,$J,114,146,"X",0)
+6 ;;=^^1^1^2890801^^
+7 ;;^UTILITY(U,$J,114,146,"X",1,0)
+8 ;;=PLACE CAN ON TRAY.
+9 ;;^UTILITY(U,$J,114,147,0)
+10 ;;=BLAND CREAM OF BEET SOUP^10^6-FLOZ^25 MIN^^10^10^Y^A-93^^S^^.089
+11 ;;^UTILITY(U,$J,114,147,"E",0)
+12 ;;=^114.05P^1^1
+13 ;;^UTILITY(U,$J,114,147,"E",1,0)
+14 ;;=7
+15 ;;^UTILITY(U,$J,114,147,"I",0)
+16 ;;=^114.01PA^6^6
+17 ;;^UTILITY(U,$J,114,147,"I",1,0)
+18 ;;=297^.15625^372^.15625
+19 ;;^UTILITY(U,$J,114,147,"I",2,0)
+20 ;;=628^.07813^1998^.07813
+21 ;;^UTILITY(U,$J,114,147,"I",3,0)
+22 ;;=157^.42188^138^.42188
+23 ;;^UTILITY(U,$J,114,147,"I",4,0)
+24 ;;=1005^.4375^2021^3.6575
+25 ;;^UTILITY(U,$J,114,147,"I",5,0)
+26 ;;=529^1^6448^1
+27 ;;^UTILITY(U,$J,114,147,"I",6,0)
+28 ;;=230^.03125^1598^.03125
+29 ;;^UTILITY(U,$J,114,147,"X",0)
+30 ;;=^^6^6^2890724^
+31 ;;^UTILITY(U,$J,114,147,"X",1,0)
+32 ;;=1) COMBINE MARGARINE AND FLOUR TO FORM ROUX. DO NOT BROWN.
+33 ;;^UTILITY(U,$J,114,147,"X",2,0)
+34 ;;=2) RECONSTITUTE MILK WITH WATER. ADD MILK SLOWLY TO ROUX AND BLEND
+35 ;;^UTILITY(U,$J,114,147,"X",3,0)
+36 ;;= THOROUGHLY. COOK UNTIL MIXTURE IS THICKENED.
+37 ;;^UTILITY(U,$J,114,147,"X",4,0)
+38 ;;=3) ADD BEET PUREE AND SALT TO CREAM SAUCE. MIX TO DISTRIBUTE.
+39 ;;^UTILITY(U,$J,114,147,"X",5,0)
+40 ;;=4) NOTE: 1. ADJUST SEASONING TO TASTE. 2. 1/3 OZ. MINCED ONION
+41 ;;^UTILITY(U,$J,114,147,"X",6,0)
+42 ;;= MAY BE ADDED.
+43 ;;^UTILITY(U,$J,114,148,0)
+44 ;;=LS CASSEROLE CREOLE^25^6-OZ^85 MIN^^10^4^Y^E-36^^S^^.029
+45 ;;^UTILITY(U,$J,114,148,"E",0)
+46 ;;=^114.05P^2^2
+47 ;;^UTILITY(U,$J,114,148,"E",1,0)
+48 ;;=7
+49 ;;^UTILITY(U,$J,114,148,"E",2,0)
+50 ;;=22
+51 ;;^UTILITY(U,$J,114,148,"I",0)
+52 ;;=^114.01PA^13^12
+53 ;;^UTILITY(U,$J,114,148,"I",1,0)
+54 ;;=166^1.25^1363^1.25
+55 ;;^UTILITY(U,$J,114,148,"I",2,0)
+56 ;;=1006^.22656^2021^1.8940416
+57 ;;^UTILITY(U,$J,114,148,"I",3,0)
+58 ;;=624^.125^371^.125
+59 ;;^UTILITY(U,$J,114,148,"I",4,0)
+60 ;;=777^.09375^1378^.084375
+61 ;;^UTILITY(U,$J,114,148,"I",5,0)
+62 ;;=798^.09375^1434^.076875
+63 ;;^UTILITY(U,$J,114,148,"I",6,0)
+64 ;;=22^3.125^2167^3.125
+65 ;;^UTILITY(U,$J,114,148,"I",7,0)
+66 ;;=271^3.25^1951^3.25
+67 ;;^UTILITY(U,$J,114,148,"I",8,0)
+68 ;;=77^.00781^267^.00781
+69 ;;^UTILITY(U,$J,114,148,"I",9,0)
+70 ;;=192^.00781^288^.00781
+71 ;;^UTILITY(U,$J,114,148,"I",10,0)
+72 ;;=912^.04688^6638^.04688
+73 ;;^UTILITY(U,$J,114,148,"I",11,0)
+74 ;;=847^.1875^2021
+75 ;;^UTILITY(U,$J,114,148,"I",13,0)
+76 ;;=67^.625^6433^.625
+77 ;;^UTILITY(U,$J,114,148,"X",0)
+78 ;;=^^10^10^2890724^^^^
+79 ;;^UTILITY(U,$J,114,148,"X",1,0)
+80 ;;=1) COOK NOODLES IN BOILING WATER. DRAIN AND RETAIN FOR LATER.
+81 ;;^UTILITY(U,$J,114,148,"X",2,0)
+82 ;;=2) BRAISE ONIONS AND GREEN PEPPER (CHOPPED) IN MARGARINE UNTIL ONIONS ARE
+83 ;;^UTILITY(U,$J,114,148,"X",3,0)
+84 ;;= CLEAR. REMOVE VEGETABLES FROM MARGARINE.
+85 ;;^UTILITY(U,$J,114,148,"X",4,0)
+86 ;;=3) ADD MEAT TO VEGETABLE MIXTURE FROM STEP 2. AND BROWN.
+87 ;;^UTILITY(U,$J,114,148,"X",5,0)
+88 ;;=4) COMBINE TOMATO PUREE WITH SEASONINGS PLUS BEEF SOUP AND WATER
+89 ;;^UTILITY(U,$J,114,148,"X",6,0)
+90 ;;= COMBINE TOMATO MIXTURE WITH VEGETABLES FROM STEP 2.AND ADD TO MEAT. SIMMER
+91 ;;^UTILITY(U,$J,114,148,"X",7,0)
+92 ;;= UNTIL MIXTURE IS BLENDED.
+93 ;;^UTILITY(U,$J,114,148,"X",8,0)
+94 ;;=5) ADD NOODLES FROM STEP 1 TO COOKED MIXTURE. STIR TO DISTRIBUTE.
+95 ;;^UTILITY(U,$J,114,148,"X",9,0)
+96 ;;=6) SCALE MIXTURE INTO WELL GREASED PAN. TOP WITH 10 OZ. OF CHEESE.
+97 ;;^UTILITY(U,$J,114,148,"X",10,0)
+98 ;;=7) BAKE UNTIL HEATED THROUGH AND CHEESE IS MELTED.
+99 ;;^UTILITY(U,$J,114,149,0)
+100 ;;=POTATO CHOWDER^100^6-FLOZ^105 MIN^^10^10^Y^A-76^^S^^.032
+101 ;;^UTILITY(U,$J,114,149,"E",0)
+102 ;;=^114.05P^1^1
+103 ;;^UTILITY(U,$J,114,149,"E",1,0)
+104 ;;=5
+105 ;;^UTILITY(U,$J,114,149,"I",0)
+106 ;;=^114.01PA^12^12
+107 ;;^UTILITY(U,$J,114,149,"I",1,0)
+108 ;;=211^2.5
+109 ;;^UTILITY(U,$J,114,149,"I",2,0)
+110 ;;=776^1^951^1
+111 ;;^UTILITY(U,$J,114,149,"I",3,0)
+112 ;;=725^.0625^1384^.0625
+113 ;;^UTILITY(U,$J,114,149,"I",4,0)
+114 ;;=1006^1.5^2021^12.54
+115 ;;^UTILITY(U,$J,114,149,"I",5,0)
+116 ;;=963^1.5^212^1.5
+117 ;;^UTILITY(U,$J,114,149,"I",6,0)
+118 ;;=1008^.0625
+119 ;;^UTILITY(U,$J,114,149,"I",7,0)
+120 ;;=628^.5^1998^.5
+121 ;;^UTILITY(U,$J,114,149,"I",8,0)
+122 ;;=157^3^138^3
+123 ;;^UTILITY(U,$J,114,149,"I",9,0)
+124 ;;=847^3^2021
+125 ;;^UTILITY(U,$J,114,149,"I",10,0)
+126 ;;=230^.125^1598^.125
+127 ;;^UTILITY(U,$J,114,149,"I",11,0)
+128 ;;=192^.01563^288^.01563
+129 ;;^UTILITY(U,$J,114,149,"I",12,0)
+130 ;;=176^.03125^287^.03125
+131 ;;^UTILITY(U,$J,114,149,"X",0)
+132 ;;=^^8^8^2890724^^
+133 ;;^UTILITY(U,$J,114,149,"X",1,0)
+134 ;;=1) COOK VEGETABLES IN FIRST WATER ENTRY UNTIL TENDER, BUT NOT MUSHY. DRAIN
+135 ;;^UTILITY(U,$J,114,149,"X",2,0)
+136 ;;= AND RESERVE LIQUID FOR STEP 4.
+137 ;;^UTILITY(U,$J,114,149,"X",3,0)
+138 ;;=2) COOK BACON UNTIL CRISP. DRAIN AND RESERVE DRIPPINGS FOR STEP 3.
