PACKAGE: APPS.MSC_UNDO

Source

1 PACKAGE MSC_UNDO AUTHID CURRENT_USER AS
2 /* $Header: MSCUNDOS.pls 115.4 2002/12/02 18:10:43 eychen ship $ */
3 
4 
5   --Action passed from form.
6   inserted constant number := 1;
7   updated constant number := 2;
8   bookmark constant number := 3;
9   start_online constant number := 4;
10   replan_start constant number := 5;
11   replan_stop constant number := 6;
12   stop_online constant number := 7;
13 
14   TYPE UndoTblType_type IS RECORD
15   (
16 	undo_id NUMBER,
17 	action NUMBER,
18 	table_changed NUMBER,
19 	plan_id NUMBER,
20 	sr_instance_id NUMBER,
21 	transaction_id NUMBER,
22         last_update_date DATE
23   );
24 
25   TYPE UndoTblType IS TABLE OF UndoTblType_type INDEX BY BINARY_INTEGER;
26   --to contain undo_summary to insert into undo_summary table.
27 
28 
29   TYPE ChangeRGType_type IS RECORD
30   (
31     Column_changed VARCHAR2(30),
32     Column_changed_text VARCHAR2(240),
33     Old_Value      VARCHAR2(240),
34     Column_Type VARCHAR2(10),
35     New_Value      VARCHAR2(240)
36   );
37 
38   TYPE ChangeRGType IS TABLE OF ChangeRgType_type INDEX BY BINARY_INTEGER;
39   --to contain undo_details to insert into undo_details table
40 
41 
42   TYPE UndoIdTblType_type IS RECORD
43   (
44 	undo_id NUMBER
45   );
46 
47   TYPE UndoIdTblType IS TABLE OF UndoIdTblType_type INDEX BY BINARY_INTEGER;
48   --to contain undo_ids for undo
49 
50   procedure UNDO (undoID undoIdTblType,
51 		x_return_status OUT NOCOPY VARCHAR2,
52 		x_msg_count OUT NOCOPY NUMBER,
53 		x_msg_data OUT NOCOPY VARCHAR2);
54 
55   procedure STORE_UNDO (table_changed NUMBER,
56 		action NUMBER,
57 		transaction_id NUMBER,
58 		plan_id NUMBER,
59 		sr_instance_id NUMBER,
60 		parent_id NUMBER,
61 		changed_values MSC_UNDO.ChangeRGType,
62 		x_return_status OUT NOCOPY VARCHAR2,
63 		x_msg_count OUT NOCOPY NUMBER,
64 		x_msg_data OUT NOCOPY VARCHAR2,
65 		undo_id NUMBER DEFAULT NULL);
66 
67   procedure ADD_BOOKMARK(bookmark_name VARCHAR2,
68 		action NUMBER,
69 		plan_id NUMBER,
70 		x_return_status OUT NOCOPY VARCHAR2,
71 		x_msg_count OUT NOCOPY NUMBER,
72 		x_msg_data OUT NOCOPY VARCHAR2);
73 
74 
75 --Private procedures
76 
77   v_user_id NUMBER ;
78   v_last_update_login NUMBER;
79 
80   procedure set_Vars;  -- to set the who cols
81 
82  function undo_validate(v_undo_id number,
83 			x_return_status out NOCOPY VARCHAR2,
84 			x_msg_count OUT NOCOPY NUMBER,
85 			x_msg_data OUT NOCOPY VARCHAR2) return number;
86 
87   PROCEDURE update_table(p_table_changed NUMBER,
88 			p_column_changed VARCHAR2,
89 			p_old_value VARCHAR2,
90 			p_new_value VARCHAR2,
91 			p_column_type VARCHAR2,
92 			p_plan_id NUMBER,
93 			p_sr_instance_id NUMBER,
94 			p_transaction_id NUMBER,
95 			x_return_status OUT NOCOPY VARCHAR2,
96 			x_msg_count OUT NOCOPY NUMBER,
97 			x_msg_data OUT NOCOPY VARCHAR2,
98 			p_undo_id NUMBER);
99   PROCEDURE insert_table (p_undo_id NUMBER,
100 			p_table_changed NUMBER,
101 			p_plan_id NUMBER,
102 			p_transaction_id NUMBER,
103 			p_sr_instance_id NUMBER,
104 			x_return_status OUT NOCOPY VARCHAR2,
105 			x_msg_count OUT NOCOPY NUMBER,
106 			x_msg_data OUT NOCOPY VARCHAR2);
107 END MSC_UNDO;