PACKAGE BODY: APPS.FA_CUA_WB_EXT_PKG

Source

1 PACKAGE BODY FA_CUA_WB_EXT_PKG AS
2 /* $Header: FACPX13MB.pls 120.1 2009/03/27 08:50:14 bridgway ship $ */
3 
4   /* created: msiddiqu 08-NOV-99
5      The procedure facuas1 replaces ifa_additions_hr_ard trigger
6      It needs to be called from Asset Workbench
7      on deleting the asset record.
8 
9      NB. FAXASSET actually calls faxdadb.pls to do the deletes.
10          fa_cua_wb_ext_pkg.facuas1 is called from fa_det_add_pkg.delete_asset,
11          not the workbench form itself.
12   */
13 
14   PROCEDURE facuas1 ( x_asset_id in number , p_log_level_rec        IN     FA_API_TYPES.log_level_rec_type) IS
15 
16     Cursor C1 is
17       select asset_hierarchy_id
18       from fa_asset_hierarchy
19       where asset_id = x_asset_id;
20   Begin
21     FOR c1_rec in C1 LOOP
22       delete from FA_ASSET_HIERARCHY
23       where asset_hierarchy_id = c1_rec.asset_hierarchy_id;
24     END LOOP;
25   End facuas1;
26 
27 
28 END FA_CUA_WB_EXT_PKG;