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:
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:
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);
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;