FHINI0AY ; ; 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,7275,1)
;;=2.655^5.31^25.664^152.212^^^^98.230^.354^19.469^93.805^223.894^109.735^.885^.088^^^149.558^.885^.027
;;^UTILITY(U,$J,112,7275,2)
;;=.115^.088^.257^.035^3.54^.265^^^1.77
;;^UTILITY(U,$J,112,7275,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7276,0)
;;=PUDDINGS,MILK CHOC (INST MIX),JELL-O^BC-00549^1/2-cup^150
;;^UTILITY(U,$J,112,7276,1)
;;=3^3.133^20.6^119.333^71.667^^^102^.26^17.333^246^186.667^312^.4^.06^^^107.333^.667^.033
;;^UTILITY(U,$J,112,7276,2)
;;=.14^.067^.267^.04^4^.3^^^11.333^1.867^^.133
;;^UTILITY(U,$J,112,7276,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7277,0)
;;=PUDDINGS,MILK CHOC,RTE,JELL-O^BC-00550^4-oz.^113
;;^UTILITY(U,$J,112,7277,1)
;;=3.54^5.31^25.664^153.097^^^^101.77^.354^18.584^95.575^221.239^111.504^.885^.08^^^160.177^.885^.027
;;^UTILITY(U,$J,112,7277,2)
;;=.115^.088^.265^.035^3.54^.265^^^1.77
;;^UTILITY(U,$J,112,7277,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7278,0)
;;=PUDDINGS,MOUSSE (REG MIX),KNORR^BC-00551^1/2-cup^113
;;^UTILITY(U,$J,112,7278,1)
;;=.885^4.425^7.08^70.796^^^^^^^^^39.823
;;^UTILITY(U,$J,112,7278,2)
;;=^^^^^^^^4.425
;;^UTILITY(U,$J,112,7278,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7279,0)
;;=PUDDINGS,PINEAPPLE (INST MIX),JELL-O^BC-00552^1/2-cup^147
;;^UTILITY(U,$J,112,7279,1)
;;=2.721^2.925^19.456^112.245^73.673^^^99.32^.061^10.884^205.442^205.442^245.578^.32^.007^^^104.762^.68^.034
;;^UTILITY(U,$J,112,7279,2)
;;=.136^.068^.259^.034^4.082^.299^^^11.565^1.769^^.136
;;^UTILITY(U,$J,112,7279,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7280,0)
;;=PUDDINGS,PISTACHIO (INST MIX),JELL-O^BC-00553^1/2-cup^147
;;^UTILITY(U,$J,112,7280,1)
;;=2.857^3.265^19.184^115.646^73.333^^^101.361^.102^12.925^208.844^131.973^277.551^.313^.014^^^104.762^.68^.034
;;^UTILITY(U,$J,112,7280,2)
;;=.143^.068^.265^.034^4.762^.299^^^11.565^1.769^^.204
;;^UTILITY(U,$J,112,7280,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7281,0)
;;=PUDDINGS,PISTACHIO (INST MIX SUGAR FREE),JELL-O^BC-00554^1/2-cup^131
;;^UTILITY(U,$J,112,7281,1)
;;=3.282^2.29^9.771^69.466^83.13^^^115.267^.099^15.267^225.954^151.145^300^.366^.016^^^190.84^.763^.038
;;^UTILITY(U,$J,112,7281,2)
;;=.16^.076^.298^.038^5.344^.336^^^6.87^1.145^^.153
;;^UTILITY(U,$J,112,7281,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7282,0)
;;=PUDDINGS,RICE (REG MIX),JELL-O AMERICANA^BC-00555^1/2-cup^149
;;^UTILITY(U,$J,112,7282,1)
;;=3.221^2.752^20.134^117.45^73.087^^^100^.362^12.752^83.221^124.832^105.369^.369^.011^^^103.356^.671^.074
;;^UTILITY(U,$J,112,7282,2)
;;=.134^.403^.275^.034^4.027^.295^^^11.409^1.745^^.134
;;^UTILITY(U,$J,112,7282,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7283,0)
;;=PUDDINGS,TAPIOCA,RTE,JELL-O^BC-00556^4-oz.^113
;;^UTILITY(U,$J,112,7283,1)
;;=2.655^3.54^25.664^147.788^^^^100.885^.088^9.735^83.186^136.283^119.469^^.018^^^162.832^.885^.027
;;^UTILITY(U,$J,112,7283,2)
;;=.115^.088^.265^.035^3.54^.265^^^1.77
;;^UTILITY(U,$J,112,7283,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7284,0)
;;=PUDDINGS,TAPIOCA,RTE,SNACK PACK^BC-00557^4.25-oz.^120
;;^UTILITY(U,$J,112,7284,1)
;;=1.667^4.167^19.167^125^^^^72.5^.083^^^100^125^^^^^^^.025
;;^UTILITY(U,$J,112,7284,2)
;;=.083^^^^^^^^.833^1^^.667^35^^^^0
;;^UTILITY(U,$J,112,7284,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7285,0)
;;=PUDDINGS,TAPIOCA,RTE (LITE),SNACK PACK^BC-00558^4-oz.^113
;;^UTILITY(U,$J,112,7285,1)
;;=1.77^1.77^15.929^88.496^^^^56.637^^^^75.221^92.92^^^^^^^.018
;;^UTILITY(U,$J,112,7285,2)
;;=.062^0^^^^^^^.885^.354^^.177^26.549^^^^0
;;^UTILITY(U,$J,112,7285,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7286,0)
;;=PUDDINGS,TAPIOCA,RTE,SWISS MISS^BC-00559^4-oz.^113
;;^UTILITY(U,$J,112,7286,1)
;;=1.77^4.425^23.894^141.593^^^^87.611^.088^^^115.044^150.442^^^^^^^.027
;;^UTILITY(U,$J,112,7286,2)
;;=.097^.088^^^^^^^.885^.885^^0
;;^UTILITY(U,$J,112,7286,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7287,0)
;;=PUDDINGS,VANILLA (INST MIX),JELL-O^BC-00560^1/2-cup^147
;;^UTILITY(U,$J,112,7287,1)
;;=2.721^2.925^19.728^114.286^73.265^^^100^.068^11.565^205.442^126.531^276.871^.327^.013^^^104.762^.68^.034
;;^UTILITY(U,$J,112,7287,2)
;;=.136^.068^.259^.034^4.082^.299^^^11.565^1.769^^.136
FHINI0AY ; ; 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,7275,1)
+2 ;;=2.655^5.31^25.664^152.212^^^^98.230^.354^19.469^93.805^223.894^109.735^.885^.088^^^149.558^.885^.027
+3 ;;^UTILITY(U,$J,112,7275,2)
+4 ;;=.115^.088^.257^.035^3.54^.265^^^1.77
+5 ;;^UTILITY(U,$J,112,7275,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,7276,0)
+8 ;;=PUDDINGS,MILK CHOC (INST MIX),JELL-O^BC-00549^1/2-cup^150
+9 ;;^UTILITY(U,$J,112,7276,1)
+10 ;;=3^3.133^20.6^119.333^71.667^^^102^.26^17.333^246^186.667^312^.4^.06^^^107.333^.667^.033
+11 ;;^UTILITY(U,$J,112,7276,2)
+12 ;;=.14^.067^.267^.04^4^.3^^^11.333^1.867^^.133
+13 ;;^UTILITY(U,$J,112,7276,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,7277,0)
+16 ;;=PUDDINGS,MILK CHOC,RTE,JELL-O^BC-00550^4-oz.^113
+17 ;;^UTILITY(U,$J,112,7277,1)
+18 ;;=3.54^5.31^25.664^153.097^^^^101.77^.354^18.584^95.575^221.239^111.504^.885^.08^^^160.177^.885^.027
+19 ;;^UTILITY(U,$J,112,7277,2)
+20 ;;=.115^.088^.265^.035^3.54^.265^^^1.77
+21 ;;^UTILITY(U,$J,112,7277,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,7278,0)
+24 ;;=PUDDINGS,MOUSSE (REG MIX),KNORR^BC-00551^1/2-cup^113
+25 ;;^UTILITY(U,$J,112,7278,1)
+26 ;;=.885^4.425^7.08^70.796^^^^^^^^^39.823
+27 ;;^UTILITY(U,$J,112,7278,2)
+28 ;;=^^^^^^^^4.425
+29 ;;^UTILITY(U,$J,112,7278,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,7279,0)
+32 ;;=PUDDINGS,PINEAPPLE (INST MIX),JELL-O^BC-00552^1/2-cup^147
+33 ;;^UTILITY(U,$J,112,7279,1)
+34 ;;=2.721^2.925^19.456^112.245^73.673^^^99.32^.061^10.884^205.442^205.442^245.578^.32^.007^^^104.762^.68^.034
+35 ;;^UTILITY(U,$J,112,7279,2)
+36 ;;=.136^.068^.259^.034^4.082^.299^^^11.565^1.769^^.136
+37 ;;^UTILITY(U,$J,112,7279,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7280,0)
+40 ;;=PUDDINGS,PISTACHIO (INST MIX),JELL-O^BC-00553^1/2-cup^147
+41 ;;^UTILITY(U,$J,112,7280,1)
+42 ;;=2.857^3.265^19.184^115.646^73.333^^^101.361^.102^12.925^208.844^131.973^277.551^.313^.014^^^104.762^.68^.034
+43 ;;^UTILITY(U,$J,112,7280,2)
+44 ;;=.143^.068^.265^.034^4.762^.299^^^11.565^1.769^^.204
+45 ;;^UTILITY(U,$J,112,7280,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7281,0)
+48 ;;=PUDDINGS,PISTACHIO (INST MIX SUGAR FREE),JELL-O^BC-00554^1/2-cup^131
+49 ;;^UTILITY(U,$J,112,7281,1)
+50 ;;=3.282^2.29^9.771^69.466^83.13^^^115.267^.099^15.267^225.954^151.145^300^.366^.016^^^190.84^.763^.038
+51 ;;^UTILITY(U,$J,112,7281,2)
+52 ;;=.16^.076^.298^.038^5.344^.336^^^6.87^1.145^^.153
+53 ;;^UTILITY(U,$J,112,7281,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7282,0)
+56 ;;=PUDDINGS,RICE (REG MIX),JELL-O AMERICANA^BC-00555^1/2-cup^149
+57 ;;^UTILITY(U,$J,112,7282,1)
+58 ;;=3.221^2.752^20.134^117.45^73.087^^^100^.362^12.752^83.221^124.832^105.369^.369^.011^^^103.356^.671^.074
+59 ;;^UTILITY(U,$J,112,7282,2)
+60 ;;=.134^.403^.275^.034^4.027^.295^^^11.409^1.745^^.134
+61 ;;^UTILITY(U,$J,112,7282,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,7283,0)
+64 ;;=PUDDINGS,TAPIOCA,RTE,JELL-O^BC-00556^4-oz.^113
+65 ;;^UTILITY(U,$J,112,7283,1)
+66 ;;=2.655^3.54^25.664^147.788^^^^100.885^.088^9.735^83.186^136.283^119.469^^.018^^^162.832^.885^.027
+67 ;;^UTILITY(U,$J,112,7283,2)
+68 ;;=.115^.088^.265^.035^3.54^.265^^^1.77
+69 ;;^UTILITY(U,$J,112,7283,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,7284,0)
+72 ;;=PUDDINGS,TAPIOCA,RTE,SNACK PACK^BC-00557^4.25-oz.^120
+73 ;;^UTILITY(U,$J,112,7284,1)
+74 ;;=1.667^4.167^19.167^125^^^^72.5^.083^^^100^125^^^^^^^.025
+75 ;;^UTILITY(U,$J,112,7284,2)
+76 ;;=.083^^^^^^^^.833^1^^.667^35^^^^0
+77 ;;^UTILITY(U,$J,112,7284,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,7285,0)
+80 ;;=PUDDINGS,TAPIOCA,RTE (LITE),SNACK PACK^BC-00558^4-oz.^113
+81 ;;^UTILITY(U,$J,112,7285,1)
+82 ;;=1.77^1.77^15.929^88.496^^^^56.637^^^^75.221^92.92^^^^^^^.018
+83 ;;^UTILITY(U,$J,112,7285,2)
+84 ;;=.062^0^^^^^^^.885^.354^^.177^26.549^^^^0
+85 ;;^UTILITY(U,$J,112,7285,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,7286,0)
+88 ;;=PUDDINGS,TAPIOCA,RTE,SWISS MISS^BC-00559^4-oz.^113
+89 ;;^UTILITY(U,$J,112,7286,1)
+90 ;;=1.77^4.425^23.894^141.593^^^^87.611^.088^^^115.044^150.442^^^^^^^.027
+91 ;;^UTILITY(U,$J,112,7286,2)
+92 ;;=.097^.088^^^^^^^.885^.885^^0
+93 ;;^UTILITY(U,$J,112,7286,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7287,0)
+96 ;;=PUDDINGS,VANILLA (INST MIX),JELL-O^BC-00560^1/2-cup^147
+97 ;;^UTILITY(U,$J,112,7287,1)
+98 ;;=2.721^2.925^19.728^114.286^73.265^^^100^.068^11.565^205.442^126.531^276.871^.327^.013^^^104.762^.68^.034
+99 ;;^UTILITY(U,$J,112,7287,2)
+100 ;;=.136^.068^.259^.034^4.082^.299^^^11.565^1.769^^.136
