FHINI0JR ; ; 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,320,"I",0)
;;=^114.01PA^4^4
;;^UTILITY(U,$J,114,320,"I",1,0)
;;=339^12.5^2049^12.5
;;^UTILITY(U,$J,114,320,"I",2,0)
;;=230^.04688^1598^.04688
;;^UTILITY(U,$J,114,320,"I",3,0)
;;=297^.5^372^.5
;;^UTILITY(U,$J,114,320,"I",4,0)
;;=725^.25^1384^.25
;;^UTILITY(U,$J,114,320,"X",0)
;;=^^5^5^2890725^
;;^UTILITY(U,$J,114,320,"X",1,0)
;;=1) COOK PEAS UNTIL TENDER. DRAIN. ADD SALT; MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,320,"X",2,0)
;;= RETAIN FOR STEP 4.
;;^UTILITY(U,$J,114,320,"X",3,0)
;;=2) RECONSTITUTE ONIONS.
;;^UTILITY(U,$J,114,320,"X",4,0)
;;=3) SAUTE ONIONS IN MARGARINE UNTIL CLEAR AND GLOSSY.
;;^UTILITY(U,$J,114,320,"X",5,0)
;;=4) COMBINE PEAS AND ONIONS; MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,321,0)
;;=PLANTATION SHORTCAKE^100^3-OZ^2 HRS^^1^4^Y^E-251^^S^^.067
;;^UTILITY(U,$J,114,321,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,321,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,321,"E",2,0)
;;=26
;;^UTILITY(U,$J,114,321,"I",0)
;;=^114.01PA^19^15
;;^UTILITY(U,$J,114,321,"I",1,0)
;;=96^2.6875^2763^2.6875
;;^UTILITY(U,$J,114,321,"I",2,0)
;;=307^1.1875^2002^1.1875
;;^UTILITY(U,$J,114,321,"I",3,0)
;;=256^.09375^1906^.09375
;;^UTILITY(U,$J,114,321,"I",4,0)
;;=230^.09375^1598^.09375
;;^UTILITY(U,$J,114,321,"I",5,0)
;;=11^.1875^680^.1875
;;^UTILITY(U,$J,114,321,"I",6,0)
;;=157^.4375^138^.4375
;;^UTILITY(U,$J,114,321,"I",7,0)
;;=1005^.375^2021^3.135
;;^UTILITY(U,$J,114,321,"I",8,0)
;;=734^1.25^115^1.0625
;;^UTILITY(U,$J,114,321,"I",9,0)
;;=289^.8125^363^.8125
;;^UTILITY(U,$J,114,321,"I",10,0)
;;=297^1^372^1
;;^UTILITY(U,$J,114,321,"I",11,0)
;;=628^2^1998^2
;;^UTILITY(U,$J,114,321,"I",12,0)
;;=232^.4375^2789^.4375
;;^UTILITY(U,$J,114,321,"I",13,0)
;;=847^2^2021
;;^UTILITY(U,$J,114,321,"I",16,0)
;;=534^2^1346^2
;;^UTILITY(U,$J,114,321,"I",19,0)
;;=671^18^490^18
;;^UTILITY(U,$J,114,321,"X",0)
;;=^^16^16^2890804^^^^
;;^UTILITY(U,$J,114,321,"X",1,0)
;;=1) COOK TURKEY BREAST AND SLICE; SET ASIDE.
;;^UTILITY(U,$J,114,321,"X",2,0)
;;=2) SIFT TOGETHER CORNMEAL, FLOUR SUGAR, SALT, BAKING POWDER AND NON-
;;^UTILITY(U,$J,114,321,"X",3,0)
;;= FAT DRIED MILK.
;;^UTILITY(U,$J,114,321,"X",4,0)
;;=3) MELT SHORTENING; COMBINE WITH FIRST WATER ENTRY AND EGGS. ADD TO
;;^UTILITY(U,$J,114,321,"X",5,0)
;;= SIFTED MIXTURE. MIX ONLY UNTIL DRY INGREDIENTS ARE MOISTENED.
;;^UTILITY(U,$J,114,321,"X",6,0)
;;= MEASURE HALF OF MIXTURE INTO EACH OF TWO PANS. BAKE FOR 20 MINUTES.
;;^UTILITY(U,$J,114,321,"X",7,0)
;;= AT 375 F DEGREES. COOL, MARK AND CUT EACH PAN INTO 50 SERVINGS.
;;^UTILITY(U,$J,114,321,"X",8,0)
;;=4) COMBINE MARGARINE AND FLOUR TO FORM ROUX.
;;^UTILITY(U,$J,114,321,"X",9,0)
;;=5) COMBINE SOUP BASE WITH SECOND WATER ENTRY.
;;^UTILITY(U,$J,114,321,"X",10,0)
;;=6) RECONSTITUTE MILK WITH THIRD WATER ENTRY. HEAT MILK TO BELOW BOILING
;;^UTILITY(U,$J,114,321,"X",11,0)
;;= AND BLEND INTO ROUX.
;;^UTILITY(U,$J,114,321,"X",12,0)
;;=7) CHOP MUSHROOMS. STIR INTO SAUCE.
;;^UTILITY(U,$J,114,321,"X",13,0)
;;=8) ADD SMALL AMOUNT OF SAUCE TO SLIGHTLY BEATEN EGGS. MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,321,"X",14,0)
;;= POUR EGG MIXTURE INTO REMAINING SAUCE AND BLEND THOROUGHLY.
;;^UTILITY(U,$J,114,321,"X",15,0)
;;=9) SPLIT CUT CORNBREAD. PLACE ONE SLICE OF TURKEY BETWEEN CORNBREAD.
;;^UTILITY(U,$J,114,321,"X",16,0)
;;= COVER WITH 2 OZ SAUCE.
;;^UTILITY(U,$J,114,322,0)
;;=CHEESE DREAMS^100^2-EACH^2 HR^^12^4^Y^E-254^^S^^.139
;;^UTILITY(U,$J,114,322,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,322,"E",1,0)
;;=33
;;^UTILITY(U,$J,114,322,"E",2,0)
;;=26
;;^UTILITY(U,$J,114,322,"I",0)
;;=^114.01PA^9^9
;;^UTILITY(U,$J,114,322,"I",1,0)
;;=460^12.5^5^12.5
;;^UTILITY(U,$J,114,322,"I",2,0)
;;=788^15^6498
;;^UTILITY(U,$J,114,322,"I",3,0)
;;=196^.3125^1484^.3125
;;^UTILITY(U,$J,114,322,"I",4,0)
;;=382^.02083
;;^UTILITY(U,$J,114,322,"I",5,0)
;;=391^.02344^6354
;;^UTILITY(U,$J,114,322,"I",6,0)
;;=157^.25^138^.25
;;^UTILITY(U,$J,114,322,"I",7,0)
;;=847^.25^2021
;;^UTILITY(U,$J,114,322,"I",8,0)
;;=804^100^1568
;;^UTILITY(U,$J,114,322,"I",9,0)
;;=491^200^213
;;^UTILITY(U,$J,114,322,"X",0)
;;=^^8^8^2890725^
;;^UTILITY(U,$J,114,322,"X",1,0)
;;=1) HARD COOK EGGS, PEEL AND DICE; GRATE CHEESE.
;;^UTILITY(U,$J,114,322,"X",2,0)
;;=2) COMBINE CHEESE, EGGS, PIMIENTOS, MUSTARD, WORCESTERSHIRE SAUCE, DRIED
;;^UTILITY(U,$J,114,322,"X",3,0)
;;= MILK AND WATER, MIX TO FORM SOFT SPREAD.
;;^UTILITY(U,$J,114,322,"X",4,0)
;;=3) SPLIT ROLLS; SPREAD NO.16 SCOOP OF FILLING ON BOTH HALVES. PLACE
;;^UTILITY(U,$J,114,322,"X",5,0)
;;= IN PAN.
FHINI0JR ; ; 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,320,"I",0)
+2 ;;=^114.01PA^4^4
+3 ;;^UTILITY(U,$J,114,320,"I",1,0)
+4 ;;=339^12.5^2049^12.5
+5 ;;^UTILITY(U,$J,114,320,"I",2,0)
+6 ;;=230^.04688^1598^.04688
+7 ;;^UTILITY(U,$J,114,320,"I",3,0)
+8 ;;=297^.5^372^.5
+9 ;;^UTILITY(U,$J,114,320,"I",4,0)
+10 ;;=725^.25^1384^.25
+11 ;;^UTILITY(U,$J,114,320,"X",0)
+12 ;;=^^5^5^2890725^
+13 ;;^UTILITY(U,$J,114,320,"X",1,0)
+14 ;;=1) COOK PEAS UNTIL TENDER. DRAIN. ADD SALT; MIX TO DISTRIBUTE.
+15 ;;^UTILITY(U,$J,114,320,"X",2,0)
+16 ;;= RETAIN FOR STEP 4.
+17 ;;^UTILITY(U,$J,114,320,"X",3,0)
+18 ;;=2) RECONSTITUTE ONIONS.
+19 ;;^UTILITY(U,$J,114,320,"X",4,0)
+20 ;;=3) SAUTE ONIONS IN MARGARINE UNTIL CLEAR AND GLOSSY.
+21 ;;^UTILITY(U,$J,114,320,"X",5,0)
+22 ;;=4) COMBINE PEAS AND ONIONS; MIX TO DISTRIBUTE.
+23 ;;^UTILITY(U,$J,114,321,0)
+24 ;;=PLANTATION SHORTCAKE^100^3-OZ^2 HRS^^1^4^Y^E-251^^S^^.067
+25 ;;^UTILITY(U,$J,114,321,"E",0)
+26 ;;=^114.05P^2^2
+27 ;;^UTILITY(U,$J,114,321,"E",1,0)
+28 ;;=5
+29 ;;^UTILITY(U,$J,114,321,"E",2,0)
+30 ;;=26
+31 ;;^UTILITY(U,$J,114,321,"I",0)
+32 ;;=^114.01PA^19^15
+33 ;;^UTILITY(U,$J,114,321,"I",1,0)
+34 ;;=96^2.6875^2763^2.6875
+35 ;;^UTILITY(U,$J,114,321,"I",2,0)
+36 ;;=307^1.1875^2002^1.1875
+37 ;;^UTILITY(U,$J,114,321,"I",3,0)
+38 ;;=256^.09375^1906^.09375
+39 ;;^UTILITY(U,$J,114,321,"I",4,0)
+40 ;;=230^.09375^1598^.09375
+41 ;;^UTILITY(U,$J,114,321,"I",5,0)
+42 ;;=11^.1875^680^.1875
+43 ;;^UTILITY(U,$J,114,321,"I",6,0)
+44 ;;=157^.4375^138^.4375
+45 ;;^UTILITY(U,$J,114,321,"I",7,0)
+46 ;;=1005^.375^2021^3.135
+47 ;;^UTILITY(U,$J,114,321,"I",8,0)
+48 ;;=734^1.25^115^1.0625
+49 ;;^UTILITY(U,$J,114,321,"I",9,0)
+50 ;;=289^.8125^363^.8125
+51 ;;^UTILITY(U,$J,114,321,"I",10,0)
+52 ;;=297^1^372^1
+53 ;;^UTILITY(U,$J,114,321,"I",11,0)
+54 ;;=628^2^1998^2
+55 ;;^UTILITY(U,$J,114,321,"I",12,0)
+56 ;;=232^.4375^2789^.4375
+57 ;;^UTILITY(U,$J,114,321,"I",13,0)
+58 ;;=847^2^2021
+59 ;;^UTILITY(U,$J,114,321,"I",16,0)
+60 ;;=534^2^1346^2
+61 ;;^UTILITY(U,$J,114,321,"I",19,0)
+62 ;;=671^18^490^18
+63 ;;^UTILITY(U,$J,114,321,"X",0)
+64 ;;=^^16^16^2890804^^^^
+65 ;;^UTILITY(U,$J,114,321,"X",1,0)
+66 ;;=1) COOK TURKEY BREAST AND SLICE; SET ASIDE.
+67 ;;^UTILITY(U,$J,114,321,"X",2,0)
+68 ;;=2) SIFT TOGETHER CORNMEAL, FLOUR SUGAR, SALT, BAKING POWDER AND NON-
+69 ;;^UTILITY(U,$J,114,321,"X",3,0)
+70 ;;= FAT DRIED MILK.
+71 ;;^UTILITY(U,$J,114,321,"X",4,0)
+72 ;;=3) MELT SHORTENING; COMBINE WITH FIRST WATER ENTRY AND EGGS. ADD TO
+73 ;;^UTILITY(U,$J,114,321,"X",5,0)
+74 ;;= SIFTED MIXTURE. MIX ONLY UNTIL DRY INGREDIENTS ARE MOISTENED.
+75 ;;^UTILITY(U,$J,114,321,"X",6,0)
+76 ;;= MEASURE HALF OF MIXTURE INTO EACH OF TWO PANS. BAKE FOR 20 MINUTES.
+77 ;;^UTILITY(U,$J,114,321,"X",7,0)
+78 ;;= AT 375 F DEGREES. COOL, MARK AND CUT EACH PAN INTO 50 SERVINGS.
+79 ;;^UTILITY(U,$J,114,321,"X",8,0)
+80 ;;=4) COMBINE MARGARINE AND FLOUR TO FORM ROUX.
+81 ;;^UTILITY(U,$J,114,321,"X",9,0)
+82 ;;=5) COMBINE SOUP BASE WITH SECOND WATER ENTRY.
+83 ;;^UTILITY(U,$J,114,321,"X",10,0)
+84 ;;=6) RECONSTITUTE MILK WITH THIRD WATER ENTRY. HEAT MILK TO BELOW BOILING
+85 ;;^UTILITY(U,$J,114,321,"X",11,0)
+86 ;;= AND BLEND INTO ROUX.
+87 ;;^UTILITY(U,$J,114,321,"X",12,0)
+88 ;;=7) CHOP MUSHROOMS. STIR INTO SAUCE.
+89 ;;^UTILITY(U,$J,114,321,"X",13,0)
+90 ;;=8) ADD SMALL AMOUNT OF SAUCE TO SLIGHTLY BEATEN EGGS. MIX TO DISTRIBUTE.
+91 ;;^UTILITY(U,$J,114,321,"X",14,0)
+92 ;;= POUR EGG MIXTURE INTO REMAINING SAUCE AND BLEND THOROUGHLY.
+93 ;;^UTILITY(U,$J,114,321,"X",15,0)
+94 ;;=9) SPLIT CUT CORNBREAD. PLACE ONE SLICE OF TURKEY BETWEEN CORNBREAD.
+95 ;;^UTILITY(U,$J,114,321,"X",16,0)
+96 ;;= COVER WITH 2 OZ SAUCE.
+97 ;;^UTILITY(U,$J,114,322,0)
+98 ;;=CHEESE DREAMS^100^2-EACH^2 HR^^12^4^Y^E-254^^S^^.139
+99 ;;^UTILITY(U,$J,114,322,"E",0)
+100 ;;=^114.05P^2^2
+101 ;;^UTILITY(U,$J,114,322,"E",1,0)
+102 ;;=33
+103 ;;^UTILITY(U,$J,114,322,"E",2,0)
+104 ;;=26
+105 ;;^UTILITY(U,$J,114,322,"I",0)
+106 ;;=^114.01PA^9^9
+107 ;;^UTILITY(U,$J,114,322,"I",1,0)
+108 ;;=460^12.5^5^12.5
+109 ;;^UTILITY(U,$J,114,322,"I",2,0)
+110 ;;=788^15^6498
+111 ;;^UTILITY(U,$J,114,322,"I",3,0)
+112 ;;=196^.3125^1484^.3125
+113 ;;^UTILITY(U,$J,114,322,"I",4,0)
+114 ;;=382^.02083
+115 ;;^UTILITY(U,$J,114,322,"I",5,0)
+116 ;;=391^.02344^6354
+117 ;;^UTILITY(U,$J,114,322,"I",6,0)
+118 ;;=157^.25^138^.25
+119 ;;^UTILITY(U,$J,114,322,"I",7,0)
+120 ;;=847^.25^2021
+121 ;;^UTILITY(U,$J,114,322,"I",8,0)
+122 ;;=804^100^1568
+123 ;;^UTILITY(U,$J,114,322,"I",9,0)
+124 ;;=491^200^213
+125 ;;^UTILITY(U,$J,114,322,"X",0)
+126 ;;=^^8^8^2890725^
+127 ;;^UTILITY(U,$J,114,322,"X",1,0)
+128 ;;=1) HARD COOK EGGS, PEEL AND DICE; GRATE CHEESE.
+129 ;;^UTILITY(U,$J,114,322,"X",2,0)
+130 ;;=2) COMBINE CHEESE, EGGS, PIMIENTOS, MUSTARD, WORCESTERSHIRE SAUCE, DRIED
+131 ;;^UTILITY(U,$J,114,322,"X",3,0)
+132 ;;= MILK AND WATER, MIX TO FORM SOFT SPREAD.
+133 ;;^UTILITY(U,$J,114,322,"X",4,0)
+134 ;;=3) SPLIT ROLLS; SPREAD NO.16 SCOOP OF FILLING ON BOTH HALVES. PLACE
+135 ;;^UTILITY(U,$J,114,322,"X",5,0)
+136 ;;= IN PAN.
