FHINI0K6 ; ; 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,501,0)
;;=BRUSSELS SPROUTS, FROZEN^100^3-OZ^15 MIN^^12^9^N^V-22^^F
;;^UTILITY(U,$J,114,501,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,501,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,501,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,501,"I",1,0)
;;=336^18.75^840^18.75
;;^UTILITY(U,$J,114,501,"X",0)
;;=^^1^1^2890727^
;;^UTILITY(U,$J,114,501,"X",1,0)
;;=1) STEAM BRUSSELS SPROUTS ACCORDING TO STEAMER DIRECTIONS.
;;^UTILITY(U,$J,114,502,0)
;;=CARROTS, CND^100^3-OZ^15 MIN^^12^9^N^V-27^^C^^.055
;;^UTILITY(U,$J,114,502,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,502,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,502,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,502,"I",1,0)
;;=41^18.75^939^18.75
;;^UTILITY(U,$J,114,502,"X",0)
;;=^^1^1^2890727^
;;^UTILITY(U,$J,114,502,"X",1,0)
;;=1) STEAM CARROTS UNTIL TENDER ACCORDING TO STEAMER DIRECTIONS.
;;^UTILITY(U,$J,114,503,0)
;;=LS CARROTS, CND^50^3-OZ^15 MIN^^12^9^N^V-28^^C
;;^UTILITY(U,$J,114,503,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,503,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,503,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,503,"I",1,0)
;;=541^9.375^941^9.375
;;^UTILITY(U,$J,114,503,"X",0)
;;=^^1^1^2890727^
;;^UTILITY(U,$J,114,503,"X",1,0)
;;=1) STEAM CARROTS UNTIL TENDER ACCORDING TO STEAMER DIRECTIONS.
;;^UTILITY(U,$J,114,504,0)
;;=CARROTS, FROZEN^100^3-OZ^15 MIN^^12^9^N^V-29^^F
;;^UTILITY(U,$J,114,504,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,504,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,504,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,504,"I",1,0)
;;=361^18.75^2038^18.75
;;^UTILITY(U,$J,114,504,"X",0)
;;=^^1^1^2890727^
;;^UTILITY(U,$J,114,504,"X",1,0)
;;=1) STEAM CARROTS UNTIL TENDER ACCORDING TO STEAMER DIRECTIONS.
;;^UTILITY(U,$J,114,505,0)
;;=PUREED CARROTS^10^2-OZ^15 MIN^^8^9^N^V-30^^C^^.059
;;^UTILITY(U,$J,114,505,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,505,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,505,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,505,"I",1,0)
;;=528^1.25^6449^1.25
;;^UTILITY(U,$J,114,505,"X",0)
;;=^^1^1^2890727^
;;^UTILITY(U,$J,114,505,"X",1,0)
;;=1) STEAM CARROTS ACOORDING TO STEAMER DIRECTIONS.
;;^UTILITY(U,$J,114,506,0)
;;=CAULIFLOWER, FROZEN^100^4-OZ^15 MIN^^12^9^N^V-33^^F
;;^UTILITY(U,$J,114,506,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,506,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,506,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,506,"I",1,0)
;;=359^25^948^25
;;^UTILITY(U,$J,114,506,"X",0)
;;=^^1^1^2890727^
;;^UTILITY(U,$J,114,506,"X",1,0)
;;=1) STEAM CAULIFLOWER UNTIL TENDER ACCORDING TO STEAMER DIRECTIONS.
;;^UTILITY(U,$J,114,507,0)
;;=CORN ON THE COB^100^1-EACH^15 MIN^^1^9^N^V-37^^F
;;^UTILITY(U,$J,114,507,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,507,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,507,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,507,"I",1,0)
;;=365^100^1044
;;^UTILITY(U,$J,114,507,"X",0)
;;=^^1^1^2890727^
;;^UTILITY(U,$J,114,507,"X",1,0)
;;=1) STEAM CORN ACCORCING TO STEAMER DIRECTIONS.
;;^UTILITY(U,$J,114,508,0)
;;=WHOLE GRAIN CORN, FROZEN^100^3-OZ^15 MIN^^12^9^N^V-38^^F
;;^UTILITY(U,$J,114,508,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,508,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,508,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,508,"I",1,0)
;;=338^18.75^1040^18.75
;;^UTILITY(U,$J,114,508,"X",0)
;;=^^1^1^2890727^
;;^UTILITY(U,$J,114,508,"X",1,0)
;;=1) STEAM CORN ACCORDING TO STEAMER DIRECTIONS.
;;^UTILITY(U,$J,114,509,0)
;;=LS WHOLE GRAIN CORN, CND^50^3-OZ^15 MIN^^12^9^N^V-39^^C
;;^UTILITY(U,$J,114,509,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,509,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,509,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,509,"I",1,0)
;;=544^9.375^1038^9.375
;;^UTILITY(U,$J,114,509,"X",0)
;;=^^1^1^2890727^
;;^UTILITY(U,$J,114,509,"X",1,0)
;;=1) STEAM CORN ACCORDING TO STEAMER DIRECTIONS.
;;^UTILITY(U,$J,114,510,0)
;;=CREAM STYLE CORN^100^3-OZ^15 MIN^^14^9^N^V-42^^C^^.065
;;^UTILITY(U,$J,114,510,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,510,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,510,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,510,"I",1,0)
;;=322^18.75^1032^18.75
;;^UTILITY(U,$J,114,510,"X",0)
;;=^^1^1^2890727^
;;^UTILITY(U,$J,114,510,"X",1,0)
;;=1) STEAM CORN ACCORDING TO STEAMER DIRECTIONS.
;;^UTILITY(U,$J,114,511,0)
;;=GREEN PEAS, FROZEN^100^3-OZ^15 MIN^^12^9^N^V-64^^F
;;^UTILITY(U,$J,114,511,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,511,"E",1,0)
;;=14
;;^UTILITY(U,$J,114,511,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,511,"I",1,0)
;;=339^18.75^2049^18.75
;;^UTILITY(U,$J,114,511,"X",0)
;;=^^1^1^2890727^
;;^UTILITY(U,$J,114,511,"X",1,0)
;;=1) STEAM PEAS ACCORDING TO STEAMER DIRECTIONS.
FHINI0K6 ; ; 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,501,0)
+2 ;;=BRUSSELS SPROUTS, FROZEN^100^3-OZ^15 MIN^^12^9^N^V-22^^F
+3 ;;^UTILITY(U,$J,114,501,"E",0)
+4 ;;=^114.05P^1^1
+5 ;;^UTILITY(U,$J,114,501,"E",1,0)
+6 ;;=14
+7 ;;^UTILITY(U,$J,114,501,"I",0)
+8 ;;=^114.01PA^1^1
+9 ;;^UTILITY(U,$J,114,501,"I",1,0)
+10 ;;=336^18.75^840^18.75
+11 ;;^UTILITY(U,$J,114,501,"X",0)
+12 ;;=^^1^1^2890727^
+13 ;;^UTILITY(U,$J,114,501,"X",1,0)
+14 ;;=1) STEAM BRUSSELS SPROUTS ACCORDING TO STEAMER DIRECTIONS.
+15 ;;^UTILITY(U,$J,114,502,0)
+16 ;;=CARROTS, CND^100^3-OZ^15 MIN^^12^9^N^V-27^^C^^.055
+17 ;;^UTILITY(U,$J,114,502,"E",0)
+18 ;;=^114.05P^1^1
+19 ;;^UTILITY(U,$J,114,502,"E",1,0)
+20 ;;=14
+21 ;;^UTILITY(U,$J,114,502,"I",0)
+22 ;;=^114.01PA^1^1
+23 ;;^UTILITY(U,$J,114,502,"I",1,0)
+24 ;;=41^18.75^939^18.75
+25 ;;^UTILITY(U,$J,114,502,"X",0)
+26 ;;=^^1^1^2890727^
+27 ;;^UTILITY(U,$J,114,502,"X",1,0)
+28 ;;=1) STEAM CARROTS UNTIL TENDER ACCORDING TO STEAMER DIRECTIONS.
+29 ;;^UTILITY(U,$J,114,503,0)
+30 ;;=LS CARROTS, CND^50^3-OZ^15 MIN^^12^9^N^V-28^^C
+31 ;;^UTILITY(U,$J,114,503,"E",0)
+32 ;;=^114.05P^1^1
+33 ;;^UTILITY(U,$J,114,503,"E",1,0)
+34 ;;=14
+35 ;;^UTILITY(U,$J,114,503,"I",0)
+36 ;;=^114.01PA^1^1
+37 ;;^UTILITY(U,$J,114,503,"I",1,0)
+38 ;;=541^9.375^941^9.375
+39 ;;^UTILITY(U,$J,114,503,"X",0)
+40 ;;=^^1^1^2890727^
+41 ;;^UTILITY(U,$J,114,503,"X",1,0)
+42 ;;=1) STEAM CARROTS UNTIL TENDER ACCORDING TO STEAMER DIRECTIONS.
+43 ;;^UTILITY(U,$J,114,504,0)
+44 ;;=CARROTS, FROZEN^100^3-OZ^15 MIN^^12^9^N^V-29^^F
+45 ;;^UTILITY(U,$J,114,504,"E",0)
+46 ;;=^114.05P^1^1
+47 ;;^UTILITY(U,$J,114,504,"E",1,0)
+48 ;;=14
+49 ;;^UTILITY(U,$J,114,504,"I",0)
+50 ;;=^114.01PA^1^1
+51 ;;^UTILITY(U,$J,114,504,"I",1,0)
+52 ;;=361^18.75^2038^18.75
+53 ;;^UTILITY(U,$J,114,504,"X",0)
+54 ;;=^^1^1^2890727^
+55 ;;^UTILITY(U,$J,114,504,"X",1,0)
+56 ;;=1) STEAM CARROTS UNTIL TENDER ACCORDING TO STEAMER DIRECTIONS.
+57 ;;^UTILITY(U,$J,114,505,0)
+58 ;;=PUREED CARROTS^10^2-OZ^15 MIN^^8^9^N^V-30^^C^^.059
+59 ;;^UTILITY(U,$J,114,505,"E",0)
+60 ;;=^114.05P^1^1
+61 ;;^UTILITY(U,$J,114,505,"E",1,0)
+62 ;;=14
+63 ;;^UTILITY(U,$J,114,505,"I",0)
+64 ;;=^114.01PA^1^1
+65 ;;^UTILITY(U,$J,114,505,"I",1,0)
+66 ;;=528^1.25^6449^1.25
+67 ;;^UTILITY(U,$J,114,505,"X",0)
+68 ;;=^^1^1^2890727^
+69 ;;^UTILITY(U,$J,114,505,"X",1,0)
+70 ;;=1) STEAM CARROTS ACOORDING TO STEAMER DIRECTIONS.
+71 ;;^UTILITY(U,$J,114,506,0)
+72 ;;=CAULIFLOWER, FROZEN^100^4-OZ^15 MIN^^12^9^N^V-33^^F
+73 ;;^UTILITY(U,$J,114,506,"E",0)
+74 ;;=^114.05P^1^1
+75 ;;^UTILITY(U,$J,114,506,"E",1,0)
+76 ;;=14
+77 ;;^UTILITY(U,$J,114,506,"I",0)
+78 ;;=^114.01PA^1^1
+79 ;;^UTILITY(U,$J,114,506,"I",1,0)
+80 ;;=359^25^948^25
+81 ;;^UTILITY(U,$J,114,506,"X",0)
+82 ;;=^^1^1^2890727^
+83 ;;^UTILITY(U,$J,114,506,"X",1,0)
+84 ;;=1) STEAM CAULIFLOWER UNTIL TENDER ACCORDING TO STEAMER DIRECTIONS.
+85 ;;^UTILITY(U,$J,114,507,0)
+86 ;;=CORN ON THE COB^100^1-EACH^15 MIN^^1^9^N^V-37^^F
+87 ;;^UTILITY(U,$J,114,507,"E",0)
+88 ;;=^114.05P^1^1
+89 ;;^UTILITY(U,$J,114,507,"E",1,0)
+90 ;;=14
+91 ;;^UTILITY(U,$J,114,507,"I",0)
+92 ;;=^114.01PA^1^1
+93 ;;^UTILITY(U,$J,114,507,"I",1,0)
+94 ;;=365^100^1044
+95 ;;^UTILITY(U,$J,114,507,"X",0)
+96 ;;=^^1^1^2890727^
+97 ;;^UTILITY(U,$J,114,507,"X",1,0)
+98 ;;=1) STEAM CORN ACCORCING TO STEAMER DIRECTIONS.
+99 ;;^UTILITY(U,$J,114,508,0)
+100 ;;=WHOLE GRAIN CORN, FROZEN^100^3-OZ^15 MIN^^12^9^N^V-38^^F
+101 ;;^UTILITY(U,$J,114,508,"E",0)
+102 ;;=^114.05P^1^1
+103 ;;^UTILITY(U,$J,114,508,"E",1,0)
+104 ;;=14
+105 ;;^UTILITY(U,$J,114,508,"I",0)
+106 ;;=^114.01PA^1^1
+107 ;;^UTILITY(U,$J,114,508,"I",1,0)
+108 ;;=338^18.75^1040^18.75
+109 ;;^UTILITY(U,$J,114,508,"X",0)
+110 ;;=^^1^1^2890727^
+111 ;;^UTILITY(U,$J,114,508,"X",1,0)
+112 ;;=1) STEAM CORN ACCORDING TO STEAMER DIRECTIONS.
+113 ;;^UTILITY(U,$J,114,509,0)
+114 ;;=LS WHOLE GRAIN CORN, CND^50^3-OZ^15 MIN^^12^9^N^V-39^^C
+115 ;;^UTILITY(U,$J,114,509,"E",0)
+116 ;;=^114.05P^1^1
+117 ;;^UTILITY(U,$J,114,509,"E",1,0)
+118 ;;=14
+119 ;;^UTILITY(U,$J,114,509,"I",0)
+120 ;;=^114.01PA^1^1
+121 ;;^UTILITY(U,$J,114,509,"I",1,0)
+122 ;;=544^9.375^1038^9.375
+123 ;;^UTILITY(U,$J,114,509,"X",0)
+124 ;;=^^1^1^2890727^
+125 ;;^UTILITY(U,$J,114,509,"X",1,0)
+126 ;;=1) STEAM CORN ACCORDING TO STEAMER DIRECTIONS.
+127 ;;^UTILITY(U,$J,114,510,0)
+128 ;;=CREAM STYLE CORN^100^3-OZ^15 MIN^^14^9^N^V-42^^C^^.065
+129 ;;^UTILITY(U,$J,114,510,"E",0)
+130 ;;=^114.05P^1^1
+131 ;;^UTILITY(U,$J,114,510,"E",1,0)
+132 ;;=14
+133 ;;^UTILITY(U,$J,114,510,"I",0)
+134 ;;=^114.01PA^1^1
+135 ;;^UTILITY(U,$J,114,510,"I",1,0)
+136 ;;=322^18.75^1032^18.75
+137 ;;^UTILITY(U,$J,114,510,"X",0)
+138 ;;=^^1^1^2890727^
+139 ;;^UTILITY(U,$J,114,510,"X",1,0)
+140 ;;=1) STEAM CORN ACCORDING TO STEAMER DIRECTIONS.
+141 ;;^UTILITY(U,$J,114,511,0)
+142 ;;=GREEN PEAS, FROZEN^100^3-OZ^15 MIN^^12^9^N^V-64^^F
+143 ;;^UTILITY(U,$J,114,511,"E",0)
+144 ;;=^114.05P^1^1
+145 ;;^UTILITY(U,$J,114,511,"E",1,0)
+146 ;;=14
+147 ;;^UTILITY(U,$J,114,511,"I",0)
+148 ;;=^114.01PA^1^1
+149 ;;^UTILITY(U,$J,114,511,"I",1,0)
+150 ;;=339^18.75^2049^18.75
+151 ;;^UTILITY(U,$J,114,511,"X",0)
+152 ;;=^^1^1^2890727^
+153 ;;^UTILITY(U,$J,114,511,"X",1,0)
+154 ;;=1) STEAM PEAS ACCORDING TO STEAMER DIRECTIONS.
