FHINI0AV ; ; 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,7237,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7238,0)
;;=PUDDINGS,BUTTERSCOTCH (REG MIX RED CAL),D-ZERTA^BC-00511^1/2-oz.^130
;;^UTILITY(U,$J,112,7238,1)
;;=3.308^.154^9.308^52.308^86.385^^^117.692^.038^10.769^95.385^181.538^50^.377^.012^^^192.308^.769^.031
;;^UTILITY(U,$J,112,7238,2)
;;=.131^.077^.308^.038^4.615^.354^^^1.538^.077^^0
;;^UTILITY(U,$J,112,7238,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7239,0)
;;=PUDDINGS,RTE,RICH'S^BC-00512^3-oz.^85
;;^UTILITY(U,$J,112,7239,1)
;;=2^6.941^21.529^156.471^68.941^^^30.588^.235^5.882^55.294^100^150.588^.165^.024^^^^^.024
;;^UTILITY(U,$J,112,7239,2)
;;=.106
;;^UTILITY(U,$J,112,7239,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7240,0)
;;=PUDDINGS,BUTTERSCOTCH,RTE,SNACK PACK^BC-00513^4.25-oz.^120
;;^UTILITY(U,$J,112,7240,1)
;;=1.667^5^22.5^141.667^^^^57.5^^^^75^175^^^^^27.5^^.017
;;^UTILITY(U,$J,112,7240,2)
;;=.067^.083^^^^^^^.833^1.167^^.833^^^^^0
;;^UTILITY(U,$J,112,7240,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7241,0)
;;=PUDDINGS,BUTTERSCOTCH,RTE,SWISS MISS^BC-00514^4-oz.^113
;;^UTILITY(U,$J,112,7241,1)
;;=1.77^5.31^25.664^159.292^^^^86.726^^^^115.044^119.469^^^^^^^.027
;;^UTILITY(U,$J,112,7241,2)
;;=.097^.088^^^^^^^.885^1.062^^.796
;;^UTILITY(U,$J,112,7241,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7242,0)
;;=PUDDINGS,CHOCOLATE (INST MIX),JELL-O^BC-00515^1/2-cup^150
;;^UTILITY(U,$J,112,7242,1)
;;=2.933^3^20.667^117.333^71.667^^^99.333^.287^18^244.667^198^317.333^.407^.064^^^103.333^.667^.033
;;^UTILITY(U,$J,112,7242,2)
;;=.14^.067^.26^.04^4^.293^^^11.333^1.8^^.133
;;^UTILITY(U,$J,112,7242,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7243,0)
;;=PUDDINGS,CHOCOLATE (INST MIX SUGAR FREE),JELL-O^BC-00516^1/2-cup^133
;;^UTILITY(U,$J,112,7243,1)
;;=3.383^2.03^9.774^69.173^82.256^^^114.286^.256^18.797^217.293^192.481^286.466^.444^.056^^^188.722^.752^.038
;;^UTILITY(U,$J,112,7243,2)
;;=.158^.075^.301^.045^4.511^.338^^^6.767^1.203^^.075
;;^UTILITY(U,$J,112,7243,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7244,0)
;;=PUDDINGS,CHOCOLATE (REG MIX RED CAL),D-ZERTA^BC-00517^1/2-cup^130
;;^UTILITY(U,$J,112,7244,1)
;;=3.538^.308^8.692^50^86.385^^^122.308^.238^16.923^104.615^248.462^52.308^.462^.058^^^193.077^.769^.038
;;^UTILITY(U,$J,112,7244,2)
;;=.138^.077^.315^.038^4.615^.354^^^1.538^.231^^0
;;^UTILITY(U,$J,112,7244,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7245,0)
;;=PUDDINGS,CHOCOLATE (REG MIX SUGAR FREE),JELL-O^BC-00518^1/2-cup^113
;;^UTILITY(U,$J,112,7245,1)
;;=4.425^2.655^11.504^80.531^^^^137.168^.442^26.549^120.354^270.796^145.133^.885^.097^^^223.009^.885^.044
;;^UTILITY(U,$J,112,7245,2)
;;=.186^.177^.354^.053^5.31^.354^^^7.965
;;^UTILITY(U,$J,112,7245,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7246,0)
;;=PUDDINGS,CHOCOLATE,RTE,JELL-O^BC-00519^4-oz.^113
;;^UTILITY(U,$J,112,7246,1)
;;=2.655^5.31^24.779^151.327^^^^92.035^.442^21.239^92.92^243.363^107.08^.885^.115^^^161.062^.885^.027
;;^UTILITY(U,$J,112,7246,2)
;;=.106^.088^.239^.035^3.54^.265^^^.885
;;^UTILITY(U,$J,112,7246,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7247,0)
;;=PUDDINGS,CHOCOLATE,RTE (LIGHT),JELL-O^BC-00520^4-oz.^113
;;^UTILITY(U,$J,112,7247,1)
;;=2.655^1.77^18.584^92.035^^^^72.566^.354^17.699^69.027^180.531^100^^.08^^^169.912^.885^.027
;;^UTILITY(U,$J,112,7247,2)
;;=.106^.088^.195^.027^2.655^.177^^^4.425
;;^UTILITY(U,$J,112,7247,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7248,0)
;;=PUDDINGS,CHOCOLATE,RTE,RICH'S^BC-00521^3-oz.^85
;;^UTILITY(U,$J,112,7248,1)
;;=2^8.353^21.412^165.882^67.529^^^25.882^.753^15.294^62.353^130.588^160^.294^.035^^^^^.024
;;^UTILITY(U,$J,112,7248,2)
;;=.094^.235
;;^UTILITY(U,$J,112,7248,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7249,0)
;;=PUDDINGS,CHOCOLATE,RTE,SNACK PACK^BC-00522^4.25-oz.^120
;;^UTILITY(U,$J,112,7249,1)
;;=1.667^5^21.667^141.667^^^^45.833^.167^^^120.833^100^^^^^^^.017
;;^UTILITY(U,$J,112,7249,2)
;;=.05^.083^^^^^^^.833^1.083^^.833^22.5^^^^0
;;^UTILITY(U,$J,112,7249,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7250,0)
;;=PUDDINGS,CHOCOLATE,RTE,SNACK PACK LITE^BC-00523^4-oz.^113
FHINI0AV ; ; 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,7237,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,7238,0)
+4 ;;=PUDDINGS,BUTTERSCOTCH (REG MIX RED CAL),D-ZERTA^BC-00511^1/2-oz.^130
+5 ;;^UTILITY(U,$J,112,7238,1)
+6 ;;=3.308^.154^9.308^52.308^86.385^^^117.692^.038^10.769^95.385^181.538^50^.377^.012^^^192.308^.769^.031
+7 ;;^UTILITY(U,$J,112,7238,2)
+8 ;;=.131^.077^.308^.038^4.615^.354^^^1.538^.077^^0
+9 ;;^UTILITY(U,$J,112,7238,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,7239,0)
+12 ;;=PUDDINGS,RTE,RICH'S^BC-00512^3-oz.^85
+13 ;;^UTILITY(U,$J,112,7239,1)
+14 ;;=2^6.941^21.529^156.471^68.941^^^30.588^.235^5.882^55.294^100^150.588^.165^.024^^^^^.024
+15 ;;^UTILITY(U,$J,112,7239,2)
+16 ;;=.106
+17 ;;^UTILITY(U,$J,112,7239,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,7240,0)
+20 ;;=PUDDINGS,BUTTERSCOTCH,RTE,SNACK PACK^BC-00513^4.25-oz.^120
+21 ;;^UTILITY(U,$J,112,7240,1)
+22 ;;=1.667^5^22.5^141.667^^^^57.5^^^^75^175^^^^^27.5^^.017
+23 ;;^UTILITY(U,$J,112,7240,2)
+24 ;;=.067^.083^^^^^^^.833^1.167^^.833^^^^^0
+25 ;;^UTILITY(U,$J,112,7240,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,7241,0)
+28 ;;=PUDDINGS,BUTTERSCOTCH,RTE,SWISS MISS^BC-00514^4-oz.^113
+29 ;;^UTILITY(U,$J,112,7241,1)
+30 ;;=1.77^5.31^25.664^159.292^^^^86.726^^^^115.044^119.469^^^^^^^.027
+31 ;;^UTILITY(U,$J,112,7241,2)
+32 ;;=.097^.088^^^^^^^.885^1.062^^.796
+33 ;;^UTILITY(U,$J,112,7241,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,7242,0)
+36 ;;=PUDDINGS,CHOCOLATE (INST MIX),JELL-O^BC-00515^1/2-cup^150
+37 ;;^UTILITY(U,$J,112,7242,1)
+38 ;;=2.933^3^20.667^117.333^71.667^^^99.333^.287^18^244.667^198^317.333^.407^.064^^^103.333^.667^.033
+39 ;;^UTILITY(U,$J,112,7242,2)
+40 ;;=.14^.067^.26^.04^4^.293^^^11.333^1.8^^.133
+41 ;;^UTILITY(U,$J,112,7242,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,7243,0)
+44 ;;=PUDDINGS,CHOCOLATE (INST MIX SUGAR FREE),JELL-O^BC-00516^1/2-cup^133
+45 ;;^UTILITY(U,$J,112,7243,1)
+46 ;;=3.383^2.03^9.774^69.173^82.256^^^114.286^.256^18.797^217.293^192.481^286.466^.444^.056^^^188.722^.752^.038
+47 ;;^UTILITY(U,$J,112,7243,2)
+48 ;;=.158^.075^.301^.045^4.511^.338^^^6.767^1.203^^.075
+49 ;;^UTILITY(U,$J,112,7243,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,7244,0)
+52 ;;=PUDDINGS,CHOCOLATE (REG MIX RED CAL),D-ZERTA^BC-00517^1/2-cup^130
+53 ;;^UTILITY(U,$J,112,7244,1)
+54 ;;=3.538^.308^8.692^50^86.385^^^122.308^.238^16.923^104.615^248.462^52.308^.462^.058^^^193.077^.769^.038
+55 ;;^UTILITY(U,$J,112,7244,2)
+56 ;;=.138^.077^.315^.038^4.615^.354^^^1.538^.231^^0
+57 ;;^UTILITY(U,$J,112,7244,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,7245,0)
+60 ;;=PUDDINGS,CHOCOLATE (REG MIX SUGAR FREE),JELL-O^BC-00518^1/2-cup^113
+61 ;;^UTILITY(U,$J,112,7245,1)
+62 ;;=4.425^2.655^11.504^80.531^^^^137.168^.442^26.549^120.354^270.796^145.133^.885^.097^^^223.009^.885^.044
+63 ;;^UTILITY(U,$J,112,7245,2)
+64 ;;=.186^.177^.354^.053^5.31^.354^^^7.965
+65 ;;^UTILITY(U,$J,112,7245,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,7246,0)
+68 ;;=PUDDINGS,CHOCOLATE,RTE,JELL-O^BC-00519^4-oz.^113
+69 ;;^UTILITY(U,$J,112,7246,1)
+70 ;;=2.655^5.31^24.779^151.327^^^^92.035^.442^21.239^92.92^243.363^107.08^.885^.115^^^161.062^.885^.027
+71 ;;^UTILITY(U,$J,112,7246,2)
+72 ;;=.106^.088^.239^.035^3.54^.265^^^.885
+73 ;;^UTILITY(U,$J,112,7246,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,7247,0)
+76 ;;=PUDDINGS,CHOCOLATE,RTE (LIGHT),JELL-O^BC-00520^4-oz.^113
+77 ;;^UTILITY(U,$J,112,7247,1)
+78 ;;=2.655^1.77^18.584^92.035^^^^72.566^.354^17.699^69.027^180.531^100^^.08^^^169.912^.885^.027
+79 ;;^UTILITY(U,$J,112,7247,2)
+80 ;;=.106^.088^.195^.027^2.655^.177^^^4.425
+81 ;;^UTILITY(U,$J,112,7247,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,7248,0)
+84 ;;=PUDDINGS,CHOCOLATE,RTE,RICH'S^BC-00521^3-oz.^85
+85 ;;^UTILITY(U,$J,112,7248,1)
+86 ;;=2^8.353^21.412^165.882^67.529^^^25.882^.753^15.294^62.353^130.588^160^.294^.035^^^^^.024
+87 ;;^UTILITY(U,$J,112,7248,2)
+88 ;;=.094^.235
+89 ;;^UTILITY(U,$J,112,7248,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,7249,0)
+92 ;;=PUDDINGS,CHOCOLATE,RTE,SNACK PACK^BC-00522^4.25-oz.^120
+93 ;;^UTILITY(U,$J,112,7249,1)
+94 ;;=1.667^5^21.667^141.667^^^^45.833^.167^^^120.833^100^^^^^^^.017
+95 ;;^UTILITY(U,$J,112,7249,2)
+96 ;;=.05^.083^^^^^^^.833^1.083^^.833^22.5^^^^0
+97 ;;^UTILITY(U,$J,112,7249,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,7250,0)
+100 ;;=PUDDINGS,CHOCOLATE,RTE,SNACK PACK LITE^BC-00523^4-oz.^113
