FHINI0B8 ; ; 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,7411,0)
;;=ENTREES,CND,SPAGHETTIO'S,FRANCO-AMERICAN W/MEATBALLS^BC-00684^7.5-oz.^206
;;^UTILITY(U,$J,112,7411,1)
;;=4.369^3.592^12.039^98.058^^^^14.078^1.068^^^150.971^451.456^^^^^248.544^1.942^.087
;;^UTILITY(U,$J,112,7411,2)
;;=.087^1.456
;;^UTILITY(U,$J,112,7411,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7412,0)
;;=ENTREES,CND,SPAGHETTIO'S,FRANCO-AMERICAN W/TOMATO&CHEESE^BC-00685^7.5-oz.^213
;;^UTILITY(U,$J,112,7412,1)
;;=2.441^.751^15.352^77.934^^^^13.615^.751^^^109.39^414.554^^^^^326.761^0^.108
;;^UTILITY(U,$J,112,7412,2)
;;=.075^1.174
;;^UTILITY(U,$J,112,7412,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7413,0)
;;=ENTREES,CND,SPAGHETTI W/TOMATO&CHEESE SCE,FRANCO-AMERICAN^BC-00686^7.8-oz.^220
;;^UTILITY(U,$J,112,7413,1)
;;=2.455^.591^16.773^82.273^^^^13.636^.727^^^106.364^401.364^^^^^342.273^0^.127
;;^UTILITY(U,$J,112,7413,2)
;;=.086^1.273
;;^UTILITY(U,$J,112,7413,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7414,0)
;;=ENTREES,CND,SPANISH RICE,VAN CAMP'S^BC-00687^cups^227
;;^UTILITY(U,$J,112,7414,1)
;;=1.366^1.762^11.894^70.485^82.907^^^17.621^1.286^^^114.537^559.471^^^^^540.969^.441^.026
;;^UTILITY(U,$J,112,7414,2)
;;=.044^.529
;;^UTILITY(U,$J,112,7414,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7415,0)
;;=ENTREES,CND,TAMALES W/SCE,VAN CAMP'S^BC-00688^cups^227
;;^UTILITY(U,$J,112,7415,1)
;;=3.656^7.137^12.599^129.075^67.753^^^15.859^1.194^^^103.965^498.678^^^^^839.648^^.022
;;^UTILITY(U,$J,112,7415,2)
;;=.07^.925
;;^UTILITY(U,$J,112,7415,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7416,0)
;;=ENTREES,CND,TEDDYO'S FRANCO-AMERICAN W/MEATBALLS^BC-00689^7.4-oz.^209
;;^UTILITY(U,$J,112,7416,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,7416,2)
;;=.086^1.483
;;^UTILITY(U,$J,112,7416,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7417,0)
;;=ENTREES,CND,TEDDYO'S FRANCO-AMERICAN W/TOMATO&CHEESE SCE^BC-00690^7.5-oz.^213
;;^UTILITY(U,$J,112,7417,1)
;;=2.441^.751^15.352^77.934^^^^13.615^.751^^^109.39^414.554^^^^^326.761^0^.108
;;^UTILITY(U,$J,112,7417,2)
;;=.075^1.174
;;^UTILITY(U,$J,112,7417,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7418,0)
;;=ENTREES,BEEF BURGUNDY,LE MENU^BC-00691^7.5-oz.^213
;;^UTILITY(U,$J,112,7418,1)
;;=11.784^8.685^5.775^148.357^^^^17.371^^^^108.451^300.469^^^^^486.854^.939^.066
;;^UTILITY(U,$J,112,7418,2)
;;=.122^1.69
;;^UTILITY(U,$J,112,7418,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7419,0)
;;=ENTREES,BEEF CASSEROLE,PILSBURY MICROWAVE^BC-00692^3.5-oz.^100
;;^UTILITY(U,$J,112,7419,1)
;;=6.1^9.6^13^163^69^^^15^1.3^^70^117^417^^^^^517^2^.08
;;^UTILITY(U,$J,112,7419,2)
;;=.1^1.4^^^^^^^^^^^^^^^1.1
;;^UTILITY(U,$J,112,7419,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7420,0)
;;=ENTREES,BEEF,CHIPPED & CREAMED BANQUET (BAG)^BC-00693^4-oz.^113
;;^UTILITY(U,$J,112,7420,1)
;;=6.195^3.54^7.965^88.496^^^^94.69^.973^^^182.301^723.894^^^^^13.274^0^.053
;;^UTILITY(U,$J,112,7420,2)
;;=.159^.796
;;^UTILITY(U,$J,112,7420,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7421,0)
;;=ENTREES,BEEF,CHIPPED & CREAMED,STOUFFERS^BC-00694^4-oz.^113
;;^UTILITY(U,$J,112,7421,1)
;;=7.699^10.177^5.221^143.363^75.044^^^79.646^.699^^^200^569.912^^^^^39.823^.885^.044
;;^UTILITY(U,$J,112,7421,2)
;;=.204^1.327^^^^^^^38.053
;;^UTILITY(U,$J,112,7421,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7422,0)
;;=ENTREES,BEEF,CHIPPED & CREAMED,SWANSON^BC-00695^9-oz.^255
;;^UTILITY(U,$J,112,7422,1)
;;=6.784^7.098^5.49^112.941^^^^69.412^.863^^^154.51^412.157^^^^^36.471^1.176^.035
;;^UTILITY(U,$J,112,7422,2)
;;=.145^1.137
;;^UTILITY(U,$J,112,7422,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7423,0)
;;=ENTREES,BEEF ORIENTAL,LEAN CUISINE^BC-00696^8.6-oz.^244
;;^UTILITY(U,$J,112,7423,1)
;;=8.197^3.279^12.295^110.656^^^^8.197^.59^^^102.459^286.885^^^^^307.377^0^.049
;;^UTILITY(U,$J,112,7423,2)
;;=.041^1.23^^^^^^^18.443^.82^^0
;;^UTILITY(U,$J,112,7423,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7424,0)
;;=ENTREES,BEEF PATTIES,CHARBOILED W/MUSHROOM,BANQUET (BAG)^BC-00697^5-oz.^142
;;^UTILITY(U,$J,112,7424,1)
;;=6.338^10.563^5.634^147.887^^^^26.761^1.056^^^119.718^598.592^^^^^40.141^.704^.07
FHINI0B8 ; ; 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,7411,0)
+2 ;;=ENTREES,CND,SPAGHETTIO'S,FRANCO-AMERICAN W/MEATBALLS^BC-00684^7.5-oz.^206
+3 ;;^UTILITY(U,$J,112,7411,1)
+4 ;;=4.369^3.592^12.039^98.058^^^^14.078^1.068^^^150.971^451.456^^^^^248.544^1.942^.087
+5 ;;^UTILITY(U,$J,112,7411,2)
+6 ;;=.087^1.456
+7 ;;^UTILITY(U,$J,112,7411,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,7412,0)
+10 ;;=ENTREES,CND,SPAGHETTIO'S,FRANCO-AMERICAN W/TOMATO&CHEESE^BC-00685^7.5-oz.^213
+11 ;;^UTILITY(U,$J,112,7412,1)
+12 ;;=2.441^.751^15.352^77.934^^^^13.615^.751^^^109.39^414.554^^^^^326.761^0^.108
+13 ;;^UTILITY(U,$J,112,7412,2)
+14 ;;=.075^1.174
+15 ;;^UTILITY(U,$J,112,7412,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,7413,0)
+18 ;;=ENTREES,CND,SPAGHETTI W/TOMATO&CHEESE SCE,FRANCO-AMERICAN^BC-00686^7.8-oz.^220
+19 ;;^UTILITY(U,$J,112,7413,1)
+20 ;;=2.455^.591^16.773^82.273^^^^13.636^.727^^^106.364^401.364^^^^^342.273^0^.127
+21 ;;^UTILITY(U,$J,112,7413,2)
+22 ;;=.086^1.273
+23 ;;^UTILITY(U,$J,112,7413,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,7414,0)
+26 ;;=ENTREES,CND,SPANISH RICE,VAN CAMP'S^BC-00687^cups^227
+27 ;;^UTILITY(U,$J,112,7414,1)
+28 ;;=1.366^1.762^11.894^70.485^82.907^^^17.621^1.286^^^114.537^559.471^^^^^540.969^.441^.026
+29 ;;^UTILITY(U,$J,112,7414,2)
+30 ;;=.044^.529
+31 ;;^UTILITY(U,$J,112,7414,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,7415,0)
+34 ;;=ENTREES,CND,TAMALES W/SCE,VAN CAMP'S^BC-00688^cups^227
+35 ;;^UTILITY(U,$J,112,7415,1)
+36 ;;=3.656^7.137^12.599^129.075^67.753^^^15.859^1.194^^^103.965^498.678^^^^^839.648^^.022
+37 ;;^UTILITY(U,$J,112,7415,2)
+38 ;;=.07^.925
+39 ;;^UTILITY(U,$J,112,7415,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,7416,0)
+42 ;;=ENTREES,CND,TEDDYO'S FRANCO-AMERICAN W/MEATBALLS^BC-00689^7.4-oz.^209
+43 ;;^UTILITY(U,$J,112,7416,1)
+44 ;;=4.402^3.589^12.01^98.086^^^^13.876^1.053^^^151.196^451.675^^^^^248.804^1.914^.086
+45 ;;^UTILITY(U,$J,112,7416,2)
+46 ;;=.086^1.483
+47 ;;^UTILITY(U,$J,112,7416,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,7417,0)
+50 ;;=ENTREES,CND,TEDDYO'S FRANCO-AMERICAN W/TOMATO&CHEESE SCE^BC-00690^7.5-oz.^213
+51 ;;^UTILITY(U,$J,112,7417,1)
+52 ;;=2.441^.751^15.352^77.934^^^^13.615^.751^^^109.39^414.554^^^^^326.761^0^.108
+53 ;;^UTILITY(U,$J,112,7417,2)
+54 ;;=.075^1.174
+55 ;;^UTILITY(U,$J,112,7417,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,7418,0)
+58 ;;=ENTREES,BEEF BURGUNDY,LE MENU^BC-00691^7.5-oz.^213
+59 ;;^UTILITY(U,$J,112,7418,1)
+60 ;;=11.784^8.685^5.775^148.357^^^^17.371^^^^108.451^300.469^^^^^486.854^.939^.066
+61 ;;^UTILITY(U,$J,112,7418,2)
+62 ;;=.122^1.69
+63 ;;^UTILITY(U,$J,112,7418,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,7419,0)
+66 ;;=ENTREES,BEEF CASSEROLE,PILSBURY MICROWAVE^BC-00692^3.5-oz.^100
+67 ;;^UTILITY(U,$J,112,7419,1)
+68 ;;=6.1^9.6^13^163^69^^^15^1.3^^70^117^417^^^^^517^2^.08
+69 ;;^UTILITY(U,$J,112,7419,2)
+70 ;;=.1^1.4^^^^^^^^^^^^^^^1.1
+71 ;;^UTILITY(U,$J,112,7419,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,7420,0)
+74 ;;=ENTREES,BEEF,CHIPPED & CREAMED BANQUET (BAG)^BC-00693^4-oz.^113
+75 ;;^UTILITY(U,$J,112,7420,1)
+76 ;;=6.195^3.54^7.965^88.496^^^^94.69^.973^^^182.301^723.894^^^^^13.274^0^.053
+77 ;;^UTILITY(U,$J,112,7420,2)
+78 ;;=.159^.796
+79 ;;^UTILITY(U,$J,112,7420,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,7421,0)
+82 ;;=ENTREES,BEEF,CHIPPED & CREAMED,STOUFFERS^BC-00694^4-oz.^113
+83 ;;^UTILITY(U,$J,112,7421,1)
+84 ;;=7.699^10.177^5.221^143.363^75.044^^^79.646^.699^^^200^569.912^^^^^39.823^.885^.044
+85 ;;^UTILITY(U,$J,112,7421,2)
+86 ;;=.204^1.327^^^^^^^38.053
+87 ;;^UTILITY(U,$J,112,7421,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,7422,0)
+90 ;;=ENTREES,BEEF,CHIPPED & CREAMED,SWANSON^BC-00695^9-oz.^255
+91 ;;^UTILITY(U,$J,112,7422,1)
+92 ;;=6.784^7.098^5.49^112.941^^^^69.412^.863^^^154.51^412.157^^^^^36.471^1.176^.035
+93 ;;^UTILITY(U,$J,112,7422,2)
+94 ;;=.145^1.137
+95 ;;^UTILITY(U,$J,112,7422,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,7423,0)
+98 ;;=ENTREES,BEEF ORIENTAL,LEAN CUISINE^BC-00696^8.6-oz.^244
+99 ;;^UTILITY(U,$J,112,7423,1)
+100 ;;=8.197^3.279^12.295^110.656^^^^8.197^.59^^^102.459^286.885^^^^^307.377^0^.049
+101 ;;^UTILITY(U,$J,112,7423,2)
+102 ;;=.041^1.23^^^^^^^18.443^.82^^0
+103 ;;^UTILITY(U,$J,112,7423,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,7424,0)
+106 ;;=ENTREES,BEEF PATTIES,CHARBOILED W/MUSHROOM,BANQUET (BAG)^BC-00697^5-oz.^142
+107 ;;^UTILITY(U,$J,112,7424,1)
+108 ;;=6.338^10.563^5.634^147.887^^^^26.761^1.056^^^119.718^598.592^^^^^40.141^.704^.07
