FHINI0JM ; ; 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,303,"X",11,0)
;;=5) STIR SOY SAUCE INTO CHOP SUEY TO DISTRIBUTE.
;;^UTILITY(U,$J,114,303,"X",12,0)
;;=6) COOK RICE ACCORDING TO PACKAGE DIRECTIONS.
;;^UTILITY(U,$J,114,303,"X",13,0)
;;=7) SERVE 4 OZ LADLE OF CHOP SUEY OVER 3 OZ. OF COOKED RICE; TOP WITH
;;^UTILITY(U,$J,114,303,"X",14,0)
;;= 1 OZ. OF CHOW MEIN NOODLES.
;;^UTILITY(U,$J,114,303,"X",15,0)
;;=8) NOTE: ADDITIONAL SOY SAUCE MAY BE SERVED.
;;^UTILITY(U,$J,114,304,0)
;;=NEAPOLITAN SPAGHETTI^100^6-OZ LAD^2HR^^10^4^Y^E-79^^S^^.1
;;^UTILITY(U,$J,114,304,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,304,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,304,"E",2,0)
;;=22
;;^UTILITY(U,$J,114,304,"I",0)
;;=^114.01PA^19^17
;;^UTILITY(U,$J,114,304,"I",1,0)
;;=22^10^2167^10
;;^UTILITY(U,$J,114,304,"I",2,0)
;;=725^.15625^1384^.15625
;;^UTILITY(U,$J,114,304,"I",3,0)
;;=403^.14063
;;^UTILITY(U,$J,114,304,"I",4,0)
;;=847^.1875^2021
;;^UTILITY(U,$J,114,304,"I",5,0)
;;=1008^.07813
;;^UTILITY(U,$J,114,304,"I",6,0)
;;=129^.01563^278^.01563
;;^UTILITY(U,$J,114,304,"I",7,0)
;;=273^6.375^1932^6.375
;;^UTILITY(U,$J,114,304,"I",8,0)
;;=593^10^1950^10
;;^UTILITY(U,$J,114,304,"I",9,0)
;;=196^1^1484^1
;;^UTILITY(U,$J,114,304,"I",10,0)
;;=412^.21875^1942^1.88278125
;;^UTILITY(U,$J,114,304,"I",11,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,304,"I",12,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,304,"I",13,0)
;;=235^.0625
;;^UTILITY(U,$J,114,304,"I",14,0)
;;=1006^.20313^2021^1.6981668
;;^UTILITY(U,$J,114,304,"I",15,0)
;;=391^.0625^6354
;;^UTILITY(U,$J,114,304,"I",16,0)
;;=537^6.25^1857^6.25
;;^UTILITY(U,$J,114,304,"I",19,0)
;;=69^2.5^32^2.5
;;^UTILITY(U,$J,114,304,"X",0)
;;=^^13^13^2890801^^^
;;^UTILITY(U,$J,114,304,"X",1,0)
;;=1) BROWN MEAT IN STEAM KETTLE. DRAIN OFF EXCESS FAT AND RETAIN FOR STEP 2.
;;^UTILITY(U,$J,114,304,"X",2,0)
;;=2) RECONSTITUTE ONIONS AND GREEN PEPPERS .
;;^UTILITY(U,$J,114,304,"X",3,0)
;;=3) SAUTE VEGTETABLE IN MEAT DRIPPINGS UNITL ONIONS ARE CLEAR AND GLOSSY.
;;^UTILITY(U,$J,114,304,"X",4,0)
;;= ADD TO BROWN MEAT; MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,304,"X",5,0)
;;=4) COMBINE TOMATO PRODUCTS, PIMIENTO, PEPPER , SALT, WATER (2ND ENTRY)
;;^UTILITY(U,$J,114,304,"X",6,0)
;;= AND WORCESTERSHIRE SAUCE. MIX TO DISTRIBUTE. COVER AND SIMMER FOR 30
;;^UTILITY(U,$J,114,304,"X",7,0)
;;= MINUTES, STIRRING OCCASIONALLY.
;;^UTILITY(U,$J,114,304,"X",8,0)
;;=5) DROP SPAGHETTI INTO SALTED BOILING WATER. COOK UNCOVERED AT FAST BOIL
;;^UTILITY(U,$J,114,304,"X",9,0)
;;= STIRRING OCCASIONALLY, UNTIL TENDER. DO NOT OVERCOOK. DRAIN AND RAISE
;;^UTILITY(U,$J,114,304,"X",10,0)
;;= TO REMOVE EXCESS STARCH.
;;^UTILITY(U,$J,114,304,"X",11,0)
;;=6) STIR MEAT SAUCE INTO SPAGHETTI; MIX TO DISTRIBUTE. SCALE MIXTURE
;;^UTILITY(U,$J,114,304,"X",12,0)
;;= INTO PANS. TOP EACH WITH GRATED CHEESE. HEAT IN OVEN (350F) UNTIL
;;^UTILITY(U,$J,114,304,"X",13,0)
;;= CHEESE MELTS (APPROX. 40 MINUTES).
;;^UTILITY(U,$J,114,305,0)
;;=MEXICAN CORN^100^3-OZ^45 MIN^^^9^Y^V-41^^S^^.058
;;^UTILITY(U,$J,114,305,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,305,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,305,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,305,"I",1,0)
;;=725^.03125^1384^.03125
;;^UTILITY(U,$J,114,305,"I",2,0)
;;=297^.5^372^.5
;;^UTILITY(U,$J,114,305,"I",3,0)
;;=403^.10938
;;^UTILITY(U,$J,114,305,"I",4,0)
;;=196^.5^1484^.5
;;^UTILITY(U,$J,114,305,"I",5,0)
;;=374^19.875^1034^19.875
;;^UTILITY(U,$J,114,305,"X",0)
;;=^^5^5^2890725^
;;^UTILITY(U,$J,114,305,"X",1,0)
;;=1) RECONSTITUTE ONIONS. SAUTE IN MARGARINE FOR 5 MINUTES.
;;^UTILITY(U,$J,114,305,"X",2,0)
;;=2) RECONSTITUTE GREEN PEPPERS. ADD TO ONIONS TOGETHER WITH
;;^UTILITY(U,$J,114,305,"X",3,0)
;;= PIMIENTO. COOK UNTIL TENDER.
;;^UTILITY(U,$J,114,305,"X",4,0)
;;=3) DRAIN CORN. ADD TO COOKED MIXTURE AND HEAT TO SERVING
;;^UTILITY(U,$J,114,305,"X",5,0)
;;= TEMPERATURE, STIRRING TO DISTRIBUTE.
;;^UTILITY(U,$J,114,306,0)
;;=ROAST BEEF SANDWICH (HOT)^100^1-EACH^3 HR^^2^4^Y^E-125^^S^^.002
;;^UTILITY(U,$J,114,306,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,306,"E",1,0)
;;=33
;;^UTILITY(U,$J,114,306,"E",2,0)
;;=5
;;^UTILITY(U,$J,114,306,"I",0)
;;=^114.01PA^6^6
;;^UTILITY(U,$J,114,306,"I",1,0)
;;=348^18.75^2149^17.625
;;^UTILITY(U,$J,114,306,"I",2,0)
;;=1008^.10156
;;^UTILITY(U,$J,114,306,"I",3,0)
;;=628^1^1998^1
;;^UTILITY(U,$J,114,306,"I",4,0)
;;=230^.15625^1598^.15625
;;^UTILITY(U,$J,114,306,"I",5,0)
;;=1007^1.75
;;^UTILITY(U,$J,114,306,"I",6,0)
;;=760^100^823
;;^UTILITY(U,$J,114,306,"X",0)
;;=^^7^7^2890801^^^
FHINI0JM ; ; 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,303,"X",11,0)
+2 ;;=5) STIR SOY SAUCE INTO CHOP SUEY TO DISTRIBUTE.
+3 ;;^UTILITY(U,$J,114,303,"X",12,0)
+4 ;;=6) COOK RICE ACCORDING TO PACKAGE DIRECTIONS.
+5 ;;^UTILITY(U,$J,114,303,"X",13,0)
+6 ;;=7) SERVE 4 OZ LADLE OF CHOP SUEY OVER 3 OZ. OF COOKED RICE; TOP WITH
+7 ;;^UTILITY(U,$J,114,303,"X",14,0)
+8 ;;= 1 OZ. OF CHOW MEIN NOODLES.
+9 ;;^UTILITY(U,$J,114,303,"X",15,0)
+10 ;;=8) NOTE: ADDITIONAL SOY SAUCE MAY BE SERVED.
+11 ;;^UTILITY(U,$J,114,304,0)
+12 ;;=NEAPOLITAN SPAGHETTI^100^6-OZ LAD^2HR^^10^4^Y^E-79^^S^^.1
+13 ;;^UTILITY(U,$J,114,304,"E",0)
+14 ;;=^114.05P^2^2
+15 ;;^UTILITY(U,$J,114,304,"E",1,0)
+16 ;;=5
+17 ;;^UTILITY(U,$J,114,304,"E",2,0)
+18 ;;=22
+19 ;;^UTILITY(U,$J,114,304,"I",0)
+20 ;;=^114.01PA^19^17
+21 ;;^UTILITY(U,$J,114,304,"I",1,0)
+22 ;;=22^10^2167^10
+23 ;;^UTILITY(U,$J,114,304,"I",2,0)
+24 ;;=725^.15625^1384^.15625
+25 ;;^UTILITY(U,$J,114,304,"I",3,0)
+26 ;;=403^.14063
+27 ;;^UTILITY(U,$J,114,304,"I",4,0)
+28 ;;=847^.1875^2021
+29 ;;^UTILITY(U,$J,114,304,"I",5,0)
+30 ;;=1008^.07813
+31 ;;^UTILITY(U,$J,114,304,"I",6,0)
+32 ;;=129^.01563^278^.01563
+33 ;;^UTILITY(U,$J,114,304,"I",7,0)
+34 ;;=273^6.375^1932^6.375
+35 ;;^UTILITY(U,$J,114,304,"I",8,0)
+36 ;;=593^10^1950^10
+37 ;;^UTILITY(U,$J,114,304,"I",9,0)
+38 ;;=196^1^1484^1
+39 ;;^UTILITY(U,$J,114,304,"I",10,0)
+40 ;;=412^.21875^1942^1.88278125
+41 ;;^UTILITY(U,$J,114,304,"I",11,0)
+42 ;;=192^.01563^288^.01563
+43 ;;^UTILITY(U,$J,114,304,"I",12,0)
+44 ;;=230^.1875^1598^.1875
+45 ;;^UTILITY(U,$J,114,304,"I",13,0)
+46 ;;=235^.0625
+47 ;;^UTILITY(U,$J,114,304,"I",14,0)
+48 ;;=1006^.20313^2021^1.6981668
+49 ;;^UTILITY(U,$J,114,304,"I",15,0)
+50 ;;=391^.0625^6354
+51 ;;^UTILITY(U,$J,114,304,"I",16,0)
+52 ;;=537^6.25^1857^6.25
+53 ;;^UTILITY(U,$J,114,304,"I",19,0)
+54 ;;=69^2.5^32^2.5
+55 ;;^UTILITY(U,$J,114,304,"X",0)
+56 ;;=^^13^13^2890801^^^
+57 ;;^UTILITY(U,$J,114,304,"X",1,0)
+58 ;;=1) BROWN MEAT IN STEAM KETTLE. DRAIN OFF EXCESS FAT AND RETAIN FOR STEP 2.
+59 ;;^UTILITY(U,$J,114,304,"X",2,0)
+60 ;;=2) RECONSTITUTE ONIONS AND GREEN PEPPERS .
+61 ;;^UTILITY(U,$J,114,304,"X",3,0)
+62 ;;=3) SAUTE VEGTETABLE IN MEAT DRIPPINGS UNITL ONIONS ARE CLEAR AND GLOSSY.
+63 ;;^UTILITY(U,$J,114,304,"X",4,0)
+64 ;;= ADD TO BROWN MEAT; MIX TO DISTRIBUTE.
+65 ;;^UTILITY(U,$J,114,304,"X",5,0)
+66 ;;=4) COMBINE TOMATO PRODUCTS, PIMIENTO, PEPPER , SALT, WATER (2ND ENTRY)
+67 ;;^UTILITY(U,$J,114,304,"X",6,0)
+68 ;;= AND WORCESTERSHIRE SAUCE. MIX TO DISTRIBUTE. COVER AND SIMMER FOR 30
+69 ;;^UTILITY(U,$J,114,304,"X",7,0)
+70 ;;= MINUTES, STIRRING OCCASIONALLY.
+71 ;;^UTILITY(U,$J,114,304,"X",8,0)
+72 ;;=5) DROP SPAGHETTI INTO SALTED BOILING WATER. COOK UNCOVERED AT FAST BOIL
+73 ;;^UTILITY(U,$J,114,304,"X",9,0)
+74 ;;= STIRRING OCCASIONALLY, UNTIL TENDER. DO NOT OVERCOOK. DRAIN AND RAISE
+75 ;;^UTILITY(U,$J,114,304,"X",10,0)
+76 ;;= TO REMOVE EXCESS STARCH.
+77 ;;^UTILITY(U,$J,114,304,"X",11,0)
+78 ;;=6) STIR MEAT SAUCE INTO SPAGHETTI; MIX TO DISTRIBUTE. SCALE MIXTURE
+79 ;;^UTILITY(U,$J,114,304,"X",12,0)
+80 ;;= INTO PANS. TOP EACH WITH GRATED CHEESE. HEAT IN OVEN (350F) UNTIL
+81 ;;^UTILITY(U,$J,114,304,"X",13,0)
+82 ;;= CHEESE MELTS (APPROX. 40 MINUTES).
+83 ;;^UTILITY(U,$J,114,305,0)
+84 ;;=MEXICAN CORN^100^3-OZ^45 MIN^^^9^Y^V-41^^S^^.058
+85 ;;^UTILITY(U,$J,114,305,"E",0)
+86 ;;=^114.05P^1^1
+87 ;;^UTILITY(U,$J,114,305,"E",1,0)
+88 ;;=6
+89 ;;^UTILITY(U,$J,114,305,"I",0)
+90 ;;=^114.01PA^5^5
+91 ;;^UTILITY(U,$J,114,305,"I",1,0)
+92 ;;=725^.03125^1384^.03125
+93 ;;^UTILITY(U,$J,114,305,"I",2,0)
+94 ;;=297^.5^372^.5
+95 ;;^UTILITY(U,$J,114,305,"I",3,0)
+96 ;;=403^.10938
+97 ;;^UTILITY(U,$J,114,305,"I",4,0)
+98 ;;=196^.5^1484^.5
+99 ;;^UTILITY(U,$J,114,305,"I",5,0)
+100 ;;=374^19.875^1034^19.875
+101 ;;^UTILITY(U,$J,114,305,"X",0)
+102 ;;=^^5^5^2890725^
+103 ;;^UTILITY(U,$J,114,305,"X",1,0)
+104 ;;=1) RECONSTITUTE ONIONS. SAUTE IN MARGARINE FOR 5 MINUTES.
+105 ;;^UTILITY(U,$J,114,305,"X",2,0)
+106 ;;=2) RECONSTITUTE GREEN PEPPERS. ADD TO ONIONS TOGETHER WITH
+107 ;;^UTILITY(U,$J,114,305,"X",3,0)
+108 ;;= PIMIENTO. COOK UNTIL TENDER.
+109 ;;^UTILITY(U,$J,114,305,"X",4,0)
+110 ;;=3) DRAIN CORN. ADD TO COOKED MIXTURE AND HEAT TO SERVING
+111 ;;^UTILITY(U,$J,114,305,"X",5,0)
+112 ;;= TEMPERATURE, STIRRING TO DISTRIBUTE.
+113 ;;^UTILITY(U,$J,114,306,0)
+114 ;;=ROAST BEEF SANDWICH (HOT)^100^1-EACH^3 HR^^2^4^Y^E-125^^S^^.002
+115 ;;^UTILITY(U,$J,114,306,"E",0)
+116 ;;=^114.05P^2^2
+117 ;;^UTILITY(U,$J,114,306,"E",1,0)
+118 ;;=33
+119 ;;^UTILITY(U,$J,114,306,"E",2,0)
+120 ;;=5
+121 ;;^UTILITY(U,$J,114,306,"I",0)
+122 ;;=^114.01PA^6^6
+123 ;;^UTILITY(U,$J,114,306,"I",1,0)
+124 ;;=348^18.75^2149^17.625
+125 ;;^UTILITY(U,$J,114,306,"I",2,0)
+126 ;;=1008^.10156
+127 ;;^UTILITY(U,$J,114,306,"I",3,0)
+128 ;;=628^1^1998^1
+129 ;;^UTILITY(U,$J,114,306,"I",4,0)
+130 ;;=230^.15625^1598^.15625
+131 ;;^UTILITY(U,$J,114,306,"I",5,0)
+132 ;;=1007^1.75
+133 ;;^UTILITY(U,$J,114,306,"I",6,0)
+134 ;;=760^100^823
+135 ;;^UTILITY(U,$J,114,306,"X",0)
+136 ;;=^^7^7^2890801^^^
