FHINI0J6 ; ; 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,244,"I",1,0)
;;=628^6.5^1998^6.5
;;^UTILITY(U,$J,114,244,"I",2,0)
;;=11^.375^680^.375
;;^UTILITY(U,$J,114,244,"I",3,0)
;;=230^.10938^1598^.10938
;;^UTILITY(U,$J,114,244,"I",4,0)
;;=157^.125^138^.125
;;^UTILITY(U,$J,114,244,"I",5,0)
;;=289^.5625^363^.5625
;;^UTILITY(U,$J,114,244,"I",6,0)
;;=734^2^115^1.7
;;^UTILITY(U,$J,114,244,"I",7,0)
;;=256^.5625^1906^.5625
;;^UTILITY(U,$J,114,244,"I",8,0)
;;=383^.01563^283^.01563
;;^UTILITY(U,$J,114,244,"I",9,0)
;;=847^.125^2021
;;^UTILITY(U,$J,114,244,"I",10,0)
;;=454^9.1875^1750^9.1875
;;^UTILITY(U,$J,114,244,"X",0)
;;=^^6^6^2890801^^
;;^UTILITY(U,$J,114,244,"X",1,0)
;;=1) DRAIN PEACHES. RESERVE LIQUID. CHOP PEACHES.
;;^UTILITY(U,$J,114,244,"X",2,0)
;;=2) COMBINE FLOUR, BAKING POWDER, SALT AND DRY MILK. SIFT.
;;^UTILITY(U,$J,114,244,"X",3,0)
;;=3) ADD TO DRY INGREDIENTS SHORTENING, EGGS, SUGAR, NUTMEG, WATER,
;;^UTILITY(U,$J,114,244,"X",4,0)
;;= AND PEACH JUICE. MIX THOROUGHLY.
;;^UTILITY(U,$J,114,244,"X",5,0)
;;=4) ADD CHOPPED PEACHES AND MIX GENTLY, ONLY TO DISTRIBUTE FRUIT.
;;^UTILITY(U,$J,114,244,"X",6,0)
;;=5) SCOOP WITH NO.30 SCOOP INTO HOT FAT. FRY TO GOLDEN BROWN. DRAIN EXCESS FAT
;;^UTILITY(U,$J,114,245,0)
;;=DUMPLINGS^100^1-EACH^20 MIN^^17^7^Y^P-57^^S^^.019
;;^UTILITY(U,$J,114,245,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,245,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,245,"I",0)
;;=^114.01PA^6^6
;;^UTILITY(U,$J,114,245,"I",1,0)
;;=628^5.25^1998^5.25
;;^UTILITY(U,$J,114,245,"I",2,0)
;;=11^.375^680^.375
;;^UTILITY(U,$J,114,245,"I",3,0)
;;=230^.14063^1598^.14063
;;^UTILITY(U,$J,114,245,"I",4,0)
;;=788^12^6498
;;^UTILITY(U,$J,114,245,"I",5,0)
;;=157^.75^138^.75
;;^UTILITY(U,$J,114,245,"I",6,0)
;;=847^.6875^2021
;;^UTILITY(U,$J,114,245,"X",0)
;;=^^6^6^2890725^
;;^UTILITY(U,$J,114,245,"X",1,0)
;;=1) SIFT AND COMBINE FLOUR, BAKING POWDER AND SALT.
;;^UTILITY(U,$J,114,245,"X",2,0)
;;=2) RECONSTITUTE MILK; COMBINE WITH EGGS AND WATER AND ADD TO FLOUR MIXTURE.
;;^UTILITY(U,$J,114,245,"X",3,0)
;;= MIX ONLY TO DISTRIBUTE. DOUGH WILL BE STIFF.
;;^UTILITY(U,$J,114,245,"X",4,0)
;;=3) PORTION AND DROP DUMPLINGS INTO BOILING STOCK; COVER KETTLE,
;;^UTILITY(U,$J,114,245,"X",5,0)
;;= REDUCE HEAT TO SIMMER AND COOK UNTIL DONE. TRANSFER TO
;;^UTILITY(U,$J,114,245,"X",6,0)
;;= SERVING PANS AFTER DRAINING.
;;^UTILITY(U,$J,114,246,0)
;;=HOMINY SAUTEED^25^3-OZ^30 MIN^^5^7^Y^P-58^^S^^.079
;;^UTILITY(U,$J,114,246,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,246,"E",1,0)
;;=32
;;^UTILITY(U,$J,114,246,"E",2,0)
;;=2
;;^UTILITY(U,$J,114,246,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,246,"I",1,0)
;;=342^6.5625^2797^6.5625
;;^UTILITY(U,$J,114,246,"I",2,0)
;;=403^.04688
;;^UTILITY(U,$J,114,246,"I",3,0)
;;=196^.25^1484^.25
;;^UTILITY(U,$J,114,246,"I",4,0)
;;=297^.375^372^.375
;;^UTILITY(U,$J,114,246,"I",5,0)
;;=230^.03125^1598^.03125
;;^UTILITY(U,$J,114,246,"X",0)
;;=^^4^4^2890725^
;;^UTILITY(U,$J,114,246,"X",1,0)
;;=1) DRAIN HOMINY.
;;^UTILITY(U,$J,114,246,"X",2,0)
;;=2) RECONSTITUTE PEPPERS AND ADD TO HOMINY.
;;^UTILITY(U,$J,114,246,"X",3,0)
;;=3) ADD REMAINING INGREDIENTS TO HOMINY MIXTURE AND MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,246,"X",4,0)
;;=4) USE SCOOP TO FORM PATTIES. BROWN PATTIES ON BOTH SIDES ON GRILL.
;;^UTILITY(U,$J,114,247,0)
;;=BLAND LS MEAT LOAF^52^3-OZ RAW^2HR 30 MIN^^^4^Y^E-65^^S^^.002
;;^UTILITY(U,$J,114,247,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,247,"E",1,0)
;;=25
;;^UTILITY(U,$J,114,247,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,247,"I",1,0)
;;=22^10.625^2167^10.625
;;^UTILITY(U,$J,114,247,"I",2,0)
;;=813^9^6502
;;^UTILITY(U,$J,114,247,"I",3,0)
;;=528^.25^6449^.25
;;^UTILITY(U,$J,114,247,"I",4,0)
;;=380^1.3125^86^1.3125
;;^UTILITY(U,$J,114,247,"I",5,0)
;;=788^12^6498
;;^UTILITY(U,$J,114,247,"X",0)
;;=^^5^5^2890725^
;;^UTILITY(U,$J,114,247,"X",1,0)
;;=1) CRUMBLE DRY BREAD AND ADD TO BEEF, CARROT, MILK AND TOMATO JUICE.
;;^UTILITY(U,$J,114,247,"X",2,0)
;;= MIX ONLY TO BLEND.
;;^UTILITY(U,$J,114,247,"X",3,0)
;;=2) ADD EGGS TO MIXTURE AND BLEND. DO NOT OVERMIX.
;;^UTILITY(U,$J,114,247,"X",4,0)
;;=3) SCALE AND SHAPE INTO FOUR LOAVES. BAKE AT 325F FOR 2 HOURS.
;;^UTILITY(U,$J,114,247,"X",5,0)
;;= COOL SLIGHTLY BEFORE PORTIONING 13 SLICES PER LOAF.
;;^UTILITY(U,$J,114,248,0)
;;=HOT CAKE BATTER^100^4-FLOZ^25 MIN^^2^5^Y^E-6^^S^^.052
;;^UTILITY(U,$J,114,248,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,248,"E",1,0)
;;=32
;;^UTILITY(U,$J,114,248,"E",2,0)
;;=2
;;^UTILITY(U,$J,114,248,"I",0)
;;=^114.01PA^8^8
FHINI0J6 ; ; 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,244,"I",1,0)
+2 ;;=628^6.5^1998^6.5
+3 ;;^UTILITY(U,$J,114,244,"I",2,0)
+4 ;;=11^.375^680^.375
+5 ;;^UTILITY(U,$J,114,244,"I",3,0)
+6 ;;=230^.10938^1598^.10938
+7 ;;^UTILITY(U,$J,114,244,"I",4,0)
+8 ;;=157^.125^138^.125
+9 ;;^UTILITY(U,$J,114,244,"I",5,0)
+10 ;;=289^.5625^363^.5625
+11 ;;^UTILITY(U,$J,114,244,"I",6,0)
+12 ;;=734^2^115^1.7
+13 ;;^UTILITY(U,$J,114,244,"I",7,0)
+14 ;;=256^.5625^1906^.5625
+15 ;;^UTILITY(U,$J,114,244,"I",8,0)
+16 ;;=383^.01563^283^.01563
+17 ;;^UTILITY(U,$J,114,244,"I",9,0)
+18 ;;=847^.125^2021
+19 ;;^UTILITY(U,$J,114,244,"I",10,0)
+20 ;;=454^9.1875^1750^9.1875
+21 ;;^UTILITY(U,$J,114,244,"X",0)
+22 ;;=^^6^6^2890801^^
+23 ;;^UTILITY(U,$J,114,244,"X",1,0)
+24 ;;=1) DRAIN PEACHES. RESERVE LIQUID. CHOP PEACHES.
+25 ;;^UTILITY(U,$J,114,244,"X",2,0)
+26 ;;=2) COMBINE FLOUR, BAKING POWDER, SALT AND DRY MILK. SIFT.
+27 ;;^UTILITY(U,$J,114,244,"X",3,0)
+28 ;;=3) ADD TO DRY INGREDIENTS SHORTENING, EGGS, SUGAR, NUTMEG, WATER,
+29 ;;^UTILITY(U,$J,114,244,"X",4,0)
+30 ;;= AND PEACH JUICE. MIX THOROUGHLY.
+31 ;;^UTILITY(U,$J,114,244,"X",5,0)
+32 ;;=4) ADD CHOPPED PEACHES AND MIX GENTLY, ONLY TO DISTRIBUTE FRUIT.
+33 ;;^UTILITY(U,$J,114,244,"X",6,0)
+34 ;;=5) SCOOP WITH NO.30 SCOOP INTO HOT FAT. FRY TO GOLDEN BROWN. DRAIN EXCESS FAT
+35 ;;^UTILITY(U,$J,114,245,0)
+36 ;;=DUMPLINGS^100^1-EACH^20 MIN^^17^7^Y^P-57^^S^^.019
+37 ;;^UTILITY(U,$J,114,245,"E",0)
+38 ;;=^114.05P^1^1
+39 ;;^UTILITY(U,$J,114,245,"E",1,0)
+40 ;;=6
+41 ;;^UTILITY(U,$J,114,245,"I",0)
+42 ;;=^114.01PA^6^6
+43 ;;^UTILITY(U,$J,114,245,"I",1,0)
+44 ;;=628^5.25^1998^5.25
+45 ;;^UTILITY(U,$J,114,245,"I",2,0)
+46 ;;=11^.375^680^.375
+47 ;;^UTILITY(U,$J,114,245,"I",3,0)
+48 ;;=230^.14063^1598^.14063
+49 ;;^UTILITY(U,$J,114,245,"I",4,0)
+50 ;;=788^12^6498
+51 ;;^UTILITY(U,$J,114,245,"I",5,0)
+52 ;;=157^.75^138^.75
+53 ;;^UTILITY(U,$J,114,245,"I",6,0)
+54 ;;=847^.6875^2021
+55 ;;^UTILITY(U,$J,114,245,"X",0)
+56 ;;=^^6^6^2890725^
+57 ;;^UTILITY(U,$J,114,245,"X",1,0)
+58 ;;=1) SIFT AND COMBINE FLOUR, BAKING POWDER AND SALT.
+59 ;;^UTILITY(U,$J,114,245,"X",2,0)
+60 ;;=2) RECONSTITUTE MILK; COMBINE WITH EGGS AND WATER AND ADD TO FLOUR MIXTURE.
+61 ;;^UTILITY(U,$J,114,245,"X",3,0)
+62 ;;= MIX ONLY TO DISTRIBUTE. DOUGH WILL BE STIFF.
+63 ;;^UTILITY(U,$J,114,245,"X",4,0)
+64 ;;=3) PORTION AND DROP DUMPLINGS INTO BOILING STOCK; COVER KETTLE,
+65 ;;^UTILITY(U,$J,114,245,"X",5,0)
+66 ;;= REDUCE HEAT TO SIMMER AND COOK UNTIL DONE. TRANSFER TO
+67 ;;^UTILITY(U,$J,114,245,"X",6,0)
+68 ;;= SERVING PANS AFTER DRAINING.
+69 ;;^UTILITY(U,$J,114,246,0)
+70 ;;=HOMINY SAUTEED^25^3-OZ^30 MIN^^5^7^Y^P-58^^S^^.079
+71 ;;^UTILITY(U,$J,114,246,"E",0)
+72 ;;=^114.05P^2^2
+73 ;;^UTILITY(U,$J,114,246,"E",1,0)
+74 ;;=32
+75 ;;^UTILITY(U,$J,114,246,"E",2,0)
+76 ;;=2
+77 ;;^UTILITY(U,$J,114,246,"I",0)
+78 ;;=^114.01PA^5^5
+79 ;;^UTILITY(U,$J,114,246,"I",1,0)
+80 ;;=342^6.5625^2797^6.5625
+81 ;;^UTILITY(U,$J,114,246,"I",2,0)
+82 ;;=403^.04688
+83 ;;^UTILITY(U,$J,114,246,"I",3,0)
+84 ;;=196^.25^1484^.25
+85 ;;^UTILITY(U,$J,114,246,"I",4,0)
+86 ;;=297^.375^372^.375
+87 ;;^UTILITY(U,$J,114,246,"I",5,0)
+88 ;;=230^.03125^1598^.03125
+89 ;;^UTILITY(U,$J,114,246,"X",0)
+90 ;;=^^4^4^2890725^
+91 ;;^UTILITY(U,$J,114,246,"X",1,0)
+92 ;;=1) DRAIN HOMINY.
+93 ;;^UTILITY(U,$J,114,246,"X",2,0)
+94 ;;=2) RECONSTITUTE PEPPERS AND ADD TO HOMINY.
+95 ;;^UTILITY(U,$J,114,246,"X",3,0)
+96 ;;=3) ADD REMAINING INGREDIENTS TO HOMINY MIXTURE AND MIX TO DISTRIBUTE.
+97 ;;^UTILITY(U,$J,114,246,"X",4,0)
+98 ;;=4) USE SCOOP TO FORM PATTIES. BROWN PATTIES ON BOTH SIDES ON GRILL.
+99 ;;^UTILITY(U,$J,114,247,0)
+100 ;;=BLAND LS MEAT LOAF^52^3-OZ RAW^2HR 30 MIN^^^4^Y^E-65^^S^^.002
+101 ;;^UTILITY(U,$J,114,247,"E",0)
+102 ;;=^114.05P^1^1
+103 ;;^UTILITY(U,$J,114,247,"E",1,0)
+104 ;;=25
+105 ;;^UTILITY(U,$J,114,247,"I",0)
+106 ;;=^114.01PA^5^5
+107 ;;^UTILITY(U,$J,114,247,"I",1,0)
+108 ;;=22^10.625^2167^10.625
+109 ;;^UTILITY(U,$J,114,247,"I",2,0)
+110 ;;=813^9^6502
+111 ;;^UTILITY(U,$J,114,247,"I",3,0)
+112 ;;=528^.25^6449^.25
+113 ;;^UTILITY(U,$J,114,247,"I",4,0)
+114 ;;=380^1.3125^86^1.3125
+115 ;;^UTILITY(U,$J,114,247,"I",5,0)
+116 ;;=788^12^6498
+117 ;;^UTILITY(U,$J,114,247,"X",0)
+118 ;;=^^5^5^2890725^
+119 ;;^UTILITY(U,$J,114,247,"X",1,0)
+120 ;;=1) CRUMBLE DRY BREAD AND ADD TO BEEF, CARROT, MILK AND TOMATO JUICE.
+121 ;;^UTILITY(U,$J,114,247,"X",2,0)
+122 ;;= MIX ONLY TO BLEND.
+123 ;;^UTILITY(U,$J,114,247,"X",3,0)
+124 ;;=2) ADD EGGS TO MIXTURE AND BLEND. DO NOT OVERMIX.
+125 ;;^UTILITY(U,$J,114,247,"X",4,0)
+126 ;;=3) SCALE AND SHAPE INTO FOUR LOAVES. BAKE AT 325F FOR 2 HOURS.
+127 ;;^UTILITY(U,$J,114,247,"X",5,0)
+128 ;;= COOL SLIGHTLY BEFORE PORTIONING 13 SLICES PER LOAF.
+129 ;;^UTILITY(U,$J,114,248,0)
+130 ;;=HOT CAKE BATTER^100^4-FLOZ^25 MIN^^2^5^Y^E-6^^S^^.052
+131 ;;^UTILITY(U,$J,114,248,"E",0)
+132 ;;=^114.05P^2^2
+133 ;;^UTILITY(U,$J,114,248,"E",1,0)
+134 ;;=32
+135 ;;^UTILITY(U,$J,114,248,"E",2,0)
+136 ;;=2
+137 ;;^UTILITY(U,$J,114,248,"I",0)
+138 ;;=^114.01PA^8^8
