FHINI0JX ; ; 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,345,0)
;;=FRICASSEED CHICKEN^100^8-OZ RAW^1 3/4 HOUR^^1^4^Y^E-224^^S^^.015
;;^UTILITY(U,$J,114,345,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,345,"E",1,0)
;;=25
;;^UTILITY(U,$J,114,345,"E",2,0)
;;=33
;;^UTILITY(U,$J,114,345,"I",0)
;;=^114.01PA^6^5
;;^UTILITY(U,$J,114,345,"I",1,0)
;;=474^50^401^33.5
;;^UTILITY(U,$J,114,345,"I",2,0)
;;=628^6^1998^6
;;^UTILITY(U,$J,114,345,"I",4,0)
;;=297^4^372^4
;;^UTILITY(U,$J,114,345,"I",5,0)
;;=1007^4
;;^UTILITY(U,$J,114,345,"I",6,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,345,"X",0)
;;=^^7^7^2890725^
;;^UTILITY(U,$J,114,345,"X",1,0)
;;=1) FLOUR CHICKEN. PLACE ON BAKING SHEET PAN AND BROWN LIGHTLY AT 400 F.
;;^UTILITY(U,$J,114,345,"X",2,0)
;;= WITH FIRST FLOUR ENTRY.
;;^UTILITY(U,$J,114,345,"X",3,0)
;;=2) TO MAKE GRAVY: COMBINE SECOND FLOUR ENTRY AND MARGARINE. BROWN FLOUR
;;^UTILITY(U,$J,114,345,"X",4,0)
;;= LIGHTLY IN OVEN.
;;^UTILITY(U,$J,114,345,"X",5,0)
;;=3) ADD AND SIMMER UNTIL BLENDED.
;;^UTILITY(U,$J,114,345,"X",6,0)
;;=4) PLACE CHICKEN IN FULL SIE MODULAR PAN. POUR GRAVY OVER CHICKEN, COVER
;;^UTILITY(U,$J,114,345,"X",7,0)
;;= AND SIMMER IN OVEN FOR APPROXIMATELY ONE HOUR.
;;^UTILITY(U,$J,114,346,0)
;;=TANGERINE^50^1-EACH^^^^3^N^D-19^^R
;;^UTILITY(U,$J,114,346,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,346,"I",1,0)
;;=840^50^1735^36
;;^UTILITY(U,$J,114,346,"X",0)
;;=^^1^1^2890725^
;;^UTILITY(U,$J,114,346,"X",1,0)
;;=1) WASH FRUIT. CHILL TO SERVE.
;;^UTILITY(U,$J,114,347,0)
;;=GRILLED CHEESE SANDWICH^100^1-EACH^30MIN^^2^4^Y^E-257^^S
;;^UTILITY(U,$J,114,347,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,347,"E",1,0)
;;=2
;;^UTILITY(U,$J,114,347,"I",0)
;;=^114.01PA^3^3
;;^UTILITY(U,$J,114,347,"I",1,0)
;;=760^200^823
;;^UTILITY(U,$J,114,347,"I",2,0)
;;=749^6.25^42^6.25
;;^UTILITY(U,$J,114,347,"I",3,0)
;;=297^2.25^372^2.25
;;^UTILITY(U,$J,114,347,"X",0)
;;=^^3^3^2890725^
;;^UTILITY(U,$J,114,347,"X",1,0)
;;=1) PLACE 1 SLICE CHEESE BETWEEN 2 SLICE BREAD.
;;^UTILITY(U,$J,114,347,"X",2,0)
;;=2) BRUSH BOTH SIDES OF SANDWICH WITH MARGARINE.
;;^UTILITY(U,$J,114,347,"X",3,0)
;;=3) GRILL UNTIL CHEESE MELTS AND SANDWICH IS GOLDEN BROWN. SERVE IMMEDIATELY.
;;^UTILITY(U,$J,114,348,0)
;;=FRESH APPLE^50^1-EACH^^^^3^N^D-20^^R
;;^UTILITY(U,$J,114,348,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,348,"I",1,0)
;;=752^50^1611
;;^UTILITY(U,$J,114,348,"X",0)
;;=^^1^1^2890725^
;;^UTILITY(U,$J,114,348,"X",1,0)
;;=1) WASH FRUIT. CHILL TO SERVE.
;;^UTILITY(U,$J,114,349,0)
;;=APRICOT HALVES^50^3-EACH^^^12^3^N^D-29^^C
;;^UTILITY(U,$J,114,349,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,349,"I",1,0)
;;=8^19^1628^19
;;^UTILITY(U,$J,114,349,"X",0)
;;=^^1^1^2890725^
;;^UTILITY(U,$J,114,349,"X",1,0)
;;=1) PORTION INTO SERVING DISHES. COVER AND CHILL TO SERVE.
;;^UTILITY(U,$J,114,350,0)
;;=DIABETIC APRICOT HALVES^50^4-EACH^^^12^3^N^D-30^^C^^.431
;;^UTILITY(U,$J,114,350,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,350,"I",1,0)
;;=7^22^1625^22
;;^UTILITY(U,$J,114,351,0)
;;=BLUE 2 CONDIMENT PK^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,351,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,351,"I",1,0)
;;=88^1
;;^UTILITY(U,$J,114,352,0)
;;=GRAY 2 CONDIMENT PK^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,352,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,352,"I",1,0)
;;=89^1
;;^UTILITY(U,$J,114,353,0)
;;=GREEN CONDIMENT PK^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,353,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,353,"I",1,0)
;;=90^1
;;^UTILITY(U,$J,114,354,0)
;;=ORANGE CONDIMENT PK^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,354,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,354,"I",1,0)
;;=91^1
;;^UTILITY(U,$J,114,355,0)
;;=PINK CONDIMENT PK^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,355,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,355,"I",1,0)
;;=92^1
;;^UTILITY(U,$J,114,356,0)
;;=YELLOW CONDIMENT PK^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,356,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,356,"I",1,0)
;;=93^1
;;^UTILITY(U,$J,114,357,0)
;;=GRAY CONDIMENT PK^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,357,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,357,"I",1,0)
;;=291^1
;;^UTILITY(U,$J,114,358,0)
;;=ORANGE 2 CONDIMENT PK^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,358,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,358,"I",1,0)
;;=394^1
;;^UTILITY(U,$J,114,359,0)
;;=YELLOW 2 CONDIMENT PK^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,359,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,359,"I",1,0)
;;=395^1
;;^UTILITY(U,$J,114,360,0)
;;=BLUE CONDIMENT PK^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,360,"I",0)
;;=^114.01PA^1^1
FHINI0JX ; ; 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,345,0)
+2 ;;=FRICASSEED CHICKEN^100^8-OZ RAW^1 3/4 HOUR^^1^4^Y^E-224^^S^^.015
+3 ;;^UTILITY(U,$J,114,345,"E",0)
+4 ;;=^114.05P^2^2
+5 ;;^UTILITY(U,$J,114,345,"E",1,0)
+6 ;;=25
+7 ;;^UTILITY(U,$J,114,345,"E",2,0)
+8 ;;=33
+9 ;;^UTILITY(U,$J,114,345,"I",0)
+10 ;;=^114.01PA^6^5
+11 ;;^UTILITY(U,$J,114,345,"I",1,0)
+12 ;;=474^50^401^33.5
+13 ;;^UTILITY(U,$J,114,345,"I",2,0)
+14 ;;=628^6^1998^6
+15 ;;^UTILITY(U,$J,114,345,"I",4,0)
+16 ;;=297^4^372^4
+17 ;;^UTILITY(U,$J,114,345,"I",5,0)
+18 ;;=1007^4
+19 ;;^UTILITY(U,$J,114,345,"I",6,0)
+20 ;;=230^.125^1598^.125
+21 ;;^UTILITY(U,$J,114,345,"X",0)
+22 ;;=^^7^7^2890725^
+23 ;;^UTILITY(U,$J,114,345,"X",1,0)
+24 ;;=1) FLOUR CHICKEN. PLACE ON BAKING SHEET PAN AND BROWN LIGHTLY AT 400 F.
+25 ;;^UTILITY(U,$J,114,345,"X",2,0)
+26 ;;= WITH FIRST FLOUR ENTRY.
+27 ;;^UTILITY(U,$J,114,345,"X",3,0)
+28 ;;=2) TO MAKE GRAVY: COMBINE SECOND FLOUR ENTRY AND MARGARINE. BROWN FLOUR
+29 ;;^UTILITY(U,$J,114,345,"X",4,0)
+30 ;;= LIGHTLY IN OVEN.
+31 ;;^UTILITY(U,$J,114,345,"X",5,0)
+32 ;;=3) ADD AND SIMMER UNTIL BLENDED.
+33 ;;^UTILITY(U,$J,114,345,"X",6,0)
+34 ;;=4) PLACE CHICKEN IN FULL SIE MODULAR PAN. POUR GRAVY OVER CHICKEN, COVER
+35 ;;^UTILITY(U,$J,114,345,"X",7,0)
+36 ;;= AND SIMMER IN OVEN FOR APPROXIMATELY ONE HOUR.
+37 ;;^UTILITY(U,$J,114,346,0)
+38 ;;=TANGERINE^50^1-EACH^^^^3^N^D-19^^R
+39 ;;^UTILITY(U,$J,114,346,"I",0)
+40 ;;=^114.01PA^1^1
+41 ;;^UTILITY(U,$J,114,346,"I",1,0)
+42 ;;=840^50^1735^36
+43 ;;^UTILITY(U,$J,114,346,"X",0)
+44 ;;=^^1^1^2890725^
+45 ;;^UTILITY(U,$J,114,346,"X",1,0)
+46 ;;=1) WASH FRUIT. CHILL TO SERVE.
+47 ;;^UTILITY(U,$J,114,347,0)
+48 ;;=GRILLED CHEESE SANDWICH^100^1-EACH^30MIN^^2^4^Y^E-257^^S
+49 ;;^UTILITY(U,$J,114,347,"E",0)
+50 ;;=^114.05P^1^1
+51 ;;^UTILITY(U,$J,114,347,"E",1,0)
+52 ;;=2
+53 ;;^UTILITY(U,$J,114,347,"I",0)
+54 ;;=^114.01PA^3^3
+55 ;;^UTILITY(U,$J,114,347,"I",1,0)
+56 ;;=760^200^823
+57 ;;^UTILITY(U,$J,114,347,"I",2,0)
+58 ;;=749^6.25^42^6.25
+59 ;;^UTILITY(U,$J,114,347,"I",3,0)
+60 ;;=297^2.25^372^2.25
+61 ;;^UTILITY(U,$J,114,347,"X",0)
+62 ;;=^^3^3^2890725^
+63 ;;^UTILITY(U,$J,114,347,"X",1,0)
+64 ;;=1) PLACE 1 SLICE CHEESE BETWEEN 2 SLICE BREAD.
+65 ;;^UTILITY(U,$J,114,347,"X",2,0)
+66 ;;=2) BRUSH BOTH SIDES OF SANDWICH WITH MARGARINE.
+67 ;;^UTILITY(U,$J,114,347,"X",3,0)
+68 ;;=3) GRILL UNTIL CHEESE MELTS AND SANDWICH IS GOLDEN BROWN. SERVE IMMEDIATELY.
+69 ;;^UTILITY(U,$J,114,348,0)
+70 ;;=FRESH APPLE^50^1-EACH^^^^3^N^D-20^^R
+71 ;;^UTILITY(U,$J,114,348,"I",0)
+72 ;;=^114.01PA^1^1
+73 ;;^UTILITY(U,$J,114,348,"I",1,0)
+74 ;;=752^50^1611
+75 ;;^UTILITY(U,$J,114,348,"X",0)
+76 ;;=^^1^1^2890725^
+77 ;;^UTILITY(U,$J,114,348,"X",1,0)
+78 ;;=1) WASH FRUIT. CHILL TO SERVE.
+79 ;;^UTILITY(U,$J,114,349,0)
+80 ;;=APRICOT HALVES^50^3-EACH^^^12^3^N^D-29^^C
+81 ;;^UTILITY(U,$J,114,349,"I",0)
+82 ;;=^114.01PA^1^1
+83 ;;^UTILITY(U,$J,114,349,"I",1,0)
+84 ;;=8^19^1628^19
+85 ;;^UTILITY(U,$J,114,349,"X",0)
+86 ;;=^^1^1^2890725^
+87 ;;^UTILITY(U,$J,114,349,"X",1,0)
+88 ;;=1) PORTION INTO SERVING DISHES. COVER AND CHILL TO SERVE.
+89 ;;^UTILITY(U,$J,114,350,0)
+90 ;;=DIABETIC APRICOT HALVES^50^4-EACH^^^12^3^N^D-30^^C^^.431
+91 ;;^UTILITY(U,$J,114,350,"I",0)
+92 ;;=^114.01PA^1^1
+93 ;;^UTILITY(U,$J,114,350,"I",1,0)
+94 ;;=7^22^1625^22
+95 ;;^UTILITY(U,$J,114,351,0)
+96 ;;=BLUE 2 CONDIMENT PK^1^1-EACH^^^^13^N^^^I
+97 ;;^UTILITY(U,$J,114,351,"I",0)
+98 ;;=^114.01PA^1^1
+99 ;;^UTILITY(U,$J,114,351,"I",1,0)
+100 ;;=88^1
+101 ;;^UTILITY(U,$J,114,352,0)
+102 ;;=GRAY 2 CONDIMENT PK^1^1-EACH^^^^13^N^^^I
+103 ;;^UTILITY(U,$J,114,352,"I",0)
+104 ;;=^114.01PA^1^1
+105 ;;^UTILITY(U,$J,114,352,"I",1,0)
+106 ;;=89^1
+107 ;;^UTILITY(U,$J,114,353,0)
+108 ;;=GREEN CONDIMENT PK^1^1-EACH^^^^13^N^^^I
+109 ;;^UTILITY(U,$J,114,353,"I",0)
+110 ;;=^114.01PA^1^1
+111 ;;^UTILITY(U,$J,114,353,"I",1,0)
+112 ;;=90^1
+113 ;;^UTILITY(U,$J,114,354,0)
+114 ;;=ORANGE CONDIMENT PK^1^1-EACH^^^^13^N^^^I
+115 ;;^UTILITY(U,$J,114,354,"I",0)
+116 ;;=^114.01PA^1^1
+117 ;;^UTILITY(U,$J,114,354,"I",1,0)
+118 ;;=91^1
+119 ;;^UTILITY(U,$J,114,355,0)
+120 ;;=PINK CONDIMENT PK^1^1-EACH^^^^13^N^^^I
+121 ;;^UTILITY(U,$J,114,355,"I",0)
+122 ;;=^114.01PA^1^1
+123 ;;^UTILITY(U,$J,114,355,"I",1,0)
+124 ;;=92^1
+125 ;;^UTILITY(U,$J,114,356,0)
+126 ;;=YELLOW CONDIMENT PK^1^1-EACH^^^^13^N^^^I
+127 ;;^UTILITY(U,$J,114,356,"I",0)
+128 ;;=^114.01PA^1^1
+129 ;;^UTILITY(U,$J,114,356,"I",1,0)
+130 ;;=93^1
+131 ;;^UTILITY(U,$J,114,357,0)
+132 ;;=GRAY CONDIMENT PK^1^1-EACH^^^^13^N^^^I
+133 ;;^UTILITY(U,$J,114,357,"I",0)
+134 ;;=^114.01PA^1^1
+135 ;;^UTILITY(U,$J,114,357,"I",1,0)
+136 ;;=291^1
+137 ;;^UTILITY(U,$J,114,358,0)
+138 ;;=ORANGE 2 CONDIMENT PK^1^1-EACH^^^^13^N^^^I
+139 ;;^UTILITY(U,$J,114,358,"I",0)
+140 ;;=^114.01PA^1^1
+141 ;;^UTILITY(U,$J,114,358,"I",1,0)
+142 ;;=394^1
+143 ;;^UTILITY(U,$J,114,359,0)
+144 ;;=YELLOW 2 CONDIMENT PK^1^1-EACH^^^^13^N^^^I
+145 ;;^UTILITY(U,$J,114,359,"I",0)
+146 ;;=^114.01PA^1^1
+147 ;;^UTILITY(U,$J,114,359,"I",1,0)
+148 ;;=395^1
+149 ;;^UTILITY(U,$J,114,360,0)
+150 ;;=BLUE CONDIMENT PK^1^1-EACH^^^^13^N^^^I
+151 ;;^UTILITY(U,$J,114,360,"I",0)
+152 ;;=^114.01PA^1^1
