FHINI0IZ ; ; 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,210,"X",1,0)
;;=PLACE ON TRAY ACCORDING TO DIET AND MENU.
;;^UTILITY(U,$J,114,211,0)
;;=PUFFED RICE-GUN, IND^100^1-EACH^^^^2^N^C-25^^I
;;^UTILITY(U,$J,114,211,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,211,"I",1,0)
;;=53^100^1191
;;^UTILITY(U,$J,114,211,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,211,"X",1,0)
;;=PLACE ON TRAY ACCORDING TO DIET AND MENU.
;;^UTILITY(U,$J,114,212,0)
;;=SWEET POTATOES WITH APPLES^100^6-OZ^20 MIN^^^7^Y^P-31^^S^^.172
;;^UTILITY(U,$J,114,212,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,212,"E",1,0)
;;=22
;;^UTILITY(U,$J,114,212,"I",0)
;;=^114.01PA^6^6
;;^UTILITY(U,$J,114,212,"I",1,0)
;;=209^25.5^1914^25.5
;;^UTILITY(U,$J,114,212,"I",2,0)
;;=375^13^1615^13
;;^UTILITY(U,$J,114,212,"I",3,0)
;;=255^2.25^1905^2.25
;;^UTILITY(U,$J,114,212,"I",4,0)
;;=297^1.5^372^1.5
;;^UTILITY(U,$J,114,212,"I",5,0)
;;=230^.15625^1598^.15625
;;^UTILITY(U,$J,114,212,"I",6,0)
;;=847^.0625^2021
;;^UTILITY(U,$J,114,212,"X",0)
;;=^^4^4^2890724^
;;^UTILITY(U,$J,114,212,"X",1,0)
;;=1) ALTERNATE LAYERS OF POTATOES AND APPLES IN PANS. COVER WITH
;;^UTILITY(U,$J,114,212,"X",2,0)
;;= BROWN SUGAR, DOT WITH MARGARINE, AND SPRINKLE WITH SALT.
;;^UTILITY(U,$J,114,212,"X",3,0)
;;= ADD WATER TO PANS.
;;^UTILITY(U,$J,114,212,"X",4,0)
;;=2) BAKE UNTIL POTATOES AND APPLES ARE THOROUGHLY HEATED.
;;^UTILITY(U,$J,114,213,0)
;;=RICE KRISPIES, IND^100^1-EACH^^^^2^N^C-30^^I
;;^UTILITY(U,$J,114,213,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,213,"I",1,0)
;;=52^100^1139
;;^UTILITY(U,$J,114,213,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,213,"X",1,0)
;;=PLACE ON TRAY ACCORDING TO DIET AND MENU.
;;^UTILITY(U,$J,114,214,0)
;;=RICE KRISPIES, BULK^100^.5-OZ^^^^2^N^C-31^^R
;;^UTILITY(U,$J,114,214,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,214,"I",1,0)
;;=693^3.125^1139^3.125
;;^UTILITY(U,$J,114,214,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,214,"X",1,0)
;;=PORTION AS NEEDED.
;;^UTILITY(U,$J,114,215,0)
;;=MULLIGATAWNY SOUP^100^6-FLOZ^3 HOURS^^10^10^Y^A-89^^S^^.039
;;^UTILITY(U,$J,114,215,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,215,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,215,"I",0)
;;=^114.01PA^12^12
;;^UTILITY(U,$J,114,215,"I",1,0)
;;=232^2^2789^2
;;^UTILITY(U,$J,114,215,"I",2,0)
;;=847^4^2021
;;^UTILITY(U,$J,114,215,"I",3,0)
;;=725^.25^1384^.25
;;^UTILITY(U,$J,114,215,"I",4,0)
;;=403^.0625
;;^UTILITY(U,$J,114,215,"I",5,0)
;;=776^2^951^2
;;^UTILITY(U,$J,114,215,"I",6,0)
;;=273^6.375^1932^6.375
;;^UTILITY(U,$J,114,215,"I",7,0)
;;=849^.0026^269^.0026
;;^UTILITY(U,$J,114,215,"I",8,0)
;;=782^.02083^273^.02083
;;^UTILITY(U,$J,114,215,"I",9,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,215,"I",10,0)
;;=752^2^1611
;;^UTILITY(U,$J,114,215,"I",11,0)
;;=866^2^935^2
;;^UTILITY(U,$J,114,215,"I",12,0)
;;=820^.0625^2048^.059375
;;^UTILITY(U,$J,114,215,"X",0)
;;=^^5^5^2890724^
;;^UTILITY(U,$J,114,215,"X",1,0)
;;=1) COMBINE BASE AND WATER TO FORM STOCK.
;;^UTILITY(U,$J,114,215,"X",2,0)
;;=2) DICE APPLES (UNPEELED). ADD VEGETABLES, SEASONINGS, AND APPLES. SIMMER
;;^UTILITY(U,$J,114,215,"X",3,0)
;;= 1 1/2 HOURS.
;;^UTILITY(U,$J,114,215,"X",4,0)
;;=3) ADD CARROTS. RAISE TEMPERATURE TO BOILING UNTIL CARROTS ARE COOKED.
;;^UTILITY(U,$J,114,215,"X",5,0)
;;=4) GARNISH WITH MINCED PARSLEY.
;;^UTILITY(U,$J,114,216,0)
;;=BARBECUED SLICED BEEF ON BUN^100^5-OZ^7 HOURS^^1^4^Y^E-47^^S^^.062
;;^UTILITY(U,$J,114,216,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,216,"E",1,0)
;;=25
;;^UTILITY(U,$J,114,216,"E",2,0)
;;=6
;;^UTILITY(U,$J,114,216,"I",0)
;;=^114.01PA^17^17
;;^UTILITY(U,$J,114,216,"I",1,0)
;;=348^18.75^2149^17.625
;;^UTILITY(U,$J,114,216,"I",2,0)
;;=725^.375^1384^.375
;;^UTILITY(U,$J,114,216,"I",3,0)
;;=847^.32813^2021
;;^UTILITY(U,$J,114,216,"I",4,0)
;;=129^.04688^278^.04688
;;^UTILITY(U,$J,114,216,"I",5,0)
;;=593^13.125^1950^13.125
;;^UTILITY(U,$J,114,216,"I",6,0)
;;=255^.5^1905^.5
;;^UTILITY(U,$J,114,216,"I",7,0)
;;=382^.03125
;;^UTILITY(U,$J,114,216,"I",8,0)
;;=230^.0625^1598^.0625
;;^UTILITY(U,$J,114,216,"I",9,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,216,"I",10,0)
;;=924^.03125^286^.03125
;;^UTILITY(U,$J,114,216,"I",11,0)
;;=191^.00781^1940^.064042
;;^UTILITY(U,$J,114,216,"I",12,0)
;;=431^.32813^1987^2.77794858
;;^UTILITY(U,$J,114,216,"I",13,0)
;;=391^.01563^6354
;;^UTILITY(U,$J,114,216,"I",14,0)
;;=573^3.46875^1938^3.46875
;;^UTILITY(U,$J,114,216,"I",15,0)
;;=235^.1875
;;^UTILITY(U,$J,114,216,"I",16,0)
;;=1006^.6875^2021^5.7475
;;^UTILITY(U,$J,114,216,"I",17,0)
;;=803^100^1568
FHINI0IZ ; ; 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,210,"X",1,0)
+2 ;;=PLACE ON TRAY ACCORDING TO DIET AND MENU.
+3 ;;^UTILITY(U,$J,114,211,0)
+4 ;;=PUFFED RICE-GUN, IND^100^1-EACH^^^^2^N^C-25^^I
+5 ;;^UTILITY(U,$J,114,211,"I",0)
+6 ;;=^114.01PA^1^1
+7 ;;^UTILITY(U,$J,114,211,"I",1,0)
+8 ;;=53^100^1191
+9 ;;^UTILITY(U,$J,114,211,"X",0)
+10 ;;=^^1^1^2890801^^
+11 ;;^UTILITY(U,$J,114,211,"X",1,0)
+12 ;;=PLACE ON TRAY ACCORDING TO DIET AND MENU.
+13 ;;^UTILITY(U,$J,114,212,0)
+14 ;;=SWEET POTATOES WITH APPLES^100^6-OZ^20 MIN^^^7^Y^P-31^^S^^.172
+15 ;;^UTILITY(U,$J,114,212,"E",0)
+16 ;;=^114.05P^1^1
+17 ;;^UTILITY(U,$J,114,212,"E",1,0)
+18 ;;=22
+19 ;;^UTILITY(U,$J,114,212,"I",0)
+20 ;;=^114.01PA^6^6
+21 ;;^UTILITY(U,$J,114,212,"I",1,0)
+22 ;;=209^25.5^1914^25.5
+23 ;;^UTILITY(U,$J,114,212,"I",2,0)
+24 ;;=375^13^1615^13
+25 ;;^UTILITY(U,$J,114,212,"I",3,0)
+26 ;;=255^2.25^1905^2.25
+27 ;;^UTILITY(U,$J,114,212,"I",4,0)
+28 ;;=297^1.5^372^1.5
+29 ;;^UTILITY(U,$J,114,212,"I",5,0)
+30 ;;=230^.15625^1598^.15625
+31 ;;^UTILITY(U,$J,114,212,"I",6,0)
+32 ;;=847^.0625^2021
+33 ;;^UTILITY(U,$J,114,212,"X",0)
+34 ;;=^^4^4^2890724^
+35 ;;^UTILITY(U,$J,114,212,"X",1,0)
+36 ;;=1) ALTERNATE LAYERS OF POTATOES AND APPLES IN PANS. COVER WITH
+37 ;;^UTILITY(U,$J,114,212,"X",2,0)
+38 ;;= BROWN SUGAR, DOT WITH MARGARINE, AND SPRINKLE WITH SALT.
+39 ;;^UTILITY(U,$J,114,212,"X",3,0)
+40 ;;= ADD WATER TO PANS.
+41 ;;^UTILITY(U,$J,114,212,"X",4,0)
+42 ;;=2) BAKE UNTIL POTATOES AND APPLES ARE THOROUGHLY HEATED.
+43 ;;^UTILITY(U,$J,114,213,0)
+44 ;;=RICE KRISPIES, IND^100^1-EACH^^^^2^N^C-30^^I
+45 ;;^UTILITY(U,$J,114,213,"I",0)
+46 ;;=^114.01PA^1^1
+47 ;;^UTILITY(U,$J,114,213,"I",1,0)
+48 ;;=52^100^1139
+49 ;;^UTILITY(U,$J,114,213,"X",0)
+50 ;;=^^1^1^2890801^^
+51 ;;^UTILITY(U,$J,114,213,"X",1,0)
+52 ;;=PLACE ON TRAY ACCORDING TO DIET AND MENU.
+53 ;;^UTILITY(U,$J,114,214,0)
+54 ;;=RICE KRISPIES, BULK^100^.5-OZ^^^^2^N^C-31^^R
+55 ;;^UTILITY(U,$J,114,214,"I",0)
+56 ;;=^114.01PA^1^1
+57 ;;^UTILITY(U,$J,114,214,"I",1,0)
+58 ;;=693^3.125^1139^3.125
+59 ;;^UTILITY(U,$J,114,214,"X",0)
+60 ;;=^^1^1^2890801^^
+61 ;;^UTILITY(U,$J,114,214,"X",1,0)
+62 ;;=PORTION AS NEEDED.
+63 ;;^UTILITY(U,$J,114,215,0)
+64 ;;=MULLIGATAWNY SOUP^100^6-FLOZ^3 HOURS^^10^10^Y^A-89^^S^^.039
+65 ;;^UTILITY(U,$J,114,215,"E",0)
+66 ;;=^114.05P^1^1
+67 ;;^UTILITY(U,$J,114,215,"E",1,0)
+68 ;;=5
+69 ;;^UTILITY(U,$J,114,215,"I",0)
+70 ;;=^114.01PA^12^12
+71 ;;^UTILITY(U,$J,114,215,"I",1,0)
+72 ;;=232^2^2789^2
+73 ;;^UTILITY(U,$J,114,215,"I",2,0)
+74 ;;=847^4^2021
+75 ;;^UTILITY(U,$J,114,215,"I",3,0)
+76 ;;=725^.25^1384^.25
+77 ;;^UTILITY(U,$J,114,215,"I",4,0)
+78 ;;=403^.0625
+79 ;;^UTILITY(U,$J,114,215,"I",5,0)
+80 ;;=776^2^951^2
+81 ;;^UTILITY(U,$J,114,215,"I",6,0)
+82 ;;=273^6.375^1932^6.375
+83 ;;^UTILITY(U,$J,114,215,"I",7,0)
+84 ;;=849^.0026^269^.0026
+85 ;;^UTILITY(U,$J,114,215,"I",8,0)
+86 ;;=782^.02083^273^.02083
+87 ;;^UTILITY(U,$J,114,215,"I",9,0)
+88 ;;=230^.0625^1598^.0625
+89 ;;^UTILITY(U,$J,114,215,"I",10,0)
+90 ;;=752^2^1611
+91 ;;^UTILITY(U,$J,114,215,"I",11,0)
+92 ;;=866^2^935^2
+93 ;;^UTILITY(U,$J,114,215,"I",12,0)
+94 ;;=820^.0625^2048^.059375
+95 ;;^UTILITY(U,$J,114,215,"X",0)
+96 ;;=^^5^5^2890724^
+97 ;;^UTILITY(U,$J,114,215,"X",1,0)
+98 ;;=1) COMBINE BASE AND WATER TO FORM STOCK.
+99 ;;^UTILITY(U,$J,114,215,"X",2,0)
+100 ;;=2) DICE APPLES (UNPEELED). ADD VEGETABLES, SEASONINGS, AND APPLES. SIMMER
+101 ;;^UTILITY(U,$J,114,215,"X",3,0)
+102 ;;= 1 1/2 HOURS.
+103 ;;^UTILITY(U,$J,114,215,"X",4,0)
+104 ;;=3) ADD CARROTS. RAISE TEMPERATURE TO BOILING UNTIL CARROTS ARE COOKED.
+105 ;;^UTILITY(U,$J,114,215,"X",5,0)
+106 ;;=4) GARNISH WITH MINCED PARSLEY.
+107 ;;^UTILITY(U,$J,114,216,0)
+108 ;;=BARBECUED SLICED BEEF ON BUN^100^5-OZ^7 HOURS^^1^4^Y^E-47^^S^^.062
+109 ;;^UTILITY(U,$J,114,216,"E",0)
+110 ;;=^114.05P^2^2
+111 ;;^UTILITY(U,$J,114,216,"E",1,0)
+112 ;;=25
+113 ;;^UTILITY(U,$J,114,216,"E",2,0)
+114 ;;=6
+115 ;;^UTILITY(U,$J,114,216,"I",0)
+116 ;;=^114.01PA^17^17
+117 ;;^UTILITY(U,$J,114,216,"I",1,0)
+118 ;;=348^18.75^2149^17.625
+119 ;;^UTILITY(U,$J,114,216,"I",2,0)
+120 ;;=725^.375^1384^.375
+121 ;;^UTILITY(U,$J,114,216,"I",3,0)
+122 ;;=847^.32813^2021
+123 ;;^UTILITY(U,$J,114,216,"I",4,0)
+124 ;;=129^.04688^278^.04688
+125 ;;^UTILITY(U,$J,114,216,"I",5,0)
+126 ;;=593^13.125^1950^13.125
+127 ;;^UTILITY(U,$J,114,216,"I",6,0)
+128 ;;=255^.5^1905^.5
+129 ;;^UTILITY(U,$J,114,216,"I",7,0)
+130 ;;=382^.03125
+131 ;;^UTILITY(U,$J,114,216,"I",8,0)
+132 ;;=230^.0625^1598^.0625
+133 ;;^UTILITY(U,$J,114,216,"I",9,0)
+134 ;;=192^.01563^288^.01563
+135 ;;^UTILITY(U,$J,114,216,"I",10,0)
+136 ;;=924^.03125^286^.03125
+137 ;;^UTILITY(U,$J,114,216,"I",11,0)
+138 ;;=191^.00781^1940^.064042
+139 ;;^UTILITY(U,$J,114,216,"I",12,0)
+140 ;;=431^.32813^1987^2.77794858
+141 ;;^UTILITY(U,$J,114,216,"I",13,0)
+142 ;;=391^.01563^6354
+143 ;;^UTILITY(U,$J,114,216,"I",14,0)
+144 ;;=573^3.46875^1938^3.46875
+145 ;;^UTILITY(U,$J,114,216,"I",15,0)
+146 ;;=235^.1875
+147 ;;^UTILITY(U,$J,114,216,"I",16,0)
+148 ;;=1006^.6875^2021^5.7475
+149 ;;^UTILITY(U,$J,114,216,"I",17,0)
+150 ;;=803^100^1568
