FHINI0JV ; ; 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,332,"X",1,0)
;;=1) RECONSTITUTE ONIONS
;;^UTILITY(U,$J,114,332,"X",2,0)
;;=2) SAUTE ONIONS AND CELERY UNTIL TENDER.
;;^UTILITY(U,$J,114,332,"X",3,0)
;;=3) ADD FLOUR, SUGAR AND SEASONINGS TO SAUTED MIXTURE; STIR
;;^UTILITY(U,$J,114,332,"X",4,0)
;;= FREQUENTLY TO FORM ROUX.
;;^UTILITY(U,$J,114,332,"X",5,0)
;;=4) HEAT TOMATOES. STIR INTO ROUX; MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,332,"X",6,0)
;;= SIMMER FOR 10 MINUTES.
;;^UTILITY(U,$J,114,333,0)
;;=FRIED CHICKEN^100^8-OZ RAW^30 MIN^^1^4^Y^E-218^^S^^.01
;;^UTILITY(U,$J,114,333,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,333,"E",1,0)
;;=4
;;^UTILITY(U,$J,114,333,"I",0)
;;=^114.01PA^4^4
;;^UTILITY(U,$J,114,333,"I",1,0)
;;=628^5^1998^5
;;^UTILITY(U,$J,114,333,"I",2,0)
;;=230^.375^1598^.375
;;^UTILITY(U,$J,114,333,"I",3,0)
;;=192^.0625^288^.0625
;;^UTILITY(U,$J,114,333,"I",4,0)
;;=884^50^401^33.5
;;^UTILITY(U,$J,114,333,"X",0)
;;=^^3^3^2890725^^
;;^UTILITY(U,$J,114,333,"X",1,0)
;;=1) COMBINE FLOUR, SALT, AND PEPPER AND BLEND.
;;^UTILITY(U,$J,114,333,"X",2,0)
;;=2) DREDGE CHICKEN IN FLOUR MIXTURE; SHAKE OFF EXCESS.
;;^UTILITY(U,$J,114,333,"X",3,0)
;;=3) CUT CHICKEN INTO EIGHTHS. FRY CHICKEN UNTIL GOLDEN BROWN.
;;^UTILITY(U,$J,114,334,0)
;;=BLUEBERRIES^50^6-OZ^^^12^3^N^D-4^^C
;;^UTILITY(U,$J,114,334,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,334,"I",1,0)
;;=26^19^1641^19
;;^UTILITY(U,$J,114,334,"X",0)
;;=^^1^1^2890725^^
;;^UTILITY(U,$J,114,334,"X",1,0)
;;=1) PORTION BLUEBERRIES INTO SERVING BOWLS. COVER AND CHILL TO SERVE.
;;^UTILITY(U,$J,114,335,0)
;;=FRENCH FRIED OKRA^100^3.5-OZ^30 MIN^^^9^Y^V-84^^S^^.008
;;^UTILITY(U,$J,114,335,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,335,"E",1,0)
;;=22
;;^UTILITY(U,$J,114,335,"I",0)
;;=^114.01PA^10^8
;;^UTILITY(U,$J,114,335,"I",1,0)
;;=794^18^1370^18
;;^UTILITY(U,$J,114,335,"I",2,0)
;;=628^1.125^1998^1.125
;;^UTILITY(U,$J,114,335,"I",3,0)
;;=230^.15625^1598^.15625
;;^UTILITY(U,$J,114,335,"I",4,0)
;;=734^1^115^.85
;;^UTILITY(U,$J,114,335,"I",5,0)
;;=157^.125^138^.125
;;^UTILITY(U,$J,114,335,"I",6,0)
;;=847^.125^2021
;;^UTILITY(U,$J,114,335,"I",8,0)
;;=377^.03125^2873^.2403125
;;^UTILITY(U,$J,114,335,"I",10,0)
;;=501^2^1057^2
;;^UTILITY(U,$J,114,335,"X",0)
;;=^^7^7^2890725^^
;;^UTILITY(U,$J,114,335,"X",1,0)
;;=1) THAW OKRA.
;;^UTILITY(U,$J,114,335,"X",2,0)
;;=2) COMBINE FLOUR AND SALTAND BLEND. ROLL OKRA IN MIXTURE.
;;^UTILITY(U,$J,114,335,"X",3,0)
;;=3) COMBINE EGGS, MILK, WATER AND SALT. ADD OIL AND WHIP TO A
;;^UTILITY(U,$J,114,335,"X",4,0)
;;= THICK BATTER. DIP FLOURED OKRA IN MIXTURE.
;;^UTILITY(U,$J,114,335,"X",5,0)
;;=4) COMBINE FLOUR AND CORNMEAL AND MIX. ROLL BATTER-DIPPED OKRA
;;^UTILITY(U,$J,114,335,"X",6,0)
;;= IN MIXTURE; SHAKE OFF EXCESS.
;;^UTILITY(U,$J,114,335,"X",7,0)
;;=5) FRY IN DEEP FAT UNTIL CRISP.
;;^UTILITY(U,$J,114,336,0)
;;=PAN FRIED CHICKEN^100^8-OZ RAW^2 HOURS^^1^4^Y^E-222^^S^^.005
;;^UTILITY(U,$J,114,336,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,336,"E",1,0)
;;=25
;;^UTILITY(U,$J,114,336,"I",0)
;;=^114.01PA^8^8
;;^UTILITY(U,$J,114,336,"I",1,0)
;;=628^2^1998^2
;;^UTILITY(U,$J,114,336,"I",2,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,336,"I",3,0)
;;=924^.03125^286^.03125
;;^UTILITY(U,$J,114,336,"I",4,0)
;;=474^50^401^33.5
;;^UTILITY(U,$J,114,336,"I",5,0)
;;=289^.25^363^.25
;;^UTILITY(U,$J,114,336,"I",6,0)
;;=297^2^372^2
;;^UTILITY(U,$J,114,336,"I",7,0)
;;=232^.03125^2789^.03125
;;^UTILITY(U,$J,114,336,"I",8,0)
;;=847^.125^2021
;;^UTILITY(U,$J,114,336,"X",0)
;;=^^6^6^2890725^
;;^UTILITY(U,$J,114,336,"X",1,0)
;;=1) COMBINE AND SIFT FLOUR, SALT, AND PAPRIKA. DREDGE CHICKEN IN SEASONED
;;^UTILITY(U,$J,114,336,"X",2,0)
;;= FLOUR. PAN IN WELL-GREASED PAN (LAY CLOSE TOGETHER).
;;^UTILITY(U,$J,114,336,"X",3,0)
;;=2) BRUSH PANNED CHICKEN, GENEROUSLY, WITH MELTED MARGARINE. BAKE UNTIL
;;^UTILITY(U,$J,114,336,"X",4,0)
;;= CHICKEN IS BROWNED AND COOKED.
;;^UTILITY(U,$J,114,336,"X",5,0)
;;=3) COMBINE TO FORM STOCK. BASTE CHICKEN WITH STOCK FREQUENTLY DURING
;;^UTILITY(U,$J,114,336,"X",6,0)
;;= COOKING.
;;^UTILITY(U,$J,114,337,0)
;;=CHEESE STRATA^64^1-EACH CUT^2.5 HR^^12^4^Y^E-256^^S^^.017
;;^UTILITY(U,$J,114,337,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,337,"E",1,0)
;;=23
;;^UTILITY(U,$J,114,337,"E",2,0)
;;=32
;;^UTILITY(U,$J,114,337,"I",0)
;;=^114.01PA^6^6
;;^UTILITY(U,$J,114,337,"I",1,0)
;;=760^48^823
;;^UTILITY(U,$J,114,337,"I",2,0)
;;=489^4^9^4
;;^UTILITY(U,$J,114,337,"I",3,0)
;;=157^.875^138^.875
;;^UTILITY(U,$J,114,337,"I",4,0)
;;=847^.75^2021
FHINI0JV ; ; 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,332,"X",1,0)
+2 ;;=1) RECONSTITUTE ONIONS
+3 ;;^UTILITY(U,$J,114,332,"X",2,0)
+4 ;;=2) SAUTE ONIONS AND CELERY UNTIL TENDER.
+5 ;;^UTILITY(U,$J,114,332,"X",3,0)
+6 ;;=3) ADD FLOUR, SUGAR AND SEASONINGS TO SAUTED MIXTURE; STIR
+7 ;;^UTILITY(U,$J,114,332,"X",4,0)
+8 ;;= FREQUENTLY TO FORM ROUX.
+9 ;;^UTILITY(U,$J,114,332,"X",5,0)
+10 ;;=4) HEAT TOMATOES. STIR INTO ROUX; MIX TO DISTRIBUTE.
+11 ;;^UTILITY(U,$J,114,332,"X",6,0)
+12 ;;= SIMMER FOR 10 MINUTES.
+13 ;;^UTILITY(U,$J,114,333,0)
+14 ;;=FRIED CHICKEN^100^8-OZ RAW^30 MIN^^1^4^Y^E-218^^S^^.01
+15 ;;^UTILITY(U,$J,114,333,"E",0)
+16 ;;=^114.05P^1^1
+17 ;;^UTILITY(U,$J,114,333,"E",1,0)
+18 ;;=4
+19 ;;^UTILITY(U,$J,114,333,"I",0)
+20 ;;=^114.01PA^4^4
+21 ;;^UTILITY(U,$J,114,333,"I",1,0)
+22 ;;=628^5^1998^5
+23 ;;^UTILITY(U,$J,114,333,"I",2,0)
+24 ;;=230^.375^1598^.375
+25 ;;^UTILITY(U,$J,114,333,"I",3,0)
+26 ;;=192^.0625^288^.0625
+27 ;;^UTILITY(U,$J,114,333,"I",4,0)
+28 ;;=884^50^401^33.5
+29 ;;^UTILITY(U,$J,114,333,"X",0)
+30 ;;=^^3^3^2890725^^
+31 ;;^UTILITY(U,$J,114,333,"X",1,0)
+32 ;;=1) COMBINE FLOUR, SALT, AND PEPPER AND BLEND.
+33 ;;^UTILITY(U,$J,114,333,"X",2,0)
+34 ;;=2) DREDGE CHICKEN IN FLOUR MIXTURE; SHAKE OFF EXCESS.
+35 ;;^UTILITY(U,$J,114,333,"X",3,0)
+36 ;;=3) CUT CHICKEN INTO EIGHTHS. FRY CHICKEN UNTIL GOLDEN BROWN.
+37 ;;^UTILITY(U,$J,114,334,0)
+38 ;;=BLUEBERRIES^50^6-OZ^^^12^3^N^D-4^^C
+39 ;;^UTILITY(U,$J,114,334,"I",0)
+40 ;;=^114.01PA^1^1
+41 ;;^UTILITY(U,$J,114,334,"I",1,0)
+42 ;;=26^19^1641^19
+43 ;;^UTILITY(U,$J,114,334,"X",0)
+44 ;;=^^1^1^2890725^^
+45 ;;^UTILITY(U,$J,114,334,"X",1,0)
+46 ;;=1) PORTION BLUEBERRIES INTO SERVING BOWLS. COVER AND CHILL TO SERVE.
+47 ;;^UTILITY(U,$J,114,335,0)
+48 ;;=FRENCH FRIED OKRA^100^3.5-OZ^30 MIN^^^9^Y^V-84^^S^^.008
+49 ;;^UTILITY(U,$J,114,335,"E",0)
+50 ;;=^114.05P^1^1
+51 ;;^UTILITY(U,$J,114,335,"E",1,0)
+52 ;;=22
+53 ;;^UTILITY(U,$J,114,335,"I",0)
+54 ;;=^114.01PA^10^8
+55 ;;^UTILITY(U,$J,114,335,"I",1,0)
+56 ;;=794^18^1370^18
+57 ;;^UTILITY(U,$J,114,335,"I",2,0)
+58 ;;=628^1.125^1998^1.125
+59 ;;^UTILITY(U,$J,114,335,"I",3,0)
+60 ;;=230^.15625^1598^.15625
+61 ;;^UTILITY(U,$J,114,335,"I",4,0)
+62 ;;=734^1^115^.85
+63 ;;^UTILITY(U,$J,114,335,"I",5,0)
+64 ;;=157^.125^138^.125
+65 ;;^UTILITY(U,$J,114,335,"I",6,0)
+66 ;;=847^.125^2021
+67 ;;^UTILITY(U,$J,114,335,"I",8,0)
+68 ;;=377^.03125^2873^.2403125
+69 ;;^UTILITY(U,$J,114,335,"I",10,0)
+70 ;;=501^2^1057^2
+71 ;;^UTILITY(U,$J,114,335,"X",0)
+72 ;;=^^7^7^2890725^^
+73 ;;^UTILITY(U,$J,114,335,"X",1,0)
+74 ;;=1) THAW OKRA.
+75 ;;^UTILITY(U,$J,114,335,"X",2,0)
+76 ;;=2) COMBINE FLOUR AND SALTAND BLEND. ROLL OKRA IN MIXTURE.
+77 ;;^UTILITY(U,$J,114,335,"X",3,0)
+78 ;;=3) COMBINE EGGS, MILK, WATER AND SALT. ADD OIL AND WHIP TO A
+79 ;;^UTILITY(U,$J,114,335,"X",4,0)
+80 ;;= THICK BATTER. DIP FLOURED OKRA IN MIXTURE.
+81 ;;^UTILITY(U,$J,114,335,"X",5,0)
+82 ;;=4) COMBINE FLOUR AND CORNMEAL AND MIX. ROLL BATTER-DIPPED OKRA
+83 ;;^UTILITY(U,$J,114,335,"X",6,0)
+84 ;;= IN MIXTURE; SHAKE OFF EXCESS.
+85 ;;^UTILITY(U,$J,114,335,"X",7,0)
+86 ;;=5) FRY IN DEEP FAT UNTIL CRISP.
+87 ;;^UTILITY(U,$J,114,336,0)
+88 ;;=PAN FRIED CHICKEN^100^8-OZ RAW^2 HOURS^^1^4^Y^E-222^^S^^.005
+89 ;;^UTILITY(U,$J,114,336,"E",0)
+90 ;;=^114.05P^1^1
+91 ;;^UTILITY(U,$J,114,336,"E",1,0)
+92 ;;=25
+93 ;;^UTILITY(U,$J,114,336,"I",0)
+94 ;;=^114.01PA^8^8
+95 ;;^UTILITY(U,$J,114,336,"I",1,0)
+96 ;;=628^2^1998^2
+97 ;;^UTILITY(U,$J,114,336,"I",2,0)
+98 ;;=230^.1875^1598^.1875
+99 ;;^UTILITY(U,$J,114,336,"I",3,0)
+100 ;;=924^.03125^286^.03125
+101 ;;^UTILITY(U,$J,114,336,"I",4,0)
+102 ;;=474^50^401^33.5
+103 ;;^UTILITY(U,$J,114,336,"I",5,0)
+104 ;;=289^.25^363^.25
+105 ;;^UTILITY(U,$J,114,336,"I",6,0)
+106 ;;=297^2^372^2
+107 ;;^UTILITY(U,$J,114,336,"I",7,0)
+108 ;;=232^.03125^2789^.03125
+109 ;;^UTILITY(U,$J,114,336,"I",8,0)
+110 ;;=847^.125^2021
+111 ;;^UTILITY(U,$J,114,336,"X",0)
+112 ;;=^^6^6^2890725^
+113 ;;^UTILITY(U,$J,114,336,"X",1,0)
+114 ;;=1) COMBINE AND SIFT FLOUR, SALT, AND PAPRIKA. DREDGE CHICKEN IN SEASONED
+115 ;;^UTILITY(U,$J,114,336,"X",2,0)
+116 ;;= FLOUR. PAN IN WELL-GREASED PAN (LAY CLOSE TOGETHER).
+117 ;;^UTILITY(U,$J,114,336,"X",3,0)
+118 ;;=2) BRUSH PANNED CHICKEN, GENEROUSLY, WITH MELTED MARGARINE. BAKE UNTIL
+119 ;;^UTILITY(U,$J,114,336,"X",4,0)
+120 ;;= CHICKEN IS BROWNED AND COOKED.
+121 ;;^UTILITY(U,$J,114,336,"X",5,0)
+122 ;;=3) COMBINE TO FORM STOCK. BASTE CHICKEN WITH STOCK FREQUENTLY DURING
+123 ;;^UTILITY(U,$J,114,336,"X",6,0)
+124 ;;= COOKING.
+125 ;;^UTILITY(U,$J,114,337,0)
+126 ;;=CHEESE STRATA^64^1-EACH CUT^2.5 HR^^12^4^Y^E-256^^S^^.017
+127 ;;^UTILITY(U,$J,114,337,"E",0)
+128 ;;=^114.05P^2^2
+129 ;;^UTILITY(U,$J,114,337,"E",1,0)
+130 ;;=23
+131 ;;^UTILITY(U,$J,114,337,"E",2,0)
+132 ;;=32
+133 ;;^UTILITY(U,$J,114,337,"I",0)
+134 ;;=^114.01PA^6^6
+135 ;;^UTILITY(U,$J,114,337,"I",1,0)
+136 ;;=760^48^823
+137 ;;^UTILITY(U,$J,114,337,"I",2,0)
+138 ;;=489^4^9^4
+139 ;;^UTILITY(U,$J,114,337,"I",3,0)
+140 ;;=157^.875^138^.875
+141 ;;^UTILITY(U,$J,114,337,"I",4,0)
+142 ;;=847^.75^2021
