[Home] [Help]
28: PROCEDURE Put_Line
29: (Text Varchar2)
30: IS
31: --
32: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
33: --
34: BEGIN
35:
36: if g_conc_mode is null then
54: l_app_info BOOLEAN;
55: l_status VARCHAR2(30);
56: l_industry VARCHAR2(30);
57: --
58: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
59: --
60: BEGIN
61:
62: if g_schema is null then
71: -------------------------------------------------------------------------
72: PROCEDURE New_Line
73: IS
74: --
75: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
76: --
77: BEGIN
78:
79: line_number := line_number + 1;
87: , p_level IN NUMBER default 1
88: )
89: IS
90: --
91: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
92: --
93: BEGIN
94:
95: Text('-- '||p_comment,p_level);
102: , p_level IN NUMBER default 1
103: )
104: IS
105: --
106: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
107: --
108: BEGIN
109:
110: line_number := line_number + 1;
127: IS
128: l_first varchar2(1);
129: l_prefix VARCHAR2(10);
130: --
131: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
132: --
133: BEGIN
134:
135: IF rtrim(p_mode) = 'IN' THEN
165: WHERE name = upper(p_pkg_name)
166: AND type = decode(p_pkg_type,'SPEC','PACKAGE',
167: 'BODY','PACKAGE BODY');
168: --
169: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
170: --
171: BEGIN
172:
173: -- end statement.
227: )
228: IS
229: header_string VARCHAR2(200);
230: --
231: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
232: --
233: BEGIN
234:
235: -- Initialize line number
294: )
295: IS
296: l_rpad NUMBER:=p_rpad;
297: --
298: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
299: --
300: BEGIN
301:
302: IF p_rpad = -1 OR
458: WHERE object_name = UPPER(cp_pkg_name);
459:
460: l_attr_str VARCHAR2(50);
461: --
462: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
463: --
464: BEGIN
465:
466: Init_Applsys_Schema;
835: Text ('l_action NUMBER;',0);
836: Text ('l_attr VARCHAR2(200);',0); --added for bug 4002431
837: Text ('BEGIN',0);
838: New_Line;
839: Text ('oe_debug_pub.ADD(''Enter '||l_app_short_name||'_'||l_entity_code||
840: '_Def_Hdlr.Default_Record'');',0);
841: New_Line;
842: Text('IF p_iteration =1 THEN',0);
843: Text('OE_'||l_entity_code||'_Security.G_Is_Caller_Defaulting := ''Y'';',0);
1099: Assign ('p_x_rec','g_record',1,-1);
1100: Text('END IF;',0);
1101: New_Line;
1102:
1103: Text ('oe_debug_pub.ADD(''Exit '||l_app_short_name||'_'||l_entity_code||
1104: '_Def_Hdlr.Default_Record'');',0);
1105: New_Line;
1106:
1107: Text('EXCEPTION',0);
1153:
1154: PROCEDURE Return_String(p_data_type IN VARCHAR2)
1155: IS
1156: --
1157: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1158: --
1159: BEGIN
1160: Text( 'if l_return_value is not null then ',2);
1161: if p_data_type='NUMBER' then
1301: AND ua.database_object_name = p_database_object_name
1302: ORDER BY uc.unique_key_sequence;
1303:
1304: --
1305: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1306: --
1307: BEGIN
1308:
1309: Init_Applsys_Schema;
1718: IS
1719: SELECT entity_id FROM OE_DEF_AK_OBJ_EXT_V
1720: WHERE entity_code = p_entity_code;
1721: --
1722: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1723: --
1724: BEGIN
1725:
1726: Init_Applsys_Schema;
2225: WHERE oa.database_object_name = fk.uk_database_object_name
2226: AND oa.data_type = 'DATE'
2227: );
2228: --
2229: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2230: --
2231: BEGIN
2232:
2233: Init_Applsys_Schema;
3459: ORDER BY akatt.column_name;
3460: -- AND NVL(data_storage_type,OE_DEF_UTIL.NONE)='3RD NORMAL';
3461:
3462: --
3463: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3464: --
3465: BEGIN
3466:
3467: OPEN APP;