1: package body MSD_PLAN_TYPE_VIEWS_PKG as
2: /* $Header: msdptvpb.pls 120.0 2005/05/25 18:42:07 appldev noship $ */
3:
4: PROCEDURE LOAD_ROW(
5: X_plan_type varchar2,
27:
28: begin
29: select LAST_UPDATED_BY, LAST_UPDATE_DATE
30: into db_luby, db_ludate
31: from MSD_PLAN_TYPE_VIEWS
32: where PLAN_TYPE = x_plan_type
33: and VIEW_TYPE = x_view_type
34: --and VIEW_NAME = x_view_name
35: and nvl(LOB_FLAG,'-1') = nvl( x_lob_flag,'-1') ;
42: if ((x_custom_mode = 'FORCE') or
43: ((f_luby = 0) and (db_luby = 1)) or
44: ((f_luby = db_luby) and (f_ludate > db_ludate)))
45: then
46: update MSD_PLAN_TYPE_VIEWS set
47: PLAN_TYPE = x_plan_type,
48: VIEW_TYPE = x_view_type,
49: VIEW_NAME = x_view_name,
50: LOB_FLAG = x_lob_flag,
58: end if;
59: exception
60: when no_data_found then
61: -- Record doesn't exist - insert in all cases
62: insert into MSD_PLAN_TYPE_VIEWS (
63: PLAN_TYPE,
64: VIEW_TYPE,
65: VIEW_NAME,
66: LOB_FLAG,
82: end;
83: end LOAD_ROW;
84:
85:
86: end MSD_PLAN_TYPE_VIEWS_PKG;