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;