DBA Data[Home] [Help]

APPS.AMS_PARTY_SEG_LOADER_PVT dependencies on DBMS_SQL

Line 15: -- This Procedure will expire the party using DBMS SQL

11: -- Purpose
12: -- expire parties that no longer belong to the given mkt_seg_id
13: --
14: -- Note :
15: -- This Procedure will expire the party using DBMS SQL
16: --
17: -- History
18: -- 05/03/2000 ptendulk created
19: -- 02/02/2001 yxliu Modified. Removed market_seg_flag since this is

Line 39: l_sql_tbl DBMS_SQL.varchar2s ;

35: x_msg_data OUT NOCOPY VARCHAR2
36: )
37: IS
38: l_api_name CONSTANT VARCHAR2(30) := 'Get_Party_Tab';
39: l_sql_tbl DBMS_SQL.varchar2s ;
40: l_cell_id NUMBER := p_cell_id;
41: l_cell_name VARCHAR2 (120);
42: -- Define the table type to store the party ids
43: l_temp NUMBER ;

Line 96: IF (DBMS_SQL.Is_Open(l_party_cur) = FALSE) THEN

92: IF (AMS_DEBUG_HIGH_ON) THEN
93:
94: AMS_Utility_PVT.Debug_Message(l_api_name||' Parse the comp sql ');
95: END IF;
96: IF (DBMS_SQL.Is_Open(l_party_cur) = FALSE) THEN
97: l_party_cur := DBMS_SQL.Open_Cursor ;
98: END IF;
99: DBMS_SQL.Parse(l_party_cur ,
100: l_sql_tbl,

Line 97: l_party_cur := DBMS_SQL.Open_Cursor ;

93:
94: AMS_Utility_PVT.Debug_Message(l_api_name||' Parse the comp sql ');
95: END IF;
96: IF (DBMS_SQL.Is_Open(l_party_cur) = FALSE) THEN
97: l_party_cur := DBMS_SQL.Open_Cursor ;
98: END IF;
99: DBMS_SQL.Parse(l_party_cur ,
100: l_sql_tbl,
101: l_sql_tbl.first,

Line 99: DBMS_SQL.Parse(l_party_cur ,

95: END IF;
96: IF (DBMS_SQL.Is_Open(l_party_cur) = FALSE) THEN
97: l_party_cur := DBMS_SQL.Open_Cursor ;
98: END IF;
99: DBMS_SQL.Parse(l_party_cur ,
100: l_sql_tbl,
101: l_sql_tbl.first,
102: l_sql_tbl.last,
103: FALSE,

Line 104: DBMS_SQL.Native) ;

100: l_sql_tbl,
101: l_sql_tbl.first,
102: l_sql_tbl.last,
103: FALSE,
104: DBMS_SQL.Native) ;
105:
106: DBMS_SQL.DEFINE_COLUMN(l_party_cur,1,l_temp);
107: l_dummy := DBMS_SQL.Execute(l_party_cur);
108: LOOP

Line 106: DBMS_SQL.DEFINE_COLUMN(l_party_cur,1,l_temp);

102: l_sql_tbl.last,
103: FALSE,
104: DBMS_SQL.Native) ;
105:
106: DBMS_SQL.DEFINE_COLUMN(l_party_cur,1,l_temp);
107: l_dummy := DBMS_SQL.Execute(l_party_cur);
108: LOOP
109: IF DBMS_SQL.FETCH_ROWS(l_party_cur)>0 THEN
110: -- get column values of the row

Line 107: l_dummy := DBMS_SQL.Execute(l_party_cur);

103: FALSE,
104: DBMS_SQL.Native) ;
105:
106: DBMS_SQL.DEFINE_COLUMN(l_party_cur,1,l_temp);
107: l_dummy := DBMS_SQL.Execute(l_party_cur);
108: LOOP
109: IF DBMS_SQL.FETCH_ROWS(l_party_cur)>0 THEN
110: -- get column values of the row
111: DBMS_SQL.COLUMN_VALUE(l_party_cur,1, l_temp);

