FHINI0JL ; ; 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,300,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,300,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,300,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,300,"I",1,0)
;;=348^25^2149^23.5
;;^UTILITY(U,$J,114,300,"X",0)
;;=^^4^4^2890725^
;;^UTILITY(U,$J,114,300,"X",1,0)
;;=1) BRING WATER TO BOIL IN KETTLE. REDUCE HEAT TO SIMMER.
;;^UTILITY(U,$J,114,300,"X",2,0)
;;=2) ADD MEAT. COVER TIGHTLY AND CONTINUE TO SIMMER UNTIL MEAT IS TENDER.
;;^UTILITY(U,$J,114,300,"X",3,0)
;;=3) REMOVE FROM HEAT. COOL SLIGHTLY. SLICE ACROSS GRAIN. STACK SLICES IN PAN.
;;^UTILITY(U,$J,114,300,"X",4,0)
;;=4) KEEP WARM UNTIL SERVED.
;;^UTILITY(U,$J,114,301,0)
;;=CORN SOUFFLE^60^3-OZ^45 MIN^^^9^Y^V-40^^S^^.023
;;^UTILITY(U,$J,114,301,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,301,"E",1,0)
;;=22
;;^UTILITY(U,$J,114,301,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,301,"I",1,0)
;;=157^.59375^138^.59375
;;^UTILITY(U,$J,114,301,"I",2,0)
;;=262^.5^1921^.5
;;^UTILITY(U,$J,114,301,"I",3,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,301,"I",4,0)
;;=374^3^1034^3
;;^UTILITY(U,$J,114,301,"I",5,0)
;;=788^24^6498
;;^UTILITY(U,$J,114,301,"X",0)
;;=^^9^9^2890725^
;;^UTILITY(U,$J,114,301,"X",1,0)
;;=1) RECONSTITUTE MILK.
;;^UTILITY(U,$J,114,301,"X",2,0)
;;=2) COMBINE TAPIOCA AND SALT WITH MILK AND COOK FOR 15 MINUTES; STIR
;;^UTILITY(U,$J,114,301,"X",3,0)
;;= FREQUENTLY DURING FIRST 5 MINUTES.
;;^UTILITY(U,$J,114,301,"X",4,0)
;;=3) PUREE CORN AND ADD TO COOKED MIXTURE; BLEND THOROUGHLY.
;;^UTILITY(U,$J,114,301,"X",5,0)
;;=4) BEAT EGG YOLKS AND ADD SMALL AMOUNT OF COOKED MIXTURE INTO YOLKS.
;;^UTILITY(U,$J,114,301,"X",6,0)
;;= ADD EGG MIXTURE TO REMAINING COOKED MIXTURE AND MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,301,"X",7,0)
;;=5) FOLD BEATEN EGG WHITES INTO COOKED MIXTURE.
;;^UTILITY(U,$J,114,301,"X",8,0)
;;=6) POUR INTO PAN AND SET IN PAN OF HOT WATER. BAKE UNTIL FIRM
;;^UTILITY(U,$J,114,301,"X",9,0)
;;= (INSERTED KNIFE COMES OUT CLEAN).
;;^UTILITY(U,$J,114,302,0)
;;=ROAST BEEF^100^4-OZ RAW^2 HR^^1^4^N^E-123^^S
;;^UTILITY(U,$J,114,302,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,302,"E",1,0)
;;=33
;;^UTILITY(U,$J,114,302,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,302,"I",1,0)
;;=348^28.125^2149^26.4375
;;^UTILITY(U,$J,114,302,"X",0)
;;=^^3^3^2890725^
;;^UTILITY(U,$J,114,302,"X",1,0)
;;=1) PLACE ROAST ON RACK IN PAN WITH FAT SIDE UP.
;;^UTILITY(U,$J,114,302,"X",2,0)
;;=2) INSERT MEAT THERMOMETER INTO ROAST AT THICKEST POINT.
;;^UTILITY(U,$J,114,302,"X",3,0)
;;=3) BAKE AT 325 DEGREES TO DEGREE DONENESS DESIRED.
;;^UTILITY(U,$J,114,303,0)
;;=PORK CHOP SUEY/RICE^100^4-OZ LDL^2-1/2 HRS^^9^4^Y^E-174^^S^^.083
;;^UTILITY(U,$J,114,303,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,303,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,303,"I",0)
;;=^114.01PA^14^13
;;^UTILITY(U,$J,114,303,"I",1,0)
;;=1010^15.5625^164^10.738125
;;^UTILITY(U,$J,114,303,"I",2,0)
;;=725^.5625^1384^.5625
;;^UTILITY(U,$J,114,303,"I",3,0)
;;=1005^.75^2021^6.27
;;^UTILITY(U,$J,114,303,"I",4,0)
;;=403^.23438
;;^UTILITY(U,$J,114,303,"I",5,0)
;;=534^2^1346^2
;;^UTILITY(U,$J,114,303,"I",6,0)
;;=235^.5625
;;^UTILITY(U,$J,114,303,"I",7,0)
;;=847^2.09375^2021
;;^UTILITY(U,$J,114,303,"I",8,0)
;;=14^3.125^2082^3.125
;;^UTILITY(U,$J,114,303,"I",9,0)
;;=763^3^845^2.4
;;^UTILITY(U,$J,114,303,"I",10,0)
;;=360^1.25^1061^1.25
;;^UTILITY(U,$J,114,303,"I",12,0)
;;=524^.375^3025
;;^UTILITY(U,$J,114,303,"I",13,0)
;;=221^6^2932^6
;;^UTILITY(U,$J,114,303,"I",14,0)
;;=165^1.125^1365^1.125
;;^UTILITY(U,$J,114,303,"X",0)
;;=^^15^15^2890801^^^^
;;^UTILITY(U,$J,114,303,"X",1,0)
;;=1) CUT PORK INTO CUBES OR STRIPS. BRAISE UNTIL TENDER AND BROWN.
;;^UTILITY(U,$J,114,303,"X",2,0)
;;=2) RECONSTITUTE ONIONS AND GREEN PEPPERS WITH FIRST WATER ENTRY.
;;^UTILITY(U,$J,114,303,"X",3,0)
;;= ADD TO COOKED PORK TOGETHER WITH DRAINED MUSHROOOMS. COOK UNTIL
;;^UTILITY(U,$J,114,303,"X",4,0)
;;= VEGETABLES ARE TENDER BUT CRISP.
;;^UTILITY(U,$J,114,303,"X",5,0)
;;=3) BLEND TOGETHER GRAVY BASE AND SECOND WATER ENTRY. MAY USE DRAINED
;;^UTILITY(U,$J,114,303,"X",6,0)
;;= MUSHROOM JUICE AS PART OF WATER. ADD TO MEAT MIXTURE TOGETHER WITH
;;^UTILITY(U,$J,114,303,"X",7,0)
;;= DRAINED BEAN SPROUTS AND SHREDDED CABBAGE. COOK UNTIL VEGETABLES
;;^UTILITY(U,$J,114,303,"X",8,0)
;;= ARE CHEWABLE AND CRISP. DO NOT OVERCOOK.
;;^UTILITY(U,$J,114,303,"X",9,0)
;;=4) COMBINE CORNSTARCH AND WATER TO FORM A SMOOTH PASTE. STIR INTO MEAT
;;^UTILITY(U,$J,114,303,"X",10,0)
;;= MIXTURE AND CONTINUE TO SIMMER UNTIL GRAVY IS CLEAR AND THICKENED.
FHINI0JL ; ; 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,300,"E",0)
+2 ;;=^114.05P^1^1
+3 ;;^UTILITY(U,$J,114,300,"E",1,0)
+4 ;;=5
+5 ;;^UTILITY(U,$J,114,300,"I",0)
+6 ;;=^114.01PA^1^1
+7 ;;^UTILITY(U,$J,114,300,"I",1,0)
+8 ;;=348^25^2149^23.5
+9 ;;^UTILITY(U,$J,114,300,"X",0)
+10 ;;=^^4^4^2890725^
+11 ;;^UTILITY(U,$J,114,300,"X",1,0)
+12 ;;=1) BRING WATER TO BOIL IN KETTLE. REDUCE HEAT TO SIMMER.
+13 ;;^UTILITY(U,$J,114,300,"X",2,0)
+14 ;;=2) ADD MEAT. COVER TIGHTLY AND CONTINUE TO SIMMER UNTIL MEAT IS TENDER.
+15 ;;^UTILITY(U,$J,114,300,"X",3,0)
+16 ;;=3) REMOVE FROM HEAT. COOL SLIGHTLY. SLICE ACROSS GRAIN. STACK SLICES IN PAN.
+17 ;;^UTILITY(U,$J,114,300,"X",4,0)
+18 ;;=4) KEEP WARM UNTIL SERVED.
+19 ;;^UTILITY(U,$J,114,301,0)
+20 ;;=CORN SOUFFLE^60^3-OZ^45 MIN^^^9^Y^V-40^^S^^.023
+21 ;;^UTILITY(U,$J,114,301,"E",0)
+22 ;;=^114.05P^1^1
+23 ;;^UTILITY(U,$J,114,301,"E",1,0)
+24 ;;=22
+25 ;;^UTILITY(U,$J,114,301,"I",0)
+26 ;;=^114.01PA^5^5
+27 ;;^UTILITY(U,$J,114,301,"I",1,0)
+28 ;;=157^.59375^138^.59375
+29 ;;^UTILITY(U,$J,114,301,"I",2,0)
+30 ;;=262^.5^1921^.5
+31 ;;^UTILITY(U,$J,114,301,"I",3,0)
+32 ;;=230^.0625^1598^.0625
+33 ;;^UTILITY(U,$J,114,301,"I",4,0)
+34 ;;=374^3^1034^3
+35 ;;^UTILITY(U,$J,114,301,"I",5,0)
+36 ;;=788^24^6498
+37 ;;^UTILITY(U,$J,114,301,"X",0)
+38 ;;=^^9^9^2890725^
+39 ;;^UTILITY(U,$J,114,301,"X",1,0)
+40 ;;=1) RECONSTITUTE MILK.
+41 ;;^UTILITY(U,$J,114,301,"X",2,0)
+42 ;;=2) COMBINE TAPIOCA AND SALT WITH MILK AND COOK FOR 15 MINUTES; STIR
+43 ;;^UTILITY(U,$J,114,301,"X",3,0)
+44 ;;= FREQUENTLY DURING FIRST 5 MINUTES.
+45 ;;^UTILITY(U,$J,114,301,"X",4,0)
+46 ;;=3) PUREE CORN AND ADD TO COOKED MIXTURE; BLEND THOROUGHLY.
+47 ;;^UTILITY(U,$J,114,301,"X",5,0)
+48 ;;=4) BEAT EGG YOLKS AND ADD SMALL AMOUNT OF COOKED MIXTURE INTO YOLKS.
+49 ;;^UTILITY(U,$J,114,301,"X",6,0)
+50 ;;= ADD EGG MIXTURE TO REMAINING COOKED MIXTURE AND MIX TO DISTRIBUTE.
+51 ;;^UTILITY(U,$J,114,301,"X",7,0)
+52 ;;=5) FOLD BEATEN EGG WHITES INTO COOKED MIXTURE.
+53 ;;^UTILITY(U,$J,114,301,"X",8,0)
+54 ;;=6) POUR INTO PAN AND SET IN PAN OF HOT WATER. BAKE UNTIL FIRM
+55 ;;^UTILITY(U,$J,114,301,"X",9,0)
+56 ;;= (INSERTED KNIFE COMES OUT CLEAN).
+57 ;;^UTILITY(U,$J,114,302,0)
+58 ;;=ROAST BEEF^100^4-OZ RAW^2 HR^^1^4^N^E-123^^S
+59 ;;^UTILITY(U,$J,114,302,"E",0)
+60 ;;=^114.05P^1^1
+61 ;;^UTILITY(U,$J,114,302,"E",1,0)
+62 ;;=33
+63 ;;^UTILITY(U,$J,114,302,"I",0)
+64 ;;=^114.01PA^1^1
+65 ;;^UTILITY(U,$J,114,302,"I",1,0)
+66 ;;=348^28.125^2149^26.4375
+67 ;;^UTILITY(U,$J,114,302,"X",0)
+68 ;;=^^3^3^2890725^
+69 ;;^UTILITY(U,$J,114,302,"X",1,0)
+70 ;;=1) PLACE ROAST ON RACK IN PAN WITH FAT SIDE UP.
+71 ;;^UTILITY(U,$J,114,302,"X",2,0)
+72 ;;=2) INSERT MEAT THERMOMETER INTO ROAST AT THICKEST POINT.
+73 ;;^UTILITY(U,$J,114,302,"X",3,0)
+74 ;;=3) BAKE AT 325 DEGREES TO DEGREE DONENESS DESIRED.
+75 ;;^UTILITY(U,$J,114,303,0)
+76 ;;=PORK CHOP SUEY/RICE^100^4-OZ LDL^2-1/2 HRS^^9^4^Y^E-174^^S^^.083
+77 ;;^UTILITY(U,$J,114,303,"E",0)
+78 ;;=^114.05P^1^1
+79 ;;^UTILITY(U,$J,114,303,"E",1,0)
+80 ;;=5
+81 ;;^UTILITY(U,$J,114,303,"I",0)
+82 ;;=^114.01PA^14^13
+83 ;;^UTILITY(U,$J,114,303,"I",1,0)
+84 ;;=1010^15.5625^164^10.738125
+85 ;;^UTILITY(U,$J,114,303,"I",2,0)
+86 ;;=725^.5625^1384^.5625
+87 ;;^UTILITY(U,$J,114,303,"I",3,0)
+88 ;;=1005^.75^2021^6.27
+89 ;;^UTILITY(U,$J,114,303,"I",4,0)
+90 ;;=403^.23438
+91 ;;^UTILITY(U,$J,114,303,"I",5,0)
+92 ;;=534^2^1346^2
+93 ;;^UTILITY(U,$J,114,303,"I",6,0)
+94 ;;=235^.5625
+95 ;;^UTILITY(U,$J,114,303,"I",7,0)
+96 ;;=847^2.09375^2021
+97 ;;^UTILITY(U,$J,114,303,"I",8,0)
+98 ;;=14^3.125^2082^3.125
+99 ;;^UTILITY(U,$J,114,303,"I",9,0)
+100 ;;=763^3^845^2.4
+101 ;;^UTILITY(U,$J,114,303,"I",10,0)
+102 ;;=360^1.25^1061^1.25
+103 ;;^UTILITY(U,$J,114,303,"I",12,0)
+104 ;;=524^.375^3025
+105 ;;^UTILITY(U,$J,114,303,"I",13,0)
+106 ;;=221^6^2932^6
+107 ;;^UTILITY(U,$J,114,303,"I",14,0)
+108 ;;=165^1.125^1365^1.125
+109 ;;^UTILITY(U,$J,114,303,"X",0)
+110 ;;=^^15^15^2890801^^^^
+111 ;;^UTILITY(U,$J,114,303,"X",1,0)
+112 ;;=1) CUT PORK INTO CUBES OR STRIPS. BRAISE UNTIL TENDER AND BROWN.
+113 ;;^UTILITY(U,$J,114,303,"X",2,0)
+114 ;;=2) RECONSTITUTE ONIONS AND GREEN PEPPERS WITH FIRST WATER ENTRY.
+115 ;;^UTILITY(U,$J,114,303,"X",3,0)
+116 ;;= ADD TO COOKED PORK TOGETHER WITH DRAINED MUSHROOOMS. COOK UNTIL
+117 ;;^UTILITY(U,$J,114,303,"X",4,0)
+118 ;;= VEGETABLES ARE TENDER BUT CRISP.
+119 ;;^UTILITY(U,$J,114,303,"X",5,0)
+120 ;;=3) BLEND TOGETHER GRAVY BASE AND SECOND WATER ENTRY. MAY USE DRAINED
+121 ;;^UTILITY(U,$J,114,303,"X",6,0)
+122 ;;= MUSHROOM JUICE AS PART OF WATER. ADD TO MEAT MIXTURE TOGETHER WITH
+123 ;;^UTILITY(U,$J,114,303,"X",7,0)
+124 ;;= DRAINED BEAN SPROUTS AND SHREDDED CABBAGE. COOK UNTIL VEGETABLES
+125 ;;^UTILITY(U,$J,114,303,"X",8,0)
+126 ;;= ARE CHEWABLE AND CRISP. DO NOT OVERCOOK.
+127 ;;^UTILITY(U,$J,114,303,"X",9,0)
+128 ;;=4) COMBINE CORNSTARCH AND WATER TO FORM A SMOOTH PASTE. STIR INTO MEAT
+129 ;;^UTILITY(U,$J,114,303,"X",10,0)
+130 ;;= MIXTURE AND CONTINUE TO SIMMER UNTIL GRAVY IS CLEAR AND THICKENED.
