Hi…
there is somekind of problem in loading icd9 2010 data into the database. after doing all the commenting and uncommenting stuff in the code and giving the privileges in the database when the loading command is run in the cmd (c:\perl\bin\perl c:\xampp\htdocs\openemr\contrib\util\load_icd_desc.plx), it just comes up with
Now what…actually i lost all my icd datas…can you please please help me out with it…if you have the icd data in your system right now, can you send me the sql file in my email. i cant wait till the code gets fixed, as i need it very urgently…
my email id: superarnab@gmail.com
LOL. Screen scraping means programatically extracting data from a web site by reading and parsing its pages. Computers are not very good at figuring out what a web page means, so assumptions must be built into the program about how the pages are structured. If the site is changed even in a minor way, these assumptions may no longer be correct and so the program must be fixed.
Maybe it changed with adding the 2011 codes. I was able to download the 2011 codes fine earlier this month, as they become active on October 1. So maybe try the 2011 instead of the 2010 files.
Yesterday, i tried with 2011 icd datas too…it was all the same…inserted 0 rows, updated 0 rows…untill Rod helped me out by sending the sql file of icd data. i imported it in the database manually…
can anybody explain the checkout feature within the fees? it is really handy, but suppose i have a patient having two encounters with me, i take a cash payment from the patient against the first encounter (Invoice No. 000001) and save it. now when i click checkout, it shows the invoice no.000001 but as soon i do the same thing with the 2nd encounter (this time invoice number 000002) and click checkout again i get to see the 2nd invoice only. i cant see the invoice 000001. should i see it from report->financial->collection?
what if i want to print out the invoices later? i cant do that for invoice 000001 as i am only shown the invoice 000002.
Hi I am having the same problem with the icd data, " Inserted 0 rows, updated 0 codes". Can you help by sending me an icd sql file to get the codes fix. Thanks. My email kudjo1@ymail.com
They added a “strong” tag in between the “li” and the “a”. Here’s a patch that worked for me. I used the URI class because I couldn’t get the regex to work
Index: load_icd_desc.plx
===================================================================
--- load_icd_desc.plx (revision 1335)
+++ load_icd_desc.plx (working copy)
@@ -20,20 +20,21 @@
use DBI; # libdbi-perl and libdbd-mysql-perl
use WWW::Mechanize; # libwww-mechanize-perl
use HTML::TokeParser; # libhtml-parser-perl
+use URI;
# or else put them into the environment with bash commands like these
@@ -75,35 +76,38 @@
if ($tag->[0] eq "li") {
$tag = $parser->get_tag;
- next unless ($tag->[0] eq "a");
- my $nexturl = $browser->base();
- $nexturl =~ s'/[^/]+$'/';
- scrape($nexturl . $tag->[1]{href});
+ if ($tag->[0] eq "strong") {
+ $tag = $parser->get_tag;
+ next unless ($tag->[0] eq "a");
+ my $abs_url = new URI->new_abs($tag->[1]{href}, $url);
+ scrape($abs_url);
+ }
}
Thanks for finding the cause of this! However this simpler patch seems to work for me:
@@ -81,6 +81,7 @@
# that must be followed. We handle those recursively.
if ($tag->[0] eq "li") {
$tag = $parser->get_tag;
+ $tag = $parser->get_tag if ($tag->[0] eq "strong");
next unless ($tag->[0] eq "a");
my $nexturl = $browser->base();
# $nexturl =~ s'/[^/]+$'/';
I’ll commit this… let me know if you see a problem with it.
I cannot find any script for (I assume) the icd9 loader after 9/9/10, but you mentioned you WILL commit the fix on 11/16/10 which is more than a month after that. When I check what I think is the development CVS I cannot even find the Util folder. Please post the specific site location here, ok? Thanks. I only use this once a year, but I need it now.
If I wrote you a message “Needs Justify” you might have as much insight into what I meant as I have for “Code / Git Browse”. Do you really think anyone else understands what you mean? Please. Clarity comes from adequate info for someone who is NOT you to understand.
Rod; Never mind - I figured out what your recommended fix is and it seems to have worked for the 2011 data today.
Everybody else; After you make the mods needed for your specific $user, $dbase and $password in the PLX file, insert the line Rod shows preceded by the “+” in his code above immediately betwen the lines in the PLX file as shown by Rod, which will be the first few lines ONLY after “We handle those recursively.”, ie you will insert only that single line and only once. Then the file should work as of today Dec 19, 2010. The specific line to insert is:
$tag = $parser->get_tag if ($tag-> eq “strong”);
Joe, you can download the current script from the git repository, no need to apply a patch manually.
Also this forum is for developers, which is why you were not spoon-fed an answer. Please post usage-oriented questions in the Users or Help forum. It also helps when you don’t imply that the person you’re asking did not do what they promised. Thank you.