FHINI0J2 ; ; 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,228,"I",3,0)
;;=403^.03125
;;^UTILITY(U,$J,114,228,"I",4,0)
;;=1005^.03125^2021^.26125
;;^UTILITY(U,$J,114,228,"I",5,0)
;;=22^8.25^2167^8.25
;;^UTILITY(U,$J,114,228,"I",6,0)
;;=879^2.375^199^1.5675
;;^UTILITY(U,$J,114,228,"I",7,0)
;;=867^.5625^827^.5625
;;^UTILITY(U,$J,114,228,"I",8,0)
;;=230^.10938^1598^.10938
;;^UTILITY(U,$J,114,228,"I",9,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,228,"I",10,0)
;;=776^.5^951^.5
;;^UTILITY(U,$J,114,228,"I",11,0)
;;=866^.5^935^.5
;;^UTILITY(U,$J,114,228,"I",12,0)
;;=157^.40625^138^.40625
;;^UTILITY(U,$J,114,228,"I",14,0)
;;=788^12^6498
;;^UTILITY(U,$J,114,228,"X",0)
;;=^^6^6^2890801^^
;;^UTILITY(U,$J,114,228,"X",1,0)
;;=1) RECONSTITUTE ONIONS AND GREEN PEPPERS WITH COLD WATER.
;;^UTILITY(U,$J,114,228,"X",2,0)
;;=2) COMBINE REST OF INGREDIENTS EXCEPT EGGS WITH INGREDIENTS IN STEP 1. MIX
;;^UTILITY(U,$J,114,228,"X",3,0)
;;= ONLY TO BLEND.
;;^UTILITY(U,$J,114,228,"X",4,0)
;;=3) BEAT EGGS. ADD TO MIXTURE AND BLEND. DO NOT OVERMIX!
;;^UTILITY(U,$J,114,228,"X",5,0)
;;=4) SCALE MIXTURE AND SHAPE INTO LOAVES. BAKE AT 325 F. COOL SLIGHTLY
;;^UTILITY(U,$J,114,228,"X",6,0)
;;= BEFORE PORTIONING.
;;^UTILITY(U,$J,114,229,0)
;;=MEAT-Z-PIE^96^2-OZ^2 HRS^^2^4^Y^E-88^^S^^.022
;;^UTILITY(U,$J,114,229,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,229,"E",1,0)
;;=8
;;^UTILITY(U,$J,114,229,"E",2,0)
;;=23
;;^UTILITY(U,$J,114,229,"I",0)
;;=^114.01PA^13^13
;;^UTILITY(U,$J,114,229,"I",1,0)
;;=867^1.75^827^1.75
;;^UTILITY(U,$J,114,229,"I",2,0)
;;=1007^.75
;;^UTILITY(U,$J,114,229,"I",3,0)
;;=22^8^2167^8
;;^UTILITY(U,$J,114,229,"I",4,0)
;;=879^8^199^5.28
;;^UTILITY(U,$J,114,229,"I",5,0)
;;=788^16^6498
;;^UTILITY(U,$J,114,229,"I",6,0)
;;=69^.5^32^.5
;;^UTILITY(U,$J,114,229,"I",7,0)
;;=176^.125^287^.125
;;^UTILITY(U,$J,114,229,"I",8,0)
;;=777^2^1378^1.8
;;^UTILITY(U,$J,114,229,"I",9,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,229,"I",10,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,229,"I",11,0)
;;=173^.01563^285^.01563
;;^UTILITY(U,$J,114,229,"I",12,0)
;;=270^4^1948^4
;;^UTILITY(U,$J,114,229,"I",13,0)
;;=489^1^9^1
;;^UTILITY(U,$J,114,229,"X",0)
;;=^^9^9^2890724^
;;^UTILITY(U,$J,114,229,"X",1,0)
;;=1) SOAK CRUMBS IN STOCK UNTIL SOFT.
;;^UTILITY(U,$J,114,229,"X",2,0)
;;=2) COMBINE BEEF, PORK, EGGS, PARMESAN CHEESE, PARSLEY, ONIONS, SALT,
;;^UTILITY(U,$J,114,229,"X",3,0)
;;= PEPPER AND OREGANO AND ADD TO ABOVE.
;;^UTILITY(U,$J,114,229,"X",4,0)
;;=3) MIX IN MIXING MACHINE FOR 20 SECONDS.
;;^UTILITY(U,$J,114,229,"X",5,0)
;;=4) SPREAD IN EQUAL PORTIONS IN THREE FULL SIZE PANS.
;;^UTILITY(U,$J,114,229,"X",6,0)
;;=5) DIVIDE TOMATO PASTE INTO 3 EQUAL PARTS AND SPREAD OVER MEAT. SHRED
;;^UTILITY(U,$J,114,229,"X",7,0)
;;= CHEDDAR CHEESE, DIVIDE INTO 3 EQUAL PARTS AND SPREAD OVER TOMATO
;;^UTILITY(U,$J,114,229,"X",8,0)
;;= PASTE.
;;^UTILITY(U,$J,114,229,"X",9,0)
;;=6) BAKE AT 350 DEGREES FOR 1 HOUR AND 10 MINUTES. PORTION APPROPRIATELY.
;;^UTILITY(U,$J,114,230,0)
;;=MEAT LOAF NO 2^100^3.5-OZ^2 HOURS^^2^4^Y^E-61^^S^^.008
;;^UTILITY(U,$J,114,230,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,230,"E",1,0)
;;=25
;;^UTILITY(U,$J,114,230,"I",0)
;;=^114.01PA^8^8
;;^UTILITY(U,$J,114,230,"I",1,0)
;;=22^17^2167^17
;;^UTILITY(U,$J,114,230,"I",2,0)
;;=760^1^823
;;^UTILITY(U,$J,114,230,"I",3,0)
;;=788^12^6498
;;^UTILITY(U,$J,114,230,"I",4,0)
;;=593^2.25^1950^2.25
;;^UTILITY(U,$J,114,230,"I",5,0)
;;=776^1.75^951^1.75
;;^UTILITY(U,$J,114,230,"I",6,0)
;;=777^1.75^1378^1.575
;;^UTILITY(U,$J,114,230,"I",7,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,230,"I",8,0)
;;=192^.00781^288^.00781
;;^UTILITY(U,$J,114,230,"X",0)
;;=^^7^7^2890724^^
;;^UTILITY(U,$J,114,230,"X",1,0)
;;=1) WET DRY BREAD AND CRUMBLE. ADD FINELY CHOPPED ONIONS AND CELERY,
;;^UTILITY(U,$J,114,230,"X",2,0)
;;= SALT, PEPPER, BEATEN EGGS, HALF OF TOMATO PUREE AND MEAT. MIX
;;^UTILITY(U,$J,114,230,"X",3,0)
;;= THOROUGHLY.
;;^UTILITY(U,$J,114,230,"X",4,0)
;;=2) WEIGHT OUT INTO PANS. MOLD INTO LOAVES.
;;^UTILITY(U,$J,114,230,"X",5,0)
;;=3) BAKE 1 1/2 HOURS AT 350 F. AFTER 30 MINUTES OF BAKING TIME HAS ELAPSED
;;^UTILITY(U,$J,114,230,"X",6,0)
;;= POUR REMAINING PUREE OVER LOAVES.
;;^UTILITY(U,$J,114,230,"X",7,0)
;;=4) PORTION APPROPRIATELY. SERVE HOT OR COLD.
;;^UTILITY(U,$J,114,231,0)
;;=MASHED SWT POTATOES/ORG JCE^100^3.5-OZ^15 MIN^^12^7^Y^P-37^^S^^.059
;;^UTILITY(U,$J,114,231,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,231,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,231,"E",2,0)
;;=18
;;^UTILITY(U,$J,114,231,"I",0)
;;=^114.01PA^6^6
FHINI0J2 ; ; 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,228,"I",3,0)
+2 ;;=403^.03125
+3 ;;^UTILITY(U,$J,114,228,"I",4,0)
+4 ;;=1005^.03125^2021^.26125
+5 ;;^UTILITY(U,$J,114,228,"I",5,0)
+6 ;;=22^8.25^2167^8.25
+7 ;;^UTILITY(U,$J,114,228,"I",6,0)
+8 ;;=879^2.375^199^1.5675
+9 ;;^UTILITY(U,$J,114,228,"I",7,0)
+10 ;;=867^.5625^827^.5625
+11 ;;^UTILITY(U,$J,114,228,"I",8,0)
+12 ;;=230^.10938^1598^.10938
+13 ;;^UTILITY(U,$J,114,228,"I",9,0)
+14 ;;=192^.01563^288^.01563
+15 ;;^UTILITY(U,$J,114,228,"I",10,0)
+16 ;;=776^.5^951^.5
+17 ;;^UTILITY(U,$J,114,228,"I",11,0)
+18 ;;=866^.5^935^.5
+19 ;;^UTILITY(U,$J,114,228,"I",12,0)
+20 ;;=157^.40625^138^.40625
+21 ;;^UTILITY(U,$J,114,228,"I",14,0)
+22 ;;=788^12^6498
+23 ;;^UTILITY(U,$J,114,228,"X",0)
+24 ;;=^^6^6^2890801^^
+25 ;;^UTILITY(U,$J,114,228,"X",1,0)
+26 ;;=1) RECONSTITUTE ONIONS AND GREEN PEPPERS WITH COLD WATER.
+27 ;;^UTILITY(U,$J,114,228,"X",2,0)
+28 ;;=2) COMBINE REST OF INGREDIENTS EXCEPT EGGS WITH INGREDIENTS IN STEP 1. MIX
+29 ;;^UTILITY(U,$J,114,228,"X",3,0)
+30 ;;= ONLY TO BLEND.
+31 ;;^UTILITY(U,$J,114,228,"X",4,0)
+32 ;;=3) BEAT EGGS. ADD TO MIXTURE AND BLEND. DO NOT OVERMIX!
+33 ;;^UTILITY(U,$J,114,228,"X",5,0)
+34 ;;=4) SCALE MIXTURE AND SHAPE INTO LOAVES. BAKE AT 325 F. COOL SLIGHTLY
+35 ;;^UTILITY(U,$J,114,228,"X",6,0)
+36 ;;= BEFORE PORTIONING.
+37 ;;^UTILITY(U,$J,114,229,0)
+38 ;;=MEAT-Z-PIE^96^2-OZ^2 HRS^^2^4^Y^E-88^^S^^.022
+39 ;;^UTILITY(U,$J,114,229,"E",0)
+40 ;;=^114.05P^2^2
+41 ;;^UTILITY(U,$J,114,229,"E",1,0)
+42 ;;=8
+43 ;;^UTILITY(U,$J,114,229,"E",2,0)
+44 ;;=23
+45 ;;^UTILITY(U,$J,114,229,"I",0)
+46 ;;=^114.01PA^13^13
+47 ;;^UTILITY(U,$J,114,229,"I",1,0)
+48 ;;=867^1.75^827^1.75
+49 ;;^UTILITY(U,$J,114,229,"I",2,0)
+50 ;;=1007^.75
+51 ;;^UTILITY(U,$J,114,229,"I",3,0)
+52 ;;=22^8^2167^8
+53 ;;^UTILITY(U,$J,114,229,"I",4,0)
+54 ;;=879^8^199^5.28
+55 ;;^UTILITY(U,$J,114,229,"I",5,0)
+56 ;;=788^16^6498
+57 ;;^UTILITY(U,$J,114,229,"I",6,0)
+58 ;;=69^.5^32^.5
+59 ;;^UTILITY(U,$J,114,229,"I",7,0)
+60 ;;=176^.125^287^.125
+61 ;;^UTILITY(U,$J,114,229,"I",8,0)
+62 ;;=777^2^1378^1.8
+63 ;;^UTILITY(U,$J,114,229,"I",9,0)
+64 ;;=230^.125^1598^.125
+65 ;;^UTILITY(U,$J,114,229,"I",10,0)
+66 ;;=192^.01563^288^.01563
+67 ;;^UTILITY(U,$J,114,229,"I",11,0)
+68 ;;=173^.01563^285^.01563
+69 ;;^UTILITY(U,$J,114,229,"I",12,0)
+70 ;;=270^4^1948^4
+71 ;;^UTILITY(U,$J,114,229,"I",13,0)
+72 ;;=489^1^9^1
+73 ;;^UTILITY(U,$J,114,229,"X",0)
+74 ;;=^^9^9^2890724^
+75 ;;^UTILITY(U,$J,114,229,"X",1,0)
+76 ;;=1) SOAK CRUMBS IN STOCK UNTIL SOFT.
+77 ;;^UTILITY(U,$J,114,229,"X",2,0)
+78 ;;=2) COMBINE BEEF, PORK, EGGS, PARMESAN CHEESE, PARSLEY, ONIONS, SALT,
+79 ;;^UTILITY(U,$J,114,229,"X",3,0)
+80 ;;= PEPPER AND OREGANO AND ADD TO ABOVE.
+81 ;;^UTILITY(U,$J,114,229,"X",4,0)
+82 ;;=3) MIX IN MIXING MACHINE FOR 20 SECONDS.
+83 ;;^UTILITY(U,$J,114,229,"X",5,0)
+84 ;;=4) SPREAD IN EQUAL PORTIONS IN THREE FULL SIZE PANS.
+85 ;;^UTILITY(U,$J,114,229,"X",6,0)
+86 ;;=5) DIVIDE TOMATO PASTE INTO 3 EQUAL PARTS AND SPREAD OVER MEAT. SHRED
+87 ;;^UTILITY(U,$J,114,229,"X",7,0)
+88 ;;= CHEDDAR CHEESE, DIVIDE INTO 3 EQUAL PARTS AND SPREAD OVER TOMATO
+89 ;;^UTILITY(U,$J,114,229,"X",8,0)
+90 ;;= PASTE.
+91 ;;^UTILITY(U,$J,114,229,"X",9,0)
+92 ;;=6) BAKE AT 350 DEGREES FOR 1 HOUR AND 10 MINUTES. PORTION APPROPRIATELY.
+93 ;;^UTILITY(U,$J,114,230,0)
+94 ;;=MEAT LOAF NO 2^100^3.5-OZ^2 HOURS^^2^4^Y^E-61^^S^^.008
+95 ;;^UTILITY(U,$J,114,230,"E",0)
+96 ;;=^114.05P^1^1
+97 ;;^UTILITY(U,$J,114,230,"E",1,0)
+98 ;;=25
+99 ;;^UTILITY(U,$J,114,230,"I",0)
+100 ;;=^114.01PA^8^8
+101 ;;^UTILITY(U,$J,114,230,"I",1,0)
+102 ;;=22^17^2167^17
+103 ;;^UTILITY(U,$J,114,230,"I",2,0)
+104 ;;=760^1^823
+105 ;;^UTILITY(U,$J,114,230,"I",3,0)
+106 ;;=788^12^6498
+107 ;;^UTILITY(U,$J,114,230,"I",4,0)
+108 ;;=593^2.25^1950^2.25
+109 ;;^UTILITY(U,$J,114,230,"I",5,0)
+110 ;;=776^1.75^951^1.75
+111 ;;^UTILITY(U,$J,114,230,"I",6,0)
+112 ;;=777^1.75^1378^1.575
+113 ;;^UTILITY(U,$J,114,230,"I",7,0)
+114 ;;=230^.1875^1598^.1875
+115 ;;^UTILITY(U,$J,114,230,"I",8,0)
+116 ;;=192^.00781^288^.00781
+117 ;;^UTILITY(U,$J,114,230,"X",0)
+118 ;;=^^7^7^2890724^^
+119 ;;^UTILITY(U,$J,114,230,"X",1,0)
+120 ;;=1) WET DRY BREAD AND CRUMBLE. ADD FINELY CHOPPED ONIONS AND CELERY,
+121 ;;^UTILITY(U,$J,114,230,"X",2,0)
+122 ;;= SALT, PEPPER, BEATEN EGGS, HALF OF TOMATO PUREE AND MEAT. MIX
+123 ;;^UTILITY(U,$J,114,230,"X",3,0)
+124 ;;= THOROUGHLY.
+125 ;;^UTILITY(U,$J,114,230,"X",4,0)
+126 ;;=2) WEIGHT OUT INTO PANS. MOLD INTO LOAVES.
+127 ;;^UTILITY(U,$J,114,230,"X",5,0)
+128 ;;=3) BAKE 1 1/2 HOURS AT 350 F. AFTER 30 MINUTES OF BAKING TIME HAS ELAPSED
+129 ;;^UTILITY(U,$J,114,230,"X",6,0)
+130 ;;= POUR REMAINING PUREE OVER LOAVES.
+131 ;;^UTILITY(U,$J,114,230,"X",7,0)
+132 ;;=4) PORTION APPROPRIATELY. SERVE HOT OR COLD.
+133 ;;^UTILITY(U,$J,114,231,0)
+134 ;;=MASHED SWT POTATOES/ORG JCE^100^3.5-OZ^15 MIN^^12^7^Y^P-37^^S^^.059
+135 ;;^UTILITY(U,$J,114,231,"E",0)
+136 ;;=^114.05P^2^2
+137 ;;^UTILITY(U,$J,114,231,"E",1,0)
+138 ;;=6
+139 ;;^UTILITY(U,$J,114,231,"E",2,0)
+140 ;;=18
+141 ;;^UTILITY(U,$J,114,231,"I",0)
+142 ;;=^114.01PA^6^6
