[Home] [Help]
183: FROM pa_implementations;
184:
185: Cursor Credit_Memo_exist is
186: SELECT 'Y'
187: FROM dual
188: WHERE EXISTS(SELECT draft_invoice_num
189: FROM pa_draft_invoices i
190: WHERE i.project_id = P_Project_ID
191: AND i.draft_invoice_num = P_Draft_Invoice_Num
191: AND i.draft_invoice_num = P_Draft_Invoice_Num
192: AND i.draft_invoice_num_credited IS NOT NULL);
193:
194: Cursor Credit_Memo_Reason_Valid is
195: SELECT 'Y' FROM dual
196: WHERE EXISTS( select lookup_code
197: from fnd_lookup_values_vl
198: where lookup_type='CREDIT_MEMO_REASON'
199: and lookup_code = P_Credit_Memo_Reason_Code
486: populated or not.
487: BEGIN
488:
489: SELECT null INTO l_dummy
490: FROM sys.dual
491: WHERE EXISTS ( SELECT project_id
492: FROM pa_project_contacts
493: WHERE project_id = P_project_id
494: AND customer_id = l_customer_id
524: THEN
525: BEGIN
526: -- bug 4325231
527: -- SELECT null INTO l_dummy
528: -- FROM dual
529: -- WHERE EXISTS ( SELECT project_id
530: -- FROM pa_draft_invoices di, ra_contacts rc
531: -- WHERE di.project_id = p_project_id
532: -- AND di.draft_invoice_num = P_Draft_Invoice_Num
533: -- AND di.bill_to_contact_id = rc.contact_id
534: -- AND nvl(rc.status,'N') = 'A'
535: -- );
536: SELECT null INTO l_dummy
537: FROM dual
538: WHERE EXISTS ( SELECT project_id
539: FROM pa_draft_invoices di, hz_cust_account_roles rc
540: WHERE di.project_id = p_project_id
541: AND di.draft_invoice_num = P_Draft_Invoice_Num
577: IF (l_num_type = 'NUMERIC') THEN
578: BEGIN
579: select to_number(P_RA_Invoice_Num)
580: into l_dummy
581: from dual;
582: EXCEPTION
583: WHEN INVALID_NUMBER THEN
584: X_Error_Message_Code := 'PA_IN_ENT_NUM_INV_NUMBER';
585: GOTO all_done;