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;