FHINI0IY ; ; 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,205,"X",8,0)
;;=5) RECONSTITUTE MILK USING COLD WATER. COMBINE MARGARINE AND FLOUR
;;^UTILITY(U,$J,114,205,"X",9,0)
;;= TO FORM ROUX. ADD RECONSTITUTED MILK TO ROUX. COOK TOGETHER FOR
;;^UTILITY(U,$J,114,205,"X",10,0)
;;= 5 MINUTES.
;;^UTILITY(U,$J,114,205,"X",11,0)
;;=6) ADD COOKED VEGETABLES AND PUREED MIXTURE TO WHITE SAUCE. MIX TO
;;^UTILITY(U,$J,114,205,"X",12,0)
;;= DISTRIBUTE. HEAT THOROUGHLY BEFORE SERVING.
;;^UTILITY(U,$J,114,205,"X",13,0)
;;=7) NOTE: STRAIN OR BLENDERIZE FOR PUREED DIET.
;;^UTILITY(U,$J,114,206,0)
;;=MINESTRONE SOUP^100^6-FLOZ^90 MIN^^10^10^Y^A-88^^S^^.036
;;^UTILITY(U,$J,114,206,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,206,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,206,"I",0)
;;=^114.01PA^14^14
;;^UTILITY(U,$J,114,206,"I",1,0)
;;=569^1.5^697^1.5
;;^UTILITY(U,$J,114,206,"I",2,0)
;;=235^2
;;^UTILITY(U,$J,114,206,"I",3,0)
;;=847^5^2021
;;^UTILITY(U,$J,114,206,"I",4,0)
;;=519^.375^1318^.375
;;^UTILITY(U,$J,114,206,"I",5,0)
;;=725^.125^1384^.125
;;^UTILITY(U,$J,114,206,"I",6,0)
;;=776^1.5^951^1.5
;;^UTILITY(U,$J,114,206,"I",7,0)
;;=866^2.5^935^2.5
;;^UTILITY(U,$J,114,206,"I",8,0)
;;=491^12^213
;;^UTILITY(U,$J,114,206,"I",9,0)
;;=883^1.5^221^1.5
;;^UTILITY(U,$J,114,206,"I",10,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,206,"I",11,0)
;;=593^2.1875^1950^2.1875
;;^UTILITY(U,$J,114,206,"I",12,0)
;;=763^2.5^845^2
;;^UTILITY(U,$J,114,206,"I",13,0)
;;=337^2^1871^2
;;^UTILITY(U,$J,114,206,"I",14,0)
;;=820^.0625^2048^.059375
;;^UTILITY(U,$J,114,206,"X",0)
;;=^^9^9^2890724^
;;^UTILITY(U,$J,114,206,"X",1,0)
;;=1) COVER LIMA BEANS WITH WATER AND SOAK OVERNIGHT. DRAIN. COVER WITH FRESH
;;^UTILITY(U,$J,114,206,"X",2,0)
;;= WATER AND COOK UNTIL TENDER. DRAIN.
;;^UTILITY(U,$J,114,206,"X",3,0)
;;=2) COMBINE BASE AND WATER TO FORM STOCK.
;;^UTILITY(U,$J,114,206,"X",4,0)
;;=3) ADD MACARONI, ONIONS, CELERY, CARROTS, BACON, HAM, AND SALT TO STOCK.
;;^UTILITY(U,$J,114,206,"X",5,0)
;;= COVER OVER MODERATE HEAT FOR 5 MINUTES.
;;^UTILITY(U,$J,114,206,"X",6,0)
;;=4) ADD TOMATO PUREE. SIMMER MIXTURE FOR 15 MINUTES.
;;^UTILITY(U,$J,114,206,"X",7,0)
;;=5) CHOP CABBAGE. ADD. CONTINUE TO SIMMER MIXTURE FOR 10 MINUTES. ADD LIMA
;;^UTILITY(U,$J,114,206,"X",8,0)
;;= BEANS FROM STEP 1. HEAT THOROUGHLY.
;;^UTILITY(U,$J,114,206,"X",9,0)
;;=6) GARNISH WITH CHOPPED PARSLEY BEFORE SERVING.
;;^UTILITY(U,$J,114,207,0)
;;=LS SCALLOPED POTATOES #2^50^4-OZ^20 MIN^^^7^Y^P-29^^S^^.069
;;^UTILITY(U,$J,114,207,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,207,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,207,"E",2,0)
;;=22
;;^UTILITY(U,$J,114,207,"I",0)
;;=^114.01PA^8^8
;;^UTILITY(U,$J,114,207,"I",1,0)
;;=870^8^1506^8
;;^UTILITY(U,$J,114,207,"I",2,0)
;;=628^.375^1998^.375
;;^UTILITY(U,$J,114,207,"I",3,0)
;;=906^.01302^6417^.01302
;;^UTILITY(U,$J,114,207,"I",4,0)
;;=814^.02083^281^.02083
;;^UTILITY(U,$J,114,207,"I",5,0)
;;=986^.375^6011^.375
;;^UTILITY(U,$J,114,207,"I",6,0)
;;=624^.25^371^.25
;;^UTILITY(U,$J,114,207,"I",7,0)
;;=1006^.3125^2021^2.6125
;;^UTILITY(U,$J,114,207,"I",8,0)
;;=924^.03125^286^.03125
;;^UTILITY(U,$J,114,207,"X",0)
;;=^^6^6^2890724^
;;^UTILITY(U,$J,114,207,"X",1,0)
;;=1) STEAM POTATOES UNTIL PARTIALLY DONE, ABOUT 1 MINUTE.
;;^UTILITY(U,$J,114,207,"X",2,0)
;;=2) MIX FLOUR, SALT SUBSTITUTE, SPICE AND DRY LONALAC.
;;^UTILITY(U,$J,114,207,"X",3,0)
;;= TOSS WITH POTATOES. PLACE IN WELL-GREASED PAN.
;;^UTILITY(U,$J,114,207,"X",4,0)
;;=3) MELT MARGARINE IN BOILING WATER AND POUR OVER POTATOES;
;;^UTILITY(U,$J,114,207,"X",5,0)
;;= SPRINKLE WITH PAPRIKA.
;;^UTILITY(U,$J,114,207,"X",6,0)
;;=4) BAKE AT 350 DEG FOR APPROXIMATELY 45 MINUTES.
;;^UTILITY(U,$J,114,208,0)
;;=CORNFLAKES, DIETETIC, IND^100^1-EACH^^^^2^N^C-15^^I
;;^UTILITY(U,$J,114,208,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,208,"I",1,0)
;;=558^100^1109
;;^UTILITY(U,$J,114,208,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,208,"X",1,0)
;;=PLACE ON TRAY ACCORDING TO DIET AND MENU.
;;^UTILITY(U,$J,114,209,0)
;;=SPECIAL K, IND^100^1-EACH^^^^2^N^C-17^^I
;;^UTILITY(U,$J,114,209,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,209,"I",1,0)
;;=51^100^1141
;;^UTILITY(U,$J,114,209,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,209,"X",1,0)
;;=PLACE ON TRAY ACCORDING TO DIET AND MENU.
;;^UTILITY(U,$J,114,210,0)
;;=GRAPENUT FLAKES, IND^100^1-EACH^^^^2^N^C-20^^I
;;^UTILITY(U,$J,114,210,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,210,"I",1,0)
;;=340^100^1118
;;^UTILITY(U,$J,114,210,"X",0)
;;=^^1^1^2890801^^
FHINI0IY ; ; 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,205,"X",8,0)
+2 ;;=5) RECONSTITUTE MILK USING COLD WATER. COMBINE MARGARINE AND FLOUR
+3 ;;^UTILITY(U,$J,114,205,"X",9,0)
+4 ;;= TO FORM ROUX. ADD RECONSTITUTED MILK TO ROUX. COOK TOGETHER FOR
+5 ;;^UTILITY(U,$J,114,205,"X",10,0)
+6 ;;= 5 MINUTES.
+7 ;;^UTILITY(U,$J,114,205,"X",11,0)
+8 ;;=6) ADD COOKED VEGETABLES AND PUREED MIXTURE TO WHITE SAUCE. MIX TO
+9 ;;^UTILITY(U,$J,114,205,"X",12,0)
+10 ;;= DISTRIBUTE. HEAT THOROUGHLY BEFORE SERVING.
+11 ;;^UTILITY(U,$J,114,205,"X",13,0)
+12 ;;=7) NOTE: STRAIN OR BLENDERIZE FOR PUREED DIET.
+13 ;;^UTILITY(U,$J,114,206,0)
+14 ;;=MINESTRONE SOUP^100^6-FLOZ^90 MIN^^10^10^Y^A-88^^S^^.036
+15 ;;^UTILITY(U,$J,114,206,"E",0)
+16 ;;=^114.05P^1^1
+17 ;;^UTILITY(U,$J,114,206,"E",1,0)
+18 ;;=5
+19 ;;^UTILITY(U,$J,114,206,"I",0)
+20 ;;=^114.01PA^14^14
+21 ;;^UTILITY(U,$J,114,206,"I",1,0)
+22 ;;=569^1.5^697^1.5
+23 ;;^UTILITY(U,$J,114,206,"I",2,0)
+24 ;;=235^2
+25 ;;^UTILITY(U,$J,114,206,"I",3,0)
+26 ;;=847^5^2021
+27 ;;^UTILITY(U,$J,114,206,"I",4,0)
+28 ;;=519^.375^1318^.375
+29 ;;^UTILITY(U,$J,114,206,"I",5,0)
+30 ;;=725^.125^1384^.125
+31 ;;^UTILITY(U,$J,114,206,"I",6,0)
+32 ;;=776^1.5^951^1.5
+33 ;;^UTILITY(U,$J,114,206,"I",7,0)
+34 ;;=866^2.5^935^2.5
+35 ;;^UTILITY(U,$J,114,206,"I",8,0)
+36 ;;=491^12^213
+37 ;;^UTILITY(U,$J,114,206,"I",9,0)
+38 ;;=883^1.5^221^1.5
+39 ;;^UTILITY(U,$J,114,206,"I",10,0)
+40 ;;=230^.1875^1598^.1875
+41 ;;^UTILITY(U,$J,114,206,"I",11,0)
+42 ;;=593^2.1875^1950^2.1875
+43 ;;^UTILITY(U,$J,114,206,"I",12,0)
+44 ;;=763^2.5^845^2
+45 ;;^UTILITY(U,$J,114,206,"I",13,0)
+46 ;;=337^2^1871^2
+47 ;;^UTILITY(U,$J,114,206,"I",14,0)
+48 ;;=820^.0625^2048^.059375
+49 ;;^UTILITY(U,$J,114,206,"X",0)
+50 ;;=^^9^9^2890724^
+51 ;;^UTILITY(U,$J,114,206,"X",1,0)
+52 ;;=1) COVER LIMA BEANS WITH WATER AND SOAK OVERNIGHT. DRAIN. COVER WITH FRESH
+53 ;;^UTILITY(U,$J,114,206,"X",2,0)
+54 ;;= WATER AND COOK UNTIL TENDER. DRAIN.
+55 ;;^UTILITY(U,$J,114,206,"X",3,0)
+56 ;;=2) COMBINE BASE AND WATER TO FORM STOCK.
+57 ;;^UTILITY(U,$J,114,206,"X",4,0)
+58 ;;=3) ADD MACARONI, ONIONS, CELERY, CARROTS, BACON, HAM, AND SALT TO STOCK.
+59 ;;^UTILITY(U,$J,114,206,"X",5,0)
+60 ;;= COVER OVER MODERATE HEAT FOR 5 MINUTES.
+61 ;;^UTILITY(U,$J,114,206,"X",6,0)
+62 ;;=4) ADD TOMATO PUREE. SIMMER MIXTURE FOR 15 MINUTES.
+63 ;;^UTILITY(U,$J,114,206,"X",7,0)
+64 ;;=5) CHOP CABBAGE. ADD. CONTINUE TO SIMMER MIXTURE FOR 10 MINUTES. ADD LIMA
+65 ;;^UTILITY(U,$J,114,206,"X",8,0)
+66 ;;= BEANS FROM STEP 1. HEAT THOROUGHLY.
+67 ;;^UTILITY(U,$J,114,206,"X",9,0)
+68 ;;=6) GARNISH WITH CHOPPED PARSLEY BEFORE SERVING.
+69 ;;^UTILITY(U,$J,114,207,0)
+70 ;;=LS SCALLOPED POTATOES #2^50^4-OZ^20 MIN^^^7^Y^P-29^^S^^.069
+71 ;;^UTILITY(U,$J,114,207,"E",0)
+72 ;;=^114.05P^2^2
+73 ;;^UTILITY(U,$J,114,207,"E",1,0)
+74 ;;=6
+75 ;;^UTILITY(U,$J,114,207,"E",2,0)
+76 ;;=22
+77 ;;^UTILITY(U,$J,114,207,"I",0)
+78 ;;=^114.01PA^8^8
+79 ;;^UTILITY(U,$J,114,207,"I",1,0)
+80 ;;=870^8^1506^8
+81 ;;^UTILITY(U,$J,114,207,"I",2,0)
+82 ;;=628^.375^1998^.375
+83 ;;^UTILITY(U,$J,114,207,"I",3,0)
+84 ;;=906^.01302^6417^.01302
+85 ;;^UTILITY(U,$J,114,207,"I",4,0)
+86 ;;=814^.02083^281^.02083
+87 ;;^UTILITY(U,$J,114,207,"I",5,0)
+88 ;;=986^.375^6011^.375
+89 ;;^UTILITY(U,$J,114,207,"I",6,0)
+90 ;;=624^.25^371^.25
+91 ;;^UTILITY(U,$J,114,207,"I",7,0)
+92 ;;=1006^.3125^2021^2.6125
+93 ;;^UTILITY(U,$J,114,207,"I",8,0)
+94 ;;=924^.03125^286^.03125
+95 ;;^UTILITY(U,$J,114,207,"X",0)
+96 ;;=^^6^6^2890724^
+97 ;;^UTILITY(U,$J,114,207,"X",1,0)
+98 ;;=1) STEAM POTATOES UNTIL PARTIALLY DONE, ABOUT 1 MINUTE.
+99 ;;^UTILITY(U,$J,114,207,"X",2,0)
+100 ;;=2) MIX FLOUR, SALT SUBSTITUTE, SPICE AND DRY LONALAC.
+101 ;;^UTILITY(U,$J,114,207,"X",3,0)
+102 ;;= TOSS WITH POTATOES. PLACE IN WELL-GREASED PAN.
+103 ;;^UTILITY(U,$J,114,207,"X",4,0)
+104 ;;=3) MELT MARGARINE IN BOILING WATER AND POUR OVER POTATOES;
+105 ;;^UTILITY(U,$J,114,207,"X",5,0)
+106 ;;= SPRINKLE WITH PAPRIKA.
+107 ;;^UTILITY(U,$J,114,207,"X",6,0)
+108 ;;=4) BAKE AT 350 DEG FOR APPROXIMATELY 45 MINUTES.
+109 ;;^UTILITY(U,$J,114,208,0)
+110 ;;=CORNFLAKES, DIETETIC, IND^100^1-EACH^^^^2^N^C-15^^I
+111 ;;^UTILITY(U,$J,114,208,"I",0)
+112 ;;=^114.01PA^1^1
+113 ;;^UTILITY(U,$J,114,208,"I",1,0)
+114 ;;=558^100^1109
+115 ;;^UTILITY(U,$J,114,208,"X",0)
+116 ;;=^^1^1^2890801^^
+117 ;;^UTILITY(U,$J,114,208,"X",1,0)
+118 ;;=PLACE ON TRAY ACCORDING TO DIET AND MENU.
+119 ;;^UTILITY(U,$J,114,209,0)
+120 ;;=SPECIAL K, IND^100^1-EACH^^^^2^N^C-17^^I
+121 ;;^UTILITY(U,$J,114,209,"I",0)
+122 ;;=^114.01PA^1^1
+123 ;;^UTILITY(U,$J,114,209,"I",1,0)
+124 ;;=51^100^1141
+125 ;;^UTILITY(U,$J,114,209,"X",0)
+126 ;;=^^1^1^2890801^^
+127 ;;^UTILITY(U,$J,114,209,"X",1,0)
+128 ;;=PLACE ON TRAY ACCORDING TO DIET AND MENU.
+129 ;;^UTILITY(U,$J,114,210,0)
+130 ;;=GRAPENUT FLAKES, IND^100^1-EACH^^^^2^N^C-20^^I
+131 ;;^UTILITY(U,$J,114,210,"I",0)
+132 ;;=^114.01PA^1^1
+133 ;;^UTILITY(U,$J,114,210,"I",1,0)
+134 ;;=340^100^1118
+135 ;;^UTILITY(U,$J,114,210,"X",0)
+136 ;;=^^1^1^2890801^^
