1: PACKAGE BODY Eng_Change_Route_People_Util AS
2: /* $Header: ENGURTPB.pls 120.1 2006/01/12 19:23:03 mkimizuk noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'Eng_Change_Route_People_Util' ;
5:
1: PACKAGE BODY Eng_Change_Route_People_Util AS
2: /* $Header: ENGURTPB.pls 120.1 2006/01/12 19:23:03 mkimizuk noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'Eng_Change_Route_People_Util' ;
5:
6: -- For Debug
7: g_debug_file UTL_FILE.FILE_TYPE ;
8: g_debug_flag BOOLEAN := FALSE ; -- For TEST : FALSE ;
10: g_debug_filename VARCHAR2(35) ;
11: g_debug_errmesg VARCHAR2(240);
12:
13: -- Global Assignee Rec
14: g_orig_assignee_rec Eng_Change_Route_People_Util.Assignee_Rec_Type ;
15: g_assignee_rec Eng_Change_Route_People_Util.Assignee_Rec_Type ;
16:
17:
18:
11: g_debug_errmesg VARCHAR2(240);
12:
13: -- Global Assignee Rec
14: g_orig_assignee_rec Eng_Change_Route_People_Util.Assignee_Rec_Type ;
15: g_assignee_rec Eng_Change_Route_People_Util.Assignee_Rec_Type ;
16:
17:
18:
19: /********************************************************************
63: END IF;
64:
65: -- Set Default Debug Name
66: IF g_debug_filename IS NULL THEN
67: g_debug_filename := 'Eng_Change_Route_People_Util.log' ;
68: END IF ;
69:
70: g_debug_file := utl_file.fopen( g_output_dir
71: , g_debug_filename
124: PROCEDURE GetAssigneeRec
125: ( p_assignee_id IN NUMBER
126: , p_assignee_type_code IN VARCHAR2
127: , p_current_flag IN VARCHAR2 := NULL -- Y or NULL regarded as Current
128: , x_assignee_rec OUT NOCOPY Eng_Change_Route_People_Util.Assignee_Rec_Type
129: )
130: IS
131:
132: l_idx BINARY_INTEGER ;
397: )
398: RETURN VARCHAR2
399: IS
400:
401: l_assignee_rec Eng_Change_Route_People_Util.Assignee_Rec_Type ;
402:
403: BEGIN
404:
405: IF p_assignee_id IS NOT NULL AND p_assignee_type_code IS NOT NULL
431: )
432: RETURN VARCHAR2
433: IS
434:
435: l_assignee_rec Eng_Change_Route_People_Util.Assignee_Rec_Type ;
436:
437: BEGIN
438:
439: IF p_assignee_id IS NOT NULL AND p_assignee_type_code = 'PERSON'
465: )
466: RETURN VARCHAR2
467: IS
468:
469: l_assignee_rec Eng_Change_Route_People_Util.Assignee_Rec_Type ;
470:
471: BEGIN
472:
473: IF p_assignee_id IS NOT NULL AND p_assignee_type_code IS NOT NULL
1054: * Purpose : Those APIs are public
1055: *********************************************************************/
1056:
1057:
1058: END Eng_Change_Route_People_Util ;