PACKAGE BODY: APPS.OKS_QPATTRIB_PVT

Source

1 PACKAGE BODY OKS_QPATTRIB_PVT AS
2 /* $Header: OKSRSQPB.pls 120.0 2005/05/25 18:07:38 appldev noship $ */
3 
4 --  PROCEDURES /FUNCTIONS
5 --  QUALIFIER
6 
7 FUNCTION GET_ACCOUNT_TYPE(p_chr_id IN NUMBER) RETURN QP_ATTR_MAPPING_PUB.T_MULTIRECORD
8 IS
9 
10    l_acc_type_tbl       QP_ATTR_MAPPING_PUB.T_MULTIRECORD;
11    l_customer_id        Number;
12 
13 BEGIN
14 /*
15      Begin
16       Select st.cust_account_id into l_customer_id
17       From   hz_cust_site_uses_all  su,
18              hz_cust_acct_sites_all st,
19              okc_k_headers_b        kh
20       Where  site_use_id = kh.BILL_TO_SITE_USE_ID     and
21              su.cust_acct_site_id = st.cust_acct_site_id and
22              kh.id = p_chr_id;
23       Exception
24       When Others Then
25              l_customer_id := Null;
26      End;
27      Begin
28       Select distinct customer_profile_class_id bulk collect into l_acc_type_tbl
29       From   ar_customer_profiles
30       Where  customer_id = l_customer_id;
31 
32       Return l_acc_type_tbl;
33       Exception
34       When Others Then
35        Return l_acc_type_tbl;
36      End;
37 */
38 Null;
39 END GET_ACCOUNT_TYPE;
40 
41 FUNCTION GET_AGREEMENT_NAME (p_chr_id IN NUMBER) RETURN VARCHAR2
42 IS
43    l_agreement_name Varchar2(250);
44 BEGIN
45    Null;
46 END GET_AGREEMENT_NAME;
47 
48 FUNCTION GET_GSA (p_chr_id IN NUMBER) RETURN VARCHAR2
49 IS
50    l_agreement_name Varchar2(250);
51 BEGIN
52    Null;
53 END GET_GSA;
54 
55 
56 FUNCTION GET_PARTY_ID (p_chr_id IN NUMBER) RETURN NUMBER IS
57  CURSOR l_party_csr Is select object1_id1 from okc_k_party_roles_b where chr_id = p_chr_id and rle_code = 'CUSTOMER';
58  l_party_id Number  := Null;
59 BEGIN
60 
61  Open   l_party_csr;
62  Fetch  l_party_csr Into l_party_id;
63  Close  l_party_csr;
64  Return l_party_id;
65 
66  Exception
67  When Others Then
68       Return Null;
69 END GET_PARTY_ID;
70 
71 
72 END OKS_QPATTRIB_PVT;