FHINI0J9 ; ; 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,255,"X",6,0)
;;= PAPRIKA OVER TOP OF DEVILED EGGS.
;;^UTILITY(U,$J,114,255,"X",7,0)
;;=4) ASSEMBLE COLD PLATE:
;;^UTILITY(U,$J,114,255,"X",8,0)
;;= 1 OZ. SLICE BOLOGNA
;;^UTILITY(U,$J,114,255,"X",9,0)
;;= 1 OZ. SLICE CHEESE
;;^UTILITY(U,$J,114,255,"X",10,0)
;;= 1 OZ. (1/2 EGG) DEVILED EGG
;;^UTILITY(U,$J,114,256,0)
;;=GRILLED BACON^11^2-EACH^20 MIN^^1^5^N^E-14^^F
;;^UTILITY(U,$J,114,256,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,256,"E",1,0)
;;=33
;;^UTILITY(U,$J,114,256,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,256,"I",1,0)
;;=963^1^212^1
;;^UTILITY(U,$J,114,256,"X",0)
;;=^^2^2^2890725^
;;^UTILITY(U,$J,114,256,"X",1,0)
;;=1) PAN BACON.
;;^UTILITY(U,$J,114,256,"X",2,0)
;;=2) BAKE AT 325 DEGREES UNTIL CRISP AND GOLDEN BROWN. DRAIN OFF EXCESS FAT.
;;^UTILITY(U,$J,114,257,0)
;;=LS DIABETIC MEXICAN RICE^100^2-OZ^15 MIN^^12^7^Y^P-76^^S
;;^UTILITY(U,$J,114,257,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,257,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,257,"I",0)
;;=^114.01PA^7^7
;;^UTILITY(U,$J,114,257,"I",1,0)
;;=148^1.6^1943^13.7712
;;^UTILITY(U,$J,114,257,"I",2,0)
;;=725^.21875^1384^.21875
;;^UTILITY(U,$J,114,257,"I",3,0)
;;=173^.01563^285^.01563
;;^UTILITY(U,$J,114,257,"I",4,0)
;;=77^.01563^267^.01563
;;^UTILITY(U,$J,114,257,"I",5,0)
;;=129^.02083^278^.02083
;;^UTILITY(U,$J,114,257,"I",6,0)
;;=525^.01042^289^.01042
;;^UTILITY(U,$J,114,257,"I",7,0)
;;=448^4^1558^4
;;^UTILITY(U,$J,114,257,"X",0)
;;=^^4^4^2890725^
;;^UTILITY(U,$J,114,257,"X",1,0)
;;=1) COMBINE ALL INGREDIENTS EXCEPT RICE IN STEAM KETTLE AND BRING TO BOIL.
;;^UTILITY(U,$J,114,257,"X",2,0)
;;=2) STIR RICE INTO HOT MIXTURE. REDUCE HEAT TO SIMMER AND COOK
;;^UTILITY(U,$J,114,257,"X",3,0)
;;= 20 MINUTES OR UNTIL RICE IS TENDER.
;;^UTILITY(U,$J,114,257,"X",4,0)
;;=3) SEPARATE RICE KERNELS WITH FORK AND SERVE HOT.
;;^UTILITY(U,$J,114,258,0)
;;=BLAND LS MEATBALLS^100^3-EACH^1HR 30 MIN^^12^4^Y^E-70^^S^^.001
;;^UTILITY(U,$J,114,258,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,258,"E",1,0)
;;=26
;;^UTILITY(U,$J,114,258,"I",0)
;;=^114.01PA^6^6
;;^UTILITY(U,$J,114,258,"I",1,0)
;;=813^16^6502
;;^UTILITY(U,$J,114,258,"I",2,0)
;;=148^.25^1943^2.15175
;;^UTILITY(U,$J,114,258,"I",3,0)
;;=22^22^2167^22
;;^UTILITY(U,$J,114,258,"I",4,0)
;;=788^15^6498
;;^UTILITY(U,$J,114,258,"I",5,0)
;;=624^1^371^1
;;^UTILITY(U,$J,114,258,"I",6,0)
;;=628^1^1998^1
;;^UTILITY(U,$J,114,258,"X",0)
;;=^^9^9^2890815^^
;;^UTILITY(U,$J,114,258,"X",1,0)
;;=1) SOAK BREAD IN TOMATO JUICE (FIRST LISTING).
;;^UTILITY(U,$J,114,258,"X",2,0)
;;=2) COMBINE BEEF AND EGGS WITH MOISTENED BREAD FROM STEP 1. AND MIX
;;^UTILITY(U,$J,114,258,"X",3,0)
;;= ONLY TO DISTRIBUTE. DO NOT OVERMIX.
;;^UTILITY(U,$J,114,258,"X",4,0)
;;=3) SHAPE WITH NO. 30 SCOOP; PLACE ON BAKING SHEET. BROWN IN OVEN (325F) FOR
;;^UTILITY(U,$J,114,258,"X",5,0)
;;= 30 MINUTES. DRAIN OFF EXCESS FAT.
;;^UTILITY(U,$J,114,258,"X",6,0)
;;=4) TO MAKE SAUCE: ADD FLOUR TO HOT MARGARINE TO MAKE ROUX. ADD TOMATO
;;^UTILITY(U,$J,114,258,"X",7,0)
;;= JUICE SLOWLY (SECOND LISTING), STIRRING CONSTANTLY, UNTIL MIXTURE
;;^UTILITY(U,$J,114,258,"X",8,0)
;;= IS BLENDED. SIMMER UNTIL GRAVY IS THICKENED.
;;^UTILITY(U,$J,114,258,"X",9,0)
;;=5) ADD MEATBALLS FROM STEP 3.; MIX TO DISTRIBUTE. HEAT THOROUGHLY.
;;^UTILITY(U,$J,114,259,0)
;;=LS DIABETIC SPANISH RICE^100^2-OZ^35 MIN^^12^7^Y^P-77^^S^^.026
;;^UTILITY(U,$J,114,259,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,259,"E",1,0)
;;=23
;;^UTILITY(U,$J,114,259,"I",0)
;;=^114.01PA^7^7
;;^UTILITY(U,$J,114,259,"I",1,0)
;;=448^2.5625^1558^2.5625
;;^UTILITY(U,$J,114,259,"I",2,0)
;;=777^1.0625^1378^.95625
;;^UTILITY(U,$J,114,259,"I",3,0)
;;=798^1^1434^.82
;;^UTILITY(U,$J,114,259,"I",4,0)
;;=624^.25^371^.25
;;^UTILITY(U,$J,114,259,"I",5,0)
;;=539^6.5^1935^6.5
;;^UTILITY(U,$J,114,259,"I",6,0)
;;=850^1^262
;;^UTILITY(U,$J,114,259,"I",7,0)
;;=192^.00521^288^.00521
;;^UTILITY(U,$J,114,259,"X",0)
;;=^^8^8^2890815^^^
;;^UTILITY(U,$J,114,259,"X",1,0)
;;=1) COOK RICE IN BOILING WATER UNTIL JUST TENDER. DRAIN OFF EXCESS
;;^UTILITY(U,$J,114,259,"X",2,0)
;;= LIQUID.
;;^UTILITY(U,$J,114,259,"X",3,0)
;;=2) SAUTE ONIONS AND GREEN PEPPERS UNTIL ONIONS ARE
;;^UTILITY(U,$J,114,259,"X",4,0)
;;= CLEAR AND GLOSSY.
;;^UTILITY(U,$J,114,259,"X",5,0)
;;=3) ADD MARGARINE TO COOKED RICE.
;;^UTILITY(U,$J,114,259,"X",6,0)
;;=4) COMBINE AND HEAT TOMATOES, BAY LEAF AND PEPPER. ADD TO RICE
;;^UTILITY(U,$J,114,259,"X",7,0)
;;= MIXTURE; MIX TO DISTRIBUTE.
FHINI0J9 ; ; 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,255,"X",6,0)
+2 ;;= PAPRIKA OVER TOP OF DEVILED EGGS.
+3 ;;^UTILITY(U,$J,114,255,"X",7,0)
+4 ;;=4) ASSEMBLE COLD PLATE:
+5 ;;^UTILITY(U,$J,114,255,"X",8,0)
+6 ;;= 1 OZ. SLICE BOLOGNA
+7 ;;^UTILITY(U,$J,114,255,"X",9,0)
+8 ;;= 1 OZ. SLICE CHEESE
+9 ;;^UTILITY(U,$J,114,255,"X",10,0)
+10 ;;= 1 OZ. (1/2 EGG) DEVILED EGG
+11 ;;^UTILITY(U,$J,114,256,0)
+12 ;;=GRILLED BACON^11^2-EACH^20 MIN^^1^5^N^E-14^^F
+13 ;;^UTILITY(U,$J,114,256,"E",0)
+14 ;;=^114.05P^1^1
+15 ;;^UTILITY(U,$J,114,256,"E",1,0)
+16 ;;=33
+17 ;;^UTILITY(U,$J,114,256,"I",0)
+18 ;;=^114.01PA^1^1
+19 ;;^UTILITY(U,$J,114,256,"I",1,0)
+20 ;;=963^1^212^1
+21 ;;^UTILITY(U,$J,114,256,"X",0)
+22 ;;=^^2^2^2890725^
+23 ;;^UTILITY(U,$J,114,256,"X",1,0)
+24 ;;=1) PAN BACON.
+25 ;;^UTILITY(U,$J,114,256,"X",2,0)
+26 ;;=2) BAKE AT 325 DEGREES UNTIL CRISP AND GOLDEN BROWN. DRAIN OFF EXCESS FAT.
+27 ;;^UTILITY(U,$J,114,257,0)
+28 ;;=LS DIABETIC MEXICAN RICE^100^2-OZ^15 MIN^^12^7^Y^P-76^^S
+29 ;;^UTILITY(U,$J,114,257,"E",0)
+30 ;;=^114.05P^1^1
+31 ;;^UTILITY(U,$J,114,257,"E",1,0)
+32 ;;=6
+33 ;;^UTILITY(U,$J,114,257,"I",0)
+34 ;;=^114.01PA^7^7
+35 ;;^UTILITY(U,$J,114,257,"I",1,0)
+36 ;;=148^1.6^1943^13.7712
+37 ;;^UTILITY(U,$J,114,257,"I",2,0)
+38 ;;=725^.21875^1384^.21875
+39 ;;^UTILITY(U,$J,114,257,"I",3,0)
+40 ;;=173^.01563^285^.01563
+41 ;;^UTILITY(U,$J,114,257,"I",4,0)
+42 ;;=77^.01563^267^.01563
+43 ;;^UTILITY(U,$J,114,257,"I",5,0)
+44 ;;=129^.02083^278^.02083
+45 ;;^UTILITY(U,$J,114,257,"I",6,0)
+46 ;;=525^.01042^289^.01042
+47 ;;^UTILITY(U,$J,114,257,"I",7,0)
+48 ;;=448^4^1558^4
+49 ;;^UTILITY(U,$J,114,257,"X",0)
+50 ;;=^^4^4^2890725^
+51 ;;^UTILITY(U,$J,114,257,"X",1,0)
+52 ;;=1) COMBINE ALL INGREDIENTS EXCEPT RICE IN STEAM KETTLE AND BRING TO BOIL.
+53 ;;^UTILITY(U,$J,114,257,"X",2,0)
+54 ;;=2) STIR RICE INTO HOT MIXTURE. REDUCE HEAT TO SIMMER AND COOK
+55 ;;^UTILITY(U,$J,114,257,"X",3,0)
+56 ;;= 20 MINUTES OR UNTIL RICE IS TENDER.
+57 ;;^UTILITY(U,$J,114,257,"X",4,0)
+58 ;;=3) SEPARATE RICE KERNELS WITH FORK AND SERVE HOT.
+59 ;;^UTILITY(U,$J,114,258,0)
+60 ;;=BLAND LS MEATBALLS^100^3-EACH^1HR 30 MIN^^12^4^Y^E-70^^S^^.001
+61 ;;^UTILITY(U,$J,114,258,"E",0)
+62 ;;=^114.05P^1^1
+63 ;;^UTILITY(U,$J,114,258,"E",1,0)
+64 ;;=26
+65 ;;^UTILITY(U,$J,114,258,"I",0)
+66 ;;=^114.01PA^6^6
+67 ;;^UTILITY(U,$J,114,258,"I",1,0)
+68 ;;=813^16^6502
+69 ;;^UTILITY(U,$J,114,258,"I",2,0)
+70 ;;=148^.25^1943^2.15175
+71 ;;^UTILITY(U,$J,114,258,"I",3,0)
+72 ;;=22^22^2167^22
+73 ;;^UTILITY(U,$J,114,258,"I",4,0)
+74 ;;=788^15^6498
+75 ;;^UTILITY(U,$J,114,258,"I",5,0)
+76 ;;=624^1^371^1
+77 ;;^UTILITY(U,$J,114,258,"I",6,0)
+78 ;;=628^1^1998^1
+79 ;;^UTILITY(U,$J,114,258,"X",0)
+80 ;;=^^9^9^2890815^^
+81 ;;^UTILITY(U,$J,114,258,"X",1,0)
+82 ;;=1) SOAK BREAD IN TOMATO JUICE (FIRST LISTING).
+83 ;;^UTILITY(U,$J,114,258,"X",2,0)
+84 ;;=2) COMBINE BEEF AND EGGS WITH MOISTENED BREAD FROM STEP 1. AND MIX
+85 ;;^UTILITY(U,$J,114,258,"X",3,0)
+86 ;;= ONLY TO DISTRIBUTE. DO NOT OVERMIX.
+87 ;;^UTILITY(U,$J,114,258,"X",4,0)
+88 ;;=3) SHAPE WITH NO. 30 SCOOP; PLACE ON BAKING SHEET. BROWN IN OVEN (325F) FOR
+89 ;;^UTILITY(U,$J,114,258,"X",5,0)
+90 ;;= 30 MINUTES. DRAIN OFF EXCESS FAT.
+91 ;;^UTILITY(U,$J,114,258,"X",6,0)
+92 ;;=4) TO MAKE SAUCE: ADD FLOUR TO HOT MARGARINE TO MAKE ROUX. ADD TOMATO
+93 ;;^UTILITY(U,$J,114,258,"X",7,0)
+94 ;;= JUICE SLOWLY (SECOND LISTING), STIRRING CONSTANTLY, UNTIL MIXTURE
+95 ;;^UTILITY(U,$J,114,258,"X",8,0)
+96 ;;= IS BLENDED. SIMMER UNTIL GRAVY IS THICKENED.
+97 ;;^UTILITY(U,$J,114,258,"X",9,0)
+98 ;;=5) ADD MEATBALLS FROM STEP 3.; MIX TO DISTRIBUTE. HEAT THOROUGHLY.
+99 ;;^UTILITY(U,$J,114,259,0)
+100 ;;=LS DIABETIC SPANISH RICE^100^2-OZ^35 MIN^^12^7^Y^P-77^^S^^.026
+101 ;;^UTILITY(U,$J,114,259,"E",0)
+102 ;;=^114.05P^1^1
+103 ;;^UTILITY(U,$J,114,259,"E",1,0)
+104 ;;=23
+105 ;;^UTILITY(U,$J,114,259,"I",0)
+106 ;;=^114.01PA^7^7
+107 ;;^UTILITY(U,$J,114,259,"I",1,0)
+108 ;;=448^2.5625^1558^2.5625
+109 ;;^UTILITY(U,$J,114,259,"I",2,0)
+110 ;;=777^1.0625^1378^.95625
+111 ;;^UTILITY(U,$J,114,259,"I",3,0)
+112 ;;=798^1^1434^.82
+113 ;;^UTILITY(U,$J,114,259,"I",4,0)
+114 ;;=624^.25^371^.25
+115 ;;^UTILITY(U,$J,114,259,"I",5,0)
+116 ;;=539^6.5^1935^6.5
+117 ;;^UTILITY(U,$J,114,259,"I",6,0)
+118 ;;=850^1^262
+119 ;;^UTILITY(U,$J,114,259,"I",7,0)
+120 ;;=192^.00521^288^.00521
+121 ;;^UTILITY(U,$J,114,259,"X",0)
+122 ;;=^^8^8^2890815^^^
+123 ;;^UTILITY(U,$J,114,259,"X",1,0)
+124 ;;=1) COOK RICE IN BOILING WATER UNTIL JUST TENDER. DRAIN OFF EXCESS
+125 ;;^UTILITY(U,$J,114,259,"X",2,0)
+126 ;;= LIQUID.
+127 ;;^UTILITY(U,$J,114,259,"X",3,0)
+128 ;;=2) SAUTE ONIONS AND GREEN PEPPERS UNTIL ONIONS ARE
+129 ;;^UTILITY(U,$J,114,259,"X",4,0)
+130 ;;= CLEAR AND GLOSSY.
+131 ;;^UTILITY(U,$J,114,259,"X",5,0)
+132 ;;=3) ADD MARGARINE TO COOKED RICE.
+133 ;;^UTILITY(U,$J,114,259,"X",6,0)
+134 ;;=4) COMBINE AND HEAT TOMATOES, BAY LEAF AND PEPPER. ADD TO RICE
+135 ;;^UTILITY(U,$J,114,259,"X",7,0)
+136 ;;= MIXTURE; MIX TO DISTRIBUTE.
