FHINI09W ; ; 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,6765,0)
;;=CARBONATED BEV.,DIET RC^BC-00038^cans^360
;;^UTILITY(U,$J,112,6765,1)
;;=0^0^.111^.278^^^^^^^11.389^16.667^.278
;;^UTILITY(U,$J,112,6765,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6766,0)
;;=CARBONATED BEV.,DIET RITE COLA^BC-00039^cans^360
;;^UTILITY(U,$J,112,6766,1)
;;=0^0^.111^.556^^^^^^^11.111^16.667^.278
;;^UTILITY(U,$J,112,6766,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,6766,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6767,0)
;;=CARBONATED BEV.,DIET RITE RED RASPBERRY^BC-00040^cans^360
;;^UTILITY(U,$J,112,6767,1)
;;=0^0^.278^1.111^^^^^^^0^33.333^0
;;^UTILITY(U,$J,112,6767,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,6767,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6768,0)
;;=CARBONATED BEV.,DIET SLICE^BC-00041^cans^360
;;^UTILITY(U,$J,112,6768,1)
;;=0^0^1.667^7.222^96.667^^^0^0^^0^27.778^3.056
;;^UTILITY(U,$J,112,6768,2)
;;=^^^^^^^^^0^^0^^^^^0
;;^UTILITY(U,$J,112,6768,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6769,0)
;;=CARBONATED BEV.,DIET SPRITE^BC-00042^cans^354
;;^UTILITY(U,$J,112,6769,1)
;;=0^0^0^1.13^^^^^^^0^15.819^0^^^^^^0
;;^UTILITY(U,$J,112,6769,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6770,0)
;;=CARBONATED BEV.,DIET SUNKIST ORANGE^BC-00043^cans^360
;;^UTILITY(U,$J,112,6770,1)
;;=0^0^0^1.111^^^^0^0^^^0^6.667
;;^UTILITY(U,$J,112,6770,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6771,0)
;;=CARBONATED BEV.,TAB^BC-00044^cans^354
;;^UTILITY(U,$J,112,6771,1)
;;=0^0^.085^.282^^^^^^^12.994^5.085^2.26
;;^UTILITY(U,$J,112,6771,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6772,0)
;;=CEREAL GRAIN BEV.,PREP FROM POWDER W/WATER,POSTUM^BC-00045^6-floz.^183
;;^UTILITY(U,$J,112,6772,1)
;;=.109^0^1.421^6.011^98.361^^^4.372^.109^5.464^10.929^53.005^1.639^.137^.033^^^0^0^.011
;;^UTILITY(U,$J,112,6772,2)
;;=.005^.383^.027^.005^2.732^0^^^0^0^0^0
;;^UTILITY(U,$J,112,6772,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6773,0)
;;=FRUIT FLAVOR BEV.,BERRY BLEND FROM PWDR,CRYSTAL LIGHT^BC-00046^8-floz.^240
;;^UTILITY(U,$J,112,6773,1)
;;=.042^0^.083^1.25^100^^^^^6.667^0^18.75^0^0^^^^0^2.5^0
;;^UTILITY(U,$J,112,6773,2)
;;=0^0^0^0^0^0^^^0^0^0^0
;;^UTILITY(U,$J,112,6773,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6774,0)
;;=FRUIT FLAVOR BEV.,CITRUS BLEND FROM PWDR,CRYSTAL LIGHT^BC-00047^8-floz.^238
;;^UTILITY(U,$J,112,6774,1)
;;=.042^0^.084^1.261^99.37^^^^^8.824^0^19.328^0^0^^^^0^2.521^0
;;^UTILITY(U,$J,112,6774,2)
;;=0^0^0^0^0^0^^^0^0^^0^^^^^0
;;^UTILITY(U,$J,112,6774,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6775,0)
;;=FRUIT JUICE DRINK,CRANGRAPE DRINK,OCEAN SPRAY^BC-00048^6-floz.^190
;;^UTILITY(U,$J,112,6775,1)
;;=0^0^13.684^57.895^^^^3.684^.132^2.105^3.684^19.474^3.684^^.012^^^^31.579^.011
;;^UTILITY(U,$J,112,6775,2)
;;=.016^.105
;;^UTILITY(U,$J,112,6775,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6776,0)
;;=FRUIT JUICE DRINK,CRANRASPBERRY DRINK,OCEAN SPRAY^BC-00049^6-floz.^190
;;^UTILITY(U,$J,112,6776,1)
;;=0^0^14.211^57.895^^^^^^^^18.421^3.158^^^^^^31.579
;;^UTILITY(U,$J,112,6776,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6777,0)
;;=FRUIT JUICE DRINK,FRUIT JUICY RED,HAWAIIAN PUNCH^BC-00050^6-floz.^185
;;^UTILITY(U,$J,112,6777,1)
;;=0^0^11.892^48.649^^^^1.622^^^1.081^16.216^9.189^^^^^5.405^32.432^0
;;^UTILITY(U,$J,112,6777,2)
;;=0^0
;;^UTILITY(U,$J,112,6777,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6778,0)
;;=FRUIT JUICE DRINK,FRUIT PUNCH,LOW SUGAR,HAWAIIAN PUNCH^BC-00051^6-floz.^185
;;^UTILITY(U,$J,112,6778,1)
;;=0^0^4.324^16.216^^^^2.703^^^1.081^16.216^10.811^^^^^17.297^32.432^0
;;^UTILITY(U,$J,112,6778,2)
;;=0^0
;;^UTILITY(U,$J,112,6778,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6779,0)
;;=FRUIT JUICE DRINK,FRUIT SLUSH,WYLER'S^BC-00052^4-floz.^132
;;^UTILITY(U,$J,112,6779,1)
;;=0^0^29.773^118.939^^^^1.515^0^.758^.758^25.758^7.576^0^0^0^^0^0^0
;;^UTILITY(U,$J,112,6779,2)
;;=0^0^^^^^^^0
;;^UTILITY(U,$J,112,6779,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6780,0)
;;=FRUIT FLAVOR BEV.,KOOL-AID,FROM PWDR^BC-00053^8-floz.^240
;;^UTILITY(U,$J,112,6780,1)
;;=0^0^10.458^40.833^^^^6.25^^^2.917^.417^5.833^0^^^^0^2.5^0
FHINI09W ; ; 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,6765,0)
+2 ;;=CARBONATED BEV.,DIET RC^BC-00038^cans^360
+3 ;;^UTILITY(U,$J,112,6765,1)
+4 ;;=0^0^.111^.278^^^^^^^11.389^16.667^.278
+5 ;;^UTILITY(U,$J,112,6765,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,6766,0)
+8 ;;=CARBONATED BEV.,DIET RITE COLA^BC-00039^cans^360
+9 ;;^UTILITY(U,$J,112,6766,1)
+10 ;;=0^0^.111^.556^^^^^^^11.111^16.667^.278
+11 ;;^UTILITY(U,$J,112,6766,2)
+12 ;;=^^^^^^^^0^0^0^0
+13 ;;^UTILITY(U,$J,112,6766,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,6767,0)
+16 ;;=CARBONATED BEV.,DIET RITE RED RASPBERRY^BC-00040^cans^360
+17 ;;^UTILITY(U,$J,112,6767,1)
+18 ;;=0^0^.278^1.111^^^^^^^0^33.333^0
+19 ;;^UTILITY(U,$J,112,6767,2)
+20 ;;=^^^^^^^^0^0^0^0
+21 ;;^UTILITY(U,$J,112,6767,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,6768,0)
+24 ;;=CARBONATED BEV.,DIET SLICE^BC-00041^cans^360
+25 ;;^UTILITY(U,$J,112,6768,1)
+26 ;;=0^0^1.667^7.222^96.667^^^0^0^^0^27.778^3.056
+27 ;;^UTILITY(U,$J,112,6768,2)
+28 ;;=^^^^^^^^^0^^0^^^^^0
+29 ;;^UTILITY(U,$J,112,6768,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,6769,0)
+32 ;;=CARBONATED BEV.,DIET SPRITE^BC-00042^cans^354
+33 ;;^UTILITY(U,$J,112,6769,1)
+34 ;;=0^0^0^1.13^^^^^^^0^15.819^0^^^^^^0
+35 ;;^UTILITY(U,$J,112,6769,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,6770,0)
+38 ;;=CARBONATED BEV.,DIET SUNKIST ORANGE^BC-00043^cans^360
+39 ;;^UTILITY(U,$J,112,6770,1)
+40 ;;=0^0^0^1.111^^^^0^0^^^0^6.667
+41 ;;^UTILITY(U,$J,112,6770,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,6771,0)
+44 ;;=CARBONATED BEV.,TAB^BC-00044^cans^354
+45 ;;^UTILITY(U,$J,112,6771,1)
+46 ;;=0^0^.085^.282^^^^^^^12.994^5.085^2.26
+47 ;;^UTILITY(U,$J,112,6771,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,6772,0)
+50 ;;=CEREAL GRAIN BEV.,PREP FROM POWDER W/WATER,POSTUM^BC-00045^6-floz.^183
+51 ;;^UTILITY(U,$J,112,6772,1)
+52 ;;=.109^0^1.421^6.011^98.361^^^4.372^.109^5.464^10.929^53.005^1.639^.137^.033^^^0^0^.011
+53 ;;^UTILITY(U,$J,112,6772,2)
+54 ;;=.005^.383^.027^.005^2.732^0^^^0^0^0^0
+55 ;;^UTILITY(U,$J,112,6772,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,6773,0)
+58 ;;=FRUIT FLAVOR BEV.,BERRY BLEND FROM PWDR,CRYSTAL LIGHT^BC-00046^8-floz.^240
+59 ;;^UTILITY(U,$J,112,6773,1)
+60 ;;=.042^0^.083^1.25^100^^^^^6.667^0^18.75^0^0^^^^0^2.5^0
+61 ;;^UTILITY(U,$J,112,6773,2)
+62 ;;=0^0^0^0^0^0^^^0^0^0^0
+63 ;;^UTILITY(U,$J,112,6773,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,6774,0)
+66 ;;=FRUIT FLAVOR BEV.,CITRUS BLEND FROM PWDR,CRYSTAL LIGHT^BC-00047^8-floz.^238
+67 ;;^UTILITY(U,$J,112,6774,1)
+68 ;;=.042^0^.084^1.261^99.37^^^^^8.824^0^19.328^0^0^^^^0^2.521^0
+69 ;;^UTILITY(U,$J,112,6774,2)
+70 ;;=0^0^0^0^0^0^^^0^0^^0^^^^^0
+71 ;;^UTILITY(U,$J,112,6774,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,6775,0)
+74 ;;=FRUIT JUICE DRINK,CRANGRAPE DRINK,OCEAN SPRAY^BC-00048^6-floz.^190
+75 ;;^UTILITY(U,$J,112,6775,1)
+76 ;;=0^0^13.684^57.895^^^^3.684^.132^2.105^3.684^19.474^3.684^^.012^^^^31.579^.011
+77 ;;^UTILITY(U,$J,112,6775,2)
+78 ;;=.016^.105
+79 ;;^UTILITY(U,$J,112,6775,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,6776,0)
+82 ;;=FRUIT JUICE DRINK,CRANRASPBERRY DRINK,OCEAN SPRAY^BC-00049^6-floz.^190
+83 ;;^UTILITY(U,$J,112,6776,1)
+84 ;;=0^0^14.211^57.895^^^^^^^^18.421^3.158^^^^^^31.579
+85 ;;^UTILITY(U,$J,112,6776,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,6777,0)
+88 ;;=FRUIT JUICE DRINK,FRUIT JUICY RED,HAWAIIAN PUNCH^BC-00050^6-floz.^185
+89 ;;^UTILITY(U,$J,112,6777,1)
+90 ;;=0^0^11.892^48.649^^^^1.622^^^1.081^16.216^9.189^^^^^5.405^32.432^0
+91 ;;^UTILITY(U,$J,112,6777,2)
+92 ;;=0^0
+93 ;;^UTILITY(U,$J,112,6777,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,6778,0)
+96 ;;=FRUIT JUICE DRINK,FRUIT PUNCH,LOW SUGAR,HAWAIIAN PUNCH^BC-00051^6-floz.^185
+97 ;;^UTILITY(U,$J,112,6778,1)
+98 ;;=0^0^4.324^16.216^^^^2.703^^^1.081^16.216^10.811^^^^^17.297^32.432^0
+99 ;;^UTILITY(U,$J,112,6778,2)
+100 ;;=0^0
+101 ;;^UTILITY(U,$J,112,6778,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,6779,0)
+104 ;;=FRUIT JUICE DRINK,FRUIT SLUSH,WYLER'S^BC-00052^4-floz.^132
+105 ;;^UTILITY(U,$J,112,6779,1)
+106 ;;=0^0^29.773^118.939^^^^1.515^0^.758^.758^25.758^7.576^0^0^0^^0^0^0
+107 ;;^UTILITY(U,$J,112,6779,2)
+108 ;;=0^0^^^^^^^0
+109 ;;^UTILITY(U,$J,112,6779,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+111 ;;^UTILITY(U,$J,112,6780,0)
+112 ;;=FRUIT FLAVOR BEV.,KOOL-AID,FROM PWDR^BC-00053^8-floz.^240
+113 ;;^UTILITY(U,$J,112,6780,1)
+114 ;;=0^0^10.458^40.833^^^^6.25^^^2.917^.417^5.833^0^^^^0^2.5^0
