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

FHINI0IA.m

Go to the documentation of this file.
FHINI0IA	; ; 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,43,"X",0)
	;;=^^1^1^2890725^^^
	;;^UTILITY(U,$J,114,43,"X",1,0)
	;;=OPEN CANS. PORTION INTO SIDE DISH. COVER AND CHILL TO SERVE. 
	;;^UTILITY(U,$J,114,44,0)
	;;=HARD ROLLS^100^1-EACH^^^^12^N^ROLLS, HARD
	;;^UTILITY(U,$J,114,44,"I",0)
	;;=^114.01PA^1^1
	;;^UTILITY(U,$J,114,44,"I",1,0)
	;;=845^100^1567
	;;^UTILITY(U,$J,114,44,"X",0)
	;;=^^1^1^2890801^^^
	;;^UTILITY(U,$J,114,44,"X",1,0)
	;;=PLACE ON BREAD AND BUTTER PLATE.
	;;^UTILITY(U,$J,114,45,0)
	;;=ORANGE SHERBERT^100^1-EACH^^^^3^N^^^I
	;;^UTILITY(U,$J,114,45,"I",0)
	;;=^114.01PA^1^1
	;;^UTILITY(U,$J,114,45,"I",1,0)
	;;=818^100^65
	;;^UTILITY(U,$J,114,45,"X",0)
	;;=^^1^1^2871124^
	;;^UTILITY(U,$J,114,45,"X",1,0)
	;;=SERVE ONE SHERBET ON TRAY ACCORDING TO MENU OR DIET CARD.
	;;^UTILITY(U,$J,114,48,0)
	;;=LS BROCOLLI^50^3-OZ^^^^9^N^BROCOLLI, LS
	;;^UTILITY(U,$J,114,48,"I",0)
	;;=^114.01PA^1^1
	;;^UTILITY(U,$J,114,48,"I",1,0)
	;;=345^9.375^836^9.375
	;;^UTILITY(U,$J,114,48,"X",0)
	;;=^^2^2^2860506^
	;;^UTILITY(U,$J,114,48,"X",1,0)
	;;=1) PLACE FROZEN BROCCOLI IN STEAMER PAN. 
	;;^UTILITY(U,$J,114,48,"X",2,0)
	;;=2) STEAM FOR 10-15 MIN. AT 5 LB PRESSURE.
	;;^UTILITY(U,$J,114,49,0)
	;;=LETTUCE SALAD^100^1-OZ^^^^8^N^SALAD, LETTUCE
	;;^UTILITY(U,$J,114,49,"I",0)
	;;=^114.01PA^1^1
	;;^UTILITY(U,$J,114,49,"I",1,0)
	;;=811^6.25^1307^5.9375
	;;^UTILITY(U,$J,114,49,"X",0)
	;;=^^1^1^2871124^^^
	;;^UTILITY(U,$J,114,49,"X",1,0)
	;;=1) PORTION PRE-CUT LETTUCE INTO SIDE DISH. CHILL.
	;;^UTILITY(U,$J,114,50,0)
	;;=LS WAX BEANS, CND^50^2-OZ^15 MIN^^13^9^N^V-14^^C
	;;^UTILITY(U,$J,114,50,"E",0)
	;;=^114.05P^1^1
	;;^UTILITY(U,$J,114,50,"E",1,0)
	;;=14
	;;^UTILITY(U,$J,114,50,"I",0)
	;;=^114.01PA^1^1
	;;^UTILITY(U,$J,114,50,"I",1,0)
	;;=319^6.25^727^6.25
	;;^UTILITY(U,$J,114,50,"X",0)
	;;=^^1^1^2890727^^
	;;^UTILITY(U,$J,114,50,"X",1,0)
	;;=1) HEAT AND SERVE. SERVING TEMP 140 DEG.
	;;^UTILITY(U,$J,114,51,0)
	;;=CRANBERRY WEDGE^100^2-OZ^^^^8^N^^^^^.067
	;;^UTILITY(U,$J,114,51,"I",0)
	;;=^114.01PA^1^1
	;;^UTILITY(U,$J,114,51,"I",1,0)
	;;=531^12.5^1661^12.5
	;;^UTILITY(U,$J,114,51,"X",0)
	;;=^^2^2^2861203^^
	;;^UTILITY(U,$J,114,51,"X",1,0)
	;;=1) SLICE MOLDED CRANBERRY SAUCE INTO 1/2-INCH SLICES.
	;;^UTILITY(U,$J,114,51,"X",2,0)
	;;=2) CUT EACH SLICE INTO 8 WEDGES. GARNISH WITH PARSLEY.
	;;^UTILITY(U,$J,114,52,0)
	;;=PINEAPPLE JUICE, 4OZ IND^100^1-EACH^^^^1^N^A-45^^I
	;;^UTILITY(U,$J,114,52,"I",0)
	;;=^114.01PA^1^1
	;;^UTILITY(U,$J,114,52,"I",1,0)
	;;=324^100^1776
	;;^UTILITY(U,$J,114,52,"X",0)
	;;=^^1^1^2890724^^
	;;^UTILITY(U,$J,114,52,"X",1,0)
	;;=THAW AND SERVE.
	;;^UTILITY(U,$J,114,53,0)
	;;=FRIED EGGS^100^1-EACH^5 MIN^^^5^N^EGGS, FRIED^^I
	;;^UTILITY(U,$J,114,53,"I",0)
	;;=^114.01PA^1^1
	;;^UTILITY(U,$J,114,53,"I",1,0)
	;;=788^100^6498
	;;^UTILITY(U,$J,114,53,"X",0)
	;;=^^4^4^2871203^^^^
	;;^UTILITY(U,$J,114,53,"X",1,0)
	;;=1) PREHEAT GRIDDLE TO 300. COAT GRIDDLE WITH FOOD RELEASE.
	;;^UTILITY(U,$J,114,53,"X",2,0)
	;;=2) CRACK EGGS GENTLY ON GRIDDLE. COOK UNTIL WHITE OF EGG IS
	;;^UTILITY(U,$J,114,53,"X",3,0)
	;;=   3/4 COOKED. TURN EGGS OVER AND FINISH COOKING.
	;;^UTILITY(U,$J,114,53,"X",4,0)
	;;=3) EGG WHITE MUST BE COMPLETELY COOKED.
	;;^UTILITY(U,$J,114,54,0)
	;;=ZUCCHINI^100^2-OZ^8 MIN^^13^9^N
	;;^UTILITY(U,$J,114,54,"I",0)
	;;=^114.01PA^1^1
	;;^UTILITY(U,$J,114,54,"I",1,0)
	;;=960^12.5^2100^12.5
	;;^UTILITY(U,$J,114,54,"X",0)
	;;=^^3^3^2861118^
	;;^UTILITY(U,$J,114,54,"X",1,0)
	;;=1) PLACE ZUCCHINI IN FULL SIZE STEAM TABLE PAN.
	;;^UTILITY(U,$J,114,54,"X",2,0)
	;;=2) PLACE IN STEAMER AND COOK FOR 5 MINUTES.
	;;^UTILITY(U,$J,114,54,"X",3,0)
	;;=3) REMOVE FROM STEAMER AND PLACE IN 1/2 STEAM TABLE PAN.
	;;^UTILITY(U,$J,114,55,0)
	;;=POTATO CHIPS^100^1-OZ^2 MIN^^^7^N^P-23
	;;^UTILITY(U,$J,114,55,"I",0)
	;;=^114.01PA^1^1
	;;^UTILITY(U,$J,114,55,"I",1,0)
	;;=398^6.25^1529^6.25
	;;^UTILITY(U,$J,114,55,"X",0)
	;;=^^2^2^2890724^^^^
	;;^UTILITY(U,$J,114,55,"X",1,0)
	;;=1) OPEN BAG OF POTATO CHIPS AND PLACE INTO SERVING PAN.
	;;^UTILITY(U,$J,114,55,"X",2,0)
	;;=2) PLACE SERVING ON EACH PLATE AND SERVE.
	;;^UTILITY(U,$J,114,56,0)
	;;=APPLE PIE^80^.125-EACH^^^2^3^N^D-175^^R
	;;^UTILITY(U,$J,114,56,"I",0)
	;;=^114.01PA^1^1
	;;^UTILITY(U,$J,114,56,"I",1,0)
	;;=751^10^1470
	;;^UTILITY(U,$J,114,56,"X",0)
	;;=^^1^1^2890727^^^^
	;;^UTILITY(U,$J,114,56,"X",1,0)
	;;=CUT PIE IN EIGHTHS.
	;;^UTILITY(U,$J,114,57,0)
	;;=PEACH PIE^80^.125-EACH^^^^3^N^D-189
	;;^UTILITY(U,$J,114,57,"I",0)
	;;=^114.01PA^1^1
	;;^UTILITY(U,$J,114,57,"I",1,0)
	;;=821^10^1460
	;;^UTILITY(U,$J,114,57,"X",0)
	;;=^^1^1^2880316^^^^
	;;^UTILITY(U,$J,114,57,"X",1,0)
	;;=CUT PIE IN EIGHTHS.
	;;^UTILITY(U,$J,114,58,0)
	;;=CHERRY PIE^80^.125-EACH^^^^3^N^D-184