FHINI0IJ ; ; 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,132,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,132,"I",1,0)
;;=413^3.125^1660^27.865625
;;^UTILITY(U,$J,114,132,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,132,"X",1,0)
;;=PORTION INTO 1/2 CUP SERVING.
;;^UTILITY(U,$J,114,133,0)
;;=CASSEROLE CREOLE^100^6-OZ^2 HR 5 MIN^^10^4^Y^E-34^^S^^.076
;;^UTILITY(U,$J,114,133,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,133,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,133,"E",2,0)
;;=22
;;^UTILITY(U,$J,114,133,"I",0)
;;=^114.01PA^15^14
;;^UTILITY(U,$J,114,133,"I",1,0)
;;=166^5^1363^5
;;^UTILITY(U,$J,114,133,"I",2,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,133,"I",3,0)
;;=847^1^2021
;;^UTILITY(U,$J,114,133,"I",4,0)
;;=1008^.0625
;;^UTILITY(U,$J,114,133,"I",5,0)
;;=725^.04688^1384^.04688
;;^UTILITY(U,$J,114,133,"I",6,0)
;;=1005^.04688^2021^.3919168
;;^UTILITY(U,$J,114,133,"I",7,0)
;;=22^12.5^2167^12.5
;;^UTILITY(U,$J,114,133,"I",8,0)
;;=593^13.125^1950^13.125
;;^UTILITY(U,$J,114,133,"I",9,0)
;;=77^.03125^267^.03125
;;^UTILITY(U,$J,114,133,"I",11,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,133,"I",12,0)
;;=235^.1875
;;^UTILITY(U,$J,114,133,"I",13,0)
;;=1006^.75^2021^6.27
;;^UTILITY(U,$J,114,133,"I",14,0)
;;=297^.125^372^.125
;;^UTILITY(U,$J,114,133,"I",15,0)
;;=489^2.5^9^2.5
;;^UTILITY(U,$J,114,133,"X",0)
;;=^^11^11^2890815^^^^
;;^UTILITY(U,$J,114,133,"X",1,0)
;;=1) COOK NOODLES IN 6 GALLONS OF BOILING SALTED WATER FOR 10 MINUTES.
;;^UTILITY(U,$J,114,133,"X",2,0)
;;= DRAIN AND RETAIN FOR LATER.
;;^UTILITY(U,$J,114,133,"X",3,0)
;;=2) RECONSTITUTE VEGETABLES WITH COLD WATER.
;;^UTILITY(U,$J,114,133,"X",4,0)
;;=3) BRAISE ONIONS AND PEPPERS IN DRIPPINGS UNTIL ONIONS ARE CLEAR. REMOVE
;;^UTILITY(U,$J,114,133,"X",5,0)
;;= VEGETABLES FROM FAT.
;;^UTILITY(U,$J,114,133,"X",6,0)
;;=4) ADD MEAT TO HOT DRIPPINGS FROM STEP 3. AND ADD TO MEAT. SIMMER UNTIL
;;^UTILITY(U,$J,114,133,"X",7,0)
;;= MIXTURE IS BLENDED..
;;^UTILITY(U,$J,114,133,"X",8,0)
;;=5) RECONSTITUTE BASE WITH HOT WATER AND ADD TO COOKED MIXTURE.
;;^UTILITY(U,$J,114,133,"X",9,0)
;;= ADD COOKED NOODLES FROM STEP 1. STIR TO DISTRIBUTE.
;;^UTILITY(U,$J,114,133,"X",10,0)
;;=6) SCALE MIXTURE INTO WELL-GREASED PANS. TOP EACH PAN WITH CHEESE.
;;^UTILITY(U,$J,114,133,"X",11,0)
;;=7) BAKE UNTIL HEATED THROUGH AND CHEESE IS MELTED.
;;^UTILITY(U,$J,114,134,0)
;;=LS COTTAGE FRIED HASH BROWNS^100^3-OZ^30 MIN^^^7^Y^P-7^^S^^.001
;;^UTILITY(U,$J,114,134,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,134,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,134,"I",0)
;;=^114.01PA^3^3
;;^UTILITY(U,$J,114,134,"I",1,0)
;;=871^32^1506^32
;;^UTILITY(U,$J,114,134,"I",2,0)
;;=286^1.5^394^1.5
;;^UTILITY(U,$J,114,134,"I",3,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,134,"X",0)
;;=^^4^4^2890724^
;;^UTILITY(U,$J,114,134,"X",1,0)
;;=1) STEAM POTATOES UNTIL JUST TENDER. DRAIN THOROUGHLY AND CHILL.
;;^UTILITY(U,$J,114,134,"X",2,0)
;;=2) SPREAD LAYER OF COOKED POTATOES OVER WELL-GREASED GRILL.
;;^UTILITY(U,$J,114,134,"X",3,0)
;;= COOK UNTIL GOLDEN BROWN ON BOTH SIDES.
;;^UTILITY(U,$J,114,134,"X",4,0)
;;=3) SEASON BROWNED POTATOES.
;;^UTILITY(U,$J,114,135,0)
;;=CHICKEN NOODLE SOUP^100^6-FLOZ^75 MIN^^10^10^Y^A-70^^S^^.02
;;^UTILITY(U,$J,114,135,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,135,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,135,"I",0)
;;=^114.01PA^7^7
;;^UTILITY(U,$J,114,135,"I",1,0)
;;=232^1.25^2789^1.25
;;^UTILITY(U,$J,114,135,"I",2,0)
;;=847^5^2021
;;^UTILITY(U,$J,114,135,"I",3,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,135,"I",4,0)
;;=725^.0625^1384^.0625
;;^UTILITY(U,$J,114,135,"I",5,0)
;;=776^1^951^1
;;^UTILITY(U,$J,114,135,"I",6,0)
;;=866^1^935^1
;;^UTILITY(U,$J,114,135,"I",7,0)
;;=166^1.5^1363^1.5
;;^UTILITY(U,$J,114,135,"X",0)
;;=^^3^3^2890724^
;;^UTILITY(U,$J,114,135,"X",1,0)
;;=1) COMBINE BASE AND WATER.
;;^UTILITY(U,$J,114,135,"X",2,0)
;;=2) ADD SALT AND VEGETABLES. SIMMER 20 MINUTES. STRAIN VEGETABLES FROM STOCK.
;;^UTILITY(U,$J,114,135,"X",3,0)
;;=3) ADD NOODLES AND SIMMER 20-30 MINUTES OR UNTIL TENDER.
;;^UTILITY(U,$J,114,136,0)
;;=CREAMED POTATOES^100^4-OZ^25 MIN^^^7^Y^P-8^^S^^.013
;;^UTILITY(U,$J,114,136,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,136,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,136,"I",0)
;;=^114.01PA^7^7
;;^UTILITY(U,$J,114,136,"I",1,0)
;;=871^20^1506^20
;;^UTILITY(U,$J,114,136,"I",2,0)
;;=297^.75^372^.75
;;^UTILITY(U,$J,114,136,"I",3,0)
;;=628^.5625^1998^.5625
;;^UTILITY(U,$J,114,136,"I",4,0)
;;=157^1.17188^138^1.17188
;;^UTILITY(U,$J,114,136,"I",5,0)
;;=847^1.15625^2021
FHINI0IJ ; ; 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,132,"I",0)
+2 ;;=^114.01PA^1^1
+3 ;;^UTILITY(U,$J,114,132,"I",1,0)
+4 ;;=413^3.125^1660^27.865625
+5 ;;^UTILITY(U,$J,114,132,"X",0)
+6 ;;=^^1^1^2890801^^
+7 ;;^UTILITY(U,$J,114,132,"X",1,0)
+8 ;;=PORTION INTO 1/2 CUP SERVING.
+9 ;;^UTILITY(U,$J,114,133,0)
+10 ;;=CASSEROLE CREOLE^100^6-OZ^2 HR 5 MIN^^10^4^Y^E-34^^S^^.076
+11 ;;^UTILITY(U,$J,114,133,"E",0)
+12 ;;=^114.05P^2^2
+13 ;;^UTILITY(U,$J,114,133,"E",1,0)
+14 ;;=5
+15 ;;^UTILITY(U,$J,114,133,"E",2,0)
+16 ;;=22
+17 ;;^UTILITY(U,$J,114,133,"I",0)
+18 ;;=^114.01PA^15^14
+19 ;;^UTILITY(U,$J,114,133,"I",1,0)
+20 ;;=166^5^1363^5
+21 ;;^UTILITY(U,$J,114,133,"I",2,0)
+22 ;;=230^.1875^1598^.1875
+23 ;;^UTILITY(U,$J,114,133,"I",3,0)
+24 ;;=847^1^2021
+25 ;;^UTILITY(U,$J,114,133,"I",4,0)
+26 ;;=1008^.0625
+27 ;;^UTILITY(U,$J,114,133,"I",5,0)
+28 ;;=725^.04688^1384^.04688
+29 ;;^UTILITY(U,$J,114,133,"I",6,0)
+30 ;;=1005^.04688^2021^.3919168
+31 ;;^UTILITY(U,$J,114,133,"I",7,0)
+32 ;;=22^12.5^2167^12.5
+33 ;;^UTILITY(U,$J,114,133,"I",8,0)
+34 ;;=593^13.125^1950^13.125
+35 ;;^UTILITY(U,$J,114,133,"I",9,0)
+36 ;;=77^.03125^267^.03125
+37 ;;^UTILITY(U,$J,114,133,"I",11,0)
+38 ;;=192^.01563^288^.01563
+39 ;;^UTILITY(U,$J,114,133,"I",12,0)
+40 ;;=235^.1875
+41 ;;^UTILITY(U,$J,114,133,"I",13,0)
+42 ;;=1006^.75^2021^6.27
+43 ;;^UTILITY(U,$J,114,133,"I",14,0)
+44 ;;=297^.125^372^.125
+45 ;;^UTILITY(U,$J,114,133,"I",15,0)
+46 ;;=489^2.5^9^2.5
+47 ;;^UTILITY(U,$J,114,133,"X",0)
+48 ;;=^^11^11^2890815^^^^
+49 ;;^UTILITY(U,$J,114,133,"X",1,0)
+50 ;;=1) COOK NOODLES IN 6 GALLONS OF BOILING SALTED WATER FOR 10 MINUTES.
+51 ;;^UTILITY(U,$J,114,133,"X",2,0)
+52 ;;= DRAIN AND RETAIN FOR LATER.
+53 ;;^UTILITY(U,$J,114,133,"X",3,0)
+54 ;;=2) RECONSTITUTE VEGETABLES WITH COLD WATER.
+55 ;;^UTILITY(U,$J,114,133,"X",4,0)
+56 ;;=3) BRAISE ONIONS AND PEPPERS IN DRIPPINGS UNTIL ONIONS ARE CLEAR. REMOVE
+57 ;;^UTILITY(U,$J,114,133,"X",5,0)
+58 ;;= VEGETABLES FROM FAT.
+59 ;;^UTILITY(U,$J,114,133,"X",6,0)
+60 ;;=4) ADD MEAT TO HOT DRIPPINGS FROM STEP 3. AND ADD TO MEAT. SIMMER UNTIL
+61 ;;^UTILITY(U,$J,114,133,"X",7,0)
+62 ;;= MIXTURE IS BLENDED..
+63 ;;^UTILITY(U,$J,114,133,"X",8,0)
+64 ;;=5) RECONSTITUTE BASE WITH HOT WATER AND ADD TO COOKED MIXTURE.
+65 ;;^UTILITY(U,$J,114,133,"X",9,0)
+66 ;;= ADD COOKED NOODLES FROM STEP 1. STIR TO DISTRIBUTE.
+67 ;;^UTILITY(U,$J,114,133,"X",10,0)
+68 ;;=6) SCALE MIXTURE INTO WELL-GREASED PANS. TOP EACH PAN WITH CHEESE.
+69 ;;^UTILITY(U,$J,114,133,"X",11,0)
+70 ;;=7) BAKE UNTIL HEATED THROUGH AND CHEESE IS MELTED.
+71 ;;^UTILITY(U,$J,114,134,0)
+72 ;;=LS COTTAGE FRIED HASH BROWNS^100^3-OZ^30 MIN^^^7^Y^P-7^^S^^.001
+73 ;;^UTILITY(U,$J,114,134,"E",0)
+74 ;;=^114.05P^1^1
+75 ;;^UTILITY(U,$J,114,134,"E",1,0)
+76 ;;=6
+77 ;;^UTILITY(U,$J,114,134,"I",0)
+78 ;;=^114.01PA^3^3
+79 ;;^UTILITY(U,$J,114,134,"I",1,0)
+80 ;;=871^32^1506^32
+81 ;;^UTILITY(U,$J,114,134,"I",2,0)
+82 ;;=286^1.5^394^1.5
+83 ;;^UTILITY(U,$J,114,134,"I",3,0)
+84 ;;=192^.01563^288^.01563
+85 ;;^UTILITY(U,$J,114,134,"X",0)
+86 ;;=^^4^4^2890724^
+87 ;;^UTILITY(U,$J,114,134,"X",1,0)
+88 ;;=1) STEAM POTATOES UNTIL JUST TENDER. DRAIN THOROUGHLY AND CHILL.
+89 ;;^UTILITY(U,$J,114,134,"X",2,0)
+90 ;;=2) SPREAD LAYER OF COOKED POTATOES OVER WELL-GREASED GRILL.
+91 ;;^UTILITY(U,$J,114,134,"X",3,0)
+92 ;;= COOK UNTIL GOLDEN BROWN ON BOTH SIDES.
+93 ;;^UTILITY(U,$J,114,134,"X",4,0)
+94 ;;=3) SEASON BROWNED POTATOES.
+95 ;;^UTILITY(U,$J,114,135,0)
+96 ;;=CHICKEN NOODLE SOUP^100^6-FLOZ^75 MIN^^10^10^Y^A-70^^S^^.02
+97 ;;^UTILITY(U,$J,114,135,"E",0)
+98 ;;=^114.05P^1^1
+99 ;;^UTILITY(U,$J,114,135,"E",1,0)
+100 ;;=5
+101 ;;^UTILITY(U,$J,114,135,"I",0)
+102 ;;=^114.01PA^7^7
+103 ;;^UTILITY(U,$J,114,135,"I",1,0)
+104 ;;=232^1.25^2789^1.25
+105 ;;^UTILITY(U,$J,114,135,"I",2,0)
+106 ;;=847^5^2021
+107 ;;^UTILITY(U,$J,114,135,"I",3,0)
+108 ;;=230^.0625^1598^.0625
+109 ;;^UTILITY(U,$J,114,135,"I",4,0)
+110 ;;=725^.0625^1384^.0625
+111 ;;^UTILITY(U,$J,114,135,"I",5,0)
+112 ;;=776^1^951^1
+113 ;;^UTILITY(U,$J,114,135,"I",6,0)
+114 ;;=866^1^935^1
+115 ;;^UTILITY(U,$J,114,135,"I",7,0)
+116 ;;=166^1.5^1363^1.5
+117 ;;^UTILITY(U,$J,114,135,"X",0)
+118 ;;=^^3^3^2890724^
+119 ;;^UTILITY(U,$J,114,135,"X",1,0)
+120 ;;=1) COMBINE BASE AND WATER.
+121 ;;^UTILITY(U,$J,114,135,"X",2,0)
+122 ;;=2) ADD SALT AND VEGETABLES. SIMMER 20 MINUTES. STRAIN VEGETABLES FROM STOCK.
+123 ;;^UTILITY(U,$J,114,135,"X",3,0)
+124 ;;=3) ADD NOODLES AND SIMMER 20-30 MINUTES OR UNTIL TENDER.
+125 ;;^UTILITY(U,$J,114,136,0)
+126 ;;=CREAMED POTATOES^100^4-OZ^25 MIN^^^7^Y^P-8^^S^^.013
+127 ;;^UTILITY(U,$J,114,136,"E",0)
+128 ;;=^114.05P^1^1
+129 ;;^UTILITY(U,$J,114,136,"E",1,0)
+130 ;;=6
+131 ;;^UTILITY(U,$J,114,136,"I",0)
+132 ;;=^114.01PA^7^7
+133 ;;^UTILITY(U,$J,114,136,"I",1,0)
+134 ;;=871^20^1506^20
+135 ;;^UTILITY(U,$J,114,136,"I",2,0)
+136 ;;=297^.75^372^.75
+137 ;;^UTILITY(U,$J,114,136,"I",3,0)
+138 ;;=628^.5625^1998^.5625
+139 ;;^UTILITY(U,$J,114,136,"I",4,0)
+140 ;;=157^1.17188^138^1.17188
+141 ;;^UTILITY(U,$J,114,136,"I",5,0)
+142 ;;=847^1.15625^2021
