FHINI0GA ; ; 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,9923,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9924,0)
;;=MARGARINE,FLEISCHMANN'S SQUEEZE^BC-03197^tbsp.^13
;;^UTILITY(U,$J,112,9924,1)
;;=0^84.615^0^769.231^^^^^^^^38.462^653.846
;;^UTILITY(U,$J,112,9924,2)
;;=^^^^^^^^0^15.385^^46.154
;;^UTILITY(U,$J,112,9924,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9925,0)
;;=MARGARINE,FLEISCHMANN'S STICK^BC-03198^tbsp.^14
;;^UTILITY(U,$J,112,9925,1)
;;=0^78.571^0^714.286^^^^^^^^35.714^678.571
;;^UTILITY(U,$J,112,9925,2)
;;=^^^^^^^^0^14.286^^28.571
;;^UTILITY(U,$J,112,9925,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9926,0)
;;=MARGARINE,FLEISCHMANN'S WHIPPED,LIGHT SALTED^BC-03199^tbsp.^11
;;^UTILITY(U,$J,112,9926,1)
;;=0^63.636^0^636.364^^^^^^^^45.455^545.455
;;^UTILITY(U,$J,112,9926,2)
;;=^^^^^^^^0^18.182^^27.273
;;^UTILITY(U,$J,112,9926,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9927,0)
;;=MARGARINE,LMPERIAL QUARTERS,STICK^BC-03200^tbsp.^15
;;^UTILITY(U,$J,112,9927,1)
;;=0^80^.667^713.333^16.667^^^13.333^^^13.333^40^753.333^^^^^3733.333
;;^UTILITY(U,$J,112,9927,2)
;;=^^^^^^^^0^14.667^^21.333
;;^UTILITY(U,$J,112,9927,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9928,0)
;;=MARGARINE,IMPERIAL SOFT^BC-03201^tbsp.^14
;;^UTILITY(U,$J,112,9928,1)
;;=0^80^.714^714.286^16.429^^^14.286^^^14.286^42.857^750^^^^^3735.714
;;^UTILITY(U,$J,112,9928,2)
;;=^^^^^^^^0^13.571^^37.857
;;^UTILITY(U,$J,112,9928,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9929,0)
;;=MARGARINE,LAND O LAKES,CORN,STICK^BC-03202^tbsp.^14
;;^UTILITY(U,$J,112,9929,1)
;;=0^80^0^721.429^^^^0^0^^0^7.143^728.571^^^^^3650^0^0
;;^UTILITY(U,$J,112,9929,2)
;;=0^0^^^^^^^0^12.857^41.429^25.714
;;^UTILITY(U,$J,112,9929,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9930,0)
;;=MARGARINE,LAND O LAKES,SOY,STICK/TUB^BC-03203^tbsp.^14
;;^UTILITY(U,$J,112,9930,1)
;;=0^85.714^0^750^^^^^^^^0^750
;;^UTILITY(U,$J,112,9930,2)
;;=^^^^^^^^0^21.429^42.857^21.429
;;^UTILITY(U,$J,112,9930,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9931,0)
;;=MARGARINE,MAZOLA^BC-03204^tbsp.^14
;;^UTILITY(U,$J,112,9931,1)
;;=0^80^1.429^714.286^16.429^^^^^^^^714.286^^^^^3571.429
;;^UTILITY(U,$J,112,9931,2)
;;=^^^^^^^^0^13.571^37.143^27.857
;;^UTILITY(U,$J,112,9931,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9932,0)
;;=MARGARINE,MAZOLA UNSALTED^BC-03205^tbsp.^14
;;^UTILITY(U,$J,112,9932,1)
;;=0^80^0^714.286^19.286^^^^^^^^7.143^^^^^3571.429
;;^UTILITY(U,$J,112,9932,2)
;;=^^^^^^^^0^14.286^38.571^26.429
;;^UTILITY(U,$J,112,9932,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9933,0)
;;=MARGARINE,NUCOA^BC-03206^tbsp.^14
;;^UTILITY(U,$J,112,9933,1)
;;=0^80.714^0^714.286^16.429^^^^^^^^1142.857^^^^^3571.429
;;^UTILITY(U,$J,112,9933,2)
;;=^^^^^^^^0^17.143^^23.571
;;^UTILITY(U,$J,112,9933,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9934,0)
;;=MARGARINE,NUCOA SOFT^BC-03207^tbsp.^13
;;^UTILITY(U,$J,112,9934,1)
;;=0^80.769^.769^692.308^15.385^^^^^^^^1153.846^^^^^4000
;;^UTILITY(U,$J,112,9934,2)
;;=^^^^^^^^0^15.385^^32.308
;;^UTILITY(U,$J,112,9934,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9935,0)
;;=MARGARINE,SHEDD'S LIQUID^BC-03208^tbsp.^14
;;^UTILITY(U,$J,112,9935,1)
;;=0^78.571^0^714.286^^^^^^^^^714.286
;;^UTILITY(U,$J,112,9935,2)
;;=^^^^^^^^0^14.286^^42.857
;;^UTILITY(U,$J,112,9935,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9936,0)
;;=MARGARINE,SHEDD'S SOFT^BC-03209^tbsp.^14
;;^UTILITY(U,$J,112,9936,1)
;;=0^80^0^707.143^17.857^^^0^^^7.143^0^785.714^^^^^3735.714
;;^UTILITY(U,$J,112,9936,2)
;;=^^^^^^^^0^13.571^^37.857
;;^UTILITY(U,$J,112,9936,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9937,0)
;;=MARGARINE,SHEDD'S,WHIPPED,SOFT^BC-03210^tbsp.^11
;;^UTILITY(U,$J,112,9937,1)
;;=0^80^0^709.091^17.273^^^0^^^9.091^0^790.909^^^^^3736.364
;;^UTILITY(U,$J,112,9937,2)
;;=^^^^^^^^0^13.636^^38.182
;;^UTILITY(U,$J,112,9937,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9938,0)
;;=MARGARINE,SHEDD'S,WHIPPED,STICK^BC-03211^tbsp.^11
;;^UTILITY(U,$J,112,9938,1)
;;=0^80^0^709.091^18.182^^^0^^^9.091^0^790.909^^^^^3736.364
;;^UTILITY(U,$J,112,9938,2)
;;=^^^^^^^^0^14.545^^27.273
FHINI0GA ; ; 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,9923,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,9924,0)
+4 ;;=MARGARINE,FLEISCHMANN'S SQUEEZE^BC-03197^tbsp.^13
+5 ;;^UTILITY(U,$J,112,9924,1)
+6 ;;=0^84.615^0^769.231^^^^^^^^38.462^653.846
+7 ;;^UTILITY(U,$J,112,9924,2)
+8 ;;=^^^^^^^^0^15.385^^46.154
+9 ;;^UTILITY(U,$J,112,9924,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,9925,0)
+12 ;;=MARGARINE,FLEISCHMANN'S STICK^BC-03198^tbsp.^14
+13 ;;^UTILITY(U,$J,112,9925,1)
+14 ;;=0^78.571^0^714.286^^^^^^^^35.714^678.571
+15 ;;^UTILITY(U,$J,112,9925,2)
+16 ;;=^^^^^^^^0^14.286^^28.571
+17 ;;^UTILITY(U,$J,112,9925,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,9926,0)
+20 ;;=MARGARINE,FLEISCHMANN'S WHIPPED,LIGHT SALTED^BC-03199^tbsp.^11
+21 ;;^UTILITY(U,$J,112,9926,1)
+22 ;;=0^63.636^0^636.364^^^^^^^^45.455^545.455
+23 ;;^UTILITY(U,$J,112,9926,2)
+24 ;;=^^^^^^^^0^18.182^^27.273
+25 ;;^UTILITY(U,$J,112,9926,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,9927,0)
+28 ;;=MARGARINE,LMPERIAL QUARTERS,STICK^BC-03200^tbsp.^15
+29 ;;^UTILITY(U,$J,112,9927,1)
+30 ;;=0^80^.667^713.333^16.667^^^13.333^^^13.333^40^753.333^^^^^3733.333
+31 ;;^UTILITY(U,$J,112,9927,2)
+32 ;;=^^^^^^^^0^14.667^^21.333
+33 ;;^UTILITY(U,$J,112,9927,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,9928,0)
+36 ;;=MARGARINE,IMPERIAL SOFT^BC-03201^tbsp.^14
+37 ;;^UTILITY(U,$J,112,9928,1)
+38 ;;=0^80^.714^714.286^16.429^^^14.286^^^14.286^42.857^750^^^^^3735.714
+39 ;;^UTILITY(U,$J,112,9928,2)
+40 ;;=^^^^^^^^0^13.571^^37.857
+41 ;;^UTILITY(U,$J,112,9928,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,9929,0)
+44 ;;=MARGARINE,LAND O LAKES,CORN,STICK^BC-03202^tbsp.^14
+45 ;;^UTILITY(U,$J,112,9929,1)
+46 ;;=0^80^0^721.429^^^^0^0^^0^7.143^728.571^^^^^3650^0^0
+47 ;;^UTILITY(U,$J,112,9929,2)
+48 ;;=0^0^^^^^^^0^12.857^41.429^25.714
+49 ;;^UTILITY(U,$J,112,9929,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,9930,0)
+52 ;;=MARGARINE,LAND O LAKES,SOY,STICK/TUB^BC-03203^tbsp.^14
+53 ;;^UTILITY(U,$J,112,9930,1)
+54 ;;=0^85.714^0^750^^^^^^^^0^750
+55 ;;^UTILITY(U,$J,112,9930,2)
+56 ;;=^^^^^^^^0^21.429^42.857^21.429
+57 ;;^UTILITY(U,$J,112,9930,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,9931,0)
+60 ;;=MARGARINE,MAZOLA^BC-03204^tbsp.^14
+61 ;;^UTILITY(U,$J,112,9931,1)
+62 ;;=0^80^1.429^714.286^16.429^^^^^^^^714.286^^^^^3571.429
+63 ;;^UTILITY(U,$J,112,9931,2)
+64 ;;=^^^^^^^^0^13.571^37.143^27.857
+65 ;;^UTILITY(U,$J,112,9931,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,9932,0)
+68 ;;=MARGARINE,MAZOLA UNSALTED^BC-03205^tbsp.^14
+69 ;;^UTILITY(U,$J,112,9932,1)
+70 ;;=0^80^0^714.286^19.286^^^^^^^^7.143^^^^^3571.429
+71 ;;^UTILITY(U,$J,112,9932,2)
+72 ;;=^^^^^^^^0^14.286^38.571^26.429
+73 ;;^UTILITY(U,$J,112,9932,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,9933,0)
+76 ;;=MARGARINE,NUCOA^BC-03206^tbsp.^14
+77 ;;^UTILITY(U,$J,112,9933,1)
+78 ;;=0^80.714^0^714.286^16.429^^^^^^^^1142.857^^^^^3571.429
+79 ;;^UTILITY(U,$J,112,9933,2)
+80 ;;=^^^^^^^^0^17.143^^23.571
+81 ;;^UTILITY(U,$J,112,9933,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,9934,0)
+84 ;;=MARGARINE,NUCOA SOFT^BC-03207^tbsp.^13
+85 ;;^UTILITY(U,$J,112,9934,1)
+86 ;;=0^80.769^.769^692.308^15.385^^^^^^^^1153.846^^^^^4000
+87 ;;^UTILITY(U,$J,112,9934,2)
+88 ;;=^^^^^^^^0^15.385^^32.308
+89 ;;^UTILITY(U,$J,112,9934,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,9935,0)
+92 ;;=MARGARINE,SHEDD'S LIQUID^BC-03208^tbsp.^14
+93 ;;^UTILITY(U,$J,112,9935,1)
+94 ;;=0^78.571^0^714.286^^^^^^^^^714.286
+95 ;;^UTILITY(U,$J,112,9935,2)
+96 ;;=^^^^^^^^0^14.286^^42.857
+97 ;;^UTILITY(U,$J,112,9935,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,9936,0)
+100 ;;=MARGARINE,SHEDD'S SOFT^BC-03209^tbsp.^14
+101 ;;^UTILITY(U,$J,112,9936,1)
+102 ;;=0^80^0^707.143^17.857^^^0^^^7.143^0^785.714^^^^^3735.714
+103 ;;^UTILITY(U,$J,112,9936,2)
+104 ;;=^^^^^^^^0^13.571^^37.857
+105 ;;^UTILITY(U,$J,112,9936,20)
+106 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+107 ;;^UTILITY(U,$J,112,9937,0)
+108 ;;=MARGARINE,SHEDD'S,WHIPPED,SOFT^BC-03210^tbsp.^11
+109 ;;^UTILITY(U,$J,112,9937,1)
+110 ;;=0^80^0^709.091^17.273^^^0^^^9.091^0^790.909^^^^^3736.364
+111 ;;^UTILITY(U,$J,112,9937,2)
+112 ;;=^^^^^^^^0^13.636^^38.182
+113 ;;^UTILITY(U,$J,112,9937,20)
+114 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+115 ;;^UTILITY(U,$J,112,9938,0)
+116 ;;=MARGARINE,SHEDD'S,WHIPPED,STICK^BC-03211^tbsp.^11
+117 ;;^UTILITY(U,$J,112,9938,1)
+118 ;;=0^80^0^709.091^18.182^^^0^^^9.091^0^790.909^^^^^3736.364
+119 ;;^UTILITY(U,$J,112,9938,2)
+120 ;;=^^^^^^^^0^14.545^^27.273