Line 109: IF DBMS_SQL.FETCH_ROWS(l_party_cur)>0 THEN

105:
106: DBMS_SQL.DEFINE_COLUMN(l_party_cur,1,l_temp);
107: l_dummy := DBMS_SQL.Execute(l_party_cur);
108: LOOP
109: IF DBMS_SQL.FETCH_ROWS(l_party_cur)>0 THEN
110: -- get column values of the row
111: DBMS_SQL.COLUMN_VALUE(l_party_cur,1, l_temp);
112: l_party_tab.extend;
113: l_party_tab(l_count) := l_temp ;

Line 111: DBMS_SQL.COLUMN_VALUE(l_party_cur,1, l_temp);

107: l_dummy := DBMS_SQL.Execute(l_party_cur);
108: LOOP
109: IF DBMS_SQL.FETCH_ROWS(l_party_cur)>0 THEN
110: -- get column values of the row
111: DBMS_SQL.COLUMN_VALUE(l_party_cur,1, l_temp);
112: l_party_tab.extend;
113: l_party_tab(l_count) := l_temp ;
114: l_count := l_count + 1 ;
115: ELSE

Line 123: DBMS_SQL.Close_Cursor(l_party_cur);

119: END LOOP;
120:
121: l_party_count := l_count - 1;
122:
123: DBMS_SQL.Close_Cursor(l_party_cur);
124:
125: IF (AMS_DEBUG_HIGH_ON) THEN
126: AMS_Utility_PVT.Debug_Message(l_api_name||' party_count = ' || l_party_count);
127: END IF;

Line 134: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN

130: x_party_count := l_party_count;
131:
132: EXCEPTION
133: WHEN OTHERS THEN
134: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
135: DBMS_SQL.Close_Cursor(l_party_cur) ;
136: END IF;
137:
138: IF (AMS_DEBUG_HIGH_ON) THEN

Line 135: DBMS_SQL.Close_Cursor(l_party_cur) ;

131:
132: EXCEPTION
133: WHEN OTHERS THEN
134: IF (DBMS_SQL.Is_Open(l_party_cur) = TRUE) THEN
135: DBMS_SQL.Close_Cursor(l_party_cur) ;
136: END IF;
137:
138: IF (AMS_DEBUG_HIGH_ON) THEN
139: AMS_Utility_PVT.Debug_Message('Error in Get_Party_Tab '||sqlerrm);

Line 251: -- This Procedure will expire the party using DBMS SQL

247: -- expire parties that originally belong to other mkt_seg_id and currently
248: -- belong to the give mkt_seg_id
249: --
250: -- Note :
251: -- This Procedure will expire the party using DBMS SQL
252: --
253: -- History
254: -- 05/03/2000 ptendulk created
255: -- 02/02/2001 yxliu Modified. Removed market_segment_flag

Line 361: -- This Procedure will expire the party using DBMS sql

357: -- insert a new party if it is not there, update it if it is expired
358: -- do nothing if it is active
359: --
360: -- Note :
361: -- This Procedure will expire the party using DBMS sql
362: --
363: -- History
364: -- 05/03/2000 ptendulk created
365: -- 02/02/2001 yxliu modified, removed market_segment_flag.

Line 516: -- cell_id to get its sql and its ancestors, then use DBMS SQL to excute

512: -- load ams_party_market_segments for one segment
513: --
514: -- Note
515: -- 1. The process will execute the ams_cell_pvt.get_comp_sql for a given
516: -- cell_id to get its sql and its ancestors, then use DBMS SQL to excute
517: -- the returned SQL table to get parties that belong to that sql.
518: -- 2. If cell_id is passed into, then only that cell will be refreshed or
519: -- else all the cells will be refreshed.
520: -- History