FHINI0IB ; ; 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,58,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,58,"I",1,0)
;;=323^10^1471
;;^UTILITY(U,$J,114,58,"X",0)
;;=^^1^1^2880316^^^^
;;^UTILITY(U,$J,114,58,"X",1,0)
;;=CUT PIE IN EIGHTHS.
;;^UTILITY(U,$J,114,59,0)
;;=PINEAPPLE PIE^80^.125-EACH^^^^3^N^PIE, PINEAPPLE
;;^UTILITY(U,$J,114,59,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,59,"I",1,0)
;;=823^10^1462
;;^UTILITY(U,$J,114,59,"X",0)
;;=^^1^1^2880316^^^
;;^UTILITY(U,$J,114,59,"X",1,0)
;;=CUT PIE IN EIGHTHS.
;;^UTILITY(U,$J,114,60,0)
;;=PEAR HALF^100^1-EACH^^^12^3^N^D-58^^C^^.085
;;^UTILITY(U,$J,114,60,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,60,"I",1,0)
;;=185^20^1761^20
;;^UTILITY(U,$J,114,60,"X",0)
;;=^^1^1^2890727^^^
;;^UTILITY(U,$J,114,60,"X",1,0)
;;=SERVE ON PEAR HALF WITH JUICE IN SIDE DISH. CHILL.
;;^UTILITY(U,$J,114,61,0)
;;=DIABETIC PEAR HALVES^50^2-EACH^^^12^3^N^D-59^^C^^.144
;;^UTILITY(U,$J,114,61,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,61,"I",1,0)
;;=186^12^1758^12
;;^UTILITY(U,$J,114,61,"X",0)
;;=^^1^1^2890727^^^^
;;^UTILITY(U,$J,114,61,"X",1,0)
;;=SERVE PEAR HALF WITH JUICE IN SIDE DISH. CHILL.
;;^UTILITY(U,$J,114,62,0)
;;=PUREED PEAS^10^2-OZ^^^^9^N^PEAS, PUREED^^^^.071
;;^UTILITY(U,$J,114,62,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,62,"I",1,0)
;;=469^1.25^6452^1.25
;;^UTILITY(U,$J,114,62,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,62,"X",1,0)
;;=HEAT AND SERVE. SERV TEMP 150 DEG.
;;^UTILITY(U,$J,114,63,0)
;;=PUREED GREEN BEANS^10^2-OZ^15 MIN^^8^9^N^V-8^^C^^.071
;;^UTILITY(U,$J,114,63,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,63,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,63,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,63,"I",1,0)
;;=543^1.25^6451^1.25
;;^UTILITY(U,$J,114,63,"X",0)
;;=^^1^1^2890727^^
;;^UTILITY(U,$J,114,63,"X",1,0)
;;=HEAT AND SERVE. SERV TEMP 150 DEG.
;;^UTILITY(U,$J,114,64,0)
;;=PUREED ASPARAGUS^10^2-OZ^15 MIN^^8^9^N^V-4^^C^^.135
;;^UTILITY(U,$J,114,64,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,64,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,64,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,64,"I",1,0)
;;=550^1.25^6447^1.25
;;^UTILITY(U,$J,114,64,"X",0)
;;=^^1^1^2890727^^
;;^UTILITY(U,$J,114,64,"X",1,0)
;;=HEAT AND SERVE.
;;^UTILITY(U,$J,114,65,0)
;;=PUREED BEETS^10^2-OZ^15 MIN^^8^9^N^V-18^^C^^.056
;;^UTILITY(U,$J,114,65,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,65,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,65,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,65,"I",1,0)
;;=529^1.25^6448^1.25
;;^UTILITY(U,$J,114,65,"X",0)
;;=^^1^1^2890801^^^
;;^UTILITY(U,$J,114,65,"X",1,0)
;;=HEAT AND SERVE. SERV TEMP 150 DEG.
;;^UTILITY(U,$J,114,66,0)
;;=CHOPPED BEEF^100^3-OZ^^^13^4^N^BEEF, CHOPPED
;;^UTILITY(U,$J,114,66,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,66,"I",1,0)
;;=22^18.75^2167^18.75
;;^UTILITY(U,$J,114,66,"X",0)
;;=^^3^3^2860818^
;;^UTILITY(U,$J,114,66,"X",1,0)
;;=1) STEAM GROUND MEAT FOR 45-60 MIN. CRUMBLE.
;;^UTILITY(U,$J,114,66,"X",2,0)
;;=2) IF FINER GRIND IS NECESSARY, RUN ONCE THROUGH BUFFALO CUTTER.
;;^UTILITY(U,$J,114,66,"X",3,0)
;;=3) HOLD IN STEAM TABLE PANS WITH WATER FOR MOISTURE.
;;^UTILITY(U,$J,114,67,0)
;;=CHOPPED PORK^100^3-OZ^^^^4^N^PORK, CHOPPED
;;^UTILITY(U,$J,114,67,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,67,"I",1,0)
;;=879^18.75^199^12.375
;;^UTILITY(U,$J,114,67,"X",0)
;;=^^3^3^2890801^^^
;;^UTILITY(U,$J,114,67,"X",1,0)
;;=1) STEAM GROUND MEAT FOR 45-60 MIN. CRUMBLE.
;;^UTILITY(U,$J,114,67,"X",2,0)
;;=2) IF FINER GRIND IS NECESSARY, RUN THROUGH BUFFALO CUTTER ONCE.
;;^UTILITY(U,$J,114,67,"X",3,0)
;;=3) HOLD IN STEAM TABLE PANS WITH WATER FOR MOISTURE.
;;^UTILITY(U,$J,114,68,0)
;;=PUREED BEEF^10^3-OZ^45 MIN^^2^4^N^BEEF, PUREED^^C^^.289
;;^UTILITY(U,$J,114,68,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,68,"I",1,0)
;;=466^1.875^6473^1.875
;;^UTILITY(U,$J,114,68,"X",0)
;;=^^2^2^2871123^^^^
;;^UTILITY(U,$J,114,68,"X",1,0)
;;=1) OPEN CAN AND PUT INTO STEAMER FOR 45 MIN.
;;^UTILITY(U,$J,114,68,"X",2,0)
;;=2) SERVE ON LINE.
;;^UTILITY(U,$J,114,69,0)
;;=PUREED PORK^10^3-OZ^45 MIN^^2^4^N^E-180^^C^^.356
;;^UTILITY(U,$J,114,69,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,69,"I",1,0)
;;=356^1.875
;;^UTILITY(U,$J,114,69,"X",0)
;;=^^2^2^2890801^^^^
;;^UTILITY(U,$J,114,69,"X",1,0)
;;=OPEN CAN AND HEAT IN STEAMER FOR 45 MIN.
;;^UTILITY(U,$J,114,69,"X",2,0)
;;=SERVE ON LINE.
;;^UTILITY(U,$J,114,70,0)
;;=PUREED VEAL^10^3-OZ^^^^4^N^E-197^^^^.298
;;^UTILITY(U,$J,114,70,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,70,"I",1,0)
;;=468^1.875^6478^1.875
;;^UTILITY(U,$J,114,70,"X",0)
;;=^^2^2^2890725^^^^
FHINI0IB ; ; 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,58,"I",0)
+2 ;;=^114.01PA^1^1
+3 ;;^UTILITY(U,$J,114,58,"I",1,0)
+4 ;;=323^10^1471
+5 ;;^UTILITY(U,$J,114,58,"X",0)
+6 ;;=^^1^1^2880316^^^^
+7 ;;^UTILITY(U,$J,114,58,"X",1,0)
+8 ;;=CUT PIE IN EIGHTHS.
+9 ;;^UTILITY(U,$J,114,59,0)
+10 ;;=PINEAPPLE PIE^80^.125-EACH^^^^3^N^PIE, PINEAPPLE
+11 ;;^UTILITY(U,$J,114,59,"I",0)
+12 ;;=^114.01PA^1^1
+13 ;;^UTILITY(U,$J,114,59,"I",1,0)
+14 ;;=823^10^1462
+15 ;;^UTILITY(U,$J,114,59,"X",0)
+16 ;;=^^1^1^2880316^^^
+17 ;;^UTILITY(U,$J,114,59,"X",1,0)
+18 ;;=CUT PIE IN EIGHTHS.
+19 ;;^UTILITY(U,$J,114,60,0)
+20 ;;=PEAR HALF^100^1-EACH^^^12^3^N^D-58^^C^^.085
+21 ;;^UTILITY(U,$J,114,60,"I",0)
+22 ;;=^114.01PA^1^1
+23 ;;^UTILITY(U,$J,114,60,"I",1,0)
+24 ;;=185^20^1761^20
+25 ;;^UTILITY(U,$J,114,60,"X",0)
+26 ;;=^^1^1^2890727^^^
+27 ;;^UTILITY(U,$J,114,60,"X",1,0)
+28 ;;=SERVE ON PEAR HALF WITH JUICE IN SIDE DISH. CHILL.
+29 ;;^UTILITY(U,$J,114,61,0)
+30 ;;=DIABETIC PEAR HALVES^50^2-EACH^^^12^3^N^D-59^^C^^.144
+31 ;;^UTILITY(U,$J,114,61,"I",0)
+32 ;;=^114.01PA^1^1
+33 ;;^UTILITY(U,$J,114,61,"I",1,0)
+34 ;;=186^12^1758^12
+35 ;;^UTILITY(U,$J,114,61,"X",0)
+36 ;;=^^1^1^2890727^^^^
+37 ;;^UTILITY(U,$J,114,61,"X",1,0)
+38 ;;=SERVE PEAR HALF WITH JUICE IN SIDE DISH. CHILL.
+39 ;;^UTILITY(U,$J,114,62,0)
+40 ;;=PUREED PEAS^10^2-OZ^^^^9^N^PEAS, PUREED^^^^.071
+41 ;;^UTILITY(U,$J,114,62,"I",0)
+42 ;;=^114.01PA^1^1
+43 ;;^UTILITY(U,$J,114,62,"I",1,0)
+44 ;;=469^1.25^6452^1.25
+45 ;;^UTILITY(U,$J,114,62,"X",0)
+46 ;;=^^1^1^2890801^^
+47 ;;^UTILITY(U,$J,114,62,"X",1,0)
+48 ;;=HEAT AND SERVE. SERV TEMP 150 DEG.
+49 ;;^UTILITY(U,$J,114,63,0)
+50 ;;=PUREED GREEN BEANS^10^2-OZ^15 MIN^^8^9^N^V-8^^C^^.071
+51 ;;^UTILITY(U,$J,114,63,"E",0)
+52 ;;=^114.05P^1^1
+53 ;;^UTILITY(U,$J,114,63,"E",1,0)
+54 ;;=14
+55 ;;^UTILITY(U,$J,114,63,"I",0)
+56 ;;=^114.01PA^1^1
+57 ;;^UTILITY(U,$J,114,63,"I",1,0)
+58 ;;=543^1.25^6451^1.25
+59 ;;^UTILITY(U,$J,114,63,"X",0)
+60 ;;=^^1^1^2890727^^
+61 ;;^UTILITY(U,$J,114,63,"X",1,0)
+62 ;;=HEAT AND SERVE. SERV TEMP 150 DEG.
+63 ;;^UTILITY(U,$J,114,64,0)
+64 ;;=PUREED ASPARAGUS^10^2-OZ^15 MIN^^8^9^N^V-4^^C^^.135
+65 ;;^UTILITY(U,$J,114,64,"E",0)
+66 ;;=^114.05P^1^1
+67 ;;^UTILITY(U,$J,114,64,"E",1,0)
+68 ;;=14
+69 ;;^UTILITY(U,$J,114,64,"I",0)
+70 ;;=^114.01PA^1^1
+71 ;;^UTILITY(U,$J,114,64,"I",1,0)
+72 ;;=550^1.25^6447^1.25
+73 ;;^UTILITY(U,$J,114,64,"X",0)
+74 ;;=^^1^1^2890727^^
+75 ;;^UTILITY(U,$J,114,64,"X",1,0)
+76 ;;=HEAT AND SERVE.
+77 ;;^UTILITY(U,$J,114,65,0)
+78 ;;=PUREED BEETS^10^2-OZ^15 MIN^^8^9^N^V-18^^C^^.056
+79 ;;^UTILITY(U,$J,114,65,"E",0)
+80 ;;=^114.05P^1^1
+81 ;;^UTILITY(U,$J,114,65,"E",1,0)
+82 ;;=14
+83 ;;^UTILITY(U,$J,114,65,"I",0)
+84 ;;=^114.01PA^1^1
+85 ;;^UTILITY(U,$J,114,65,"I",1,0)
+86 ;;=529^1.25^6448^1.25
+87 ;;^UTILITY(U,$J,114,65,"X",0)
+88 ;;=^^1^1^2890801^^^
+89 ;;^UTILITY(U,$J,114,65,"X",1,0)
+90 ;;=HEAT AND SERVE. SERV TEMP 150 DEG.
+91 ;;^UTILITY(U,$J,114,66,0)
+92 ;;=CHOPPED BEEF^100^3-OZ^^^13^4^N^BEEF, CHOPPED
+93 ;;^UTILITY(U,$J,114,66,"I",0)
+94 ;;=^114.01PA^1^1
+95 ;;^UTILITY(U,$J,114,66,"I",1,0)
+96 ;;=22^18.75^2167^18.75
+97 ;;^UTILITY(U,$J,114,66,"X",0)
+98 ;;=^^3^3^2860818^
+99 ;;^UTILITY(U,$J,114,66,"X",1,0)
+100 ;;=1) STEAM GROUND MEAT FOR 45-60 MIN. CRUMBLE.
+101 ;;^UTILITY(U,$J,114,66,"X",2,0)
+102 ;;=2) IF FINER GRIND IS NECESSARY, RUN ONCE THROUGH BUFFALO CUTTER.
+103 ;;^UTILITY(U,$J,114,66,"X",3,0)
+104 ;;=3) HOLD IN STEAM TABLE PANS WITH WATER FOR MOISTURE.
+105 ;;^UTILITY(U,$J,114,67,0)
+106 ;;=CHOPPED PORK^100^3-OZ^^^^4^N^PORK, CHOPPED
+107 ;;^UTILITY(U,$J,114,67,"I",0)
+108 ;;=^114.01PA^1^1
+109 ;;^UTILITY(U,$J,114,67,"I",1,0)
+110 ;;=879^18.75^199^12.375
+111 ;;^UTILITY(U,$J,114,67,"X",0)
+112 ;;=^^3^3^2890801^^^
+113 ;;^UTILITY(U,$J,114,67,"X",1,0)
+114 ;;=1) STEAM GROUND MEAT FOR 45-60 MIN. CRUMBLE.
+115 ;;^UTILITY(U,$J,114,67,"X",2,0)
+116 ;;=2) IF FINER GRIND IS NECESSARY, RUN THROUGH BUFFALO CUTTER ONCE.
+117 ;;^UTILITY(U,$J,114,67,"X",3,0)
+118 ;;=3) HOLD IN STEAM TABLE PANS WITH WATER FOR MOISTURE.
+119 ;;^UTILITY(U,$J,114,68,0)
+120 ;;=PUREED BEEF^10^3-OZ^45 MIN^^2^4^N^BEEF, PUREED^^C^^.289
+121 ;;^UTILITY(U,$J,114,68,"I",0)
+122 ;;=^114.01PA^1^1
+123 ;;^UTILITY(U,$J,114,68,"I",1,0)
+124 ;;=466^1.875^6473^1.875
+125 ;;^UTILITY(U,$J,114,68,"X",0)
+126 ;;=^^2^2^2871123^^^^
+127 ;;^UTILITY(U,$J,114,68,"X",1,0)
+128 ;;=1) OPEN CAN AND PUT INTO STEAMER FOR 45 MIN.
+129 ;;^UTILITY(U,$J,114,68,"X",2,0)
+130 ;;=2) SERVE ON LINE.
+131 ;;^UTILITY(U,$J,114,69,0)
+132 ;;=PUREED PORK^10^3-OZ^45 MIN^^2^4^N^E-180^^C^^.356
+133 ;;^UTILITY(U,$J,114,69,"I",0)
+134 ;;=^114.01PA^1^1
+135 ;;^UTILITY(U,$J,114,69,"I",1,0)
+136 ;;=356^1.875
+137 ;;^UTILITY(U,$J,114,69,"X",0)
+138 ;;=^^2^2^2890801^^^^
+139 ;;^UTILITY(U,$J,114,69,"X",1,0)
+140 ;;=OPEN CAN AND HEAT IN STEAMER FOR 45 MIN.
+141 ;;^UTILITY(U,$J,114,69,"X",2,0)
+142 ;;=SERVE ON LINE.
+143 ;;^UTILITY(U,$J,114,70,0)
+144 ;;=PUREED VEAL^10^3-OZ^^^^4^N^E-197^^^^.298
+145 ;;^UTILITY(U,$J,114,70,"I",0)
+146 ;;=^114.01PA^1^1
+147 ;;^UTILITY(U,$J,114,70,"I",1,0)
+148 ;;=468^1.875^6478^1.875
+149 ;;^UTILITY(U,$J,114,70,"X",0)
+150 ;;=^^2^2^2890725^^^^
