[Home] [Help]
1235: select nvl(sum(bill_quantity),0)
1236: from oke_k_billing_events e
1237: where Deliverable_Id = P_Deliverable_Id
1238: and exists ( Select 'Y'
1239: from pa_events p,pa_draft_invoice_items i
1240: where p.event_id=e.pa_event_id
1241: --and i.draft_inv_line_num_credited is null
1242: and p.event_num=i.event_num
1243: and p.project_id=i.project_id
1243: and p.project_id=i.project_id
1244: and nvl(p.task_id,0)=nvl(i.task_id,0)
1245: and exists( select 'X' from pa_draft_invoices_all iv
1246: where iv.project_id=i.project_id and iv.draft_invoice_num=i.draft_invoice_num and iv.canceled_flag='Y')
1247: and pa_events_pkg.is_event_billed(p.project_id,p.task_id,p.event_num,p.Bill_trans_bill_amount)='N');
1248:
1249: L_Can_qty Number;
1250:
1251:
2177: , project_id
2178: , task_id
2179: , rowid
2180: , bill_amount
2181: FROM pa_events
2182: WHERE event_id = p_PA_EVENT_ID;
2183:
2184: L_task_ID NUMBER;
2185: L_Event_Num NUMBER;
2229: FETCH EventNum INTO L_Event_Num, L_Project_ID, L_task_ID, L_RowID, L_Bill_Amount;
2230: CLOSE EventNum;
2231:
2232: IF L_RowID IS NOT NULL THEN
2233: IF ( PA_EVENTS_PKG.Is_Event_Billed
2234: ( L_Project_ID
2235: , L_Task_ID
2236: , L_Event_Num
2237: , L_Bill_Amount ) = 'Y')
2240: (p_app_name => g_app_name,
2241: p_msg_name => 'OKE_BILL_EVENT_PROCESSED_DEL'
2242: );
2243: raise OKE_API.G_EXCEPTION_ERROR;
2244: END IF; -- PA_EVENTS_PKG.Is_Event_Billed
2245: END IF; -- L_RowID is not null
2246: END IF; -- l_pa_event_id is not null
2247:
2248: -- delete billing info