[Home] [Help]
PACKAGE: APPS.OKC_TEST
Source
1 package OKC_TEST AUTHID CURRENT_USER AS
2 /* $Header: OKCTESTS.pls 115.4 2002/02/06 01:04:47 pkm ship $ */
3 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
4 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
5 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
6 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
7
8 PROCEDURE upd_comments(p_api_version IN NUMBER,
9 p_init_msg_list IN VARCHAR2,
10 p_old_kid IN NUMBER,
11 p_new_k_number IN VARCHAR2,
12 p_new_k_modifier IN VARCHAR2,
13 p_comments IN VARCHAR2,
14 x_msg_count OUT NUMBER,
15 x_msg_data OUT VARCHAR2,
16 x_return_status OUT VARCHAR2
17 );
18
19 FUNCTION party_exists (p_kid IN NUMBER
20 ,p_party_name IN VARCHAR2
21 ,p_role IN VARCHAR2)
22 RETURN VARCHAR2;
23
24 PROCEDURE proc1(p_val_1 IN VARCHAR2,
25 p_val_2 IN NUMBER,
26 p_val_3 IN DATE default null,
27 p_api_version IN NUMBER DEFAULT 1.0,
28 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_TRUE,
29 x_return_status OUT NOCOPY VARCHAR2,
30 x_msg_count OUT NOCOPY NUMBER,
31 x_msg_data OUT NOCOPY VARCHAR2);
32
33 FUNCTION func1 RETURN VARCHAR2;
34
35 End OKC_TEST;