FHINI0JP ; ; 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,312,"X",9,0)
;;= SERVE HOT.
;;^UTILITY(U,$J,114,313,0)
;;=BACON SEASONED SPINACH^12^3-OZ^20 MIN^^^9^Y^V-57^^S
;;^UTILITY(U,$J,114,313,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,313,"E",1,0)
;;=26
;;^UTILITY(U,$J,114,313,"I",0)
;;=^114.01PA^2^2
;;^UTILITY(U,$J,114,313,"I",1,0)
;;=602^2.5^1871^2.5
;;^UTILITY(U,$J,114,313,"I",2,0)
;;=963^.78125^212^.78125
;;^UTILITY(U,$J,114,313,"X",0)
;;=^^3^3^2890726^^
;;^UTILITY(U,$J,114,313,"X",1,0)
;;=1) COOK SPINACH UNTIL TENDER.
;;^UTILITY(U,$J,114,313,"X",2,0)
;;=2) COOK BACON IN OVEN UNTIL CRISP. CHOP COARSE AND ADD TO
;;^UTILITY(U,$J,114,313,"X",3,0)
;;= COOKED SPINACH. TOSS TO DISTRIBUTE.
;;^UTILITY(U,$J,114,314,0)
;;=SPAGHETTI W/MEAT SAUCE^100^4-OZ^3HR^^9^4^Y^E-81^^S^^.055
;;^UTILITY(U,$J,114,314,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,314,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,314,"I",0)
;;=^114.01PA^20^20
;;^UTILITY(U,$J,114,314,"I",1,0)
;;=725^.125^1384^.125
;;^UTILITY(U,$J,114,314,"I",2,0)
;;=1005^.1875^2021^1.5675
;;^UTILITY(U,$J,114,314,"I",3,0)
;;=403^.0625
;;^UTILITY(U,$J,114,314,"I",4,0)
;;=129^.125^278^.125
;;^UTILITY(U,$J,114,314,"I",5,0)
;;=230^.09375^1598^.09375
;;^UTILITY(U,$J,114,314,"I",6,0)
;;=22^12^2167^12
;;^UTILITY(U,$J,114,314,"I",7,0)
;;=776^2^951^2
;;^UTILITY(U,$J,114,314,"I",8,0)
;;=256^.3125^1906^.3125
;;^UTILITY(U,$J,114,314,"I",9,0)
;;=145^.00195^1708
;;^UTILITY(U,$J,114,314,"I",10,0)
;;=849^.01563^269^.01563
;;^UTILITY(U,$J,114,314,"I",11,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,314,"I",12,0)
;;=391^.00781^6354
;;^UTILITY(U,$J,114,314,"I",13,0)
;;=850^4^262
;;^UTILITY(U,$J,114,314,"I",14,0)
;;=173^.01563^285^.01563
;;^UTILITY(U,$J,114,314,"I",15,0)
;;=593^2^1950^2
;;^UTILITY(U,$J,114,314,"I",16,0)
;;=270^2^1948^2
;;^UTILITY(U,$J,114,314,"I",17,0)
;;=235^.75
;;^UTILITY(U,$J,114,314,"I",18,0)
;;=1006^2.75^2021^22.99
;;^UTILITY(U,$J,114,314,"I",19,0)
;;=537^7^1857^7
;;^UTILITY(U,$J,114,314,"I",20,0)
;;=847^2.5^2021
;;^UTILITY(U,$J,114,314,"X",0)
;;=^^13^13^2890725^
;;^UTILITY(U,$J,114,314,"X",1,0)
;;=1) RECONSTITUTE ONIONS AND GREEN PEPPERS. MIX GARLIC AND SALT.
;;^UTILITY(U,$J,114,314,"X",2,0)
;;=2) BROWN MEAT. ADD VEGETABLES AND BRAISE UNTIL ONIONS ARE CLEAR AND
;;^UTILITY(U,$J,114,314,"X",3,0)
;;= GLOSSY.
;;^UTILITY(U,$J,114,314,"X",4,0)
;;=3) COMBINE SUGAR, LEMON JUICE, CLOVES, PEPPER, WORCEST. SAUCE, BAY
;;^UTILITY(U,$J,114,314,"X",5,0)
;;= LEAVES AND OREGANO; ADD TO MEAT MIXTURE. MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,314,"X",6,0)
;;=4) COMBINE TOMATO PRODUCTS, SOUP BASE, AND WATER (2ND ENTRY) TO
;;^UTILITY(U,$J,114,314,"X",7,0)
;;= FORM SMOOTH MIXTURE. ADD TO MEAT MIXTURE AND BRING TO BOIL. REDUCE
;;^UTILITY(U,$J,114,314,"X",8,0)
;;= HEAT AND SIMMER FOR 2 HRS. (REMOVE BAY LEAVES AFTER 30 MINUTES.)
;;^UTILITY(U,$J,114,314,"X",9,0)
;;=5) DROP SPAGHETTI INTO SALTED BOILING WATER. COOK UNCOVERED AT FAST BOIL
;;^UTILITY(U,$J,114,314,"X",10,0)
;;= STIRRING OCCASIONALLY, UNTIL TENDER. DO NOT OVERCOOK. DRAIN. RINSE
;;^UTILITY(U,$J,114,314,"X",11,0)
;;= TO REMOVE EXCESS STARCH.
;;^UTILITY(U,$J,114,314,"X",12,0)
;;=6) SERVE SAUCE OVER SPAGHETTI.
;;^UTILITY(U,$J,114,314,"X",13,0)
;;= NOTE: MAY BE SERVED WITH GRATED PARMESAN OR ROMANO CHEESE.
;;^UTILITY(U,$J,114,315,0)
;;=SEASONED TURNIP GREENS^75^3-OZ^15 MIN^^^9^Y^V-59^^S^^.001
;;^UTILITY(U,$J,114,315,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,315,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,315,"I",0)
;;=^114.01PA^4^4
;;^UTILITY(U,$J,114,315,"I",1,0)
;;=1009^.5^243^.5
;;^UTILITY(U,$J,114,315,"I",2,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,315,"I",3,0)
;;=562^12^1967^12
;;^UTILITY(U,$J,114,315,"I",4,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,315,"X",0)
;;=^^4^4^2890725^
;;^UTILITY(U,$J,114,315,"X",1,0)
;;=1) ADD SALT PORK AND SALT TO WATER AND BRING TO BOIL.
;;^UTILITY(U,$J,114,315,"X",2,0)
;;=2) ADD GREENS TO BOILING MIXTURE; RETURN TO SLOW BOIL
;;^UTILITY(U,$J,114,315,"X",3,0)
;;= AND COOK UNCOVERED FOR 30 MINUTES OR UNTIL TENDER. DRAIN.
;;^UTILITY(U,$J,114,315,"X",4,0)
;;=3) CUT THROUGH GREENS SEVERAL TIMES AND SPRINKLE WITH PEPPER.
;;^UTILITY(U,$J,114,316,0)
;;=LS BEEF STROGANOFF^25^3-OZ RAW^3.75 HR^^10^4^Y^E-130^^S^^.033
;;^UTILITY(U,$J,114,316,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,316,"E",1,0)
;;=7
;;^UTILITY(U,$J,114,316,"I",0)
;;=^114.01PA^13^13
;;^UTILITY(U,$J,114,316,"I",1,0)
;;=372^4.75^2125^2.8025
;;^UTILITY(U,$J,114,316,"I",2,0)
;;=725^.0625^1384^.0625
;;^UTILITY(U,$J,114,316,"I",3,0)
;;=847^.0625^2021
FHINI0JP ; ; 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,312,"X",9,0)
+2 ;;= SERVE HOT.
+3 ;;^UTILITY(U,$J,114,313,0)
+4 ;;=BACON SEASONED SPINACH^12^3-OZ^20 MIN^^^9^Y^V-57^^S
+5 ;;^UTILITY(U,$J,114,313,"E",0)
+6 ;;=^114.05P^1^1
+7 ;;^UTILITY(U,$J,114,313,"E",1,0)
+8 ;;=26
+9 ;;^UTILITY(U,$J,114,313,"I",0)
+10 ;;=^114.01PA^2^2
+11 ;;^UTILITY(U,$J,114,313,"I",1,0)
+12 ;;=602^2.5^1871^2.5
+13 ;;^UTILITY(U,$J,114,313,"I",2,0)
+14 ;;=963^.78125^212^.78125
+15 ;;^UTILITY(U,$J,114,313,"X",0)
+16 ;;=^^3^3^2890726^^
+17 ;;^UTILITY(U,$J,114,313,"X",1,0)
+18 ;;=1) COOK SPINACH UNTIL TENDER.
+19 ;;^UTILITY(U,$J,114,313,"X",2,0)
+20 ;;=2) COOK BACON IN OVEN UNTIL CRISP. CHOP COARSE AND ADD TO
+21 ;;^UTILITY(U,$J,114,313,"X",3,0)
+22 ;;= COOKED SPINACH. TOSS TO DISTRIBUTE.
+23 ;;^UTILITY(U,$J,114,314,0)
+24 ;;=SPAGHETTI W/MEAT SAUCE^100^4-OZ^3HR^^9^4^Y^E-81^^S^^.055
+25 ;;^UTILITY(U,$J,114,314,"E",0)
+26 ;;=^114.05P^1^1
+27 ;;^UTILITY(U,$J,114,314,"E",1,0)
+28 ;;=5
+29 ;;^UTILITY(U,$J,114,314,"I",0)
+30 ;;=^114.01PA^20^20
+31 ;;^UTILITY(U,$J,114,314,"I",1,0)
+32 ;;=725^.125^1384^.125
+33 ;;^UTILITY(U,$J,114,314,"I",2,0)
+34 ;;=1005^.1875^2021^1.5675
+35 ;;^UTILITY(U,$J,114,314,"I",3,0)
+36 ;;=403^.0625
+37 ;;^UTILITY(U,$J,114,314,"I",4,0)
+38 ;;=129^.125^278^.125
+39 ;;^UTILITY(U,$J,114,314,"I",5,0)
+40 ;;=230^.09375^1598^.09375
+41 ;;^UTILITY(U,$J,114,314,"I",6,0)
+42 ;;=22^12^2167^12
+43 ;;^UTILITY(U,$J,114,314,"I",7,0)
+44 ;;=776^2^951^2
+45 ;;^UTILITY(U,$J,114,314,"I",8,0)
+46 ;;=256^.3125^1906^.3125
+47 ;;^UTILITY(U,$J,114,314,"I",9,0)
+48 ;;=145^.00195^1708
+49 ;;^UTILITY(U,$J,114,314,"I",10,0)
+50 ;;=849^.01563^269^.01563
+51 ;;^UTILITY(U,$J,114,314,"I",11,0)
+52 ;;=192^.01563^288^.01563
+53 ;;^UTILITY(U,$J,114,314,"I",12,0)
+54 ;;=391^.00781^6354
+55 ;;^UTILITY(U,$J,114,314,"I",13,0)
+56 ;;=850^4^262
+57 ;;^UTILITY(U,$J,114,314,"I",14,0)
+58 ;;=173^.01563^285^.01563
+59 ;;^UTILITY(U,$J,114,314,"I",15,0)
+60 ;;=593^2^1950^2
+61 ;;^UTILITY(U,$J,114,314,"I",16,0)
+62 ;;=270^2^1948^2
+63 ;;^UTILITY(U,$J,114,314,"I",17,0)
+64 ;;=235^.75
+65 ;;^UTILITY(U,$J,114,314,"I",18,0)
+66 ;;=1006^2.75^2021^22.99
+67 ;;^UTILITY(U,$J,114,314,"I",19,0)
+68 ;;=537^7^1857^7
+69 ;;^UTILITY(U,$J,114,314,"I",20,0)
+70 ;;=847^2.5^2021
+71 ;;^UTILITY(U,$J,114,314,"X",0)
+72 ;;=^^13^13^2890725^
+73 ;;^UTILITY(U,$J,114,314,"X",1,0)
+74 ;;=1) RECONSTITUTE ONIONS AND GREEN PEPPERS. MIX GARLIC AND SALT.
+75 ;;^UTILITY(U,$J,114,314,"X",2,0)
+76 ;;=2) BROWN MEAT. ADD VEGETABLES AND BRAISE UNTIL ONIONS ARE CLEAR AND
+77 ;;^UTILITY(U,$J,114,314,"X",3,0)
+78 ;;= GLOSSY.
+79 ;;^UTILITY(U,$J,114,314,"X",4,0)
+80 ;;=3) COMBINE SUGAR, LEMON JUICE, CLOVES, PEPPER, WORCEST. SAUCE, BAY
+81 ;;^UTILITY(U,$J,114,314,"X",5,0)
+82 ;;= LEAVES AND OREGANO; ADD TO MEAT MIXTURE. MIX TO DISTRIBUTE.
+83 ;;^UTILITY(U,$J,114,314,"X",6,0)
+84 ;;=4) COMBINE TOMATO PRODUCTS, SOUP BASE, AND WATER (2ND ENTRY) TO
+85 ;;^UTILITY(U,$J,114,314,"X",7,0)
+86 ;;= FORM SMOOTH MIXTURE. ADD TO MEAT MIXTURE AND BRING TO BOIL. REDUCE
+87 ;;^UTILITY(U,$J,114,314,"X",8,0)
+88 ;;= HEAT AND SIMMER FOR 2 HRS. (REMOVE BAY LEAVES AFTER 30 MINUTES.)
+89 ;;^UTILITY(U,$J,114,314,"X",9,0)
+90 ;;=5) DROP SPAGHETTI INTO SALTED BOILING WATER. COOK UNCOVERED AT FAST BOIL
+91 ;;^UTILITY(U,$J,114,314,"X",10,0)
+92 ;;= STIRRING OCCASIONALLY, UNTIL TENDER. DO NOT OVERCOOK. DRAIN. RINSE
+93 ;;^UTILITY(U,$J,114,314,"X",11,0)
+94 ;;= TO REMOVE EXCESS STARCH.
+95 ;;^UTILITY(U,$J,114,314,"X",12,0)
+96 ;;=6) SERVE SAUCE OVER SPAGHETTI.
+97 ;;^UTILITY(U,$J,114,314,"X",13,0)
+98 ;;= NOTE: MAY BE SERVED WITH GRATED PARMESAN OR ROMANO CHEESE.
+99 ;;^UTILITY(U,$J,114,315,0)
+100 ;;=SEASONED TURNIP GREENS^75^3-OZ^15 MIN^^^9^Y^V-59^^S^^.001
+101 ;;^UTILITY(U,$J,114,315,"E",0)
+102 ;;=^114.05P^1^1
+103 ;;^UTILITY(U,$J,114,315,"E",1,0)
+104 ;;=6
+105 ;;^UTILITY(U,$J,114,315,"I",0)
+106 ;;=^114.01PA^4^4
+107 ;;^UTILITY(U,$J,114,315,"I",1,0)
+108 ;;=1009^.5^243^.5
+109 ;;^UTILITY(U,$J,114,315,"I",2,0)
+110 ;;=230^.0625^1598^.0625
+111 ;;^UTILITY(U,$J,114,315,"I",3,0)
+112 ;;=562^12^1967^12
+113 ;;^UTILITY(U,$J,114,315,"I",4,0)
+114 ;;=192^.01563^288^.01563
+115 ;;^UTILITY(U,$J,114,315,"X",0)
+116 ;;=^^4^4^2890725^
+117 ;;^UTILITY(U,$J,114,315,"X",1,0)
+118 ;;=1) ADD SALT PORK AND SALT TO WATER AND BRING TO BOIL.
+119 ;;^UTILITY(U,$J,114,315,"X",2,0)
+120 ;;=2) ADD GREENS TO BOILING MIXTURE; RETURN TO SLOW BOIL
+121 ;;^UTILITY(U,$J,114,315,"X",3,0)
+122 ;;= AND COOK UNCOVERED FOR 30 MINUTES OR UNTIL TENDER. DRAIN.
+123 ;;^UTILITY(U,$J,114,315,"X",4,0)
+124 ;;=3) CUT THROUGH GREENS SEVERAL TIMES AND SPRINKLE WITH PEPPER.
+125 ;;^UTILITY(U,$J,114,316,0)
+126 ;;=LS BEEF STROGANOFF^25^3-OZ RAW^3.75 HR^^10^4^Y^E-130^^S^^.033
+127 ;;^UTILITY(U,$J,114,316,"E",0)
+128 ;;=^114.05P^1^1
+129 ;;^UTILITY(U,$J,114,316,"E",1,0)
+130 ;;=7
+131 ;;^UTILITY(U,$J,114,316,"I",0)
+132 ;;=^114.01PA^13^13
+133 ;;^UTILITY(U,$J,114,316,"I",1,0)
+134 ;;=372^4.75^2125^2.8025
+135 ;;^UTILITY(U,$J,114,316,"I",2,0)
+136 ;;=725^.0625^1384^.0625
+137 ;;^UTILITY(U,$J,114,316,"I",3,0)
+138 ;;=847^.0625^2021
