FHINI0IR ; ; 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,173,"X",1,0)
;;=1) COMBINE CONDENSED SOUP WITH WATER. HEAT TO BOILING.
;;^UTILITY(U,$J,114,174,0)
;;=BLAND CREAM OF POTATO SOUP^10^6-FLOZ^25 MIN^^10^10^Y^A-97^^S^^.055
;;^UTILITY(U,$J,114,174,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,174,"E",1,0)
;;=7
;;^UTILITY(U,$J,114,174,"I",0)
;;=^114.01PA^7^7
;;^UTILITY(U,$J,114,174,"I",1,0)
;;=297^.15625^372^.15625
;;^UTILITY(U,$J,114,174,"I",2,0)
;;=628^.07813^1998^.07813
;;^UTILITY(U,$J,114,174,"I",3,0)
;;=157^.42188^138^.42188
;;^UTILITY(U,$J,114,174,"I",4,0)
;;=1005^.4375^2021^3.6575
;;^UTILITY(U,$J,114,174,"I",5,0)
;;=212^2^2913^2
;;^UTILITY(U,$J,114,174,"I",6,0)
;;=776^.09375^951^.09375
;;^UTILITY(U,$J,114,174,"I",7,0)
;;=230^.03125^1598^.03125
;;^UTILITY(U,$J,114,174,"X",0)
;;=^^7^7^2890724^
;;^UTILITY(U,$J,114,174,"X",1,0)
;;=1) COMBINE MARGARINE AND FLOUR TO FORM ROUX. DO NOT BROWN.
;;^UTILITY(U,$J,114,174,"X",2,0)
;;=2) RECONSTITUTE NON-FAT DRIED MILK WITH WATER. SLOWLY ADD MILK TO
;;^UTILITY(U,$J,114,174,"X",3,0)
;;= ROUX AND BLEND THOROUGHLY. COOK UNTIL MIXTURE IS THICKENED.
;;^UTILITY(U,$J,114,174,"X",4,0)
;;=3) MINCE CELERY. COMBINE POTATOES, MINCED CELERY AND SALT. ADD
;;^UTILITY(U,$J,114,174,"X",5,0)
;;= MIXTURE TO CREAM SAUCE; MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,174,"X",6,0)
;;=4) NOTE: 1. ADJUST SEASONING TO TASTE.
;;^UTILITY(U,$J,114,174,"X",7,0)
;;= 2. 1/3 OZ MINCED ONION MAY BE ADDED.
;;^UTILITY(U,$J,114,175,0)
;;=O'BRIEN POTATOES^100^3-OZ^^^^7^Y^P-17^^S^^.011
;;^UTILITY(U,$J,114,175,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,175,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,175,"E",2,0)
;;=2
;;^UTILITY(U,$J,114,175,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,175,"I",1,0)
;;=871^24^1506^24
;;^UTILITY(U,$J,114,175,"I",2,0)
;;=403^.10938
;;^UTILITY(U,$J,114,175,"I",3,0)
;;=196^1^1484^1
;;^UTILITY(U,$J,114,175,"I",4,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,175,"I",5,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,175,"X",0)
;;=^^7^7^2890724^^
;;^UTILITY(U,$J,114,175,"X",1,0)
;;=1) STEAM POTATOES UNTIL JUST TENDER. DRAIN OFF EXCESS LIQUID.
;;^UTILITY(U,$J,114,175,"X",2,0)
;;= RETAIN FOR STEP 3. CHILL UNTIL READY FOR USE.
;;^UTILITY(U,$J,114,175,"X",3,0)
;;=2) RECONSTITUTE GREEN PEPPERS.
;;^UTILITY(U,$J,114,175,"X",4,0)
;;=3) ADD PEPPERS TOGETHER WITH PIMIENTOES, SALT AND PEPPER TO POTATOES.
;;^UTILITY(U,$J,114,175,"X",5,0)
;;= MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,175,"X",6,0)
;;=4) SPREAD LAYER OF POTATOES ON GREASED GRILL; FRY ON BOTH SIDES
;;^UTILITY(U,$J,114,175,"X",7,0)
;;= UNTIL GOLDEN BROWN.
;;^UTILITY(U,$J,114,176,0)
;;=TOMATO BOUILLON^100^6-FLOZ^70 MIN^^10^10^Y^A-80^^S^^.07
;;^UTILITY(U,$J,114,176,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,176,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,176,"I",0)
;;=^114.01PA^10^10
;;^UTILITY(U,$J,114,176,"I",1,0)
;;=235^1
;;^UTILITY(U,$J,114,176,"I",2,0)
;;=847^3.5^2021
;;^UTILITY(U,$J,114,176,"I",3,0)
;;=776^1.6875^951^1.6875
;;^UTILITY(U,$J,114,176,"I",4,0)
;;=725^.21875^1384^.21875
;;^UTILITY(U,$J,114,176,"I",5,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,176,"I",6,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,176,"I",7,0)
;;=849^.00781^269^.00781
;;^UTILITY(U,$J,114,176,"I",8,0)
;;=81^.00781^268^.00781
;;^UTILITY(U,$J,114,176,"I",9,0)
;;=850^1^262
;;^UTILITY(U,$J,114,176,"I",10,0)
;;=593^17.3125^1950^17.3125
;;^UTILITY(U,$J,114,176,"X",0)
;;=^^4^4^2890724^
;;^UTILITY(U,$J,114,176,"X",1,0)
;;=1) COMBINE BASE AND WATER TO FORM STOCK.
;;^UTILITY(U,$J,114,176,"X",2,0)
;;=2) COOK VEGETABLES AND SEASONINGS IN STOCK FOR 10 MINUTES. STRAIN.
;;^UTILITY(U,$J,114,176,"X",3,0)
;;=3) ADD TOMATO PUREE. SIMMER 20 MINUTES. REPLACE EVAPORATED WATER TO DESIRED
;;^UTILITY(U,$J,114,176,"X",4,0)
;;= YIELD.
;;^UTILITY(U,$J,114,177,0)
;;=CANNED BEEF BARLEY SOUP^32^6-FLOZ^15 MIN^^10^10^N^A-110^^C^^.125
;;^UTILITY(U,$J,114,177,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,177,"E",1,0)
;;=7
;;^UTILITY(U,$J,114,177,"I",0)
;;=^114.01PA^2^2
;;^UTILITY(U,$J,114,177,"I",1,0)
;;=553^.78125
;;^UTILITY(U,$J,114,177,"I",2,0)
;;=847^.78125^2021
;;^UTILITY(U,$J,114,177,"X",0)
;;=^^2^2^2890724^
;;^UTILITY(U,$J,114,177,"X",1,0)
;;=1) COMBINE CONDENSED SOUP WITH WATER.
;;^UTILITY(U,$J,114,177,"X",2,0)
;;=2) BRING TO BOIL. SERVE HOT.
;;^UTILITY(U,$J,114,178,0)
;;=LS O'BRIEN POTATOES^100^3-OZ^30 MIN^^^7^Y^P-18^^S^^.011
;;^UTILITY(U,$J,114,178,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,178,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,178,"E",2,0)
;;=2
;;^UTILITY(U,$J,114,178,"I",0)
;;=^114.01PA^4^4
FHINI0IR ; ; 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,173,"X",1,0)
+2 ;;=1) COMBINE CONDENSED SOUP WITH WATER. HEAT TO BOILING.
+3 ;;^UTILITY(U,$J,114,174,0)
+4 ;;=BLAND CREAM OF POTATO SOUP^10^6-FLOZ^25 MIN^^10^10^Y^A-97^^S^^.055
+5 ;;^UTILITY(U,$J,114,174,"E",0)
+6 ;;=^114.05P^1^1
+7 ;;^UTILITY(U,$J,114,174,"E",1,0)
+8 ;;=7
+9 ;;^UTILITY(U,$J,114,174,"I",0)
+10 ;;=^114.01PA^7^7
+11 ;;^UTILITY(U,$J,114,174,"I",1,0)
+12 ;;=297^.15625^372^.15625
+13 ;;^UTILITY(U,$J,114,174,"I",2,0)
+14 ;;=628^.07813^1998^.07813
+15 ;;^UTILITY(U,$J,114,174,"I",3,0)
+16 ;;=157^.42188^138^.42188
+17 ;;^UTILITY(U,$J,114,174,"I",4,0)
+18 ;;=1005^.4375^2021^3.6575
+19 ;;^UTILITY(U,$J,114,174,"I",5,0)
+20 ;;=212^2^2913^2
+21 ;;^UTILITY(U,$J,114,174,"I",6,0)
+22 ;;=776^.09375^951^.09375
+23 ;;^UTILITY(U,$J,114,174,"I",7,0)
+24 ;;=230^.03125^1598^.03125
+25 ;;^UTILITY(U,$J,114,174,"X",0)
+26 ;;=^^7^7^2890724^
+27 ;;^UTILITY(U,$J,114,174,"X",1,0)
+28 ;;=1) COMBINE MARGARINE AND FLOUR TO FORM ROUX. DO NOT BROWN.
+29 ;;^UTILITY(U,$J,114,174,"X",2,0)
+30 ;;=2) RECONSTITUTE NON-FAT DRIED MILK WITH WATER. SLOWLY ADD MILK TO
+31 ;;^UTILITY(U,$J,114,174,"X",3,0)
+32 ;;= ROUX AND BLEND THOROUGHLY. COOK UNTIL MIXTURE IS THICKENED.
+33 ;;^UTILITY(U,$J,114,174,"X",4,0)
+34 ;;=3) MINCE CELERY. COMBINE POTATOES, MINCED CELERY AND SALT. ADD
+35 ;;^UTILITY(U,$J,114,174,"X",5,0)
+36 ;;= MIXTURE TO CREAM SAUCE; MIX TO DISTRIBUTE.
+37 ;;^UTILITY(U,$J,114,174,"X",6,0)
+38 ;;=4) NOTE: 1. ADJUST SEASONING TO TASTE.
+39 ;;^UTILITY(U,$J,114,174,"X",7,0)
+40 ;;= 2. 1/3 OZ MINCED ONION MAY BE ADDED.
+41 ;;^UTILITY(U,$J,114,175,0)
+42 ;;=O'BRIEN POTATOES^100^3-OZ^^^^7^Y^P-17^^S^^.011
+43 ;;^UTILITY(U,$J,114,175,"E",0)
+44 ;;=^114.05P^2^2
+45 ;;^UTILITY(U,$J,114,175,"E",1,0)
+46 ;;=6
+47 ;;^UTILITY(U,$J,114,175,"E",2,0)
+48 ;;=2
+49 ;;^UTILITY(U,$J,114,175,"I",0)
+50 ;;=^114.01PA^5^5
+51 ;;^UTILITY(U,$J,114,175,"I",1,0)
+52 ;;=871^24^1506^24
+53 ;;^UTILITY(U,$J,114,175,"I",2,0)
+54 ;;=403^.10938
+55 ;;^UTILITY(U,$J,114,175,"I",3,0)
+56 ;;=196^1^1484^1
+57 ;;^UTILITY(U,$J,114,175,"I",4,0)
+58 ;;=230^.125^1598^.125
+59 ;;^UTILITY(U,$J,114,175,"I",5,0)
+60 ;;=192^.01563^288^.01563
+61 ;;^UTILITY(U,$J,114,175,"X",0)
+62 ;;=^^7^7^2890724^^
+63 ;;^UTILITY(U,$J,114,175,"X",1,0)
+64 ;;=1) STEAM POTATOES UNTIL JUST TENDER. DRAIN OFF EXCESS LIQUID.
+65 ;;^UTILITY(U,$J,114,175,"X",2,0)
+66 ;;= RETAIN FOR STEP 3. CHILL UNTIL READY FOR USE.
+67 ;;^UTILITY(U,$J,114,175,"X",3,0)
+68 ;;=2) RECONSTITUTE GREEN PEPPERS.
+69 ;;^UTILITY(U,$J,114,175,"X",4,0)
+70 ;;=3) ADD PEPPERS TOGETHER WITH PIMIENTOES, SALT AND PEPPER TO POTATOES.
+71 ;;^UTILITY(U,$J,114,175,"X",5,0)
+72 ;;= MIX TO DISTRIBUTE.
+73 ;;^UTILITY(U,$J,114,175,"X",6,0)
+74 ;;=4) SPREAD LAYER OF POTATOES ON GREASED GRILL; FRY ON BOTH SIDES
+75 ;;^UTILITY(U,$J,114,175,"X",7,0)
+76 ;;= UNTIL GOLDEN BROWN.
+77 ;;^UTILITY(U,$J,114,176,0)
+78 ;;=TOMATO BOUILLON^100^6-FLOZ^70 MIN^^10^10^Y^A-80^^S^^.07
+79 ;;^UTILITY(U,$J,114,176,"E",0)
+80 ;;=^114.05P^1^1
+81 ;;^UTILITY(U,$J,114,176,"E",1,0)
+82 ;;=5
+83 ;;^UTILITY(U,$J,114,176,"I",0)
+84 ;;=^114.01PA^10^10
+85 ;;^UTILITY(U,$J,114,176,"I",1,0)
+86 ;;=235^1
+87 ;;^UTILITY(U,$J,114,176,"I",2,0)
+88 ;;=847^3.5^2021
+89 ;;^UTILITY(U,$J,114,176,"I",3,0)
+90 ;;=776^1.6875^951^1.6875
+91 ;;^UTILITY(U,$J,114,176,"I",4,0)
+92 ;;=725^.21875^1384^.21875
+93 ;;^UTILITY(U,$J,114,176,"I",5,0)
+94 ;;=230^.125^1598^.125
+95 ;;^UTILITY(U,$J,114,176,"I",6,0)
+96 ;;=192^.01563^288^.01563
+97 ;;^UTILITY(U,$J,114,176,"I",7,0)
+98 ;;=849^.00781^269^.00781
+99 ;;^UTILITY(U,$J,114,176,"I",8,0)
+100 ;;=81^.00781^268^.00781
+101 ;;^UTILITY(U,$J,114,176,"I",9,0)
+102 ;;=850^1^262
+103 ;;^UTILITY(U,$J,114,176,"I",10,0)
+104 ;;=593^17.3125^1950^17.3125
+105 ;;^UTILITY(U,$J,114,176,"X",0)
+106 ;;=^^4^4^2890724^
+107 ;;^UTILITY(U,$J,114,176,"X",1,0)
+108 ;;=1) COMBINE BASE AND WATER TO FORM STOCK.
+109 ;;^UTILITY(U,$J,114,176,"X",2,0)
+110 ;;=2) COOK VEGETABLES AND SEASONINGS IN STOCK FOR 10 MINUTES. STRAIN.
+111 ;;^UTILITY(U,$J,114,176,"X",3,0)
+112 ;;=3) ADD TOMATO PUREE. SIMMER 20 MINUTES. REPLACE EVAPORATED WATER TO DESIRED
+113 ;;^UTILITY(U,$J,114,176,"X",4,0)
+114 ;;= YIELD.
+115 ;;^UTILITY(U,$J,114,177,0)
+116 ;;=CANNED BEEF BARLEY SOUP^32^6-FLOZ^15 MIN^^10^10^N^A-110^^C^^.125
+117 ;;^UTILITY(U,$J,114,177,"E",0)
+118 ;;=^114.05P^1^1
+119 ;;^UTILITY(U,$J,114,177,"E",1,0)
+120 ;;=7
+121 ;;^UTILITY(U,$J,114,177,"I",0)
+122 ;;=^114.01PA^2^2
+123 ;;^UTILITY(U,$J,114,177,"I",1,0)
+124 ;;=553^.78125
+125 ;;^UTILITY(U,$J,114,177,"I",2,0)
+126 ;;=847^.78125^2021
+127 ;;^UTILITY(U,$J,114,177,"X",0)
+128 ;;=^^2^2^2890724^
+129 ;;^UTILITY(U,$J,114,177,"X",1,0)
+130 ;;=1) COMBINE CONDENSED SOUP WITH WATER.
+131 ;;^UTILITY(U,$J,114,177,"X",2,0)
+132 ;;=2) BRING TO BOIL. SERVE HOT.
+133 ;;^UTILITY(U,$J,114,178,0)
+134 ;;=LS O'BRIEN POTATOES^100^3-OZ^30 MIN^^^7^Y^P-18^^S^^.011
+135 ;;^UTILITY(U,$J,114,178,"E",0)
+136 ;;=^114.05P^2^2
+137 ;;^UTILITY(U,$J,114,178,"E",1,0)
+138 ;;=6
+139 ;;^UTILITY(U,$J,114,178,"E",2,0)
+140 ;;=2
+141 ;;^UTILITY(U,$J,114,178,"I",0)
+142 ;;=^114.01PA^4^4
