FHINI0F3 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(112) 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,112,9316,1)
;;=20.714^49.643^21.429^578.571^2.857^^^146.429^4.286^117.857^182.143^821.429^617.857^1.107^.357^^^0^3.571^.571
;;^UTILITY(U,$J,112,9316,2)
;;=.321^1.071^.214^.143^428.571^0^^^0^8.214^^16.071
;;^UTILITY(U,$J,112,9316,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9317,0)
;;=PISTACHIOS,DRY ROASTED,RED^BC-02590^oz.^28
;;^UTILITY(U,$J,112,9317,1)
;;=20.357^47.857^23.214^564.286^2.5^^^103.571^4.286^^^907.143^907.143^^^^^0^0^.571
;;^UTILITY(U,$J,112,9317,2)
;;=.321^1.071
;;^UTILITY(U,$J,112,9317,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9318,0)
;;=PISTACHIOS,NATURAL,BLUE DIAMOND^BC-02591^oz.^28
;;^UTILITY(U,$J,112,9318,1)
;;=20.714^49.643^19.643^578.571^1.786^^^121.429^4.286^114.286^489.286^900^685.714^1.786^1.071^1.071^^^^.607
;;^UTILITY(U,$J,112,9318,2)
;;=.357^1.071^.214^.357^146.429^^^^0^6.071^24.286^15^^^^^11.071
;;^UTILITY(U,$J,112,9318,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9319,0)
;;=PISTACHIOS,RED,BLUE DIAMOND^BC-02592^oz.^28
;;^UTILITY(U,$J,112,9319,1)
;;=21.071^47.143^20.357^564.286^2.143^^^117.857^4.286^114.286^485.714^885.714^878.571^2.143^1.429^1.071^^178.571^3.571^.643
;;^UTILITY(U,$J,112,9319,2)
;;=.25^1.071^^.464^0^^^^0^5.714^22.857^15^^^^^12.857
;;^UTILITY(U,$J,112,9319,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9320,0)
;;=PISTACHIOS,RED/NATURAL,FISHER^BC-02593^oz.^28
;;^UTILITY(U,$J,112,9320,1)
;;=17.857^50^25^607.143^^^^^^^^^303.571
;;^UTILITY(U,$J,112,9320,2)
;;=^^^^^^^^0^7.143^28.571^14.286
;;^UTILITY(U,$J,112,9320,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9321,0)
;;=SUNFLOWER SEEDS/KERNELS DRIED^BC-02594^oz.^28
;;^UTILITY(U,$J,112,9321,1)
;;=23.214^50.357^19.643^578.571^5.357^^^121.429^7.071^357.143^714.286^700^3.571^5.071^1.779^2.05^^50^^2.321
;;^UTILITY(U,$J,112,9321,2)
;;=.214^3.929^^^^0^^^0^5^10.714^34.643^3.571^^^^14.643
;;^UTILITY(U,$J,112,9321,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9322,0)
;;=SUNFLOWER SEEDS/KERNELS,DRY ROASTED,FISHER^BC-02595^oz.^28
;;^UTILITY(U,$J,112,9322,1)
;;=21.429^53.571^21.429^607.143^^^^^^^^^714.286
;;^UTILITY(U,$J,112,9322,2)
;;=^^^^^^^^0^7.143^10.714^35.714
;;^UTILITY(U,$J,112,9322,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9323,0)
;;=SUNFLOWER SEEDS/KERNELS,OIL ROASTED,FISHER^BC-02596^oz.^28
;;^UTILITY(U,$J,112,9323,1)
;;=21.429^57.143^14.286^607.143^^^^^^^^^607.143
;;^UTILITY(U,$J,112,9323,2)
;;=^^^^^^^^0^7.143^10.714^39.286
;;^UTILITY(U,$J,112,9323,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9324,0)
;;=CHICKEN,BREAST,CUTLET,BREADED & FRIED,PERDUE^BC-02597^4-oz.^119
;;^UTILITY(U,$J,112,9324,1)
;;=15.966^9.244^14.286^201.681^^^^^^^^^431.092
;;^UTILITY(U,$J,112,9324,2)
;;=^^^^^^^^37.815
;;^UTILITY(U,$J,112,9324,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9325,0)
;;=CHICKEN,BREAST,FILLETS,FRZN,WEAVER^BC-02598^4.5-oz.^128
;;^UTILITY(U,$J,112,9325,1)
;;=15.625^10.156^14.063^210.938^^^^^^^^^406.25
;;^UTILITY(U,$J,112,9325,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9326,0)
;;=CHICKEN,BREAST,SKINLESS,CRISPY LIGHT,FRZN,WEAVER^BC-02599^2.9-oz.^82
;;^UTILITY(U,$J,112,9326,1)
;;=17.073^10.976^10.976^207.317^^^^^^^^^390.244
;;^UTILITY(U,$J,112,9326,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9327,0)
;;=CHICKEN,BREAST PATTIES,FRZN,BANQUET HOT BITES^BC-02600^2.63-oz.^75
;;^UTILITY(U,$J,112,9327,1)
;;=14.667^17.333^17.333^280^^^^9.333^1.2^^^226.667^613.333^^^^^0^2.667^.12
;;^UTILITY(U,$J,112,9327,2)
;;=.067^4.267
;;^UTILITY(U,$J,112,9327,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9328,0)
;;=CHICKEN,BREAST PATTIES,FRZN,WEAVER^BC-02601^3-oz.^85
;;^UTILITY(U,$J,112,9328,1)
;;=14.118^12.941^16.471^241.176^^^^^^^^^752.941
;;^UTILITY(U,$J,112,9328,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9329,0)
;;=CHICKEN,BREAST PATTIES,SOUTHERN FRIED,BANQUET HOT BITES^BC-02602^2.63-oz.^75
;;^UTILITY(U,$J,112,9329,1)
;;=14.667^16^17.333^280^^^^10.667^^^184^213.333^826.667^^^^^0^1.333^.147
;;^UTILITY(U,$J,112,9329,2)
;;=.08^4.667
;;^UTILITY(U,$J,112,9329,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9330,0)
;;=CHICKEN,BREAST TENDERS,FROZEN,BANQUET MICROWAVE^BC-02603^4-oz.^113
FHINI0F3 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(112)
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,112,9316,1)
+2 ;;=20.714^49.643^21.429^578.571^2.857^^^146.429^4.286^117.857^182.143^821.429^617.857^1.107^.357^^^0^3.571^.571
+3 ;;^UTILITY(U,$J,112,9316,2)
+4 ;;=.321^1.071^.214^.143^428.571^0^^^0^8.214^^16.071
+5 ;;^UTILITY(U,$J,112,9316,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,9317,0)
+8 ;;=PISTACHIOS,DRY ROASTED,RED^BC-02590^oz.^28
+9 ;;^UTILITY(U,$J,112,9317,1)
+10 ;;=20.357^47.857^23.214^564.286^2.5^^^103.571^4.286^^^907.143^907.143^^^^^0^0^.571
+11 ;;^UTILITY(U,$J,112,9317,2)
+12 ;;=.321^1.071
+13 ;;^UTILITY(U,$J,112,9317,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,9318,0)
+16 ;;=PISTACHIOS,NATURAL,BLUE DIAMOND^BC-02591^oz.^28
+17 ;;^UTILITY(U,$J,112,9318,1)
+18 ;;=20.714^49.643^19.643^578.571^1.786^^^121.429^4.286^114.286^489.286^900^685.714^1.786^1.071^1.071^^^^.607
+19 ;;^UTILITY(U,$J,112,9318,2)
+20 ;;=.357^1.071^.214^.357^146.429^^^^0^6.071^24.286^15^^^^^11.071
+21 ;;^UTILITY(U,$J,112,9318,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,9319,0)
+24 ;;=PISTACHIOS,RED,BLUE DIAMOND^BC-02592^oz.^28
+25 ;;^UTILITY(U,$J,112,9319,1)
+26 ;;=21.071^47.143^20.357^564.286^2.143^^^117.857^4.286^114.286^485.714^885.714^878.571^2.143^1.429^1.071^^178.571^3.571^.643
+27 ;;^UTILITY(U,$J,112,9319,2)
+28 ;;=.25^1.071^^.464^0^^^^0^5.714^22.857^15^^^^^12.857
+29 ;;^UTILITY(U,$J,112,9319,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,9320,0)
+32 ;;=PISTACHIOS,RED/NATURAL,FISHER^BC-02593^oz.^28
+33 ;;^UTILITY(U,$J,112,9320,1)
+34 ;;=17.857^50^25^607.143^^^^^^^^^303.571
+35 ;;^UTILITY(U,$J,112,9320,2)
+36 ;;=^^^^^^^^0^7.143^28.571^14.286
+37 ;;^UTILITY(U,$J,112,9320,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,9321,0)
+40 ;;=SUNFLOWER SEEDS/KERNELS DRIED^BC-02594^oz.^28
+41 ;;^UTILITY(U,$J,112,9321,1)
+42 ;;=23.214^50.357^19.643^578.571^5.357^^^121.429^7.071^357.143^714.286^700^3.571^5.071^1.779^2.05^^50^^2.321
+43 ;;^UTILITY(U,$J,112,9321,2)
+44 ;;=.214^3.929^^^^0^^^0^5^10.714^34.643^3.571^^^^14.643
+45 ;;^UTILITY(U,$J,112,9321,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,9322,0)
+48 ;;=SUNFLOWER SEEDS/KERNELS,DRY ROASTED,FISHER^BC-02595^oz.^28
+49 ;;^UTILITY(U,$J,112,9322,1)
+50 ;;=21.429^53.571^21.429^607.143^^^^^^^^^714.286
+51 ;;^UTILITY(U,$J,112,9322,2)
+52 ;;=^^^^^^^^0^7.143^10.714^35.714
+53 ;;^UTILITY(U,$J,112,9322,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,9323,0)
+56 ;;=SUNFLOWER SEEDS/KERNELS,OIL ROASTED,FISHER^BC-02596^oz.^28
+57 ;;^UTILITY(U,$J,112,9323,1)
+58 ;;=21.429^57.143^14.286^607.143^^^^^^^^^607.143
+59 ;;^UTILITY(U,$J,112,9323,2)
+60 ;;=^^^^^^^^0^7.143^10.714^39.286
+61 ;;^UTILITY(U,$J,112,9323,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,9324,0)
+64 ;;=CHICKEN,BREAST,CUTLET,BREADED & FRIED,PERDUE^BC-02597^4-oz.^119
+65 ;;^UTILITY(U,$J,112,9324,1)
+66 ;;=15.966^9.244^14.286^201.681^^^^^^^^^431.092
+67 ;;^UTILITY(U,$J,112,9324,2)
+68 ;;=^^^^^^^^37.815
+69 ;;^UTILITY(U,$J,112,9324,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,9325,0)
+72 ;;=CHICKEN,BREAST,FILLETS,FRZN,WEAVER^BC-02598^4.5-oz.^128
+73 ;;^UTILITY(U,$J,112,9325,1)
+74 ;;=15.625^10.156^14.063^210.938^^^^^^^^^406.25
+75 ;;^UTILITY(U,$J,112,9325,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,9326,0)
+78 ;;=CHICKEN,BREAST,SKINLESS,CRISPY LIGHT,FRZN,WEAVER^BC-02599^2.9-oz.^82
+79 ;;^UTILITY(U,$J,112,9326,1)
+80 ;;=17.073^10.976^10.976^207.317^^^^^^^^^390.244
+81 ;;^UTILITY(U,$J,112,9326,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,9327,0)
+84 ;;=CHICKEN,BREAST PATTIES,FRZN,BANQUET HOT BITES^BC-02600^2.63-oz.^75
+85 ;;^UTILITY(U,$J,112,9327,1)
+86 ;;=14.667^17.333^17.333^280^^^^9.333^1.2^^^226.667^613.333^^^^^0^2.667^.12
+87 ;;^UTILITY(U,$J,112,9327,2)
+88 ;;=.067^4.267
+89 ;;^UTILITY(U,$J,112,9327,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,9328,0)
+92 ;;=CHICKEN,BREAST PATTIES,FRZN,WEAVER^BC-02601^3-oz.^85
+93 ;;^UTILITY(U,$J,112,9328,1)
+94 ;;=14.118^12.941^16.471^241.176^^^^^^^^^752.941
+95 ;;^UTILITY(U,$J,112,9328,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,9329,0)
+98 ;;=CHICKEN,BREAST PATTIES,SOUTHERN FRIED,BANQUET HOT BITES^BC-02602^2.63-oz.^75
+99 ;;^UTILITY(U,$J,112,9329,1)
+100 ;;=14.667^16^17.333^280^^^^10.667^^^184^213.333^826.667^^^^^0^1.333^.147
+101 ;;^UTILITY(U,$J,112,9329,2)
+102 ;;=.08^4.667
+103 ;;^UTILITY(U,$J,112,9329,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,9330,0)
+106 ;;=CHICKEN,BREAST TENDERS,FROZEN,BANQUET MICROWAVE^BC-02603^4-oz.^113
