[Home] [Help]
1: Package Body JTF_TERR_ENGINE_GEN2_PVT AS
2: /* $Header: jtfvtseb.pls 120.0 2005/06/02 18:23:03 appldev ship $ */
3: -- Start of Comments
4: -- ---------------------------------------------------
5: -- PACKAGE NAME: JTF_TERR_ENGINE_GEN_PVT
128:
129: BEGIN
130: --dbms_output.put_line('Inside Call_Create_Package PACKAGE_NAME - ' || package_name || ' g_pointer - ' || to_char(g_pointer - 1) || is_package_body || is_package_body);
131: If G_Debug Then
132: Write_Log(1, 'INSIDE PROCEDURE JTF_TERR_ENGINE_GEN2_PVT.Call_Create_Package: PACKAGE_NAME = ' || package_name );
133: End If;
134:
135:
136: l_result := fnd_installation.get_app_info('FND',
191:
192: v_package_name := LOWER (p_package_name);
193:
194: If G_Debug Then
195: Write_Log(1, 'INSIDE PROCEDURE JTF_TERR_ENGINE_GEN2_PVT.generate_package_header: v_package_name = ' || v_package_name );
196: End If;
197:
198: /* -- The description was commented out as part of AD_DDL error
199: -- that caused others exception.
244:
245: v_package_name := LOWER (p_package_name);
246:
247: If G_Debug Then
248: Write_Log(1, 'INSIDE PROCEDURE JTF_TERR_ENGINE_GEN2_PVT.generate_end_of_package: v_package_name = ' || v_package_name );
249: End If;
250:
251: Add_To_PackageTable (' ' );
252: Add_To_PackageTable ('END ' || v_package_name || ';');
271:
272: BEGIN
273:
274: If G_Debug Then
275: Write_Log(1, 'INSIDE PROCEDURE JTF_TERR_ENGINE_GEN2_PVT.generate_end_of_procedure: p_procedure_name = ' || p_procedure_name );
276: End If;
277:
278: lp_pkg_name := 'JTF_TERR_' || TO_CHAR(ABS(p_source_id)) || '_' || p_qual_type || '_DYN';
279:
355: IS
356: BEGIN
357:
358: If G_Debug Then
359: Write_Log(1, 'INSIDE PROCEDURE JTF_TERR_ENGINE_GEN2_PVT.generate_object_definition: procedure_name = ' || procedure_name );
360: End If;
361:
362: -- Generate procedure header and parameters in both spec and body
363: IF (procedure_type = 'P')
468: --dbms_output.put_line('Inside build_rule_expression ');
469:
470: If G_Debug Then
471: Write_Log(2, ' ');
472: Write_Log(2, 'INSIDE PROCEDURE JTF_TERR_ENGINE_GEN2_PVT.build_qualifier_rules:');
473: Write_Log(2, ' source_id - ' || TO_CHAR(p_Source_Id) );
474: Write_Log(2, ' qual_type_id - ' || TO_CHAR(p_qual_type_id) );
475: Write_Log(2, ' ');
476: End If;
557: BEGIN
558: --dbms_output.put_line('gen_terr_rules_recurse.p_search_name: ' || p_search_name);
559:
560: IF G_Debug THEN
561: Write_Log(1, 'INSIDE PROCEDURE JTF_TERR_ENGINE_GEN2_PVT.gen_terr_rules_recurse');
562: END IF;
563:
564: --dbms_output.put_line('Value of p_qualifier_type_id='|| l_indent||TO_CHAR(p_qualifier_type_id));
565:
1399: l_mv5_count NUMBER;
1400: l_mv6_count NUMBER;
1401:
1402: BEGIN
1403: --dbms_output.put_line('JTF_TERR_ENGINE_GEN2_PVT.generate_api ');
1404: -- Initialize Global variables
1405: G_Debug := FALSE;
1406:
1407: /* ACHANDA 03/08/2004 : Bug 3380047 : some of the dynamic packages are */
1457: START WITH jt.terr_id = jt1.terr_id)
1458: AND jqtu.qual_type_id <> -1001
1459: AND rownum < 2;
1460:
1461: --dbms_output.put_line('JTF_TERR_ENGINE_GEN2_PVT:' || num_of_terr);
1462: EXCEPTION
1463: WHEN NO_DATA_FOUND Then
1464: num_of_terr := 0;
1465: END;
1495: CONNECT BY PRIOR jt.parent_territory_id = jt.terr_id AND jt.terr_id <> 1
1496: START WITH jt.terr_id = jt1.terr_id)
1497: AND jqtu.qual_type_id <> -1001;
1498:
1499: --dbms_output.put_line('JTF_TERR_ENGINE_GEN2_PVT:' || num_of_terr);
1500: EXCEPTION
1501: WHEN NO_DATA_FOUND Then
1502: num_of_terr := 0;
1503: END;
1664: ERRBUF := 'Program terminated with OTHERS exception. ' || SQLERRM;
1665: RETCODE := 2;
1666: END generate_api;
1667:
1668: END JTF_TERR_ENGINE_GEN2_PVT;