1: PACKAGE BODY IEC_CUSTOM_RMI_UTIL_PVT AS
2: /* $Header: IECVRMIB.pls 115.8 2003/08/22 20:42:51 hhuang ship $ */
3:
4: -- Sub-Program Unit Declarations
5:
31: ,TRUE
32: );
33: END IF;
34:
35: -- dbms_output.put_line('IEC_CUSTOM_RMI_UTIL_PVT: ADD_EMPTY_BLOB: Done null check..');
36:
37: l_result := 0;
38: l_flag := 0;
39: l_comp_name := '';
45: where a.server_id = P_SERVER_ID
46: and b.comp_def_id = P_COMP_DEF_ID
47: and a.type_id = b.server_type_id;
48:
49: -- dbms_output.put_line('IEC_CUSTOM_RMI_UTIL_PVT: ADD_EMPTY_BLOB: Done valid check..');
50:
51: IF ( l_flag <> 1 )
52: THEN
53: raise_application_error
67: and object_ref is not null;
68:
69: IF ( l_flag = 1 )
70: THEN
71: -- dbms_output.put_line('IEC_CUSTOM_RMI_UTIL_PVT: ADD_EMPTY_BLOB: ServerID and CompDefId already present in comp table.');
72: l_result := l_flag;
73: END IF;
74:
75: EXCEPTION
73: END IF;
74:
75: EXCEPTION
76: WHEN NO_DATA_FOUND THEN
77: -- dbms_output.put_line('IEC_CUSTOM_RMI_UTIL_PVT: ADD_EMPTY_BLOB: Adding empty blob. ');
78:
79: select comp_def_name into l_comp_name
80: from ieo_svr_comp_defs
81: where comp_def_id = P_COMP_DEF_ID;
98:
99: l_result := 1;
100: -- commit;
101:
102: -- dbms_output.put_line('IEC_CUSTOM_RMI_UTIL_PVT: ADD_EMPTY_BLOB: Done insert empty blob');
103: END;
104:
105: EXCEPTION
106: WHEN OTHERS THEN
201: RAISE;
202:
203: END BIND;
204:
205: END IEC_CUSTOM_RMI_UTIL_PVT;