FHINI0IC ; ; 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,70,"X",1,0)
;;=1) OPEN CAN AND PUT INTO PRESSURE COOKER FOR 45 MIN.
;;^UTILITY(U,$J,114,70,"X",2,0)
;;=2) SERVE ON LINE.
;;^UTILITY(U,$J,114,71,0)
;;=PUREED CHICKEN^10^3-OZ^^^^4^N^CHICKEN, PUREED^^^^.203
;;^UTILITY(U,$J,114,71,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,71,"I",1,0)
;;=467^1.875^6474^1.875
;;^UTILITY(U,$J,114,71,"X",0)
;;=^^2^2^2861118^^
;;^UTILITY(U,$J,114,71,"X",1,0)
;;=1) OPEN CAN AND PUT INTO PRESSURE COOKER FOR 45 MIN.
;;^UTILITY(U,$J,114,71,"X",2,0)
;;=2) SERVE ON TRAY LINE.
;;^UTILITY(U,$J,114,72,0)
;;=LS CABBAGE^50^2-OZ^^^13^9^N^CABBAGE, GREEN, LS
;;^UTILITY(U,$J,114,72,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,72,"I",1,0)
;;=763^6.25^845^5
;;^UTILITY(U,$J,114,72,"X",0)
;;=^^2^2^2860827^
;;^UTILITY(U,$J,114,72,"X",1,0)
;;=1) CLEAN AND SHRED CABBAGE.
;;^UTILITY(U,$J,114,72,"X",2,0)
;;=2) STEAM AT 5 LB PRESSURE FOR APPROX. 10 MIN. OR UNTIL TENDER.
;;^UTILITY(U,$J,114,73,0)
;;=SAUSAGE PATTIES^100^1-EACH^30 MIN^^2^5^N^E-18^^F
;;^UTILITY(U,$J,114,73,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,73,"E",1,0)
;;=33
;;^UTILITY(U,$J,114,73,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,73,"I",1,0)
;;=832^12.5^650^12.5
;;^UTILITY(U,$J,114,73,"X",0)
;;=^^2^2^2890725^^^
;;^UTILITY(U,$J,114,73,"X",1,0)
;;=1) PAN FROZEN PATTIES IN A SINGLE LAYER.
;;^UTILITY(U,$J,114,73,"X",2,0)
;;=2) BAKE AT 350 DEG FOR 20 MIN.
;;^UTILITY(U,$J,114,74,0)
;;=BAKED SWEET POTATOES^100^1-EACH^^^^7^N^SWEET POTATOES, BAKED
;;^UTILITY(U,$J,114,74,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,74,"I",1,0)
;;=839^28.6^1909^22.308
;;^UTILITY(U,$J,114,74,"X",0)
;;=^^2^2^2860827^
;;^UTILITY(U,$J,114,74,"X",1,0)
;;=1) CLEAN POTATOES WELL.
;;^UTILITY(U,$J,114,74,"X",2,0)
;;=2) BAKE IN 375 DEG OVEN FOR APPROX. 1 HR.
;;^UTILITY(U,$J,114,75,0)
;;=HOT POTATO SALAD^100^3-OZ^^^^7^N^SALAD, POTATO, HOT
;;^UTILITY(U,$J,114,75,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,75,"I",1,0)
;;=206^18.75^1531^18.75
;;^UTILITY(U,$J,114,75,"X",0)
;;=^^1^1^2890801^^^
;;^UTILITY(U,$J,114,75,"X",1,0)
;;=HEAT AND SERVE. SERV TEMP 140-160 DEG.
;;^UTILITY(U,$J,114,76,0)
;;=SMOKED SAUSAGE^100^3-OZ^^^^4^N^SAUSAGE, SMOKED
;;^UTILITY(U,$J,114,76,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,76,"I",1,0)
;;=882^18.75^655^18.75
;;^UTILITY(U,$J,114,76,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,76,"X",1,0)
;;=PAN SAUSAGE. STEAM AT __ LB PRESSURE FOR 5 MIN.
;;^UTILITY(U,$J,114,77,0)
;;=MASHED SQUASH^100^2-OZ^^^^9^N^SQUASH, MASHED
;;^UTILITY(U,$J,114,77,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,77,"I",1,0)
;;=546^12.5^1901^12.5
;;^UTILITY(U,$J,114,77,"X",0)
;;=^^1^1^2860827^
;;^UTILITY(U,$J,114,77,"X",1,0)
;;=1) HEAT AND SERVE. SERV TEMP 140-160 DEG.
;;^UTILITY(U,$J,114,78,0)
;;=CHOPPED CHICKEN^100^3-OZ^^^^4^N^CHICKEN, CHOPPED
;;^UTILITY(U,$J,114,78,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,78,"I",1,0)
;;=833^18.75^404^10.125
;;^UTILITY(U,$J,114,78,"X",0)
;;=^^2^2^2890801^^
;;^UTILITY(U,$J,114,78,"X",1,0)
;;=1) CHOP WITH KNIFE OR BUFFALO CUTTER TO DESIRED FINENESS.
;;^UTILITY(U,$J,114,78,"X",2,0)
;;=2) HOLD IN WATER. SERV TEMP 140-160 DEG.
;;^UTILITY(U,$J,114,79,0)
;;=CORNFLAKES, IND^100^1-EACH^^^^2^N^C-13^^I
;;^UTILITY(U,$J,114,79,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,79,"I",1,0)
;;=48^100^1108
;;^UTILITY(U,$J,114,79,"X",0)
;;=^^1^1^2890724^
;;^UTILITY(U,$J,114,79,"X",1,0)
;;=1) PLACE ON TRAY ACCORDING TO DIET AND MENU.
;;^UTILITY(U,$J,114,80,0)
;;=DIET MIXED VEGETABLES^50^2-OZ^^^12^9^N^MIXED VEGETABLES, DIET
;;^UTILITY(U,$J,114,80,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,80,"I",1,0)
;;=277^6.25^1984^6.25
;;^UTILITY(U,$J,114,80,"X",0)
;;=^^1^1^2860905^
;;^UTILITY(U,$J,114,80,"X",1,0)
;;=1) STEAM AT 5 LB PRESSURE FOR 10-15 MIN.
;;^UTILITY(U,$J,114,81,0)
;;=MACARONI AND CHEESE^100^8-OZ^30 MIN^^10^4^N
;;^UTILITY(U,$J,114,81,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,81,"I",1,0)
;;=950^50^1322^50
;;^UTILITY(U,$J,114,81,"X",0)
;;=^^6^6^2890801^^^^
;;^UTILITY(U,$J,114,81,"X",1,0)
;;=PREHEAT OVEN
;;^UTILITY(U,$J,114,81,"X",2,0)
;;=PLACE IN SHEET PAN AN PLACE IN OVEN
;;^UTILITY(U,$J,114,81,"X",3,0)
;;=CONVENTIONAL OVEN 400 DEGREES F.
;;^UTILITY(U,$J,114,81,"X",4,0)
;;=FROZEN 1 1/4 HR. THAW 3/4 HR.
;;^UTILITY(U,$J,114,81,"X",5,0)
;;=CONVENTION OVEN 350
;;^UTILITY(U,$J,114,81,"X",6,0)
;;=FROZEN 3/4 HR. THAW 1/2 HR.
;;^UTILITY(U,$J,114,82,0)
;;=DRY CEREAL, ASSORTED, IND^100^1-EACH^^^^2^N^C-2^^I
;;^UTILITY(U,$J,114,82,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,82,"I",1,0)
;;=605^100
;;^UTILITY(U,$J,114,82,"X",0)
;;=^^1^1^2890801^^^
FHINI0IC ; ; 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,70,"X",1,0)
+2 ;;=1) OPEN CAN AND PUT INTO PRESSURE COOKER FOR 45 MIN.
+3 ;;^UTILITY(U,$J,114,70,"X",2,0)
+4 ;;=2) SERVE ON LINE.
+5 ;;^UTILITY(U,$J,114,71,0)
+6 ;;=PUREED CHICKEN^10^3-OZ^^^^4^N^CHICKEN, PUREED^^^^.203
+7 ;;^UTILITY(U,$J,114,71,"I",0)
+8 ;;=^114.01PA^1^1
+9 ;;^UTILITY(U,$J,114,71,"I",1,0)
+10 ;;=467^1.875^6474^1.875
+11 ;;^UTILITY(U,$J,114,71,"X",0)
+12 ;;=^^2^2^2861118^^
+13 ;;^UTILITY(U,$J,114,71,"X",1,0)
+14 ;;=1) OPEN CAN AND PUT INTO PRESSURE COOKER FOR 45 MIN.
+15 ;;^UTILITY(U,$J,114,71,"X",2,0)
+16 ;;=2) SERVE ON TRAY LINE.
+17 ;;^UTILITY(U,$J,114,72,0)
+18 ;;=LS CABBAGE^50^2-OZ^^^13^9^N^CABBAGE, GREEN, LS
+19 ;;^UTILITY(U,$J,114,72,"I",0)
+20 ;;=^114.01PA^1^1
+21 ;;^UTILITY(U,$J,114,72,"I",1,0)
+22 ;;=763^6.25^845^5
+23 ;;^UTILITY(U,$J,114,72,"X",0)
+24 ;;=^^2^2^2860827^
+25 ;;^UTILITY(U,$J,114,72,"X",1,0)
+26 ;;=1) CLEAN AND SHRED CABBAGE.
+27 ;;^UTILITY(U,$J,114,72,"X",2,0)
+28 ;;=2) STEAM AT 5 LB PRESSURE FOR APPROX. 10 MIN. OR UNTIL TENDER.
+29 ;;^UTILITY(U,$J,114,73,0)
+30 ;;=SAUSAGE PATTIES^100^1-EACH^30 MIN^^2^5^N^E-18^^F
+31 ;;^UTILITY(U,$J,114,73,"E",0)
+32 ;;=^114.05P^1^1
+33 ;;^UTILITY(U,$J,114,73,"E",1,0)
+34 ;;=33
+35 ;;^UTILITY(U,$J,114,73,"I",0)
+36 ;;=^114.01PA^1^1
+37 ;;^UTILITY(U,$J,114,73,"I",1,0)
+38 ;;=832^12.5^650^12.5
+39 ;;^UTILITY(U,$J,114,73,"X",0)
+40 ;;=^^2^2^2890725^^^
+41 ;;^UTILITY(U,$J,114,73,"X",1,0)
+42 ;;=1) PAN FROZEN PATTIES IN A SINGLE LAYER.
+43 ;;^UTILITY(U,$J,114,73,"X",2,0)
+44 ;;=2) BAKE AT 350 DEG FOR 20 MIN.
+45 ;;^UTILITY(U,$J,114,74,0)
+46 ;;=BAKED SWEET POTATOES^100^1-EACH^^^^7^N^SWEET POTATOES, BAKED
+47 ;;^UTILITY(U,$J,114,74,"I",0)
+48 ;;=^114.01PA^1^1
+49 ;;^UTILITY(U,$J,114,74,"I",1,0)
+50 ;;=839^28.6^1909^22.308
+51 ;;^UTILITY(U,$J,114,74,"X",0)
+52 ;;=^^2^2^2860827^
+53 ;;^UTILITY(U,$J,114,74,"X",1,0)
+54 ;;=1) CLEAN POTATOES WELL.
+55 ;;^UTILITY(U,$J,114,74,"X",2,0)
+56 ;;=2) BAKE IN 375 DEG OVEN FOR APPROX. 1 HR.
+57 ;;^UTILITY(U,$J,114,75,0)
+58 ;;=HOT POTATO SALAD^100^3-OZ^^^^7^N^SALAD, POTATO, HOT
+59 ;;^UTILITY(U,$J,114,75,"I",0)
+60 ;;=^114.01PA^1^1
+61 ;;^UTILITY(U,$J,114,75,"I",1,0)
+62 ;;=206^18.75^1531^18.75
+63 ;;^UTILITY(U,$J,114,75,"X",0)
+64 ;;=^^1^1^2890801^^^
+65 ;;^UTILITY(U,$J,114,75,"X",1,0)
+66 ;;=HEAT AND SERVE. SERV TEMP 140-160 DEG.
+67 ;;^UTILITY(U,$J,114,76,0)
+68 ;;=SMOKED SAUSAGE^100^3-OZ^^^^4^N^SAUSAGE, SMOKED
+69 ;;^UTILITY(U,$J,114,76,"I",0)
+70 ;;=^114.01PA^1^1
+71 ;;^UTILITY(U,$J,114,76,"I",1,0)
+72 ;;=882^18.75^655^18.75
+73 ;;^UTILITY(U,$J,114,76,"X",0)
+74 ;;=^^1^1^2890801^^
+75 ;;^UTILITY(U,$J,114,76,"X",1,0)
+76 ;;=PAN SAUSAGE. STEAM AT __ LB PRESSURE FOR 5 MIN.
+77 ;;^UTILITY(U,$J,114,77,0)
+78 ;;=MASHED SQUASH^100^2-OZ^^^^9^N^SQUASH, MASHED
+79 ;;^UTILITY(U,$J,114,77,"I",0)
+80 ;;=^114.01PA^1^1
+81 ;;^UTILITY(U,$J,114,77,"I",1,0)
+82 ;;=546^12.5^1901^12.5
+83 ;;^UTILITY(U,$J,114,77,"X",0)
+84 ;;=^^1^1^2860827^
+85 ;;^UTILITY(U,$J,114,77,"X",1,0)
+86 ;;=1) HEAT AND SERVE. SERV TEMP 140-160 DEG.
+87 ;;^UTILITY(U,$J,114,78,0)
+88 ;;=CHOPPED CHICKEN^100^3-OZ^^^^4^N^CHICKEN, CHOPPED
+89 ;;^UTILITY(U,$J,114,78,"I",0)
+90 ;;=^114.01PA^1^1
+91 ;;^UTILITY(U,$J,114,78,"I",1,0)
+92 ;;=833^18.75^404^10.125
+93 ;;^UTILITY(U,$J,114,78,"X",0)
+94 ;;=^^2^2^2890801^^
+95 ;;^UTILITY(U,$J,114,78,"X",1,0)
+96 ;;=1) CHOP WITH KNIFE OR BUFFALO CUTTER TO DESIRED FINENESS.
+97 ;;^UTILITY(U,$J,114,78,"X",2,0)
+98 ;;=2) HOLD IN WATER. SERV TEMP 140-160 DEG.
+99 ;;^UTILITY(U,$J,114,79,0)
+100 ;;=CORNFLAKES, IND^100^1-EACH^^^^2^N^C-13^^I
+101 ;;^UTILITY(U,$J,114,79,"I",0)
+102 ;;=^114.01PA^1^1
+103 ;;^UTILITY(U,$J,114,79,"I",1,0)
+104 ;;=48^100^1108
+105 ;;^UTILITY(U,$J,114,79,"X",0)
+106 ;;=^^1^1^2890724^
+107 ;;^UTILITY(U,$J,114,79,"X",1,0)
+108 ;;=1) PLACE ON TRAY ACCORDING TO DIET AND MENU.
+109 ;;^UTILITY(U,$J,114,80,0)
+110 ;;=DIET MIXED VEGETABLES^50^2-OZ^^^12^9^N^MIXED VEGETABLES, DIET
+111 ;;^UTILITY(U,$J,114,80,"I",0)
+112 ;;=^114.01PA^1^1
+113 ;;^UTILITY(U,$J,114,80,"I",1,0)
+114 ;;=277^6.25^1984^6.25
+115 ;;^UTILITY(U,$J,114,80,"X",0)
+116 ;;=^^1^1^2860905^
+117 ;;^UTILITY(U,$J,114,80,"X",1,0)
+118 ;;=1) STEAM AT 5 LB PRESSURE FOR 10-15 MIN.
+119 ;;^UTILITY(U,$J,114,81,0)
+120 ;;=MACARONI AND CHEESE^100^8-OZ^30 MIN^^10^4^N
+121 ;;^UTILITY(U,$J,114,81,"I",0)
+122 ;;=^114.01PA^1^1
+123 ;;^UTILITY(U,$J,114,81,"I",1,0)
+124 ;;=950^50^1322^50
+125 ;;^UTILITY(U,$J,114,81,"X",0)
+126 ;;=^^6^6^2890801^^^^
+127 ;;^UTILITY(U,$J,114,81,"X",1,0)
+128 ;;=PREHEAT OVEN
+129 ;;^UTILITY(U,$J,114,81,"X",2,0)
+130 ;;=PLACE IN SHEET PAN AN PLACE IN OVEN
+131 ;;^UTILITY(U,$J,114,81,"X",3,0)
+132 ;;=CONVENTIONAL OVEN 400 DEGREES F.
+133 ;;^UTILITY(U,$J,114,81,"X",4,0)
+134 ;;=FROZEN 1 1/4 HR. THAW 3/4 HR.
+135 ;;^UTILITY(U,$J,114,81,"X",5,0)
+136 ;;=CONVENTION OVEN 350
+137 ;;^UTILITY(U,$J,114,81,"X",6,0)
+138 ;;=FROZEN 3/4 HR. THAW 1/2 HR.
+139 ;;^UTILITY(U,$J,114,82,0)
+140 ;;=DRY CEREAL, ASSORTED, IND^100^1-EACH^^^^2^N^C-2^^I
+141 ;;^UTILITY(U,$J,114,82,"I",0)
+142 ;;=^114.01PA^1^1
+143 ;;^UTILITY(U,$J,114,82,"I",1,0)
+144 ;;=605^100
+145 ;;^UTILITY(U,$J,114,82,"X",0)
+146 ;;=^^1^1^2890801^^^
