1: PACKAGE BODY pos_asn_review_pkg AS
2: /* $Header: POSASNRB.pls 115.1 99/10/14 16:18:39 porting shi $ */
3:
4: g_header_results_table ak_query_pkg.results_table_type;
5: g_header_items_table ak_query_pkg.items_table_type;
6:
7: g_inv_hdr_results_table ak_query_pkg.results_table_type;
8: g_inv_hdr_items_table ak_query_pkg.items_table_type;
1: PACKAGE BODY pos_asn_review_pkg AS
2: /* $Header: POSASNRB.pls 115.1 99/10/14 16:18:39 porting shi $ */
3:
4: g_header_results_table ak_query_pkg.results_table_type;
5: g_header_items_table ak_query_pkg.items_table_type;
6:
7: g_inv_hdr_results_table ak_query_pkg.results_table_type;
8: g_inv_hdr_items_table ak_query_pkg.items_table_type;
9:
3:
4: g_header_results_table ak_query_pkg.results_table_type;
5: g_header_items_table ak_query_pkg.items_table_type;
6:
7: g_inv_hdr_results_table ak_query_pkg.results_table_type;
8: g_inv_hdr_items_table ak_query_pkg.items_table_type;
9:
10: g_lines_results_table ak_query_pkg.results_table_type;
11: g_lines_items_table ak_query_pkg.items_table_type;
4: g_header_results_table ak_query_pkg.results_table_type;
5: g_header_items_table ak_query_pkg.items_table_type;
6:
7: g_inv_hdr_results_table ak_query_pkg.results_table_type;
8: g_inv_hdr_items_table ak_query_pkg.items_table_type;
9:
10: g_lines_results_table ak_query_pkg.results_table_type;
11: g_lines_items_table ak_query_pkg.items_table_type;
12:
6:
7: g_inv_hdr_results_table ak_query_pkg.results_table_type;
8: g_inv_hdr_items_table ak_query_pkg.items_table_type;
9:
10: g_lines_results_table ak_query_pkg.results_table_type;
11: g_lines_items_table ak_query_pkg.items_table_type;
12:
13: g_seq_results_table ak_query_pkg.results_table_type;
14: g_seq_items_table ak_query_pkg.items_table_type;
7: g_inv_hdr_results_table ak_query_pkg.results_table_type;
8: g_inv_hdr_items_table ak_query_pkg.items_table_type;
9:
10: g_lines_results_table ak_query_pkg.results_table_type;
11: g_lines_items_table ak_query_pkg.items_table_type;
12:
13: g_seq_results_table ak_query_pkg.results_table_type;
14: g_seq_items_table ak_query_pkg.items_table_type;
15:
9:
10: g_lines_results_table ak_query_pkg.results_table_type;
11: g_lines_items_table ak_query_pkg.items_table_type;
12:
13: g_seq_results_table ak_query_pkg.results_table_type;
14: g_seq_items_table ak_query_pkg.items_table_type;
15:
16: g_ship_results_table ak_query_pkg.results_table_type;
17: g_ship_items_table ak_query_pkg.items_table_type;
10: g_lines_results_table ak_query_pkg.results_table_type;
11: g_lines_items_table ak_query_pkg.items_table_type;
12:
13: g_seq_results_table ak_query_pkg.results_table_type;
14: g_seq_items_table ak_query_pkg.items_table_type;
15:
16: g_ship_results_table ak_query_pkg.results_table_type;
17: g_ship_items_table ak_query_pkg.items_table_type;
18:
12:
13: g_seq_results_table ak_query_pkg.results_table_type;
14: g_seq_items_table ak_query_pkg.items_table_type;
15:
16: g_ship_results_table ak_query_pkg.results_table_type;
17: g_ship_items_table ak_query_pkg.items_table_type;
18:
19: g_inv_dtl_results_table ak_query_pkg.results_table_type;
20: g_inv_dtl_items_table ak_query_pkg.items_table_type;
13: g_seq_results_table ak_query_pkg.results_table_type;
14: g_seq_items_table ak_query_pkg.items_table_type;
15:
16: g_ship_results_table ak_query_pkg.results_table_type;
17: g_ship_items_table ak_query_pkg.items_table_type;
18:
19: g_inv_dtl_results_table ak_query_pkg.results_table_type;
20: g_inv_dtl_items_table ak_query_pkg.items_table_type;
21:
15:
16: g_ship_results_table ak_query_pkg.results_table_type;
17: g_ship_items_table ak_query_pkg.items_table_type;
18:
19: g_inv_dtl_results_table ak_query_pkg.results_table_type;
20: g_inv_dtl_items_table ak_query_pkg.items_table_type;
21:
22: PROCEDURE header_section;
23: PROCEDURE lines_section;
16: g_ship_results_table ak_query_pkg.results_table_type;
17: g_ship_items_table ak_query_pkg.items_table_type;
18:
19: g_inv_dtl_results_table ak_query_pkg.results_table_type;
20: g_inv_dtl_items_table ak_query_pkg.items_table_type;
21:
22: PROCEDURE header_section;
23: PROCEDURE lines_section;
24:
22: PROCEDURE header_section;
23: PROCEDURE lines_section;
24:
25: PROCEDURE PrintResult(p_result_index IN NUMBER,
26: p_results_table IN ak_query_pkg.results_table_type,
27: p_items_table IN ak_query_pkg.items_table_type);
28:
29: PROCEDURE DupResultTable(p_source in ak_query_pkg.results_table_type,
30: p_dest in out ak_query_pkg.results_table_type);
23: PROCEDURE lines_section;
24:
25: PROCEDURE PrintResult(p_result_index IN NUMBER,
26: p_results_table IN ak_query_pkg.results_table_type,
27: p_items_table IN ak_query_pkg.items_table_type);
28:
29: PROCEDURE DupResultTable(p_source in ak_query_pkg.results_table_type,
30: p_dest in out ak_query_pkg.results_table_type);
31:
25: PROCEDURE PrintResult(p_result_index IN NUMBER,
26: p_results_table IN ak_query_pkg.results_table_type,
27: p_items_table IN ak_query_pkg.items_table_type);
28:
29: PROCEDURE DupResultTable(p_source in ak_query_pkg.results_table_type,
30: p_dest in out ak_query_pkg.results_table_type);
31:
32: PROCEDURE DupItemTable(p_source in ak_query_pkg.items_table_type,
33: p_dest in out ak_query_pkg.items_table_type);
26: p_results_table IN ak_query_pkg.results_table_type,
27: p_items_table IN ak_query_pkg.items_table_type);
28:
29: PROCEDURE DupResultTable(p_source in ak_query_pkg.results_table_type,
30: p_dest in out ak_query_pkg.results_table_type);
31:
32: PROCEDURE DupItemTable(p_source in ak_query_pkg.items_table_type,
33: p_dest in out ak_query_pkg.items_table_type);
34:
28:
29: PROCEDURE DupResultTable(p_source in ak_query_pkg.results_table_type,
30: p_dest in out ak_query_pkg.results_table_type);
31:
32: PROCEDURE DupItemTable(p_source in ak_query_pkg.items_table_type,
33: p_dest in out ak_query_pkg.items_table_type);
34:
35: function get_result_value(p_table in ak_query_pkg.results_table_type,
36: p_index in number,
29: PROCEDURE DupResultTable(p_source in ak_query_pkg.results_table_type,
30: p_dest in out ak_query_pkg.results_table_type);
31:
32: PROCEDURE DupItemTable(p_source in ak_query_pkg.items_table_type,
33: p_dest in out ak_query_pkg.items_table_type);
34:
35: function get_result_value(p_table in ak_query_pkg.results_table_type,
36: p_index in number,
37: p_col in number) return varchar2;
31:
32: PROCEDURE DupItemTable(p_source in ak_query_pkg.items_table_type,
33: p_dest in out ak_query_pkg.items_table_type);
34:
35: function get_result_value(p_table in ak_query_pkg.results_table_type,
36: p_index in number,
37: p_col in number) return varchar2;
38:
39: function valid_invoice_num(p_session_id in number) return boolean;
131: l_session_id := icx_sec.getID(icx_sec.PV_SESSION_ID);
132:
133: l_where_clause := 'SESSION_ID = ' || to_char(l_session_id);
134:
135: ak_query_pkg.exec_query(p_parent_region_appl_id=>178,
136: p_parent_region_code=>'POS_ASN_REVIEW_HEADERS_R',
137: p_where_clause=>l_where_clause,
138: p_responsibility_id=>icx_sec.getID(icx_sec.PV_RESPONSIBILITY_ID),
139: p_user_id=>icx_sec.getID(icx_sec.PV_WEB_USER_ID),
139: p_user_id=>icx_sec.getID(icx_sec.PV_WEB_USER_ID),
140: p_return_parents=>'T',
141: p_return_children=>'F');
142:
143: DupResultTable(ak_query_pkg.g_results_table, g_header_results_table);
144: DupItemTable(ak_query_pkg.g_items_table, g_header_items_table);
145:
146: IF FND_FUNCTION.TEST('ICX_DISABLE_ASBN') and valid_invoice_num(l_session_id) THEN
147:
140: p_return_parents=>'T',
141: p_return_children=>'F');
142:
143: DupResultTable(ak_query_pkg.g_results_table, g_header_results_table);
144: DupItemTable(ak_query_pkg.g_items_table, g_header_items_table);
145:
146: IF FND_FUNCTION.TEST('ICX_DISABLE_ASBN') and valid_invoice_num(l_session_id) THEN
147:
148: ak_query_pkg.exec_query(p_parent_region_appl_id=>178,
144: DupItemTable(ak_query_pkg.g_items_table, g_header_items_table);
145:
146: IF FND_FUNCTION.TEST('ICX_DISABLE_ASBN') and valid_invoice_num(l_session_id) THEN
147:
148: ak_query_pkg.exec_query(p_parent_region_appl_id=>178,
149: p_parent_region_code=>'POS_ASN_REVIEW_INV_HDR_R',
150: p_where_clause=>l_where_clause,
151: p_responsibility_id=>icx_sec.getID(icx_sec.PV_RESPONSIBILITY_ID),
152: p_user_id=>icx_sec.getID(icx_sec.PV_WEB_USER_ID),
152: p_user_id=>icx_sec.getID(icx_sec.PV_WEB_USER_ID),
153: p_return_parents=>'T',
154: p_return_children=>'F');
155:
156: DupResultTable(ak_query_pkg.g_results_table, g_inv_hdr_results_table);
157: DupItemTable(ak_query_pkg.g_items_table, g_inv_hdr_items_table);
158:
159: END IF;
160:
153: p_return_parents=>'T',
154: p_return_children=>'F');
155:
156: DupResultTable(ak_query_pkg.g_results_table, g_inv_hdr_results_table);
157: DupItemTable(ak_query_pkg.g_items_table, g_inv_hdr_items_table);
158:
159: END IF;
160:
161: l_total_rows := g_header_results_table.count;
193: l_session_id := icx_sec.getID(icx_sec.PV_SESSION_ID);
194:
195: l_where_clause := 'SESSION_ID = ' || to_char(l_session_id);
196:
197: ak_query_pkg.exec_query(p_parent_region_appl_id=>178,
198: p_parent_region_code=>'POS_ASN_REVIEW_DETAILS_SEQ_R',
199: p_where_clause=>l_where_clause,
200: p_responsibility_id=>icx_sec.getID(icx_sec.PV_RESPONSIBILITY_ID),
201: p_user_id=>icx_sec.getID(icx_sec.PV_WEB_USER_ID),
201: p_user_id=>icx_sec.getID(icx_sec.PV_WEB_USER_ID),
202: p_return_parents=>'T',
203: p_return_children=>'F');
204:
205: DupResultTable(ak_query_pkg.g_results_table, g_seq_results_table);
206: DupItemTable(ak_query_pkg.g_items_table, g_seq_items_table);
207:
208: ak_query_pkg.exec_query(p_parent_region_appl_id=>178,
209: p_parent_region_code=>'POS_ASN_REVIEW_PO_DETAILS_R',
202: p_return_parents=>'T',
203: p_return_children=>'F');
204:
205: DupResultTable(ak_query_pkg.g_results_table, g_seq_results_table);
206: DupItemTable(ak_query_pkg.g_items_table, g_seq_items_table);
207:
208: ak_query_pkg.exec_query(p_parent_region_appl_id=>178,
209: p_parent_region_code=>'POS_ASN_REVIEW_PO_DETAILS_R',
210: p_where_clause=>l_where_clause,
204:
205: DupResultTable(ak_query_pkg.g_results_table, g_seq_results_table);
206: DupItemTable(ak_query_pkg.g_items_table, g_seq_items_table);
207:
208: ak_query_pkg.exec_query(p_parent_region_appl_id=>178,
209: p_parent_region_code=>'POS_ASN_REVIEW_PO_DETAILS_R',
210: p_where_clause=>l_where_clause,
211: p_responsibility_id=>icx_sec.getID(icx_sec.PV_RESPONSIBILITY_ID),
212: p_user_id=>icx_sec.getID(icx_sec.PV_WEB_USER_ID),
212: p_user_id=>icx_sec.getID(icx_sec.PV_WEB_USER_ID),
213: p_return_parents=>'T',
214: p_return_children=>'F');
215:
216: DupResultTable(ak_query_pkg.g_results_table, g_lines_results_table);
217: DupItemTable(ak_query_pkg.g_items_table, g_lines_items_table);
218:
219: ak_query_pkg.exec_query(p_parent_region_appl_id=>178,
220: p_parent_region_code=>'POS_ASN_REVIEW_SHIP_DETAILS_R',
213: p_return_parents=>'T',
214: p_return_children=>'F');
215:
216: DupResultTable(ak_query_pkg.g_results_table, g_lines_results_table);
217: DupItemTable(ak_query_pkg.g_items_table, g_lines_items_table);
218:
219: ak_query_pkg.exec_query(p_parent_region_appl_id=>178,
220: p_parent_region_code=>'POS_ASN_REVIEW_SHIP_DETAILS_R',
221: p_where_clause=>l_where_clause,
215:
216: DupResultTable(ak_query_pkg.g_results_table, g_lines_results_table);
217: DupItemTable(ak_query_pkg.g_items_table, g_lines_items_table);
218:
219: ak_query_pkg.exec_query(p_parent_region_appl_id=>178,
220: p_parent_region_code=>'POS_ASN_REVIEW_SHIP_DETAILS_R',
221: p_where_clause=>l_where_clause,
222: p_responsibility_id=>icx_sec.getID(icx_sec.PV_RESPONSIBILITY_ID),
223: p_user_id=>icx_sec.getID(icx_sec.PV_WEB_USER_ID),
223: p_user_id=>icx_sec.getID(icx_sec.PV_WEB_USER_ID),
224: p_return_parents=>'T',
225: p_return_children=>'F');
226:
227: DupResultTable(ak_query_pkg.g_results_table, g_ship_results_table);
228: DupItemTable(ak_query_pkg.g_items_table, g_ship_items_table);
229:
230: IF FND_FUNCTION.TEST('ICX_DISABLE_ASBN') and valid_invoice_num(l_session_id) THEN
231:
224: p_return_parents=>'T',
225: p_return_children=>'F');
226:
227: DupResultTable(ak_query_pkg.g_results_table, g_ship_results_table);
228: DupItemTable(ak_query_pkg.g_items_table, g_ship_items_table);
229:
230: IF FND_FUNCTION.TEST('ICX_DISABLE_ASBN') and valid_invoice_num(l_session_id) THEN
231:
232: ak_query_pkg.exec_query(p_parent_region_appl_id=>178,
228: DupItemTable(ak_query_pkg.g_items_table, g_ship_items_table);
229:
230: IF FND_FUNCTION.TEST('ICX_DISABLE_ASBN') and valid_invoice_num(l_session_id) THEN
231:
232: ak_query_pkg.exec_query(p_parent_region_appl_id=>178,
233: p_parent_region_code=>'POS_ASN_REVIEW_INV_DETAILS_R',
234: p_where_clause=>l_where_clause,
235: p_responsibility_id=>icx_sec.getID(icx_sec.PV_RESPONSIBILITY_ID),
236: p_user_id=>icx_sec.getID(icx_sec.PV_WEB_USER_ID),
236: p_user_id=>icx_sec.getID(icx_sec.PV_WEB_USER_ID),
237: p_return_parents=>'T',
238: p_return_children=>'F');
239:
240: DupResultTable(ak_query_pkg.g_results_table, g_inv_dtl_results_table);
241: DupItemTable(ak_query_pkg.g_items_table, g_inv_dtl_items_table);
242:
243: END IF;
244:
237: p_return_parents=>'T',
238: p_return_children=>'F');
239:
240: DupResultTable(ak_query_pkg.g_results_table, g_inv_dtl_results_table);
241: DupItemTable(ak_query_pkg.g_items_table, g_inv_dtl_items_table);
242:
243: END IF;
244:
245: l_total_rows := g_lines_results_table.count;
295:
296: END lines_section;
297:
298: PROCEDURE PrintResult(p_result_index IN NUMBER,
299: p_results_table IN ak_query_pkg.results_table_type,
300: p_items_table IN ak_query_pkg.items_table_type) IS
301:
302: l_attribute_index NUMBER := p_items_table.FIRST;
303: l_current_col NUMBER := 0;
296: END lines_section;
297:
298: PROCEDURE PrintResult(p_result_index IN NUMBER,
299: p_results_table IN ak_query_pkg.results_table_type,
300: p_items_table IN ak_query_pkg.items_table_type) IS
301:
302: l_attribute_index NUMBER := p_items_table.FIRST;
303: l_current_col NUMBER := 0;
304:
363:
364:
365: END PrintResult;
366:
367: PROCEDURE DupResultTable(p_source in ak_query_pkg.results_table_type,
368: p_dest in out ak_query_pkg.results_table_type) IS
369:
370: v_index NUMBER;
371:
364:
365: END PrintResult;
366:
367: PROCEDURE DupResultTable(p_source in ak_query_pkg.results_table_type,
368: p_dest in out ak_query_pkg.results_table_type) IS
369:
370: v_index NUMBER;
371:
372: BEGIN
388: end if;
389:
390: END DupResultTable;
391:
392: PROCEDURE DupItemTable(p_source in ak_query_pkg.items_table_type,
393: p_dest in out ak_query_pkg.items_table_type) IS
394:
395: v_index NUMBER;
396:
389:
390: END DupResultTable;
391:
392: PROCEDURE DupItemTable(p_source in ak_query_pkg.items_table_type,
393: p_dest in out ak_query_pkg.items_table_type) IS
394:
395: v_index NUMBER;
396:
397: BEGIN
413: end if;
414:
415: END DupItemTable;
416:
417: function get_result_value(p_table in ak_query_pkg.results_table_type,
418: p_index in number,
419: p_col in number) return varchar2 is
420:
421: sql_statement VARCHAR2(300);