FHINI0CC ; ; 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,7943,1)
;;=14.844^5.469^37.5^265.625^^^^136.719^2.773^18.75^210.938^140.625^585.938^.867^.018^^^136.719^.781^.492
;;^UTILITY(U,$J,112,7943,2)
;;=.398^5.781^.461^.102^8.594^.344^^^58.594^3.125^0^2.344
;;^UTILITY(U,$J,112,7943,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7944,0)
;;=REFRIG ENTREES,TORTELLINI,MEAT,CONTADINA^BC-01217^4.5-oz.^128
;;^UTILITY(U,$J,112,7944,1)
;;=14.063^7.813^41.406^296.875^^^^125^2.969^14.844^203.125^132.813^515.625^.516^.009^^^174.219^.781^.578
;;^UTILITY(U,$J,112,7944,2)
;;=.43^5.859^.25^.055^7.031^.289^^^58.594^3.906^3.125^.781
;;^UTILITY(U,$J,112,7944,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7945,0)
;;=REFRIG ENTREES,TORTELLINI (SPINACH),CHEESE,CONTADINA^BC-01218^4.5-oz.^128
;;^UTILITY(U,$J,112,7945,1)
;;=14.063^6.25^42.969^289.063^^^^238.281^2.813^7.031^234.375^210.938^468.75^.266^.002^^^207.031^0^.578
;;^UTILITY(U,$J,112,7945,2)
;;=.438^5^.141^.016^5.469^.125^^^50.781^3.125^2.344^.781
;;^UTILITY(U,$J,112,7945,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7946,0)
;;=REFRIG ENTREES,TORTELLINI (SP),CHICKEN,PROSCIUTTO,CONTADINA^BC-01219^4.5-oz.^128
;;^UTILITY(U,$J,112,7946,1)
;;=14.844^5.469^37.5^265.625^^^^136.719^2.773^18.75^210.938^140.625^585.938^.867^.018^^^136.719^.781^.492
;;^UTILITY(U,$J,112,7946,2)
;;=.398^5.781^.461^.102^8.594^.344^^^58.594^3.125^0^2.344
;;^UTILITY(U,$J,112,7946,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7947,0)
;;=REFRIG ENTREES,TORTELLINI (SPINACH),MEAT,CONTADINA^BC-01220^4.5-oz.^128
;;^UTILITY(U,$J,112,7947,1)
;;=14.063^7.813^41.406^296.875^^^^117.188^2.969^14.844^203.125^226.563^531.25^.516^.009^^^203.125^.781^.578
;;^UTILITY(U,$J,112,7947,2)
;;=.43^5.859^.25^.055^7.031^.289^^^58.594^3.906^3.125^.781
;;^UTILITY(U,$J,112,7947,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7948,0)
;;=SHELF ENTREES,BEEF & PASTA,LIGHT BALANCE,AMERICANA^BC-01221^8.25-oz.^234
;;^UTILITY(U,$J,112,7948,1)
;;=4.915^.983^12.009^81.197^^^^10.684^.842^^^^319.231^^^^^84.188^0^.06
;;^UTILITY(U,$J,112,7948,2)
;;=.115^1.282^^^^^^^6.838^.556^.385^.085
;;^UTILITY(U,$J,112,7948,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7949,0)
;;=SHELF ENTREES,BEEF & PASTA,LIGHT BALANCE,BORDEAUX^BC-01222^8.25-oz.^234
;;^UTILITY(U,$J,112,7949,1)
;;=5.299^.171^12.906^76.923^^^^12.821^.833^^^^318.376^^^^^159.402^0^.034
;;^UTILITY(U,$J,112,7949,2)
;;=.12^1.239^^^^^^^6.838^.043^.085^.043
;;^UTILITY(U,$J,112,7949,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7950,0)
;;=SHELF ENTREES,BEEF STEW,HEARTY,LUNCH BUCKET^BC-01223^8.5-oz.^241
;;^UTILITY(U,$J,112,7950,1)
;;=6.224^2.49^7.884^78.838^^^^^^^^^410.788
;;^UTILITY(U,$J,112,7950,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7951,0)
;;=SHELF ENTREES,CHICKEN CACCIATORE & PASTA^BC-01224^8.25-oz.^234
;;^UTILITY(U,$J,112,7951,1)
;;=6.752^.128^14.786^89.744^^^^13.675^1.013^^^^309.829^^^^^176.496^0^.06
;;^UTILITY(U,$J,112,7951,2)
;;=.132^1.795^^^^^^^7.692^.043^.043^.043
;;^UTILITY(U,$J,112,7951,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7952,0)
;;=SHELF ENTREES,CHICKEN FIESTA,BEANS & RICE,LIGHT BALANCE^BC-01225^8.25-oz.^234
;;^UTILITY(U,$J,112,7952,1)
;;=5.556^1.581^13.932^89.744^^^^20.085^.863^^^^283.333^^^^^175.214^0^.009
;;^UTILITY(U,$J,112,7952,2)
;;=.073^1.239^^^^^^^6.838^.299^.812^.47
;;^UTILITY(U,$J,112,7952,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7953,0)
;;=SHELF ENTREES,CHILI MAC,LUNCH BUCKET^BC-01226^8.5-oz.^241
;;^UTILITY(U,$J,112,7953,1)
;;=3.734^5.394^11.203^107.884^^^^^^^^^568.465
;;^UTILITY(U,$J,112,7953,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7954,0)
;;=SHELF ENTREES,CHILI W/BEANS,HOT,LUNCH BUCKET^BC-01227^8.5-oz.^241
;;^UTILITY(U,$J,112,7954,1)
;;=7.884^6.224^12.863^141.079^^^^^^^^^502.075
;;^UTILITY(U,$J,112,7954,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7955,0)
;;=SHELF ENTREES,CHILI W/BEANS,LUNCH BUCKET^BC-01228^8.5-oz.^241
;;^UTILITY(U,$J,112,7955,1)
;;=7.469^6.224^12.863^141.079^^^^^^^^^497.925
;;^UTILITY(U,$J,112,7955,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7956,0)
;;=SHELF ENTREES,FETTUCINE MARINARA,LUNCH BUCKET^BC-01229^8.25-oz.^234
;;^UTILITY(U,$J,112,7956,1)
;;=2.564^.855^19.231^94.017^^^^^^^^^371.795
FHINI0CC ; ; 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,7943,1)
+2 ;;=14.844^5.469^37.5^265.625^^^^136.719^2.773^18.75^210.938^140.625^585.938^.867^.018^^^136.719^.781^.492
+3 ;;^UTILITY(U,$J,112,7943,2)
+4 ;;=.398^5.781^.461^.102^8.594^.344^^^58.594^3.125^0^2.344
+5 ;;^UTILITY(U,$J,112,7943,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,7944,0)
+8 ;;=REFRIG ENTREES,TORTELLINI,MEAT,CONTADINA^BC-01217^4.5-oz.^128
+9 ;;^UTILITY(U,$J,112,7944,1)
+10 ;;=14.063^7.813^41.406^296.875^^^^125^2.969^14.844^203.125^132.813^515.625^.516^.009^^^174.219^.781^.578
+11 ;;^UTILITY(U,$J,112,7944,2)
+12 ;;=.43^5.859^.25^.055^7.031^.289^^^58.594^3.906^3.125^.781
+13 ;;^UTILITY(U,$J,112,7944,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,7945,0)
+16 ;;=REFRIG ENTREES,TORTELLINI (SPINACH),CHEESE,CONTADINA^BC-01218^4.5-oz.^128
+17 ;;^UTILITY(U,$J,112,7945,1)
+18 ;;=14.063^6.25^42.969^289.063^^^^238.281^2.813^7.031^234.375^210.938^468.75^.266^.002^^^207.031^0^.578
+19 ;;^UTILITY(U,$J,112,7945,2)
+20 ;;=.438^5^.141^.016^5.469^.125^^^50.781^3.125^2.344^.781
+21 ;;^UTILITY(U,$J,112,7945,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,7946,0)
+24 ;;=REFRIG ENTREES,TORTELLINI (SP),CHICKEN,PROSCIUTTO,CONTADINA^BC-01219^4.5-oz.^128
+25 ;;^UTILITY(U,$J,112,7946,1)
+26 ;;=14.844^5.469^37.5^265.625^^^^136.719^2.773^18.75^210.938^140.625^585.938^.867^.018^^^136.719^.781^.492
+27 ;;^UTILITY(U,$J,112,7946,2)
+28 ;;=.398^5.781^.461^.102^8.594^.344^^^58.594^3.125^0^2.344
+29 ;;^UTILITY(U,$J,112,7946,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,7947,0)
+32 ;;=REFRIG ENTREES,TORTELLINI (SPINACH),MEAT,CONTADINA^BC-01220^4.5-oz.^128
+33 ;;^UTILITY(U,$J,112,7947,1)
+34 ;;=14.063^7.813^41.406^296.875^^^^117.188^2.969^14.844^203.125^226.563^531.25^.516^.009^^^203.125^.781^.578
+35 ;;^UTILITY(U,$J,112,7947,2)
+36 ;;=.43^5.859^.25^.055^7.031^.289^^^58.594^3.906^3.125^.781
+37 ;;^UTILITY(U,$J,112,7947,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7948,0)
+40 ;;=SHELF ENTREES,BEEF & PASTA,LIGHT BALANCE,AMERICANA^BC-01221^8.25-oz.^234
+41 ;;^UTILITY(U,$J,112,7948,1)
+42 ;;=4.915^.983^12.009^81.197^^^^10.684^.842^^^^319.231^^^^^84.188^0^.06
+43 ;;^UTILITY(U,$J,112,7948,2)
+44 ;;=.115^1.282^^^^^^^6.838^.556^.385^.085
+45 ;;^UTILITY(U,$J,112,7948,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7949,0)
+48 ;;=SHELF ENTREES,BEEF & PASTA,LIGHT BALANCE,BORDEAUX^BC-01222^8.25-oz.^234
+49 ;;^UTILITY(U,$J,112,7949,1)
+50 ;;=5.299^.171^12.906^76.923^^^^12.821^.833^^^^318.376^^^^^159.402^0^.034
+51 ;;^UTILITY(U,$J,112,7949,2)
+52 ;;=.12^1.239^^^^^^^6.838^.043^.085^.043
+53 ;;^UTILITY(U,$J,112,7949,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7950,0)
+56 ;;=SHELF ENTREES,BEEF STEW,HEARTY,LUNCH BUCKET^BC-01223^8.5-oz.^241
+57 ;;^UTILITY(U,$J,112,7950,1)
+58 ;;=6.224^2.49^7.884^78.838^^^^^^^^^410.788
+59 ;;^UTILITY(U,$J,112,7950,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,7951,0)
+62 ;;=SHELF ENTREES,CHICKEN CACCIATORE & PASTA^BC-01224^8.25-oz.^234
+63 ;;^UTILITY(U,$J,112,7951,1)
+64 ;;=6.752^.128^14.786^89.744^^^^13.675^1.013^^^^309.829^^^^^176.496^0^.06
+65 ;;^UTILITY(U,$J,112,7951,2)
+66 ;;=.132^1.795^^^^^^^7.692^.043^.043^.043
+67 ;;^UTILITY(U,$J,112,7951,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,7952,0)
+70 ;;=SHELF ENTREES,CHICKEN FIESTA,BEANS & RICE,LIGHT BALANCE^BC-01225^8.25-oz.^234
+71 ;;^UTILITY(U,$J,112,7952,1)
+72 ;;=5.556^1.581^13.932^89.744^^^^20.085^.863^^^^283.333^^^^^175.214^0^.009
+73 ;;^UTILITY(U,$J,112,7952,2)
+74 ;;=.073^1.239^^^^^^^6.838^.299^.812^.47
+75 ;;^UTILITY(U,$J,112,7952,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,7953,0)
+78 ;;=SHELF ENTREES,CHILI MAC,LUNCH BUCKET^BC-01226^8.5-oz.^241
+79 ;;^UTILITY(U,$J,112,7953,1)
+80 ;;=3.734^5.394^11.203^107.884^^^^^^^^^568.465
+81 ;;^UTILITY(U,$J,112,7953,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,7954,0)
+84 ;;=SHELF ENTREES,CHILI W/BEANS,HOT,LUNCH BUCKET^BC-01227^8.5-oz.^241
+85 ;;^UTILITY(U,$J,112,7954,1)
+86 ;;=7.884^6.224^12.863^141.079^^^^^^^^^502.075
+87 ;;^UTILITY(U,$J,112,7954,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,7955,0)
+90 ;;=SHELF ENTREES,CHILI W/BEANS,LUNCH BUCKET^BC-01228^8.5-oz.^241
+91 ;;^UTILITY(U,$J,112,7955,1)
+92 ;;=7.469^6.224^12.863^141.079^^^^^^^^^497.925
+93 ;;^UTILITY(U,$J,112,7955,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7956,0)
+96 ;;=SHELF ENTREES,FETTUCINE MARINARA,LUNCH BUCKET^BC-01229^8.25-oz.^234
+97 ;;^UTILITY(U,$J,112,7956,1)
+98 ;;=2.564^.855^19.231^94.017^^^^^^^^^371.795
