[Home] [Help]
1: PACKAGE BODY CLN_CH_COLLABORATION_PKG AS
2: /* $Header: ECXCHCHB.pls 120.4 2006/06/30 07:48:51 susaha noship $ */
3: l_debug_level NUMBER := to_number(nvl(fnd_profile.value('CLN_DEBUG_LEVEL'), '5'));
4:
5: -- Package
6: -- CLN_CH_COLLABORATION_PKG
7: --
1033: l_error_msg VARCHAR2(2000);
1034: l_msg_data VARCHAR2(2000);
1035: l_msg_text VARCHAR2(2000);
1036: l_debug_mode VARCHAR2(255);
1037: l_fnd_profile VARCHAR2(100);
1038: l_protocol_type VARCHAR2(5);
1039: l_update_reqd BOOLEAN;
1040: l_xmlg_internal_control_number NUMBER;
1041: l_xmlg_msg_id VARCHAR2(100);
3119: l_error_code NUMBER;
3120: l_msg_data VARCHAR2(2000);
3121: l_error_msg VARCHAR2(2000);
3122: l_debug_mode VARCHAR2(255);
3123: l_fnd_profile VARCHAR2(100);
3124: l_protocol_type VARCHAR2(50);
3125: l_hub_user_id VARCHAR2(50);
3126:
3127: BEGIN
3161:
3162:
3163:
3164: -- Check for Profile value
3165: l_fnd_profile :=FND_PROFILE.VALUE('CLN_UPDATION');
3166:
3167: IF(l_fnd_profile = 'NEVER') THEN
3168: IF (l_Debug_Level <= 1) THEN
3169: ecx_cln_debug_pub.Add('Profile Value - CLN_UPDATION found as NEVER',1);
3163:
3164: -- Check for Profile value
3165: l_fnd_profile :=FND_PROFILE.VALUE('CLN_UPDATION');
3166:
3167: IF(l_fnd_profile = 'NEVER') THEN
3168: IF (l_Debug_Level <= 1) THEN
3169: ecx_cln_debug_pub.Add('Profile Value - CLN_UPDATION found as NEVER',1);
3170: END IF;
3171:
3177: ecx_cln_debug_pub.Add('Collaboration need not be created/updated',1);
3178: END IF;
3179:
3180: Return;
3181: ELSIF(l_fnd_profile = 'ROSETTANET') THEN
3182: IF (l_Debug_Level <= 1) THEN
3183: ecx_cln_debug_pub.Add('Profile Value - CLN_UPDATION found as ROSETTANET',1);
3184: END IF;
3185: