[Home] [Help]
PACKAGE BODY: APPS.EGO_CHANGETYPE_EXPLOSION
Source
1 PACKAGE BODY EGO_CHANGETYPE_EXPLOSION as
2 /* $Header: EGOCHGXB.pls 115.2 2004/02/10 07:15:37 akanukun noship $ */
3
4 PROCEDURE explodeTemplates (
5 p_change_id IN NUMBER,
6 p_change_type_id IN NUMBER,
7 p_user_id IN NUMBER,
8 p_login_id IN NUMBER,
9 p_prog_appid IN NUMBER,
10 p_prog_id IN NUMBER,
11 p_req_id IN NUMBER,
12 p_err_text IN OUT NOCOPY VARCHAR2
13 )
14 AS
15 -- varray_id NUM_ID_ARRAY;
16
17 -- change_route_id NUMBER;
18 -- change_step_id NUMBER;
19
20 -- Fetch all the life cycle Statuses for corresponding Type.
21 CURSOR l_status_csr IS
22 SELECT
23 ENTITY_ID2
24 ,ENTITY_ID3
25 ,ENTITY_ID4
26 ,ENTITY_ID5
27 ,SEQUENCE_NUMBER
28 ,STATUS_CODE
29 ,START_DATE
30 ,COMPLETION_DATE
31 ,AUTO_PROMOTE_STATUS
32 ,AUTO_DEMOTE_STATUS
33 ,WORKFLOW_STATUS
34 ,CHANGE_EDITABLE_FLAG
35 ,ITERATION_NUMBER
36 ,ACTIVE_FLAG
37 ,CHANGE_WF_ROUTE_ID
38 FROM
39 ENG_LIFECYCLE_STATUSES
40 WHERE
41 ENTITY_NAME = 'ENG_CHANGE_TYPE'
42 AND ENTITY_ID1 = p_change_type_id;
43
44 BEGIN
45 FOR l_status_rec IN l_status_csr
46 LOOP
47 -- Insert the Statuses data
48 INSERT INTO ENG_LIFECYCLE_STATUSES
49 (
50 CHANGE_LIFECYCLE_STATUS_ID
51 ,ENTITY_NAME
52 ,ENTITY_ID1
53 ,ENTITY_ID2
54 ,ENTITY_ID3
55 ,ENTITY_ID4
56 ,ENTITY_ID5
57 ,SEQUENCE_NUMBER
58 ,STATUS_CODE
59 ,START_DATE
60 ,COMPLETION_DATE
61 ,CHANGE_WF_ROUTE_ID
62 ,AUTO_PROMOTE_STATUS
63 ,AUTO_DEMOTE_STATUS
64 -- ,START_WORKFLOW_FLAG
65 ,WORKFLOW_STATUS
66 ,CHANGE_EDITABLE_FLAG
67 ,CREATION_DATE
68 ,CREATED_BY
69 ,LAST_UPDATE_DATE
70 ,LAST_UPDATED_BY
71 ,LAST_UPDATE_LOGIN
72 ,ITERATION_NUMBER
73 ,ACTIVE_FLAG
74 ,CHANGE_WF_ROUTE_TEMPLATE_ID
75 )
76 VALUES
77 (
78 ENG_LIFECYCLE_STATUSES_S.NEXTVAL
79 ,'ENG_CHANGE'
80 ,p_change_id
81 ,NULL -- l_status_rec.ENTITY_ID2
82 ,NULL -- l_status_rec.ENTITY_ID3
83 ,NULL -- l_status_rec.ENTITY_ID4
84 ,NULL -- l_status_rec.ENTITY_ID5
85 ,l_status_rec.SEQUENCE_NUMBER
86 ,l_status_rec.STATUS_CODE
87 ,NULL -- l_status_rec.START_DATE
88 ,NULL -- l_status_rec.COMPLETION_DATE
89 ,NULL -- CHANGE_WF_ROUTE_ID
90 ,l_status_rec.AUTO_PROMOTE_STATUS
91 ,l_status_rec.AUTO_DEMOTE_STATUS
92 -- ,l_status_rec.START_WORKFLOW_FLAG
93 ,NULL -- l_status_rec.WORKFLOW_STATUS
94 ,l_status_rec.CHANGE_EDITABLE_FLAG
95 ,SYSDATE
96 ,p_user_id
97 ,SYSDATE
98 ,p_user_id
99 ,p_login_id
100 ,0 -- l_status_rec.ITERATION_NUMBER
101 ,'Y' -- l_status_rec.ACTIVE_FLAG
102 ,l_status_rec.CHANGE_WF_ROUTE_ID -- CHANGE_WF_ROUTE_TEMPLATE_ID
103 );
104 END LOOP; -- End loop l_status_csr
105 EXCEPTION
106 WHEN OTHERS THEN
107 p_err_text := 'EGO_CHANGETYPE_EXPLOSION(explodeTemplates) ' ||substrb(SQLERRM, 1, 60);
108 NULL;
109 --return(SQLCODE);
110 END explodeTemplates;
111
112 END EGO_CHANGETYPE_EXPLOSION;