FHINI0CN ; ; 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,8099,0)
;;=BREAKFAST JACK,JACK-IN-THE-BOX^BC-01372^sandwich^126
;;^UTILITY(U,$J,112,8099,1)
;;=14.286^10.317^23.81^243.651^^^^^^^^^691.27
;;^UTILITY(U,$J,112,8099,2)
;;=^^^^^^^^161.111^4.127^3.968^1.984
;;^UTILITY(U,$J,112,8099,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8100,0)
;;=CAKE,DOUBLE FUDGE,JACK-IN-THE-BOX^BC-01373^3-oz.^85
;;^UTILITY(U,$J,112,8100,1)
;;=4.706^10.588^57.647^338.824^^^^^^^^^304.706
;;^UTILITY(U,$J,112,8100,2)
;;=^^^^^^^^23.529
;;^UTILITY(U,$J,112,8100,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8101,0)
;;=CHEESEBURGER,JACK-IN-THE-BOX^BC-01374^sandwich^112
;;^UTILITY(U,$J,112,8101,1)
;;=13.393^12.5^29.464^281.25^^^^^^^^^666.071
;;^UTILITY(U,$J,112,8101,2)
;;=^^^^^^^^36.607^5.089^5.268^2.054
;;^UTILITY(U,$J,112,8101,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8102,0)
;;=CHEESEBURGER,BACON,JACK-IN-THE-BOX^BC-01375^sandwich^230
;;^UTILITY(U,$J,112,8102,1)
;;=15.217^16.957^20.87^306.522^^^^^^^^^490
;;^UTILITY(U,$J,112,8102,2)
;;=^^^^^^^^36.957^6.522^6.522^3.043
;;^UTILITY(U,$J,112,8102,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8103,0)
;;=CHEESEBURGER,DOUBLE,JACK-IN-THE-BOX^BC-01376^sandwich^149
;;^UTILITY(U,$J,112,8103,1)
;;=14.094^18.121^22.148^313.423^^^^^^^^^565.101
;;^UTILITY(U,$J,112,8103,2)
;;=^^^^^^^^48.322^8.255^7.785^2.081
;;^UTILITY(U,$J,112,8103,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8104,0)
;;=CHEESEBURGER,ULTIMATE,JACK-IN-THE-BOX^BC-01377^sandwich^280
;;^UTILITY(U,$J,112,8104,1)
;;=16.786^24.643^11.786^336.429^^^^^^^^^420
;;^UTILITY(U,$J,112,8104,2)
;;=^^^^^^^^45.357^9.429^8.643^6.464
;;^UTILITY(U,$J,112,8104,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8105,0)
;;=CHEESECAKE,JACK-IN-THE-BOX^BC-01378^serving^99
;;^UTILITY(U,$J,112,8105,1)
;;=8.081^17.677^29.293^312.121^^^^^^^^^210.101
;;^UTILITY(U,$J,112,8105,2)
;;=^^^^^^^^63.636^9.091^7.071^1.01
;;^UTILITY(U,$J,112,8105,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8106,0)
;;=CHICKEN FAJITA PITA,JACK-IN-THE-BOX^BC-01379^sandwich^189
;;^UTILITY(U,$J,112,8106,1)
;;=12.698^4.233^15.344^154.497^^^^^^^^^371.958
;;^UTILITY(U,$J,112,8106,2)
;;=^^^^^^^^17.989^1.534^1.905^.741
;;^UTILITY(U,$J,112,8106,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8107,0)
;;=CHICKEN FILLET,GRILLED SANDWICH,JACK-IN-THE-BOX^BC-01380^sandwich^205
;;^UTILITY(U,$J,112,8107,1)
;;=15.122^8.293^16.098^199.024^^^^^^^^^551.22
;;^UTILITY(U,$J,112,8107,2)
;;=^^^^^^^^31.22^2^2.244^2.927
;;^UTILITY(U,$J,112,8107,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8108,0)
;;=CHICKEN STRIPS,JACK-IN-THE-BOX^BC-01381^4-pieces^125
;;^UTILITY(U,$J,112,8108,1)
;;=23.2^11.2^22.4^279.2^^^^^^^^^598.4
;;^UTILITY(U,$J,112,8108,2)
;;=^^^^^^^^54.4^5.44^4.72^.56
;;^UTILITY(U,$J,112,8108,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8109,0)
;;=CHICKEN SUPREME SANDWICH,JACK-IN-THE-BOX^BC-01382^sandwich^231
;;^UTILITY(U,$J,112,8109,1)
;;=11.688^15.584^14.719^248.918^^^^^^^^^660.173
;;^UTILITY(U,$J,112,8109,2)
;;=^^^^^^^^26.84^6.19^5.801^3.29
;;^UTILITY(U,$J,112,8109,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8110,0)
;;=CRESCENT SANDWICH,SAUSAGE,JACK-IN-THE-BOX^BC-01383^sandwich^156
;;^UTILITY(U,$J,112,8110,1)
;;=14.103^27.564^17.949^374.359^^^^^^^^^648.718
;;^UTILITY(U,$J,112,8110,2)
;;=^^^^^^^^119.872^9.936^13.782^3.654
;;^UTILITY(U,$J,112,8110,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8111,0)
;;=CRESCENT SANDWICH,SUPREME,JACK-IN-THE-BOX^BC-01384^sandwich^146
;;^UTILITY(U,$J,112,8111,1)
;;=13.699^27.397^18.493^374.658^^^^^^^^^721.233
;;^UTILITY(U,$J,112,8111,2)
;;=^^^^^^^^121.918^9.041^12.945^5.342
;;^UTILITY(U,$J,112,8111,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8112,0)
;;=FISH SUPREME SANDWICH,JACK-IN-THE-BOX^BC-01385^sandwich^228
;;^UTILITY(U,$J,112,8112,1)
;;=8.772^14.035^20.614^242.982^^^^^^^^^459.211
;;^UTILITY(U,$J,112,8112,2)
;;=^^^^^^^^28.947^5.921^4.825^3.246
;;^UTILITY(U,$J,112,8112,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8113,0)
;;=FRENCH FRIES,JUMBO,JACK-IN-THE-BOX^BC-01386^serving^136
;;^UTILITY(U,$J,112,8113,1)
;;=2.941^17.647^39.706^325^^^^^^^^^241.176
;;^UTILITY(U,$J,112,8113,2)
;;=^^^^^^^^11.765^7.353^7.206^2.5
FHINI0CN ; ; 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,8099,0)
+2 ;;=BREAKFAST JACK,JACK-IN-THE-BOX^BC-01372^sandwich^126
+3 ;;^UTILITY(U,$J,112,8099,1)
+4 ;;=14.286^10.317^23.81^243.651^^^^^^^^^691.27
+5 ;;^UTILITY(U,$J,112,8099,2)
+6 ;;=^^^^^^^^161.111^4.127^3.968^1.984
+7 ;;^UTILITY(U,$J,112,8099,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,8100,0)
+10 ;;=CAKE,DOUBLE FUDGE,JACK-IN-THE-BOX^BC-01373^3-oz.^85
+11 ;;^UTILITY(U,$J,112,8100,1)
+12 ;;=4.706^10.588^57.647^338.824^^^^^^^^^304.706
+13 ;;^UTILITY(U,$J,112,8100,2)
+14 ;;=^^^^^^^^23.529
+15 ;;^UTILITY(U,$J,112,8100,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,8101,0)
+18 ;;=CHEESEBURGER,JACK-IN-THE-BOX^BC-01374^sandwich^112
+19 ;;^UTILITY(U,$J,112,8101,1)
+20 ;;=13.393^12.5^29.464^281.25^^^^^^^^^666.071
+21 ;;^UTILITY(U,$J,112,8101,2)
+22 ;;=^^^^^^^^36.607^5.089^5.268^2.054
+23 ;;^UTILITY(U,$J,112,8101,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,8102,0)
+26 ;;=CHEESEBURGER,BACON,JACK-IN-THE-BOX^BC-01375^sandwich^230
+27 ;;^UTILITY(U,$J,112,8102,1)
+28 ;;=15.217^16.957^20.87^306.522^^^^^^^^^490
+29 ;;^UTILITY(U,$J,112,8102,2)
+30 ;;=^^^^^^^^36.957^6.522^6.522^3.043
+31 ;;^UTILITY(U,$J,112,8102,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,8103,0)
+34 ;;=CHEESEBURGER,DOUBLE,JACK-IN-THE-BOX^BC-01376^sandwich^149
+35 ;;^UTILITY(U,$J,112,8103,1)
+36 ;;=14.094^18.121^22.148^313.423^^^^^^^^^565.101
+37 ;;^UTILITY(U,$J,112,8103,2)
+38 ;;=^^^^^^^^48.322^8.255^7.785^2.081
+39 ;;^UTILITY(U,$J,112,8103,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,8104,0)
+42 ;;=CHEESEBURGER,ULTIMATE,JACK-IN-THE-BOX^BC-01377^sandwich^280
+43 ;;^UTILITY(U,$J,112,8104,1)
+44 ;;=16.786^24.643^11.786^336.429^^^^^^^^^420
+45 ;;^UTILITY(U,$J,112,8104,2)
+46 ;;=^^^^^^^^45.357^9.429^8.643^6.464
+47 ;;^UTILITY(U,$J,112,8104,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,8105,0)
+50 ;;=CHEESECAKE,JACK-IN-THE-BOX^BC-01378^serving^99
+51 ;;^UTILITY(U,$J,112,8105,1)
+52 ;;=8.081^17.677^29.293^312.121^^^^^^^^^210.101
+53 ;;^UTILITY(U,$J,112,8105,2)
+54 ;;=^^^^^^^^63.636^9.091^7.071^1.01
+55 ;;^UTILITY(U,$J,112,8105,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,8106,0)
+58 ;;=CHICKEN FAJITA PITA,JACK-IN-THE-BOX^BC-01379^sandwich^189
+59 ;;^UTILITY(U,$J,112,8106,1)
+60 ;;=12.698^4.233^15.344^154.497^^^^^^^^^371.958
+61 ;;^UTILITY(U,$J,112,8106,2)
+62 ;;=^^^^^^^^17.989^1.534^1.905^.741
+63 ;;^UTILITY(U,$J,112,8106,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,8107,0)
+66 ;;=CHICKEN FILLET,GRILLED SANDWICH,JACK-IN-THE-BOX^BC-01380^sandwich^205
+67 ;;^UTILITY(U,$J,112,8107,1)
+68 ;;=15.122^8.293^16.098^199.024^^^^^^^^^551.22
+69 ;;^UTILITY(U,$J,112,8107,2)
+70 ;;=^^^^^^^^31.22^2^2.244^2.927
+71 ;;^UTILITY(U,$J,112,8107,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,8108,0)
+74 ;;=CHICKEN STRIPS,JACK-IN-THE-BOX^BC-01381^4-pieces^125
+75 ;;^UTILITY(U,$J,112,8108,1)
+76 ;;=23.2^11.2^22.4^279.2^^^^^^^^^598.4
+77 ;;^UTILITY(U,$J,112,8108,2)
+78 ;;=^^^^^^^^54.4^5.44^4.72^.56
+79 ;;^UTILITY(U,$J,112,8108,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,8109,0)
+82 ;;=CHICKEN SUPREME SANDWICH,JACK-IN-THE-BOX^BC-01382^sandwich^231
+83 ;;^UTILITY(U,$J,112,8109,1)
+84 ;;=11.688^15.584^14.719^248.918^^^^^^^^^660.173
+85 ;;^UTILITY(U,$J,112,8109,2)
+86 ;;=^^^^^^^^26.84^6.19^5.801^3.29
+87 ;;^UTILITY(U,$J,112,8109,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,8110,0)
+90 ;;=CRESCENT SANDWICH,SAUSAGE,JACK-IN-THE-BOX^BC-01383^sandwich^156
+91 ;;^UTILITY(U,$J,112,8110,1)
+92 ;;=14.103^27.564^17.949^374.359^^^^^^^^^648.718
+93 ;;^UTILITY(U,$J,112,8110,2)
+94 ;;=^^^^^^^^119.872^9.936^13.782^3.654
+95 ;;^UTILITY(U,$J,112,8110,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,8111,0)
+98 ;;=CRESCENT SANDWICH,SUPREME,JACK-IN-THE-BOX^BC-01384^sandwich^146
+99 ;;^UTILITY(U,$J,112,8111,1)
+100 ;;=13.699^27.397^18.493^374.658^^^^^^^^^721.233
+101 ;;^UTILITY(U,$J,112,8111,2)
+102 ;;=^^^^^^^^121.918^9.041^12.945^5.342
+103 ;;^UTILITY(U,$J,112,8111,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,8112,0)
+106 ;;=FISH SUPREME SANDWICH,JACK-IN-THE-BOX^BC-01385^sandwich^228
+107 ;;^UTILITY(U,$J,112,8112,1)
+108 ;;=8.772^14.035^20.614^242.982^^^^^^^^^459.211
+109 ;;^UTILITY(U,$J,112,8112,2)
+110 ;;=^^^^^^^^28.947^5.921^4.825^3.246
+111 ;;^UTILITY(U,$J,112,8112,20)
+112 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+113 ;;^UTILITY(U,$J,112,8113,0)
+114 ;;=FRENCH FRIES,JUMBO,JACK-IN-THE-BOX^BC-01386^serving^136
+115 ;;^UTILITY(U,$J,112,8113,1)
+116 ;;=2.941^17.647^39.706^325^^^^^^^^^241.176
+117 ;;^UTILITY(U,$J,112,8113,2)
+118 ;;=^^^^^^^^11.765^7.353^7.206^2.5
