FHINI0I9 ; ; 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,32,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,32,"I",1,0)
;;=53^100^1191
;;^UTILITY(U,$J,114,34,0)
;;=BRANFLAKES 40%, IND^100^1-EACH^^^^2^N^C-4^^I
;;^UTILITY(U,$J,114,34,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,34,"I",1,0)
;;=45^100^1114
;;^UTILITY(U,$J,114,34,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,34,"X",1,0)
;;=PLACE ON TRAY ACCORDING TO DIET AND MENU.
;;^UTILITY(U,$J,114,35,0)
;;=SALISBURY STEAK^100^3-OZ^^^^4^Y^E-73^^S^^.007
;;^UTILITY(U,$J,114,35,"I",0)
;;=^114.01PA^9^9
;;^UTILITY(U,$J,114,35,"I",1,0)
;;=157^.46875^138^.46875
;;^UTILITY(U,$J,114,35,"I",2,0)
;;=847^.40625^2021
;;^UTILITY(U,$J,114,35,"I",3,0)
;;=760^28^823
;;^UTILITY(U,$J,114,35,"I",4,0)
;;=725^.25^1384^.25
;;^UTILITY(U,$J,114,35,"I",5,0)
;;=22^18.75^2167^18.75
;;^UTILITY(U,$J,114,35,"I",6,0)
;;=230^.375^1598^.375
;;^UTILITY(U,$J,114,35,"I",7,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,35,"I",8,0)
;;=788^9^6498
;;^UTILITY(U,$J,114,35,"I",9,0)
;;=391^.02344^6354
;;^UTILITY(U,$J,114,35,"X",0)
;;=^^9^9^2890815^^^^
;;^UTILITY(U,$J,114,35,"X",1,0)
;;=1) RECONSTITUTE MILK WITH TAP WATER
;;^UTILITY(U,$J,114,35,"X",2,0)
;;=2) ADD MILK TO BREAD; LET STAND 5 MINUTES.
;;^UTILITY(U,$J,114,35,"X",3,0)
;;=3) RECONSTITUTE ONIONS. COMBINE WITH REMAINING INGREDIENTS AND ADD
;;^UTILITY(U,$J,114,35,"X",4,0)
;;= TO MOISTENED BREAD. MIX TO DISTRIBUTE. DO NOT OVERMIX.
;;^UTILITY(U,$J,114,35,"X",5,0)
;;=4) PORTION WITH #10 SCOOP AND SHAPE INTO OVAL PATTIES.
;;^UTILITY(U,$J,114,35,"X",6,0)
;;=5) PLACE ONTO LIGHTLY GREASED PANS. BAKE.
;;^UTILITY(U,$J,114,35,"X",7,0)
;;=
;;^UTILITY(U,$J,114,35,"X",8,0)
;;=NOTE: PATTIES MAY BE COOKED ON GRIDDLE (350 DEG.) FOR 10 MINUTES
;;^UTILITY(U,$J,114,35,"X",9,0)
;;= EACH SIDE OR UNTIL DONE.
;;^UTILITY(U,$J,114,36,0)
;;=BEEF CUBES AU JUS^100^3-OZ^1 HR^^^4^N^BEEF CUBES^^F
;;^UTILITY(U,$J,114,36,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,36,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,36,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,36,"I",1,0)
;;=372^18.75^2125^11.0625
;;^UTILITY(U,$J,114,36,"X",0)
;;=^^1^1^2890725^^^^
;;^UTILITY(U,$J,114,36,"X",1,0)
;;=1) BROWN BEEF CUBES IN KETTLE. ADD WATER AND SIMMER UNTIL TENDER.
;;^UTILITY(U,$J,114,37,0)
;;=WHOLE WHEAT BREAD^100^1-EACH^^^^12^N^BREAD, WHOLE WHEAT^^I
;;^UTILITY(U,$J,114,37,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,37,"I",1,0)
;;=872^100^825
;;^UTILITY(U,$J,114,37,"X",0)
;;=^^1^1^2871203^^
;;^UTILITY(U,$J,114,37,"X",1,0)
;;=SERVE ACCORDING TO MENU OR DIET CARD.
;;^UTILITY(U,$J,114,38,0)
;;=BAKED POTATO^100^1-EACH^^^^7^N^POTATO, BAKED
;;^UTILITY(U,$J,114,38,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,38,"I",1,0)
;;=754^100^1503
;;^UTILITY(U,$J,114,38,"X",0)
;;=^^2^2^2860220^
;;^UTILITY(U,$J,114,38,"X",1,0)
;;=1) PLACE FROZEN POTATOES IN SHEET PANS.
;;^UTILITY(U,$J,114,38,"X",2,0)
;;=2) BAKE IN 400 DEGREE OVEN FOR 30-45 MINUTES.
;;^UTILITY(U,$J,114,39,0)
;;=HARD-COOKED EGGS^100^1-EACH^^^^5^N^EGGS, HARD-COOKED
;;^UTILITY(U,$J,114,39,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,39,"I",1,0)
;;=788^100^6498
;;^UTILITY(U,$J,114,39,"X",0)
;;=^^3^3^2860506^^
;;^UTILITY(U,$J,114,39,"X",1,0)
;;=1) PLACE EGGS IN PERFORATED STEAMER PAN.
;;^UTILITY(U,$J,114,39,"X",2,0)
;;=2) STEAM FOR 15-18 MINUTES AT 5 LB PRESSURE.
;;^UTILITY(U,$J,114,39,"X",3,0)
;;=3) COOL IMMEDIATELY IN COLD WATER.
;;^UTILITY(U,$J,114,40,0)
;;=SUGAR SUB^100^1-EACH^^^^13^N^^^I^^.004
;;^UTILITY(U,$J,114,40,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,40,"I",1,0)
;;=253^100^6414
;;^UTILITY(U,$J,114,40,"X",0)
;;=^^1^1^2871124^
;;^UTILITY(U,$J,114,40,"X",1,0)
;;=SERVE ON TRAY ACCORDING TO DIET CARD.
;;^UTILITY(U,$J,114,41,0)
;;=DIET TOMATOES^50^2-OZ^^^12^9^N^TOMATOES, DIET^^^^.05
;;^UTILITY(U,$J,114,41,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,41,"I",1,0)
;;=539^6.25^1935^6.25
;;^UTILITY(U,$J,114,41,"X",0)
;;=^^2^2^2860506^
;;^UTILITY(U,$J,114,41,"X",1,0)
;;=1) OPEN CANS. HEAT TO 140 DEG. SERVING TEMP.
;;^UTILITY(U,$J,114,41,"X",2,0)
;;=2) SERVE IN PLASTIC CUP ON MAIN PLATE.
;;^UTILITY(U,$J,114,42,0)
;;=APPLESAUCE^100^4-OZ^^^12^3^N^D-25^^C^^.075
;;^UTILITY(U,$J,114,42,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,42,"I",1,0)
;;=4^25^1623^25
;;^UTILITY(U,$J,114,42,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,42,"X",1,0)
;;=1) PORTION INTO SERVING DISHES. COVER AND CHILL TO SERVE.
;;^UTILITY(U,$J,114,43,0)
;;=DIABETIC APPLESAUCE^50^4-OZ^^^6^3^N^D-26^^C^^.093
;;^UTILITY(U,$J,114,43,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,43,"I",1,0)
;;=3^12.5^1622^12.5
FHINI0I9 ; ; 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,32,"I",0)
+2 ;;=^114.01PA^1^1
+3 ;;^UTILITY(U,$J,114,32,"I",1,0)
+4 ;;=53^100^1191
+5 ;;^UTILITY(U,$J,114,34,0)
+6 ;;=BRANFLAKES 40%, IND^100^1-EACH^^^^2^N^C-4^^I
+7 ;;^UTILITY(U,$J,114,34,"I",0)
+8 ;;=^114.01PA^1^1
+9 ;;^UTILITY(U,$J,114,34,"I",1,0)
+10 ;;=45^100^1114
+11 ;;^UTILITY(U,$J,114,34,"X",0)
+12 ;;=^^1^1^2890801^^
+13 ;;^UTILITY(U,$J,114,34,"X",1,0)
+14 ;;=PLACE ON TRAY ACCORDING TO DIET AND MENU.
+15 ;;^UTILITY(U,$J,114,35,0)
+16 ;;=SALISBURY STEAK^100^3-OZ^^^^4^Y^E-73^^S^^.007
+17 ;;^UTILITY(U,$J,114,35,"I",0)
+18 ;;=^114.01PA^9^9
+19 ;;^UTILITY(U,$J,114,35,"I",1,0)
+20 ;;=157^.46875^138^.46875
+21 ;;^UTILITY(U,$J,114,35,"I",2,0)
+22 ;;=847^.40625^2021
+23 ;;^UTILITY(U,$J,114,35,"I",3,0)
+24 ;;=760^28^823
+25 ;;^UTILITY(U,$J,114,35,"I",4,0)
+26 ;;=725^.25^1384^.25
+27 ;;^UTILITY(U,$J,114,35,"I",5,0)
+28 ;;=22^18.75^2167^18.75
+29 ;;^UTILITY(U,$J,114,35,"I",6,0)
+30 ;;=230^.375^1598^.375
+31 ;;^UTILITY(U,$J,114,35,"I",7,0)
+32 ;;=192^.01563^288^.01563
+33 ;;^UTILITY(U,$J,114,35,"I",8,0)
+34 ;;=788^9^6498
+35 ;;^UTILITY(U,$J,114,35,"I",9,0)
+36 ;;=391^.02344^6354
+37 ;;^UTILITY(U,$J,114,35,"X",0)
+38 ;;=^^9^9^2890815^^^^
+39 ;;^UTILITY(U,$J,114,35,"X",1,0)
+40 ;;=1) RECONSTITUTE MILK WITH TAP WATER
+41 ;;^UTILITY(U,$J,114,35,"X",2,0)
+42 ;;=2) ADD MILK TO BREAD; LET STAND 5 MINUTES.
+43 ;;^UTILITY(U,$J,114,35,"X",3,0)
+44 ;;=3) RECONSTITUTE ONIONS. COMBINE WITH REMAINING INGREDIENTS AND ADD
+45 ;;^UTILITY(U,$J,114,35,"X",4,0)
+46 ;;= TO MOISTENED BREAD. MIX TO DISTRIBUTE. DO NOT OVERMIX.
+47 ;;^UTILITY(U,$J,114,35,"X",5,0)
+48 ;;=4) PORTION WITH #10 SCOOP AND SHAPE INTO OVAL PATTIES.
+49 ;;^UTILITY(U,$J,114,35,"X",6,0)
+50 ;;=5) PLACE ONTO LIGHTLY GREASED PANS. BAKE.
+51 ;;^UTILITY(U,$J,114,35,"X",7,0)
+52 ;;=
+53 ;;^UTILITY(U,$J,114,35,"X",8,0)
+54 ;;=NOTE: PATTIES MAY BE COOKED ON GRIDDLE (350 DEG.) FOR 10 MINUTES
+55 ;;^UTILITY(U,$J,114,35,"X",9,0)
+56 ;;= EACH SIDE OR UNTIL DONE.
+57 ;;^UTILITY(U,$J,114,36,0)
+58 ;;=BEEF CUBES AU JUS^100^3-OZ^1 HR^^^4^N^BEEF CUBES^^F
+59 ;;^UTILITY(U,$J,114,36,"E",0)
+60 ;;=^114.05P^1^1
+61 ;;^UTILITY(U,$J,114,36,"E",1,0)
+62 ;;=5
+63 ;;^UTILITY(U,$J,114,36,"I",0)
+64 ;;=^114.01PA^1^1
+65 ;;^UTILITY(U,$J,114,36,"I",1,0)
+66 ;;=372^18.75^2125^11.0625
+67 ;;^UTILITY(U,$J,114,36,"X",0)
+68 ;;=^^1^1^2890725^^^^
+69 ;;^UTILITY(U,$J,114,36,"X",1,0)
+70 ;;=1) BROWN BEEF CUBES IN KETTLE. ADD WATER AND SIMMER UNTIL TENDER.
+71 ;;^UTILITY(U,$J,114,37,0)
+72 ;;=WHOLE WHEAT BREAD^100^1-EACH^^^^12^N^BREAD, WHOLE WHEAT^^I
+73 ;;^UTILITY(U,$J,114,37,"I",0)
+74 ;;=^114.01PA^1^1
+75 ;;^UTILITY(U,$J,114,37,"I",1,0)
+76 ;;=872^100^825
+77 ;;^UTILITY(U,$J,114,37,"X",0)
+78 ;;=^^1^1^2871203^^
+79 ;;^UTILITY(U,$J,114,37,"X",1,0)
+80 ;;=SERVE ACCORDING TO MENU OR DIET CARD.
+81 ;;^UTILITY(U,$J,114,38,0)
+82 ;;=BAKED POTATO^100^1-EACH^^^^7^N^POTATO, BAKED
+83 ;;^UTILITY(U,$J,114,38,"I",0)
+84 ;;=^114.01PA^1^1
+85 ;;^UTILITY(U,$J,114,38,"I",1,0)
+86 ;;=754^100^1503
+87 ;;^UTILITY(U,$J,114,38,"X",0)
+88 ;;=^^2^2^2860220^
+89 ;;^UTILITY(U,$J,114,38,"X",1,0)
+90 ;;=1) PLACE FROZEN POTATOES IN SHEET PANS.
+91 ;;^UTILITY(U,$J,114,38,"X",2,0)
+92 ;;=2) BAKE IN 400 DEGREE OVEN FOR 30-45 MINUTES.
+93 ;;^UTILITY(U,$J,114,39,0)
+94 ;;=HARD-COOKED EGGS^100^1-EACH^^^^5^N^EGGS, HARD-COOKED
+95 ;;^UTILITY(U,$J,114,39,"I",0)
+96 ;;=^114.01PA^1^1
+97 ;;^UTILITY(U,$J,114,39,"I",1,0)
+98 ;;=788^100^6498
+99 ;;^UTILITY(U,$J,114,39,"X",0)
+100 ;;=^^3^3^2860506^^
+101 ;;^UTILITY(U,$J,114,39,"X",1,0)
+102 ;;=1) PLACE EGGS IN PERFORATED STEAMER PAN.
+103 ;;^UTILITY(U,$J,114,39,"X",2,0)
+104 ;;=2) STEAM FOR 15-18 MINUTES AT 5 LB PRESSURE.
+105 ;;^UTILITY(U,$J,114,39,"X",3,0)
+106 ;;=3) COOL IMMEDIATELY IN COLD WATER.
+107 ;;^UTILITY(U,$J,114,40,0)
+108 ;;=SUGAR SUB^100^1-EACH^^^^13^N^^^I^^.004
+109 ;;^UTILITY(U,$J,114,40,"I",0)
+110 ;;=^114.01PA^1^1
+111 ;;^UTILITY(U,$J,114,40,"I",1,0)
+112 ;;=253^100^6414
+113 ;;^UTILITY(U,$J,114,40,"X",0)
+114 ;;=^^1^1^2871124^
+115 ;;^UTILITY(U,$J,114,40,"X",1,0)
+116 ;;=SERVE ON TRAY ACCORDING TO DIET CARD.
+117 ;;^UTILITY(U,$J,114,41,0)
+118 ;;=DIET TOMATOES^50^2-OZ^^^12^9^N^TOMATOES, DIET^^^^.05
+119 ;;^UTILITY(U,$J,114,41,"I",0)
+120 ;;=^114.01PA^1^1
+121 ;;^UTILITY(U,$J,114,41,"I",1,0)
+122 ;;=539^6.25^1935^6.25
+123 ;;^UTILITY(U,$J,114,41,"X",0)
+124 ;;=^^2^2^2860506^
+125 ;;^UTILITY(U,$J,114,41,"X",1,0)
+126 ;;=1) OPEN CANS. HEAT TO 140 DEG. SERVING TEMP.
+127 ;;^UTILITY(U,$J,114,41,"X",2,0)
+128 ;;=2) SERVE IN PLASTIC CUP ON MAIN PLATE.
+129 ;;^UTILITY(U,$J,114,42,0)
+130 ;;=APPLESAUCE^100^4-OZ^^^12^3^N^D-25^^C^^.075
+131 ;;^UTILITY(U,$J,114,42,"I",0)
+132 ;;=^114.01PA^1^1
+133 ;;^UTILITY(U,$J,114,42,"I",1,0)
+134 ;;=4^25^1623^25
+135 ;;^UTILITY(U,$J,114,42,"X",0)
+136 ;;=^^1^1^2890801^^
+137 ;;^UTILITY(U,$J,114,42,"X",1,0)
+138 ;;=1) PORTION INTO SERVING DISHES. COVER AND CHILL TO SERVE.
+139 ;;^UTILITY(U,$J,114,43,0)
+140 ;;=DIABETIC APPLESAUCE^50^4-OZ^^^6^3^N^D-26^^C^^.093
+141 ;;^UTILITY(U,$J,114,43,"I",0)
+142 ;;=^114.01PA^1^1
+143 ;;^UTILITY(U,$J,114,43,"I",1,0)
+144 ;;=3^12.5^1622^12.5
