1 package okc_status_change_pvt AUTHID CURRENT_USER as
2 /*$Header: OKCRSTSS.pls 120.0 2005/05/26 09:56:40 appldev noship $*/
3
4 -- GLOBAL VARIABLES
5 ---------------------------------------------------------------------------
6 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
7 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
8 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
9 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
10 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_STATUS_CHANGE_PVT';
11 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
12 G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
13 G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
14 ---------------------------------------------------------------------------
15 -- Global var holding the User Id
16 user_id NUMBER;
17
18 -- Global var to hold the ERROR value
19 ERROR NUMBER := 1;
20
21 -- Global var to hold the SUCCESS value
22 SUCCESS NUMBER := 0;
23
24 -- Global var holding the Current Error code for the error encountered
25 Current_Error_Code Varchar2(20) := NULL;
26
27 -- Global var to hold the Concurrent Process return values
28 conc_ret_code NUMBER := SUCCESS;
29 v_retcode NUMBER := SUCCESS;
30 CONC_STATUS BOOLEAN;
31
32
33 procedure change_status (
34 ERRBUF OUT NOCOPY VARCHAR2,
35 RETCODE OUT NOCOPY NUMBER,
36 p_category IN VARCHAR2 default null,
37 p_from_k IN VARCHAR2 default null,
38 p_to_k IN VARCHAR2 default null,
39 p_from_m IN VARCHAR2 default null,
40 p_to_m IN VARCHAR2 default null,
41 p_debug IN VARCHAR2 default 'N',
42 p_last_rundate IN VARCHAR2 default null );
43
44 END okc_status_change_pvt;