FHINI0IE ; ; 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,94,"X",2,0)
;;= CHILL.
;;^UTILITY(U,$J,114,94,"X",3,0)
;;=2) SERVE 2 SLICES PER PORTION AS GARNISH ON MAIN PLATE.
;;^UTILITY(U,$J,114,95,0)
;;=MUSTARD^100^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,95,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,95,"I",1,0)
;;=164^100^1359
;;^UTILITY(U,$J,114,95,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,95,"X",1,0)
;;=SERVE AS STATED ON MENU, PLACING 1 PACKAGE PER SERVING ON TRAY.
;;^UTILITY(U,$J,114,96,0)
;;=MAYONNAISE^100^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,96,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,96,"I",1,0)
;;=568^100^360
;;^UTILITY(U,$J,114,96,"X",0)
;;=^^1^1^2890801^^^
;;^UTILITY(U,$J,114,96,"X",1,0)
;;=SERVE AS STATED ON MENU, PLACING 1 PACKAGE ON TRAY.
;;^UTILITY(U,$J,114,97,0)
;;=DIABETIC FIGS^50^4-OZ^^^12^3^N^C-41^^C
;;^UTILITY(U,$J,114,97,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,97,"I",1,0)
;;=461^12.5^1669^12.5
;;^UTILITY(U,$J,114,97,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,97,"X",1,0)
;;=PORTION INTO SERVING DISHES. COVER AND CHILL TO SERVE.
;;^UTILITY(U,$J,114,98,0)
;;=LS GREEN BEANS, CND^50^2-OZ^5 MIN^^13^9^N^V-7^^C^^.046
;;^UTILITY(U,$J,114,98,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,98,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,98,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,98,"I",1,0)
;;=589^6.25^717^6.25
;;^UTILITY(U,$J,114,98,"X",0)
;;=^^4^4^2890727^^^
;;^UTILITY(U,$J,114,98,"X",1,0)
;;=1) OPEN CAN AND PLACE CONTENTS IN STEAM TABLE PAN.
;;^UTILITY(U,$J,114,98,"X",2,0)
;;=2) PLACE IN STEAMER AND COOK FOR 5 MIN. OR UNTIL A TEMPERATURE
;;^UTILITY(U,$J,114,98,"X",3,0)
;;= OF 170 IS REACHED.
;;^UTILITY(U,$J,114,98,"X",4,0)
;;=3) REMOVE FROM STEAMER.
;;^UTILITY(U,$J,114,99,0)
;;=NEW POTATOES^100^3-OZ^25 MIN^^^7^N^POTATOES, NEW
;;^UTILITY(U,$J,114,99,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,99,"I",1,0)
;;=1013^18.75^1505^17.0625
;;^UTILITY(U,$J,114,99,"X",0)
;;=^^6^6^2890814^^
;;^UTILITY(U,$J,114,99,"X",1,0)
;;=1) PLACE STRAINER IN STEAM KETTLE.
;;^UTILITY(U,$J,114,99,"X",2,0)
;;=2) REMOVE POTATOES FROM PLASTIC BAG AND PLACE IN STEAM KETTLE.
;;^UTILITY(U,$J,114,99,"X",3,0)
;;=3) RINSE WITH FRESH WATER.
;;^UTILITY(U,$J,114,99,"X",4,0)
;;=4) COVER WITH WATER.
;;^UTILITY(U,$J,114,99,"X",5,0)
;;=5) TURN ON STEAM AND COOK FOR 20 MINUTES OR UNTIL DONE.
;;^UTILITY(U,$J,114,99,"X",6,0)
;;=6) REMOVE FROM STEAM KETTLE AND PLACE IN DEEP 1/2 INSERT.
;;^UTILITY(U,$J,114,100,0)
;;=SLICED BEETS, CND^100^2-OZ^15 MIN^^12^9^N^V-15^^C^^.036
;;^UTILITY(U,$J,114,100,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,100,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,100,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,100,"I",1,0)
;;=422^12.5^780^12.5
;;^UTILITY(U,$J,114,100,"X",0)
;;=^^3^3^2890727^^
;;^UTILITY(U,$J,114,100,"X",1,0)
;;=1) OPEN CAN AND PLACE CONTENTS IN STEAM TABLE PAN.
;;^UTILITY(U,$J,114,100,"X",2,0)
;;=2) PLACE IN STEAMER AND COOK FOR 10 MIN. OR UNTIL A TEMPERATURE OF
;;^UTILITY(U,$J,114,100,"X",3,0)
;;= 170 IS REACHED.
;;^UTILITY(U,$J,114,101,0)
;;=CLOVERLEAF ROLL^100^1-EACH^30 MIN^^^12^N^ROLL, CLOVERLEAF
;;^UTILITY(U,$J,114,101,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,101,"I",1,0)
;;=959^100^1571
;;^UTILITY(U,$J,114,101,"X",0)
;;=^^4^4^2861118^
;;^UTILITY(U,$J,114,101,"X",1,0)
;;=1) REMOVE FROM BOX AND PLACE ON UNGREASED SHEET PAN.
;;^UTILITY(U,$J,114,101,"X",2,0)
;;=2) PREHEAT CONVENTION OVEN TO 400.
;;^UTILITY(U,$J,114,101,"X",3,0)
;;=3) BAKE FOR 25 MIN. OR UNTIL GOLDEN BROWN.
;;^UTILITY(U,$J,114,101,"X",4,0)
;;=4) REMOVE FROM SHEET PAN AND PLACE INTO STEAM TABLE PAN.
;;^UTILITY(U,$J,114,102,0)
;;=SUGAR COOKIE^100^1-EACH^5 MIN^^^3^N^COOKIES, SUGAR
;;^UTILITY(U,$J,114,102,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,102,"I",1,0)
;;=838^3.12^1022^3.12
;;^UTILITY(U,$J,114,102,"X",0)
;;=^^2^2^2861118^
;;^UTILITY(U,$J,114,102,"X",1,0)
;;=1) REMOVE FROM PACKAGE.
;;^UTILITY(U,$J,114,102,"X",2,0)
;;=2) PLACE 1 COOKIE EACH ON BREAD PLATE.
;;^UTILITY(U,$J,114,103,0)
;;=PUREED PEACHES^10^4-OZ^^^^3^N^PEACHES, PUREED^^^^.121
;;^UTILITY(U,$J,114,103,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,103,"I",1,0)
;;=178^2.5^1750^2.5
;;^UTILITY(U,$J,114,104,0)
;;=PUREED APRICOTS^10^4-OZ^^^^3^N^APRICOTS, PUREED
;;^UTILITY(U,$J,114,104,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,104,"I",1,0)
;;=8^2.5^1628^2.5
;;^UTILITY(U,$J,114,105,0)
;;=EGG SUBSTITUTE^100^2-FLOZ^^^^5^N
;;^UTILITY(U,$J,114,105,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,105,"I",1,0)
;;=957^1.56^130^13.20696
;;^UTILITY(U,$J,114,105,"X",0)
;;=^^2^2^2861118^
FHINI0IE ; ; 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,94,"X",2,0)
+2 ;;= CHILL.
+3 ;;^UTILITY(U,$J,114,94,"X",3,0)
+4 ;;=2) SERVE 2 SLICES PER PORTION AS GARNISH ON MAIN PLATE.
+5 ;;^UTILITY(U,$J,114,95,0)
+6 ;;=MUSTARD^100^1-EACH^^^^13^N^^^I
+7 ;;^UTILITY(U,$J,114,95,"I",0)
+8 ;;=^114.01PA^1^1
+9 ;;^UTILITY(U,$J,114,95,"I",1,0)
+10 ;;=164^100^1359
+11 ;;^UTILITY(U,$J,114,95,"X",0)
+12 ;;=^^1^1^2890801^^
+13 ;;^UTILITY(U,$J,114,95,"X",1,0)
+14 ;;=SERVE AS STATED ON MENU, PLACING 1 PACKAGE PER SERVING ON TRAY.
+15 ;;^UTILITY(U,$J,114,96,0)
+16 ;;=MAYONNAISE^100^1-EACH^^^^13^N^^^I
+17 ;;^UTILITY(U,$J,114,96,"I",0)
+18 ;;=^114.01PA^1^1
+19 ;;^UTILITY(U,$J,114,96,"I",1,0)
+20 ;;=568^100^360
+21 ;;^UTILITY(U,$J,114,96,"X",0)
+22 ;;=^^1^1^2890801^^^
+23 ;;^UTILITY(U,$J,114,96,"X",1,0)
+24 ;;=SERVE AS STATED ON MENU, PLACING 1 PACKAGE ON TRAY.
+25 ;;^UTILITY(U,$J,114,97,0)
+26 ;;=DIABETIC FIGS^50^4-OZ^^^12^3^N^C-41^^C
+27 ;;^UTILITY(U,$J,114,97,"I",0)
+28 ;;=^114.01PA^1^1
+29 ;;^UTILITY(U,$J,114,97,"I",1,0)
+30 ;;=461^12.5^1669^12.5
+31 ;;^UTILITY(U,$J,114,97,"X",0)
+32 ;;=^^1^1^2890801^^
+33 ;;^UTILITY(U,$J,114,97,"X",1,0)
+34 ;;=PORTION INTO SERVING DISHES. COVER AND CHILL TO SERVE.
+35 ;;^UTILITY(U,$J,114,98,0)
+36 ;;=LS GREEN BEANS, CND^50^2-OZ^5 MIN^^13^9^N^V-7^^C^^.046
+37 ;;^UTILITY(U,$J,114,98,"E",0)
+38 ;;=^114.05P^1^1
+39 ;;^UTILITY(U,$J,114,98,"E",1,0)
+40 ;;=14
+41 ;;^UTILITY(U,$J,114,98,"I",0)
+42 ;;=^114.01PA^1^1
+43 ;;^UTILITY(U,$J,114,98,"I",1,0)
+44 ;;=589^6.25^717^6.25
+45 ;;^UTILITY(U,$J,114,98,"X",0)
+46 ;;=^^4^4^2890727^^^
+47 ;;^UTILITY(U,$J,114,98,"X",1,0)
+48 ;;=1) OPEN CAN AND PLACE CONTENTS IN STEAM TABLE PAN.
+49 ;;^UTILITY(U,$J,114,98,"X",2,0)
+50 ;;=2) PLACE IN STEAMER AND COOK FOR 5 MIN. OR UNTIL A TEMPERATURE
+51 ;;^UTILITY(U,$J,114,98,"X",3,0)
+52 ;;= OF 170 IS REACHED.
+53 ;;^UTILITY(U,$J,114,98,"X",4,0)
+54 ;;=3) REMOVE FROM STEAMER.
+55 ;;^UTILITY(U,$J,114,99,0)
+56 ;;=NEW POTATOES^100^3-OZ^25 MIN^^^7^N^POTATOES, NEW
+57 ;;^UTILITY(U,$J,114,99,"I",0)
+58 ;;=^114.01PA^1^1
+59 ;;^UTILITY(U,$J,114,99,"I",1,0)
+60 ;;=1013^18.75^1505^17.0625
+61 ;;^UTILITY(U,$J,114,99,"X",0)
+62 ;;=^^6^6^2890814^^
+63 ;;^UTILITY(U,$J,114,99,"X",1,0)
+64 ;;=1) PLACE STRAINER IN STEAM KETTLE.
+65 ;;^UTILITY(U,$J,114,99,"X",2,0)
+66 ;;=2) REMOVE POTATOES FROM PLASTIC BAG AND PLACE IN STEAM KETTLE.
+67 ;;^UTILITY(U,$J,114,99,"X",3,0)
+68 ;;=3) RINSE WITH FRESH WATER.
+69 ;;^UTILITY(U,$J,114,99,"X",4,0)
+70 ;;=4) COVER WITH WATER.
+71 ;;^UTILITY(U,$J,114,99,"X",5,0)
+72 ;;=5) TURN ON STEAM AND COOK FOR 20 MINUTES OR UNTIL DONE.
+73 ;;^UTILITY(U,$J,114,99,"X",6,0)
+74 ;;=6) REMOVE FROM STEAM KETTLE AND PLACE IN DEEP 1/2 INSERT.
+75 ;;^UTILITY(U,$J,114,100,0)
+76 ;;=SLICED BEETS, CND^100^2-OZ^15 MIN^^12^9^N^V-15^^C^^.036
+77 ;;^UTILITY(U,$J,114,100,"E",0)
+78 ;;=^114.05P^1^1
+79 ;;^UTILITY(U,$J,114,100,"E",1,0)
+80 ;;=14
+81 ;;^UTILITY(U,$J,114,100,"I",0)
+82 ;;=^114.01PA^1^1
+83 ;;^UTILITY(U,$J,114,100,"I",1,0)
+84 ;;=422^12.5^780^12.5
+85 ;;^UTILITY(U,$J,114,100,"X",0)
+86 ;;=^^3^3^2890727^^
+87 ;;^UTILITY(U,$J,114,100,"X",1,0)
+88 ;;=1) OPEN CAN AND PLACE CONTENTS IN STEAM TABLE PAN.
+89 ;;^UTILITY(U,$J,114,100,"X",2,0)
+90 ;;=2) PLACE IN STEAMER AND COOK FOR 10 MIN. OR UNTIL A TEMPERATURE OF
+91 ;;^UTILITY(U,$J,114,100,"X",3,0)
+92 ;;= 170 IS REACHED.
+93 ;;^UTILITY(U,$J,114,101,0)
+94 ;;=CLOVERLEAF ROLL^100^1-EACH^30 MIN^^^12^N^ROLL, CLOVERLEAF
+95 ;;^UTILITY(U,$J,114,101,"I",0)
+96 ;;=^114.01PA^1^1
+97 ;;^UTILITY(U,$J,114,101,"I",1,0)
+98 ;;=959^100^1571
+99 ;;^UTILITY(U,$J,114,101,"X",0)
+100 ;;=^^4^4^2861118^
+101 ;;^UTILITY(U,$J,114,101,"X",1,0)
+102 ;;=1) REMOVE FROM BOX AND PLACE ON UNGREASED SHEET PAN.
+103 ;;^UTILITY(U,$J,114,101,"X",2,0)
+104 ;;=2) PREHEAT CONVENTION OVEN TO 400.
+105 ;;^UTILITY(U,$J,114,101,"X",3,0)
+106 ;;=3) BAKE FOR 25 MIN. OR UNTIL GOLDEN BROWN.
+107 ;;^UTILITY(U,$J,114,101,"X",4,0)
+108 ;;=4) REMOVE FROM SHEET PAN AND PLACE INTO STEAM TABLE PAN.
+109 ;;^UTILITY(U,$J,114,102,0)
+110 ;;=SUGAR COOKIE^100^1-EACH^5 MIN^^^3^N^COOKIES, SUGAR
+111 ;;^UTILITY(U,$J,114,102,"I",0)
+112 ;;=^114.01PA^1^1
+113 ;;^UTILITY(U,$J,114,102,"I",1,0)
+114 ;;=838^3.12^1022^3.12
+115 ;;^UTILITY(U,$J,114,102,"X",0)
+116 ;;=^^2^2^2861118^
+117 ;;^UTILITY(U,$J,114,102,"X",1,0)
+118 ;;=1) REMOVE FROM PACKAGE.
+119 ;;^UTILITY(U,$J,114,102,"X",2,0)
+120 ;;=2) PLACE 1 COOKIE EACH ON BREAD PLATE.
+121 ;;^UTILITY(U,$J,114,103,0)
+122 ;;=PUREED PEACHES^10^4-OZ^^^^3^N^PEACHES, PUREED^^^^.121
+123 ;;^UTILITY(U,$J,114,103,"I",0)
+124 ;;=^114.01PA^1^1
+125 ;;^UTILITY(U,$J,114,103,"I",1,0)
+126 ;;=178^2.5^1750^2.5
+127 ;;^UTILITY(U,$J,114,104,0)
+128 ;;=PUREED APRICOTS^10^4-OZ^^^^3^N^APRICOTS, PUREED
+129 ;;^UTILITY(U,$J,114,104,"I",0)
+130 ;;=^114.01PA^1^1
+131 ;;^UTILITY(U,$J,114,104,"I",1,0)
+132 ;;=8^2.5^1628^2.5
+133 ;;^UTILITY(U,$J,114,105,0)
+134 ;;=EGG SUBSTITUTE^100^2-FLOZ^^^^5^N
+135 ;;^UTILITY(U,$J,114,105,"I",0)
+136 ;;=^114.01PA^1^1
+137 ;;^UTILITY(U,$J,114,105,"I",1,0)
+138 ;;=957^1.56^130^13.20696
+139 ;;^UTILITY(U,$J,114,105,"X",0)
+140 ;;=^^2^2^2861118^
