FHINI0JJ ; ; 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,293,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,293,"E",1,0)
;;=25
;;^UTILITY(U,$J,114,293,"E",2,0)
;;=33
;;^UTILITY(U,$J,114,293,"I",0)
;;=^114.01PA^10^10
;;^UTILITY(U,$J,114,293,"I",1,0)
;;=853^50^199
;;^UTILITY(U,$J,114,293,"I",2,0)
;;=628^2^1998^2
;;^UTILITY(U,$J,114,293,"I",3,0)
;;=230^.21875^1598^.21875
;;^UTILITY(U,$J,114,293,"I",4,0)
;;=192^.0625^288^.0625
;;^UTILITY(U,$J,114,293,"I",5,0)
;;=788
;;^UTILITY(U,$J,114,293,"I",6,0)
;;=734^1^115^.85
;;^UTILITY(U,$J,114,293,"I",7,0)
;;=157^.4375^138^.4375
;;^UTILITY(U,$J,114,293,"I",8,0)
;;=847^.5^2021
;;^UTILITY(U,$J,114,293,"I",9,0)
;;=867^3^827^3
;;^UTILITY(U,$J,114,293,"I",10,0)
;;=1005^.25^2021^2.09
;;^UTILITY(U,$J,114,293,"X",0)
;;=^^9^9^2890725^
;;^UTILITY(U,$J,114,293,"X",1,0)
;;=1) COMBINE FLOUR, SALT AND PEPPER; DREDGE RAW PORK STEAKS IN MIXTURE.
;;^UTILITY(U,$J,114,293,"X",2,0)
;;=2) COMBINE EGGS, NON-FAT DRIED MILK AND FIRST WATER ENTRY. BEAT
;;^UTILITY(U,$J,114,293,"X",3,0)
;;= SLIGHTLY. DIP FLOURED STEAKS INTO EGG MIXTURE. DRAIN OFF EXCESS
;;^UTILITY(U,$J,114,293,"X",4,0)
;;= LIQUID.
;;^UTILITY(U,$J,114,293,"X",5,0)
;;=3) ROLL STEAKS IN BREAD CRUMBS; SHAKE OFF EXCESS CRUMBS.
;;^UTILITY(U,$J,114,293,"X",6,0)
;;=4) FRY IN DEEP FAT (350 F) UNTIL GOLDEN BROWN (APPROXIMATELY 5 MINUTES).
;;^UTILITY(U,$J,114,293,"X",7,0)
;;=5) ARRANGE 50 FRIED STEAKS INTO EACH OF 2 PANS. ADD HALF OF SECOND
;;^UTILITY(U,$J,114,293,"X",8,0)
;;= WATER ENTRY TO BOTTOM OF EACH PAN. COVER AND BAKE AT 325 F DEGREES
;;^UTILITY(U,$J,114,293,"X",9,0)
;;= FOR APPROXIMATELY 30 MINUTES.
;;^UTILITY(U,$J,114,294,0)
;;=STUFFED GREEN PEPPER #1^100^1-EACH^2HR 45MIN^^12^4^Y^E-76^^S^^.037
;;^UTILITY(U,$J,114,294,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,294,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,294,"E",2,0)
;;=25
;;^UTILITY(U,$J,114,294,"I",0)
;;=^114.01PA^12^11
;;^UTILITY(U,$J,114,294,"I",1,0)
;;=551^12^2053^12
;;^UTILITY(U,$J,114,294,"I",2,0)
;;=593^5.25^1950^5.25
;;^UTILITY(U,$J,114,294,"I",3,0)
;;=573^2.125^1938^2.125
;;^UTILITY(U,$J,114,294,"I",4,0)
;;=235^.15625
;;^UTILITY(U,$J,114,294,"I",5,0)
;;=847^.59375^2021
;;^UTILITY(U,$J,114,294,"I",6,0)
;;=22^16.75^2167^16.75
;;^UTILITY(U,$J,114,294,"I",7,0)
;;=867^1^827^1
;;^UTILITY(U,$J,114,294,"I",9,0)
;;=725^.125^1384^.125
;;^UTILITY(U,$J,114,294,"I",10,0)
;;=1006^.10938^2021^.9144168
;;^UTILITY(U,$J,114,294,"I",11,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,294,"I",12,0)
;;=192^.01042^288^.01042
;;^UTILITY(U,$J,114,294,"X",0)
;;=^^11^11^2890725^^
;;^UTILITY(U,$J,114,294,"X",1,0)
;;=1) DRAIN PEPPER AS NECESSARY AND RESERVE FOR LATER.
;;^UTILITY(U,$J,114,294,"X",2,0)
;;=2) COMBINE TOMATO PUREE (5#,4OZ),CATSUP,BEEF BASE AND TAP WATER IN STEAM
;;^UTILITY(U,$J,114,294,"X",3,0)
;;= KETTLE; SIMMER FOR 30 MINUTES TO MAKE SAUCE. RETAIN FOR LATER.
;;^UTILITY(U,$J,114,294,"X",4,0)
;;=3) COMBINE BEEF,BREADCRUMBS,TOMATO PUREE (1#),ONIONS, HOT WATER,SALT
;;^UTILITY(U,$J,114,294,"X",5,0)
;;= AND PEPPER; MIX ONLY TO DISTRIBUTE.
;;^UTILITY(U,$J,114,294,"X",6,0)
;;=4) FILL EACH HALF PEPPER WITH MEAT MIXTURE, USING #8 SCOOP.
;;^UTILITY(U,$J,114,294,"X",7,0)
;;=5) PLACE 50 STUFFED PEPPERS INTO EACH OF TWO WELL GREASED PANS; POUR
;;^UTILITY(U,$J,114,294,"X",8,0)
;;= 1/2 SAUCE OVER PEPPERS IN EACH PAN.
;;^UTILITY(U,$J,114,294,"X",9,0)
;;=6) BAKE AT 350F FOR APPROXIATELY 1HOUR 30 MINUTES OR UNITL TENDER.
;;^UTILITY(U,$J,114,294,"X",10,0)
;;= NOTE: FRESH OR FROZEN GREEN PEPPERS MAY BE STEAMED FOR 2 MINUTES,
;;^UTILITY(U,$J,114,294,"X",11,0)
;;= PRIOR TO FILLING WITH MEAT MIXTURE, TO REDUCE FINAL COOKING TIME.
;;^UTILITY(U,$J,114,295,0)
;;=LS SWISS STEAK W/TOMATOES^25^1-EACH^3.25 HR^^2^4^Y^E-119^^S^^.055
;;^UTILITY(U,$J,114,295,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,295,"E",1,0)
;;=2
;;^UTILITY(U,$J,114,295,"E",2,0)
;;=33
;;^UTILITY(U,$J,114,295,"I",0)
;;=^114.01PA^8^7
;;^UTILITY(U,$J,114,295,"I",1,0)
;;=379^6.25^2125^3.6875
;;^UTILITY(U,$J,114,295,"I",2,0)
;;=628^.125^1998^.125
;;^UTILITY(U,$J,114,295,"I",3,0)
;;=256^.0625^1906^.0625
;;^UTILITY(U,$J,114,295,"I",4,0)
;;=192^.01042^288^.01042
;;^UTILITY(U,$J,114,295,"I",6,0)
;;=847^.03125^2021
;;^UTILITY(U,$J,114,295,"I",7,0)
;;=539^3.1875^1935^3.1875
;;^UTILITY(U,$J,114,295,"I",8,0)
;;=777^1.5^1378^1.35
;;^UTILITY(U,$J,114,295,"X",0)
;;=^^6^6^2890801^^
;;^UTILITY(U,$J,114,295,"X",1,0)
;;=1) COMBINE FIRST LISTING FLOUR, PEPPER, AND SUGAR. DREDGE STEAKS IN MIXTURE.
;;^UTILITY(U,$J,114,295,"X",2,0)
;;=2) BROWN STEAKS ON BOTH SIDES ON GRILL. PAN STEAKS AND SET ASIDE.
FHINI0JJ ; ; 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,293,"E",0)
+2 ;;=^114.05P^2^2
+3 ;;^UTILITY(U,$J,114,293,"E",1,0)
+4 ;;=25
+5 ;;^UTILITY(U,$J,114,293,"E",2,0)
+6 ;;=33
+7 ;;^UTILITY(U,$J,114,293,"I",0)
+8 ;;=^114.01PA^10^10
+9 ;;^UTILITY(U,$J,114,293,"I",1,0)
+10 ;;=853^50^199
+11 ;;^UTILITY(U,$J,114,293,"I",2,0)
+12 ;;=628^2^1998^2
+13 ;;^UTILITY(U,$J,114,293,"I",3,0)
+14 ;;=230^.21875^1598^.21875
+15 ;;^UTILITY(U,$J,114,293,"I",4,0)
+16 ;;=192^.0625^288^.0625
+17 ;;^UTILITY(U,$J,114,293,"I",5,0)
+18 ;;=788
+19 ;;^UTILITY(U,$J,114,293,"I",6,0)
+20 ;;=734^1^115^.85
+21 ;;^UTILITY(U,$J,114,293,"I",7,0)
+22 ;;=157^.4375^138^.4375
+23 ;;^UTILITY(U,$J,114,293,"I",8,0)
+24 ;;=847^.5^2021
+25 ;;^UTILITY(U,$J,114,293,"I",9,0)
+26 ;;=867^3^827^3
+27 ;;^UTILITY(U,$J,114,293,"I",10,0)
+28 ;;=1005^.25^2021^2.09
+29 ;;^UTILITY(U,$J,114,293,"X",0)
+30 ;;=^^9^9^2890725^
+31 ;;^UTILITY(U,$J,114,293,"X",1,0)
+32 ;;=1) COMBINE FLOUR, SALT AND PEPPER; DREDGE RAW PORK STEAKS IN MIXTURE.
+33 ;;^UTILITY(U,$J,114,293,"X",2,0)
+34 ;;=2) COMBINE EGGS, NON-FAT DRIED MILK AND FIRST WATER ENTRY. BEAT
+35 ;;^UTILITY(U,$J,114,293,"X",3,0)
+36 ;;= SLIGHTLY. DIP FLOURED STEAKS INTO EGG MIXTURE. DRAIN OFF EXCESS
+37 ;;^UTILITY(U,$J,114,293,"X",4,0)
+38 ;;= LIQUID.
+39 ;;^UTILITY(U,$J,114,293,"X",5,0)
+40 ;;=3) ROLL STEAKS IN BREAD CRUMBS; SHAKE OFF EXCESS CRUMBS.
+41 ;;^UTILITY(U,$J,114,293,"X",6,0)
+42 ;;=4) FRY IN DEEP FAT (350 F) UNTIL GOLDEN BROWN (APPROXIMATELY 5 MINUTES).
+43 ;;^UTILITY(U,$J,114,293,"X",7,0)
+44 ;;=5) ARRANGE 50 FRIED STEAKS INTO EACH OF 2 PANS. ADD HALF OF SECOND
+45 ;;^UTILITY(U,$J,114,293,"X",8,0)
+46 ;;= WATER ENTRY TO BOTTOM OF EACH PAN. COVER AND BAKE AT 325 F DEGREES
+47 ;;^UTILITY(U,$J,114,293,"X",9,0)
+48 ;;= FOR APPROXIMATELY 30 MINUTES.
+49 ;;^UTILITY(U,$J,114,294,0)
+50 ;;=STUFFED GREEN PEPPER #1^100^1-EACH^2HR 45MIN^^12^4^Y^E-76^^S^^.037
+51 ;;^UTILITY(U,$J,114,294,"E",0)
+52 ;;=^114.05P^2^2
+53 ;;^UTILITY(U,$J,114,294,"E",1,0)
+54 ;;=5
+55 ;;^UTILITY(U,$J,114,294,"E",2,0)
+56 ;;=25
+57 ;;^UTILITY(U,$J,114,294,"I",0)
+58 ;;=^114.01PA^12^11
+59 ;;^UTILITY(U,$J,114,294,"I",1,0)
+60 ;;=551^12^2053^12
+61 ;;^UTILITY(U,$J,114,294,"I",2,0)
+62 ;;=593^5.25^1950^5.25
+63 ;;^UTILITY(U,$J,114,294,"I",3,0)
+64 ;;=573^2.125^1938^2.125
+65 ;;^UTILITY(U,$J,114,294,"I",4,0)
+66 ;;=235^.15625
+67 ;;^UTILITY(U,$J,114,294,"I",5,0)
+68 ;;=847^.59375^2021
+69 ;;^UTILITY(U,$J,114,294,"I",6,0)
+70 ;;=22^16.75^2167^16.75
+71 ;;^UTILITY(U,$J,114,294,"I",7,0)
+72 ;;=867^1^827^1
+73 ;;^UTILITY(U,$J,114,294,"I",9,0)
+74 ;;=725^.125^1384^.125
+75 ;;^UTILITY(U,$J,114,294,"I",10,0)
+76 ;;=1006^.10938^2021^.9144168
+77 ;;^UTILITY(U,$J,114,294,"I",11,0)
+78 ;;=230^.125^1598^.125
+79 ;;^UTILITY(U,$J,114,294,"I",12,0)
+80 ;;=192^.01042^288^.01042
+81 ;;^UTILITY(U,$J,114,294,"X",0)
+82 ;;=^^11^11^2890725^^
+83 ;;^UTILITY(U,$J,114,294,"X",1,0)
+84 ;;=1) DRAIN PEPPER AS NECESSARY AND RESERVE FOR LATER.
+85 ;;^UTILITY(U,$J,114,294,"X",2,0)
+86 ;;=2) COMBINE TOMATO PUREE (5#,4OZ),CATSUP,BEEF BASE AND TAP WATER IN STEAM
+87 ;;^UTILITY(U,$J,114,294,"X",3,0)
+88 ;;= KETTLE; SIMMER FOR 30 MINUTES TO MAKE SAUCE. RETAIN FOR LATER.
+89 ;;^UTILITY(U,$J,114,294,"X",4,0)
+90 ;;=3) COMBINE BEEF,BREADCRUMBS,TOMATO PUREE (1#),ONIONS, HOT WATER,SALT
+91 ;;^UTILITY(U,$J,114,294,"X",5,0)
+92 ;;= AND PEPPER; MIX ONLY TO DISTRIBUTE.
+93 ;;^UTILITY(U,$J,114,294,"X",6,0)
+94 ;;=4) FILL EACH HALF PEPPER WITH MEAT MIXTURE, USING #8 SCOOP.
+95 ;;^UTILITY(U,$J,114,294,"X",7,0)
+96 ;;=5) PLACE 50 STUFFED PEPPERS INTO EACH OF TWO WELL GREASED PANS; POUR
+97 ;;^UTILITY(U,$J,114,294,"X",8,0)
+98 ;;= 1/2 SAUCE OVER PEPPERS IN EACH PAN.
+99 ;;^UTILITY(U,$J,114,294,"X",9,0)
+100 ;;=6) BAKE AT 350F FOR APPROXIATELY 1HOUR 30 MINUTES OR UNITL TENDER.
+101 ;;^UTILITY(U,$J,114,294,"X",10,0)
+102 ;;= NOTE: FRESH OR FROZEN GREEN PEPPERS MAY BE STEAMED FOR 2 MINUTES,
+103 ;;^UTILITY(U,$J,114,294,"X",11,0)
+104 ;;= PRIOR TO FILLING WITH MEAT MIXTURE, TO REDUCE FINAL COOKING TIME.
+105 ;;^UTILITY(U,$J,114,295,0)
+106 ;;=LS SWISS STEAK W/TOMATOES^25^1-EACH^3.25 HR^^2^4^Y^E-119^^S^^.055
+107 ;;^UTILITY(U,$J,114,295,"E",0)
+108 ;;=^114.05P^2^2
+109 ;;^UTILITY(U,$J,114,295,"E",1,0)
+110 ;;=2
+111 ;;^UTILITY(U,$J,114,295,"E",2,0)
+112 ;;=33
+113 ;;^UTILITY(U,$J,114,295,"I",0)
+114 ;;=^114.01PA^8^7
+115 ;;^UTILITY(U,$J,114,295,"I",1,0)
+116 ;;=379^6.25^2125^3.6875
+117 ;;^UTILITY(U,$J,114,295,"I",2,0)
+118 ;;=628^.125^1998^.125
+119 ;;^UTILITY(U,$J,114,295,"I",3,0)
+120 ;;=256^.0625^1906^.0625
+121 ;;^UTILITY(U,$J,114,295,"I",4,0)
+122 ;;=192^.01042^288^.01042
+123 ;;^UTILITY(U,$J,114,295,"I",6,0)
+124 ;;=847^.03125^2021
+125 ;;^UTILITY(U,$J,114,295,"I",7,0)
+126 ;;=539^3.1875^1935^3.1875
+127 ;;^UTILITY(U,$J,114,295,"I",8,0)
+128 ;;=777^1.5^1378^1.35
+129 ;;^UTILITY(U,$J,114,295,"X",0)
+130 ;;=^^6^6^2890801^^
+131 ;;^UTILITY(U,$J,114,295,"X",1,0)
+132 ;;=1) COMBINE FIRST LISTING FLOUR, PEPPER, AND SUGAR. DREDGE STEAKS IN MIXTURE.
+133 ;;^UTILITY(U,$J,114,295,"X",2,0)
+134 ;;=2) BROWN STEAKS ON BOTH SIDES ON GRILL. PAN STEAKS AND SET ASIDE.
