71: IF v_debug THEN
72: msc_st_util.log_message ('Truncation flag is YES. Entering in truncation LOOP');
73: END IF;
74:
75: UPDATE msc_apps_instances
76: SET st_status= G_ST_PURGING;
77: COMMIT;
78:
79: lv_retval := FND_INSTALLATION.GET_APP_INFO ( 'MSD', lv_dummy1, lv_dummy2, v_applsys_schema);
116:
117: END LOOP;
118: CLOSE table_names;
119:
120: UPDATE msc_apps_instances
121: SET st_status= G_ST_EMPTY;
122: COMMIT;
123:
124: ELSE --IF (lv_truncation_flag = SYS_YES) THEN
253:
254: BEGIN
255:
256: SELECT ST_STATUS INTO lv_staging_table_status
257: FROM msc_apps_instances
258: WHERE INSTANCE_CODE= pINSTANCE_CODE
259: FOR UPDATE;
260:
261: IF v_debug THEN
323: RETURN FALSE;
324:
325:
326: ELSE
327: UPDATE msc_apps_instances
328: SET st_status=G_ST_PURGING
329: WHERE INSTANCE_CODE= pINSTANCE_CODE;
330: COMMIT;
331:
359:
360:
361: CURSOR instance_codes ( cp_instance_id NUMBER ) IS
362: SELECT instance_code,instance_type,instance_id,st_status
363: FROM msc_apps_instances
364: WHERE ( cp_instance_id = -1 or instance_id=cp_instance_id );
365:
366:
367: -- Cursor P is for update to lock the records before checking for the st_status.
367: -- Cursor P is for update to lock the records before checking for the st_status.
368:
369: CURSOR p (cp_instance_id NUMBER ) IS
370: SELECT instance_code
371: FROM msc_apps_instances
372: WHERE st_status NOT IN (G_ST_PULLING,G_ST_COLLECTING,G_ST_PRE_PROCESSING)
373: AND ( cp_instance_id= -1 or instance_id=cp_instance_id )
374: FOR UPDATE;
375:
374: FOR UPDATE;
375:
376: CURSOR total_instances IS
377: SELECT count(*)
378: FROM msc_apps_instances;
379:
380: CURSOR staging_status (cp_instance_id NUMBER ) IS
381: SELECT count(*)
382: FROM msc_apps_instances
378: FROM msc_apps_instances;
379:
380: CURSOR staging_status (cp_instance_id NUMBER ) IS
381: SELECT count(*)
382: FROM msc_apps_instances
383: WHERE st_status IN ( G_ST_PULLING,G_ST_COLLECTING,G_ST_PRE_PROCESSING )
384: AND ((instance_id=cp_instance_id) OR (cp_instance_id=-1));
385:
386:
389: lv_p_instance_id NUMBER ;
390:
391:
392: -- variable for cursor instance_codes
393: lv_instance_code MSC_APPS_INSTANCES.INSTANCE_CODE%TYPE;
394: lv_st_status MSC_APPS_INSTANCES.ST_STATUS%TYPE;
395: lv_instance_type MSC_APPS_INSTANCES.INSTANCE_TYPE%TYPE;
396: lv_instance_id MSC_APPS_INSTANCES.INSTANCE_ID%TYPE;
397:
390:
391:
392: -- variable for cursor instance_codes
393: lv_instance_code MSC_APPS_INSTANCES.INSTANCE_CODE%TYPE;
394: lv_st_status MSC_APPS_INSTANCES.ST_STATUS%TYPE;
395: lv_instance_type MSC_APPS_INSTANCES.INSTANCE_TYPE%TYPE;
396: lv_instance_id MSC_APPS_INSTANCES.INSTANCE_ID%TYPE;
397:
398: lv_inst_flag NUMBER := 0 ;
391:
392: -- variable for cursor instance_codes
393: lv_instance_code MSC_APPS_INSTANCES.INSTANCE_CODE%TYPE;
394: lv_st_status MSC_APPS_INSTANCES.ST_STATUS%TYPE;
395: lv_instance_type MSC_APPS_INSTANCES.INSTANCE_TYPE%TYPE;
396: lv_instance_id MSC_APPS_INSTANCES.INSTANCE_ID%TYPE;
397:
398: lv_inst_flag NUMBER := 0 ;
399: lv_st_status_flag NUMBER:= 0;
392: -- variable for cursor instance_codes
393: lv_instance_code MSC_APPS_INSTANCES.INSTANCE_CODE%TYPE;
394: lv_st_status MSC_APPS_INSTANCES.ST_STATUS%TYPE;
395: lv_instance_type MSC_APPS_INSTANCES.INSTANCE_TYPE%TYPE;
396: lv_instance_id MSC_APPS_INSTANCES.INSTANCE_ID%TYPE;
397:
398: lv_inst_flag NUMBER := 0 ;
399: lv_st_status_flag NUMBER:= 0;
400: lv_trunc_profile BOOLEAN:=FALSE;
427: OPEN total_instances;
428: FETCH total_instances into lv_inst_flag;
429: CLOSE total_instances;
430:
431: -- locking the records in msc_apps_instances before checking the st_status
432:
433: open p(lv_p_instance_id);
434: close p;
435:
504: IF v_debug THEN
505: msc_st_util.log_message ('Setting the st_status to empty');
506: END IF;
507:
508: UPDATE msc_apps_instances
509: SET st_status=G_ST_EMPTY
510: WHERE instance_code=lv_instance_code;
511: COMMIT;
512: