FHINI0JA ; ; 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,259,"X",8,0)
;;=5) PLACE INTO GREASED PAN. BAKE UNTIL THOROUGHLY HEATED.
;;^UTILITY(U,$J,114,260,0)
;;=SCRAMBLED EGG MIX^100^2.5-OZ^10 MIN^^4^5^Y^E-23^^S^^.006
;;^UTILITY(U,$J,114,260,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,260,"E",1,0)
;;=32
;;^UTILITY(U,$J,114,260,"E",2,0)
;;=2
;;^UTILITY(U,$J,114,260,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,260,"I",1,0)
;;=734^14.75^115^12.5375
;;^UTILITY(U,$J,114,260,"I",2,0)
;;=157^.51563^138^.51563
;;^UTILITY(U,$J,114,260,"I",3,0)
;;=847^.51563^2021
;;^UTILITY(U,$J,114,260,"I",4,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,260,"I",5,0)
;;=192^.00781^288^.00781
;;^UTILITY(U,$J,114,260,"X",0)
;;=^^3^3^2890725^
;;^UTILITY(U,$J,114,260,"X",1,0)
;;=1) COMBINE INGREDIENTS; BEAT LIGHTLY. DO NOT OVERMIX.
;;^UTILITY(U,$J,114,260,"X",2,0)
;;=2) PORTION AND COOK TO ORDER ON GRILL.
;;^UTILITY(U,$J,114,260,"X",3,0)
;;=3) SERVING SIZE #12 SCOOP.
;;^UTILITY(U,$J,114,261,0)
;;=SAVORY BREAD DRESSING^50^3-OZ^40 MIN^^4^7^Y^P-82^^S^^.004
;;^UTILITY(U,$J,114,261,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,261,"E",1,0)
;;=23
;;^UTILITY(U,$J,114,261,"I",0)
;;=^114.01PA^9^9
;;^UTILITY(U,$J,114,261,"I",1,0)
;;=725^.125^1384^.125
;;^UTILITY(U,$J,114,261,"I",2,0)
;;=297^1^372^1
;;^UTILITY(U,$J,114,261,"I",3,0)
;;=776^1^951^1
;;^UTILITY(U,$J,114,261,"I",4,0)
;;=230^.03125^1598^.03125
;;^UTILITY(U,$J,114,261,"I",5,0)
;;=223^.03125^296^.03125
;;^UTILITY(U,$J,114,261,"I",6,0)
;;=192^.02083^288^.02083
;;^UTILITY(U,$J,114,261,"I",7,0)
;;=867^5^827^5
;;^UTILITY(U,$J,114,261,"I",8,0)
;;=235^.125
;;^UTILITY(U,$J,114,261,"I",9,0)
;;=847^.5^2021
;;^UTILITY(U,$J,114,261,"X",0)
;;=^^8^8^2890725^
;;^UTILITY(U,$J,114,261,"X",1,0)
;;=1) RECONSTITUTE ONIONS.
;;^UTILITY(U,$J,114,261,"X",2,0)
;;=2) SAUTE ONIONS WITH CELERY IN MARGARINE.
;;^UTILITY(U,$J,114,261,"X",3,0)
;;=3) ADD SEASONINGS TO MIXTURE; CONTINUE COOKING UNTIL
;;^UTILITY(U,$J,114,261,"X",4,0)
;;= VEGETABLES ARE TENDER.
;;^UTILITY(U,$J,114,261,"X",5,0)
;;=4) ADD BREADCRUMBS TO COOKED VEGETABLE MIXTURE; MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,261,"X",6,0)
;;=5) COMBINE WATER AND BEEF BASE TO FORM STOCK; SPRINKLE OVER
;;^UTILITY(U,$J,114,261,"X",7,0)
;;= BREAD MIXTURE AND TOSS LIGHTLY UNTIL LIQUID IS ABSORBED.
;;^UTILITY(U,$J,114,261,"X",8,0)
;;=6) PLACE MIXTURE INTO WELL-GREASED PANS. BAKE.
;;^UTILITY(U,$J,114,262,0)
;;=FRANKFURTERS WITH BUN^100^1-EACH^15 MIN^^1^4^Y^E-200^^P
;;^UTILITY(U,$J,114,262,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,262,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,262,"I",0)
;;=^114.01PA^2^2
;;^UTILITY(U,$J,114,262,"I",1,0)
;;=792^20^1610^20
;;^UTILITY(U,$J,114,262,"I",2,0)
;;=804^100^1568
;;^UTILITY(U,$J,114,262,"X",0)
;;=^^3^3^2890725^
;;^UTILITY(U,$J,114,262,"X",1,0)
;;=1) PLACE FRANKFURTERS INTO BOILING WATER; COVER AND LET SIMMER UNTIL
;;^UTILITY(U,$J,114,262,"X",2,0)
;;= HEATED THROUGH. DO NOT BOIL!
;;^UTILITY(U,$J,114,262,"X",3,0)
;;=2) SERVE 2 FRANKFURTERS AND ONE BUN PER PORTION.
;;^UTILITY(U,$J,114,263,0)
;;=HAM-ONION-POTATO OMELET^112^7-OZ^3 HRS^^2^4^Y^E-161^^S^^.007
;;^UTILITY(U,$J,114,263,"E",0)
;;=^114.05P^3^3
;;^UTILITY(U,$J,114,263,"E",1,0)
;;=13
;;^UTILITY(U,$J,114,263,"E",2,0)
;;=23
;;^UTILITY(U,$J,114,263,"E",3,0)
;;=33
;;^UTILITY(U,$J,114,263,"I",0)
;;=^114.01PA^8^8
;;^UTILITY(U,$J,114,263,"I",1,0)
;;=870^32^1506^32
;;^UTILITY(U,$J,114,263,"I",2,0)
;;=847^1^2021
;;^UTILITY(U,$J,114,263,"I",3,0)
;;=788^100^6498
;;^UTILITY(U,$J,114,263,"I",4,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,263,"I",5,0)
;;=192^.0625^288^.0625
;;^UTILITY(U,$J,114,263,"I",6,0)
;;=883^8^221^8
;;^UTILITY(U,$J,114,263,"I",7,0)
;;=777^1^1378^.9
;;^UTILITY(U,$J,114,263,"I",8,0)
;;=377^.125^2873^.96125
;;^UTILITY(U,$J,114,263,"X",0)
;;=^^6^6^2890725^
;;^UTILITY(U,$J,114,263,"X",1,0)
;;=1) PLACE POTATOES AND WATER IN PAN AND STEAM FOR 30 MINUTES.
;;^UTILITY(U,$J,114,263,"X",2,0)
;;=2) BEAT TOGETHER EGGS, SALT AND PEPPER.
;;^UTILITY(U,$J,114,263,"X",3,0)
;;=3) GRIND HAM.
;;^UTILITY(U,$J,114,263,"X",4,0)
;;=4) POUR OIL IN PAN.
;;^UTILITY(U,$J,114,263,"X",5,0)
;;=5) ARRANGE IN LAYERS - POTATOES, HAM, EGG MIXTURE,ONIONS.
;;^UTILITY(U,$J,114,263,"X",6,0)
;;=6) BAKE FOR 1 HOUR IN ROTARY OVEN AT 350 F DEGREES.
;;^UTILITY(U,$J,114,264,0)
;;=PORCUPINE MEAT BALLS^100^2-EACH^4HR 40MIN^^12^4^Y^E-72^^S^^.083
;;^UTILITY(U,$J,114,264,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,264,"E",1,0)
;;=22
;;^UTILITY(U,$J,114,264,"E",2,0)
;;=5
;;^UTILITY(U,$J,114,264,"I",0)
;;=^114.01PA^27^22
FHINI0JA ; ; 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,259,"X",8,0)
+2 ;;=5) PLACE INTO GREASED PAN. BAKE UNTIL THOROUGHLY HEATED.
+3 ;;^UTILITY(U,$J,114,260,0)
+4 ;;=SCRAMBLED EGG MIX^100^2.5-OZ^10 MIN^^4^5^Y^E-23^^S^^.006
+5 ;;^UTILITY(U,$J,114,260,"E",0)
+6 ;;=^114.05P^2^2
+7 ;;^UTILITY(U,$J,114,260,"E",1,0)
+8 ;;=32
+9 ;;^UTILITY(U,$J,114,260,"E",2,0)
+10 ;;=2
+11 ;;^UTILITY(U,$J,114,260,"I",0)
+12 ;;=^114.01PA^5^5
+13 ;;^UTILITY(U,$J,114,260,"I",1,0)
+14 ;;=734^14.75^115^12.5375
+15 ;;^UTILITY(U,$J,114,260,"I",2,0)
+16 ;;=157^.51563^138^.51563
+17 ;;^UTILITY(U,$J,114,260,"I",3,0)
+18 ;;=847^.51563^2021
+19 ;;^UTILITY(U,$J,114,260,"I",4,0)
+20 ;;=230^.125^1598^.125
+21 ;;^UTILITY(U,$J,114,260,"I",5,0)
+22 ;;=192^.00781^288^.00781
+23 ;;^UTILITY(U,$J,114,260,"X",0)
+24 ;;=^^3^3^2890725^
+25 ;;^UTILITY(U,$J,114,260,"X",1,0)
+26 ;;=1) COMBINE INGREDIENTS; BEAT LIGHTLY. DO NOT OVERMIX.
+27 ;;^UTILITY(U,$J,114,260,"X",2,0)
+28 ;;=2) PORTION AND COOK TO ORDER ON GRILL.
+29 ;;^UTILITY(U,$J,114,260,"X",3,0)
+30 ;;=3) SERVING SIZE #12 SCOOP.
+31 ;;^UTILITY(U,$J,114,261,0)
+32 ;;=SAVORY BREAD DRESSING^50^3-OZ^40 MIN^^4^7^Y^P-82^^S^^.004
+33 ;;^UTILITY(U,$J,114,261,"E",0)
+34 ;;=^114.05P^1^1
+35 ;;^UTILITY(U,$J,114,261,"E",1,0)
+36 ;;=23
+37 ;;^UTILITY(U,$J,114,261,"I",0)
+38 ;;=^114.01PA^9^9
+39 ;;^UTILITY(U,$J,114,261,"I",1,0)
+40 ;;=725^.125^1384^.125
+41 ;;^UTILITY(U,$J,114,261,"I",2,0)
+42 ;;=297^1^372^1
+43 ;;^UTILITY(U,$J,114,261,"I",3,0)
+44 ;;=776^1^951^1
+45 ;;^UTILITY(U,$J,114,261,"I",4,0)
+46 ;;=230^.03125^1598^.03125
+47 ;;^UTILITY(U,$J,114,261,"I",5,0)
+48 ;;=223^.03125^296^.03125
+49 ;;^UTILITY(U,$J,114,261,"I",6,0)
+50 ;;=192^.02083^288^.02083
+51 ;;^UTILITY(U,$J,114,261,"I",7,0)
+52 ;;=867^5^827^5
+53 ;;^UTILITY(U,$J,114,261,"I",8,0)
+54 ;;=235^.125
+55 ;;^UTILITY(U,$J,114,261,"I",9,0)
+56 ;;=847^.5^2021
+57 ;;^UTILITY(U,$J,114,261,"X",0)
+58 ;;=^^8^8^2890725^
+59 ;;^UTILITY(U,$J,114,261,"X",1,0)
+60 ;;=1) RECONSTITUTE ONIONS.
+61 ;;^UTILITY(U,$J,114,261,"X",2,0)
+62 ;;=2) SAUTE ONIONS WITH CELERY IN MARGARINE.
+63 ;;^UTILITY(U,$J,114,261,"X",3,0)
+64 ;;=3) ADD SEASONINGS TO MIXTURE; CONTINUE COOKING UNTIL
+65 ;;^UTILITY(U,$J,114,261,"X",4,0)
+66 ;;= VEGETABLES ARE TENDER.
+67 ;;^UTILITY(U,$J,114,261,"X",5,0)
+68 ;;=4) ADD BREADCRUMBS TO COOKED VEGETABLE MIXTURE; MIX TO DISTRIBUTE.
+69 ;;^UTILITY(U,$J,114,261,"X",6,0)
+70 ;;=5) COMBINE WATER AND BEEF BASE TO FORM STOCK; SPRINKLE OVER
+71 ;;^UTILITY(U,$J,114,261,"X",7,0)
+72 ;;= BREAD MIXTURE AND TOSS LIGHTLY UNTIL LIQUID IS ABSORBED.
+73 ;;^UTILITY(U,$J,114,261,"X",8,0)
+74 ;;=6) PLACE MIXTURE INTO WELL-GREASED PANS. BAKE.
+75 ;;^UTILITY(U,$J,114,262,0)
+76 ;;=FRANKFURTERS WITH BUN^100^1-EACH^15 MIN^^1^4^Y^E-200^^P
+77 ;;^UTILITY(U,$J,114,262,"E",0)
+78 ;;=^114.05P^1^1
+79 ;;^UTILITY(U,$J,114,262,"E",1,0)
+80 ;;=5
+81 ;;^UTILITY(U,$J,114,262,"I",0)
+82 ;;=^114.01PA^2^2
+83 ;;^UTILITY(U,$J,114,262,"I",1,0)
+84 ;;=792^20^1610^20
+85 ;;^UTILITY(U,$J,114,262,"I",2,0)
+86 ;;=804^100^1568
+87 ;;^UTILITY(U,$J,114,262,"X",0)
+88 ;;=^^3^3^2890725^
+89 ;;^UTILITY(U,$J,114,262,"X",1,0)
+90 ;;=1) PLACE FRANKFURTERS INTO BOILING WATER; COVER AND LET SIMMER UNTIL
+91 ;;^UTILITY(U,$J,114,262,"X",2,0)
+92 ;;= HEATED THROUGH. DO NOT BOIL!
+93 ;;^UTILITY(U,$J,114,262,"X",3,0)
+94 ;;=2) SERVE 2 FRANKFURTERS AND ONE BUN PER PORTION.
+95 ;;^UTILITY(U,$J,114,263,0)
+96 ;;=HAM-ONION-POTATO OMELET^112^7-OZ^3 HRS^^2^4^Y^E-161^^S^^.007
+97 ;;^UTILITY(U,$J,114,263,"E",0)
+98 ;;=^114.05P^3^3
+99 ;;^UTILITY(U,$J,114,263,"E",1,0)
+100 ;;=13
+101 ;;^UTILITY(U,$J,114,263,"E",2,0)
+102 ;;=23
+103 ;;^UTILITY(U,$J,114,263,"E",3,0)
+104 ;;=33
+105 ;;^UTILITY(U,$J,114,263,"I",0)
+106 ;;=^114.01PA^8^8
+107 ;;^UTILITY(U,$J,114,263,"I",1,0)
+108 ;;=870^32^1506^32
+109 ;;^UTILITY(U,$J,114,263,"I",2,0)
+110 ;;=847^1^2021
+111 ;;^UTILITY(U,$J,114,263,"I",3,0)
+112 ;;=788^100^6498
+113 ;;^UTILITY(U,$J,114,263,"I",4,0)
+114 ;;=230^.1875^1598^.1875
+115 ;;^UTILITY(U,$J,114,263,"I",5,0)
+116 ;;=192^.0625^288^.0625
+117 ;;^UTILITY(U,$J,114,263,"I",6,0)
+118 ;;=883^8^221^8
+119 ;;^UTILITY(U,$J,114,263,"I",7,0)
+120 ;;=777^1^1378^.9
+121 ;;^UTILITY(U,$J,114,263,"I",8,0)
+122 ;;=377^.125^2873^.96125
+123 ;;^UTILITY(U,$J,114,263,"X",0)
+124 ;;=^^6^6^2890725^
+125 ;;^UTILITY(U,$J,114,263,"X",1,0)
+126 ;;=1) PLACE POTATOES AND WATER IN PAN AND STEAM FOR 30 MINUTES.
+127 ;;^UTILITY(U,$J,114,263,"X",2,0)
+128 ;;=2) BEAT TOGETHER EGGS, SALT AND PEPPER.
+129 ;;^UTILITY(U,$J,114,263,"X",3,0)
+130 ;;=3) GRIND HAM.
+131 ;;^UTILITY(U,$J,114,263,"X",4,0)
+132 ;;=4) POUR OIL IN PAN.
+133 ;;^UTILITY(U,$J,114,263,"X",5,0)
+134 ;;=5) ARRANGE IN LAYERS - POTATOES, HAM, EGG MIXTURE,ONIONS.
+135 ;;^UTILITY(U,$J,114,263,"X",6,0)
+136 ;;=6) BAKE FOR 1 HOUR IN ROTARY OVEN AT 350 F DEGREES.
+137 ;;^UTILITY(U,$J,114,264,0)
+138 ;;=PORCUPINE MEAT BALLS^100^2-EACH^4HR 40MIN^^12^4^Y^E-72^^S^^.083
+139 ;;^UTILITY(U,$J,114,264,"E",0)
+140 ;;=^114.05P^2^2
+141 ;;^UTILITY(U,$J,114,264,"E",1,0)
+142 ;;=22
+143 ;;^UTILITY(U,$J,114,264,"E",2,0)
+144 ;;=5
+145 ;;^UTILITY(U,$J,114,264,"I",0)
+146 ;;=^114.01PA^27^22