1: PACKAGE BODY HZ_MGD_MASS_UPDATE_REP_GEN AS
2: /* $Header: ARHCMURB.pls 120.4 2004/02/24 21:46:53 mraymond noship $ */
3:
4: /*+=======================================================================+
5: --| Copyright (c) 1999 Oracle Corporation |
45:
46: --===================
47: -- CONSTANTS
48: --===================
49: G_PKG_NAME CONSTANT VARCHAR2(30) := 'HZ_MGD_MASS_UPDATE_REP_GEN';
50: G_ORG_ID NUMBER := TO_NUMBER(FND_PROFILE.value('ORG_ID'));
51:
52: --===================
53: -- PUBLIC VARIABLES
59: g_log_level NUMBER := 5 ;
60: g_log_mode VARCHAR2(240) :=
61: NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N') ;
62:
63: g_exp_table HZ_MGD_MASS_UPDATE_REP_GEN.REPORT_EXP_TABLE;
64:
65:
66: --===================
67: -- PRIVATE PROCEDURES AND FUNCTIONS
243: WHEN no_data_found
244: THEN RETURN (null);
245:
246: WHEN OTHERS THEN
247: HZ_MGD_MASS_UPDATE_REP_GEN.log ( HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_EXCEPTION
248: , 'SQLERRM '|| SQLERRM) ;
249:
250: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
251: THEN
365: )
366: IS
367: BEGIN
368:
369: HZ_MGD_MASS_UPDATE_REP_GEN.log
370: ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
371: , p_msg => '>> Add_Exp_Item ' );
372:
373: g_rec_no:=g_exp_table.COUNT +1;
366: IS
367: BEGIN
368:
369: HZ_MGD_MASS_UPDATE_REP_GEN.log
370: ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
371: , p_msg => '>> Add_Exp_Item ' );
372:
373: g_rec_no:=g_exp_table.COUNT +1;
374:
375: g_exp_table(g_rec_no).party:=p_party;
376: g_exp_table(g_rec_no).customer:=p_customer;
377: g_exp_table(g_rec_no).site:=p_site;
378:
379: HZ_MGD_MASS_UPDATE_REP_GEN.log
380: ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
381: , p_msg => '<< Add_Exp_Item ' );
382:
383: END Add_Exp_Item;
376: g_exp_table(g_rec_no).customer:=p_customer;
377: g_exp_table(g_rec_no).site:=p_site;
378:
379: HZ_MGD_MASS_UPDATE_REP_GEN.log
380: ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
381: , p_msg => '<< Add_Exp_Item ' );
382:
383: END Add_Exp_Item;
384: --====================
416:
417:
418: BEGIN
419:
420: HZ_MGD_MASS_UPDATE_REP_GEN.log
421: ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
422: , p_msg => '>> Generate_Report ' );
423:
424: -------Getting Profile Class Name, operating Unit Name---------------
417:
418: BEGIN
419:
420: HZ_MGD_MASS_UPDATE_REP_GEN.log
421: ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
422: , p_msg => '>> Generate_Report ' );
423:
424: -------Getting Profile Class Name, operating Unit Name---------------
425:
422: , p_msg => '>> Generate_Report ' );
423:
424: -------Getting Profile Class Name, operating Unit Name---------------
425:
426: HZ_MGD_MASS_UPDATE_REP_GEN.log
427: ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
428: , p_msg => ' Getting Profile Class Name, operating Unit Name '
429: );
430:
423:
424: -------Getting Profile Class Name, operating Unit Name---------------
425:
426: HZ_MGD_MASS_UPDATE_REP_GEN.log
427: ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
428: , p_msg => ' Getting Profile Class Name, operating Unit Name '
429: );
430:
431: BEGIN
436: FROM
437: hz_cust_profile_classes
438: WHERE profile_class_id =p_prof_class_id;
439:
440: -- HZ_MGD_MASS_UPDATE_REP_GEN.log
441: -- ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
442: -- , p_msg => 'Profile Class Name= '||l_profile_class
443: -- );
444:
437: hz_cust_profile_classes
438: WHERE profile_class_id =p_prof_class_id;
439:
440: -- HZ_MGD_MASS_UPDATE_REP_GEN.log
441: -- ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
442: -- , p_msg => 'Profile Class Name= '||l_profile_class
443: -- );
444:
445: EXCEPTION
458: FROM
459: hr_operating_units
460: WHERE organization_id=G_ORG_ID;
461:
462: HZ_MGD_MASS_UPDATE_REP_GEN.log
463: ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
464: , p_msg => 'operating Unit Name= '||l_operating_unit
465: );
466:
459: hr_operating_units
460: WHERE organization_id=G_ORG_ID;
461:
462: HZ_MGD_MASS_UPDATE_REP_GEN.log
463: ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
464: , p_msg => 'operating Unit Name= '||l_operating_unit
465: );
466:
467: EXCEPTION
469: THEN
470:
471: l_no_data:='Y';
472:
473: HZ_MGD_MASS_UPDATE_REP_GEN.log
474: ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
475: , p_msg => 'NO_DATA_FOUND '
476: );
477: END;
470:
471: l_no_data:='Y';
472:
473: HZ_MGD_MASS_UPDATE_REP_GEN.log
474: ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
475: , p_msg => 'NO_DATA_FOUND '
476: );
477: END;
478:
678: )
679: ||' ******'
680: );
681:
682: HZ_MGD_MASS_UPDATE_REP_GEN.log
683: ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
684: , p_msg => '<< Generate_Report ' );
685:
686: END Generate_Report;
679: ||' ******'
680: );
681:
682: HZ_MGD_MASS_UPDATE_REP_GEN.log
683: ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
684: , p_msg => '<< Generate_Report ' );
685:
686: END Generate_Report;
687:
684: , p_msg => '<< Generate_Report ' );
685:
686: END Generate_Report;
687:
688: END HZ_MGD_MASS_UPDATE_REP_GEN;