22: -- #2. if any of the dates from #1 are null, any snapshot taken prior n days from sysdate
23:
24: PROCEDURE INSERT_FSTG( PK IN VARCHAR2) IS
25: BEGIN
26: cid := DBMS_SQL.Open_Cursor;
27: DBMS_SQL.Parse( cid,
28: 'INSERT INTO ISC_EDW_BACKLOGS_FSTG (
29: BASE_UOM_FK,
30: BILL_TO_LOCATION_FK,
23:
24: PROCEDURE INSERT_FSTG( PK IN VARCHAR2) IS
25: BEGIN
26: cid := DBMS_SQL.Open_Cursor;
27: DBMS_SQL.Parse( cid,
28: 'INSERT INTO ISC_EDW_BACKLOGS_FSTG (
29: BASE_UOM_FK,
30: BILL_TO_LOCATION_FK,
31: BILL_TO_CUST_FK,
84: ''NA_EDW'',
85: '''||pk||''' ,
86: ''READY'',
87: ''DELETE'')',
88: DBMS_SQL.Native);
89: g_dummy_int:=DBMS_SQL.Execute(cid);
90: DBMS_SQL.Close_Cursor(cid);
91:
92: EXCEPTION WHEN OTHERS THEN
85: '''||pk||''' ,
86: ''READY'',
87: ''DELETE'')',
88: DBMS_SQL.Native);
89: g_dummy_int:=DBMS_SQL.Execute(cid);
90: DBMS_SQL.Close_Cursor(cid);
91:
92: EXCEPTION WHEN OTHERS THEN
93: DBMS_SQL.Close_Cursor(cid);
86: ''READY'',
87: ''DELETE'')',
88: DBMS_SQL.Native);
89: g_dummy_int:=DBMS_SQL.Execute(cid);
90: DBMS_SQL.Close_Cursor(cid);
91:
92: EXCEPTION WHEN OTHERS THEN
93: DBMS_SQL.Close_Cursor(cid);
94: g_errbuf := sqlerrm;
89: g_dummy_int:=DBMS_SQL.Execute(cid);
90: DBMS_SQL.Close_Cursor(cid);
91:
92: EXCEPTION WHEN OTHERS THEN
93: DBMS_SQL.Close_Cursor(cid);
94: g_errbuf := sqlerrm;
95: g_retcode := -1;
96: l_exception_msg := g_retcode || ':' || g_errbuf;
97: ROLLBACK;
166: END;
167: END IF;
168:
169: EXCEPTION WHEN OTHERS THEN
170: DBMS_SQL.Close_Cursor(cid);
171: g_errbuf := sqlerrm;
172: g_retcode := -1;
173: l_exception_msg := g_retcode || ':' || g_errbuf;
174: ROLLBACK;