The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT backlog.backlogs_pk c_pk,
nvl(time.cday_calendar_date,sysdate+1) c_date
FROM ISC_EDW_BACKLOGS_F backlog,
EDW_TIME_M time
WHERE backlog.date_balance_fk_key = time.cday_cal_day_pk_key
ORDER BY 2 DESC ;
PROCEDURE INSERT_FSTG( PK IN VARCHAR2) IS
BEGIN
cid := DBMS_SQL.Open_Cursor;
'INSERT INTO ISC_EDW_BACKLOGS_FSTG (
BASE_UOM_FK,
BILL_TO_LOCATION_FK,
BILL_TO_CUST_FK,
CUSTOMER_FK,
DATE_BALANCE_FK,
DEMAND_CLASS_FK,
GL_BOOK_FK,
INSTANCE_FK,
INV_ORG_FK,
ORDER_CATEGORY_FK,
OPERATING_UNIT_FK,
ORDER_SOURCE_FK,
ITEM_ORG_FK,
TOP_MODEL_ITEM_FK,
TASK_FK,
SALES_CHANNEL_FK,
ORDER_TYPE_FK,
SALES_PERSON_FK,
SHIP_TO_LOCATION_FK,
SHIP_TO_CUST_FK,
TRX_CURRENCY_FK,
USER_FK1,
USER_FK2,
USER_FK3,
USER_FK4,
USER_FK5,
BACKLOGS_PK,
COLLECTION_STATUS,
OPERATION_CODE)
VALUES (
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
''NA_EDW'',
'''||pk||''' ,
''READY'',
''DELETE'')',
DBMS_SQL.Native);
EDW_LOG.Put_Line('Other errors in Insert_Fstg : '|| l_exception_msg);
END INSERT_FSTG;
PROCEDURE DELETE_FACT( Errbuf IN OUT NOCOPY VARCHAR2,
Retcode IN OUT NOCOPY VARCHAR2,
p_nb_days IN NUMBER,
p_from_date IN VARCHAR2,
p_to_date IN VARCHAR2) IS
l_from_date DATE := NULL;
INSERT_FSTG(snap_rec.c_pk);
EDW_LOG.Put_Line('Marking '||l_count||' rows to be deleted from the Backlog Fact during next load');
EDW_LOG.Put_Line('All snapshots taken between '||l_from_date||' and '||l_to_date||' will be deleted.'); COMMIT;
INSERT_FSTG(snap_rec.c_pk);
EDW_LOG.Put_Line('Marking '||l_count||' rows to be deleted from the Backlog Fact during next load.');
EDW_LOG.Put_Line('All snapshots taken prior to '||(sysdate - p_nb_days)||' will be deleted.');
EDW_LOG.Put_Line('Other errors in Delete_Fact : '|| l_exception_msg);
END DELETE_FACT;