Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FHINI0JA

FHINI0JA.m

Go to the documentation of this file.
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