1 package body PA_Client_Extn_RTE as
2 /* $Header: PAXTRT1B.pls 120.2 2006/06/26 23:05:28 eyefimov noship $ */
3
4 PROCEDURE check_approval
5 ( X_Expenditure_Id In Number,
6 X_Incurred_By_Person_Id In Number,
7 X_Expenditure_End_Date In Date,
8 X_Exp_Class_Code In Varchar2,
9 X_Amount In Number,
10 X_Approver_Id In Number,
11 X_Routed_To_Mode In Varchar2,
12 P_Timecard_Table IN Pa_Otc_Api.Timecard_Table Default PA_CLIENT_EXTN_RTE.dummy,
13 P_Module IN VARCHAR2 DEFAULT NULL,
14 X_Status Out NOCOPY Number,
15 X_Application_Id Out NOCOPY Varchar2,
16 X_Message_Code Out NOCOPY Varchar2,
17 X_Token_1 Out NOCOPY Varchar2,
18 X_Token_2 Out NOCOPY Varchar2,
19 X_Token_3 Out NOCOPY Varchar2,
20 X_Token_4 Out NOCOPY Varchar2,
21 X_Token_5 Out NOCOPY Varchar2 )
22 IS
23
24 -- Declare your local variables here
25
26 BEGIN
27
28 /*
29 This client extension contains no default code, but can be used by customers
30 to review and approve expenditures based on delivered values and pass back
31 message if final authority for approver does not exist.
32
33 The mandatory OUT Parameter x_indicates the return status of the API.
34 The following values are valid:
35
36 = 0 Approver had final authority to approve the expenditure.
37 < 0 Unexpected error occurred in extension
38 > 0 Approver did not have the final authority to approve the expenditure.
39 */
40
41 -- Initialize output parameters
42 X_Status := 0;
43 X_message_code := NULL ;
44 X_Application_Id := NULL ;
45 X_Token_1 := NULL ; -- Token Name => 'TOKEN_1'
46 X_Token_2 := NULL ; -- Token Name => 'TOKEN_2'
47 X_Token_3 := NULL ; -- Token Name => 'TOKEN_3'
48 X_Token_4 := NULL ; -- Token Name => 'TOKEN_4'
49 X_Token_5 := NULL ; -- Token Name => 'TOKEN_5'
50
51 -- Define your business rules here
52
53 EXCEPTION
54 WHEN OTHERS THEN
55 -- Define your exception handler here.
56 -- To raise an ORACLE error, assign SQLCODE to x_status.
57 X_status := SQLCODE;
58 END check_approval;
59
60
61 END PA_CLIENT_EXTN_RTE;