1 PACKAGE BODY AR_CMGT_PARAMS_HOOK_PKG AS
2 /*$Header: ARCMGPARB.pls 120.0.12010000.1 2010/03/02 09:20:39 appldev noship $*/
3
4 PG_DEBUG VARCHAR2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
5
6 /*===========================================================================+
7 * PROCEDURE *
8 * LOG() *
9 * DESCRIPTION *
10 * Writes the message to debug log. *
11 * SCOPE - LOCAL *
12 * ARGUMENTS *
13 * IN : p_msg - Message *
14 * OUT : NONE *
15 * RETURNS NONE *
16 * ALGORITHM *
17 * *
18 * NOTES - *
19 * *
20 * MODIFICATION HISTORY - 23/02/2010 - Created by RVIRIYAL *
21 * *
22 +===========================================================================*/
23 PROCEDURE log(p_msg IN VARCHAR2) IS
24 BEGIN
25 arp_standard.debug('ARCUSPARB' || p_msg || ' : ' || TO_CHAR(SYSDATE,'DD/MM/YY hh:mi:ss'));
26 END log;
27
28 /*===========================================================================+
29 * PROCEDURE *
30 * get_ocm_custom_param_value() *
31 * DESCRIPTION *
32 * This procedure is invoked from Credit Management Workflow Engine before *
33 * invoking the rules engine to retrive the value for a customer parameter. *
34 * This method is invoked for each of the custom parameter under Rule Object *
35 * Name OCM_CREDIT_ANALYST_ASSGN and retrive its value. Value retrived is the*
36 * out parameter for this procedure. Once the parameter value is retrived *
37 * in the calling Credit Management Workflow Engine,custom parameter and its *
38 * values are set in the Rules Engine to evaluate the rules. *
39 * *
40 * SCOPE - PUBLIC *
41 * ARGUMENTS *
42 * IN : p_credit_request_id *
43 * IN : p_custom_param_name *
44 * OUT : p_custom_param_value *
45 * *
46 * RETURNS NONE *
47 * NOTES - *
48 * MODIFICATION HISTORY - 23/02/2010 - Created by RVIRIYAL *
49 * *
50 +===========================================================================*/
51 PROCEDURE get_ocm_custom_param_value ( P_CREDIT_REQUEST_ID IN NUMBER
52 ,P_CUSTOM_PARAM_NAME IN VARCHAR2
53 ,P_CUSTOM_PARAM_VALUE OUT NOCOPY VARCHAR2) IS
54 BEGIN
55 IF PG_DEBUG IN ('Y', 'C') THEN
56 log('AR_CUSTOM_PARAMS_HOOK_PKG.get_ocm_custom_param_value()+');
57 log('P_CREDIT_REQUEST_ID : '||P_CREDIT_REQUEST_ID);
58 log('P_CUSTOM_PARAM_NAME : '||P_CUSTOM_PARAM_NAME);
59 END IF;
60
61 /**
62 * Code to retrive the custom param value for a given param name and
63 * credit Request Id that needs to be written by the user. Param Value
64 * retrived should be set in to the OUT variable P_CUSTOM_PARAM_VALUE
65 * START of the code to retrive the values
66 **/
67
68
69
70
71
72 /**
73 * END of the code to retrive the values.By this point, custom parameter
74 * value is retrived and set as the OUT parameter P_CUSTOM_PARAM_VALUE.
75 **/
76 IF PG_DEBUG IN ('Y', 'C') THEN
77 log('P_CUSTOM_PARAM_VALUE : '||P_CUSTOM_PARAM_VALUE);
78 log('AR_CUSTOM_PARAMS_HOOK_PKG.get_ocm_custom_param_value()-');
79
80 END IF;
81
82 END;
83
84
85 END AR_CMGT_PARAMS_HOOK_PKG;