1 Package okl_jtot_contact_extract_pvt AUTHID CURRENT_USER as
2 /* $Header: OKLRJCXS.pls 115.3 2003/09/23 14:21:05 kthiruva noship $ */
3 --HERE jtot extract BEGIN
4 TYPE party_rec_type is record (rle_code OKC_K_PARTY_ROLES_V.RLE_CODE%TYPE := OKC_API.G_MISS_CHAR,
5 id1 OKC_K_PARTY_ROLES_V.OBJECT1_ID1%TYPE := OKC_API.G_MISS_CHAR,
6 id2 OKC_K_PARTY_ROLES_V.OBJECT1_ID2%TYPE := OKC_API.G_MISS_CHAR,
7 name VARCHAR2(250) := OKC_API.G_MISS_CHAR,
8 description VARCHAR2(250) := OKC_API.G_MISS_CHAR,
9 object_code VARCHAR2(30) := OKC_API.G_MISS_CHAR);
10 TYPE party_tab_type is table of party_rec_type INDEX BY BINARY_INTEGER;
11 TYPE rle_code_rec_type is record (scs_code OKC_SUBCLASS_ROLES.SCS_CODE%TYPE := OKC_API.G_MISS_CHAR,
12 rle_code OKC_SUBCLASS_ROLES.RLE_CODE%TYPE := OKC_API.G_MISS_CHAR);
13 TYPE rle_code_tbl_type is table of rle_code_rec_type INDEX BY BINARY_INTEGER;
14
15 --Start of Comments
16 --API Name : Get_Party
17 --Description : Fetches all parties attahced to a contract or line in a table
18 --End of Comments
19 Procedure Get_Party (p_api_version IN NUMBER,
20 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
21 x_return_status OUT NOCOPY VARCHAR2,
22 x_msg_count OUT NOCOPY NUMBER,
23 x_msg_data OUT NOCOPY VARCHAR2,
24 p_chr_id IN VARCHAR2,
25 p_cle_id IN VARCHAR2,
26 p_role_code IN OKC_K_PARTY_ROLES_V.rle_code%Type,
27 p_intent IN VARCHAR2 default 'S',
28 x_party_tab OUT NOCOPY party_tab_type);
29
30 --Start of Comments
31 --Procedure : Get_Party
32 --Description : Fetches Name, Description of a Party role for a given
33 -- object1_id1 and object2_id2
34 --End of comments
35 Procedure Get_Party (p_api_version IN NUMBER,
36 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
37 x_return_status OUT NOCOPY VARCHAR2,
38 x_msg_count OUT NOCOPY NUMBER,
39 x_msg_data OUT NOCOPY VARCHAR2,
40 p_role_code IN VARCHAR2,
41 p_intent IN VARCHAR2,
42 p_id1 IN VARCHAR2,
43 p_id2 IN VARCHAR2,
44 x_id1 OUT NOCOPY VARCHAR2,
45 x_id2 OUT NOCOPY VARCHAR2,
46 x_name OUT NOCOPY VARCHAR2,
47 x_description OUT NOCOPY VARCHAR2);
48 Procedure Get_SubClass_Def_Roles
49 (p_scs_code IN OKC_SUBCLASSES_V.CODE%TYPE,
50 x_rle_code_tbl OUT NOCOPY rle_code_tbl_type);
51 Procedure Get_Contract_Def_Roles
52 (p_chr_id IN VARCHAR2,
53 x_rle_code_tbl OUT NOCOPY rle_code_tbl_type);
54
55 -- HERE jtot extract END
56
57 --Start of Comments
58 --Procedure : Get contact
59 --Description : Returns the SQL string for LOV of a contact
60 --End of Comments
61 TYPE contact_rec_type is record (cro_code OKC_CONTACTS_V.cro_code%TYPE := OKC_API.G_MISS_CHAR,
62 id1 OKC_CONTACTS_V.OBJECT1_ID1%TYPE := OKC_API.G_MISS_CHAR,
63 id2 OKC_CONTACTS_V.OBJECT1_ID2%TYPE := OKC_API.G_MISS_CHAR,
64 name VARCHAR2(250) := OKC_API.G_MISS_CHAR,
65 description VARCHAR2(250) := OKC_API.G_MISS_CHAR,
66 object_code VARCHAR2(30) := OKC_API.G_MISS_CHAR);
67 TYPE contact_tab_type is table of contact_rec_type INDEX BY BINARY_INTEGER;
68 /*Procedure get_contact (
69 p_rle_code IN VARCHAR2,
70 p_cro_code IN VARCHAR2,
71 p_intent IN VARCHAR2 DEFAULT 'S',
72 p_id1 IN VARCHAR2,
73 p_id2 IN VARCHAR2,
74 p_name IN VARCHAR2,
75 x_select_clause OUT NOCOPY VARCHAR2,
76 x_from_clause OUT NOCOPY VARCHAR2,
77 x_where_clause OUT NOCOPY VARCHAR2,
78 x_order_by_clause OUT NOCOPY VARCHAR2,
79 x_object_code OUT NOCOPY VARCHAR2); */
80 Procedure Get_Contact(p_api_version IN NUMBER,
81 p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
82 x_return_status OUT NOCOPY VARCHAR2,
83 x_msg_count OUT NOCOPY NUMBER,
84 x_msg_data OUT NOCOPY VARCHAR2,
85 p_rle_code IN VARCHAR2,
86 p_cro_code IN VARCHAR2,
87 p_intent IN VARCHAR2,
88 p_id1 IN VARCHAR2,
89 p_id2 IN VARCHAR2,
90 x_id1 OUT NOCOPY VARCHAR2,
91 x_id2 OUT NOCOPY VARCHAR2,
92 x_name OUT NOCOPY VARCHAR2,
93 x_description OUT NOCOPY VARCHAR2);
94 End;