FHINI0JB ; ; 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,264,"I",1,0)
;;=343^.5^1384^.5
;;^UTILITY(U,$J,114,264,"I",2,0)
;;=847^.25^2021
;;^UTILITY(U,$J,114,264,"I",3,0)
;;=403^.21875
;;^UTILITY(U,$J,114,264,"I",4,0)
;;=273^6.5625^1932^6.5625
;;^UTILITY(U,$J,114,264,"I",5,0)
;;=270^6.375^1948^6.375
;;^UTILITY(U,$J,114,264,"I",6,0)
;;=1007^2.75
;;^UTILITY(U,$J,114,264,"I",7,0)
;;=431^.03125^1987^.2645625
;;^UTILITY(U,$J,114,264,"I",8,0)
;;=391^.0625^6354
;;^UTILITY(U,$J,114,264,"I",9,0)
;;=230^.03125^1598^.03125
;;^UTILITY(U,$J,114,264,"I",10,0)
;;=255^1.6875^1905^1.6875
;;^UTILITY(U,$J,114,264,"I",11,0)
;;=848^.01563^1708^.13452741
;;^UTILITY(U,$J,114,264,"I",12,0)
;;=77^.25^267^.25
;;^UTILITY(U,$J,114,264,"I",13,0)
;;=129^.01042^278^.01042
;;^UTILITY(U,$J,114,264,"I",14,0)
;;=850^1^262
;;^UTILITY(U,$J,114,264,"I",15,0)
;;=221^4.5^2932^4.5
;;^UTILITY(U,$J,114,264,"I",16,0)
;;=1006^.625^2021^5.225
;;^UTILITY(U,$J,114,264,"I",18,0)
;;=725^.14063^1384^.14063
;;^UTILITY(U,$J,114,264,"I",19,0)
;;=22^18^2167^18
;;^UTILITY(U,$J,114,264,"I",20,0)
;;=879^3.375^199^2.2275
;;^UTILITY(U,$J,114,264,"I",22,0)
;;=192^.0625^288^.0625
;;^UTILITY(U,$J,114,264,"I",23,0)
;;=235^.03125
;;^UTILITY(U,$J,114,264,"I",27,0)
;;=734^1^115^.85
;;^UTILITY(U,$J,114,264,"X",0)
;;=^^16^16^2890725^^^^
;;^UTILITY(U,$J,114,264,"X",1,0)
;;= TO MAKE SAUCE:
;;^UTILITY(U,$J,114,264,"X",2,0)
;;=1) RECONSTITUTE ONION (1ST ENTRY) AND PEPPERS. SAUTE IN MARGARINE UNTIL
;;^UTILITY(U,$J,114,264,"X",3,0)
;;= ONIONS ARE CLEAR AND GLOSSY.
;;^UTILITY(U,$J,114,264,"X",4,0)
;;=2) COMBINE TOMATOES THRU BAY LEAVE INGREDIENTS AND ADD TO SAUTEED VEGETABLES
;;^UTILITY(U,$J,114,264,"X",5,0)
;;= IN STEP 1. SIMMMER FOR 2 HOURS STIRRING OCCASIONALLY.
;;^UTILITY(U,$J,114,264,"X",6,0)
;;= TO MAKE MEAT BALLS:
;;^UTILITY(U,$J,114,264,"X",7,0)
;;=3) SPRINKLE RICE SLOWLY INTO BOILING HOT WATER. BRING TO BOIL AND REDUCE
;;^UTILITY(U,$J,114,264,"X",8,0)
;;= HEAT TO SIMMER. COOK COVERED FOR 15 MINS OR UNTIL WATER IS ABSORBED.
;;^UTILITY(U,$J,114,264,"X",9,0)
;;= DO NOT STIR DURING COOKING. DRY(5-7 MINUTES);TOSS LIGHTLY.
;;^UTILITY(U,$J,114,264,"X",10,0)
;;=4) RECONSTITUTE ONIONS(2ND ENTRY). COMBINE WATER THRU EGG INGREDIENTS TO-
;;^UTILITY(U,$J,114,264,"X",11,0)
;;= GETHER WITH ONIONS AND COOKED RICE. MIX TO DISTRIBUTE. DO NOT OVERMIX.
;;^UTILITY(U,$J,114,264,"X",12,0)
;;=5) FORM MEAT BALLS USING NO. 20 SCOOP; PLACE ON SHEET PAN. BROWN IN OVEN
;;^UTILITY(U,$J,114,264,"X",13,0)
;;= APPROXIATELY 20 MINUTES (350F). DRAIN OFF EXCESS FAT.
;;^UTILITY(U,$J,114,264,"X",14,0)
;;=6) PLACE 50 MEAT BALLS IN EACH OF 4 MODULAR PANS. TOP WITH SAUCE FOR A
;;^UTILITY(U,$J,114,264,"X",15,0)
;;= SCALED WEIGHT OF 12 1/2 LBS. PER PAN. HEAT IN OVEN FOR APPROXIATELY
;;^UTILITY(U,$J,114,264,"X",16,0)
;;= 20 MINUTES.
;;^UTILITY(U,$J,114,265,0)
;;=GRILLED/BKD LIVER W/BACON^100^3-OZ RAW^30 MIN^^2^4^Y^E-203^^S^^.002
;;^UTILITY(U,$J,114,265,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,265,"E",1,0)
;;=2
;;^UTILITY(U,$J,114,265,"E",2,0)
;;=33
;;^UTILITY(U,$J,114,265,"I",0)
;;=^114.01PA^6^6
;;^UTILITY(U,$J,114,265,"I",1,0)
;;=628^.75^1998^.75
;;^UTILITY(U,$J,114,265,"I",2,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,265,"I",3,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,265,"I",4,0)
;;=881^20^1310^20
;;^UTILITY(U,$J,114,265,"I",5,0)
;;=290^.25
;;^UTILITY(U,$J,114,265,"I",6,0)
;;=963^5^212^5
;;^UTILITY(U,$J,114,265,"X",0)
;;=^^8^8^2890725^
;;^UTILITY(U,$J,114,265,"X",1,0)
;;=1) COMBINE FLOUR, SALT, AND PEPPER AND MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,265,"X",2,0)
;;=2) DREDGE LIVER IN SEASONED FLOUR; SHAKE OFF EXCESS FLOUR.
;;^UTILITY(U,$J,114,265,"X",3,0)
;;=3) GRILL LIVER ON BOTH SIDES UNTIL BROWNED AND TENDER.
;;^UTILITY(U,$J,114,265,"X",4,0)
;;=4) PAN BACON. BAKE AT 325-350 F UNTIL CRISP AND GOLDEN BROWN. DRAIN OFF
;;^UTILITY(U,$J,114,265,"X",5,0)
;;= EXCESS FAT.
;;^UTILITY(U,$J,114,265,"X",6,0)
;;=5) SERVE LIVER TOPPED WITH 1 SLICE BACON.
;;^UTILITY(U,$J,114,265,"X",7,0)
;;= ALTERNATE PROCEDURE: PAN FLOURED LIVER IN WELL-GREASED SHEET PANS.
;;^UTILITY(U,$J,114,265,"X",8,0)
;;= BAKE AT 375 F FOR 15 MINUTES OR UNTIL LIVER IS COOKED AND BROWNED.
;;^UTILITY(U,$J,114,266,0)
;;=GREEN BEANS-MUSHROOMS^25^3-OZ^10 MIN^^^9^Y^V-10^^S^^.14
;;^UTILITY(U,$J,114,266,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,266,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,266,"I",0)
;;=^114.01PA^4^4
;;^UTILITY(U,$J,114,266,"I",1,0)
;;=344^13^718^13
;;^UTILITY(U,$J,114,266,"I",2,0)
;;=297^.5^372^.5
;;^UTILITY(U,$J,114,266,"I",3,0)
;;=534^2^1346^2
FHINI0JB ; ; 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,264,"I",1,0)
+2 ;;=343^.5^1384^.5
+3 ;;^UTILITY(U,$J,114,264,"I",2,0)
+4 ;;=847^.25^2021
+5 ;;^UTILITY(U,$J,114,264,"I",3,0)
+6 ;;=403^.21875
+7 ;;^UTILITY(U,$J,114,264,"I",4,0)
+8 ;;=273^6.5625^1932^6.5625
+9 ;;^UTILITY(U,$J,114,264,"I",5,0)
+10 ;;=270^6.375^1948^6.375
+11 ;;^UTILITY(U,$J,114,264,"I",6,0)
+12 ;;=1007^2.75
+13 ;;^UTILITY(U,$J,114,264,"I",7,0)
+14 ;;=431^.03125^1987^.2645625
+15 ;;^UTILITY(U,$J,114,264,"I",8,0)
+16 ;;=391^.0625^6354
+17 ;;^UTILITY(U,$J,114,264,"I",9,0)
+18 ;;=230^.03125^1598^.03125
+19 ;;^UTILITY(U,$J,114,264,"I",10,0)
+20 ;;=255^1.6875^1905^1.6875
+21 ;;^UTILITY(U,$J,114,264,"I",11,0)
+22 ;;=848^.01563^1708^.13452741
+23 ;;^UTILITY(U,$J,114,264,"I",12,0)
+24 ;;=77^.25^267^.25
+25 ;;^UTILITY(U,$J,114,264,"I",13,0)
+26 ;;=129^.01042^278^.01042
+27 ;;^UTILITY(U,$J,114,264,"I",14,0)
+28 ;;=850^1^262
+29 ;;^UTILITY(U,$J,114,264,"I",15,0)
+30 ;;=221^4.5^2932^4.5
+31 ;;^UTILITY(U,$J,114,264,"I",16,0)
+32 ;;=1006^.625^2021^5.225
+33 ;;^UTILITY(U,$J,114,264,"I",18,0)
+34 ;;=725^.14063^1384^.14063
+35 ;;^UTILITY(U,$J,114,264,"I",19,0)
+36 ;;=22^18^2167^18
+37 ;;^UTILITY(U,$J,114,264,"I",20,0)
+38 ;;=879^3.375^199^2.2275
+39 ;;^UTILITY(U,$J,114,264,"I",22,0)
+40 ;;=192^.0625^288^.0625
+41 ;;^UTILITY(U,$J,114,264,"I",23,0)
+42 ;;=235^.03125
+43 ;;^UTILITY(U,$J,114,264,"I",27,0)
+44 ;;=734^1^115^.85
+45 ;;^UTILITY(U,$J,114,264,"X",0)
+46 ;;=^^16^16^2890725^^^^
+47 ;;^UTILITY(U,$J,114,264,"X",1,0)
+48 ;;= TO MAKE SAUCE:
+49 ;;^UTILITY(U,$J,114,264,"X",2,0)
+50 ;;=1) RECONSTITUTE ONION (1ST ENTRY) AND PEPPERS. SAUTE IN MARGARINE UNTIL
+51 ;;^UTILITY(U,$J,114,264,"X",3,0)
+52 ;;= ONIONS ARE CLEAR AND GLOSSY.
+53 ;;^UTILITY(U,$J,114,264,"X",4,0)
+54 ;;=2) COMBINE TOMATOES THRU BAY LEAVE INGREDIENTS AND ADD TO SAUTEED VEGETABLES
+55 ;;^UTILITY(U,$J,114,264,"X",5,0)
+56 ;;= IN STEP 1. SIMMMER FOR 2 HOURS STIRRING OCCASIONALLY.
+57 ;;^UTILITY(U,$J,114,264,"X",6,0)
+58 ;;= TO MAKE MEAT BALLS:
+59 ;;^UTILITY(U,$J,114,264,"X",7,0)
+60 ;;=3) SPRINKLE RICE SLOWLY INTO BOILING HOT WATER. BRING TO BOIL AND REDUCE
+61 ;;^UTILITY(U,$J,114,264,"X",8,0)
+62 ;;= HEAT TO SIMMER. COOK COVERED FOR 15 MINS OR UNTIL WATER IS ABSORBED.
+63 ;;^UTILITY(U,$J,114,264,"X",9,0)
+64 ;;= DO NOT STIR DURING COOKING. DRY(5-7 MINUTES);TOSS LIGHTLY.
+65 ;;^UTILITY(U,$J,114,264,"X",10,0)
+66 ;;=4) RECONSTITUTE ONIONS(2ND ENTRY). COMBINE WATER THRU EGG INGREDIENTS TO-
+67 ;;^UTILITY(U,$J,114,264,"X",11,0)
+68 ;;= GETHER WITH ONIONS AND COOKED RICE. MIX TO DISTRIBUTE. DO NOT OVERMIX.
+69 ;;^UTILITY(U,$J,114,264,"X",12,0)
+70 ;;=5) FORM MEAT BALLS USING NO. 20 SCOOP; PLACE ON SHEET PAN. BROWN IN OVEN
+71 ;;^UTILITY(U,$J,114,264,"X",13,0)
+72 ;;= APPROXIATELY 20 MINUTES (350F). DRAIN OFF EXCESS FAT.
+73 ;;^UTILITY(U,$J,114,264,"X",14,0)
+74 ;;=6) PLACE 50 MEAT BALLS IN EACH OF 4 MODULAR PANS. TOP WITH SAUCE FOR A
+75 ;;^UTILITY(U,$J,114,264,"X",15,0)
+76 ;;= SCALED WEIGHT OF 12 1/2 LBS. PER PAN. HEAT IN OVEN FOR APPROXIATELY
+77 ;;^UTILITY(U,$J,114,264,"X",16,0)
+78 ;;= 20 MINUTES.
+79 ;;^UTILITY(U,$J,114,265,0)
+80 ;;=GRILLED/BKD LIVER W/BACON^100^3-OZ RAW^30 MIN^^2^4^Y^E-203^^S^^.002
+81 ;;^UTILITY(U,$J,114,265,"E",0)
+82 ;;=^114.05P^2^2
+83 ;;^UTILITY(U,$J,114,265,"E",1,0)
+84 ;;=2
+85 ;;^UTILITY(U,$J,114,265,"E",2,0)
+86 ;;=33
+87 ;;^UTILITY(U,$J,114,265,"I",0)
+88 ;;=^114.01PA^6^6
+89 ;;^UTILITY(U,$J,114,265,"I",1,0)
+90 ;;=628^.75^1998^.75
+91 ;;^UTILITY(U,$J,114,265,"I",2,0)
+92 ;;=230^.0625^1598^.0625
+93 ;;^UTILITY(U,$J,114,265,"I",3,0)
+94 ;;=192^.01563^288^.01563
+95 ;;^UTILITY(U,$J,114,265,"I",4,0)
+96 ;;=881^20^1310^20
+97 ;;^UTILITY(U,$J,114,265,"I",5,0)
+98 ;;=290^.25
+99 ;;^UTILITY(U,$J,114,265,"I",6,0)
+100 ;;=963^5^212^5
+101 ;;^UTILITY(U,$J,114,265,"X",0)
+102 ;;=^^8^8^2890725^
+103 ;;^UTILITY(U,$J,114,265,"X",1,0)
+104 ;;=1) COMBINE FLOUR, SALT, AND PEPPER AND MIX TO DISTRIBUTE.
+105 ;;^UTILITY(U,$J,114,265,"X",2,0)
+106 ;;=2) DREDGE LIVER IN SEASONED FLOUR; SHAKE OFF EXCESS FLOUR.
+107 ;;^UTILITY(U,$J,114,265,"X",3,0)
+108 ;;=3) GRILL LIVER ON BOTH SIDES UNTIL BROWNED AND TENDER.
+109 ;;^UTILITY(U,$J,114,265,"X",4,0)
+110 ;;=4) PAN BACON. BAKE AT 325-350 F UNTIL CRISP AND GOLDEN BROWN. DRAIN OFF
+111 ;;^UTILITY(U,$J,114,265,"X",5,0)
+112 ;;= EXCESS FAT.
+113 ;;^UTILITY(U,$J,114,265,"X",6,0)
+114 ;;=5) SERVE LIVER TOPPED WITH 1 SLICE BACON.
+115 ;;^UTILITY(U,$J,114,265,"X",7,0)
+116 ;;= ALTERNATE PROCEDURE: PAN FLOURED LIVER IN WELL-GREASED SHEET PANS.
+117 ;;^UTILITY(U,$J,114,265,"X",8,0)
+118 ;;= BAKE AT 375 F FOR 15 MINUTES OR UNTIL LIVER IS COOKED AND BROWNED.
+119 ;;^UTILITY(U,$J,114,266,0)
+120 ;;=GREEN BEANS-MUSHROOMS^25^3-OZ^10 MIN^^^9^Y^V-10^^S^^.14
+121 ;;^UTILITY(U,$J,114,266,"E",0)
+122 ;;=^114.05P^1^1
+123 ;;^UTILITY(U,$J,114,266,"E",1,0)
+124 ;;=6
+125 ;;^UTILITY(U,$J,114,266,"I",0)
+126 ;;=^114.01PA^4^4
+127 ;;^UTILITY(U,$J,114,266,"I",1,0)
+128 ;;=344^13^718^13
+129 ;;^UTILITY(U,$J,114,266,"I",2,0)
+130 ;;=297^.5^372^.5
+131 ;;^UTILITY(U,$J,114,266,"I",3,0)
+132 ;;=534^2^1346^2
