FHINI0IO ; ; 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,155,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,155,"X",1,0)
;;=PLACE ON CAN ON TRAY.
;;^UTILITY(U,$J,114,156,0)
;;=APRICOT NECTAR, BULK^100^4-FLOZ^^^^1^N^A-32^^C^^.084
;;^UTILITY(U,$J,114,156,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,156,"I",1,0)
;;=385^3.125^1633^27.690625
;;^UTILITY(U,$J,114,156,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,156,"X",1,0)
;;=PORTION INTO 4-OZ SERVINGS.
;;^UTILITY(U,$J,114,157,0)
;;=GRAPE JUICE, BULK^100^4-FLOZ^^^^1^N^A-34^^C^^.111
;;^UTILITY(U,$J,114,157,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,157,"I",1,0)
;;=421^3.125^1700^27.865625
;;^UTILITY(U,$J,114,157,"X",0)
;;=^^1^1^2890801^^^^
;;^UTILITY(U,$J,114,157,"X",1,0)
;;=PORTION INTO 4 OZ SERVINGS.
;;^UTILITY(U,$J,114,158,0)
;;=BLAND CREAM OF CORN SOUP^10^6-FLOZ^25 MIN^^10^10^Y^A-95^^S^^.079
;;^UTILITY(U,$J,114,158,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,158,"E",1,0)
;;=7
;;^UTILITY(U,$J,114,158,"I",0)
;;=^114.01PA^6^6
;;^UTILITY(U,$J,114,158,"I",1,0)
;;=297^.15625^372^.15625
;;^UTILITY(U,$J,114,158,"I",2,0)
;;=628^.07813^1998^.07813
;;^UTILITY(U,$J,114,158,"I",3,0)
;;=157^.42188^138^.42188
;;^UTILITY(U,$J,114,158,"I",4,0)
;;=1005^.4375^2021^3.6575
;;^UTILITY(U,$J,114,158,"I",5,0)
;;=322^1^1032^1
;;^UTILITY(U,$J,114,158,"I",6,0)
;;=230^.03125^1598^.03125
;;^UTILITY(U,$J,114,158,"X",0)
;;=^^7^7^2890724^
;;^UTILITY(U,$J,114,158,"X",1,0)
;;=1) COMBINE MARGARINE AND FLOUR TO FORM ROUX. DO NOT BROWN.
;;^UTILITY(U,$J,114,158,"X",2,0)
;;=2) RECONSTITUTE NON-FAT DRIED MILK WITH WATER. ADD MILK SLOWLY TO
;;^UTILITY(U,$J,114,158,"X",3,0)
;;= ROUX AND BLEND THOROUGHLY. COOK UNTIL MIXTURE IS THICKENED.
;;^UTILITY(U,$J,114,158,"X",4,0)
;;=3) COMBINE SALT AND CREAM STYLE CORN. ADD TO CREAM SAUCE; MIX TO
;;^UTILITY(U,$J,114,158,"X",5,0)
;;= DISTRIBUTE.
;;^UTILITY(U,$J,114,158,"X",6,0)
;;=4) NOTE: 1. ADJUST SEASONING TO TASTE. 2. 1/3 OZ MINCED ONION
;;^UTILITY(U,$J,114,158,"X",7,0)
;;= MAY BE ADDED.
;;^UTILITY(U,$J,114,159,0)
;;=PINEAPPLE JUICE, BULK^100^4-FLOZ^^^^1^N^A-42^^C^^.072
;;^UTILITY(U,$J,114,159,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,159,"I",1,0)
;;=495^3.125^1775^27.603125
;;^UTILITY(U,$J,114,159,"X",0)
;;=^^1^1^2890801^^
;;^UTILITY(U,$J,114,159,"X",1,0)
;;=PORTION INTO 4-OZ SERVINGS.
;;^UTILITY(U,$J,114,160,0)
;;=SPLIT PEA SOUP^100^6-FLOZ^3 HOURS^^10^10^Y^A-77^^S^^.001
;;^UTILITY(U,$J,114,160,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,160,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,160,"I",0)
;;=^114.01PA^10^10
;;^UTILITY(U,$J,114,160,"I",1,0)
;;=567^2
;;^UTILITY(U,$J,114,160,"I",2,0)
;;=847^5^2021
;;^UTILITY(U,$J,114,160,"I",3,0)
;;=570^5^1425^5
;;^UTILITY(U,$J,114,160,"I",4,0)
;;=725^.125^1384^.125
;;^UTILITY(U,$J,114,160,"I",5,0)
;;=776^.5^951^.5
;;^UTILITY(U,$J,114,160,"I",6,0)
;;=866^.75^935^.75
;;^UTILITY(U,$J,114,160,"I",7,0)
;;=883^1^221^1
;;^UTILITY(U,$J,114,160,"I",8,0)
;;=230^.125^1598^.125
;;^UTILITY(U,$J,114,160,"I",9,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,160,"I",10,0)
;;=391^.00781^6354
;;^UTILITY(U,$J,114,160,"X",0)
;;=^^3^3^2890724^
;;^UTILITY(U,$J,114,160,"X",1,0)
;;=1) COMBINE BASE AND WATER TO FORM STOCK.
;;^UTILITY(U,$J,114,160,"X",2,0)
;;=2) ADD VEGETABLES. SIMMER FOR 45 MINUTES.
;;^UTILITY(U,$J,114,160,"X",3,0)
;;=3) MINCE HAM. ADD HAM AND SEASONINGS. SIMMER 1 1/2 HOURS.
;;^UTILITY(U,$J,114,161,0)
;;=PRUNE JUICE, BULK^100^4-FLOZ^^^^1^N^A-48^^C^^.093
;;^UTILITY(U,$J,114,161,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,161,"I",1,0)
;;=535^3.125^1790^28.21875
;;^UTILITY(U,$J,114,161,"X",0)
;;=^^1^1^2890801^^^
;;^UTILITY(U,$J,114,161,"X",1,0)
;;=PORTION INTO 4 OZ SERVINGS.
;;^UTILITY(U,$J,114,162,0)
;;=LS LYONNAISE POTATOES^100^3-OZ^30 MIN^^^7^Y^P-13^^S^^.007
;;^UTILITY(U,$J,114,162,"E",0)
;;=^114.05P^2^2
;;^UTILITY(U,$J,114,162,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,162,"E",2,0)
;;=2
;;^UTILITY(U,$J,114,162,"I",0)
;;=^114.01PA^4^4
;;^UTILITY(U,$J,114,162,"I",1,0)
;;=871^32^1506^32
;;^UTILITY(U,$J,114,162,"I",2,0)
;;=725^.125^1384^.125
;;^UTILITY(U,$J,114,162,"I",3,0)
;;=192^.01563^288^.01563
;;^UTILITY(U,$J,114,162,"I",4,0)
;;=289^1.5^363^1.5
;;^UTILITY(U,$J,114,162,"X",0)
;;=^^4^4^2890724^
;;^UTILITY(U,$J,114,162,"X",1,0)
;;=1) STEAM POTATOES UNTIL JUST TENDER. DO NOT OVERCOOK. CHILL SLIGHTLY.
;;^UTILITY(U,$J,114,162,"X",2,0)
;;=2) RECONSTITUTE ONIONS.
;;^UTILITY(U,$J,114,162,"X",3,0)
;;=3) ADD ONIONS AND PEPPER TO CHILLED POTATOES; MIX TO DISTRIBUTE.
;;^UTILITY(U,$J,114,162,"X",4,0)
;;=4) BROWN POTATOES ON GRILL, TURNING FREQUENTLY.
FHINI0IO ; ; 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,155,"X",0)
+2 ;;=^^1^1^2890801^^
+3 ;;^UTILITY(U,$J,114,155,"X",1,0)
+4 ;;=PLACE ON CAN ON TRAY.
+5 ;;^UTILITY(U,$J,114,156,0)
+6 ;;=APRICOT NECTAR, BULK^100^4-FLOZ^^^^1^N^A-32^^C^^.084
+7 ;;^UTILITY(U,$J,114,156,"I",0)
+8 ;;=^114.01PA^1^1
+9 ;;^UTILITY(U,$J,114,156,"I",1,0)
+10 ;;=385^3.125^1633^27.690625
+11 ;;^UTILITY(U,$J,114,156,"X",0)
+12 ;;=^^1^1^2890801^^
+13 ;;^UTILITY(U,$J,114,156,"X",1,0)
+14 ;;=PORTION INTO 4-OZ SERVINGS.
+15 ;;^UTILITY(U,$J,114,157,0)
+16 ;;=GRAPE JUICE, BULK^100^4-FLOZ^^^^1^N^A-34^^C^^.111
+17 ;;^UTILITY(U,$J,114,157,"I",0)
+18 ;;=^114.01PA^1^1
+19 ;;^UTILITY(U,$J,114,157,"I",1,0)
+20 ;;=421^3.125^1700^27.865625
+21 ;;^UTILITY(U,$J,114,157,"X",0)
+22 ;;=^^1^1^2890801^^^^
+23 ;;^UTILITY(U,$J,114,157,"X",1,0)
+24 ;;=PORTION INTO 4 OZ SERVINGS.
+25 ;;^UTILITY(U,$J,114,158,0)
+26 ;;=BLAND CREAM OF CORN SOUP^10^6-FLOZ^25 MIN^^10^10^Y^A-95^^S^^.079
+27 ;;^UTILITY(U,$J,114,158,"E",0)
+28 ;;=^114.05P^1^1
+29 ;;^UTILITY(U,$J,114,158,"E",1,0)
+30 ;;=7
+31 ;;^UTILITY(U,$J,114,158,"I",0)
+32 ;;=^114.01PA^6^6
+33 ;;^UTILITY(U,$J,114,158,"I",1,0)
+34 ;;=297^.15625^372^.15625
+35 ;;^UTILITY(U,$J,114,158,"I",2,0)
+36 ;;=628^.07813^1998^.07813
+37 ;;^UTILITY(U,$J,114,158,"I",3,0)
+38 ;;=157^.42188^138^.42188
+39 ;;^UTILITY(U,$J,114,158,"I",4,0)
+40 ;;=1005^.4375^2021^3.6575
+41 ;;^UTILITY(U,$J,114,158,"I",5,0)
+42 ;;=322^1^1032^1
+43 ;;^UTILITY(U,$J,114,158,"I",6,0)
+44 ;;=230^.03125^1598^.03125
+45 ;;^UTILITY(U,$J,114,158,"X",0)
+46 ;;=^^7^7^2890724^
+47 ;;^UTILITY(U,$J,114,158,"X",1,0)
+48 ;;=1) COMBINE MARGARINE AND FLOUR TO FORM ROUX. DO NOT BROWN.
+49 ;;^UTILITY(U,$J,114,158,"X",2,0)
+50 ;;=2) RECONSTITUTE NON-FAT DRIED MILK WITH WATER. ADD MILK SLOWLY TO
+51 ;;^UTILITY(U,$J,114,158,"X",3,0)
+52 ;;= ROUX AND BLEND THOROUGHLY. COOK UNTIL MIXTURE IS THICKENED.
+53 ;;^UTILITY(U,$J,114,158,"X",4,0)
+54 ;;=3) COMBINE SALT AND CREAM STYLE CORN. ADD TO CREAM SAUCE; MIX TO
+55 ;;^UTILITY(U,$J,114,158,"X",5,0)
+56 ;;= DISTRIBUTE.
+57 ;;^UTILITY(U,$J,114,158,"X",6,0)
+58 ;;=4) NOTE: 1. ADJUST SEASONING TO TASTE. 2. 1/3 OZ MINCED ONION
+59 ;;^UTILITY(U,$J,114,158,"X",7,0)
+60 ;;= MAY BE ADDED.
+61 ;;^UTILITY(U,$J,114,159,0)
+62 ;;=PINEAPPLE JUICE, BULK^100^4-FLOZ^^^^1^N^A-42^^C^^.072
+63 ;;^UTILITY(U,$J,114,159,"I",0)
+64 ;;=^114.01PA^1^1
+65 ;;^UTILITY(U,$J,114,159,"I",1,0)
+66 ;;=495^3.125^1775^27.603125
+67 ;;^UTILITY(U,$J,114,159,"X",0)
+68 ;;=^^1^1^2890801^^
+69 ;;^UTILITY(U,$J,114,159,"X",1,0)
+70 ;;=PORTION INTO 4-OZ SERVINGS.
+71 ;;^UTILITY(U,$J,114,160,0)
+72 ;;=SPLIT PEA SOUP^100^6-FLOZ^3 HOURS^^10^10^Y^A-77^^S^^.001
+73 ;;^UTILITY(U,$J,114,160,"E",0)
+74 ;;=^114.05P^1^1
+75 ;;^UTILITY(U,$J,114,160,"E",1,0)
+76 ;;=5
+77 ;;^UTILITY(U,$J,114,160,"I",0)
+78 ;;=^114.01PA^10^10
+79 ;;^UTILITY(U,$J,114,160,"I",1,0)
+80 ;;=567^2
+81 ;;^UTILITY(U,$J,114,160,"I",2,0)
+82 ;;=847^5^2021
+83 ;;^UTILITY(U,$J,114,160,"I",3,0)
+84 ;;=570^5^1425^5
+85 ;;^UTILITY(U,$J,114,160,"I",4,0)
+86 ;;=725^.125^1384^.125
+87 ;;^UTILITY(U,$J,114,160,"I",5,0)
+88 ;;=776^.5^951^.5
+89 ;;^UTILITY(U,$J,114,160,"I",6,0)
+90 ;;=866^.75^935^.75
+91 ;;^UTILITY(U,$J,114,160,"I",7,0)
+92 ;;=883^1^221^1
+93 ;;^UTILITY(U,$J,114,160,"I",8,0)
+94 ;;=230^.125^1598^.125
+95 ;;^UTILITY(U,$J,114,160,"I",9,0)
+96 ;;=192^.01563^288^.01563
+97 ;;^UTILITY(U,$J,114,160,"I",10,0)
+98 ;;=391^.00781^6354
+99 ;;^UTILITY(U,$J,114,160,"X",0)
+100 ;;=^^3^3^2890724^
+101 ;;^UTILITY(U,$J,114,160,"X",1,0)
+102 ;;=1) COMBINE BASE AND WATER TO FORM STOCK.
+103 ;;^UTILITY(U,$J,114,160,"X",2,0)
+104 ;;=2) ADD VEGETABLES. SIMMER FOR 45 MINUTES.
+105 ;;^UTILITY(U,$J,114,160,"X",3,0)
+106 ;;=3) MINCE HAM. ADD HAM AND SEASONINGS. SIMMER 1 1/2 HOURS.
+107 ;;^UTILITY(U,$J,114,161,0)
+108 ;;=PRUNE JUICE, BULK^100^4-FLOZ^^^^1^N^A-48^^C^^.093
+109 ;;^UTILITY(U,$J,114,161,"I",0)
+110 ;;=^114.01PA^1^1
+111 ;;^UTILITY(U,$J,114,161,"I",1,0)
+112 ;;=535^3.125^1790^28.21875
+113 ;;^UTILITY(U,$J,114,161,"X",0)
+114 ;;=^^1^1^2890801^^^
+115 ;;^UTILITY(U,$J,114,161,"X",1,0)
+116 ;;=PORTION INTO 4 OZ SERVINGS.
+117 ;;^UTILITY(U,$J,114,162,0)
+118 ;;=LS LYONNAISE POTATOES^100^3-OZ^30 MIN^^^7^Y^P-13^^S^^.007
+119 ;;^UTILITY(U,$J,114,162,"E",0)
+120 ;;=^114.05P^2^2
+121 ;;^UTILITY(U,$J,114,162,"E",1,0)
+122 ;;=6
+123 ;;^UTILITY(U,$J,114,162,"E",2,0)
+124 ;;=2
+125 ;;^UTILITY(U,$J,114,162,"I",0)
+126 ;;=^114.01PA^4^4
+127 ;;^UTILITY(U,$J,114,162,"I",1,0)
+128 ;;=871^32^1506^32
+129 ;;^UTILITY(U,$J,114,162,"I",2,0)
+130 ;;=725^.125^1384^.125
+131 ;;^UTILITY(U,$J,114,162,"I",3,0)
+132 ;;=192^.01563^288^.01563
+133 ;;^UTILITY(U,$J,114,162,"I",4,0)
+134 ;;=289^1.5^363^1.5
+135 ;;^UTILITY(U,$J,114,162,"X",0)
+136 ;;=^^4^4^2890724^
+137 ;;^UTILITY(U,$J,114,162,"X",1,0)
+138 ;;=1) STEAM POTATOES UNTIL JUST TENDER. DO NOT OVERCOOK. CHILL SLIGHTLY.
+139 ;;^UTILITY(U,$J,114,162,"X",2,0)
+140 ;;=2) RECONSTITUTE ONIONS.
+141 ;;^UTILITY(U,$J,114,162,"X",3,0)
+142 ;;=3) ADD ONIONS AND PEPPER TO CHILLED POTATOES; MIX TO DISTRIBUTE.
+143 ;;^UTILITY(U,$J,114,162,"X",4,0)
+144 ;;=4) BROWN POTATOES ON GRILL, TURNING FREQUENTLY.
