FHINI0AU ; ; 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,7224,2)
;;=^^^^^^^^14.063
;;^UTILITY(U,$J,112,7224,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7225,0)
;;=PIES,SNACK (DUTCH APPLE),LITTLE DEBBIE^BC-00498^2.2-oz.^62
;;^UTILITY(U,$J,112,7225,1)
;;=2.581^18.871^64.194^437.097^13.387^^^14.516^.633^^^^259.677^^^^^0^1.613^.145
;;^UTILITY(U,$J,112,7225,2)
;;=.21^1.452^^^^^^^0^6.774^9.839^2.258
;;^UTILITY(U,$J,112,7225,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7226,0)
;;=PIES,SNACK (PEACH),HOSTESS^BC-00499^snack pies^128
;;^UTILITY(U,$J,112,7226,1)
;;=3.125^15.625^41.406^312.5^^^^^^^^^347.656^^^^^0
;;^UTILITY(U,$J,112,7226,2)
;;=^^^^^^^^14.063
;;^UTILITY(U,$J,112,7226,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7227,0)
;;=PIES,SNACK (PECAN),LITTLE DEBBIE^BC-00500^1.8-oz.^52
;;^UTILITY(U,$J,112,7227,1)
;;=3.462^13.269^63.654^388.462^18.846^^^15.385^1.192^^^^353.846^^^^^0^0^.135
;;^UTILITY(U,$J,112,7227,2)
;;=.135^.962^^^^^^^1.923^3.077^7.692^2.308
;;^UTILITY(U,$J,112,7227,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7228,0)
;;=PIES,SNACK (PUDDING),HOSTESS^BC-00501^snack pies^142
;;^UTILITY(U,$J,112,7228,1)
;;=2.817^11.972^52.817^330.986^^^^^^^^^253.521^^^^^0^0
;;^UTILITY(U,$J,112,7228,2)
;;=^^^^^^^^12.676
;;^UTILITY(U,$J,112,7228,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7229,0)
;;=PIES,SNACK (STRAWBERRY),HOSTESS^BC-00502^snack pies^128
;;^UTILITY(U,$J,112,7229,1)
;;=2.344^10.938^43.75^265.625^^^^^^^^^312.5^^^^^0
;;^UTILITY(U,$J,112,7229,2)
;;=^^^^^^^^10.156
;;^UTILITY(U,$J,112,7229,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7230,0)
;;=PUDDINGS,ALL FLAVORS,(FROM MIX),SUGAR-FREE,CARBOTROL^BC-00503^4-oz.^113
;;^UTILITY(U,$J,112,7230,1)
;;=4.425^0^15.044^70.796^^^^^^^^^150.442
;;^UTILITY(U,$J,112,7230,2)
;;=^^^^^^^^2.655
;;^UTILITY(U,$J,112,7230,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7231,0)
;;=PUDDINGS,BANANA CREAM (INST MIX),JELL-O^BC-00504^1/2-cup^147
;;^UTILITY(U,$J,112,7231,1)
;;=2.721^2.925^19.32^112.245^^^^100^.061^11.565^205.442^126.531^278.231^.32^.007^.68^^104.762^.68^.034
;;^UTILITY(U,$J,112,7231,2)
;;=.136^.068^.259^.034^4.082^.299^^^11.565^1.769^^.136
;;^UTILITY(U,$J,112,7231,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7232,0)
;;=PUDDINGS,BANANA CREAM (REG MIX),JELL-O^BC-00505^1/2-cup^113
;;^UTILITY(U,$J,112,7232,1)
;;=3.982^3.982^23.894^137.168^^^^132.743^^15.929^102.655^164.602^214.159^^.018^^^135.398^1.77^.044
;;^UTILITY(U,$J,112,7232,2)
;;=.177^.177^.345^.044^5.31^.398^^^15.044
;;^UTILITY(U,$J,112,7232,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7233,0)
;;=PUDDINGS,BANANA (INST MIX SUGAR FREE),JELL-O^BC-00506^1/2-cup^113
;;^UTILITY(U,$J,112,7233,1)
;;=3.54^1.77^9.735^74.336^^^^131.858^.088^15.044^257.522^168.142^346.903^^.009^^^221.239^.885^.044
;;^UTILITY(U,$J,112,7233,2)
;;=.177^.088^.345^.044^5.31^.354^^^7.965
;;^UTILITY(U,$J,112,7233,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7234,0)
;;=PUDDINGS,RTE,SNACK PACK^BC-00507^4.25-oz.^120
;;^UTILITY(U,$J,112,7234,1)
;;=1.667^5^18.333^120.833^^^^52.5^^^^70.833^150^^^^^25.833^^.017
;;^UTILITY(U,$J,112,7234,2)
;;=.058^^^^^^^^.833^1.083^^.75^^^^^0
;;^UTILITY(U,$J,112,7234,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7235,0)
;;=PUDDINGS,BUTTER PECAN (INST MIX),JELL-O^BC-00508^1/2-oz.^147
;;^UTILITY(U,$J,112,7235,1)
;;=2.857^3.265^19.116^115.646^73.333^^^101.361^.095^12.925^208.844^131.973^278.231^.327^.018^^^104.762^.68^.034
;;^UTILITY(U,$J,112,7235,2)
;;=.143^.068^.265^.034^4.762^.299^^^11.565^1.769^^.204
;;^UTILITY(U,$J,112,7235,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7236,0)
;;=PUDDINGS,BUTTERSCOTCH (INST MIX),JELL-O^BC-00509^1/2-oz.^147
;;^UTILITY(U,$J,112,7236,1)
;;=2.721^2.925^19.252^111.565^73.673^^^100^.061^11.565^231.293^127.211^304.082^.32^.012^^^104.762^.68^.034
;;^UTILITY(U,$J,112,7236,2)
;;=.136^.068^.265^.034^4.082^.299^^^11.565^1.769^^.136
;;^UTILITY(U,$J,112,7236,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7237,0)
;;=PUDDINGS,BUTTERSCOTCH (REG MIX),JELL-O^BC-00510^1/2-cup^113
;;^UTILITY(U,$J,112,7237,1)
;;=3.54^3.54^26.549^149.558^^^^131.858^.088^15.929^101.77^165.487^169.027^^.018^^^136.283^.885^.044
;;^UTILITY(U,$J,112,7237,2)
;;=.177^.088^.336^.044^5.31^.354^^^15.044
FHINI0AU ; ; 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,7224,2)
+2 ;;=^^^^^^^^14.063
+3 ;;^UTILITY(U,$J,112,7224,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,7225,0)
+6 ;;=PIES,SNACK (DUTCH APPLE),LITTLE DEBBIE^BC-00498^2.2-oz.^62
+7 ;;^UTILITY(U,$J,112,7225,1)
+8 ;;=2.581^18.871^64.194^437.097^13.387^^^14.516^.633^^^^259.677^^^^^0^1.613^.145
+9 ;;^UTILITY(U,$J,112,7225,2)
+10 ;;=.21^1.452^^^^^^^0^6.774^9.839^2.258
+11 ;;^UTILITY(U,$J,112,7225,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,7226,0)
+14 ;;=PIES,SNACK (PEACH),HOSTESS^BC-00499^snack pies^128
+15 ;;^UTILITY(U,$J,112,7226,1)
+16 ;;=3.125^15.625^41.406^312.5^^^^^^^^^347.656^^^^^0
+17 ;;^UTILITY(U,$J,112,7226,2)
+18 ;;=^^^^^^^^14.063
+19 ;;^UTILITY(U,$J,112,7226,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,7227,0)
+22 ;;=PIES,SNACK (PECAN),LITTLE DEBBIE^BC-00500^1.8-oz.^52
+23 ;;^UTILITY(U,$J,112,7227,1)
+24 ;;=3.462^13.269^63.654^388.462^18.846^^^15.385^1.192^^^^353.846^^^^^0^0^.135
+25 ;;^UTILITY(U,$J,112,7227,2)
+26 ;;=.135^.962^^^^^^^1.923^3.077^7.692^2.308
+27 ;;^UTILITY(U,$J,112,7227,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,7228,0)
+30 ;;=PIES,SNACK (PUDDING),HOSTESS^BC-00501^snack pies^142
+31 ;;^UTILITY(U,$J,112,7228,1)
+32 ;;=2.817^11.972^52.817^330.986^^^^^^^^^253.521^^^^^0^0
+33 ;;^UTILITY(U,$J,112,7228,2)
+34 ;;=^^^^^^^^12.676
+35 ;;^UTILITY(U,$J,112,7228,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,7229,0)
+38 ;;=PIES,SNACK (STRAWBERRY),HOSTESS^BC-00502^snack pies^128
+39 ;;^UTILITY(U,$J,112,7229,1)
+40 ;;=2.344^10.938^43.75^265.625^^^^^^^^^312.5^^^^^0
+41 ;;^UTILITY(U,$J,112,7229,2)
+42 ;;=^^^^^^^^10.156
+43 ;;^UTILITY(U,$J,112,7229,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,7230,0)
+46 ;;=PUDDINGS,ALL FLAVORS,(FROM MIX),SUGAR-FREE,CARBOTROL^BC-00503^4-oz.^113
+47 ;;^UTILITY(U,$J,112,7230,1)
+48 ;;=4.425^0^15.044^70.796^^^^^^^^^150.442
+49 ;;^UTILITY(U,$J,112,7230,2)
+50 ;;=^^^^^^^^2.655
+51 ;;^UTILITY(U,$J,112,7230,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,7231,0)
+54 ;;=PUDDINGS,BANANA CREAM (INST MIX),JELL-O^BC-00504^1/2-cup^147
+55 ;;^UTILITY(U,$J,112,7231,1)
+56 ;;=2.721^2.925^19.32^112.245^^^^100^.061^11.565^205.442^126.531^278.231^.32^.007^.68^^104.762^.68^.034
+57 ;;^UTILITY(U,$J,112,7231,2)
+58 ;;=.136^.068^.259^.034^4.082^.299^^^11.565^1.769^^.136
+59 ;;^UTILITY(U,$J,112,7231,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,7232,0)
+62 ;;=PUDDINGS,BANANA CREAM (REG MIX),JELL-O^BC-00505^1/2-cup^113
+63 ;;^UTILITY(U,$J,112,7232,1)
+64 ;;=3.982^3.982^23.894^137.168^^^^132.743^^15.929^102.655^164.602^214.159^^.018^^^135.398^1.77^.044
+65 ;;^UTILITY(U,$J,112,7232,2)
+66 ;;=.177^.177^.345^.044^5.31^.398^^^15.044
+67 ;;^UTILITY(U,$J,112,7232,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,7233,0)
+70 ;;=PUDDINGS,BANANA (INST MIX SUGAR FREE),JELL-O^BC-00506^1/2-cup^113
+71 ;;^UTILITY(U,$J,112,7233,1)
+72 ;;=3.54^1.77^9.735^74.336^^^^131.858^.088^15.044^257.522^168.142^346.903^^.009^^^221.239^.885^.044
+73 ;;^UTILITY(U,$J,112,7233,2)
+74 ;;=.177^.088^.345^.044^5.31^.354^^^7.965
+75 ;;^UTILITY(U,$J,112,7233,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,7234,0)
+78 ;;=PUDDINGS,RTE,SNACK PACK^BC-00507^4.25-oz.^120
+79 ;;^UTILITY(U,$J,112,7234,1)
+80 ;;=1.667^5^18.333^120.833^^^^52.5^^^^70.833^150^^^^^25.833^^.017
+81 ;;^UTILITY(U,$J,112,7234,2)
+82 ;;=.058^^^^^^^^.833^1.083^^.75^^^^^0
+83 ;;^UTILITY(U,$J,112,7234,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,7235,0)
+86 ;;=PUDDINGS,BUTTER PECAN (INST MIX),JELL-O^BC-00508^1/2-oz.^147
+87 ;;^UTILITY(U,$J,112,7235,1)
+88 ;;=2.857^3.265^19.116^115.646^73.333^^^101.361^.095^12.925^208.844^131.973^278.231^.327^.018^^^104.762^.68^.034
+89 ;;^UTILITY(U,$J,112,7235,2)
+90 ;;=.143^.068^.265^.034^4.762^.299^^^11.565^1.769^^.204
+91 ;;^UTILITY(U,$J,112,7235,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,7236,0)
+94 ;;=PUDDINGS,BUTTERSCOTCH (INST MIX),JELL-O^BC-00509^1/2-oz.^147
+95 ;;^UTILITY(U,$J,112,7236,1)
+96 ;;=2.721^2.925^19.252^111.565^73.673^^^100^.061^11.565^231.293^127.211^304.082^.32^.012^^^104.762^.68^.034
+97 ;;^UTILITY(U,$J,112,7236,2)
+98 ;;=.136^.068^.265^.034^4.082^.299^^^11.565^1.769^^.136
+99 ;;^UTILITY(U,$J,112,7236,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,7237,0)
+102 ;;=PUDDINGS,BUTTERSCOTCH (REG MIX),JELL-O^BC-00510^1/2-cup^113
+103 ;;^UTILITY(U,$J,112,7237,1)
+104 ;;=3.54^3.54^26.549^149.558^^^^131.858^.088^15.929^101.77^165.487^169.027^^.018^^^136.283^.885^.044
+105 ;;^UTILITY(U,$J,112,7237,2)
+106 ;;=.177^.088^.336^.044^5.31^.354^^^15.044
