$insert = "INSERT INTO procure.RECPO2 (po_number, requestor,
                      req_num, send_to, vend_name, buyer_name) VALUES
                      ('" . $sPO . "', '" . $vReqName . "', '" .
                            $vSource . "', '" . $vSendTo . "', '" .
                            $vVenNm . "', '" . $vBuyer . "')";

## if requisition # is zero and requester blank - don't write record

            if (length($vSource) gt 1 && length($vReqName) gt 1)
                {
                $st6 = $dbh->prepare_cached($insert)
                or die "Couldn't prepare insert: " . $dbh->errstr;

                $st6->execute()
                or die "Couldn't execute insert: " . $st6->errstr;
                }

##</code><code>##

DBD::Oracle::st execute failed: ORA-00001: unique constraint (PROCURE.PCR_RECPO2
_PK) violated (DBD ERROR: OCIStmtExecute) [for Statement "INSERT INTO procure.RE
CPO2 (po_number, requestor,
                                      req_num, send_to, vend_name, buyer_name) V
ALUES
                                      ('       1625162', 'ADRIAN SAMPSON', '9371
46', 'asampson@ochsner.org', 'NEOTECH PRODUCTS INC', 'LAURA SPURGEON')"] at reqN
ote_sh line 148.
Couldn't execute insert: ORA-00001: unique constraint (PROCURE.PCR_RECPO2_PK) vi
olated (DBD ERROR: OCIStmtExecute) at reqNote_sh line 148.