PACKAGE BODY: APPS.PO_CLM_CAR_SEC

Source

1 PACKAGE BODY "PO_CLM_CAR_SEC" AS
2 /* $Header: POCARSCB.pls 120.2 2010/07/06 21:49:01 pochang noship $ */
3 PROCEDURE get_fpds_site_info
4 (
5     p_agency_id IN VARCHAR2,
6     x_site_id OUT NOCOPY VARCHAR2,
7     x_pwd OUT NOCOPY VARCHAR2
8 ) IS
9 BEGIN
10   SELECT SITE_ID
11   INTO x_site_id
12   FROM PO_CLM_AGENCIES
13   WHERE AGENCY_ID = p_agency_id;
14 
15   DBMS_SESSION.SET_CONTEXT('PO_CLM_CAR_SEC_CTX', 'PO_CLM_CAR_SEC_ATTR','Y');
16   x_pwd := fnd_vault.get('PO', x_site_id);
17   DBMS_SESSION.SET_CONTEXT('PO_CLM_CAR_SEC_CTX', 'PO_CLM_CAR_SEC_ATTR','N');
18 
19 EXCEPTION
20   WHEN OTHERS THEN
21     x_site_id := null;
22     x_pwd := null;
23 END;
24 
25 PROCEDURE set_fpds_site_info
26 (
27     p_site_id IN VARCHAR2,
28     p_pwd IN VARCHAR2
29 ) IS
30 BEGIN
31 
32   DBMS_SESSION.SET_CONTEXT('PO_CLM_CAR_SEC_CTX', 'PO_CLM_CAR_SEC_ATTR','Y');
33   fnd_vault.puts('PO', p_site_id, p_pwd, 'PO_CLM_CAR_SEC_CTX.PO_CLM_CAR_SEC_ATTR');
34   DBMS_SESSION.SET_CONTEXT('PO_CLM_CAR_SEC_CTX', 'PO_CLM_CAR_SEC_ATTR','N');
35 
36 END;
37 
38 END;
39