FHINI0FK ; ; 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,9560,2)
;;=.018^.351
;;^UTILITY(U,$J,112,9560,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9561,0)
;;=GRAVIES,BROWN,CND,HEINZ HOMESTYLE^BC-02834^2-oz.^57
;;^UTILITY(U,$J,112,9561,1)
;;=1.228^4.035^2.456^50.877^^^^0^.088^^^140.351^228.07^^^^^0^1.754^0
;;^UTILITY(U,$J,112,9561,2)
;;=.035^.175
;;^UTILITY(U,$J,112,9561,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9562,0)
;;=GRAVIES,BROWN,CND,W/ ONIONS,FRANCO-AMERICAN^BC-02835^2-oz.^57
;;^UTILITY(U,$J,112,9562,1)
;;=.702^1.579^6.491^43.86^^^^10.526^.351^^^45.614^580.702^^^^^0^0^.018
;;^UTILITY(U,$J,112,9562,2)
;;=0^.175
;;^UTILITY(U,$J,112,9562,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9563,0)
;;=GRAVIES,BROWN,MIX,PILLSBURY^BC-02836^1/4-cup^60
;;^UTILITY(U,$J,112,9563,1)
;;=.667^.333^5.333^26.667^^^^6.667^.067^^5^8.333^546.667^^^^^0^0^.017
;;^UTILITY(U,$J,112,9563,2)
;;=0^0
;;^UTILITY(U,$J,112,9563,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9564,0)
;;=GRAVIES,CHICKEN,CND,CAMPBELL'S^BC-02837^2-oz.^57
;;^UTILITY(U,$J,112,9564,1)
;;=2.281^4.211^6.14^71.93^^^^31.579^.351^^^54.386^429.825^^^^^261.404^0^.018
;;^UTILITY(U,$J,112,9564,2)
;;=.035^.526
;;^UTILITY(U,$J,112,9564,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9565,0)
;;=GRAVIES,CHICKEN,CND,FRANCO-AMERICAN^BC-02838^2-oz.^57
;;^UTILITY(U,$J,112,9565,1)
;;=1.404^5.439^4.561^73.684^^^^19.298^.351^^^45.614^424.561^^^^^380.702^0^.018
;;^UTILITY(U,$J,112,9565,2)
;;=.035^.351
;;^UTILITY(U,$J,112,9565,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9566,0)
;;=GRAVIES,CHICKEN,CND,HEINZ HOMESTYLE^BC-02839^2-oz.^57
;;^UTILITY(U,$J,112,9566,1)
;;=1.228^4.035^5.088^61.404^^^^0^.07^^^87.719^192.982^^^^^0^1.754^0
;;^UTILITY(U,$J,112,9566,2)
;;=.035^.175
;;^UTILITY(U,$J,112,9566,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9567,0)
;;=GRAVIES,CHICKEN GIBLET,CND,FRANCO-AMERICAN^BC-02840^2-oz.^57
;;^UTILITY(U,$J,112,9567,1)
;;=1.93^2.632^4.737^50.877^^^^7.018^.526^^^26.316^528.07^^^^^0^0^0
;;^UTILITY(U,$J,112,9567,2)
;;=.035^.351
;;^UTILITY(U,$J,112,9567,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9568,0)
;;=GRAVIES,CREAM,CND,FRANCO-AMERICAN^BC-02841^2-oz.^57
;;^UTILITY(U,$J,112,9568,1)
;;=1.053^2.982^7.368^59.649^^^^17.544^^^^35.088^368.421^^^^^0^0^.035
;;^UTILITY(U,$J,112,9568,2)
;;=.035^.175
;;^UTILITY(U,$J,112,9568,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9569,0)
;;=GRAVIES,HOMESTYLE,MIX,PILLSBURY^BC-02842^1/4-cup^60
;;^UTILITY(U,$J,112,9569,1)
;;=.833^.167^5.167^26.667^^^^5^.05^^5^8.333^565^^^^^0^0^.017
;;^UTILITY(U,$J,112,9569,2)
;;=0^0
;;^UTILITY(U,$J,112,9569,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9570,0)
;;=GRAVIES,MUSHROOM,CND,FRANCO-AMERICAN^BC-02843^2-oz.^57
;;^UTILITY(U,$J,112,9570,1)
;;=1.053^1.404^4.737^36.842^^^^5.263^.351^^^52.632^503.509^^^^^0^0^.018
;;^UTILITY(U,$J,112,9570,2)
;;=.053^.526
;;^UTILITY(U,$J,112,9570,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9571,0)
;;=GRAVIES,MUSHROOM,CND,HEINZ HOMESTYLE^BC-02844^2-oz.^57
;;^UTILITY(U,$J,112,9571,1)
;;=.702^1.579^4.737^36.842^^^^0^.175^^^122.807^350.877^^^^^0^1.754^0
;;^UTILITY(U,$J,112,9571,2)
;;=.035^.175
;;^UTILITY(U,$J,112,9571,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9572,0)
;;=GRAVIES,ONION,CND,HEINZ HOMESTYLE^BC-02845^2-oz.^57
;;^UTILITY(U,$J,112,9572,1)
;;=.702^1.404^6.316^42.105^^^^0^.193^^^140.351^263.158^^^^^0^1.754^0
;;^UTILITY(U,$J,112,9572,2)
;;=.035^.175
;;^UTILITY(U,$J,112,9572,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9573,0)
;;=GRAVIES,PORK,CND,FRANCO-AMERICAN^BC-02846^2-oz.^57
;;^UTILITY(U,$J,112,9573,1)
;;=1.228^4.386^4.912^63.158^^^^7.018^.351^^^31.579^584.211^^^^^68.421^0^.018
;;^UTILITY(U,$J,112,9573,2)
;;=.018^.351
;;^UTILITY(U,$J,112,9573,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9574,0)
;;=GRAVIES,PORK,CND,HEINZ HOMESTYLE^BC-02847^2-oz.^57
;;^UTILITY(U,$J,112,9574,1)
;;=3.158^2.982^3.684^54.386^^^^0^.105^^^140.351^228.07^^^^^0^1.754^0
;;^UTILITY(U,$J,112,9574,2)
;;=.035^.175
;;^UTILITY(U,$J,112,9574,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9575,0)
;;=GRAVIES,TURKEY,CND,FRANCO-AMERICAN^BC-02848^2-oz.^57
FHINI0FK ; ; 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,9560,2)
+2 ;;=.018^.351
+3 ;;^UTILITY(U,$J,112,9560,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9561,0)
+6 ;;=GRAVIES,BROWN,CND,HEINZ HOMESTYLE^BC-02834^2-oz.^57
+7 ;;^UTILITY(U,$J,112,9561,1)
+8 ;;=1.228^4.035^2.456^50.877^^^^0^.088^^^140.351^228.07^^^^^0^1.754^0
+9 ;;^UTILITY(U,$J,112,9561,2)
+10 ;;=.035^.175
+11 ;;^UTILITY(U,$J,112,9561,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9562,0)
+14 ;;=GRAVIES,BROWN,CND,W/ ONIONS,FRANCO-AMERICAN^BC-02835^2-oz.^57
+15 ;;^UTILITY(U,$J,112,9562,1)
+16 ;;=.702^1.579^6.491^43.86^^^^10.526^.351^^^45.614^580.702^^^^^0^0^.018
+17 ;;^UTILITY(U,$J,112,9562,2)
+18 ;;=0^.175
+19 ;;^UTILITY(U,$J,112,9562,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9563,0)
+22 ;;=GRAVIES,BROWN,MIX,PILLSBURY^BC-02836^1/4-cup^60
+23 ;;^UTILITY(U,$J,112,9563,1)
+24 ;;=.667^.333^5.333^26.667^^^^6.667^.067^^5^8.333^546.667^^^^^0^0^.017
+25 ;;^UTILITY(U,$J,112,9563,2)
+26 ;;=0^0
+27 ;;^UTILITY(U,$J,112,9563,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9564,0)
+30 ;;=GRAVIES,CHICKEN,CND,CAMPBELL'S^BC-02837^2-oz.^57
+31 ;;^UTILITY(U,$J,112,9564,1)
+32 ;;=2.281^4.211^6.14^71.93^^^^31.579^.351^^^54.386^429.825^^^^^261.404^0^.018
+33 ;;^UTILITY(U,$J,112,9564,2)
+34 ;;=.035^.526
+35 ;;^UTILITY(U,$J,112,9564,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9565,0)
+38 ;;=GRAVIES,CHICKEN,CND,FRANCO-AMERICAN^BC-02838^2-oz.^57
+39 ;;^UTILITY(U,$J,112,9565,1)
+40 ;;=1.404^5.439^4.561^73.684^^^^19.298^.351^^^45.614^424.561^^^^^380.702^0^.018
+41 ;;^UTILITY(U,$J,112,9565,2)
+42 ;;=.035^.351
+43 ;;^UTILITY(U,$J,112,9565,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9566,0)
+46 ;;=GRAVIES,CHICKEN,CND,HEINZ HOMESTYLE^BC-02839^2-oz.^57
+47 ;;^UTILITY(U,$J,112,9566,1)
+48 ;;=1.228^4.035^5.088^61.404^^^^0^.07^^^87.719^192.982^^^^^0^1.754^0
+49 ;;^UTILITY(U,$J,112,9566,2)
+50 ;;=.035^.175
+51 ;;^UTILITY(U,$J,112,9566,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,9567,0)
+54 ;;=GRAVIES,CHICKEN GIBLET,CND,FRANCO-AMERICAN^BC-02840^2-oz.^57
+55 ;;^UTILITY(U,$J,112,9567,1)
+56 ;;=1.93^2.632^4.737^50.877^^^^7.018^.526^^^26.316^528.07^^^^^0^0^0
+57 ;;^UTILITY(U,$J,112,9567,2)
+58 ;;=.035^.351
+59 ;;^UTILITY(U,$J,112,9567,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,9568,0)
+62 ;;=GRAVIES,CREAM,CND,FRANCO-AMERICAN^BC-02841^2-oz.^57
+63 ;;^UTILITY(U,$J,112,9568,1)
+64 ;;=1.053^2.982^7.368^59.649^^^^17.544^^^^35.088^368.421^^^^^0^0^.035
+65 ;;^UTILITY(U,$J,112,9568,2)
+66 ;;=.035^.175
+67 ;;^UTILITY(U,$J,112,9568,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,9569,0)
+70 ;;=GRAVIES,HOMESTYLE,MIX,PILLSBURY^BC-02842^1/4-cup^60
+71 ;;^UTILITY(U,$J,112,9569,1)
+72 ;;=.833^.167^5.167^26.667^^^^5^.05^^5^8.333^565^^^^^0^0^.017
+73 ;;^UTILITY(U,$J,112,9569,2)
+74 ;;=0^0
+75 ;;^UTILITY(U,$J,112,9569,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,9570,0)
+78 ;;=GRAVIES,MUSHROOM,CND,FRANCO-AMERICAN^BC-02843^2-oz.^57
+79 ;;^UTILITY(U,$J,112,9570,1)
+80 ;;=1.053^1.404^4.737^36.842^^^^5.263^.351^^^52.632^503.509^^^^^0^0^.018
+81 ;;^UTILITY(U,$J,112,9570,2)
+82 ;;=.053^.526
+83 ;;^UTILITY(U,$J,112,9570,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,9571,0)
+86 ;;=GRAVIES,MUSHROOM,CND,HEINZ HOMESTYLE^BC-02844^2-oz.^57
+87 ;;^UTILITY(U,$J,112,9571,1)
+88 ;;=.702^1.579^4.737^36.842^^^^0^.175^^^122.807^350.877^^^^^0^1.754^0
+89 ;;^UTILITY(U,$J,112,9571,2)
+90 ;;=.035^.175
+91 ;;^UTILITY(U,$J,112,9571,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,9572,0)
+94 ;;=GRAVIES,ONION,CND,HEINZ HOMESTYLE^BC-02845^2-oz.^57
+95 ;;^UTILITY(U,$J,112,9572,1)
+96 ;;=.702^1.404^6.316^42.105^^^^0^.193^^^140.351^263.158^^^^^0^1.754^0
+97 ;;^UTILITY(U,$J,112,9572,2)
+98 ;;=.035^.175
+99 ;;^UTILITY(U,$J,112,9572,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,9573,0)
+102 ;;=GRAVIES,PORK,CND,FRANCO-AMERICAN^BC-02846^2-oz.^57
+103 ;;^UTILITY(U,$J,112,9573,1)
+104 ;;=1.228^4.386^4.912^63.158^^^^7.018^.351^^^31.579^584.211^^^^^68.421^0^.018
+105 ;;^UTILITY(U,$J,112,9573,2)
+106 ;;=.018^.351
+107 ;;^UTILITY(U,$J,112,9573,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,9574,0)
+110 ;;=GRAVIES,PORK,CND,HEINZ HOMESTYLE^BC-02847^2-oz.^57
+111 ;;^UTILITY(U,$J,112,9574,1)
+112 ;;=3.158^2.982^3.684^54.386^^^^0^.105^^^140.351^228.07^^^^^0^1.754^0
+113 ;;^UTILITY(U,$J,112,9574,2)
+114 ;;=.035^.175
+115 ;;^UTILITY(U,$J,112,9574,20)
+116 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+117 ;;^UTILITY(U,$J,112,9575,0)
+118 ;;=GRAVIES,TURKEY,CND,FRANCO-AMERICAN^BC-02848^2-oz.^57
