FHINI0CP ; ; 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,8128,2)
;;=^^^^^^^^42.771^2.53^1.566^.392
;;^UTILITY(U,$J,112,8128,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8129,0)
;;=SALAD W/O DRESSING,SIDE,JACK-IN-THE-BOX^BC-01402^salad^111
;;^UTILITY(U,$J,112,8129,1)
;;=6.306^2.703^.901^45.946^^^^^^^^^75.676
;;^UTILITY(U,$J,112,8129,2)
;;=^^^^^^^^0^1.802^.901^0
;;^UTILITY(U,$J,112,8129,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8130,0)
;;=SAUCE,BARBEQUE,JACK-IN-THE-BOX^BC-01403^pkt.^28
;;^UTILITY(U,$J,112,8130,1)
;;=1.786^0^37.857^157.143^^^^^^^^^1071.429
;;^UTILITY(U,$J,112,8130,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,8130,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8131,0)
;;=SAUCE,GUACAMOLE,JACK-IN-THE-BOX^BC-01404^serving^25
;;^UTILITY(U,$J,112,8131,1)
;;=3.6^20^7.2^220^^^^^^^^^520
;;^UTILITY(U,$J,112,8131,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,8131,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8132,0)
;;=SAUCE,SALSA,JACK-IN-THE-BOX^BC-01405^serving^25
;;^UTILITY(U,$J,112,8132,1)
;;=.8^0^8^32^^^^^^^^^516
;;^UTILITY(U,$J,112,8132,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,8132,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8133,0)
;;=SAUCE,SEAFOOD COCKTAIL,JACK-IN-THE-BOX^BC-01406^pkt.^28
;;^UTILITY(U,$J,112,8133,1)
;;=3.571^0^24.286^114.286^^^^^^^^^735.714
;;^UTILITY(U,$J,112,8133,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,8133,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8134,0)
;;=SAUCE,SWEET & SOUR,JACK-IN-THE-BOX^BC-01407^pkt.^28
;;^UTILITY(U,$J,112,8134,1)
;;=0^0^39.286^142.857^^^^^^^^^571.429
;;^UTILITY(U,$J,112,8134,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,8134,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8135,0)
;;=SCRAMBLED EGG POCKET,JACK-IN-THE-BOX^BC-01408^pocket^183
;;^UTILITY(U,$J,112,8135,1)
;;=15.847^11.475^16.94^235.519^^^^^^^^^579.235
;;^UTILITY(U,$J,112,8135,2)
;;=^^^^^^^^193.443^4.098^4.044^1.257
;;^UTILITY(U,$J,112,8135,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8136,0)
;;=SCRAMBLED EGG PLATTER,JACK-IN-THE-BOX^BC-01409^platter^249
;;^UTILITY(U,$J,112,8136,1)
;;=9.639^16.064^20.884^265.863^^^^^^^^^477.108
;;^UTILITY(U,$J,112,8136,2)
;;=^^^^^^^^142.169^6.867^6.426^1.888
;;^UTILITY(U,$J,112,8136,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8137,0)
;;=SHAKE,CHOCOLATE,JACK-IN-THE-BOX^BC-01410^shake^322
;;^UTILITY(U,$J,112,8137,1)
;;=3.416^2.174^17.081^102.484^^^^^^^^^83.851
;;^UTILITY(U,$J,112,8137,2)
;;=^^^^^^^^7.764^1.335^.652^.311
;;^UTILITY(U,$J,112,8137,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8138,0)
;;=SHAKE,STRAWBERRY,JACK-IN-THE-BOX^BC-01411^shake^328
;;^UTILITY(U,$J,112,8138,1)
;;=3.049^2.134^16.768^97.561^^^^^^^^^73.171
;;^UTILITY(U,$J,112,8138,2)
;;=^^^^^^^^7.622^1.311^.61^.305
;;^UTILITY(U,$J,112,8138,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8139,0)
;;=SHAKE,VANILLA,JACK-IN-THE-BOX^BC-01412^shake^317
;;^UTILITY(U,$J,112,8139,1)
;;=3.155^1.893^17.981^100.946^^^^^^^^^72.555
;;^UTILITY(U,$J,112,8139,2)
;;=^^^^^^^^7.886^1.136^.568^.315
;;^UTILITY(U,$J,112,8139,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8140,0)
;;=SHRIMP,JACK-IN-THE-BOX^BC-01413^10-pieces^84
;;^UTILITY(U,$J,112,8140,1)
;;=11.905^19.048^26.19^321.429^^^^^^^^^796.429
;;^UTILITY(U,$J,112,8140,2)
;;=^^^^^^^^100^8.571^7.738^2.262
;;^UTILITY(U,$J,112,8140,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8141,0)
;;=SWISS & BACON BURGER,JACK-IN-THE-BOX^BC-01414^sandwich^187
;;^UTILITY(U,$J,112,8141,1)
;;=16.578^25.134^18.182^362.567^^^^^^^^^779.679
;;^UTILITY(U,$J,112,8141,2)
;;=^^^^^^^^49.198^10.695^9.626^3.743
;;^UTILITY(U,$J,112,8141,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8142,0)
;;=TACO,JACK-IN-THE-BOX^BC-01415^taco^81
;;^UTILITY(U,$J,112,8142,1)
;;=9.877^13.58^19.753^235.802^^^^^^^^^501.235
;;^UTILITY(U,$J,112,8142,2)
;;=^^^^^^^^25.926^6.42^5.432^1.235
;;^UTILITY(U,$J,112,8142,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8143,0)
;;=TACO SALAD,JACK-IN-THE-BOX^BC-01416^salad^402
;;^UTILITY(U,$J,112,8143,1)
;;=8.458^7.711^6.965^125.124^^^^^^^^^398.01
;;^UTILITY(U,$J,112,8143,2)
;;=^^^^^^^^22.886^3.333^2.96^.398
;;^UTILITY(U,$J,112,8143,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0CP ; ; 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,8128,2)
+2 ;;=^^^^^^^^42.771^2.53^1.566^.392
+3 ;;^UTILITY(U,$J,112,8128,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,8129,0)
+6 ;;=SALAD W/O DRESSING,SIDE,JACK-IN-THE-BOX^BC-01402^salad^111
+7 ;;^UTILITY(U,$J,112,8129,1)
+8 ;;=6.306^2.703^.901^45.946^^^^^^^^^75.676
+9 ;;^UTILITY(U,$J,112,8129,2)
+10 ;;=^^^^^^^^0^1.802^.901^0
+11 ;;^UTILITY(U,$J,112,8129,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,8130,0)
+14 ;;=SAUCE,BARBEQUE,JACK-IN-THE-BOX^BC-01403^pkt.^28
+15 ;;^UTILITY(U,$J,112,8130,1)
+16 ;;=1.786^0^37.857^157.143^^^^^^^^^1071.429
+17 ;;^UTILITY(U,$J,112,8130,2)
+18 ;;=^^^^^^^^0^0^0^0
+19 ;;^UTILITY(U,$J,112,8130,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,8131,0)
+22 ;;=SAUCE,GUACAMOLE,JACK-IN-THE-BOX^BC-01404^serving^25
+23 ;;^UTILITY(U,$J,112,8131,1)
+24 ;;=3.6^20^7.2^220^^^^^^^^^520
+25 ;;^UTILITY(U,$J,112,8131,2)
+26 ;;=^^^^^^^^0
+27 ;;^UTILITY(U,$J,112,8131,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,8132,0)
+30 ;;=SAUCE,SALSA,JACK-IN-THE-BOX^BC-01405^serving^25
+31 ;;^UTILITY(U,$J,112,8132,1)
+32 ;;=.8^0^8^32^^^^^^^^^516
+33 ;;^UTILITY(U,$J,112,8132,2)
+34 ;;=^^^^^^^^0^0^0^0
+35 ;;^UTILITY(U,$J,112,8132,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,8133,0)
+38 ;;=SAUCE,SEAFOOD COCKTAIL,JACK-IN-THE-BOX^BC-01406^pkt.^28
+39 ;;^UTILITY(U,$J,112,8133,1)
+40 ;;=3.571^0^24.286^114.286^^^^^^^^^735.714
+41 ;;^UTILITY(U,$J,112,8133,2)
+42 ;;=^^^^^^^^0^0^0^0
+43 ;;^UTILITY(U,$J,112,8133,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,8134,0)
+46 ;;=SAUCE,SWEET & SOUR,JACK-IN-THE-BOX^BC-01407^pkt.^28
+47 ;;^UTILITY(U,$J,112,8134,1)
+48 ;;=0^0^39.286^142.857^^^^^^^^^571.429
+49 ;;^UTILITY(U,$J,112,8134,2)
+50 ;;=^^^^^^^^0^0^0^0
+51 ;;^UTILITY(U,$J,112,8134,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,8135,0)
+54 ;;=SCRAMBLED EGG POCKET,JACK-IN-THE-BOX^BC-01408^pocket^183
+55 ;;^UTILITY(U,$J,112,8135,1)
+56 ;;=15.847^11.475^16.94^235.519^^^^^^^^^579.235
+57 ;;^UTILITY(U,$J,112,8135,2)
+58 ;;=^^^^^^^^193.443^4.098^4.044^1.257
+59 ;;^UTILITY(U,$J,112,8135,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,8136,0)
+62 ;;=SCRAMBLED EGG PLATTER,JACK-IN-THE-BOX^BC-01409^platter^249
+63 ;;^UTILITY(U,$J,112,8136,1)
+64 ;;=9.639^16.064^20.884^265.863^^^^^^^^^477.108
+65 ;;^UTILITY(U,$J,112,8136,2)
+66 ;;=^^^^^^^^142.169^6.867^6.426^1.888
+67 ;;^UTILITY(U,$J,112,8136,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,8137,0)
+70 ;;=SHAKE,CHOCOLATE,JACK-IN-THE-BOX^BC-01410^shake^322
+71 ;;^UTILITY(U,$J,112,8137,1)
+72 ;;=3.416^2.174^17.081^102.484^^^^^^^^^83.851
+73 ;;^UTILITY(U,$J,112,8137,2)
+74 ;;=^^^^^^^^7.764^1.335^.652^.311
+75 ;;^UTILITY(U,$J,112,8137,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,8138,0)
+78 ;;=SHAKE,STRAWBERRY,JACK-IN-THE-BOX^BC-01411^shake^328
+79 ;;^UTILITY(U,$J,112,8138,1)
+80 ;;=3.049^2.134^16.768^97.561^^^^^^^^^73.171
+81 ;;^UTILITY(U,$J,112,8138,2)
+82 ;;=^^^^^^^^7.622^1.311^.61^.305
+83 ;;^UTILITY(U,$J,112,8138,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,8139,0)
+86 ;;=SHAKE,VANILLA,JACK-IN-THE-BOX^BC-01412^shake^317
+87 ;;^UTILITY(U,$J,112,8139,1)
+88 ;;=3.155^1.893^17.981^100.946^^^^^^^^^72.555
+89 ;;^UTILITY(U,$J,112,8139,2)
+90 ;;=^^^^^^^^7.886^1.136^.568^.315
+91 ;;^UTILITY(U,$J,112,8139,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,8140,0)
+94 ;;=SHRIMP,JACK-IN-THE-BOX^BC-01413^10-pieces^84
+95 ;;^UTILITY(U,$J,112,8140,1)
+96 ;;=11.905^19.048^26.19^321.429^^^^^^^^^796.429
+97 ;;^UTILITY(U,$J,112,8140,2)
+98 ;;=^^^^^^^^100^8.571^7.738^2.262
+99 ;;^UTILITY(U,$J,112,8140,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,8141,0)
+102 ;;=SWISS & BACON BURGER,JACK-IN-THE-BOX^BC-01414^sandwich^187
+103 ;;^UTILITY(U,$J,112,8141,1)
+104 ;;=16.578^25.134^18.182^362.567^^^^^^^^^779.679
+105 ;;^UTILITY(U,$J,112,8141,2)
+106 ;;=^^^^^^^^49.198^10.695^9.626^3.743
+107 ;;^UTILITY(U,$J,112,8141,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,8142,0)
+110 ;;=TACO,JACK-IN-THE-BOX^BC-01415^taco^81
+111 ;;^UTILITY(U,$J,112,8142,1)
+112 ;;=9.877^13.58^19.753^235.802^^^^^^^^^501.235
+113 ;;^UTILITY(U,$J,112,8142,2)
+114 ;;=^^^^^^^^25.926^6.42^5.432^1.235
+115 ;;^UTILITY(U,$J,112,8142,20)
+116 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+117 ;;^UTILITY(U,$J,112,8143,0)
+118 ;;=TACO SALAD,JACK-IN-THE-BOX^BC-01416^salad^402
+119 ;;^UTILITY(U,$J,112,8143,1)
+120 ;;=8.458^7.711^6.965^125.124^^^^^^^^^398.01
+121 ;;^UTILITY(U,$J,112,8143,2)
+122 ;;=^^^^^^^^22.886^3.333^2.96^.398
+123 ;;^UTILITY(U,$J,112,8143,20)
+124 ;;=Bowes & Church's Food Values, Sixteenth Edition.
