DBA Data[Home] [Help]

PACKAGE BODY: APPS.PA_CLIENT_EXTN_RETENTION

Source


1 package body PA_Client_Extn_Retention as
2 /* $Header: PAXBRTCB.pls 120.2 2005/08/19 17:09:50 mwasowic noship $ */
3 
4  /*----------------------------------------------------------------------+
5   |                Retention Billing Template                            |
6   +----------------------------------------------------------------------*/
7 Procedure Bill_Retention (
8 			  P_Customer_ID                 in  number,
9                           P_Project_ID                  in  number,
10                           P_Top_Task_ID                 in  number,
11                           X_Bill_Retention_Flag        out NOCOPY varchar2, --File.Sql.39 bug 4440895
12                           X_Bill_Percentage             out NOCOPY number, --File.Sql.39 bug 4440895
13                           X_Bill_Amount                 out NOCOPY number, --File.Sql.39 bug 4440895
14                           X_Status                      out NOCOPY number    ) is --File.Sql.39 bug 4440895
15    BEGIN
16 	-- Reset the output parameters.
17 	X_status := 0;
18 
19 	-- This extension will be called only if the billing method is chosen as
20         -- 'Client Extension' in the retention setup for a customer, project and top task
21         -- Add your Retention Billing Logic here.
22 	-- If you want to bill the retention set the X_Bill_retention_flag to 'N'.
23 	-- If it's null or set to 'N', Billing of retention will not be Done.
24         -- Do not add 'commit' or 'rollback' in your code, since Oracle
25         -- Projects controls the transaction for you.
26 
27    EXCEPTION
28 	when others then
29              X_Bill_Retention_Flag   := NULL; --NOCOPY
30              X_Bill_Percentage       := NULL; --NOCOPY
31              X_Bill_Amount           := NULL; --NOCOPY
32         -- Add your exception handler here.
33 	-- To raise an application error, assign a positive number to X_Status.
34 	-- To raise an ORACLE error, assign SQLCODE to X_Status.
35 	RAISE;
36 
37    END Bill_Retention;
38 
39 
40 end PA_Client_Extn_Retention;