1 Package OKL_JTOT_EXTRACT AUTHID CURRENT_USER as
2 /* $Header: OKLRJEXS.pls 115.7 2003/09/23 14:21:19 kthiruva noship $ */
3 --------------------------------------------------------------------------------
4 --Global Variables
5 --------------------------------------------------------------------------------
6 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_JTOT_EXTRACT';
7 G_API_TYPE CONSTANT VARCHAR2(200) := '_PVT';
8 G_APP_NAME CONSTANT VARCHAR2(200) := 'OKL';
9
10 TYPE party_rec_type is record (rle_code OKC_K_PARTY_ROLES_V.RLE_CODE%TYPE := OKL_API.G_MISS_CHAR,
11 id1 OKC_K_PARTY_ROLES_V.OBJECT1_ID1%TYPE := OKL_API.G_MISS_CHAR,
12 id2 OKC_K_PARTY_ROLES_V.OBJECT1_ID2%TYPE := OKL_API.G_MISS_CHAR,
13 name VARCHAR2(250) := OKL_API.G_MISS_CHAR,
14 description VARCHAR2(250) := OKL_API.G_MISS_CHAR,
15 object_code VARCHAR2(30) := OKL_API.G_MISS_CHAR);
16 TYPE party_tab_type is table of party_rec_type INDEX BY BINARY_INTEGER;
17 TYPE rle_code_rec_type is record (scs_code OKC_SUBCLASS_ROLES.SCS_CODE%TYPE := OKL_API.G_MISS_CHAR,
18 rle_code OKC_SUBCLASS_ROLES.RLE_CODE%TYPE := OKL_API.G_MISS_CHAR);
19 TYPE rle_code_tbl_type is table of rle_code_rec_type INDEX BY BINARY_INTEGER;
20
21 --Start of Comments
22 --API Name : Get_Party
23 --Description : Fetches all parties attahced to a contract or line in a table
24 --End of Comments
25 Procedure Get_Party (
26 p_api_version IN NUMBER,
27 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
28 x_return_status OUT NOCOPY VARCHAR2,
29 x_msg_count OUT NOCOPY NUMBER,
30 x_msg_data OUT NOCOPY VARCHAR2,
31 p_chr_id IN VARCHAR2,
32 p_cle_id IN VARCHAR2,
33 p_role_code IN OKC_K_PARTY_ROLES_V.rle_code%Type,
34 p_intent IN VARCHAR2 default 'S',
35 x_party_tab OUT NOCOPY party_tab_type
36 );
37 --Start of Comments
38 --Procedure : Get_Party
39 --Description : Fetches Name, Description of a Party role for a given
40 -- object1_id1 and object2_id2
41 --End of comments
42 Procedure Get_Party (p_api_version IN NUMBER,
43 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
44 x_return_status OUT NOCOPY VARCHAR2,
45 x_msg_count OUT NOCOPY NUMBER,
46 x_msg_data OUT NOCOPY VARCHAR2,
47 p_role_code IN VARCHAR2,
48 p_intent IN VARCHAR2,
49 p_id1 IN VARCHAR2,
50 p_id2 IN VARCHAR2,
51 x_id1 OUT NOCOPY VARCHAR2,
52 x_id2 OUT NOCOPY VARCHAR2,
53 x_name OUT NOCOPY VARCHAR2,
54 x_description OUT NOCOPY VARCHAR2);
55 --Start of Comments
56 --Procedure : Get_Subclass_Def_Roles
57 --Description : fetches Party Roles for a Subclass
58 --End of Comments
59 Procedure Get_SubClass_Def_Roles
60 (p_api_version IN NUMBER,
61 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
62 x_return_status OUT NOCOPY VARCHAR2,
63 x_msg_count OUT NOCOPY NUMBER,
64 x_msg_data OUT NOCOPY VARCHAR2,
65 p_scs_code IN OKC_SUBCLASSES_V.CODE%TYPE,
66 x_rle_code_tbl OUT NOCOPY rle_code_tbl_type);
67 --Start of Comments
68 --Procedure : Get_Contract_Def
69 --Description : fetches Party Roles for a contract
70 --End of Comments
71 Procedure Get_Contract_Def_Roles
72 (p_api_version IN NUMBER,
73 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
74 x_return_status OUT NOCOPY VARCHAR2,
75 x_msg_count OUT NOCOPY NUMBER,
76 x_msg_data OUT NOCOPY VARCHAR2,
77 p_chr_id IN VARCHAR2,
78 x_rle_code_tbl OUT NOCOPY rle_code_tbl_type);
79 --Start of Comments
80 --Procedure : Get_Contract
81 --Description : fetches Contact Role Clause for a contract
82 --End of Comments
83 Procedure Get_Contact(
84 p_api_version IN NUMBER,
85 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
86 x_return_status OUT NOCOPY VARCHAR2,
87 x_msg_count OUT NOCOPY NUMBER,
88 x_msg_data OUT NOCOPY VARCHAR2,
89 p_role_code IN VARCHAR2,
90 p_contact_code IN VARCHAR2,
91 p_intent IN VARCHAR2 DEFAULT 'S',
92 p_id1 IN VARCHAR2,
93 p_id2 IN VARCHAR2,
94 p_name IN VARCHAR2,
95 x_select_clause OUT NOCOPY VARCHAR2,
96 x_from_clause OUT NOCOPY VARCHAR2,
97 x_where_clause OUT NOCOPY VARCHAR2,
98 x_order_by_clause OUT NOCOPY VARCHAR2,
99 x_object_code OUT NOCOPY VARCHAR2);
100 End OKL_JTOT_EXTRACT;