FHINI0IQ ; ; 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,169,"I",1,0)
;;=585^5.8125^2269^5.8125
;;^UTILITY(U,$J,114,169,"I",2,0)
;;=847^4^2021
;;^UTILITY(U,$J,114,169,"I",3,0)
;;=987^.75
;;^UTILITY(U,$J,114,169,"I",4,0)
;;=725^.1875^1384^.1875
;;^UTILITY(U,$J,114,169,"I",5,0)
;;=403^.0625
;;^UTILITY(U,$J,114,169,"I",6,0)
;;=866^.875^935^.875
;;^UTILITY(U,$J,114,169,"I",7,0)
;;=273^6.375^1932^6.375
;;^UTILITY(U,$J,114,169,"I",8,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,169,"I",9,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,169,"X",0)
;;=^^7^7^2890724^
;;^UTILITY(U,$J,114,169,"X",1,0)
;;=1) COVER BEANS WITH WATER AND SOAK OVERNIGHT; DRAIN AND ADD FRESH WATER TO
;;^UTILITY(U,$J,114,169,"X",2,0)
;;= COVER BEANS (4 GAL). ADD BACON PIECES. SIMMER UNTIL BEANS ARE TENDER.
;;^UTILITY(U,$J,114,169,"X",3,0)
;;= REMOVE HALF OF THE BEANS AND PUREE. ADD PUREED BEANS TO SOUP MIXTURE FOR
;;^UTILITY(U,$J,114,169,"X",4,0)
;;= THICKENING.
;;^UTILITY(U,$J,114,169,"X",5,0)
;;=2) ADD ONIONS, GREEN PEPPERS AND CARROTS. SIMMER 30 MINUTES. ADD CANNED
;;^UTILITY(U,$J,114,169,"X",6,0)
;;= TOMATOES. ADD WATER TO DESIRED YIELD. HEAT.
;;^UTILITY(U,$J,114,169,"X",7,0)
;;=3) ADD SEASONING AND SERVE.
;;^UTILITY(U,$J,114,170,0)
;;=LS MASHED POTATOES^100^3-OZ^35 MIN^^^7^Y^P-16^^S^^.098
;;^UTILITY(U,$J,114,170,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,170,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,170,"I",0)
;;=^114.01PA^4^4
;;^UTILITY(U,$J,114,170,"I",1,0)
;;=855^20^1506^20
;;^UTILITY(U,$J,114,170,"I",2,0)
;;=624^.75^371^.75
;;^UTILITY(U,$J,114,170,"I",3,0)
;;=986^1.07813^6011^1.07813
;;^UTILITY(U,$J,114,170,"I",4,0)
;;=1006^1.03125^2021^8.62125
;;^UTILITY(U,$J,114,170,"X",0)
;;=^^7^7^2890724^
;;^UTILITY(U,$J,114,170,"X",1,0)
;;=1) STEAM POTATOES UNTIL TENDER. DRAIN OFF EXCESS LIQUID.
;;^UTILITY(U,$J,114,170,"X",2,0)
;;=2) TRANSFER POTATOES TO MIXING BOWL; BEAT ON LOW SPEED UNTIL
;;^UTILITY(U,$J,114,170,"X",3,0)
;;= BROKEN INTO SMALLER PIECES.
;;^UTILITY(U,$J,114,170,"X",4,0)
;;=3) ADD MARGARINE TO POTATOES. BEAT ON HIGH SPEED 3-5 MINUTES
;;^UTILITY(U,$J,114,170,"X",5,0)
;;= OR UNTIL SMOOTH.
;;^UTILITY(U,$J,114,170,"X",6,0)
;;=4) RECONSTITUTE LONALAC; BLEND INTO POTATOES ON LOW SPEED. BEAT ON
;;^UTILITY(U,$J,114,170,"X",7,0)
;;= HIGH SPEED 2 MINUTES OR UNTIL LIGHT AND FLUFFY.
;;^UTILITY(U,$J,114,171,0)
;;=CHILI CON CARNE W/ BEANS^100^6-OZ^1 HR 45MIN^^10^4^Y^E-37^^S^^.074
;;^UTILITY(U,$J,114,171,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,171,"E",1,0)
;;=22
;;^UTILITY(U,$J,114,171,"E",2,0)
;;=5
;;^UTILITY(U,$J,114,171,"I",0)
;;=^114.01PA^10^10
;;^UTILITY(U,$J,114,171,"I",1,0)
;;=725^.25^1384^.25
;;^UTILITY(U,$J,114,171,"I",2,0)
;;=847^.25977^2021
;;^UTILITY(U,$J,114,171,"I",3,0)
;;=532^10^2645^10
;;^UTILITY(U,$J,114,171,"I",4,0)
;;=22^7^2167^7
;;^UTILITY(U,$J,114,171,"I",5,0)
;;=776^2^951^2
;;^UTILITY(U,$J,114,171,"I",6,0)
;;=593^12^1950^12
;;^UTILITY(U,$J,114,171,"I",7,0)
;;=129^.01563^278^.01563
;;^UTILITY(U,$J,114,171,"I",8,0)
;;=77^.10417^267^.10417
;;^UTILITY(U,$J,114,171,"I",9,0)
;;=525^.00781^289^.00781
;;^UTILITY(U,$J,114,171,"I",10,0)
;;=230^.21875^1598^.21875
;;^UTILITY(U,$J,114,171,"X",0)
;;=^^7^7^2890724^
;;^UTILITY(U,$J,114,171,"X",1,0)
;;=1) RECONSTITUTE ONIONS. COMBINE WITH BEEF IN STEAM KETTLE AND BRAISE FOR
;;^UTILITY(U,$J,114,171,"X",2,0)
;;= 35 MINUTES OR UNTIL ONIONS ARE CLEAR. DRAIN OFF EXCESS FAT.
;;^UTILITY(U,$J,114,171,"X",3,0)
;;=2) COMBINE KIDNEY BEANS, CELERY, TOMATO PUREE, AND GARLIC TO MEAT MIXTURE.
;;^UTILITY(U,$J,114,171,"X",4,0)
;;= SIMMER UNTIL VEGETABLES ARE TENDER.
;;^UTILITY(U,$J,114,171,"X",5,0)
;;=3) ADD CHILI POWDER, RED PEPPER AND SALT; MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,171,"X",6,0)
;;=4) SCALE MIXTURE INTO 4 PANS. BAKE IN PREHEATED OVEN FOR 1 HOUR; STIRRING
;;^UTILITY(U,$J,114,171,"X",7,0)
;;= AT LEAST ONCE DURING COOKING.
;;^UTILITY(U,$J,114,172,0)
;;=VEGETABLE JUICE, IND^100^1-EACH^^^^1^N^A-61^^I^^.18
;;^UTILITY(U,$J,114,172,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,172,"I",1,0)
;;=626^100^1976
;;^UTILITY(U,$J,114,172,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,172,"X",1,0)
;;=PLACE ON TRAY AS NEEDED.
;;^UTILITY(U,$J,114,173,0)
;;=CANNED VEGETABLE BEEF SOUP^32^6-FLOZ^15 MIN^^10^10^N^A-109^^C^^.119
;;^UTILITY(U,$J,114,173,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,173,"E",1,0)
;;=7
;;^UTILITY(U,$J,114,173,"I",0)
;;=^114.01PA^2^2
;;^UTILITY(U,$J,114,173,"I",1,0)
;;=248^.78125^579^.78125
;;^UTILITY(U,$J,114,173,"I",2,0)
;;=847^.78125^2021
;;^UTILITY(U,$J,114,173,"X",0)
;;=^^1^1^2890724^
FHINI0IQ ; ; 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,169,"I",1,0)
+2 ;;=585^5.8125^2269^5.8125
+3 ;;^UTILITY(U,$J,114,169,"I",2,0)
+4 ;;=847^4^2021
+5 ;;^UTILITY(U,$J,114,169,"I",3,0)
+6 ;;=987^.75
+7 ;;^UTILITY(U,$J,114,169,"I",4,0)
+8 ;;=725^.1875^1384^.1875
+9 ;;^UTILITY(U,$J,114,169,"I",5,0)
+10 ;;=403^.0625
+11 ;;^UTILITY(U,$J,114,169,"I",6,0)
+12 ;;=866^.875^935^.875
+13 ;;^UTILITY(U,$J,114,169,"I",7,0)
+14 ;;=273^6.375^1932^6.375
+15 ;;^UTILITY(U,$J,114,169,"I",8,0)
+16 ;;=230^.0625^1598^.0625
+17 ;;^UTILITY(U,$J,114,169,"I",9,0)
+18 ;;=192^.01563^288^.01563
+19 ;;^UTILITY(U,$J,114,169,"X",0)
+20 ;;=^^7^7^2890724^
+21 ;;^UTILITY(U,$J,114,169,"X",1,0)
+22 ;;=1) COVER BEANS WITH WATER AND SOAK OVERNIGHT; DRAIN AND ADD FRESH WATER TO
+23 ;;^UTILITY(U,$J,114,169,"X",2,0)
+24 ;;= COVER BEANS (4 GAL). ADD BACON PIECES. SIMMER UNTIL BEANS ARE TENDER.
+25 ;;^UTILITY(U,$J,114,169,"X",3,0)
+26 ;;= REMOVE HALF OF THE BEANS AND PUREE. ADD PUREED BEANS TO SOUP MIXTURE FOR
+27 ;;^UTILITY(U,$J,114,169,"X",4,0)
+28 ;;= THICKENING.
+29 ;;^UTILITY(U,$J,114,169,"X",5,0)
+30 ;;=2) ADD ONIONS, GREEN PEPPERS AND CARROTS. SIMMER 30 MINUTES. ADD CANNED
+31 ;;^UTILITY(U,$J,114,169,"X",6,0)
+32 ;;= TOMATOES. ADD WATER TO DESIRED YIELD. HEAT.
+33 ;;^UTILITY(U,$J,114,169,"X",7,0)
+34 ;;=3) ADD SEASONING AND SERVE.
+35 ;;^UTILITY(U,$J,114,170,0)
+36 ;;=LS MASHED POTATOES^100^3-OZ^35 MIN^^^7^Y^P-16^^S^^.098
+37 ;;^UTILITY(U,$J,114,170,"E",0)
+38 ;;=^114.05P^1^1
+39 ;;^UTILITY(U,$J,114,170,"E",1,0)
+40 ;;=6
+41 ;;^UTILITY(U,$J,114,170,"I",0)
+42 ;;=^114.01PA^4^4
+43 ;;^UTILITY(U,$J,114,170,"I",1,0)
+44 ;;=855^20^1506^20
+45 ;;^UTILITY(U,$J,114,170,"I",2,0)
+46 ;;=624^.75^371^.75
+47 ;;^UTILITY(U,$J,114,170,"I",3,0)
+48 ;;=986^1.07813^6011^1.07813
+49 ;;^UTILITY(U,$J,114,170,"I",4,0)
+50 ;;=1006^1.03125^2021^8.62125
+51 ;;^UTILITY(U,$J,114,170,"X",0)
+52 ;;=^^7^7^2890724^
+53 ;;^UTILITY(U,$J,114,170,"X",1,0)
+54 ;;=1) STEAM POTATOES UNTIL TENDER. DRAIN OFF EXCESS LIQUID.
+55 ;;^UTILITY(U,$J,114,170,"X",2,0)
+56 ;;=2) TRANSFER POTATOES TO MIXING BOWL; BEAT ON LOW SPEED UNTIL
+57 ;;^UTILITY(U,$J,114,170,"X",3,0)
+58 ;;= BROKEN INTO SMALLER PIECES.
+59 ;;^UTILITY(U,$J,114,170,"X",4,0)
+60 ;;=3) ADD MARGARINE TO POTATOES. BEAT ON HIGH SPEED 3-5 MINUTES
+61 ;;^UTILITY(U,$J,114,170,"X",5,0)
+62 ;;= OR UNTIL SMOOTH.
+63 ;;^UTILITY(U,$J,114,170,"X",6,0)
+64 ;;=4) RECONSTITUTE LONALAC; BLEND INTO POTATOES ON LOW SPEED. BEAT ON
+65 ;;^UTILITY(U,$J,114,170,"X",7,0)
+66 ;;= HIGH SPEED 2 MINUTES OR UNTIL LIGHT AND FLUFFY.
+67 ;;^UTILITY(U,$J,114,171,0)
+68 ;;=CHILI CON CARNE W/ BEANS^100^6-OZ^1 HR 45MIN^^10^4^Y^E-37^^S^^.074
+69 ;;^UTILITY(U,$J,114,171,"E",0)
+70 ;;=^114.05P^2^2
+71 ;;^UTILITY(U,$J,114,171,"E",1,0)
+72 ;;=22
+73 ;;^UTILITY(U,$J,114,171,"E",2,0)
+74 ;;=5
+75 ;;^UTILITY(U,$J,114,171,"I",0)
+76 ;;=^114.01PA^10^10
+77 ;;^UTILITY(U,$J,114,171,"I",1,0)
+78 ;;=725^.25^1384^.25
+79 ;;^UTILITY(U,$J,114,171,"I",2,0)
+80 ;;=847^.25977^2021
+81 ;;^UTILITY(U,$J,114,171,"I",3,0)
+82 ;;=532^10^2645^10
+83 ;;^UTILITY(U,$J,114,171,"I",4,0)
+84 ;;=22^7^2167^7
+85 ;;^UTILITY(U,$J,114,171,"I",5,0)
+86 ;;=776^2^951^2
+87 ;;^UTILITY(U,$J,114,171,"I",6,0)
+88 ;;=593^12^1950^12
+89 ;;^UTILITY(U,$J,114,171,"I",7,0)
+90 ;;=129^.01563^278^.01563
+91 ;;^UTILITY(U,$J,114,171,"I",8,0)
+92 ;;=77^.10417^267^.10417
+93 ;;^UTILITY(U,$J,114,171,"I",9,0)
+94 ;;=525^.00781^289^.00781
+95 ;;^UTILITY(U,$J,114,171,"I",10,0)
+96 ;;=230^.21875^1598^.21875
+97 ;;^UTILITY(U,$J,114,171,"X",0)
+98 ;;=^^7^7^2890724^
+99 ;;^UTILITY(U,$J,114,171,"X",1,0)
+100 ;;=1) RECONSTITUTE ONIONS. COMBINE WITH BEEF IN STEAM KETTLE AND BRAISE FOR
+101 ;;^UTILITY(U,$J,114,171,"X",2,0)
+102 ;;= 35 MINUTES OR UNTIL ONIONS ARE CLEAR. DRAIN OFF EXCESS FAT.
+103 ;;^UTILITY(U,$J,114,171,"X",3,0)
+104 ;;=2) COMBINE KIDNEY BEANS, CELERY, TOMATO PUREE, AND GARLIC TO MEAT MIXTURE.
+105 ;;^UTILITY(U,$J,114,171,"X",4,0)
+106 ;;= SIMMER UNTIL VEGETABLES ARE TENDER.
+107 ;;^UTILITY(U,$J,114,171,"X",5,0)
+108 ;;=3) ADD CHILI POWDER, RED PEPPER AND SALT; MIX TO DISTRIBUTE.
+109 ;;^UTILITY(U,$J,114,171,"X",6,0)
+110 ;;=4) SCALE MIXTURE INTO 4 PANS. BAKE IN PREHEATED OVEN FOR 1 HOUR; STIRRING
+111 ;;^UTILITY(U,$J,114,171,"X",7,0)
+112 ;;= AT LEAST ONCE DURING COOKING.
+113 ;;^UTILITY(U,$J,114,172,0)
+114 ;;=VEGETABLE JUICE, IND^100^1-EACH^^^^1^N^A-61^^I^^.18
+115 ;;^UTILITY(U,$J,114,172,"I",0)
+116 ;;=^114.01PA^1^1
+117 ;;^UTILITY(U,$J,114,172,"I",1,0)
+118 ;;=626^100^1976
+119 ;;^UTILITY(U,$J,114,172,"X",0)
+120 ;;=^^1^1^2890801^^
+121 ;;^UTILITY(U,$J,114,172,"X",1,0)
+122 ;;=PLACE ON TRAY AS NEEDED.
+123 ;;^UTILITY(U,$J,114,173,0)
+124 ;;=CANNED VEGETABLE BEEF SOUP^32^6-FLOZ^15 MIN^^10^10^N^A-109^^C^^.119
+125 ;;^UTILITY(U,$J,114,173,"E",0)
+126 ;;=^114.05P^1^1
+127 ;;^UTILITY(U,$J,114,173,"E",1,0)
+128 ;;=7
+129 ;;^UTILITY(U,$J,114,173,"I",0)
+130 ;;=^114.01PA^2^2
+131 ;;^UTILITY(U,$J,114,173,"I",1,0)
+132 ;;=248^.78125^579^.78125
+133 ;;^UTILITY(U,$J,114,173,"I",2,0)
+134 ;;=847^.78125^2021
+135 ;;^UTILITY(U,$J,114,173,"X",0)
+136 ;;=^^1^1^2890724^
