FHINI0FH ; ; 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,9518,2)
;;=.053^2.478^^^^^^^0^.177^^.531^132.743^^^^1.77
;;^UTILITY(U,$J,112,9518,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9519,0)
;;=SAUCE,SPAGHETTI,CND,HUNT TRADITIONAL^BC-02792^4-oz.^113
;;^UTILITY(U,$J,112,9519,1)
;;=1.77^1.77^10.619^61.947^^^^15.929^1.504^^^592.92^469.027^^^^^^7.965^.08
;;^UTILITY(U,$J,112,9519,2)
;;=.053^1.327^^^^^^^0^.265^^.973^88.496^^^^1.77
;;^UTILITY(U,$J,112,9519,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9520,0)
;;=SAUCE,SPAGHETTI,CND,PREGO^BC-02793^4-oz.^113
;;^UTILITY(U,$J,112,9520,1)
;;=1.681^4.69^17.168^116.814^^^^34.513^.973^^46.018^369.912^527.434^^^^^987.611^15.929^.035
;;^UTILITY(U,$J,112,9520,2)
;;=.053^1.062
;;^UTILITY(U,$J,112,9520,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9521,0)
;;=SAUCE,SPAGHETTI,CND,PREGO,MEAT FLAVORED^BC-02794^4-oz.^113
;;^UTILITY(U,$J,112,9521,1)
;;=2.124^4.956^17.699^123.009^^^^34.513^1.15^^53.097^382.301^566.372^^^^^1046.018^15.044^.035
;;^UTILITY(U,$J,112,9521,2)
;;=.053^1.327
;;^UTILITY(U,$J,112,9521,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9522,0)
;;=SAUCE,SPAGHETTI,CND,PRAGO NO SALT ADDED^BC-02795^4-oz.^113
;;^UTILITY(U,$J,112,9522,1)
;;=1.77^4.779^9.381^87.611^^^^38.053^.973^^^400^18.584^^^^^1430.088^15.929^.062
;;^UTILITY(U,$J,112,9522,2)
;;=.062^1.416
;;^UTILITY(U,$J,112,9522,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9523,0)
;;=SAUCE,SPAGHETTI,CND,PREGO W/MUSHROOMS^BC-02796^4-oz.^113
;;^UTILITY(U,$J,112,9523,1)
;;=1.681^4.248^17.522^115.044^^^^34.513^1.062^^48.673^377.876^538.938^^^^^993.805^14.159^.044
;;^UTILITY(U,$J,112,9523,2)
;;=.062^1.327
;;^UTILITY(U,$J,112,9523,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9524,0)
;;=SAUCE,SPAGHETTI,CND,PREGO W/MUSHROOM&GREEN PEPPER,XTRA CHKY^BC-02797^4-oz.^113
;;^UTILITY(U,$J,112,9524,1)
;;=1.681^4.071^12.124^91.15^^^^25.664^.885^^^403.54^360.177^^^^^662.832^12.389^.062
;;^UTILITY(U,$J,112,9524,2)
;;=.062^.885
;;^UTILITY(U,$J,112,9524,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9525,0)
;;=SAUCE,SPAGHETTI,CND,PREGO W/MUSHROOMS & ONION,EXTRA CHUNKY^BC-02798^4-oz.^113
;;^UTILITY(U,$J,112,9525,1)
;;=1.858^3.805^11.947^90.265^^^^22.124^.973^^^353.097^436.283^^^^^529.204^12.389^.053
;;^UTILITY(U,$J,112,9525,2)
;;=.044^1.15
;;^UTILITY(U,$J,112,9525,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9526,0)
;;=SAUCE,SPAGHETTI,CND,PREGO W/ONION & GARLIC^BC-02799^4-oz.^113
;;^UTILITY(U,$J,112,9526,1)
;;=1.681^3.363^13.628^91.15^^^^30.088^.973^^^346.018^450.442^^^^^1032.743^4.425^.044
;;^UTILITY(U,$J,112,9526,2)
;;=.027^1.062
;;^UTILITY(U,$J,112,9526,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9527,0)
;;=SAUCE,SPAGHETTI,CND,PREGO W/SAUSAGE&GREEN PEPPER,XTRA CHKY^BC-02800^4-oz.^113
;;^UTILITY(U,$J,112,9527,1)
;;=2.832^6.726^16.814^138.938^^^^40.708^1.062^^^361.062^438.938^^^^^1088.496^16.814^.062
;;^UTILITY(U,$J,112,9527,2)
;;=.053^1.062
;;^UTILITY(U,$J,112,9527,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9528,0)
;;=SAUCE,SPAGHETTI,CND,PRAGO W/TOMATOES,ONION&GARLIC,XTRA CHKY^BC-02801^4-oz.^113
;;^UTILITY(U,$J,112,9528,1)
;;=1.327^4.425^127.434^95.575^^^^23.894^1.062^^^340.708^426.549^^^^^474.336^10.619^.044
;;^UTILITY(U,$J,112,9528,2)
;;=.035^.796
;;^UTILITY(U,$J,112,9528,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9529,0)
;;=SAUCE,STEAK,MRS. DASH,SALT-FREE^BC-02802^tbsp.^15
;;^UTILITY(U,$J,112,9529,1)
;;=0^0^26.667^113.333^^^^^^^^466.667^66.667
;;^UTILITY(U,$J,112,9529,2)
;;=^^^^^^^^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,9529,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9530,0)
;;=SAUCE,STIR-FRY,KIKKOMAN^BC-02803^tbsp.^15
;;^UTILITY(U,$J,112,9530,1)
;;=5.333^0^17.333^93.333^70^^^^^^^240^2460
;;^UTILITY(U,$J,112,9530,2)
;;=^^^^^^^^6.667^^^^^^^^.667
;;^UTILITY(U,$J,112,9530,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9531,0)
;;=SAUCE,SWEET & SOUR,KIKKOMAN^BC-02804^tbsp.^15
;;^UTILITY(U,$J,112,9531,1)
;;=2^0^28.667^113.333^71.333^^^^^^^.933^646.667
;;^UTILITY(U,$J,112,9531,2)
;;=^^^^^^^^0^^^^^^^^.667
;;^UTILITY(U,$J,112,9531,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9532,0)
;;=SAUCE,SWEET & SOUR,LACHOY^BC-02805^tbsp.^15
FHINI0FH ; ; 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,9518,2)
+2 ;;=.053^2.478^^^^^^^0^.177^^.531^132.743^^^^1.77
+3 ;;^UTILITY(U,$J,112,9518,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9519,0)
+6 ;;=SAUCE,SPAGHETTI,CND,HUNT TRADITIONAL^BC-02792^4-oz.^113
+7 ;;^UTILITY(U,$J,112,9519,1)
+8 ;;=1.77^1.77^10.619^61.947^^^^15.929^1.504^^^592.92^469.027^^^^^^7.965^.08
+9 ;;^UTILITY(U,$J,112,9519,2)
+10 ;;=.053^1.327^^^^^^^0^.265^^.973^88.496^^^^1.77
+11 ;;^UTILITY(U,$J,112,9519,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9520,0)
+14 ;;=SAUCE,SPAGHETTI,CND,PREGO^BC-02793^4-oz.^113
+15 ;;^UTILITY(U,$J,112,9520,1)
+16 ;;=1.681^4.69^17.168^116.814^^^^34.513^.973^^46.018^369.912^527.434^^^^^987.611^15.929^.035
+17 ;;^UTILITY(U,$J,112,9520,2)
+18 ;;=.053^1.062
+19 ;;^UTILITY(U,$J,112,9520,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9521,0)
+22 ;;=SAUCE,SPAGHETTI,CND,PREGO,MEAT FLAVORED^BC-02794^4-oz.^113
+23 ;;^UTILITY(U,$J,112,9521,1)
+24 ;;=2.124^4.956^17.699^123.009^^^^34.513^1.15^^53.097^382.301^566.372^^^^^1046.018^15.044^.035
+25 ;;^UTILITY(U,$J,112,9521,2)
+26 ;;=.053^1.327
+27 ;;^UTILITY(U,$J,112,9521,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9522,0)
+30 ;;=SAUCE,SPAGHETTI,CND,PRAGO NO SALT ADDED^BC-02795^4-oz.^113
+31 ;;^UTILITY(U,$J,112,9522,1)
+32 ;;=1.77^4.779^9.381^87.611^^^^38.053^.973^^^400^18.584^^^^^1430.088^15.929^.062
+33 ;;^UTILITY(U,$J,112,9522,2)
+34 ;;=.062^1.416
+35 ;;^UTILITY(U,$J,112,9522,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9523,0)
+38 ;;=SAUCE,SPAGHETTI,CND,PREGO W/MUSHROOMS^BC-02796^4-oz.^113
+39 ;;^UTILITY(U,$J,112,9523,1)
+40 ;;=1.681^4.248^17.522^115.044^^^^34.513^1.062^^48.673^377.876^538.938^^^^^993.805^14.159^.044
+41 ;;^UTILITY(U,$J,112,9523,2)
+42 ;;=.062^1.327
+43 ;;^UTILITY(U,$J,112,9523,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9524,0)
+46 ;;=SAUCE,SPAGHETTI,CND,PREGO W/MUSHROOM&GREEN PEPPER,XTRA CHKY^BC-02797^4-oz.^113
+47 ;;^UTILITY(U,$J,112,9524,1)
+48 ;;=1.681^4.071^12.124^91.15^^^^25.664^.885^^^403.54^360.177^^^^^662.832^12.389^.062
+49 ;;^UTILITY(U,$J,112,9524,2)
+50 ;;=.062^.885
+51 ;;^UTILITY(U,$J,112,9524,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,9525,0)
+54 ;;=SAUCE,SPAGHETTI,CND,PREGO W/MUSHROOMS & ONION,EXTRA CHUNKY^BC-02798^4-oz.^113
+55 ;;^UTILITY(U,$J,112,9525,1)
+56 ;;=1.858^3.805^11.947^90.265^^^^22.124^.973^^^353.097^436.283^^^^^529.204^12.389^.053
+57 ;;^UTILITY(U,$J,112,9525,2)
+58 ;;=.044^1.15
+59 ;;^UTILITY(U,$J,112,9525,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,9526,0)
+62 ;;=SAUCE,SPAGHETTI,CND,PREGO W/ONION & GARLIC^BC-02799^4-oz.^113
+63 ;;^UTILITY(U,$J,112,9526,1)
+64 ;;=1.681^3.363^13.628^91.15^^^^30.088^.973^^^346.018^450.442^^^^^1032.743^4.425^.044
+65 ;;^UTILITY(U,$J,112,9526,2)
+66 ;;=.027^1.062
+67 ;;^UTILITY(U,$J,112,9526,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,9527,0)
+70 ;;=SAUCE,SPAGHETTI,CND,PREGO W/SAUSAGE&GREEN PEPPER,XTRA CHKY^BC-02800^4-oz.^113
+71 ;;^UTILITY(U,$J,112,9527,1)
+72 ;;=2.832^6.726^16.814^138.938^^^^40.708^1.062^^^361.062^438.938^^^^^1088.496^16.814^.062
+73 ;;^UTILITY(U,$J,112,9527,2)
+74 ;;=.053^1.062
+75 ;;^UTILITY(U,$J,112,9527,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,9528,0)
+78 ;;=SAUCE,SPAGHETTI,CND,PRAGO W/TOMATOES,ONION&GARLIC,XTRA CHKY^BC-02801^4-oz.^113
+79 ;;^UTILITY(U,$J,112,9528,1)
+80 ;;=1.327^4.425^127.434^95.575^^^^23.894^1.062^^^340.708^426.549^^^^^474.336^10.619^.044
+81 ;;^UTILITY(U,$J,112,9528,2)
+82 ;;=.035^.796
+83 ;;^UTILITY(U,$J,112,9528,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,9529,0)
+86 ;;=SAUCE,STEAK,MRS. DASH,SALT-FREE^BC-02802^tbsp.^15
+87 ;;^UTILITY(U,$J,112,9529,1)
+88 ;;=0^0^26.667^113.333^^^^^^^^466.667^66.667
+89 ;;^UTILITY(U,$J,112,9529,2)
+90 ;;=^^^^^^^^0^0^0^0^^^^^0
+91 ;;^UTILITY(U,$J,112,9529,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,9530,0)
+94 ;;=SAUCE,STIR-FRY,KIKKOMAN^BC-02803^tbsp.^15
+95 ;;^UTILITY(U,$J,112,9530,1)
+96 ;;=5.333^0^17.333^93.333^70^^^^^^^240^2460
+97 ;;^UTILITY(U,$J,112,9530,2)
+98 ;;=^^^^^^^^6.667^^^^^^^^.667
+99 ;;^UTILITY(U,$J,112,9530,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,9531,0)
+102 ;;=SAUCE,SWEET & SOUR,KIKKOMAN^BC-02804^tbsp.^15
+103 ;;^UTILITY(U,$J,112,9531,1)
+104 ;;=2^0^28.667^113.333^71.333^^^^^^^.933^646.667
+105 ;;^UTILITY(U,$J,112,9531,2)
+106 ;;=^^^^^^^^0^^^^^^^^.667
+107 ;;^UTILITY(U,$J,112,9531,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,9532,0)
+110 ;;=SAUCE,SWEET & SOUR,LACHOY^BC-02805^tbsp.^15
