FHINI0IP ; ; 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,163,0)
;;=TOMATO JUICE, BULK^100^4-FLOZ^^^^1^N^A-52^^C^^.057
;;^UTILITY(U,$J,114,163,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,163,"I",1,0)
;;=412^3.125^1942^26.896875
;;^UTILITY(U,$J,114,163,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,163,"X",1,0)
;;=PORTION INTO 4 OZ SERVINGS.
;;^UTILITY(U,$J,114,164,0)
;;=BLAND CREAM OF PEA SOUP^10^6-FLOZ^25 MIN^^10^10^Y^A-96^^S^^.101
;;^UTILITY(U,$J,114,164,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,164,"E",1,0)
;;=7
;;^UTILITY(U,$J,114,164,"I",0)
;;=^114.01PA^6^6
;;^UTILITY(U,$J,114,164,"I",1,0)
;;=297^.15625^372^.15625
;;^UTILITY(U,$J,114,164,"I",2,0)
;;=628^.07813^1998^.07813
;;^UTILITY(U,$J,114,164,"I",3,0)
;;=157^.42188^138^.42188
;;^UTILITY(U,$J,114,164,"I",4,0)
;;=1005^.4375^2021^3.6575
;;^UTILITY(U,$J,114,164,"I",5,0)
;;=469^1^6452^1
;;^UTILITY(U,$J,114,164,"I",6,0)
;;=230^.03125^1598^.03125
;;^UTILITY(U,$J,114,164,"X",0)
;;=^^6^6^2890724^
;;^UTILITY(U,$J,114,164,"X",1,0)
;;=1) COMBINE MARGARINE AND FLOUR TO FORM ROUX. DO NOT BROWN.
;;^UTILITY(U,$J,114,164,"X",2,0)
;;=2) RECONSTITUTE NON-FAT DRIED MILK WITH WATER. SLOWLY ADD MILK
;;^UTILITY(U,$J,114,164,"X",3,0)
;;= TO ROUX AND BLEND THOROUGHLY. COOK UNTIL MIXTURE IS THICKENED.
;;^UTILITY(U,$J,114,164,"X",4,0)
;;=3) COMBINE PEAS AND SALT. ADD TO CREAM SAUCE; MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,164,"X",5,0)
;;=4) NOTE: 1. ADJUST SEASONING TO TASTE. 2. 1/3 OZ MINCED ONION
;;^UTILITY(U,$J,114,164,"X",6,0)
;;= MAY BE ADDED.
;;^UTILITY(U,$J,114,165,0)
;;=TOMATO JUICE, 6OZ IND^100^1-EACH^^^^1^N^A-58^^I^^.15
;;^UTILITY(U,$J,114,165,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,165,"I",1,0)
;;=298^100^1942
;;^UTILITY(U,$J,114,165,"X",0)
;;=^^1^1^2890801^^^^
;;^UTILITY(U,$J,114,165,"X",1,0)
;;=PLACE 6 OZ CAN ON TRAY.
;;^UTILITY(U,$J,114,166,0)
;;=MASHED POTATOES^100^3-OZ^35 MIN^^^7^Y^P-15^^S^^.011
;;^UTILITY(U,$J,114,166,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,166,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,166,"I",0)
;;=^114.01PA^5^5
;;^UTILITY(U,$J,114,166,"I",1,0)
;;=855^20^1506^20
;;^UTILITY(U,$J,114,166,"I",2,0)
;;=297^.75^372^.75
;;^UTILITY(U,$J,114,166,"I",3,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,166,"I",4,0)
;;=157^1.07813^138^1.07813
;;^UTILITY(U,$J,114,166,"I",5,0)
;;=1006^1.03125^2021^8.62125
;;^UTILITY(U,$J,114,166,"X",0)
;;=^^7^7^2890724^
;;^UTILITY(U,$J,114,166,"X",1,0)
;;=1) STEAM POTATOES UNTIL TENDER; DRAION OFF EXCESS LIQUID.
;;^UTILITY(U,$J,114,166,"X",2,0)
;;=2) TRANSFER POTATOES TO MIXING BOWL. BEAT ON LOW SPEED UNTIL POTATOES
;;^UTILITY(U,$J,114,166,"X",3,0)
;;= ARE BROKEN INTO SMALLER PIECES.
;;^UTILITY(U,$J,114,166,"X",4,0)
;;=3) ADD MARGARINE AND SALT TO POTATOES; BEAT ON HIGH SPEED 3 TO 5
;;^UTILITY(U,$J,114,166,"X",5,0)
;;= MINUTES OR UNTIL MIXTURE IS SMOOTH.
;;^UTILITY(U,$J,114,166,"X",6,0)
;;=4) RECONSTITUTE MILK. BLEND INTO POTATOES ON LOW SPEED. BEAT ON
;;^UTILITY(U,$J,114,166,"X",7,0)
;;= HIGH SPEED FOR 2 MINUTES OR UNTIL LIGHT AND FLUFFY.
;;^UTILITY(U,$J,114,167,0)
;;=NAVY BEAN SOUP^100^6-FLOZ^2 HOURS^^10^10^Y^A-78^^S^^.019
;;^UTILITY(U,$J,114,167,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,167,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,167,"I",0)
;;=^114.01PA^7^7
;;^UTILITY(U,$J,114,167,"I",1,0)
;;=585^6.25^2269^6.25
;;^UTILITY(U,$J,114,167,"I",2,0)
;;=567^2
;;^UTILITY(U,$J,114,167,"I",3,0)
;;=847^5^2021
;;^UTILITY(U,$J,114,167,"I",4,0)
;;=725^.17188^1384^.17188
;;^UTILITY(U,$J,114,167,"I",5,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,167,"I",6,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,167,"I",7,0)
;;=211^.57813
;;^UTILITY(U,$J,114,167,"X",0)
;;=^^3^3^2890724^
;;^UTILITY(U,$J,114,167,"X",1,0)
;;=1) COVER BEANS WITH WATER AND SOAK OVERNIGHT. DRAIN OFF WATER AND RECOVER
;;^UTILITY(U,$J,114,167,"X",2,0)
;;= WITH FRESH WATER. COOK UNTIL MUSHY (APPROXIMATELY 1 HOUR).
;;^UTILITY(U,$J,114,167,"X",3,0)
;;=2) ADD REMAINING INGREDIENTS. SIMMER UNTIL VEGETABLES ARE TENDER.
;;^UTILITY(U,$J,114,168,0)
;;=VEGETABLE JUICE COCKTAIL, BULK^100^4-FLOZ^^^^1^N^A-59^^C^^.102
;;^UTILITY(U,$J,114,168,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,168,"I",1,0)
;;=533^4^1976^34.144
;;^UTILITY(U,$J,114,168,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,168,"X",1,0)
;;=1) PORTION INTO 4 OZ SERVINGS.
;;^UTILITY(U,$J,114,169,0)
;;=OLD FASHIONED NAVY BEAN SOUP^100^6-FLOZ^115 MIN^^10^10^Y^A-79^^S^^.057
;;^UTILITY(U,$J,114,169,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,169,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,169,"I",0)
;;=^114.01PA^9^9
FHINI0IP ; ; 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,163,0)
+2 ;;=TOMATO JUICE, BULK^100^4-FLOZ^^^^1^N^A-52^^C^^.057
+3 ;;^UTILITY(U,$J,114,163,"I",0)
+4 ;;=^114.01PA^1^1
+5 ;;^UTILITY(U,$J,114,163,"I",1,0)
+6 ;;=412^3.125^1942^26.896875
+7 ;;^UTILITY(U,$J,114,163,"X",0)
+8 ;;=^^1^1^2890801^^
+9 ;;^UTILITY(U,$J,114,163,"X",1,0)
+10 ;;=PORTION INTO 4 OZ SERVINGS.
+11 ;;^UTILITY(U,$J,114,164,0)
+12 ;;=BLAND CREAM OF PEA SOUP^10^6-FLOZ^25 MIN^^10^10^Y^A-96^^S^^.101
+13 ;;^UTILITY(U,$J,114,164,"E",0)
+14 ;;=^114.05P^1^1
+15 ;;^UTILITY(U,$J,114,164,"E",1,0)
+16 ;;=7
+17 ;;^UTILITY(U,$J,114,164,"I",0)
+18 ;;=^114.01PA^6^6
+19 ;;^UTILITY(U,$J,114,164,"I",1,0)
+20 ;;=297^.15625^372^.15625
+21 ;;^UTILITY(U,$J,114,164,"I",2,0)
+22 ;;=628^.07813^1998^.07813
+23 ;;^UTILITY(U,$J,114,164,"I",3,0)
+24 ;;=157^.42188^138^.42188
+25 ;;^UTILITY(U,$J,114,164,"I",4,0)
+26 ;;=1005^.4375^2021^3.6575
+27 ;;^UTILITY(U,$J,114,164,"I",5,0)
+28 ;;=469^1^6452^1
+29 ;;^UTILITY(U,$J,114,164,"I",6,0)
+30 ;;=230^.03125^1598^.03125
+31 ;;^UTILITY(U,$J,114,164,"X",0)
+32 ;;=^^6^6^2890724^
+33 ;;^UTILITY(U,$J,114,164,"X",1,0)
+34 ;;=1) COMBINE MARGARINE AND FLOUR TO FORM ROUX. DO NOT BROWN.
+35 ;;^UTILITY(U,$J,114,164,"X",2,0)
+36 ;;=2) RECONSTITUTE NON-FAT DRIED MILK WITH WATER. SLOWLY ADD MILK
+37 ;;^UTILITY(U,$J,114,164,"X",3,0)
+38 ;;= TO ROUX AND BLEND THOROUGHLY. COOK UNTIL MIXTURE IS THICKENED.
+39 ;;^UTILITY(U,$J,114,164,"X",4,0)
+40 ;;=3) COMBINE PEAS AND SALT. ADD TO CREAM SAUCE; MIX TO DISTRIBUTE.
+41 ;;^UTILITY(U,$J,114,164,"X",5,0)
+42 ;;=4) NOTE: 1. ADJUST SEASONING TO TASTE. 2. 1/3 OZ MINCED ONION
+43 ;;^UTILITY(U,$J,114,164,"X",6,0)
+44 ;;= MAY BE ADDED.
+45 ;;^UTILITY(U,$J,114,165,0)
+46 ;;=TOMATO JUICE, 6OZ IND^100^1-EACH^^^^1^N^A-58^^I^^.15
+47 ;;^UTILITY(U,$J,114,165,"I",0)
+48 ;;=^114.01PA^1^1
+49 ;;^UTILITY(U,$J,114,165,"I",1,0)
+50 ;;=298^100^1942
+51 ;;^UTILITY(U,$J,114,165,"X",0)
+52 ;;=^^1^1^2890801^^^^
+53 ;;^UTILITY(U,$J,114,165,"X",1,0)
+54 ;;=PLACE 6 OZ CAN ON TRAY.
+55 ;;^UTILITY(U,$J,114,166,0)
+56 ;;=MASHED POTATOES^100^3-OZ^35 MIN^^^7^Y^P-15^^S^^.011
+57 ;;^UTILITY(U,$J,114,166,"E",0)
+58 ;;=^114.05P^1^1
+59 ;;^UTILITY(U,$J,114,166,"E",1,0)
+60 ;;=6
+61 ;;^UTILITY(U,$J,114,166,"I",0)
+62 ;;=^114.01PA^5^5
+63 ;;^UTILITY(U,$J,114,166,"I",1,0)
+64 ;;=855^20^1506^20
+65 ;;^UTILITY(U,$J,114,166,"I",2,0)
+66 ;;=297^.75^372^.75
+67 ;;^UTILITY(U,$J,114,166,"I",3,0)
+68 ;;=230^.1875^1598^.1875
+69 ;;^UTILITY(U,$J,114,166,"I",4,0)
+70 ;;=157^1.07813^138^1.07813
+71 ;;^UTILITY(U,$J,114,166,"I",5,0)
+72 ;;=1006^1.03125^2021^8.62125
+73 ;;^UTILITY(U,$J,114,166,"X",0)
+74 ;;=^^7^7^2890724^
+75 ;;^UTILITY(U,$J,114,166,"X",1,0)
+76 ;;=1) STEAM POTATOES UNTIL TENDER; DRAION OFF EXCESS LIQUID.
+77 ;;^UTILITY(U,$J,114,166,"X",2,0)
+78 ;;=2) TRANSFER POTATOES TO MIXING BOWL. BEAT ON LOW SPEED UNTIL POTATOES
+79 ;;^UTILITY(U,$J,114,166,"X",3,0)
+80 ;;= ARE BROKEN INTO SMALLER PIECES.
+81 ;;^UTILITY(U,$J,114,166,"X",4,0)
+82 ;;=3) ADD MARGARINE AND SALT TO POTATOES; BEAT ON HIGH SPEED 3 TO 5
+83 ;;^UTILITY(U,$J,114,166,"X",5,0)
+84 ;;= MINUTES OR UNTIL MIXTURE IS SMOOTH.
+85 ;;^UTILITY(U,$J,114,166,"X",6,0)
+86 ;;=4) RECONSTITUTE MILK. BLEND INTO POTATOES ON LOW SPEED. BEAT ON
+87 ;;^UTILITY(U,$J,114,166,"X",7,0)
+88 ;;= HIGH SPEED FOR 2 MINUTES OR UNTIL LIGHT AND FLUFFY.
+89 ;;^UTILITY(U,$J,114,167,0)
+90 ;;=NAVY BEAN SOUP^100^6-FLOZ^2 HOURS^^10^10^Y^A-78^^S^^.019
+91 ;;^UTILITY(U,$J,114,167,"E",0)
+92 ;;=^114.05P^1^1
+93 ;;^UTILITY(U,$J,114,167,"E",1,0)
+94 ;;=5
+95 ;;^UTILITY(U,$J,114,167,"I",0)
+96 ;;=^114.01PA^7^7
+97 ;;^UTILITY(U,$J,114,167,"I",1,0)
+98 ;;=585^6.25^2269^6.25
+99 ;;^UTILITY(U,$J,114,167,"I",2,0)
+100 ;;=567^2
+101 ;;^UTILITY(U,$J,114,167,"I",3,0)
+102 ;;=847^5^2021
+103 ;;^UTILITY(U,$J,114,167,"I",4,0)
+104 ;;=725^.17188^1384^.17188
+105 ;;^UTILITY(U,$J,114,167,"I",5,0)
+106 ;;=230^.125^1598^.125
+107 ;;^UTILITY(U,$J,114,167,"I",6,0)
+108 ;;=192^.01563^288^.01563
+109 ;;^UTILITY(U,$J,114,167,"I",7,0)
+110 ;;=211^.57813
+111 ;;^UTILITY(U,$J,114,167,"X",0)
+112 ;;=^^3^3^2890724^
+113 ;;^UTILITY(U,$J,114,167,"X",1,0)
+114 ;;=1) COVER BEANS WITH WATER AND SOAK OVERNIGHT. DRAIN OFF WATER AND RECOVER
+115 ;;^UTILITY(U,$J,114,167,"X",2,0)
+116 ;;= WITH FRESH WATER. COOK UNTIL MUSHY (APPROXIMATELY 1 HOUR).
+117 ;;^UTILITY(U,$J,114,167,"X",3,0)
+118 ;;=2) ADD REMAINING INGREDIENTS. SIMMER UNTIL VEGETABLES ARE TENDER.
+119 ;;^UTILITY(U,$J,114,168,0)
+120 ;;=VEGETABLE JUICE COCKTAIL, BULK^100^4-FLOZ^^^^1^N^A-59^^C^^.102
+121 ;;^UTILITY(U,$J,114,168,"I",0)
+122 ;;=^114.01PA^1^1
+123 ;;^UTILITY(U,$J,114,168,"I",1,0)
+124 ;;=533^4^1976^34.144
+125 ;;^UTILITY(U,$J,114,168,"X",0)
+126 ;;=^^1^1^2890801^^
+127 ;;^UTILITY(U,$J,114,168,"X",1,0)
+128 ;;=1) PORTION INTO 4 OZ SERVINGS.
+129 ;;^UTILITY(U,$J,114,169,0)
+130 ;;=OLD FASHIONED NAVY BEAN SOUP^100^6-FLOZ^115 MIN^^10^10^Y^A-79^^S^^.057
+131 ;;^UTILITY(U,$J,114,169,"E",0)
+132 ;;=^114.05P^1^1
+133 ;;^UTILITY(U,$J,114,169,"E",1,0)
+134 ;;=5
+135 ;;^UTILITY(U,$J,114,169,"I",0)
+136 ;;=^114.01PA^9^9
