#include ../../header.iphtml #include ../../checkuser.iphtml

\&cme_front_page, 'ShowForm' => \&display_cme, ); $Current_Screen = $main::cgi->param(".State") || "Default"; die "No screen for $Current_Screen" unless $States{$Current_Screen}; print $main::cgi->start_form(); while (my($screen_name, $function) = each %States) { $function->($screen_name eq $Current_Screen); } print $main::cgi->end_form(); !> #include ../../footer_include.iphtml prepare($SQL) || die "Prepare failed: $DBI::errstr\n"; $sth->execute() || die "Couldn't execute query: $DBI::errstr\n$SQL\n"; undef(@ary); @ary = $sth->fetchrow; $sth->finish; print p({-align=>'center'},strong("$participant")); print p('Click on the link(s) below to view and/or print your certificate.'); if (@ary) { $sth->execute; while (@ary = $sth->fetchrow()) { $cmelist .= "

\n"; } $sth->finish; print "

$cmelist"; } else { print p("You must submit your ",a({-href=>'vop.iphtml'},'Verification of Participation Form'), 'before you can access your CME Certificate.'); } } sub display_cme { my $active = shift; return unless $active; my $workshopID = $main::cgi->param('wid'); my $complete = 1; my $SQL = ''; $SQL = "SELECT member.lname, member.fname, member.title, member.mail_address1, member.mail_address2, member.mail_address3, member.mail_city, member.mail_state, member.mail_zip, member.mail_country, meeting.name, DATE_FORMAT(meeting.start_date, '%M %e, %Y'), meeting.city, meeting.state, meeting.location, registrants.credits, meeting.credits, MONTHNAME(meeting.start_date), DAYOFMONTH(meeting.start_date), YEAR(meeting.end_date), MONTHNAME(meeting.end_date), DAYOFMONTH(meeting.end_date) FROM member, registrants, meeting WHERE member.member_id = registrants.member_id AND registrants.meeting_no = meeting.meeting_no AND registrants.workshop_no = meeting.workshop_no AND registrants.breakout_no = meeting.breakout_no AND registrants.member_id = $userID AND registrants.meeting_no = $meeting_no AND registrants.workshop_no = $workshopID AND registrants.breakout_no=0 AND cme='Y'"; $cursor = $main::dbh->prepare($SQL) || die "Prepare failed: $DBI::errstr\n"; $cursor->execute() || die "Couldn't execute query: $DBI::errstr\n$SQL\n"; @ary = $cursor->fetchrow; $cursor->finish; if (!@ary) { print p('The CME Certificate was not found or we ',strong('have not'), 'received your ',a({-href=>'vop.iphtml'},u('Verification of Participation Form')),'. For more information contact SPA administrator at ',a({-href=>'mailto:spa@societyhq.com'},'spa@societyhq.com'),'.'); $complete = 0; } # if ($complete && !$ary[9]) { if ($complete) { print "

\n"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "

	Society for Pediatric Anesthesia 2209 Dickens Road Richmond, VA 23230-2005 USA Phone: (804) 282-9780	SPA is accredited by the Accreditation Council for Continuing Medical Education to provide continuing medical education for physicians.
		$ary[10] "; print "$ary[17] $ary[18]"; if ($ary[18] eq $ary[21]) { print ", $ary[19]"; } else { if ($ary[18] ne $ary[21] && $ary[17] eq $ary[20]) { print "-$ary[21], $ary[19]"; } else { print "-$ary[20] $ary[21], $ary[19]"; } } print " $ary[12] $ary[13]"; print "
"; print " Registration ID: $userID $ary[1] $ary[0], $ary[2] "; if ($ary[3]) { print "$ary[3] "; } if ($ary[4]) { print "$ary[4] "; } if ($ary[5]) { print "$ary[5] "; } print "$ary[6], $ary[7] $ary[8]"; if ($ary[9]) { print " $ary[9]"; } print "	The Society for Pediatric Anesthesia (SPA) designates this live activity for a maximum of $ary[16] AMA PRA Category 1 Credit(s)™. Physicians should only claim credit commensurate with the extent of their participation in the activity.
CONTINUING MEDICAL EDUCATION CERTIFICATE OF ATTENDANCE	Course Credits: = $ary[15]

"; print "

\n"; # } elsif ($complete && $ary[9]) { } } sub to_page { submit(-NAME => ".State", -VALUE => shift) } !>