PACKAGE BODY: APPS.PJM_UPDATE_AK_REGION_ITEMS_PKG

Source

1 PACKAGE BODY PJM_UPDATE_AK_REGION_ITEMS_PKG AS
2 /* $Header: PJMUPAKB.pls 115.1 99/07/16 01:05:10 porting s $ */
3 
4    PROCEDURE update_pa_status_regions IS
5 
6      CURSOR c_proj_status IS
7 	SELECT 	COLUMN_PROMPT, Column_ORDER
8 	FROM    PA_STATUS_COLUMN_SETUP
9 	WHERE   FOLDER_CODE='P'
10           AND   COLUMN_PROMPT IS NOT NULL;
11 
12 
13      CURSOR c_task_status IS
14         SELECT  COLUMN_PROMPT, Column_ORDER
15         FROM    PA_STATUS_COLUMN_SETUP
16         WHERE   FOLDER_CODE='T'
17           AND   COLUMN_PROMPT IS NOT NULL;
18 
19      CURSOR c_rsrc_status IS
20         SELECT  COLUMN_PROMPT, Column_ORDER
21         FROM    PA_STATUS_COLUMN_SETUP
22         WHERE   FOLDER_CODE='R'
23           AND   COLUMN_PROMPT IS NOT NULL;
24 
25      var_column_prompt pa_status_column_setup.column_prompt%TYPE;
26      var_column_order  pa_status_column_setup.column_order%TYPE;
27 
28   BEGIN
29 
30      UPDATE ak_region_items
31      SET    node_display_flag = 'N'
32      WHERE  region_code in ('PJM_ALL_PROJ_STATUS',
33                             'PJM_ALL_PROJ_TASK_STATUS',
34                             'PJM_ALL_PROJ_RSRC_STATUS')
35        AND  object_attribute_flag = 'Y';
36 
37      OPEN c_proj_status;
38      LOOP
39 	FETCH c_proj_status INTO var_column_prompt, var_column_order;
40 	EXIT WHEN c_proj_status%NOTFOUND;
41 
42         update ak_region_items
43         set    node_display_flag = 'Y'
44         where  region_code = 'PJM_ALL_PROJ_STATUS'
45           and  substr(attribute_code,7) = to_char(var_column_order);
46 
47         update ak_region_items_tl
48         set    attribute_label_long = substr(var_column_prompt,1,50)
49         where  region_code = 'PJM_ALL_PROJ_STATUS'
50           and  substr(attribute_code,7) = to_char(var_column_order);
51 
52      END LOOP;
53      CLOSE c_proj_status;
54 
55      OPEN c_task_status;
56      LOOP
57         FETCH c_task_status INTO var_column_prompt, var_column_order;
58         EXIT WHEN c_task_status%NOTFOUND;
59 
60         update ak_region_items
61         set    node_display_flag = 'Y'
62         where  region_code = 'PJM_ALL_PROJ_TASK_STATUS'
63           and  substr(attribute_code,7) = to_char(var_column_order);
64 
65         update ak_region_items_tl
66         set    attribute_label_long = substr(var_column_prompt,1,50)
67         where  region_code = 'PJM_ALL_PROJ_TASK_STATUS'
68           and  substr(attribute_code,7) = to_char(var_column_order);
69 
70      END LOOP;
71      CLOSE c_task_status;
72 
73      OPEN c_rsrc_status;
74      LOOP
75         FETCH c_rsrc_status INTO var_column_prompt, var_column_order;
76         EXIT WHEN c_rsrc_status%NOTFOUND;
77 
78         update ak_region_items
79         set    node_display_flag = 'Y'
80         where  region_code = 'PJM_ALL_PROJ_RSRC_STATUS'
81           and  substr(attribute_code,7) = to_char(var_column_order);
82 
83         update ak_region_items_tl
84         set    attribute_label_long = substr(var_column_prompt,1,50)
85         where  region_code = 'PJM_ALL_PROJ_RSRC_STATUS'
86           and  substr(attribute_code,7) = to_char(var_column_order);
87 
88      END LOOP;
89      CLOSE c_rsrc_status;
90 /*
91     EXCEPTION
92     WHEN OTHERS THEN
93       APP_EXCEPTION.RAISE_EXCEPTION;
94 */
95   END UPDATE_PA_STATUS_REGIONS;
96 
97 END PJM_UPDATE_AK_REGION_ITEMS_PKG;
98