FHINI0CX ; ; 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,8239,1)
;;=1^0^4^20^^^^^^^^110^1370
;;^UTILITY(U,$J,112,8239,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,8239,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8240,0)
;;=MEXIMELT,TACO BELL^BC-01513^serving^106
;;^UTILITY(U,$J,112,8240,1)
;;=12.264^14.151^17.925^250.943^^^^^^^^107.547^650
;;^UTILITY(U,$J,112,8240,2)
;;=^^^^^^^^35.849^7.547^^.943
;;^UTILITY(U,$J,112,8240,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8241,0)
;;=MEXICAN PIZZA,TACO BELL^BC-01514^serving^223
;;^UTILITY(U,$J,112,8241,1)
;;=9.417^16.592^17.937^257.848^^^^^^^^182.96^462.332
;;^UTILITY(U,$J,112,8241,2)
;;=^^^^^^^^23.318^4.933^^4.484
;;^UTILITY(U,$J,112,8241,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8242,0)
;;=NACHOS,TACO BELL^BC-01515^serving^106
;;^UTILITY(U,$J,112,8242,1)
;;=6.604^16.981^34.906^326.415^^^^^^^^150^376.415
;;^UTILITY(U,$J,112,8242,2)
;;=^^^^^^^^8.491^5.66^^1.887
;;^UTILITY(U,$J,112,8242,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8243,0)
;;=NACHOS,BELL GRANDE,TACO BELL^BC-01516^serving^287
;;^UTILITY(U,$J,112,8243,1)
;;=7.666^12.195^21.254^226.132^^^^^^^^234.843^347.387
;;^UTILITY(U,$J,112,8243,2)
;;=^^^^^^^^12.544^4.181^^1.045
;;^UTILITY(U,$J,112,8243,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8244,0)
;;=NACHOS,SUPREME,TACO BELL^BC-01517^serving^145
;;^UTILITY(U,$J,112,8244,1)
;;=8.276^18.621^28.276^313.793^^^^^^^^235.862^324.828
;;^UTILITY(U,$J,112,8244,2)
;;=^^^^^^^^12.414^3.448^^1.379
;;^UTILITY(U,$J,112,8244,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8245,0)
;;=PINTOS 'N CHEESE W/RED SCE,TACO BELL^BC-01518^serving^128
;;^UTILITY(U,$J,112,8245,1)
;;=7.031^7.031^14.844^148.438^^^^^^^^300^501.563
;;^UTILITY(U,$J,112,8245,2)
;;=^^^^^^^^12.5^3.125^^.781
;;^UTILITY(U,$J,112,8245,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8246,0)
;;=SAUCE,GREEN,TACO BELL^BC-01519^serving^28
;;^UTILITY(U,$J,112,8246,1)
;;=0^0^3.571^14.286^^^^^^^^35.714^485.714
;;^UTILITY(U,$J,112,8246,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,8246,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8247,0)
;;=SAUCE,GUACAMOLE,TACO BELL^BC-01520^serving^21
;;^UTILITY(U,$J,112,8247,1)
;;=0^9.524^14.286^161.905^^^^^^^^523.81^538.095
;;^UTILITY(U,$J,112,8247,2)
;;=^^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,8247,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8248,0)
;;=SAUCE,NACHO CHEESE,TACO BELL^BC-01521^serving^56
;;^UTILITY(U,$J,112,8248,1)
;;=7.143^14.286^8.929^183.929^^^^^^^^176.786^701.786
;;^UTILITY(U,$J,112,8248,2)
;;=^^^^^^^^16.071^5.357^^0
;;^UTILITY(U,$J,112,8248,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8249,0)
;;=SAUCE,PICO DE GALLO,TACO BELL^BC-01522^serving^28
;;^UTILITY(U,$J,112,8249,1)
;;=0^0^3.571^28.571^^^^^^^^0^314.286
;;^UTILITY(U,$J,112,8249,2)
;;=^^^^^^^^3.571^0^0^0
;;^UTILITY(U,$J,112,8249,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8250,0)
;;=SAUCE,RANCH DRESSING,TACO BELL^BC-01523^serving^74
;;^UTILITY(U,$J,112,8250,1)
;;=2.703^33.784^1.351^318.919^^^^^^^^59.459^771.622
;;^UTILITY(U,$J,112,8250,2)
;;=^^^^^^^^47.297^6.757^^18.919
;;^UTILITY(U,$J,112,8250,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8251,0)
;;=SAUCE,RED,TACO BELL^BC-01524^serving^28
;;^UTILITY(U,$J,112,8251,1)
;;=0^0^7.143^35.714^^^^^^^^160.714^932.143
;;^UTILITY(U,$J,112,8251,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,8251,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8252,0)
;;=SAUCE,SALSA,TACO BELL^BC-01525^serving^10
;;^UTILITY(U,$J,112,8252,1)
;;=10^0^40^180^^^^^^^^3760^3760
;;^UTILITY(U,$J,112,8252,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,8252,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8253,0)
;;=SAUCE,SOUR CREAM,TACO BELL^BC-01526^serving^21
;;^UTILITY(U,$J,112,8253,1)
;;=4.762^19.048^4.762^219.048^^^^^^^^147.619^0
;;^UTILITY(U,$J,112,8253,2)
;;=^^^^^^^^0^9.524^^0
;;^UTILITY(U,$J,112,8253,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8254,0)
;;=SAUCE,TACO,TACO BELL^BC-01527^serving^11
;;^UTILITY(U,$J,112,8254,1)
;;=0^0^0^18.182^^^^^^^^118.182^1145.455
;;^UTILITY(U,$J,112,8254,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,8254,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0CX ; ; 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,8239,1)
+2 ;;=1^0^4^20^^^^^^^^110^1370
+3 ;;^UTILITY(U,$J,112,8239,2)
+4 ;;=^^^^^^^^0^0^0^0
+5 ;;^UTILITY(U,$J,112,8239,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,8240,0)
+8 ;;=MEXIMELT,TACO BELL^BC-01513^serving^106
+9 ;;^UTILITY(U,$J,112,8240,1)
+10 ;;=12.264^14.151^17.925^250.943^^^^^^^^107.547^650
+11 ;;^UTILITY(U,$J,112,8240,2)
+12 ;;=^^^^^^^^35.849^7.547^^.943
+13 ;;^UTILITY(U,$J,112,8240,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,8241,0)
+16 ;;=MEXICAN PIZZA,TACO BELL^BC-01514^serving^223
+17 ;;^UTILITY(U,$J,112,8241,1)
+18 ;;=9.417^16.592^17.937^257.848^^^^^^^^182.96^462.332
+19 ;;^UTILITY(U,$J,112,8241,2)
+20 ;;=^^^^^^^^23.318^4.933^^4.484
+21 ;;^UTILITY(U,$J,112,8241,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8242,0)
+24 ;;=NACHOS,TACO BELL^BC-01515^serving^106
+25 ;;^UTILITY(U,$J,112,8242,1)
+26 ;;=6.604^16.981^34.906^326.415^^^^^^^^150^376.415
+27 ;;^UTILITY(U,$J,112,8242,2)
+28 ;;=^^^^^^^^8.491^5.66^^1.887
+29 ;;^UTILITY(U,$J,112,8242,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,8243,0)
+32 ;;=NACHOS,BELL GRANDE,TACO BELL^BC-01516^serving^287
+33 ;;^UTILITY(U,$J,112,8243,1)
+34 ;;=7.666^12.195^21.254^226.132^^^^^^^^234.843^347.387
+35 ;;^UTILITY(U,$J,112,8243,2)
+36 ;;=^^^^^^^^12.544^4.181^^1.045
+37 ;;^UTILITY(U,$J,112,8243,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,8244,0)
+40 ;;=NACHOS,SUPREME,TACO BELL^BC-01517^serving^145
+41 ;;^UTILITY(U,$J,112,8244,1)
+42 ;;=8.276^18.621^28.276^313.793^^^^^^^^235.862^324.828
+43 ;;^UTILITY(U,$J,112,8244,2)
+44 ;;=^^^^^^^^12.414^3.448^^1.379
+45 ;;^UTILITY(U,$J,112,8244,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,8245,0)
+48 ;;=PINTOS 'N CHEESE W/RED SCE,TACO BELL^BC-01518^serving^128
+49 ;;^UTILITY(U,$J,112,8245,1)
+50 ;;=7.031^7.031^14.844^148.438^^^^^^^^300^501.563
+51 ;;^UTILITY(U,$J,112,8245,2)
+52 ;;=^^^^^^^^12.5^3.125^^.781
+53 ;;^UTILITY(U,$J,112,8245,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,8246,0)
+56 ;;=SAUCE,GREEN,TACO BELL^BC-01519^serving^28
+57 ;;^UTILITY(U,$J,112,8246,1)
+58 ;;=0^0^3.571^14.286^^^^^^^^35.714^485.714
+59 ;;^UTILITY(U,$J,112,8246,2)
+60 ;;=^^^^^^^^0^0^0^0
+61 ;;^UTILITY(U,$J,112,8246,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,8247,0)
+64 ;;=SAUCE,GUACAMOLE,TACO BELL^BC-01520^serving^21
+65 ;;^UTILITY(U,$J,112,8247,1)
+66 ;;=0^9.524^14.286^161.905^^^^^^^^523.81^538.095
+67 ;;^UTILITY(U,$J,112,8247,2)
+68 ;;=^^^^^^^^0^0^^0
+69 ;;^UTILITY(U,$J,112,8247,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,8248,0)
+72 ;;=SAUCE,NACHO CHEESE,TACO BELL^BC-01521^serving^56
+73 ;;^UTILITY(U,$J,112,8248,1)
+74 ;;=7.143^14.286^8.929^183.929^^^^^^^^176.786^701.786
+75 ;;^UTILITY(U,$J,112,8248,2)
+76 ;;=^^^^^^^^16.071^5.357^^0
+77 ;;^UTILITY(U,$J,112,8248,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,8249,0)
+80 ;;=SAUCE,PICO DE GALLO,TACO BELL^BC-01522^serving^28
+81 ;;^UTILITY(U,$J,112,8249,1)
+82 ;;=0^0^3.571^28.571^^^^^^^^0^314.286
+83 ;;^UTILITY(U,$J,112,8249,2)
+84 ;;=^^^^^^^^3.571^0^0^0
+85 ;;^UTILITY(U,$J,112,8249,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,8250,0)
+88 ;;=SAUCE,RANCH DRESSING,TACO BELL^BC-01523^serving^74
+89 ;;^UTILITY(U,$J,112,8250,1)
+90 ;;=2.703^33.784^1.351^318.919^^^^^^^^59.459^771.622
+91 ;;^UTILITY(U,$J,112,8250,2)
+92 ;;=^^^^^^^^47.297^6.757^^18.919
+93 ;;^UTILITY(U,$J,112,8250,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,8251,0)
+96 ;;=SAUCE,RED,TACO BELL^BC-01524^serving^28
+97 ;;^UTILITY(U,$J,112,8251,1)
+98 ;;=0^0^7.143^35.714^^^^^^^^160.714^932.143
+99 ;;^UTILITY(U,$J,112,8251,2)
+100 ;;=^^^^^^^^0^0^0^0
+101 ;;^UTILITY(U,$J,112,8251,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,8252,0)
+104 ;;=SAUCE,SALSA,TACO BELL^BC-01525^serving^10
+105 ;;^UTILITY(U,$J,112,8252,1)
+106 ;;=10^0^40^180^^^^^^^^3760^3760
+107 ;;^UTILITY(U,$J,112,8252,2)
+108 ;;=^^^^^^^^0^0^0^0
+109 ;;^UTILITY(U,$J,112,8252,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+111 ;;^UTILITY(U,$J,112,8253,0)
+112 ;;=SAUCE,SOUR CREAM,TACO BELL^BC-01526^serving^21
+113 ;;^UTILITY(U,$J,112,8253,1)
+114 ;;=4.762^19.048^4.762^219.048^^^^^^^^147.619^0
+115 ;;^UTILITY(U,$J,112,8253,2)
+116 ;;=^^^^^^^^0^9.524^^0
+117 ;;^UTILITY(U,$J,112,8253,20)
+118 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+119 ;;^UTILITY(U,$J,112,8254,0)
+120 ;;=SAUCE,TACO,TACO BELL^BC-01527^serving^11
+121 ;;^UTILITY(U,$J,112,8254,1)
+122 ;;=0^0^0^18.182^^^^^^^^118.182^1145.455
+123 ;;^UTILITY(U,$J,112,8254,2)
+124 ;;=^^^^^^^^0^0^0^0
+125 ;;^UTILITY(U,$J,112,8254,20)
+126 ;;=Bowes & Church's Food Values, Sixteenth Edition.
