FHINI0AW ; ; 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,7250,1)
;;=2.655^1.77^17.699^88.496^^^^72.566^.442^^^185.841^106.195^^^^^^^.027
;;^UTILITY(U,$J,112,7250,2)
;;=.08^^^^^^^^.885^.265^^.177^33.628^^^^0
;;^UTILITY(U,$J,112,7250,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7251,0)
;;=PUDDINGS,CHOCOLATE,RTE,SWISS MISS^BC-00524^4-oz.^113
;;^UTILITY(U,$J,112,7251,1)
;;=1.77^5.31^25.664^159.292^^^^88.496^.885^^^221.239^141.593^^^^^^^.027
;;^UTILITY(U,$J,112,7251,2)
;;=.097^.088^^^^^^^.885^1.239^^0
;;^UTILITY(U,$J,112,7251,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7252,0)
;;=PUDDINGS,CHOCOLATE,RTE (LITE),SWISS MISS^BC-00525^4-oz.^113
;;^UTILITY(U,$J,112,7252,1)
;;=2.655^.885^17.699^88.496^^^^70.796^.442^^^185.841^106.195^^^^^^^.027
;;^UTILITY(U,$J,112,7252,2)
;;=.088^.088^^^^^^^.885^.265^^0^17.699
;;^UTILITY(U,$J,112,7252,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7253,0)
;;=PUDDINGS,CHOC CARAMEL SWIRL,RTE,JELL-O^BC-00526^4-oz.^113
;;^UTILITY(U,$J,112,7253,1)
;;=2.655^5.31^24.779^154.867^^^^92.035^.354^17.699^85.841^206.195^107.965^^.08^^^149.558^.885^.027
;;^UTILITY(U,$J,112,7253,2)
;;=.106^.088^.239^.035^3.54^.265^^^1.77
;;^UTILITY(U,$J,112,7253,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7254,0)
;;=PUDDINGS,CHOC FUDGE (INST MIX),JELL-O^BC-00527^1/2-cup^150
;;^UTILITY(U,$J,112,7254,1)
;;=3.067^3.067^20.467^116.667^71.667^^^100^.387^20.667^249.333^216^292.667^.447^.087^^^104^.667^.033
;;^UTILITY(U,$J,112,7254,2)
;;=.14^.133^.26^.04^4^.293^^^11.333^1.8^^.133
;;^UTILITY(U,$J,112,7254,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7255,0)
;;=PUDDINGS,CHOC FUDGE,RTE,JELL-O^BC-00528^4-oz.^113
;;^UTILITY(U,$J,112,7255,1)
;;=2.655^5.31^24.779^151.327^^^^92.035^.442^20.354^91.15^229.204^107.08^.885^.097^^^161.062^.885^.027
;;^UTILITY(U,$J,112,7255,2)
;;=.106^.088^.239^.035^3.54^.265^^^.885
;;^UTILITY(U,$J,112,7255,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7256,0)
;;=PUDDINGS,CHOC FUDGE,RTE (LIGHT),JELL-O^BC-00529^4-oz.^113
;;^UTILITY(U,$J,112,7256,1)
;;=2.655^.885^19.469^89.381^^^^72.566^.354^16.814^70.796^182.301^100^^.08^^^138.053^.885^.018
;;^UTILITY(U,$J,112,7256,2)
;;=.088^.088^.186^.027^2.655^.177^^^2.655
;;^UTILITY(U,$J,112,7256,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7257,0)
;;=PUDDINGS,CHOC FUDGE,RTE,SNACK PACK^BC-00530^4.25-oz.^120
;;^UTILITY(U,$J,112,7257,1)
;;=1.667^5^22.5^137.5^^^^45.833^.167^^^125^104.167^^^^^^^.017
;;^UTILITY(U,$J,112,7257,2)
;;=.05^.083^^^^^^^.833^1^^.75^22.5^^^^0
;;^UTILITY(U,$J,112,7257,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7258,0)
;;=PUDDINGS,CHOC FUDGE,RTE,SWISS MISS^BC-00531^4-oz.^113
;;^UTILITY(U,$J,112,7258,1)
;;=2.655^5.31^33.628^194.69^^^^88.496^.885^^^212.389^159.292^^^^^^^.027
;;^UTILITY(U,$J,112,7258,2)
;;=.097^.177^^^^^^^.885^1.327^^.796
;;^UTILITY(U,$J,112,7258,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7259,0)
;;=PUDDINGS,CHOC FUDGE,RTE (LIGHT),SWISS MISS^BC-00532^4-oz.^113
;;^UTILITY(U,$J,112,7259,1)
;;=2.655^.885^17.699^88.496^^^^70.796^.088^^^159.292^106.195^^^^^^^.018
;;^UTILITY(U,$J,112,7259,2)
;;=.088^.088^^^^^^^.885^.265^^0^17.699
;;^UTILITY(U,$J,112,7259,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7260,0)
;;=PUDDINGS,CHOC FUDGE MOUSSE (REG MIX),JELL-O^BC-00533^1/2-cup^86
;;^UTILITY(U,$J,112,7260,1)
;;=6.047^6.512^22.791^166.279^63.023^^^140.698^.942^43.023^158.14^376.744^86.047^.837^.214^^^95.349^1.163^.058
;;^UTILITY(U,$J,112,7260,2)
;;=.209^.233^.419^.058^5.814^.453^^^10.465^4.651^^.233
;;^UTILITY(U,$J,112,7260,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7261,0)
;;=PUDDINGS,CHOC MARSHMALLOW,RTE,SNACK PACK^BC-00534^4.25-oz.^120
;;^UTILITY(U,$J,112,7261,1)
;;=1.667^5^21.667^137.5^^^^45.833^^^^79.167^104.167^^^^^^^.017
;;^UTILITY(U,$J,112,7261,2)
;;=.05^.083^^^^^^^.833^1.083^^.833^22.5^^^^0
;;^UTILITY(U,$J,112,7261,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7262,0)
;;=PUDDINGS,CHOC PARFAIT,RTE,SWISS MISS^BC-00535^4-oz.^113
;;^UTILITY(U,$J,112,7262,1)
;;=2.655^5.31^23.894^150.442^^^^91.15^.619^^^247.788^176.991^^^^^^^.027
;;^UTILITY(U,$J,112,7262,2)
;;=.106^.088^^^^^^^.885^1.239^^0
;;^UTILITY(U,$J,112,7262,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0AW ; ; 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,7250,1)
+2 ;;=2.655^1.77^17.699^88.496^^^^72.566^.442^^^185.841^106.195^^^^^^^.027
+3 ;;^UTILITY(U,$J,112,7250,2)
+4 ;;=.08^^^^^^^^.885^.265^^.177^33.628^^^^0
+5 ;;^UTILITY(U,$J,112,7250,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,7251,0)
+8 ;;=PUDDINGS,CHOCOLATE,RTE,SWISS MISS^BC-00524^4-oz.^113
+9 ;;^UTILITY(U,$J,112,7251,1)
+10 ;;=1.77^5.31^25.664^159.292^^^^88.496^.885^^^221.239^141.593^^^^^^^.027
+11 ;;^UTILITY(U,$J,112,7251,2)
+12 ;;=.097^.088^^^^^^^.885^1.239^^0
+13 ;;^UTILITY(U,$J,112,7251,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,7252,0)
+16 ;;=PUDDINGS,CHOCOLATE,RTE (LITE),SWISS MISS^BC-00525^4-oz.^113
+17 ;;^UTILITY(U,$J,112,7252,1)
+18 ;;=2.655^.885^17.699^88.496^^^^70.796^.442^^^185.841^106.195^^^^^^^.027
+19 ;;^UTILITY(U,$J,112,7252,2)
+20 ;;=.088^.088^^^^^^^.885^.265^^0^17.699
+21 ;;^UTILITY(U,$J,112,7252,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,7253,0)
+24 ;;=PUDDINGS,CHOC CARAMEL SWIRL,RTE,JELL-O^BC-00526^4-oz.^113
+25 ;;^UTILITY(U,$J,112,7253,1)
+26 ;;=2.655^5.31^24.779^154.867^^^^92.035^.354^17.699^85.841^206.195^107.965^^.08^^^149.558^.885^.027
+27 ;;^UTILITY(U,$J,112,7253,2)
+28 ;;=.106^.088^.239^.035^3.54^.265^^^1.77
+29 ;;^UTILITY(U,$J,112,7253,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,7254,0)
+32 ;;=PUDDINGS,CHOC FUDGE (INST MIX),JELL-O^BC-00527^1/2-cup^150
+33 ;;^UTILITY(U,$J,112,7254,1)
+34 ;;=3.067^3.067^20.467^116.667^71.667^^^100^.387^20.667^249.333^216^292.667^.447^.087^^^104^.667^.033
+35 ;;^UTILITY(U,$J,112,7254,2)
+36 ;;=.14^.133^.26^.04^4^.293^^^11.333^1.8^^.133
+37 ;;^UTILITY(U,$J,112,7254,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7255,0)
+40 ;;=PUDDINGS,CHOC FUDGE,RTE,JELL-O^BC-00528^4-oz.^113
+41 ;;^UTILITY(U,$J,112,7255,1)
+42 ;;=2.655^5.31^24.779^151.327^^^^92.035^.442^20.354^91.15^229.204^107.08^.885^.097^^^161.062^.885^.027
+43 ;;^UTILITY(U,$J,112,7255,2)
+44 ;;=.106^.088^.239^.035^3.54^.265^^^.885
+45 ;;^UTILITY(U,$J,112,7255,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7256,0)
+48 ;;=PUDDINGS,CHOC FUDGE,RTE (LIGHT),JELL-O^BC-00529^4-oz.^113
+49 ;;^UTILITY(U,$J,112,7256,1)
+50 ;;=2.655^.885^19.469^89.381^^^^72.566^.354^16.814^70.796^182.301^100^^.08^^^138.053^.885^.018
+51 ;;^UTILITY(U,$J,112,7256,2)
+52 ;;=.088^.088^.186^.027^2.655^.177^^^2.655
+53 ;;^UTILITY(U,$J,112,7256,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7257,0)
+56 ;;=PUDDINGS,CHOC FUDGE,RTE,SNACK PACK^BC-00530^4.25-oz.^120
+57 ;;^UTILITY(U,$J,112,7257,1)
+58 ;;=1.667^5^22.5^137.5^^^^45.833^.167^^^125^104.167^^^^^^^.017
+59 ;;^UTILITY(U,$J,112,7257,2)
+60 ;;=.05^.083^^^^^^^.833^1^^.75^22.5^^^^0
+61 ;;^UTILITY(U,$J,112,7257,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,7258,0)
+64 ;;=PUDDINGS,CHOC FUDGE,RTE,SWISS MISS^BC-00531^4-oz.^113
+65 ;;^UTILITY(U,$J,112,7258,1)
+66 ;;=2.655^5.31^33.628^194.69^^^^88.496^.885^^^212.389^159.292^^^^^^^.027
+67 ;;^UTILITY(U,$J,112,7258,2)
+68 ;;=.097^.177^^^^^^^.885^1.327^^.796
+69 ;;^UTILITY(U,$J,112,7258,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,7259,0)
+72 ;;=PUDDINGS,CHOC FUDGE,RTE (LIGHT),SWISS MISS^BC-00532^4-oz.^113
+73 ;;^UTILITY(U,$J,112,7259,1)
+74 ;;=2.655^.885^17.699^88.496^^^^70.796^.088^^^159.292^106.195^^^^^^^.018
+75 ;;^UTILITY(U,$J,112,7259,2)
+76 ;;=.088^.088^^^^^^^.885^.265^^0^17.699
+77 ;;^UTILITY(U,$J,112,7259,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,7260,0)
+80 ;;=PUDDINGS,CHOC FUDGE MOUSSE (REG MIX),JELL-O^BC-00533^1/2-cup^86
+81 ;;^UTILITY(U,$J,112,7260,1)
+82 ;;=6.047^6.512^22.791^166.279^63.023^^^140.698^.942^43.023^158.14^376.744^86.047^.837^.214^^^95.349^1.163^.058
+83 ;;^UTILITY(U,$J,112,7260,2)
+84 ;;=.209^.233^.419^.058^5.814^.453^^^10.465^4.651^^.233
+85 ;;^UTILITY(U,$J,112,7260,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,7261,0)
+88 ;;=PUDDINGS,CHOC MARSHMALLOW,RTE,SNACK PACK^BC-00534^4.25-oz.^120
+89 ;;^UTILITY(U,$J,112,7261,1)
+90 ;;=1.667^5^21.667^137.5^^^^45.833^^^^79.167^104.167^^^^^^^.017
+91 ;;^UTILITY(U,$J,112,7261,2)
+92 ;;=.05^.083^^^^^^^.833^1.083^^.833^22.5^^^^0
+93 ;;^UTILITY(U,$J,112,7261,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7262,0)
+96 ;;=PUDDINGS,CHOC PARFAIT,RTE,SWISS MISS^BC-00535^4-oz.^113
+97 ;;^UTILITY(U,$J,112,7262,1)
+98 ;;=2.655^5.31^23.894^150.442^^^^91.15^.619^^^247.788^176.991^^^^^^^.027
+99 ;;^UTILITY(U,$J,112,7262,2)
+100 ;;=.106^.088^^^^^^^.885^1.239^^0
+101 ;;^UTILITY(U,$J,112,7262,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
