1 package body WMS_XDOCK_SRC_ASSIGN_PKG as
2 /* $Header: WMSXDSAB.pls 120.1 2005/05/26 14:08:23 appldev $ */
3 procedure INSERT_ROW (
4 X_CRITERION_ID in NUMBER,
5 X_SOURCE_TYPE in NUMBER,
6 X_SOURCE_CODE in NUMBER,
7 X_PRIORITY in NUMBER,
8 X_CREATION_DATE in DATE,
9 X_CREATED_BY in NUMBER,
10 X_LAST_UPDATE_DATE in DATE,
11 X_LAST_UPDATED_BY in NUMBER,
12 X_LAST_UPDATE_LOGIN in NUMBER
13 ) is
14 begin
15 insert into WMS_XDOCK_SOURCE_ASSIGNMENTS (
16 CRITERION_ID,
17 SOURCE_TYPE,
18 SOURCE_CODE,
19 PRIORITY,
20 CREATION_DATE,
21 CREATED_BY,
22 LAST_UPDATE_DATE,
23 LAST_UPDATED_BY,
24 LAST_UPDATE_LOGIN
25 ) values (
26 X_CRITERION_ID,
27 X_SOURCE_TYPE,
28 X_SOURCE_CODE,
29 X_PRIORITY,
30 X_CREATION_DATE,
31 X_CREATED_BY,
32 X_LAST_UPDATE_DATE,
33 X_LAST_UPDATED_BY,
34 X_LAST_UPDATE_LOGIN
35 );
36
37 end INSERT_ROW;
38
39 procedure LOCK_ROW (
40 X_CRITERION_ID in NUMBER,
41 X_SOURCE_TYPE in NUMBER,
42 X_SOURCE_CODE in NUMBER,
43 X_PRIORITY in NUMBER
44 ) is
45 cursor c is select
46 PRIORITY
47 from WMS_XDOCK_SOURCE_ASSIGNMENTS
48 where CRITERION_ID = X_CRITERION_ID
49 and SOURCE_TYPE = X_SOURCE_TYPE
50 and SOURCE_CODE = X_SOURCE_CODE
51 for update nowait;
52 recinfo c%rowtype;
53
54 begin
55 open c;
56 fetch c into recinfo;
57 if (c%notfound) then
58 close c;
59 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
60 app_exception.raise_exception;
61 end if;
62 close c;
63 if (recinfo.PRIORITY = X_PRIORITY) then
64 null;
65 else
66 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
67 app_exception.raise_exception;
68 end if;
69
70 return;
71 end LOCK_ROW;
72
73 procedure UPDATE_ROW (
74 X_CRITERION_ID in NUMBER,
75 X_SOURCE_TYPE in NUMBER,
76 X_SOURCE_CODE in NUMBER,
77 X_PRIORITY in NUMBER,
78 X_LAST_UPDATE_DATE in DATE,
79 X_LAST_UPDATED_BY in NUMBER,
80 X_LAST_UPDATE_LOGIN in NUMBER
81 ) is
82 begin
83 update WMS_XDOCK_SOURCE_ASSIGNMENTS set
84 PRIORITY = X_PRIORITY,
85 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
86 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
87 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
88 where CRITERION_ID = X_CRITERION_ID
89 and SOURCE_TYPE = X_SOURCE_TYPE
90 and SOURCE_CODE = X_SOURCE_CODE;
91
92 if (sql%notfound) then
93 raise no_data_found;
94 end if;
95
96 end UPDATE_ROW;
97
98 procedure DELETE_ROW (
99 X_CRITERION_ID in NUMBER,
100 X_SOURCE_TYPE in NUMBER,
101 X_SOURCE_CODE in NUMBER
102 ) is
103 begin
104 delete from WMS_XDOCK_SOURCE_ASSIGNMENTS
105 where CRITERION_ID = X_CRITERION_ID
106 and SOURCE_TYPE = X_SOURCE_TYPE
107 and SOURCE_CODE = X_SOURCE_CODE;
108
109 if (sql%notfound) then
110 raise no_data_found;
111 end if;
112
113 end DELETE_ROW;
114
115 end WMS_XDOCK_SRC_ASSIGN_PKG;