FHINI0IX ; ; 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,201,"I",3,0)
;;=725^.0625^1384^.0625
;;^UTILITY(U,$J,114,201,"I",4,0)
;;=403^.10938
;;^UTILITY(U,$J,114,201,"I",5,0)
;;=273^12.75^1932^12.75
;;^UTILITY(U,$J,114,201,"I",6,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,201,"I",7,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,201,"I",8,0)
;;=537^1.5^1857^1.5
;;^UTILITY(U,$J,114,201,"X",0)
;;=^^5^5^2890724^
;;^UTILITY(U,$J,114,201,"X",1,0)
;;=1) COMBINE BASE AND WATER TO FORM STOCK.
;;^UTILITY(U,$J,114,201,"X",2,0)
;;=2) ADD VEGETABLES AND SEASONINGS. SIMMER 15-20 MINUTES.
;;^UTILITY(U,$J,114,201,"X",3,0)
;;=3) BREAK SPAGHETTI. ADD BROKEN SPAGHETTI. SIMMER 30 MINUTES OR UNTIL
;;^UTILITY(U,$J,114,201,"X",4,0)
;;= SPAGHETTI IS TENDER. STIR OCCASIONALLY TO PREVENT SPAGHETTI FROM
;;^UTILITY(U,$J,114,201,"X",5,0)
;;= STICKING TO COOKING VESSEL.
;;^UTILITY(U,$J,114,202,0)
;;=PUFFED CORN COATED, IND^100^1-EACH^^^^2^N^C-8^^I
;;^UTILITY(U,$J,114,202,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,202,"I",1,0)
;;=712^100^1127
;;^UTILITY(U,$J,114,202,"X",0)
;;=^^1^1^2890724^
;;^UTILITY(U,$J,114,202,"X",1,0)
;;=1) PLACE ON TRAY ACCORDING TO DIET AND MENU.
;;^UTILITY(U,$J,114,203,0)
;;=CORNFLAKES COATED, IND^100^1-EACH^^^^2^N^C-11^^I
;;^UTILITY(U,$J,114,203,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,203,"I",1,0)
;;=47^100^1143
;;^UTILITY(U,$J,114,203,"X",0)
;;=^^1^1^2890724^
;;^UTILITY(U,$J,114,203,"X",1,0)
;;=1) PLACE ON TRAY ACCORDING TO DIET AND MENU.
;;^UTILITY(U,$J,114,204,0)
;;=HAMBURGER/BUN^100^3-OZ RAW^45MIN^^2^4^Y^E-49^^S^^.009
;;^UTILITY(U,$J,114,204,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,204,"E",1,0)
;;=18
;;^UTILITY(U,$J,114,204,"E",2,0)
;;=2
;;^UTILITY(U,$J,114,204,"I",0)
;;=^114.01PA^8^8
;;^UTILITY(U,$J,114,204,"I",1,0)
;;=22^18.75^2167^18.75
;;^UTILITY(U,$J,114,204,"I",2,0)
;;=867^1.6875^827^1.6875
;;^UTILITY(U,$J,114,204,"I",3,0)
;;=235^.03125
;;^UTILITY(U,$J,114,204,"I",4,0)
;;=847^.125^2021
;;^UTILITY(U,$J,114,204,"I",5,0)
;;=158^2^137^2
;;^UTILITY(U,$J,114,204,"I",6,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,204,"I",7,0)
;;=788^6^6498
;;^UTILITY(U,$J,114,204,"I",8,0)
;;=803^100^1568
;;^UTILITY(U,$J,114,204,"X",0)
;;=^^8^8^2890724^
;;^UTILITY(U,$J,114,204,"X",1,0)
;;=1) COMBINE BEEF AND BREADCRUMBS AND MIX GENTLY.
;;^UTILITY(U,$J,114,204,"X",2,0)
;;=2) COMBINE SOUP AND WATER AND BLEND. RETAIN FOR STEP 3.
;;^UTILITY(U,$J,114,204,"X",3,0)
;;=3) ADD REMAINING INGREDIENTS TOGETHER WITH MIXTURE FROM STEP 2. TO MEAT
;;^UTILITY(U,$J,114,204,"X",4,0)
;;= MIXTURE; MIX ONLY TO BLEND. DO NOT OVER MIX.
;;^UTILITY(U,$J,114,204,"X",5,0)
;;=4) MOLD BY MACHINE; OR USE #10 SCOOP (FLATTEN IF MOLDED WITH SCOOP).
;;^UTILITY(U,$J,114,204,"X",6,0)
;;=5) GRILL HAMBURGERS TO DESIRED DONENESS.
;;^UTILITY(U,$J,114,204,"X",7,0)
;;=6) SERVE 1 HAMBURGER IN CENTER OF SPLIT BUN.
;;^UTILITY(U,$J,114,204,"X",8,0)
;;= NOTE: MAY BE SERVED WITH CATSUP OR MUSTARD.
;;^UTILITY(U,$J,114,205,0)
;;=PUREE MONGOL SOUP^100^6-FLOZ^3-1/2 HRS^^10^10^Y^A-105^^S^^.049
;;^UTILITY(U,$J,114,205,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,205,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,205,"I",0)
;;=^114.01PA^13^13
;;^UTILITY(U,$J,114,205,"I",1,0)
;;=570^4^1425^4
;;^UTILITY(U,$J,114,205,"I",2,0)
;;=847^5^2021
;;^UTILITY(U,$J,114,205,"I",3,0)
;;=768^1^951^1
;;^UTILITY(U,$J,114,205,"I",4,0)
;;=725^.125^1384^.125
;;^UTILITY(U,$J,114,205,"I",5,0)
;;=230^.1875^1598^.1875
;;^UTILITY(U,$J,114,205,"I",6,0)
;;=850^1^262
;;^UTILITY(U,$J,114,205,"I",7,0)
;;=273^8.25^1932^8.25
;;^UTILITY(U,$J,114,205,"I",8,0)
;;=763^1.5^845^1.2
;;^UTILITY(U,$J,114,205,"I",9,0)
;;=41^1^939^1
;;^UTILITY(U,$J,114,205,"I",10,0)
;;=297^1^372^1
;;^UTILITY(U,$J,114,205,"I",11,0)
;;=628^1^1998^1
;;^UTILITY(U,$J,114,205,"I",12,0)
;;=157^1.875^138^1.875
;;^UTILITY(U,$J,114,205,"I",13,0)
;;=1005^1.9375^2021^16.1975
;;^UTILITY(U,$J,114,205,"X",0)
;;=^^13^13^2890724^
;;^UTILITY(U,$J,114,205,"X",1,0)
;;=1) SOAK PEAS IN TAP WATER OVERNIGHT. DRAIN OFF ONE HALF AMOUNT OF
;;^UTILITY(U,$J,114,205,"X",2,0)
;;= WATER AND RETAIN FOR STEP 4.
;;^UTILITY(U,$J,114,205,"X",3,0)
;;=2) ADD CELERY, ONIONS, SALT AND BAY LEAF TO PEAS. COOK SLOWLY FOR 2
;;^UTILITY(U,$J,114,205,"X",4,0)
;;= HOURS OR UNTIL PEAS ARE TENDER.
;;^UTILITY(U,$J,114,205,"X",5,0)
;;=3) ADD TOMATOES TO ABOVE MIXTURE. COOK 30 MINUTES LONGER. PUREE
;;^UTILITY(U,$J,114,205,"X",6,0)
;;= MIXTURE AND RETAIN FOR STEP 6.
;;^UTILITY(U,$J,114,205,"X",7,0)
;;=4) CHOP CABBAGE AND CARROTS AND COOK IN RESERVED LIQUID FROM STEP 1.
FHINI0IX ; ; 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,201,"I",3,0)
+2 ;;=725^.0625^1384^.0625
+3 ;;^UTILITY(U,$J,114,201,"I",4,0)
+4 ;;=403^.10938
+5 ;;^UTILITY(U,$J,114,201,"I",5,0)
+6 ;;=273^12.75^1932^12.75
+7 ;;^UTILITY(U,$J,114,201,"I",6,0)
+8 ;;=230^.125^1598^.125
+9 ;;^UTILITY(U,$J,114,201,"I",7,0)
+10 ;;=192^.01563^288^.01563
+11 ;;^UTILITY(U,$J,114,201,"I",8,0)
+12 ;;=537^1.5^1857^1.5
+13 ;;^UTILITY(U,$J,114,201,"X",0)
+14 ;;=^^5^5^2890724^
+15 ;;^UTILITY(U,$J,114,201,"X",1,0)
+16 ;;=1) COMBINE BASE AND WATER TO FORM STOCK.
+17 ;;^UTILITY(U,$J,114,201,"X",2,0)
+18 ;;=2) ADD VEGETABLES AND SEASONINGS. SIMMER 15-20 MINUTES.
+19 ;;^UTILITY(U,$J,114,201,"X",3,0)
+20 ;;=3) BREAK SPAGHETTI. ADD BROKEN SPAGHETTI. SIMMER 30 MINUTES OR UNTIL
+21 ;;^UTILITY(U,$J,114,201,"X",4,0)
+22 ;;= SPAGHETTI IS TENDER. STIR OCCASIONALLY TO PREVENT SPAGHETTI FROM
+23 ;;^UTILITY(U,$J,114,201,"X",5,0)
+24 ;;= STICKING TO COOKING VESSEL.
+25 ;;^UTILITY(U,$J,114,202,0)
+26 ;;=PUFFED CORN COATED, IND^100^1-EACH^^^^2^N^C-8^^I
+27 ;;^UTILITY(U,$J,114,202,"I",0)
+28 ;;=^114.01PA^1^1
+29 ;;^UTILITY(U,$J,114,202,"I",1,0)
+30 ;;=712^100^1127
+31 ;;^UTILITY(U,$J,114,202,"X",0)
+32 ;;=^^1^1^2890724^
+33 ;;^UTILITY(U,$J,114,202,"X",1,0)
+34 ;;=1) PLACE ON TRAY ACCORDING TO DIET AND MENU.
+35 ;;^UTILITY(U,$J,114,203,0)
+36 ;;=CORNFLAKES COATED, IND^100^1-EACH^^^^2^N^C-11^^I
+37 ;;^UTILITY(U,$J,114,203,"I",0)
+38 ;;=^114.01PA^1^1
+39 ;;^UTILITY(U,$J,114,203,"I",1,0)
+40 ;;=47^100^1143
+41 ;;^UTILITY(U,$J,114,203,"X",0)
+42 ;;=^^1^1^2890724^
+43 ;;^UTILITY(U,$J,114,203,"X",1,0)
+44 ;;=1) PLACE ON TRAY ACCORDING TO DIET AND MENU.
+45 ;;^UTILITY(U,$J,114,204,0)
+46 ;;=HAMBURGER/BUN^100^3-OZ RAW^45MIN^^2^4^Y^E-49^^S^^.009
+47 ;;^UTILITY(U,$J,114,204,"E",0)
+48 ;;=^114.05P^2^2
+49 ;;^UTILITY(U,$J,114,204,"E",1,0)
+50 ;;=18
+51 ;;^UTILITY(U,$J,114,204,"E",2,0)
+52 ;;=2
+53 ;;^UTILITY(U,$J,114,204,"I",0)
+54 ;;=^114.01PA^8^8
+55 ;;^UTILITY(U,$J,114,204,"I",1,0)
+56 ;;=22^18.75^2167^18.75
+57 ;;^UTILITY(U,$J,114,204,"I",2,0)
+58 ;;=867^1.6875^827^1.6875
+59 ;;^UTILITY(U,$J,114,204,"I",3,0)
+60 ;;=235^.03125
+61 ;;^UTILITY(U,$J,114,204,"I",4,0)
+62 ;;=847^.125^2021
+63 ;;^UTILITY(U,$J,114,204,"I",5,0)
+64 ;;=158^2^137^2
+65 ;;^UTILITY(U,$J,114,204,"I",6,0)
+66 ;;=230^.1875^1598^.1875
+67 ;;^UTILITY(U,$J,114,204,"I",7,0)
+68 ;;=788^6^6498
+69 ;;^UTILITY(U,$J,114,204,"I",8,0)
+70 ;;=803^100^1568
+71 ;;^UTILITY(U,$J,114,204,"X",0)
+72 ;;=^^8^8^2890724^
+73 ;;^UTILITY(U,$J,114,204,"X",1,0)
+74 ;;=1) COMBINE BEEF AND BREADCRUMBS AND MIX GENTLY.
+75 ;;^UTILITY(U,$J,114,204,"X",2,0)
+76 ;;=2) COMBINE SOUP AND WATER AND BLEND. RETAIN FOR STEP 3.
+77 ;;^UTILITY(U,$J,114,204,"X",3,0)
+78 ;;=3) ADD REMAINING INGREDIENTS TOGETHER WITH MIXTURE FROM STEP 2. TO MEAT
+79 ;;^UTILITY(U,$J,114,204,"X",4,0)
+80 ;;= MIXTURE; MIX ONLY TO BLEND. DO NOT OVER MIX.
+81 ;;^UTILITY(U,$J,114,204,"X",5,0)
+82 ;;=4) MOLD BY MACHINE; OR USE #10 SCOOP (FLATTEN IF MOLDED WITH SCOOP).
+83 ;;^UTILITY(U,$J,114,204,"X",6,0)
+84 ;;=5) GRILL HAMBURGERS TO DESIRED DONENESS.
+85 ;;^UTILITY(U,$J,114,204,"X",7,0)
+86 ;;=6) SERVE 1 HAMBURGER IN CENTER OF SPLIT BUN.
+87 ;;^UTILITY(U,$J,114,204,"X",8,0)
+88 ;;= NOTE: MAY BE SERVED WITH CATSUP OR MUSTARD.
+89 ;;^UTILITY(U,$J,114,205,0)
+90 ;;=PUREE MONGOL SOUP^100^6-FLOZ^3-1/2 HRS^^10^10^Y^A-105^^S^^.049
+91 ;;^UTILITY(U,$J,114,205,"E",0)
+92 ;;=^114.05P^1^1
+93 ;;^UTILITY(U,$J,114,205,"E",1,0)
+94 ;;=5
+95 ;;^UTILITY(U,$J,114,205,"I",0)
+96 ;;=^114.01PA^13^13
+97 ;;^UTILITY(U,$J,114,205,"I",1,0)
+98 ;;=570^4^1425^4
+99 ;;^UTILITY(U,$J,114,205,"I",2,0)
+100 ;;=847^5^2021
+101 ;;^UTILITY(U,$J,114,205,"I",3,0)
+102 ;;=768^1^951^1
+103 ;;^UTILITY(U,$J,114,205,"I",4,0)
+104 ;;=725^.125^1384^.125
+105 ;;^UTILITY(U,$J,114,205,"I",5,0)
+106 ;;=230^.1875^1598^.1875
+107 ;;^UTILITY(U,$J,114,205,"I",6,0)
+108 ;;=850^1^262
+109 ;;^UTILITY(U,$J,114,205,"I",7,0)
+110 ;;=273^8.25^1932^8.25
+111 ;;^UTILITY(U,$J,114,205,"I",8,0)
+112 ;;=763^1.5^845^1.2
+113 ;;^UTILITY(U,$J,114,205,"I",9,0)
+114 ;;=41^1^939^1
+115 ;;^UTILITY(U,$J,114,205,"I",10,0)
+116 ;;=297^1^372^1
+117 ;;^UTILITY(U,$J,114,205,"I",11,0)
+118 ;;=628^1^1998^1
+119 ;;^UTILITY(U,$J,114,205,"I",12,0)
+120 ;;=157^1.875^138^1.875
+121 ;;^UTILITY(U,$J,114,205,"I",13,0)
+122 ;;=1005^1.9375^2021^16.1975
+123 ;;^UTILITY(U,$J,114,205,"X",0)
+124 ;;=^^13^13^2890724^
+125 ;;^UTILITY(U,$J,114,205,"X",1,0)
+126 ;;=1) SOAK PEAS IN TAP WATER OVERNIGHT. DRAIN OFF ONE HALF AMOUNT OF
+127 ;;^UTILITY(U,$J,114,205,"X",2,0)
+128 ;;= WATER AND RETAIN FOR STEP 4.
+129 ;;^UTILITY(U,$J,114,205,"X",3,0)
+130 ;;=2) ADD CELERY, ONIONS, SALT AND BAY LEAF TO PEAS. COOK SLOWLY FOR 2
+131 ;;^UTILITY(U,$J,114,205,"X",4,0)
+132 ;;= HOURS OR UNTIL PEAS ARE TENDER.
+133 ;;^UTILITY(U,$J,114,205,"X",5,0)
+134 ;;=3) ADD TOMATOES TO ABOVE MIXTURE. COOK 30 MINUTES LONGER. PUREE
+135 ;;^UTILITY(U,$J,114,205,"X",6,0)
+136 ;;= MIXTURE AND RETAIN FOR STEP 6.
+137 ;;^UTILITY(U,$J,114,205,"X",7,0)
+138 ;;=4) CHOP CABBAGE AND CARROTS AND COOK IN RESERVED LIQUID FROM STEP 1.
