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

FHINI0BD.m

Go to the documentation of this file.
FHINI0BD	; ; 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,7478,2)
	;;=.062^2.988^^^^^^^20.747
	;;^UTILITY(U,$J,112,7478,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,7479,0)
	;;=ENTREES,CHICKEN,GLAZED,LEAN CUISINE^BC-00752^8.5-oz.^241
	;;^UTILITY(U,$J,112,7479,1)
	;;=10.788^3.32^9.544^112.033^^^^8.299^.299^^^161.826^294.606^^^^^41.494^8.299^.05
	;;^UTILITY(U,$J,112,7479,2)
	;;=.041^3.32^^^^^^^24.896^.415^^1.66
	;;^UTILITY(U,$J,112,7479,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,7480,0)
	;;=ENTREES,CHICKEN,GLAZED,STOUFFERS^BC-00753^4-oz.^113
	;;^UTILITY(U,$J,112,7480,1)
	;;=11.327^3.805^2.743^90.265^80.973^^^4.425^.204^^^169.912^360.177^^^^^20.354^.885^.699
	;;^UTILITY(U,$J,112,7480,2)
	;;=.071^3.717^^^^^^^28.319
	;;^UTILITY(U,$J,112,7480,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,7481,0)
	;;=ENTREES,CHICKEN IMPERIAL,CHUN KING^BC-00754^13-oz.^369
	;;^UTILITY(U,$J,112,7481,1)
	;;=4.607^.271^14.634^81.301^^^^13.279^.542^^42.818^70.461^417.344^^^^^347.425^2.439^.054
	;;^UTILITY(U,$J,112,7481,2)
	;;=.127^.65
	;;^UTILITY(U,$J,112,7481,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,7482,0)
	;;=ENTREES,CHICKEN IN HERB SCE,LEAN CUISINE^BC-00755^9.5-oz.^269
	;;^UTILITY(U,$J,112,7482,1)
	;;=8.55^3.717^7.063^96.654^^^^37.175^.401^^^171.004^312.268^^^^^464.684^.743^.056
	;;^UTILITY(U,$J,112,7482,2)
	;;=.126^2.974^^^^^^^29.74^1.115^^.743
	;;^UTILITY(U,$J,112,7482,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,7483,0)
	;;=ENTREES,CHICKEN ITALIENNE,STOUFFERS^BC-00756^4-oz.^113
	;;^UTILITY(U,$J,112,7483,1)
	;;=8.23^3.009^3.894^75.221^83.009^^^22.124^.602^^^190.265^400^^^^^260.177^7.08^.044
	;;^UTILITY(U,$J,112,7483,2)
	;;=.088^1.681^^^^^^^20.354
	;;^UTILITY(U,$J,112,7483,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,7484,0)
	;;=ENTREES,CHICKEN KIEV,LE MENU^BC-00757^8-oz.^227
	;;^UTILITY(U,$J,112,7484,1)
	;;=7.974^13.921^14.802^216.3^^^^19.383^.529^^^103.965^342.291^^^^^709.692^.881^.066
	;;^UTILITY(U,$J,112,7484,2)
	;;=.07^3.216
	;;^UTILITY(U,$J,112,7484,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,7485,0)
	;;=ENTREES,CHICKEN MARSALA,LEAN CUISINE^BC-00758^8.1-oz.^230
	;;^UTILITY(U,$J,112,7485,1)
	;;=10.87^2.174^4.783^82.609^^^^8.696^.47^^^173.913^369.565^^^^^652.174^3.913^.065
	;;^UTILITY(U,$J,112,7485,2)
	;;=.074^3.478^^^^^^^32.609^.435^^.435
	;;^UTILITY(U,$J,112,7485,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,7486,0)
	;;=ENTREES,CHICKEN MEXICALI,STOUFFERS^BC-00759^6-oz.^170
	;;^UTILITY(U,$J,112,7486,1)
	;;=4.882^2.882^6.294^70^85^^^40.588^.629^^^241.176^170^^^^^1012.941^24.118^.059
	;;^UTILITY(U,$J,112,7486,2)
	;;=.088^2^^^^^^^17.059^.471^.765^.529^^^^^1.176
	;;^UTILITY(U,$J,112,7486,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,7487,0)
	;;=ENTREES,CHICKEN ORIENTAL,LEAN CUISINE^BC-00760^9.4-oz.^266
	;;^UTILITY(U,$J,112,7487,1)
	;;=8.647^2.256^8.647^90.226^^^^22.556^.677^^^150.376^394.737^^^^^75.188^5.639^.056
	;;^UTILITY(U,$J,112,7487,2)
	;;=.098^3.008^^^^^^^37.594^.376^^.752
	;;^UTILITY(U,$J,112,7487,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,7488,0)
	;;=ENTREES,CHICKEN PARMESAN,LEAN CUISINE^BC-00761^10-oz.^283
	;;^UTILITY(U,$J,112,7488,1)
	;;=8.834^2.827^6.714^88.339^^^^53.004^.509^^^265.018^300.353^^^^^176.678^2.12^.081
	;;^UTILITY(U,$J,112,7488,2)
	;;=.092^2.473^^^^^^^24.735^.707^^.707
	;;^UTILITY(U,$J,112,7488,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,7489,0)
	;;=ENTREES,CHICKEN PRIMAVERA,STOUFFERS^BC-00762^4-oz.^113
	;;^UTILITY(U,$J,112,7489,1)
	;;=5.929^2.035^4.071^58.407^86.991^^^15.044^.504^^^139.823^400^^^^^900^7.08^.044
	;;^UTILITY(U,$J,112,7489,2)
	;;=.08^1.062^^^^^^^15.044
	;;^UTILITY(U,$J,112,7489,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,7490,0)
	;;=ENTREES,CHICKEN STEW,SWANSON MAIN DISH^BC-00763^7.6-oz.^216
	;;^UTILITY(U,$J,112,7490,1)
	;;=4.444^3.194^7.13^75^^^^13.426^.509^^^137.5^454.167^^^^^2775.463^2.778^.019
	;;^UTILITY(U,$J,112,7490,2)
	;;=.042^1.435
	;;^UTILITY(U,$J,112,7490,20)
	;;=Bowes & Church's Food Values, Sixteenth Edition.
	;;^UTILITY(U,$J,112,7491,0)
	;;=ENTREES,CHICKEN,SWEET & SOUR,GREEN GIANT^BC-00764^5-oz.^142
	;;^UTILITY(U,$J,112,7491,1)
	;;=5.634^2.113^21.127^126.761^^^^10.563^.423^^56.338^125.352^165.493^^^^^389.437^9.859^.021
	;;^UTILITY(U,$J,112,7491,2)
	;;=.021^2.465^^^^^^^14.789^.423^^.704