[Home] [Help]
24:
25: BEGIN
26:
27: IF (FND_INSTALLATION.GET_APP_INFO('POA', l_status, l_industry, l_poa_schema)) THEN
28: l_stmt := 'TRUNCATE TABLE ' || l_poa_schema || '.POA_EDW_ALINES_INC';
29: EXECUTE IMMEDIATE l_stmt;
30: END IF;
31:
32: END;
38:
39: PROCEDURE INSERT_MISSING_RATES
40: IS
41: BEGIN
42: INSERT INTO poa_edw_alines_inc(primary_key)
43: SELECT po_line_id
44: FROM POA_EDW_ALINES_FSTG
45: where COLLECTION_STATUS = 'RATE NOT AVAILABLE' OR
46: COLLECTION_STATUS = 'INVALID CURRENCY';
53: -- Generates "Warning" message in the Status column
54: -- of Concurrent Manager "Requests" table
55: edw_log.put_line(' ');
56: edw_log.put_line('INSERTING ' || to_char(sql%rowcount) ||
57: ' rows into poa_edw_alines_inc table');
58: END;
59:
60: -----------------------------------------------------------
61: -- PROCEDURE DELETE_STG_MISSING_RATES
335:
336: -- Cursor to delete duplicates
337: CURSOR Dup_Rec IS
338: SELECT primary_key
339: FROM poa_edw_alines_inc
340: ORDER BY primary_key
341: FOR UPDATE;
342:
343: v_prev_id NUMBER;
352: exit when Dup_Rec % NOTFOUND;
353:
354: -- Check if the PK already exists
355: IF (v_prev_id = v_cur_id) THEN
356: DELETE FROM poa_edw_alines_inc
357: WHERE CURRENT OF Dup_Rec;
358: ELSE
359: v_prev_id := v_cur_id;
360: END IF;
384:
385: BEGIN
386:
387: p_count := 0;
388: select poa_edw_alines_inc_s.nextval into l_seq_id from dual;
389:
390: UPDATE poa_edw_alines_inc
391: SET seq_id = l_seq_id
392: WHERE seq_id IS NULL;
386:
387: p_count := 0;
388: select poa_edw_alines_inc_s.nextval into l_seq_id from dual;
389:
390: UPDATE poa_edw_alines_inc
391: SET seq_id = l_seq_id
392: WHERE seq_id IS NULL;
393:
394: p_count := sql%rowcount;
393:
394: p_count := sql%rowcount;
395: edw_log.put_line( 'Updated ' || p_count || ' records');
396:
397: INSERT INTO poa_edw_alines_inc(primary_key, seq_id)
398: SELECT pol.po_line_id, l_seq_id
399: FROM po_headers_all poh,
400: po_lines_all pol
401: WHERE poh.type_lookup_code = 'BLANKET'