PACKAGE BODY: APPS.OTA_PI_MAIN

Source

1 PACKAGE BODY OTA_PI_MAIN AS
2 /* $Header: otpimain.pkb 120.2 2005/10/31 05:40:08 hwinsor noship $ */
3 
4 PROCEDURE def_bg_data (errbuf out NOCOPY varchar2
5                       ,retcode out NOCOPY number
6                       ,p_business_group_id IN NUMBER DEFAULT NULL) IS
7 begin
8   --
9   ota_fr_2483_data.load_bg_measurement_types(p_business_group_id);
10   --
11   errbuf := '';
12   retcode := 0;
13 exception
14   when others then
15     retcode := sqlcode;
16     errbuf := sqlerrm;
17 end def_bg_data;
18 --
19 end OTA_PI_MAIN;