FHINI0ID ; ; 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,82,"X",1,0)
;;=PLACE IND BOX ON TRAY.
;;^UTILITY(U,$J,114,83,0)
;;=COFFEE CAKE^80^.125-EACH^^^^12^N^CAKE, COFFEE
;;^UTILITY(U,$J,114,83,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,83,"I",1,0)
;;=951^10^882
;;^UTILITY(U,$J,114,83,"X",0)
;;=^^4^4^2861114^^^
;;^UTILITY(U,$J,114,83,"X",1,0)
;;=1) REMOVE WRAPPER.
;;^UTILITY(U,$J,114,83,"X",2,0)
;;=2) CUT EACH CAKE INTO EIGHTHS.
;;^UTILITY(U,$J,114,83,"X",3,0)
;;=3) PLACE IN 2" INSERT AND PLACE IN HOT CART.
;;^UTILITY(U,$J,114,83,"X",4,0)
;;=4) WARM FOR 15 MIN IN HOT CART AND SERVE ON MAIN PLATE.
;;^UTILITY(U,$J,114,84,0)
;;=CHICKEN ALA KING^100^6-OZ^30 MIN^^9^4^N
;;^UTILITY(U,$J,114,84,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,84,"I",1,0)
;;=952^37.5
;;^UTILITY(U,$J,114,84,"X",0)
;;=^^3^3^2861104^^
;;^UTILITY(U,$J,114,84,"X",1,0)
;;=1) PREHEAT OVEN AND PUT ON SHEET PAN IN OVEN.
;;^UTILITY(U,$J,114,84,"X",2,0)
;;=450 DEGREES FROZEN FOR 1 3/4 HR
;;^UTILITY(U,$J,114,84,"X",3,0)
;;=PUNCTURE 20-25 HOLES IN COVER OF LID COOK AT 350 FOR 1 1/4 HRS
;;^UTILITY(U,$J,114,85,0)
;;=BISCUITS^100^3-OZ^30 MIN^^2^12^N^B-4^^M
;;^UTILITY(U,$J,114,85,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,85,"E",1,0)
;;=8
;;^UTILITY(U,$J,114,85,"I",0)
;;=^114.01PA^2^2
;;^UTILITY(U,$J,114,85,"I",1,0)
;;=24^18.75^804^18.75
;;^UTILITY(U,$J,114,85,"I",2,0)
;;=847^1^2021
;;^UTILITY(U,$J,114,85,"X",0)
;;=^^1^1^2890801^^^^
;;^UTILITY(U,$J,114,85,"X",1,0)
;;=PREPARE ACCORDING TO PACKAGE MIX.
;;^UTILITY(U,$J,114,86,0)
;;=SLICED CARROTS^100^2-OZ^10^^12^9^N^CARROTS, SLICED
;;^UTILITY(U,$J,114,86,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,86,"I",1,0)
;;=361^12.5^2038^12.5
;;^UTILITY(U,$J,114,86,"X",0)
;;=^^4^4^2861104^
;;^UTILITY(U,$J,114,86,"X",1,0)
;;=1) PLACE CARROT SLICES IN 2" FULL SIZE STEAM TABLE PAN.
;;^UTILITY(U,$J,114,86,"X",2,0)
;;=2) PLACE IN STEAMER AND COOK FOR 5 MIN OR UNTIL TENDER.
;;^UTILITY(U,$J,114,86,"X",3,0)
;;=3) REMOVE FROM STEAMER AND PLACE IN 1/3" OR 1/2" STEAM TABLE PAN.
;;^UTILITY(U,$J,114,86,"X",4,0)
;;=4) SERVE WITH SLOTTED SPOON.
;;^UTILITY(U,$J,114,87,0)
;;=ICE CREAM^100^1-EACH^^^^3^N^ICE CREAM, ASSORTED
;;^UTILITY(U,$J,114,87,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,87,"I",1,0)
;;=954^100^60
;;^UTILITY(U,$J,114,87,"X",0)
;;=^^1^1^2890801^^^^
;;^UTILITY(U,$J,114,87,"X",1,0)
;;=PLACE ONE CONTAINER ON EACH TRAY.
;;^UTILITY(U,$J,114,88,0)
;;=PINEAPPLE TIDBITS^100^4-OZ^^^6^3^N^D-63^^C^^.12
;;^UTILITY(U,$J,114,88,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,88,"I",1,0)
;;=203^25^1773^25
;;^UTILITY(U,$J,114,88,"X",0)
;;=^^2^2^2890727^^^
;;^UTILITY(U,$J,114,88,"X",1,0)
;;=OPEN CANS. PLACE INTO VEGETABLE DISH. SERVE
;;^UTILITY(U,$J,114,88,"X",2,0)
;;=CHILLED ACCORDING TO MENU.
;;^UTILITY(U,$J,114,89,0)
;;=POLYRICH^50^4-FLOZ^^^^11^N
;;^UTILITY(U,$J,114,89,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,89,"I",1,0)
;;=955^1.56^66^13.20696
;;^UTILITY(U,$J,114,89,"X",0)
;;=^^1^1^2890801^^^
;;^UTILITY(U,$J,114,89,"X",1,0)
;;=1) POUR SERVING FROM QUART CONTAINER.
;;^UTILITY(U,$J,114,90,0)
;;=GROUND ROAST BEEF^100^3-OZ^25 MIN^^^4^N^BEEF, ROAST, GROUND
;;^UTILITY(U,$J,114,90,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,90,"I",1,0)
;;=757^18.75^2149^17.625
;;^UTILITY(U,$J,114,90,"X",0)
;;=^^6^6^2861118^
;;^UTILITY(U,$J,114,90,"X",1,0)
;;=1) COOK ROAST BEEF.
;;^UTILITY(U,$J,114,90,"X",2,0)
;;=2) GRIND IN GRINDER INTO 1/3 PAN.
;;^UTILITY(U,$J,114,90,"X",3,0)
;;=3) ADD 1/2 QUART OF WATER.
;;^UTILITY(U,$J,114,90,"X",4,0)
;;=4) PUT INTO STEAMER FOR 15 MIN. OR UNTIL A TEMPERATURE OF 170 IS
;;^UTILITY(U,$J,114,90,"X",5,0)
;;= REACHED.
;;^UTILITY(U,$J,114,90,"X",6,0)
;;=5) SERVE WITH A #20 SCOOP.
;;^UTILITY(U,$J,114,92,0)
;;=DIET SALAD DRESSING^100^1-EACH^^^^13^N^SALAD DRESSING, DIET^^I
;;^UTILITY(U,$J,114,92,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,92,"I",1,0)
;;=947^100
;;^UTILITY(U,$J,114,92,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,92,"X",1,0)
;;=1) SERVE AS STATED ON MENU, PLACING 1 PACKAGE ON TRAY.
;;^UTILITY(U,$J,114,93,0)
;;=CRACKERS^100^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,93,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,93,"I",1,0)
;;=103^100^1080
;;^UTILITY(U,$J,114,93,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,93,"X",1,0)
;;=PLACE ON TRAY ACCORDING TO MENU.
;;^UTILITY(U,$J,114,94,0)
;;=DILL PICKLE^100^2-EACH^^^1^13^N^PICKLE, DILL^^I
;;^UTILITY(U,$J,114,94,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,94,"I",1,0)
;;=195^4^1438^4
;;^UTILITY(U,$J,114,94,"X",0)
;;=^^3^3^2861119^^
;;^UTILITY(U,$J,114,94,"X",1,0)
;;=1) DRAIN PICKLES AND PLACE INTO A 4 INCH DEEP 1/2 SIZE PAN AND
FHINI0ID ; ; 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,82,"X",1,0)
+2 ;;=PLACE IND BOX ON TRAY.
+3 ;;^UTILITY(U,$J,114,83,0)
+4 ;;=COFFEE CAKE^80^.125-EACH^^^^12^N^CAKE, COFFEE
+5 ;;^UTILITY(U,$J,114,83,"I",0)
+6 ;;=^114.01PA^1^1
+7 ;;^UTILITY(U,$J,114,83,"I",1,0)
+8 ;;=951^10^882
+9 ;;^UTILITY(U,$J,114,83,"X",0)
+10 ;;=^^4^4^2861114^^^
+11 ;;^UTILITY(U,$J,114,83,"X",1,0)
+12 ;;=1) REMOVE WRAPPER.
+13 ;;^UTILITY(U,$J,114,83,"X",2,0)
+14 ;;=2) CUT EACH CAKE INTO EIGHTHS.
+15 ;;^UTILITY(U,$J,114,83,"X",3,0)
+16 ;;=3) PLACE IN 2" INSERT AND PLACE IN HOT CART.
+17 ;;^UTILITY(U,$J,114,83,"X",4,0)
+18 ;;=4) WARM FOR 15 MIN IN HOT CART AND SERVE ON MAIN PLATE.
+19 ;;^UTILITY(U,$J,114,84,0)
+20 ;;=CHICKEN ALA KING^100^6-OZ^30 MIN^^9^4^N
+21 ;;^UTILITY(U,$J,114,84,"I",0)
+22 ;;=^114.01PA^1^1
+23 ;;^UTILITY(U,$J,114,84,"I",1,0)
+24 ;;=952^37.5
+25 ;;^UTILITY(U,$J,114,84,"X",0)
+26 ;;=^^3^3^2861104^^
+27 ;;^UTILITY(U,$J,114,84,"X",1,0)
+28 ;;=1) PREHEAT OVEN AND PUT ON SHEET PAN IN OVEN.
+29 ;;^UTILITY(U,$J,114,84,"X",2,0)
+30 ;;=450 DEGREES FROZEN FOR 1 3/4 HR
+31 ;;^UTILITY(U,$J,114,84,"X",3,0)
+32 ;;=PUNCTURE 20-25 HOLES IN COVER OF LID COOK AT 350 FOR 1 1/4 HRS
+33 ;;^UTILITY(U,$J,114,85,0)
+34 ;;=BISCUITS^100^3-OZ^30 MIN^^2^12^N^B-4^^M
+35 ;;^UTILITY(U,$J,114,85,"E",0)
+36 ;;=^114.05P^1^1
+37 ;;^UTILITY(U,$J,114,85,"E",1,0)
+38 ;;=8
+39 ;;^UTILITY(U,$J,114,85,"I",0)
+40 ;;=^114.01PA^2^2
+41 ;;^UTILITY(U,$J,114,85,"I",1,0)
+42 ;;=24^18.75^804^18.75
+43 ;;^UTILITY(U,$J,114,85,"I",2,0)
+44 ;;=847^1^2021
+45 ;;^UTILITY(U,$J,114,85,"X",0)
+46 ;;=^^1^1^2890801^^^^
+47 ;;^UTILITY(U,$J,114,85,"X",1,0)
+48 ;;=PREPARE ACCORDING TO PACKAGE MIX.
+49 ;;^UTILITY(U,$J,114,86,0)
+50 ;;=SLICED CARROTS^100^2-OZ^10^^12^9^N^CARROTS, SLICED
+51 ;;^UTILITY(U,$J,114,86,"I",0)
+52 ;;=^114.01PA^1^1
+53 ;;^UTILITY(U,$J,114,86,"I",1,0)
+54 ;;=361^12.5^2038^12.5
+55 ;;^UTILITY(U,$J,114,86,"X",0)
+56 ;;=^^4^4^2861104^
+57 ;;^UTILITY(U,$J,114,86,"X",1,0)
+58 ;;=1) PLACE CARROT SLICES IN 2" FULL SIZE STEAM TABLE PAN.
+59 ;;^UTILITY(U,$J,114,86,"X",2,0)
+60 ;;=2) PLACE IN STEAMER AND COOK FOR 5 MIN OR UNTIL TENDER.
+61 ;;^UTILITY(U,$J,114,86,"X",3,0)
+62 ;;=3) REMOVE FROM STEAMER AND PLACE IN 1/3" OR 1/2" STEAM TABLE PAN.
+63 ;;^UTILITY(U,$J,114,86,"X",4,0)
+64 ;;=4) SERVE WITH SLOTTED SPOON.
+65 ;;^UTILITY(U,$J,114,87,0)
+66 ;;=ICE CREAM^100^1-EACH^^^^3^N^ICE CREAM, ASSORTED
+67 ;;^UTILITY(U,$J,114,87,"I",0)
+68 ;;=^114.01PA^1^1
+69 ;;^UTILITY(U,$J,114,87,"I",1,0)
+70 ;;=954^100^60
+71 ;;^UTILITY(U,$J,114,87,"X",0)
+72 ;;=^^1^1^2890801^^^^
+73 ;;^UTILITY(U,$J,114,87,"X",1,0)
+74 ;;=PLACE ONE CONTAINER ON EACH TRAY.
+75 ;;^UTILITY(U,$J,114,88,0)
+76 ;;=PINEAPPLE TIDBITS^100^4-OZ^^^6^3^N^D-63^^C^^.12
+77 ;;^UTILITY(U,$J,114,88,"I",0)
+78 ;;=^114.01PA^1^1
+79 ;;^UTILITY(U,$J,114,88,"I",1,0)
+80 ;;=203^25^1773^25
+81 ;;^UTILITY(U,$J,114,88,"X",0)
+82 ;;=^^2^2^2890727^^^
+83 ;;^UTILITY(U,$J,114,88,"X",1,0)
+84 ;;=OPEN CANS. PLACE INTO VEGETABLE DISH. SERVE
+85 ;;^UTILITY(U,$J,114,88,"X",2,0)
+86 ;;=CHILLED ACCORDING TO MENU.
+87 ;;^UTILITY(U,$J,114,89,0)
+88 ;;=POLYRICH^50^4-FLOZ^^^^11^N
+89 ;;^UTILITY(U,$J,114,89,"I",0)
+90 ;;=^114.01PA^1^1
+91 ;;^UTILITY(U,$J,114,89,"I",1,0)
+92 ;;=955^1.56^66^13.20696
+93 ;;^UTILITY(U,$J,114,89,"X",0)
+94 ;;=^^1^1^2890801^^^
+95 ;;^UTILITY(U,$J,114,89,"X",1,0)
+96 ;;=1) POUR SERVING FROM QUART CONTAINER.
+97 ;;^UTILITY(U,$J,114,90,0)
+98 ;;=GROUND ROAST BEEF^100^3-OZ^25 MIN^^^4^N^BEEF, ROAST, GROUND
+99 ;;^UTILITY(U,$J,114,90,"I",0)
+100 ;;=^114.01PA^1^1
+101 ;;^UTILITY(U,$J,114,90,"I",1,0)
+102 ;;=757^18.75^2149^17.625
+103 ;;^UTILITY(U,$J,114,90,"X",0)
+104 ;;=^^6^6^2861118^
+105 ;;^UTILITY(U,$J,114,90,"X",1,0)
+106 ;;=1) COOK ROAST BEEF.
+107 ;;^UTILITY(U,$J,114,90,"X",2,0)
+108 ;;=2) GRIND IN GRINDER INTO 1/3 PAN.
+109 ;;^UTILITY(U,$J,114,90,"X",3,0)
+110 ;;=3) ADD 1/2 QUART OF WATER.
+111 ;;^UTILITY(U,$J,114,90,"X",4,0)
+112 ;;=4) PUT INTO STEAMER FOR 15 MIN. OR UNTIL A TEMPERATURE OF 170 IS
+113 ;;^UTILITY(U,$J,114,90,"X",5,0)
+114 ;;= REACHED.
+115 ;;^UTILITY(U,$J,114,90,"X",6,0)
+116 ;;=5) SERVE WITH A #20 SCOOP.
+117 ;;^UTILITY(U,$J,114,92,0)
+118 ;;=DIET SALAD DRESSING^100^1-EACH^^^^13^N^SALAD DRESSING, DIET^^I
+119 ;;^UTILITY(U,$J,114,92,"I",0)
+120 ;;=^114.01PA^1^1
+121 ;;^UTILITY(U,$J,114,92,"I",1,0)
+122 ;;=947^100
+123 ;;^UTILITY(U,$J,114,92,"X",0)
+124 ;;=^^1^1^2890801^^
+125 ;;^UTILITY(U,$J,114,92,"X",1,0)
+126 ;;=1) SERVE AS STATED ON MENU, PLACING 1 PACKAGE ON TRAY.
+127 ;;^UTILITY(U,$J,114,93,0)
+128 ;;=CRACKERS^100^1-EACH^^^^13^N^^^I
+129 ;;^UTILITY(U,$J,114,93,"I",0)
+130 ;;=^114.01PA^1^1
+131 ;;^UTILITY(U,$J,114,93,"I",1,0)
+132 ;;=103^100^1080
+133 ;;^UTILITY(U,$J,114,93,"X",0)
+134 ;;=^^1^1^2890801^^
+135 ;;^UTILITY(U,$J,114,93,"X",1,0)
+136 ;;=PLACE ON TRAY ACCORDING TO MENU.
+137 ;;^UTILITY(U,$J,114,94,0)
+138 ;;=DILL PICKLE^100^2-EACH^^^1^13^N^PICKLE, DILL^^I
+139 ;;^UTILITY(U,$J,114,94,"I",0)
+140 ;;=^114.01PA^1^1
+141 ;;^UTILITY(U,$J,114,94,"I",1,0)
+142 ;;=195^4^1438^4
+143 ;;^UTILITY(U,$J,114,94,"X",0)
+144 ;;=^^3^3^2861119^^
+145 ;;^UTILITY(U,$J,114,94,"X",1,0)
+146 ;;=1) DRAIN PICKLES AND PLACE INTO A 4 INCH DEEP 1/2 SIZE PAN AND
