PACKAGE BODY: APPS.AMS_ADI_OBJECTS_EXPORT_PVT

Source

1 PACKAGE BODY AMS_ADI_OBJECTS_EXPORT_PVT AS
2 /* $Header: amsvadxb.pls 120.0 2005/07/01 03:56:04 appldev noship $ */
3 
4 
5 --========================================================================
6 -- PROCEDURE
7 --    Inserts_Schedules_Export
8 -- Purpose
9 --    Inserts Schedules in AMS_ADI_OBJECTS_EXPORT_LIST table
10 -- HISTORY
11 --
12 --========================================================================
13 PROCEDURE insert_export_schedules(
14   P_SCHEDULE_IDS IN JTF_NUMBER_TABLE,
15   P_COMMIT IN VARCHAR2   := FND_API.G_FALSE,
16   X_EXPORT_BATCH_ID OUT NOCOPY NUMBER
17 )
18 IS
19  l_export_batch_id NUMBER;
20  CURSOR c_id IS
21       SELECT AMS_ADI_OBJECTS_EXPORT_LIST_S.NEXTVAL
22       FROM dual;
23 BEGIN
24 
25  --deletes all schedules previously exported by the same user
26  delete
27  from ams_adi_objects_export_list
28  where created_by = FND_GLOBAL.user_id
29  and creation_date < sysdate-1;
30 
31  OPEN c_id;
32  FETCH c_id INTO l_export_batch_id;
33  CLOSE c_id;
34 
35  IF (P_SCHEDULE_IDS is not null) THEN
36     FORALL i IN 1..P_SCHEDULE_IDS.COUNT
37       INSERT INTO AMS_ADI_OBJECTS_EXPORT_LIST
38       VALUES (l_export_batch_id,'CSCH',P_SCHEDULE_IDS(i),sysdate,FND_GLOBAL.user_id,sysdate,FND_GLOBAL.user_id,FND_GLOBAL.login_id);
39  END IF;
40 
41  IF(P_COMMIT = FND_API.G_TRUE) THEN
42    COMMIT;
43  END IF;
44 
45  X_EXPORT_BATCH_ID := l_export_batch_id ;
46 END insert_export_schedules;
47 
48 
49 
50 END AMS_ADI_OBJECTS_EXPORT_PVT;