1: PACKAGE BODY Eng_Change_Route_Assocs_Util AS
2: /* $Header: ENGURTAB.pls 115.2 2004/05/27 19:33:22 mkimizuk noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'Eng_Change_Route_Assocs_Util' ;
5:
1: PACKAGE BODY Eng_Change_Route_Assocs_Util AS
2: /* $Header: ENGURTAB.pls 115.2 2004/05/27 19:33:22 mkimizuk noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'Eng_Change_Route_Assocs_Util' ;
5:
6: -- For Debug
7: g_debug_file UTL_FILE.FILE_TYPE ;
8: g_debug_flag BOOLEAN := FALSE ; -- For TEST : FALSE ;
59: END IF;
60:
61: -- Set default debug file name
62: IF g_debug_filename IS NULL THEN
63: g_debug_filename := 'Eng_Change_Route_Assocs_Util.log' ;
64: END IF ;
65:
66: g_debug_file := utl_file.fopen( g_output_dir
67: , g_debug_filename
144: ORIGINAL_SYSTEM_REFERENCE,
145: PROGRAM_ID,
146: PROGRAM_APPLICATION_ID,
147: PROGRAM_UPDATE_DATE
148: from ENG_CHANGE_ROUTE_ASSOCS
149: where ROUTE_PEOPLE_ID = P_FROM_PEOPLE_ID ;
150:
151: -- No need to lock
152: -- for update of ROUTE_PEOPLE_ID nowait;
186:
187: for recinfo in c loop
188:
189: -- Get Next Sequence Value for STEP_ID
190: SELECT ENG_CHANGE_ROUTE_ASSOCS_S.NEXTVAL into l_assoc_id
191: FROM DUAL;
192:
193: INSERT_ROW (
194: X_ROWID => l_rowid,
231: /********************************************************************
232: * API Type : Private Table Hander APIs
233: * Purpose : Those APIs are private
234: * Table Hander for Entity Object:
235: * ENG_CHANGE_ROUTE_ASSOCS
236: * PROCEDURE INSERT_ROW;
237: * -- Not Supproting PROCEDURE LOCK_ROW;
238: * -- Not Supproting PROCEDURE UPDATE_ROW;
239: * -- Not Supproting PROCEDURE DELETE_ROW;
267: X_ADHOC_ASSOC_FLAG IN VARCHAR2
268: )
269: IS
270:
271: cursor C is select ROWID from ENG_CHANGE_ROUTE_ASSOCS
272: where ROUTE_ASSOCIATION_ID = X_ROUTE_ASSOCIATION_ID
273: ;
274:
275:
274:
275:
276: BEGIN
277:
278: insert into ENG_CHANGE_ROUTE_ASSOCS (
279: ROUTE_ASSOCIATION_ID,
280: ROUTE_PEOPLE_ID,
281: ASSOC_OBJECT_NAME,
282: ASSOC_OBJ_PK1_VALUE,
347: * Purpose : Those APIs are public
348: *********************************************************************/
349:
350:
351: END Eng_Change_Route_Assocs_Util ;