DBA Data[Home] [Help]

APPS.ZPB_AW dependencies on ZPB_AW

Line 1: PACKAGE BODY ZPB_AW AS

1: PACKAGE BODY ZPB_AW AS
2: /* $Header: zpbaw.plb 120.14 2007/12/04 14:43:17 mbhat ship $ */
3:
4: m_ascii_nl constant number := ascii(fnd_global.local_chr(10));
5:

Line 6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZPB_AW';

2: /* $Header: zpbaw.plb 120.14 2007/12/04 14:43:17 mbhat ship $ */
3:
4: m_ascii_nl constant number := ascii(fnd_global.local_chr(10));
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZPB_AW';
7: G_SCHEMA VARCHAR2(16);
8:
9: -------------------------------------------------------------------------------
10: -- EXECUTE

Line 21: zpb_log.write_statement ('zpb_aw.execute',

17: procedure EXECUTE (p_cmd in varchar2)
18: is
19: begin
20: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
21: zpb_log.write_statement ('zpb_aw.execute',
22: 'Executing AW Statement: '||p_cmd);
23: end if;
24: dbms_aw.execute(p_cmd);
25: end execute;

Line 31: -- output is expected, you may just run zpb_aw.execute() instead.

27: -------------------------------------------------------------------------------
28: -- INTERP <-- DEPRECATED - Use EVAL_TEXT or EVAL_NUMBER instead -->
29: --
30: -- Wrapper around the call to the AW, which will parse the output. If no
31: -- output is expected, you may just run zpb_aw.execute() instead.
32: --
33: -- IN: p_cmd (varchar2) - The AW command to execute
34: -- OUT: varchar2 - The output of the the AW command
35: --

Line 43: zpb_log.write_statement ('zpb_aw.interp',

39: is
40: l_return varchar2(4000);
41: begin
42: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
43: zpb_log.write_statement ('zpb_aw.interp',
44: 'Interpreting AW Statement: '||p_cmd);
45:
46: l_return := dbms_lob.substr(dbms_aw.interp (p_cmd), 4000);
47:

Line 48: zpb_log.write_statement ('zpb_aw.interp',

44: 'Interpreting AW Statement: '||p_cmd);
45:
46: l_return := dbms_lob.substr(dbms_aw.interp (p_cmd), 4000);
47:
48: zpb_log.write_statement ('zpb_aw.interp',
49: 'AW Statement returned: '||l_return);
50: return l_return;
51: else
52: return dbms_lob.substr(dbms_aw.interp (p_cmd), 4000);

Line 71: zpb_log.write_statement ('zpb_aw.interpbool',

67: return boolean is
68: l_return boolean;
69: begin
70: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
71: zpb_log.write_statement ('zpb_aw.interpbool',
72: 'Interpreting AW Statement: '||p_cmd);
73: end if;
74:
75: if (dbms_aw.eval_number('if nafill('||substr(p_cmd, 5)||

Line 84: zpb_log.write_statement ('zpb_aw.interpbool',

80: end if;
81:
82: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
83: if (l_return) then
84: zpb_log.write_statement ('zpb_aw.interpbool',
85: 'AW Statement returned true');
86: else
87: zpb_log.write_statement ('zpb_aw.interpbool',
88: 'AW Statement returned false');

Line 87: zpb_log.write_statement ('zpb_aw.interpbool',

83: if (l_return) then
84: zpb_log.write_statement ('zpb_aw.interpbool',
85: 'AW Statement returned true');
86: else
87: zpb_log.write_statement ('zpb_aw.interpbool',
88: 'AW Statement returned false');
89: end if;
90: end if;
91: return l_return;

Line 109: zpb_log.write_statement ('zpb_aw.eval_text',

105: return VARCHAR2 is
106: l_return varchar2(4000);
107: begin
108: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
109: zpb_log.write_statement ('zpb_aw.eval_text',
110: 'Interpreting AW Statement: '||p_cmd);
111:
112: l_return := dbms_lob.substr(dbms_aw.eval_text(p_cmd), 4000);
113:

Line 114: zpb_log.write_statement ('zpb_aw.eval_text',

110: 'Interpreting AW Statement: '||p_cmd);
111:
112: l_return := dbms_lob.substr(dbms_aw.eval_text(p_cmd), 4000);
113:
114: zpb_log.write_statement ('zpb_aw.eval_text',
115: 'AW Statement returned: '||l_return);
116: return l_return;
117: else
118: return dbms_lob.substr(dbms_aw.eval_text(p_cmd), 4000);

Line 137: zpb_log.write_statement ('zpb_aw.eval_text',

133: return NUMBER is
134: l_return NUMBER;
135: begin
136: if (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
137: zpb_log.write_statement ('zpb_aw.eval_text',
138: 'Interpreting AW Statement: '||p_cmd);
139:
140: l_return := dbms_aw.eval_number(p_cmd);
141:

Line 142: zpb_log.write_statement ('zpb_aw.eval_text',

138: 'Interpreting AW Statement: '||p_cmd);
139:
140: l_return := dbms_aw.eval_number(p_cmd);
141:
142: zpb_log.write_statement ('zpb_aw.eval_text',
143: 'AW Statement returned: '||l_return);
144: return l_return;
145: else
146: return dbms_aw.eval_number(p_cmd);

Line 461: ZPB_AW.EXECUTE ('CM.LOGFILE = '''||l_comm||'''');

457:
458: l_trace := FND_PROFILE.VALUE_SPECIFIC('ZPB_SQL_TRACE', l_user_id);
459: if (l_trace is not null and instr(l_trace, 'AWLOG:') > 0) then
460: l_comm := substr(l_trace, instr(l_trace, 'AWLOG:')+6);
461: ZPB_AW.EXECUTE ('CM.LOGFILE = '''||l_comm||'''');
462: end if;
463:
464: if (p_annot_rw = FND_API.G_TRUE) then
465: EXECUTE('aw attach '||l_annot_AW||' rw');

Line 474: if (zpb_aw.interpbool('show exists(''LANG'')')) then

470: EXECUTE('aw attach '||l_schema||GET_SHARED_AW||' rw');
471: EXECUTE('aw aliaslist '||l_schema||GET_SHARED_AW||' alias shared');
472: EXECUTE('aw aliaslist '||l_schema||GET_SHARED_AW||' alias s');
473: EXECUTE('aw aliaslist '||l_schema||GET_SHARED_AW||' alias aggaw');
474: if (zpb_aw.interpbool('show exists(''LANG'')')) then
475: EXECUTE('lmt LANG to '''||FND_GLOBAL.CURRENT_LANGUAGE||'''');
476: end if;
477: else
478: EXECUTE('call pa.attach.shared('''||FND_GLOBAL.USER_ID||''' no)');

Line 688: SAVEPOINT zpb_aw_clean_workspace;

684: l_api_name CONSTANT VARCHAR2(15) := 'clean_workspace';
685: l_api_version CONSTANT NUMBER := 1.0;
686: BEGIN
687: -- Standard Start of API savepoint
688: SAVEPOINT zpb_aw_clean_workspace;
689: -- Standard call to check for call compatibility.
690: IF NOT FND_API.Compatible_API_Call( l_api_version,
691: p_api_version,
692: l_api_name,

Line 724: ROLLBACK TO zpb_aw_clean_workspace;

720: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data );
721:
722: EXCEPTION
723: WHEN FND_API.G_EXC_ERROR THEN
724: ROLLBACK TO zpb_aw_clean_workspace;
725: x_return_status := FND_API.G_RET_STS_ERROR;
726: FND_MSG_PUB.Count_And_Get(
727: p_count => x_msg_count,
728: p_data => x_msg_data

Line 731: ROLLBACK TO zpb_aw_clean_workspace;

727: p_count => x_msg_count,
728: p_data => x_msg_data
729: );
730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
731: ROLLBACK TO zpb_aw_clean_workspace;
732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
733: FND_MSG_PUB.Count_And_Get(
734: p_count => x_msg_count,
735: p_data => x_msg_data

Line 738: ROLLBACK TO zpb_aw_clean_workspace;

734: p_count => x_msg_count,
735: p_data => x_msg_data
736: );
737: WHEN OTHERS THEN
738: ROLLBACK TO zpb_aw_clean_workspace;
739: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
740: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
741: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name );
742: END IF;

Line 751: end ZPB_AW;

747:
748: ZPB_ERROR_HANDLER.HANDLE_EXCEPTION (G_PKG_NAME, l_api_name);
749: END clean_workspace;
750:
751: end ZPB_AW;