2935:
2936: BEGIN
2937: mo_global.set_policy_context('S',OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_org_id); --Bug#7030452
2938: IF p_init_msg_list = G_TRUE THEN
2939: FND_MSG_PUB.initialize;
2940: END IF;
2941:
2942: OPEN c_get_leaseapp_template;
2943: FETCH c_get_leaseapp_template INTO lv_credit_rev_purpose, lv_credit_classification;
3016:
3017: BEGIN
3018: mo_global.set_policy_context('S',OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_org_id); --Bug#7030452
3019: IF p_init_msg_list = G_TRUE THEN
3020: FND_MSG_PUB.initialize;
3021: END IF;
3022:
3023: l_lap_dp_tbl := p_lap_dp_tbl;
3024:
3104:
3105: BEGIN
3106: mo_global.set_policy_context('S',OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.p_source_org_id); --Bug#7030452
3107: IF p_init_msg_list = G_TRUE THEN
3108: FND_MSG_PUB.initialize;
3109: END IF;
3110:
3111: FOR l_get_leaseapp_datapoints IN c_get_leaseapp_datapoints LOOP
3112: lap_dp_tbl(i).id := l_get_leaseapp_datapoints.id;