FHINI0JH ; ; 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,287,"I",0)
;;=^114.01PA^4^4
;;^UTILITY(U,$J,114,287,"I",1,0)
;;=765^11^934^9.79
;;^UTILITY(U,$J,114,287,"I",2,0)
;;=255^.75^1905^.75
;;^UTILITY(U,$J,114,287,"I",3,0)
;;=297^.5^372^.5
;;^UTILITY(U,$J,114,287,"I",4,0)
;;=230^.05208^1598^.05208
;;^UTILITY(U,$J,114,287,"X",0)
;;=^^7^7^2890725^
;;^UTILITY(U,$J,114,287,"X",1,0)
;;=1) STEAM CARROTS UNTIL PARTIALLY TENDER. DRAIN AND RESERVE LIQUID.
;;^UTILITY(U,$J,114,287,"X",2,0)
;;=2) ARRANGE COOKED CARROTS IN PAN.
;;^UTILITY(U,$J,114,287,"X",3,0)
;;=3) COMBINE SUGAR AND SOME DRAINED LIQUID AND COOK UNTIL
;;^UTILITY(U,$J,114,287,"X",4,0)
;;= THIN SIRUP IS FORMED.
;;^UTILITY(U,$J,114,287,"X",5,0)
;;=4) ADD MARGARINE AND SALT TO SIRUP AND BLEND.
;;^UTILITY(U,$J,114,287,"X",6,0)
;;=5) POUR OVER PANNED CARROTS. BAKE UNTIL CARROTS ARE TENDER
;;^UTILITY(U,$J,114,287,"X",7,0)
;;= AND GLAZED, BASTING FREQUENTLY.
;;^UTILITY(U,$J,114,288,0)
;;=LO SOD/LO PRO PORK CHOPS/SYRUP^9^1-EACH^1/2 HR^^1^4^Y^E-169^^S^^.014
;;^UTILITY(U,$J,114,288,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,288,"E",1,0)
;;=2
;;^UTILITY(U,$J,114,288,"I",0)
;;=^114.01PA^8^8
;;^UTILITY(U,$J,114,288,"I",1,0)
;;=504^2^161^1.62
;;^UTILITY(U,$J,114,288,"I",2,0)
;;=502
;;^UTILITY(U,$J,114,288,"I",3,0)
;;=1011^.01042^284^.01042
;;^UTILITY(U,$J,114,288,"I",4,0)
;;=192^.01042^288^.01042
;;^UTILITY(U,$J,114,288,"I",5,0)
;;=377^.01563^2873^.1201947
;;^UTILITY(U,$J,114,288,"I",6,0)
;;=848^.00781^1708^.06722067
;;^UTILITY(U,$J,114,288,"I",7,0)
;;=258^.01172^1835^.1250524
;;^UTILITY(U,$J,114,288,"I",8,0)
;;=847^.01563^2021
;;^UTILITY(U,$J,114,288,"X",0)
;;=^^6^6^2890725^
;;^UTILITY(U,$J,114,288,"X",1,0)
;;=1) SPRINKLE PORK CHOPS WITH ONION POWDER AND PEPPER. SAUTE CHOPS IN
;;^UTILITY(U,$J,114,288,"X",2,0)
;;= OIL UNTIL BROWNED. PAN PORK CHOPS INTO SMALL BAKING PAN.
;;^UTILITY(U,$J,114,288,"X",3,0)
;;=2) COMBINE LEMON JUICE, SYRUP AND WATER. ADD DRIPPINGS FROM SKILLET
;;^UTILITY(U,$J,114,288,"X",4,0)
;;= AND BLEND THOROUGHLY. POUR OVER PORK CHOPS, COVER AND BAKE AT
;;^UTILITY(U,$J,114,288,"X",5,0)
;;= 450 F DEGREES FOR 25 MINUTES. REDUCE HEAT TO 350 F DEGREES AND
;;^UTILITY(U,$J,114,288,"X",6,0)
;;= CONTINUE BAKING FOR 10 MINUTES OR UNTIL DONE.
;;^UTILITY(U,$J,114,289,0)
;;=BLAND LS SALISBURY STEAK^100^1-EACH^2HR^^12^4^Y^E-75^^S^^.043
;;^UTILITY(U,$J,114,289,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,289,"E",1,0)
;;=26
;;^UTILITY(U,$J,114,289,"E",2,0)
;;=5
;;^UTILITY(U,$J,114,289,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,289,"I",1,0)
;;=986^.46875^6011^.46875
;;^UTILITY(U,$J,114,289,"I",2,0)
;;=847^.40625^2021
;;^UTILITY(U,$J,114,289,"I",3,0)
;;=813^17^6502
;;^UTILITY(U,$J,114,289,"I",4,0)
;;=22^18.75^2167^18.75
;;^UTILITY(U,$J,114,289,"I",5,0)
;;=734^1^115^.85
;;^UTILITY(U,$J,114,289,"X",0)
;;=^^10^10^2890725^^^^
;;^UTILITY(U,$J,114,289,"X",1,0)
;;=1) RECONSTITUTE LONALAC POWDER WITH WATER.
;;^UTILITY(U,$J,114,289,"X",2,0)
;;=2) ADD MILK TO LS BREAD (CUBED) ; LET STAND 5 MINUTES.
;;^UTILITY(U,$J,114,289,"X",3,0)
;;=3) COMBINE BEEF AND EGGS TOGETHER WITH MOISTENED LS BREAD AND MIX TO
;;^UTILITY(U,$J,114,289,"X",4,0)
;;= DISTRIBUTE. DO NOT OVERMIX.
;;^UTILITY(U,$J,114,289,"X",5,0)
;;=4) SHAPE INTO OVAL 4 OZ PATTIES (USING NO.10 SCOOP OR PATTY MACHINE).
;;^UTILITY(U,$J,114,289,"X",6,0)
;;= PLACE ON LIGHTLY GREASED BAKING SHEETS. BAKE AT 325F FOR 45
;;^UTILITY(U,$J,114,289,"X",7,0)
;;= MINUTES IN OVEN 0R 350F.
;;^UTILITY(U,$J,114,289,"X",8,0)
;;=
;;^UTILITY(U,$J,114,289,"X",9,0)
;;= NOTE: PATTIES MAY BE COOKED ON GRIDDLE (350F) FOR 10 MINUTES
;;^UTILITY(U,$J,114,289,"X",10,0)
;;= ON EACH SIDE OR UNITL DONE.
;;^UTILITY(U,$J,114,290,0)
;;=CHICKEN CACCIATORE^100^8-OZ RAW^2HR 25 MIN^^12^4^Y^E-209^^S^^.106
;;^UTILITY(U,$J,114,290,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,290,"E",1,0)
;;=25
;;^UTILITY(U,$J,114,290,"E",2,0)
;;=33
;;^UTILITY(U,$J,114,290,"I",0)
;;=^114.01PA^22^17
;;^UTILITY(U,$J,114,290,"I",1,0)
;;=963^2.5^212^2.5
;;^UTILITY(U,$J,114,290,"I",2,0)
;;=725^.09375^1384^.09375
;;^UTILITY(U,$J,114,290,"I",3,0)
;;=403^.21875
;;^UTILITY(U,$J,114,290,"I",4,0)
;;=847^.3125^2021
;;^UTILITY(U,$J,114,290,"I",5,0)
;;=534^1^1346^1
;;^UTILITY(U,$J,114,290,"I",6,0)
;;=196^1.75^1484^1.75
;;^UTILITY(U,$J,114,290,"I",7,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,290,"I",8,0)
;;=192^.03125^288^.03125
;;^UTILITY(U,$J,114,290,"I",9,0)
;;=924^.125^286^.125
;;^UTILITY(U,$J,114,290,"I",10,0)
;;=176^.0625^287^.0625
;;^UTILITY(U,$J,114,290,"I",11,0)
;;=173^.01563^285^.01563
FHINI0JH ; ; 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,287,"I",0)
+2 ;;=^114.01PA^4^4
+3 ;;^UTILITY(U,$J,114,287,"I",1,0)
+4 ;;=765^11^934^9.79
+5 ;;^UTILITY(U,$J,114,287,"I",2,0)
+6 ;;=255^.75^1905^.75
+7 ;;^UTILITY(U,$J,114,287,"I",3,0)
+8 ;;=297^.5^372^.5
+9 ;;^UTILITY(U,$J,114,287,"I",4,0)
+10 ;;=230^.05208^1598^.05208
+11 ;;^UTILITY(U,$J,114,287,"X",0)
+12 ;;=^^7^7^2890725^
+13 ;;^UTILITY(U,$J,114,287,"X",1,0)
+14 ;;=1) STEAM CARROTS UNTIL PARTIALLY TENDER. DRAIN AND RESERVE LIQUID.
+15 ;;^UTILITY(U,$J,114,287,"X",2,0)
+16 ;;=2) ARRANGE COOKED CARROTS IN PAN.
+17 ;;^UTILITY(U,$J,114,287,"X",3,0)
+18 ;;=3) COMBINE SUGAR AND SOME DRAINED LIQUID AND COOK UNTIL
+19 ;;^UTILITY(U,$J,114,287,"X",4,0)
+20 ;;= THIN SIRUP IS FORMED.
+21 ;;^UTILITY(U,$J,114,287,"X",5,0)
+22 ;;=4) ADD MARGARINE AND SALT TO SIRUP AND BLEND.
+23 ;;^UTILITY(U,$J,114,287,"X",6,0)
+24 ;;=5) POUR OVER PANNED CARROTS. BAKE UNTIL CARROTS ARE TENDER
+25 ;;^UTILITY(U,$J,114,287,"X",7,0)
+26 ;;= AND GLAZED, BASTING FREQUENTLY.
+27 ;;^UTILITY(U,$J,114,288,0)
+28 ;;=LO SOD/LO PRO PORK CHOPS/SYRUP^9^1-EACH^1/2 HR^^1^4^Y^E-169^^S^^.014
+29 ;;^UTILITY(U,$J,114,288,"E",0)
+30 ;;=^114.05P^1^1
+31 ;;^UTILITY(U,$J,114,288,"E",1,0)
+32 ;;=2
+33 ;;^UTILITY(U,$J,114,288,"I",0)
+34 ;;=^114.01PA^8^8
+35 ;;^UTILITY(U,$J,114,288,"I",1,0)
+36 ;;=504^2^161^1.62
+37 ;;^UTILITY(U,$J,114,288,"I",2,0)
+38 ;;=502
+39 ;;^UTILITY(U,$J,114,288,"I",3,0)
+40 ;;=1011^.01042^284^.01042
+41 ;;^UTILITY(U,$J,114,288,"I",4,0)
+42 ;;=192^.01042^288^.01042
+43 ;;^UTILITY(U,$J,114,288,"I",5,0)
+44 ;;=377^.01563^2873^.1201947
+45 ;;^UTILITY(U,$J,114,288,"I",6,0)
+46 ;;=848^.00781^1708^.06722067
+47 ;;^UTILITY(U,$J,114,288,"I",7,0)
+48 ;;=258^.01172^1835^.1250524
+49 ;;^UTILITY(U,$J,114,288,"I",8,0)
+50 ;;=847^.01563^2021
+51 ;;^UTILITY(U,$J,114,288,"X",0)
+52 ;;=^^6^6^2890725^
+53 ;;^UTILITY(U,$J,114,288,"X",1,0)
+54 ;;=1) SPRINKLE PORK CHOPS WITH ONION POWDER AND PEPPER. SAUTE CHOPS IN
+55 ;;^UTILITY(U,$J,114,288,"X",2,0)
+56 ;;= OIL UNTIL BROWNED. PAN PORK CHOPS INTO SMALL BAKING PAN.
+57 ;;^UTILITY(U,$J,114,288,"X",3,0)
+58 ;;=2) COMBINE LEMON JUICE, SYRUP AND WATER. ADD DRIPPINGS FROM SKILLET
+59 ;;^UTILITY(U,$J,114,288,"X",4,0)
+60 ;;= AND BLEND THOROUGHLY. POUR OVER PORK CHOPS, COVER AND BAKE AT
+61 ;;^UTILITY(U,$J,114,288,"X",5,0)
+62 ;;= 450 F DEGREES FOR 25 MINUTES. REDUCE HEAT TO 350 F DEGREES AND
+63 ;;^UTILITY(U,$J,114,288,"X",6,0)
+64 ;;= CONTINUE BAKING FOR 10 MINUTES OR UNTIL DONE.
+65 ;;^UTILITY(U,$J,114,289,0)
+66 ;;=BLAND LS SALISBURY STEAK^100^1-EACH^2HR^^12^4^Y^E-75^^S^^.043
+67 ;;^UTILITY(U,$J,114,289,"E",0)
+68 ;;=^114.05P^2^2
+69 ;;^UTILITY(U,$J,114,289,"E",1,0)
+70 ;;=26
+71 ;;^UTILITY(U,$J,114,289,"E",2,0)
+72 ;;=5
+73 ;;^UTILITY(U,$J,114,289,"I",0)
+74 ;;=^114.01PA^5^5
+75 ;;^UTILITY(U,$J,114,289,"I",1,0)
+76 ;;=986^.46875^6011^.46875
+77 ;;^UTILITY(U,$J,114,289,"I",2,0)
+78 ;;=847^.40625^2021
+79 ;;^UTILITY(U,$J,114,289,"I",3,0)
+80 ;;=813^17^6502
+81 ;;^UTILITY(U,$J,114,289,"I",4,0)
+82 ;;=22^18.75^2167^18.75
+83 ;;^UTILITY(U,$J,114,289,"I",5,0)
+84 ;;=734^1^115^.85
+85 ;;^UTILITY(U,$J,114,289,"X",0)
+86 ;;=^^10^10^2890725^^^^
+87 ;;^UTILITY(U,$J,114,289,"X",1,0)
+88 ;;=1) RECONSTITUTE LONALAC POWDER WITH WATER.
+89 ;;^UTILITY(U,$J,114,289,"X",2,0)
+90 ;;=2) ADD MILK TO LS BREAD (CUBED) ; LET STAND 5 MINUTES.
+91 ;;^UTILITY(U,$J,114,289,"X",3,0)
+92 ;;=3) COMBINE BEEF AND EGGS TOGETHER WITH MOISTENED LS BREAD AND MIX TO
+93 ;;^UTILITY(U,$J,114,289,"X",4,0)
+94 ;;= DISTRIBUTE. DO NOT OVERMIX.
+95 ;;^UTILITY(U,$J,114,289,"X",5,0)
+96 ;;=4) SHAPE INTO OVAL 4 OZ PATTIES (USING NO.10 SCOOP OR PATTY MACHINE).
+97 ;;^UTILITY(U,$J,114,289,"X",6,0)
+98 ;;= PLACE ON LIGHTLY GREASED BAKING SHEETS. BAKE AT 325F FOR 45
+99 ;;^UTILITY(U,$J,114,289,"X",7,0)
+100 ;;= MINUTES IN OVEN 0R 350F.
+101 ;;^UTILITY(U,$J,114,289,"X",8,0)
+102 ;;=
+103 ;;^UTILITY(U,$J,114,289,"X",9,0)
+104 ;;= NOTE: PATTIES MAY BE COOKED ON GRIDDLE (350F) FOR 10 MINUTES
+105 ;;^UTILITY(U,$J,114,289,"X",10,0)
+106 ;;= ON EACH SIDE OR UNITL DONE.
+107 ;;^UTILITY(U,$J,114,290,0)
+108 ;;=CHICKEN CACCIATORE^100^8-OZ RAW^2HR 25 MIN^^12^4^Y^E-209^^S^^.106
+109 ;;^UTILITY(U,$J,114,290,"E",0)
+110 ;;=^114.05P^2^2
+111 ;;^UTILITY(U,$J,114,290,"E",1,0)
+112 ;;=25
+113 ;;^UTILITY(U,$J,114,290,"E",2,0)
+114 ;;=33
+115 ;;^UTILITY(U,$J,114,290,"I",0)
+116 ;;=^114.01PA^22^17
+117 ;;^UTILITY(U,$J,114,290,"I",1,0)
+118 ;;=963^2.5^212^2.5
+119 ;;^UTILITY(U,$J,114,290,"I",2,0)
+120 ;;=725^.09375^1384^.09375
+121 ;;^UTILITY(U,$J,114,290,"I",3,0)
+122 ;;=403^.21875
+123 ;;^UTILITY(U,$J,114,290,"I",4,0)
+124 ;;=847^.3125^2021
+125 ;;^UTILITY(U,$J,114,290,"I",5,0)
+126 ;;=534^1^1346^1
+127 ;;^UTILITY(U,$J,114,290,"I",6,0)
+128 ;;=196^1.75^1484^1.75
+129 ;;^UTILITY(U,$J,114,290,"I",7,0)
+130 ;;=230^.1875^1598^.1875
+131 ;;^UTILITY(U,$J,114,290,"I",8,0)
+132 ;;=192^.03125^288^.03125
+133 ;;^UTILITY(U,$J,114,290,"I",9,0)
+134 ;;=924^.125^286^.125
+135 ;;^UTILITY(U,$J,114,290,"I",10,0)
+136 ;;=176^.0625^287^.0625
+137 ;;^UTILITY(U,$J,114,290,"I",11,0)
+138 ;;=173^.01563^285^.01563
