FHINI0B7 ; ; 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,7396,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7397,0)
;;=ENTREES,CND,BEEF SLOPPY JOES,ARMOUR STAR^BC-00670^7.6-oz.^216
;;^UTILITY(U,$J,112,7397,1)
;;=5.556^12.5^10.648^175.926^^^^^^^^^726.852
;;^UTILITY(U,$J,112,7397,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7398,0)
;;=ENTREES,CND,CHILI W/BEANS,ARMOUR STAR^BC-00671^7.5-oz.^213
;;^UTILITY(U,$J,112,7398,1)
;;=6.103^12.207^12.676^183.099^^^^^^^^^558.685
;;^UTILITY(U,$J,112,7398,2)
;;=^^^^^^^^^^^^^^^^3.286
;;^UTILITY(U,$J,112,7398,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7399,0)
;;=ENTREES,CND,CHILI W/BEANS,VAN CAMP'S^BC-00672^cups^220
;;^UTILITY(U,$J,112,7399,1)
;;=6.773^10.545^.1^160^80.136^^^28.636^2.195^^^244.091^552.273^^^^^1558.182^^.041
;;^UTILITY(U,$J,112,7399,2)
;;=.1^1.091
;;^UTILITY(U,$J,112,7399,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7400,0)
;;=ENTREE,CND,CHILI W/O BEANS,ARMOUR STAR^BC-00673^7.5-oz.^213
;;^UTILITY(U,$J,112,7400,1)
;;=6.103^14.554^6.573^183.099^^^^^^^^^539.906
;;^UTILITY(U,$J,112,7400,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7401,0)
;;=ENTREES,CND,CHILI W/O BEANS,VAN CAMP'S^BC-00674^cups^220
;;^UTILITY(U,$J,112,7401,1)
;;=7^15.227^5.5^187.273^77.091^^^20.909^1.582^^^168.182^681.364^^^^^2242.727^^.027
;;^UTILITY(U,$J,112,7401,2)
;;=.127^1.455
;;^UTILITY(U,$J,112,7401,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7402,0)
;;=ENTREES,CND,CIRCUSO'S FRANCO-AMERICAN W/MEATBALLS^BC-00675^7.4-oz.^209
;;^UTILITY(U,$J,112,7402,1)
;;=4.402^3.589^12.01^98.086^^^^13.876^1.053^^^151.196^451.675^^^^^248.804^1.914^.086
;;^UTILITY(U,$J,112,7402,2)
;;=.086^1.483
;;^UTILITY(U,$J,112,7402,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7403,0)
;;=ENTREES,CND,CIRCUSO'S FRANCO-AMERICAN W/TOMATO&CHEESE^BC-00676^7.5-oz.^213
;;^UTILITY(U,$J,112,7403,1)
;;=2.441^.751^15.352^77.934^^^^13.615^.751^^^109.39^414.554^^^^^326.761^0^.108
;;^UTILITY(U,$J,112,7403,2)
;;=.075^1.174
;;^UTILITY(U,$J,112,7403,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7404,0)
;;=ENTREES,CND,DUMPLINGS & CHICKEN,BOUNTY^BC-00677^7.5-oz.^213
;;^UTILITY(U,$J,112,7404,1)
;;=4.413^4.272^9.343^93.427^^^^12.207^.563^^^62.441^492.488^^^^^1246.948^0^.014
;;^UTILITY(U,$J,112,7404,2)
;;=.047^1.221
;;^UTILITY(U,$J,112,7404,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7405,0)
;;=ENTREES,CND,MACARONI & CHEESE,FRANCO-AMERICAN^BC-00678^7.5-oz.^213
;;^UTILITY(U,$J,112,7405,1)
;;=3.052^2.535^10.845^78.404^^^^44.601^.704^^^53.521^438.498^^^^^407.042^0^.113
;;^UTILITY(U,$J,112,7405,2)
;;=.108^.986
;;^UTILITY(U,$J,112,7405,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7406,0)
;;=ENTREES,CND,MACARONI W/BEEF IN TOMATO SCE,FRANCO-AMERICAN^BC-00679^7.5-oz.^213
;;^UTILITY(U,$J,112,7406,1)
;;=4.225^1.784^14.131^89.671^^^^20.188^1.033^^^156.338^371.831^^^^^452.113^3.286^.085
;;^UTILITY(U,$J,112,7406,2)
;;=.08^1.502
;;^UTILITY(U,$J,112,7406,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7407,0)
;;=ENTREES,CND,NOODLES & CHICKEN,BOUNTY^BC-00680^7.5-oz.^213
;;^UTILITY(U,$J,112,7407,1)
;;=3.615^5.352^8.216^95.775^^^^28.638^.704^^^67.136^486.385^^^^^348.826^0^.042
;;^UTILITY(U,$J,112,7407,2)
;;=.07^1.127
;;^UTILITY(U,$J,112,7407,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7408,0)
;;=ENTREES,CND,RAVIOLIO'S,BEEF,FRANCO-AMERICAN^BC-00681^7.8-oz.^220
;;^UTILITY(U,$J,112,7408,1)
;;=4.682^3.136^16.364^112.273^^^^16.818^1.091^^^182.727^431.818^^^^^257.273^3.182^.109
;;^UTILITY(U,$J,112,7408,2)
;;=.086^1.545
;;^UTILITY(U,$J,112,7408,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7409,0)
;;=ENTREES,CND,SPAGHETTI & MEATBALLS,FRANCO-AMERICAN^BC-00682^7.4-oz.^209
;;^UTILITY(U,$J,112,7409,1)
;;=4.593^3.541^13.158^103.349^^^^13.876^1.1^^^160.766^412.919^^^^^270.813^1.914^.086
;;^UTILITY(U,$J,112,7409,2)
;;=.091^1.531
;;^UTILITY(U,$J,112,7409,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7410,0)
;;=ENTREES,CND,SPAGHETTIO'S,FRANCO-AMERICAN W/FRANKS^BC-00683^7.4-oz.^209
;;^UTILITY(U,$J,112,7410,1)
;;=3.636^4.019^12.488^100.478^^^^15.311^1.053^^^143.541^473.206^^^^^244.498^1.914^.096
;;^UTILITY(U,$J,112,7410,2)
;;=.086^1.531
;;^UTILITY(U,$J,112,7410,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0B7 ; ; 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,7396,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,7397,0)
+4 ;;=ENTREES,CND,BEEF SLOPPY JOES,ARMOUR STAR^BC-00670^7.6-oz.^216
+5 ;;^UTILITY(U,$J,112,7397,1)
+6 ;;=5.556^12.5^10.648^175.926^^^^^^^^^726.852
+7 ;;^UTILITY(U,$J,112,7397,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,7398,0)
+10 ;;=ENTREES,CND,CHILI W/BEANS,ARMOUR STAR^BC-00671^7.5-oz.^213
+11 ;;^UTILITY(U,$J,112,7398,1)
+12 ;;=6.103^12.207^12.676^183.099^^^^^^^^^558.685
+13 ;;^UTILITY(U,$J,112,7398,2)
+14 ;;=^^^^^^^^^^^^^^^^3.286
+15 ;;^UTILITY(U,$J,112,7398,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,7399,0)
+18 ;;=ENTREES,CND,CHILI W/BEANS,VAN CAMP'S^BC-00672^cups^220
+19 ;;^UTILITY(U,$J,112,7399,1)
+20 ;;=6.773^10.545^.1^160^80.136^^^28.636^2.195^^^244.091^552.273^^^^^1558.182^^.041
+21 ;;^UTILITY(U,$J,112,7399,2)
+22 ;;=.1^1.091
+23 ;;^UTILITY(U,$J,112,7399,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,7400,0)
+26 ;;=ENTREE,CND,CHILI W/O BEANS,ARMOUR STAR^BC-00673^7.5-oz.^213
+27 ;;^UTILITY(U,$J,112,7400,1)
+28 ;;=6.103^14.554^6.573^183.099^^^^^^^^^539.906
+29 ;;^UTILITY(U,$J,112,7400,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,7401,0)
+32 ;;=ENTREES,CND,CHILI W/O BEANS,VAN CAMP'S^BC-00674^cups^220
+33 ;;^UTILITY(U,$J,112,7401,1)
+34 ;;=7^15.227^5.5^187.273^77.091^^^20.909^1.582^^^168.182^681.364^^^^^2242.727^^.027
+35 ;;^UTILITY(U,$J,112,7401,2)
+36 ;;=.127^1.455
+37 ;;^UTILITY(U,$J,112,7401,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7402,0)
+40 ;;=ENTREES,CND,CIRCUSO'S FRANCO-AMERICAN W/MEATBALLS^BC-00675^7.4-oz.^209
+41 ;;^UTILITY(U,$J,112,7402,1)
+42 ;;=4.402^3.589^12.01^98.086^^^^13.876^1.053^^^151.196^451.675^^^^^248.804^1.914^.086
+43 ;;^UTILITY(U,$J,112,7402,2)
+44 ;;=.086^1.483
+45 ;;^UTILITY(U,$J,112,7402,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7403,0)
+48 ;;=ENTREES,CND,CIRCUSO'S FRANCO-AMERICAN W/TOMATO&CHEESE^BC-00676^7.5-oz.^213
+49 ;;^UTILITY(U,$J,112,7403,1)
+50 ;;=2.441^.751^15.352^77.934^^^^13.615^.751^^^109.39^414.554^^^^^326.761^0^.108
+51 ;;^UTILITY(U,$J,112,7403,2)
+52 ;;=.075^1.174
+53 ;;^UTILITY(U,$J,112,7403,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7404,0)
+56 ;;=ENTREES,CND,DUMPLINGS & CHICKEN,BOUNTY^BC-00677^7.5-oz.^213
+57 ;;^UTILITY(U,$J,112,7404,1)
+58 ;;=4.413^4.272^9.343^93.427^^^^12.207^.563^^^62.441^492.488^^^^^1246.948^0^.014
+59 ;;^UTILITY(U,$J,112,7404,2)
+60 ;;=.047^1.221
+61 ;;^UTILITY(U,$J,112,7404,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,7405,0)
+64 ;;=ENTREES,CND,MACARONI & CHEESE,FRANCO-AMERICAN^BC-00678^7.5-oz.^213
+65 ;;^UTILITY(U,$J,112,7405,1)
+66 ;;=3.052^2.535^10.845^78.404^^^^44.601^.704^^^53.521^438.498^^^^^407.042^0^.113
+67 ;;^UTILITY(U,$J,112,7405,2)
+68 ;;=.108^.986
+69 ;;^UTILITY(U,$J,112,7405,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,7406,0)
+72 ;;=ENTREES,CND,MACARONI W/BEEF IN TOMATO SCE,FRANCO-AMERICAN^BC-00679^7.5-oz.^213
+73 ;;^UTILITY(U,$J,112,7406,1)
+74 ;;=4.225^1.784^14.131^89.671^^^^20.188^1.033^^^156.338^371.831^^^^^452.113^3.286^.085
+75 ;;^UTILITY(U,$J,112,7406,2)
+76 ;;=.08^1.502
+77 ;;^UTILITY(U,$J,112,7406,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,7407,0)
+80 ;;=ENTREES,CND,NOODLES & CHICKEN,BOUNTY^BC-00680^7.5-oz.^213
+81 ;;^UTILITY(U,$J,112,7407,1)
+82 ;;=3.615^5.352^8.216^95.775^^^^28.638^.704^^^67.136^486.385^^^^^348.826^0^.042
+83 ;;^UTILITY(U,$J,112,7407,2)
+84 ;;=.07^1.127
+85 ;;^UTILITY(U,$J,112,7407,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,7408,0)
+88 ;;=ENTREES,CND,RAVIOLIO'S,BEEF,FRANCO-AMERICAN^BC-00681^7.8-oz.^220
+89 ;;^UTILITY(U,$J,112,7408,1)
+90 ;;=4.682^3.136^16.364^112.273^^^^16.818^1.091^^^182.727^431.818^^^^^257.273^3.182^.109
+91 ;;^UTILITY(U,$J,112,7408,2)
+92 ;;=.086^1.545
+93 ;;^UTILITY(U,$J,112,7408,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7409,0)
+96 ;;=ENTREES,CND,SPAGHETTI & MEATBALLS,FRANCO-AMERICAN^BC-00682^7.4-oz.^209
+97 ;;^UTILITY(U,$J,112,7409,1)
+98 ;;=4.593^3.541^13.158^103.349^^^^13.876^1.1^^^160.766^412.919^^^^^270.813^1.914^.086
+99 ;;^UTILITY(U,$J,112,7409,2)
+100 ;;=.091^1.531
+101 ;;^UTILITY(U,$J,112,7409,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,7410,0)
+104 ;;=ENTREES,CND,SPAGHETTIO'S,FRANCO-AMERICAN W/FRANKS^BC-00683^7.4-oz.^209
+105 ;;^UTILITY(U,$J,112,7410,1)
+106 ;;=3.636^4.019^12.488^100.478^^^^15.311^1.053^^^143.541^473.206^^^^^244.498^1.914^.096
+107 ;;^UTILITY(U,$J,112,7410,2)
+108 ;;=.086^1.531
+109 ;;^UTILITY(U,$J,112,7410,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
