1: PACKAGE BODY OKE_APPROVAL_PATHS_PKG AS
2: /* $Header: OKEAPVPB.pls 120.1 2005/05/27 16:02:31 appldev $ */
3: g_module CONSTANT VARCHAR2(250) := 'oke.plsql.oke_approval_paths_pkg.';
4: --
5: -- Table Handler Procedures
1: PACKAGE BODY OKE_APPROVAL_PATHS_PKG AS
2: /* $Header: OKEAPVPB.pls 120.1 2005/05/27 16:02:31 appldev $ */
3: g_module CONSTANT VARCHAR2(250) := 'oke.plsql.oke_approval_paths_pkg.';
4: --
5: -- Table Handler Procedures
6: --
7: PROCEDURE INSERT_ROW
22: ) IS
23:
24: CURSOR c IS
25: SELECT ROWID
26: FROM OKE_APPROVAL_PATHS
27: WHERE APPROVAL_PATH_ID = X_APPROVAL_PATH_ID;
28:
29: BEGIN
30:
28:
29: BEGIN
30:
31: IF ( X_APPROVAL_PATH_ID IS NULL ) THEN
32: SELECT OKE_APPROVAL_PATHS_S.NEXTVAL
33: INTO X_APPROVAL_PATH_ID
34: FROM DUAL;
35: END IF;
36:
35: END IF;
36:
37: X_RECORD_VERSION_NUMBER := 1;
38:
39: INSERT INTO OKE_APPROVAL_PATHS
40: ( APPROVAL_PATH_ID
41: , SIGNATURE_REQUIRED_FLAG
42: , SIGNATORY_ROLE_ID
43: , RECORD_VERSION_NUMBER
61: , X_LAST_UPDATED_BY
62: , X_LAST_UPDATE_LOGIN
63: );
64:
65: INSERT INTO OKE_APPROVAL_PATHS_TL
66: ( APPROVAL_PATH_ID
67: , CREATION_DATE
68: , CREATED_BY
69: , LAST_UPDATE_DATE
87: FROM FND_LANGUAGES L
88: WHERE L.INSTALLED_FLAG IN ('I', 'B')
89: AND NOT EXISTS
90: (SELECT NULL
91: FROM OKE_APPROVAL_PATHS_TL T
92: WHERE T.APPROVAL_PATH_ID = X_APPROVAL_PATH_ID
93: AND T.LANGUAGE = L.LANGUAGE_CODE);
94:
95: OPEN c;
109: ) IS
110:
111: CURSOR C IS
112: SELECT RECORD_VERSION_NUMBER
113: FROM OKE_APPROVAL_PATHS
114: WHERE APPROVAL_PATH_ID = X_APPROVAL_PATH_ID
115: FOR UPDATE OF APPROVAL_PATH_ID NOWAIT;
116: RecInfo c%rowtype;
117:
151: ) IS
152:
153: CURSOR c IS
154: SELECT RECORD_VERSION_NUMBER
155: FROM OKE_APPROVAL_PATHS
156: WHERE APPROVAL_PATH_ID = X_APPROVAL_PATH_ID;
157:
158: BEGIN
159:
156: WHERE APPROVAL_PATH_ID = X_APPROVAL_PATH_ID;
157:
158: BEGIN
159:
160: UPDATE OKE_APPROVAL_PATHS
161: SET SIGNATURE_REQUIRED_FLAG = X_SIGNATURE_REQUIRED_FLAG
162: , SIGNATORY_ROLE_ID = X_SIGNATORY_ROLE_ID
163: , START_DATE_ACTIVE = X_START_DATE_ACTIVE
164: , END_DATE_ACTIVE = X_END_DATE_ACTIVE
179: RAISE NO_DATA_FOUND;
180: END IF;
181: CLOSE c;
182:
183: UPDATE OKE_APPROVAL_PATHS_TL
184: SET NAME = X_NAME
185: , DESCRIPTION = X_DESCRIPTION
186: , LAST_UPDATE_DATE = X_LAST_UPDATE_DATE
187: , LAST_UPDATED_BY = X_LAST_UPDATED_BY
201: ( X_APPROVAL_PATH_ID IN NUMBER
202: ) IS
203: BEGIN
204:
205: DELETE FROM OKE_APPROVAL_PATHS_TL
206: WHERE APPROVAL_PATH_ID = X_APPROVAL_PATH_ID;
207:
208: IF (sql%notfound) THEN
209: RAISE NO_DATA_FOUND;
208: IF (sql%notfound) THEN
209: RAISE NO_DATA_FOUND;
210: END IF;
211:
212: DELETE FROM OKE_APPROVAL_PATHS
213: WHERE APPROVAL_PATH_ID = X_APPROVAL_PATH_ID;
214:
215: IF (sql%notfound) THEN
216: RAISE NO_DATA_FOUND;
244: BEGIN
245:
246: SELECT LAST_UPDATE_DATE , LAST_UPDATED_BY
247: INTO db_ludate , db_luby
248: FROM OKE_APPROVAL_PATHS
249: WHERE APPROVAL_PATH_ID = X_APPROVAL_PATH_ID;
250:
251: --
252: -- Update record, honoring customization mode.
325: BEGIN
326:
327: SELECT LAST_UPDATE_DATE , LAST_UPDATED_BY
328: INTO db_ludate , db_luby
329: FROM OKE_APPROVAL_PATHS_TL
330: WHERE APPROVAL_PATH_ID = X_APPROVAL_PATH_ID
331: AND USERENV('LANG') = LANGUAGE;
332:
333: --
343: , db_luby
344: , db_ludate
345: , X_CUSTOM_MODE ) ) THEN
346:
347: UPDATE OKE_APPROVAL_PATHS_TL
348: SET NAME = X_NAME
349: , DESCRIPTION = X_DESCRIPTION
350: , LAST_UPDATE_DATE = X_LAST_UPDATE_DATE
351: , LAST_UPDATED_BY = X_LAST_UPDATED_BY
361: PROCEDURE ADD_LANGUAGE
362: IS
363: BEGIN
364:
365: DELETE FROM OKE_APPROVAL_PATHS_TL T
366: WHERE NOT EXISTS (
367: SELECT NULL
368: FROM OKE_APPROVAL_PATHS B
369: WHERE B.APPROVAL_PATH_ID = T.APPROVAL_PATH_ID
364:
365: DELETE FROM OKE_APPROVAL_PATHS_TL T
366: WHERE NOT EXISTS (
367: SELECT NULL
368: FROM OKE_APPROVAL_PATHS B
369: WHERE B.APPROVAL_PATH_ID = T.APPROVAL_PATH_ID
370: );
371:
372: UPDATE OKE_APPROVAL_PATHS_TL T SET
368: FROM OKE_APPROVAL_PATHS B
369: WHERE B.APPROVAL_PATH_ID = T.APPROVAL_PATH_ID
370: );
371:
372: UPDATE OKE_APPROVAL_PATHS_TL T SET
373: ( NAME , DESCRIPTION ) = (
374: SELECT B.NAME
375: , B.DESCRIPTION
376: FROM OKE_APPROVAL_PATHS_TL B
372: UPDATE OKE_APPROVAL_PATHS_TL T SET
373: ( NAME , DESCRIPTION ) = (
374: SELECT B.NAME
375: , B.DESCRIPTION
376: FROM OKE_APPROVAL_PATHS_TL B
377: WHERE B.APPROVAL_PATH_ID = T.APPROVAL_PATH_ID
378: AND B.LANGUAGE = T.SOURCE_LANG)
379: WHERE ( T.APPROVAL_PATH_ID , T.LANGUAGE ) IN (
380: SELECT SUBT.APPROVAL_PATH_ID
378: AND B.LANGUAGE = T.SOURCE_LANG)
379: WHERE ( T.APPROVAL_PATH_ID , T.LANGUAGE ) IN (
380: SELECT SUBT.APPROVAL_PATH_ID
381: , SUBT.LANGUAGE
382: FROM OKE_APPROVAL_PATHS_TL SUBB
383: , OKE_APPROVAL_PATHS_TL SUBT
384: WHERE SUBB.APPROVAL_PATH_ID = SUBT.APPROVAL_PATH_ID
385: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
386: AND (SUBB.NAME <> SUBT.NAME
379: WHERE ( T.APPROVAL_PATH_ID , T.LANGUAGE ) IN (
380: SELECT SUBT.APPROVAL_PATH_ID
381: , SUBT.LANGUAGE
382: FROM OKE_APPROVAL_PATHS_TL SUBB
383: , OKE_APPROVAL_PATHS_TL SUBT
384: WHERE SUBB.APPROVAL_PATH_ID = SUBT.APPROVAL_PATH_ID
385: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
386: AND (SUBB.NAME <> SUBT.NAME
387: OR SUBB.DESCRIPTION <> SUBT.DESCRIPTION )
386: AND (SUBB.NAME <> SUBT.NAME
387: OR SUBB.DESCRIPTION <> SUBT.DESCRIPTION )
388: );
389:
390: INSERT INTO OKE_APPROVAL_PATHS_TL
391: ( APPROVAL_PATH_ID
392: , CREATION_DATE
393: , CREATED_BY
394: , LAST_UPDATE_DATE
408: , B.NAME
409: , B.DESCRIPTION
410: , L.LANGUAGE_CODE
411: , B.SOURCE_LANG
412: FROM OKE_APPROVAL_PATHS_TL B, FND_LANGUAGES L
413: WHERE L.INSTALLED_FLAG IN ('I', 'B')
414: AND B.LANGUAGE = USERENV('LANG')
415: AND NOT EXISTS (
416: SELECT NULL
413: WHERE L.INSTALLED_FLAG IN ('I', 'B')
414: AND B.LANGUAGE = USERENV('LANG')
415: AND NOT EXISTS (
416: SELECT NULL
417: FROM OKE_APPROVAL_PATHS_TL T
418: WHERE T.APPROVAL_PATH_ID = B.APPROVAL_PATH_ID
419: AND T.LANGUAGE = L.LANGUAGE_CODE
420: );
421:
506:
507: END Next_Approval_Step;
508:
509:
510: END OKE_APPROVAL_PATHS_PKG;