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
FHINI0IA ; ; 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,43,"X",0)
+2 ;;=^^1^1^2890725^^^
+3 ;;^UTILITY(U,$J,114,43,"X",1,0)
+4 ;;=OPEN CANS. PORTION INTO SIDE DISH. COVER AND CHILL TO SERVE.
+5 ;;^UTILITY(U,$J,114,44,0)
+6 ;;=HARD ROLLS^100^1-EACH^^^^12^N^ROLLS, HARD
+7 ;;^UTILITY(U,$J,114,44,"I",0)
+8 ;;=^114.01PA^1^1
+9 ;;^UTILITY(U,$J,114,44,"I",1,0)
+10 ;;=845^100^1567
+11 ;;^UTILITY(U,$J,114,44,"X",0)
+12 ;;=^^1^1^2890801^^^
+13 ;;^UTILITY(U,$J,114,44,"X",1,0)
+14 ;;=PLACE ON BREAD AND BUTTER PLATE.
+15 ;;^UTILITY(U,$J,114,45,0)
+16 ;;=ORANGE SHERBERT^100^1-EACH^^^^3^N^^^I
+17 ;;^UTILITY(U,$J,114,45,"I",0)
+18 ;;=^114.01PA^1^1
+19 ;;^UTILITY(U,$J,114,45,"I",1,0)
+20 ;;=818^100^65
+21 ;;^UTILITY(U,$J,114,45,"X",0)
+22 ;;=^^1^1^2871124^
+23 ;;^UTILITY(U,$J,114,45,"X",1,0)
+24 ;;=SERVE ONE SHERBET ON TRAY ACCORDING TO MENU OR DIET CARD.
+25 ;;^UTILITY(U,$J,114,48,0)
+26 ;;=LS BROCOLLI^50^3-OZ^^^^9^N^BROCOLLI, LS
+27 ;;^UTILITY(U,$J,114,48,"I",0)
+28 ;;=^114.01PA^1^1
+29 ;;^UTILITY(U,$J,114,48,"I",1,0)
+30 ;;=345^9.375^836^9.375
+31 ;;^UTILITY(U,$J,114,48,"X",0)
+32 ;;=^^2^2^2860506^
+33 ;;^UTILITY(U,$J,114,48,"X",1,0)
+34 ;;=1) PLACE FROZEN BROCCOLI IN STEAMER PAN.
+35 ;;^UTILITY(U,$J,114,48,"X",2,0)
+36 ;;=2) STEAM FOR 10-15 MIN. AT 5 LB PRESSURE.
+37 ;;^UTILITY(U,$J,114,49,0)
+38 ;;=LETTUCE SALAD^100^1-OZ^^^^8^N^SALAD, LETTUCE
+39 ;;^UTILITY(U,$J,114,49,"I",0)
+40 ;;=^114.01PA^1^1
+41 ;;^UTILITY(U,$J,114,49,"I",1,0)
+42 ;;=811^6.25^1307^5.9375
+43 ;;^UTILITY(U,$J,114,49,"X",0)
+44 ;;=^^1^1^2871124^^^
+45 ;;^UTILITY(U,$J,114,49,"X",1,0)
+46 ;;=1) PORTION PRE-CUT LETTUCE INTO SIDE DISH. CHILL.
+47 ;;^UTILITY(U,$J,114,50,0)
+48 ;;=LS WAX BEANS, CND^50^2-OZ^15 MIN^^13^9^N^V-14^^C
+49 ;;^UTILITY(U,$J,114,50,"E",0)
+50 ;;=^114.05P^1^1
+51 ;;^UTILITY(U,$J,114,50,"E",1,0)
+52 ;;=14
+53 ;;^UTILITY(U,$J,114,50,"I",0)
+54 ;;=^114.01PA^1^1
+55 ;;^UTILITY(U,$J,114,50,"I",1,0)
+56 ;;=319^6.25^727^6.25
+57 ;;^UTILITY(U,$J,114,50,"X",0)
+58 ;;=^^1^1^2890727^^
+59 ;;^UTILITY(U,$J,114,50,"X",1,0)
+60 ;;=1) HEAT AND SERVE. SERVING TEMP 140 DEG.
+61 ;;^UTILITY(U,$J,114,51,0)
+62 ;;=CRANBERRY WEDGE^100^2-OZ^^^^8^N^^^^^.067
+63 ;;^UTILITY(U,$J,114,51,"I",0)
+64 ;;=^114.01PA^1^1
+65 ;;^UTILITY(U,$J,114,51,"I",1,0)
+66 ;;=531^12.5^1661^12.5
+67 ;;^UTILITY(U,$J,114,51,"X",0)
+68 ;;=^^2^2^2861203^^
+69 ;;^UTILITY(U,$J,114,51,"X",1,0)
+70 ;;=1) SLICE MOLDED CRANBERRY SAUCE INTO 1/2-INCH SLICES.
+71 ;;^UTILITY(U,$J,114,51,"X",2,0)
+72 ;;=2) CUT EACH SLICE INTO 8 WEDGES. GARNISH WITH PARSLEY.
+73 ;;^UTILITY(U,$J,114,52,0)
+74 ;;=PINEAPPLE JUICE, 4OZ IND^100^1-EACH^^^^1^N^A-45^^I
+75 ;;^UTILITY(U,$J,114,52,"I",0)
+76 ;;=^114.01PA^1^1
+77 ;;^UTILITY(U,$J,114,52,"I",1,0)
+78 ;;=324^100^1776
+79 ;;^UTILITY(U,$J,114,52,"X",0)
+80 ;;=^^1^1^2890724^^
+81 ;;^UTILITY(U,$J,114,52,"X",1,0)
+82 ;;=THAW AND SERVE.
+83 ;;^UTILITY(U,$J,114,53,0)
+84 ;;=FRIED EGGS^100^1-EACH^5 MIN^^^5^N^EGGS, FRIED^^I
+85 ;;^UTILITY(U,$J,114,53,"I",0)
+86 ;;=^114.01PA^1^1
+87 ;;^UTILITY(U,$J,114,53,"I",1,0)
+88 ;;=788^100^6498
+89 ;;^UTILITY(U,$J,114,53,"X",0)
+90 ;;=^^4^4^2871203^^^^
+91 ;;^UTILITY(U,$J,114,53,"X",1,0)
+92 ;;=1) PREHEAT GRIDDLE TO 300. COAT GRIDDLE WITH FOOD RELEASE.
+93 ;;^UTILITY(U,$J,114,53,"X",2,0)
+94 ;;=2) CRACK EGGS GENTLY ON GRIDDLE. COOK UNTIL WHITE OF EGG IS
+95 ;;^UTILITY(U,$J,114,53,"X",3,0)
+96 ;;= 3/4 COOKED. TURN EGGS OVER AND FINISH COOKING.
+97 ;;^UTILITY(U,$J,114,53,"X",4,0)
+98 ;;=3) EGG WHITE MUST BE COMPLETELY COOKED.
+99 ;;^UTILITY(U,$J,114,54,0)
+100 ;;=ZUCCHINI^100^2-OZ^8 MIN^^13^9^N
+101 ;;^UTILITY(U,$J,114,54,"I",0)
+102 ;;=^114.01PA^1^1
+103 ;;^UTILITY(U,$J,114,54,"I",1,0)
+104 ;;=960^12.5^2100^12.5
+105 ;;^UTILITY(U,$J,114,54,"X",0)
+106 ;;=^^3^3^2861118^
+107 ;;^UTILITY(U,$J,114,54,"X",1,0)
+108 ;;=1) PLACE ZUCCHINI IN FULL SIZE STEAM TABLE PAN.
+109 ;;^UTILITY(U,$J,114,54,"X",2,0)
+110 ;;=2) PLACE IN STEAMER AND COOK FOR 5 MINUTES.
+111 ;;^UTILITY(U,$J,114,54,"X",3,0)
+112 ;;=3) REMOVE FROM STEAMER AND PLACE IN 1/2 STEAM TABLE PAN.
+113 ;;^UTILITY(U,$J,114,55,0)
+114 ;;=POTATO CHIPS^100^1-OZ^2 MIN^^^7^N^P-23
+115 ;;^UTILITY(U,$J,114,55,"I",0)
+116 ;;=^114.01PA^1^1
+117 ;;^UTILITY(U,$J,114,55,"I",1,0)
+118 ;;=398^6.25^1529^6.25
+119 ;;^UTILITY(U,$J,114,55,"X",0)
+120 ;;=^^2^2^2890724^^^^
+121 ;;^UTILITY(U,$J,114,55,"X",1,0)
+122 ;;=1) OPEN BAG OF POTATO CHIPS AND PLACE INTO SERVING PAN.
+123 ;;^UTILITY(U,$J,114,55,"X",2,0)
+124 ;;=2) PLACE SERVING ON EACH PLATE AND SERVE.
+125 ;;^UTILITY(U,$J,114,56,0)
+126 ;;=APPLE PIE^80^.125-EACH^^^2^3^N^D-175^^R
+127 ;;^UTILITY(U,$J,114,56,"I",0)
+128 ;;=^114.01PA^1^1
+129 ;;^UTILITY(U,$J,114,56,"I",1,0)
+130 ;;=751^10^1470
+131 ;;^UTILITY(U,$J,114,56,"X",0)
+132 ;;=^^1^1^2890727^^^^
+133 ;;^UTILITY(U,$J,114,56,"X",1,0)
+134 ;;=CUT PIE IN EIGHTHS.
+135 ;;^UTILITY(U,$J,114,57,0)
+136 ;;=PEACH PIE^80^.125-EACH^^^^3^N^D-189
+137 ;;^UTILITY(U,$J,114,57,"I",0)
+138 ;;=^114.01PA^1^1
+139 ;;^UTILITY(U,$J,114,57,"I",1,0)
+140 ;;=821^10^1460
+141 ;;^UTILITY(U,$J,114,57,"X",0)
+142 ;;=^^1^1^2880316^^^^
+143 ;;^UTILITY(U,$J,114,57,"X",1,0)
+144 ;;=CUT PIE IN EIGHTHS.
+145 ;;^UTILITY(U,$J,114,58,0)
+146 ;;=CHERRY PIE^80^.125-EACH^^^^3^N^D-184
