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,
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
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;
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;
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:
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;