- FHINI0HP ; ; 11-OCT-1995
- ;;5.0;Dietetics;;Oct 11, 1995
- Q:'DIFQR(113) 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,113,617,0)
- ;;=PINEAPPLE, CND, SLICED, SYRUP-PAK^PINEAPPLE SLC CND SYR^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1772^1
- ;;^UTILITY(U,$J,113,618,0)
- ;;=PIE FILLING, CHERRY^PIE FLLG CHRY NO.10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
- ;;^UTILITY(U,$J,113,619,0)
- ;;=PIE FILLING, BLUEBERRY^PIE FLLG BLUBRY NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
- ;;^UTILITY(U,$J,113,620,0)
- ;;=TURKEY PUREE, W/SALT^TURKEY PUREESALTNO303^^^CN^#303 CN^^1^^^^^1^^^LB^1^^^^6477^1
- ;;^UTILITY(U,$J,113,621,0)
- ;;=JUICE, PRUNE, FROZEN, CONC, UNSW^JUICE PRUNE FRZ CONC^^^CN^QT CN^^1^^^^^3^^^GAL^.25^^^^1790^9.03
- ;;^UTILITY(U,$J,113,622,0)
- ;;=HAM PUREE, SALTED^HAM PUREE SALT NO.303^^^CN^#303 CN^^1^^^^^1^^^LB^1^^^^^1
- ;;^UTILITY(U,$J,113,623,0)
- ;;=AMIN-AID, ORANGE^DIET AMINAIDORG 5.2OZ^^^PG^PG^^1^^^^^5^^^EACH^1^^^^6135^.325
- ;;^UTILITY(U,$J,113,624,0)
- ;;=MARGARINE, CORN OIL, UNSALTED, STICK^MARG CORNPRINTUNSALTD^^^LB^LB^^1^^^^^6^^^LB^1^^^^371^1
- ;;^UTILITY(U,$J,113,625,0)
- ;;=CRANBERRY JUICE COCKTAIL, SWEETENED, IND^CRANBERRY JCECOCK 48S^^^CS^CS-48^^1^^^^^3^^^EACH^48^^^^1660^.279
- ;;^UTILITY(U,$J,113,626,0)
- ;;=JUICE, VEGETABLE, CND, IND^JUICEVEGETABLESGL 6OZ^8915-01-039-8023^1^CN^6-OZ CN^48^1^.18^^^^3^^^EACH^1^^^^1976^.401
- ;;^UTILITY(U,$J,113,627,0)
- ;;=PUDDING, CND, BANANA^PUDD CNND BANANA NO10^^^CN^#10 CN^^1^^^^^6^^^LB^6.5^^^^6614^1
- ;;^UTILITY(U,$J,113,628,0)
- ;;=FLOUR, GENERAL PURPOSE^FLOUR WHTBLEDUNBL25LB^8920-01-043-4011^1^BG^25# BG^2^1^3.69^^^^4^^^LB^25^^^^1998^1
- ;;^UTILITY(U,$J,113,629,0)
- ;;=CRACKERS, OYSTER, SALTED, IND^CRACKERS OYSTER 200S^^^CS^CS-200^^1^^^^^4^^^EACH^200^^^^^.018
- ;;^UTILITY(U,$J,113,630,0)
- ;;=ENSURE PLUS, VANILLA, IND^DIET SUPMTLQD VANL8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6018^.522
- ;;^UTILITY(U,$J,113,631,0)
- ;;=PRECISION ISOTONIC, VANILLA^DIET PRECISION2.06OZ6^^^PG^2.06-OZ PG^^1^^^^^5^^^EACH^1^^^^6034^.176
- ;;^UTILITY(U,$J,113,632,0)
- ;;=MUFFIN MIX, NUT^MUFF MIX NUT 5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^^1
- ;;^UTILITY(U,$J,113,633,0)
- ;;=OLIVE OIL^OLIV OIL PURE 16 OZ^^^BT^PT BT^^1^^^^^6^^^GAL^.12^^^^367^7.619
- ;;^UTILITY(U,$J,113,634,0)
- ;;=CHICKEN ALA KING, CND, HEAT AND SERVE^CHIC ALAKINGCNND6.5LB^^^CN^#10 CN^^1^^^^^1^^^LB^6.5^^^^6124^1
- ;;^UTILITY(U,$J,113,635,0)
- ;;=PIE FILLING, SLICED APPLES^PIE FLLG APPLE NO.10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
- ;;^UTILITY(U,$J,113,636,0)
- ;;=SUSTACAL, CHOCOLATE, IND^DIET SUPMTCHOC LQD8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6003^.522
- ;;^UTILITY(U,$J,113,637,0)
- ;;=ORANGES, CND, SEGMENTS, FRESH PAK, UNSW^ORAN VALENC8LB(1 GAL)^^^JR^GL JR^^1^^^^^3^^^GAL^1^^^^1726^6.349
- ;;^UTILITY(U,$J,113,638,0)
- ;;=COOKIES, SHORTBREAD, IND^COOK SHTBRED 8-3/4 LB^^^CS^CS-120^^1^^^^^4^^^EACH^120^^^^1021^.062
- ;;^UTILITY(U,$J,113,639,0)
- ;;=COOKIES, FIG BAR^COOKIES, FIG BAR^^^CS^10# CS^^1^^^^^4^^^LB^10^^^^1011^1
- ;;^UTILITY(U,$J,113,640,0)
- ;;=COOKIES, CHOCOLATE CHIP^COOKIES CHOC CHIP^^^CS^10# CS^^1^^^^^4^^^LB^10^^^^1009^1
- ;;^UTILITY(U,$J,113,641,0)
- ;;=COOKIES, OATMEAL^COOK OATMEAL 11-1/4LB^^^CS^11.25# CS^^1^^^^^4^^^LB^11.25^^^^1017^1
- ;;^UTILITY(U,$J,113,642,0)
- ;;=BEANS, PINTO, CND, WATER PAK^BEAN PINTO CNND NO 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^2273^1
- ;;^UTILITY(U,$J,113,643,0)
- ;;=CRACKERS, RYE, IND^CRACKERS RYE 200S^^^CS^CS-200^^1^^^^^4^^^EACH^200^^^^^.029
- ;;^UTILITY(U,$J,113,644,0)
- ;;=CRACKERS, WHEAT, (MELBA ROUNDS)^CRACKERS MELBA^^^CS^CS-200^^1^^^^^4^^^EACH^200^^^^^.031
- ;;^UTILITY(U,$J,113,645,0)
- ;;=COOKIES, BUTTER FLAVORED^COOKIES BUTTER^^^CS^10# CS^^1^^^^^4^^^LB^10^^^^1006^1
- ;;^UTILITY(U,$J,113,646,0)
- ;;=BARBECUE SAUCE, HICKORY SMOKE FLAVOR^BARB SAUCE HICK 1 GAL^^^CO^GL CO^^1^^^^^6^^^GAL^1^^^^523^8.53
- ;;^UTILITY(U,$J,113,647,0)
- ;;=SUGAR, GRANULATED, IND^SUGAR REF INDIV PZ 2M^8925-01-060-6408^1^CS^CS-2000^^1^8.16^^^^6^^^EACH^2000^^^^1906^.009
- ;;^UTILITY(U,$J,113,648,0)
- ;;=PEPPERS, GREEN, CND, CHILIS^GREEN PEPPRS 1#CN^^^CN^1# CN^^1^^^^^3^^^LB^1^^^^1429^1
- ;;^UTILITY(U,$J,113,649,0)
- ;;=MERITENE, EGGNOG, IND^DIET ENOGMERITN 250ML^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6013^.522
- ;;^UTILITY(U,$J,113,650,0)
- ;;=MERITENE, VANILLA, IND^MERITENE VAN IND^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6013^.522
- ;;^UTILITY(U,$J,113,651,0)
- ;;=PEPPERS, PICKLED, (JALAPENO)^PEPP PICKLED 6LB 2OZ^^^CN^#10 CN^^1^^^^^6^^^LB^6.12^^^^2083^1
- ;;^UTILITY(U,$J,113,652,0)
- ;;=GREENS, MUSTARD, CND, CHOPPED^GREENS MUSTCHOP NO 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1352^1
- ;;^UTILITY(U,$J,113,653,0)
- ;;=GRAVY MIX, CHICKEN, DIET LO NA^GRAV MIX CHICKEN 8 OZ^^^CO^8-OZ CO^^1^^^^^6^^^LB^.5^^^^6406^1
- ;;^UTILITY(U,$J,113,654,0)
- ;;=SUSTACAL PUDDING, BUTTERSCOTCH^DIETSUPMTPUDBUSCTH5OZ^8940-01-255-6766^1^CN^5-OZ CN^48^1^.45^^^^5^^^EACH^1^^^^6004^.309
- FHINI0HP ; ; 11-OCT-1995
- +1 ;;5.0;Dietetics;;Oct 11, 1995
- +2 IF 'DIFQR(113)
- 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,113,617,0)
- +2 ;;=PINEAPPLE, CND, SLICED, SYRUP-PAK^PINEAPPLE SLC CND SYR^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1772^1
- +3 ;;^UTILITY(U,$J,113,618,0)
- +4 ;;=PIE FILLING, CHERRY^PIE FLLG CHRY NO.10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
- +5 ;;^UTILITY(U,$J,113,619,0)
- +6 ;;=PIE FILLING, BLUEBERRY^PIE FLLG BLUBRY NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
- +7 ;;^UTILITY(U,$J,113,620,0)
- +8 ;;=TURKEY PUREE, W/SALT^TURKEY PUREESALTNO303^^^CN^#303 CN^^1^^^^^1^^^LB^1^^^^6477^1
- +9 ;;^UTILITY(U,$J,113,621,0)
- +10 ;;=JUICE, PRUNE, FROZEN, CONC, UNSW^JUICE PRUNE FRZ CONC^^^CN^QT CN^^1^^^^^3^^^GAL^.25^^^^1790^9.03
- +11 ;;^UTILITY(U,$J,113,622,0)
- +12 ;;=HAM PUREE, SALTED^HAM PUREE SALT NO.303^^^CN^#303 CN^^1^^^^^1^^^LB^1^^^^^1
- +13 ;;^UTILITY(U,$J,113,623,0)
- +14 ;;=AMIN-AID, ORANGE^DIET AMINAIDORG 5.2OZ^^^PG^PG^^1^^^^^5^^^EACH^1^^^^6135^.325
- +15 ;;^UTILITY(U,$J,113,624,0)
- +16 ;;=MARGARINE, CORN OIL, UNSALTED, STICK^MARG CORNPRINTUNSALTD^^^LB^LB^^1^^^^^6^^^LB^1^^^^371^1
- +17 ;;^UTILITY(U,$J,113,625,0)
- +18 ;;=CRANBERRY JUICE COCKTAIL, SWEETENED, IND^CRANBERRY JCECOCK 48S^^^CS^CS-48^^1^^^^^3^^^EACH^48^^^^1660^.279
- +19 ;;^UTILITY(U,$J,113,626,0)
- +20 ;;=JUICE, VEGETABLE, CND, IND^JUICEVEGETABLESGL 6OZ^8915-01-039-8023^1^CN^6-OZ CN^48^1^.18^^^^3^^^EACH^1^^^^1976^.401
- +21 ;;^UTILITY(U,$J,113,627,0)
- +22 ;;=PUDDING, CND, BANANA^PUDD CNND BANANA NO10^^^CN^#10 CN^^1^^^^^6^^^LB^6.5^^^^6614^1
- +23 ;;^UTILITY(U,$J,113,628,0)
- +24 ;;=FLOUR, GENERAL PURPOSE^FLOUR WHTBLEDUNBL25LB^8920-01-043-4011^1^BG^25# BG^2^1^3.69^^^^4^^^LB^25^^^^1998^1
- +25 ;;^UTILITY(U,$J,113,629,0)
- +26 ;;=CRACKERS, OYSTER, SALTED, IND^CRACKERS OYSTER 200S^^^CS^CS-200^^1^^^^^4^^^EACH^200^^^^^.018
- +27 ;;^UTILITY(U,$J,113,630,0)
- +28 ;;=ENSURE PLUS, VANILLA, IND^DIET SUPMTLQD VANL8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6018^.522
- +29 ;;^UTILITY(U,$J,113,631,0)
- +30 ;;=PRECISION ISOTONIC, VANILLA^DIET PRECISION2.06OZ6^^^PG^2.06-OZ PG^^1^^^^^5^^^EACH^1^^^^6034^.176
- +31 ;;^UTILITY(U,$J,113,632,0)
- +32 ;;=MUFFIN MIX, NUT^MUFF MIX NUT 5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^^1
- +33 ;;^UTILITY(U,$J,113,633,0)
- +34 ;;=OLIVE OIL^OLIV OIL PURE 16 OZ^^^BT^PT BT^^1^^^^^6^^^GAL^.12^^^^367^7.619
- +35 ;;^UTILITY(U,$J,113,634,0)
- +36 ;;=CHICKEN ALA KING, CND, HEAT AND SERVE^CHIC ALAKINGCNND6.5LB^^^CN^#10 CN^^1^^^^^1^^^LB^6.5^^^^6124^1
- +37 ;;^UTILITY(U,$J,113,635,0)
- +38 ;;=PIE FILLING, SLICED APPLES^PIE FLLG APPLE NO.10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
- +39 ;;^UTILITY(U,$J,113,636,0)
- +40 ;;=SUSTACAL, CHOCOLATE, IND^DIET SUPMTCHOC LQD8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6003^.522
- +41 ;;^UTILITY(U,$J,113,637,0)
- +42 ;;=ORANGES, CND, SEGMENTS, FRESH PAK, UNSW^ORAN VALENC8LB(1 GAL)^^^JR^GL JR^^1^^^^^3^^^GAL^1^^^^1726^6.349
- +43 ;;^UTILITY(U,$J,113,638,0)
- +44 ;;=COOKIES, SHORTBREAD, IND^COOK SHTBRED 8-3/4 LB^^^CS^CS-120^^1^^^^^4^^^EACH^120^^^^1021^.062
- +45 ;;^UTILITY(U,$J,113,639,0)
- +46 ;;=COOKIES, FIG BAR^COOKIES, FIG BAR^^^CS^10# CS^^1^^^^^4^^^LB^10^^^^1011^1
- +47 ;;^UTILITY(U,$J,113,640,0)
- +48 ;;=COOKIES, CHOCOLATE CHIP^COOKIES CHOC CHIP^^^CS^10# CS^^1^^^^^4^^^LB^10^^^^1009^1
- +49 ;;^UTILITY(U,$J,113,641,0)
- +50 ;;=COOKIES, OATMEAL^COOK OATMEAL 11-1/4LB^^^CS^11.25# CS^^1^^^^^4^^^LB^11.25^^^^1017^1
- +51 ;;^UTILITY(U,$J,113,642,0)
- +52 ;;=BEANS, PINTO, CND, WATER PAK^BEAN PINTO CNND NO 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^2273^1
- +53 ;;^UTILITY(U,$J,113,643,0)
- +54 ;;=CRACKERS, RYE, IND^CRACKERS RYE 200S^^^CS^CS-200^^1^^^^^4^^^EACH^200^^^^^.029
- +55 ;;^UTILITY(U,$J,113,644,0)
- +56 ;;=CRACKERS, WHEAT, (MELBA ROUNDS)^CRACKERS MELBA^^^CS^CS-200^^1^^^^^4^^^EACH^200^^^^^.031
- +57 ;;^UTILITY(U,$J,113,645,0)
- +58 ;;=COOKIES, BUTTER FLAVORED^COOKIES BUTTER^^^CS^10# CS^^1^^^^^4^^^LB^10^^^^1006^1
- +59 ;;^UTILITY(U,$J,113,646,0)
- +60 ;;=BARBECUE SAUCE, HICKORY SMOKE FLAVOR^BARB SAUCE HICK 1 GAL^^^CO^GL CO^^1^^^^^6^^^GAL^1^^^^523^8.53
- +61 ;;^UTILITY(U,$J,113,647,0)
- +62 ;;=SUGAR, GRANULATED, IND^SUGAR REF INDIV PZ 2M^8925-01-060-6408^1^CS^CS-2000^^1^8.16^^^^6^^^EACH^2000^^^^1906^.009
- +63 ;;^UTILITY(U,$J,113,648,0)
- +64 ;;=PEPPERS, GREEN, CND, CHILIS^GREEN PEPPRS 1#CN^^^CN^1# CN^^1^^^^^3^^^LB^1^^^^1429^1
- +65 ;;^UTILITY(U,$J,113,649,0)
- +66 ;;=MERITENE, EGGNOG, IND^DIET ENOGMERITN 250ML^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6013^.522
- +67 ;;^UTILITY(U,$J,113,650,0)
- +68 ;;=MERITENE, VANILLA, IND^MERITENE VAN IND^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6013^.522
- +69 ;;^UTILITY(U,$J,113,651,0)
- +70 ;;=PEPPERS, PICKLED, (JALAPENO)^PEPP PICKLED 6LB 2OZ^^^CN^#10 CN^^1^^^^^6^^^LB^6.12^^^^2083^1
- +71 ;;^UTILITY(U,$J,113,652,0)
- +72 ;;=GREENS, MUSTARD, CND, CHOPPED^GREENS MUSTCHOP NO 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1352^1
- +73 ;;^UTILITY(U,$J,113,653,0)
- +74 ;;=GRAVY MIX, CHICKEN, DIET LO NA^GRAV MIX CHICKEN 8 OZ^^^CO^8-OZ CO^^1^^^^^6^^^LB^.5^^^^6406^1
- +75 ;;^UTILITY(U,$J,113,654,0)
- +76 ;;=SUSTACAL PUDDING, BUTTERSCOTCH^DIETSUPMTPUDBUSCTH5OZ^8940-01-255-6766^1^CN^5-OZ CN^48^1^.45^^^^5^^^EACH^1^^^^6004^.309