[Home] [Help]
PACKAGE BODY: APPS.HZ_MGD_MASS_UPDATE_CP
Source
1 PACKAGE BODY HZ_MGD_MASS_UPDATE_CP AS
2 /* $Header: ARHCMUCB.pls 120.2 2005/06/30 04:46:18 bdhotkar noship $*/
3 /*+=======================================================================+
4 --| Copyright (c) 1998 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| ARHCMUCB.pls |
10 --| |
11 --| DESCRIPTION |
12 --| Body of concurrent program package HZ_MGD_MASS_UPDATE_CP |
13 --| |
14 --| PROCEDURE LIST |
15 --| Run_Mass_Update_Credit_Usages |
16 --| |
17 --| HISTORY |
18 --| 05/14/2002 tsimmond Created |
19 --| 11/27/2002 tsimmond Updated Added WHENEVER OSERROR EXIT |
20 --| FAILURE ROLLBACK |
21 --| |
22 --+======================================================================*/
23
24
25 --========================================================================
26 -- PROCEDURE : Run_Mass_Update_Credit_Usages PUBLIC
27 -- PARAMETERS: p_profile_class_id Profile Class ID
28 -- p_currency_code Currency Code
29 -- p_profile_class_amount_id
30 -- p_release OLD or NEW(is when AR Credit Management
31 -- is installed)
32 -- x_errbuf error buffer
33 -- x_retcode 0 success, 1 warning, 2 error
34 --
35 -- COMMENT : This is the concurrent program for mass update update credit usages
36 --
37 --========================================================================
38 PROCEDURE Run_Mass_Update_Credit_Usages
39 ( x_errbuf OUT NOCOPY VARCHAR2
40 , x_retcode OUT NOCOPY VARCHAR2
41 , p_profile_class_id IN NUMBER
42 , p_currency_code IN VARCHAR2
43 , p_profile_class_amount_id IN NUMBER
44 , p_release IN VARCHAR2
45 )
46 IS
47 l_errbuf VARCHAR2(2000);
48 l_retcode VARCHAR2(2000);
49
50 BEGIN
51 -- initialize the message stack
52 FND_MSG_PUB.Initialize;
53
54
55 HZ_MGD_MASS_UPDATE_REP_GEN.Initialize;
56
57 HZ_MGD_MASS_UPDATE_REP_GEN.log( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
58 , p_msg => '>> Run_Mass_Update_Credit_Usages');
59
60 -----assigning p_release to the global G_RELEASE
61 HZ_MGD_MASS_UPDATE_REP_GEN.log
62 ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
63 , p_msg => 'assigning p_release to the global G_RELEASE='
64 ||p_release
65 );
66
67 HZ_MGD_MASS_UPDATE_CP.G_RELEASE:=p_release;
68
69 HZ_MGD_MASS_UPDATE_REP_GEN.log
70 ( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
71 , p_msg => 'p_profile_class_id='||TO_CHAR(p_profile_class_id)
72 ||'p_currency_code='||p_currency_code
73 );
74
75
76 HZ_MGD_MASS_UPDATE_MEDIATOR.Mass_Update_Usage_Rules
77 ( p_profile_class_id => p_profile_class_id
78 , p_currency_code => p_currency_code
79 , p_profile_class_amount_id => p_profile_class_amount_id
80 , x_errbuf => l_errbuf
81 , x_retcode => l_retcode
82 );
83
84 COMMIT;
85
86 -- Print the Report
87 HZ_MGD_MASS_UPDATE_REP_GEN.Generate_Report
88 ( p_prof_class_id => p_profile_class_id
89 , p_currency_code => p_currency_code
90 , p_profile_class_amount_id => p_profile_class_amount_id
91 );
92
93 HZ_MGD_MASS_UPDATE_REP_GEN.Log( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
94 , p_msg => '<< Run_Mass_Update_Credit_Usages');
95
96
97 EXCEPTION
98 WHEN OTHERS THEN
99 HZ_MGD_MASS_UPDATE_REP_GEN.Log(HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_EXCEPTION,'SQLERRM '|| SQLERRM) ;
100
101 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
102 THEN
103 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Run_Mass_Update_Credit_Usages');
104 END IF;
105
106 x_retcode := 2;
107 x_errbuf := SUBSTRB(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE),1,255);
108 ROLLBACK;
109 RAISE;
110
111 END Run_Mass_Update_Credit_Usages;
112
113 END HZ_MGD_MASS_UPDATE_CP;