FHINI0AZ ; ; 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,7287,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7288,0)
;;=PUDDINGS,VANILLA (REG MIX),JELL-O^BC-00561^1/2-cup^113
;;^UTILITY(U,$J,112,7288,1)
;;=3.54^3.54^23.009^138.053^^^^130.973^.088^15.044^100.885^164.602^175.221^^.018^^^136.283^.885^.044
;;^UTILITY(U,$J,112,7288,2)
;;=.177^.088^.336^.044^5.31^.354^^^15.044
;;^UTILITY(U,$J,112,7288,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7289,0)
;;=PUDDINGS,VANILLA (REG MIX RED CAL),D-ZERTA^BC-00562^1/2-cup^130
;;^UTILITY(U,$J,112,7289,1)
;;=3.308^.154^9.308^52.308^86.462^^^117.692^.038^10.769^95.385^156.923^50^.377^.012^^^192.308^.769^.031
;;^UTILITY(U,$J,112,7289,2)
;;=.131^.077^.308^.038^4.615^.354^^^1.538^.077^^0
;;^UTILITY(U,$J,112,7289,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7290,0)
;;=PUDDINGS,VANILLA (REG MIX SUGAR FREE),JELL-O^BC-00563^1/2-cup^131
;;^UTILITY(U,$J,112,7290,1)
;;=3.206^1.832^8.397^62.595^83.588^^^116.031^.061^13.74^89.313^144.275^151.908^.366^.008^^^190.84^.763^.038
;;^UTILITY(U,$J,112,7290,2)
;;=.153^.076^.298^.038^4.58^.344^^^6.87^1.145^^.076
;;^UTILITY(U,$J,112,7290,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7291,0)
;;=PUDDINGS,VANILLA,RTE,JELL-O^BC-00564^4-oz.^113
;;^UTILITY(U,$J,112,7291,1)
;;=2.655^6.195^24.779^161.062^^^^96.46^.088^8.85^78.761^130.088^117.699^^.009^^^158.407^.885^.027
;;^UTILITY(U,$J,112,7291,2)
;;=.106^.088^.257^.027^3.54^.265^^^1.77
;;^UTILITY(U,$J,112,7291,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7292,0)
;;=PUDDINGS,VANILLA,RTE (LIGHT),JELL-O^BC-00565^4-oz.^113
;;^UTILITY(U,$J,112,7292,1)
;;=2.655^1.77^17.699^92.035^^^^81.416^^8.85^62.832^107.08^104.425^^.009^^^194.69^.885^.027
;;^UTILITY(U,$J,112,7292,2)
;;=.106^.088^.212^.027^3.54^.265^^^5.31
;;^UTILITY(U,$J,112,7292,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7293,0)
;;=PUDDINGS,VANILLA,RTE,RICH'S^BC-00566^3-oz.^85
;;^UTILITY(U,$J,112,7293,1)
;;=1.882^6.941^21.647^151.765^68.824^^^30.588^.2^5.882^56.471^100^190.588^.2^.035^^^^^.024
;;^UTILITY(U,$J,112,7293,2)
;;=.094^0
;;^UTILITY(U,$J,112,7293,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7294,0)
;;=PUDDINGS,VANILLA,RTE,SNACK PACK^BC-00567^4.25-oz.^120
;;^UTILITY(U,$J,112,7294,1)
;;=1.667^5^22.5^141.667^^^^52.5^^^^70.833^125^^^^^^^.017
;;^UTILITY(U,$J,112,7294,2)
;;=.058^^^^^^^^.833^1.167^^.833^25.833^^^^0
;;^UTILITY(U,$J,112,7294,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7295,0)
;;=PUDDINGS,VANILLA,RTE,SWISS MISS^BC-00568^4-oz.^113
;;^UTILITY(U,$J,112,7295,1)
;;=1.77^6.195^26.549^168.142^^^^86.726^^^^115.044^123.894^^^^^^^.027
;;^UTILITY(U,$J,112,7295,2)
;;=.097^.088^^^^^^^.885^1.239^^0
;;^UTILITY(U,$J,112,7295,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7296,0)
;;=PUDDINGS,VANILLA,RTE (LIGHT),SWISS MISS^BC-00569^4-oz.^113
;;^UTILITY(U,$J,112,7296,1)
;;=1.77^.885^17.699^88.496^^^^53.097^^^^79.646^92.92^^^^^^^.018
;;^UTILITY(U,$J,112,7296,2)
;;=.062^.088^^^^^^^0^.265^^0^17.699
;;^UTILITY(U,$J,112,7296,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7297,0)
;;=PUDDINGS,VAN-CHOC PARFAIT,SWISS MISS^BC-00570^4-oz.^113
;;^UTILITY(U,$J,112,7297,1)
;;=1.77^.885^17.699^88.496^^^^70.796^.177^^^123.894^97.345^^^^^^^.027
;;^UTILITY(U,$J,112,7297,2)
;;=.088^.088^^^^^^^0^.265^^0^17.699
;;^UTILITY(U,$J,112,7297,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7298,0)
;;=PUDDINGS,VAN-CHOC SWIRL,RTE,JELL-O^BC-00571^4-oz.^113
;;^UTILITY(U,$J,112,7298,1)
;;=2.655^5.31^24.779^157.522^^^^94.69^.177^13.274^84.071^169.912^114.159^^.044^^^148.673^.885^.027
;;^UTILITY(U,$J,112,7298,2)
;;=.106^.088^.248^.035^3.54^.265^^^1.77
;;^UTILITY(U,$J,112,7298,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7299,0)
;;=PUDDINGS,VAN PARFAIT,SWISS MISS^BC-00572^4-oz.^113
;;^UTILITY(U,$J,112,7299,1)
;;=1.77^5.31^25.664^159.292^^^^88.496^.619^^^168.142^132.743^^^^^^^.027
;;^UTILITY(U,$J,112,7299,2)
;;=.097^.088^^^^^^^.885^1.15^^.796
;;^UTILITY(U,$J,112,7299,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7300,0)
;;=PUDDINGS,VAN SUNDAE,SWISS MISS^BC-00573^4-oz.^113
;;^UTILITY(U,$J,112,7300,1)
;;=1.77^6.195^31.858^194.69^^^^65.487^.619^^^123.894^159.292^^^^^^^.018
;;^UTILITY(U,$J,112,7300,2)
;;=.071^.088^^^^^^^.885^1.327^^.885
FHINI0AZ ; ; 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,7287,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,7288,0)
+4 ;;=PUDDINGS,VANILLA (REG MIX),JELL-O^BC-00561^1/2-cup^113
+5 ;;^UTILITY(U,$J,112,7288,1)
+6 ;;=3.54^3.54^23.009^138.053^^^^130.973^.088^15.044^100.885^164.602^175.221^^.018^^^136.283^.885^.044
+7 ;;^UTILITY(U,$J,112,7288,2)
+8 ;;=.177^.088^.336^.044^5.31^.354^^^15.044
+9 ;;^UTILITY(U,$J,112,7288,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,7289,0)
+12 ;;=PUDDINGS,VANILLA (REG MIX RED CAL),D-ZERTA^BC-00562^1/2-cup^130
+13 ;;^UTILITY(U,$J,112,7289,1)
+14 ;;=3.308^.154^9.308^52.308^86.462^^^117.692^.038^10.769^95.385^156.923^50^.377^.012^^^192.308^.769^.031
+15 ;;^UTILITY(U,$J,112,7289,2)
+16 ;;=.131^.077^.308^.038^4.615^.354^^^1.538^.077^^0
+17 ;;^UTILITY(U,$J,112,7289,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,7290,0)
+20 ;;=PUDDINGS,VANILLA (REG MIX SUGAR FREE),JELL-O^BC-00563^1/2-cup^131
+21 ;;^UTILITY(U,$J,112,7290,1)
+22 ;;=3.206^1.832^8.397^62.595^83.588^^^116.031^.061^13.74^89.313^144.275^151.908^.366^.008^^^190.84^.763^.038
+23 ;;^UTILITY(U,$J,112,7290,2)
+24 ;;=.153^.076^.298^.038^4.58^.344^^^6.87^1.145^^.076
+25 ;;^UTILITY(U,$J,112,7290,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,7291,0)
+28 ;;=PUDDINGS,VANILLA,RTE,JELL-O^BC-00564^4-oz.^113
+29 ;;^UTILITY(U,$J,112,7291,1)
+30 ;;=2.655^6.195^24.779^161.062^^^^96.46^.088^8.85^78.761^130.088^117.699^^.009^^^158.407^.885^.027
+31 ;;^UTILITY(U,$J,112,7291,2)
+32 ;;=.106^.088^.257^.027^3.54^.265^^^1.77
+33 ;;^UTILITY(U,$J,112,7291,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,7292,0)
+36 ;;=PUDDINGS,VANILLA,RTE (LIGHT),JELL-O^BC-00565^4-oz.^113
+37 ;;^UTILITY(U,$J,112,7292,1)
+38 ;;=2.655^1.77^17.699^92.035^^^^81.416^^8.85^62.832^107.08^104.425^^.009^^^194.69^.885^.027
+39 ;;^UTILITY(U,$J,112,7292,2)
+40 ;;=.106^.088^.212^.027^3.54^.265^^^5.31
+41 ;;^UTILITY(U,$J,112,7292,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,7293,0)
+44 ;;=PUDDINGS,VANILLA,RTE,RICH'S^BC-00566^3-oz.^85
+45 ;;^UTILITY(U,$J,112,7293,1)
+46 ;;=1.882^6.941^21.647^151.765^68.824^^^30.588^.2^5.882^56.471^100^190.588^.2^.035^^^^^.024
+47 ;;^UTILITY(U,$J,112,7293,2)
+48 ;;=.094^0
+49 ;;^UTILITY(U,$J,112,7293,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,7294,0)
+52 ;;=PUDDINGS,VANILLA,RTE,SNACK PACK^BC-00567^4.25-oz.^120
+53 ;;^UTILITY(U,$J,112,7294,1)
+54 ;;=1.667^5^22.5^141.667^^^^52.5^^^^70.833^125^^^^^^^.017
+55 ;;^UTILITY(U,$J,112,7294,2)
+56 ;;=.058^^^^^^^^.833^1.167^^.833^25.833^^^^0
+57 ;;^UTILITY(U,$J,112,7294,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,7295,0)
+60 ;;=PUDDINGS,VANILLA,RTE,SWISS MISS^BC-00568^4-oz.^113
+61 ;;^UTILITY(U,$J,112,7295,1)
+62 ;;=1.77^6.195^26.549^168.142^^^^86.726^^^^115.044^123.894^^^^^^^.027
+63 ;;^UTILITY(U,$J,112,7295,2)
+64 ;;=.097^.088^^^^^^^.885^1.239^^0
+65 ;;^UTILITY(U,$J,112,7295,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,7296,0)
+68 ;;=PUDDINGS,VANILLA,RTE (LIGHT),SWISS MISS^BC-00569^4-oz.^113
+69 ;;^UTILITY(U,$J,112,7296,1)
+70 ;;=1.77^.885^17.699^88.496^^^^53.097^^^^79.646^92.92^^^^^^^.018
+71 ;;^UTILITY(U,$J,112,7296,2)
+72 ;;=.062^.088^^^^^^^0^.265^^0^17.699
+73 ;;^UTILITY(U,$J,112,7296,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,7297,0)
+76 ;;=PUDDINGS,VAN-CHOC PARFAIT,SWISS MISS^BC-00570^4-oz.^113
+77 ;;^UTILITY(U,$J,112,7297,1)
+78 ;;=1.77^.885^17.699^88.496^^^^70.796^.177^^^123.894^97.345^^^^^^^.027
+79 ;;^UTILITY(U,$J,112,7297,2)
+80 ;;=.088^.088^^^^^^^0^.265^^0^17.699
+81 ;;^UTILITY(U,$J,112,7297,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,7298,0)
+84 ;;=PUDDINGS,VAN-CHOC SWIRL,RTE,JELL-O^BC-00571^4-oz.^113
+85 ;;^UTILITY(U,$J,112,7298,1)
+86 ;;=2.655^5.31^24.779^157.522^^^^94.69^.177^13.274^84.071^169.912^114.159^^.044^^^148.673^.885^.027
+87 ;;^UTILITY(U,$J,112,7298,2)
+88 ;;=.106^.088^.248^.035^3.54^.265^^^1.77
+89 ;;^UTILITY(U,$J,112,7298,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,7299,0)
+92 ;;=PUDDINGS,VAN PARFAIT,SWISS MISS^BC-00572^4-oz.^113
+93 ;;^UTILITY(U,$J,112,7299,1)
+94 ;;=1.77^5.31^25.664^159.292^^^^88.496^.619^^^168.142^132.743^^^^^^^.027
+95 ;;^UTILITY(U,$J,112,7299,2)
+96 ;;=.097^.088^^^^^^^.885^1.15^^.796
+97 ;;^UTILITY(U,$J,112,7299,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,7300,0)
+100 ;;=PUDDINGS,VAN SUNDAE,SWISS MISS^BC-00573^4-oz.^113
+101 ;;^UTILITY(U,$J,112,7300,1)
+102 ;;=1.77^6.195^31.858^194.69^^^^65.487^.619^^^123.894^159.292^^^^^^^.018
+103 ;;^UTILITY(U,$J,112,7300,2)
+104 ;;=.071^.088^^^^^^^.885^1.327^^.885
