Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FHINI0AG

FHINI0AG.m

Go to the documentation of this file.
  1. FHINI0AG ; ; 11-OCT-1995
  1. ;;5.0;Dietetics;;Oct 11, 1995
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,112,7033,1)
  1. ;;=7.143^21.429^50^428.571^^^^^^^^^285.714
  1. ;;^UTILITY(U,$J,112,7033,2)
  1. ;;=^^^^^^^^0^7.143
  1. ;;^UTILITY(U,$J,112,7033,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7034,0)
  1. ;;=COOKIES,CHOC CHIP,CHIPS AHOY^BC-00307^.5-oz.^14
  1. ;;^UTILITY(U,$J,112,7034,1)
  1. ;;=7.143^14.286^50^357.143^^^^^^^^^285.714
  1. ;;^UTILITY(U,$J,112,7034,2)
  1. ;;=^^^^^^^^0
  1. ;;^UTILITY(U,$J,112,7034,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7035,0)
  1. ;;=COOKIES,CHOC CHIP,DUNCAN HINES^BC-00308^2-cookies^25
  1. ;;^UTILITY(U,$J,112,7035,1)
  1. ;;=4^20^62.4^440^^^^^^^^^360
  1. ;;^UTILITY(U,$J,112,7035,2)
  1. ;;=^^^^^^^^0^8^10^2
  1. ;;^UTILITY(U,$J,112,7035,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7036,0)
  1. ;;=COOKIES,CHOC CHIP,FIBER ENRICHED,KEEBLER^BC-00309^cookies^15
  1. ;;^UTILITY(U,$J,112,7036,1)
  1. ;;=4.667^27.333^58.667^486.667^^^^33.333^2.133^^^113.333^346.667^^^^^^^.267
  1. ;;^UTILITY(U,$J,112,7036,2)
  1. ;;=.133^2^^^^^^^0^6.667^^.667
  1. ;;^UTILITY(U,$J,112,7036,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7037,0)
  1. ;;=COOKIES,CHOC CHIP,KEEBLER OLD FASHIONED^BC-00310^cookies^16
  1. ;;^UTILITY(U,$J,112,7037,1)
  1. ;;=5.625^21.875^68.125^487.5^^^^25^2.313^^^137.5^487.5^^^^^^^.125
  1. ;;^UTILITY(U,$J,112,7037,2)
  1. ;;=.188^2.5^^^^^^^0^6.25^^1.875
  1. ;;^UTILITY(U,$J,112,7037,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7038,0)
  1. ;;=COOKIES,CHOC CHIP,PILSBURY^BC-00311^cookies^16
  1. ;;^UTILITY(U,$J,112,7038,1)
  1. ;;=4.375^21.25^58.125^425^15^^^12.5^1.75^^56.25^106.25^343.75^^^^^25^0^.188
  1. ;;^UTILITY(U,$J,112,7038,2)
  1. ;;=.25^1.875
  1. ;;^UTILITY(U,$J,112,7038,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7039,0)
  1. ;;=COOKIES,CHOC CHIP SNAPS,NABISCO^BC-00312^3-cookies^14
  1. ;;^UTILITY(U,$J,112,7039,1)
  1. ;;=7.143^14.286^78.571^500^^^^^^^^^357.143
  1. ;;^UTILITY(U,$J,112,7039,2)
  1. ;;=^^^^^^^^0^7.143
  1. ;;^UTILITY(U,$J,112,7039,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7040,0)
  1. ;;=COOKIES,CHOC CHOC CHIP,PILSBURY^BC-00313^cookies^16
  1. ;;^UTILITY(U,$J,112,7040,1)
  1. ;;=3.75^19.375^60^412.5^15^^^12.5^2^^68.75^237.5^231.25^^^^^6.25^0^.188
  1. ;;^UTILITY(U,$J,112,7040,2)
  1. ;;=.25^1.875
  1. ;;^UTILITY(U,$J,112,7040,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7041,0)
  1. ;;=COOKIES,CHOC CHOC CHUNK,CHIPS AHOY^BC-00314^.5-oz.^14
  1. ;;^UTILITY(U,$J,112,7041,1)
  1. ;;=7.143^35.714^71.429^642.857^^^^^^^^^464.286
  1. ;;^UTILITY(U,$J,112,7041,2)
  1. ;;=^^^^^^^^71.429^14.286
  1. ;;^UTILITY(U,$J,112,7041,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7042,0)
  1. ;;=COOKIES,CHOC FUDGE SANDWICH,KEEBLER^BC-00315^cookies^17
  1. ;;^UTILITY(U,$J,112,7042,1)
  1. ;;=5.294^21.765^68.824^488.235^^^^17.647^2.588^^^158.824^370.588^^^^^^^.176
  1. ;;^UTILITY(U,$J,112,7042,2)
  1. ;;=.176^2.941^^^^^^^0^5.882^^1.176
  1. ;;^UTILITY(U,$J,112,7042,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7043,0)
  1. ;;=COOKIES,CHOC GRAHAM SNACKS,TEDDY GRAHAMS^BC-00316^11-pieces^14
  1. ;;^UTILITY(U,$J,112,7043,1)
  1. ;;=7.143^14.286^71.429^428.571^^^^^^^^^642.857
  1. ;;^UTILITY(U,$J,112,7043,2)
  1. ;;=^^^^^^^^0
  1. ;;^UTILITY(U,$J,112,7043,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7044,0)
  1. ;;=COOKIES,CHOC MIDDLES,NABISCO^BC-00317^.5-oz.^14
  1. ;;^UTILITY(U,$J,112,7044,1)
  1. ;;=7.143^35.714^64.286^571.429^^^^^^^^^250
  1. ;;^UTILITY(U,$J,112,7044,2)
  1. ;;=^^^^^^^^^14.286
  1. ;;^UTILITY(U,$J,112,7044,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7045,0)
  1. ;;=COOKIES,CHOC SNAPS,NABISCO^BC-00318^4-cookies^14
  1. ;;^UTILITY(U,$J,112,7045,1)
  1. ;;=7.143^14.286^78.571^500^^^^^^^^^535.714
  1. ;;^UTILITY(U,$J,112,7045,2)
  1. ;;=^^^^^^^^0^7.143
  1. ;;^UTILITY(U,$J,112,7045,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7046,0)
  1. ;;=COOKIES,CARAMEL BARS,LITTLE DEBBIE^BC-00319^1.2-oz.^33
  1. ;;^UTILITY(U,$J,112,7046,1)
  1. ;;=3.333^24.545^66.667^500^4.545^^^0^1.515^^^^251.515^^^^^0^0^.182
  1. ;;^UTILITY(U,$J,112,7046,2)
  1. ;;=.212^2.121^^^^^^^3.03^5.758^16.97^1.818
  1. ;;^UTILITY(U,$J,112,7046,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7047,0)
  1. ;;=COOKIES,COOKIE MATES,KEEBLER^BC-00320^2-cookies^11
  1. ;;^UTILITY(U,$J,112,7047,1)
  1. ;;=6.364^17.273^70.909^463.636^^^^36.364^3.364^^^163.636^481.818^^^^^^^.364
  1. ;;^UTILITY(U,$J,112,7047,2)
  1. ;;=.273^3.636^^^^^^^0^2.727^^.909
  1. ;;^UTILITY(U,$J,112,7047,20)
  1. ;;=Bowes & Church's Food Values, Sixteenth Edition.
  1. ;;^UTILITY(U,$J,112,7048,0)
  1. ;;=COOKIES,FIGAROOS,LITTLE DEBBIE^BC-00321^1.5-oz.^43