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