[Home] [Help]
PACKAGE BODY: APPS.MRP_PRINT_PK
Source
1 PACKAGE BODY mrp_print_pk AS
2 /* $Header: MRPPTISB.pls 115.0 99/07/16 12:34:58 porting ship $ */
3 PROCEDURE stop_watch(arg_request_id IN NUMBER,
4 arg_transaction_id IN NUMBER,
5 arg_row_count IN NUMBER) IS
6 BEGIN
7 UPDATE mrp_messages_tmp
8 SET end_date = SYSDATE,
9 row_count = arg_row_count
10 WHERE request_id = arg_request_id
11 AND transaction_id = arg_transaction_id;
12 END stop_watch;
13
14 PROCEDURE stop_watch(arg_request_id IN NUMBER,
15 arg_transaction_id IN NUMBER) IS
16 BEGIN
17 mrp_print_pk.stop_watch(arg_request_id,
18 arg_transaction_id,
19 NULL);
20 END stop_watch;
21
22
23 PROCEDURE mrprint( arg_message_name IN VARCHAR2,
24 arg_request_id IN NUMBER,
25 arg_user_id IN NUMBER) IS
26
27 var_dummy NUMBER;
28 BEGIN
29 var_dummy := start_watch( arg_message_name,
30 arg_request_id,
31 arg_user_id);
32 END mrprint;
33
34 -- ********************** start_watch *************************
35 FUNCTION start_watch(
36 arg_message_name IN VARCHAR2,
37 arg_request_id IN NUMBER,
38 arg_user_id IN NUMBER,
39 arg_token1 IN VARCHAR2,
40 arg_token_value1 IN VARCHAR2,
41 arg_translate1 IN VARCHAR2,
42 arg_token2 IN VARCHAR2,
43 arg_token_value2 IN VARCHAR2,
44 arg_translate2 IN VARCHAR2) RETURN NUMBER IS
45 var_transaction_id NUMBER;
46 BEGIN
47 SELECT mrp_messages_tmp_s.nextval
48 INTO var_transaction_id
49 FROM dual;
50
51 INSERT INTO mrp_messages_tmp
52 (transaction_id,
53 request_id,
54 last_update_date,
55 last_updated_by,
56 creation_date,
57 created_by,
58 last_update_login,
59 message_name,
60 start_date,
61 end_date,
62 token1,
63 token_value1,
64 translate_token1,
65 token2,
66 token_value2,
67 translate_token2,
68 row_count)
69 VALUES (var_transaction_id,
70 arg_request_id,
71 SYSDATE,
72 arg_user_id,
73 SYSDATE,
74 arg_user_id,
75 -1,
76 arg_message_name,
77 SYSDATE,
78 NULL,
79 arg_token1,
80 arg_token_value1,
81 DECODE(arg_translate1, 'Y', SYS_YES, SYS_NO),
82 arg_token2,
83 arg_token_value2,
84 DECODE(arg_translate2, 'Y', SYS_YES, SYS_NO),
85 0);
86 -- we initialize row_count to 0 for a reason, If we do not need a row_count we
87 -- we will later update it to NULL
88
89 return(var_transaction_id);
90 END start_watch;
91
92 FUNCTION start_watch(
93 arg_message_name IN VARCHAR2,
94 arg_request_id IN NUMBER,
95 arg_user_id IN NUMBER,
96 arg_token1 IN VARCHAR2,
97 arg_token_value1 IN VARCHAR2,
98 arg_translate1 IN VARCHAR2) RETURN NUMBER IS
99 var_transaction_id NUMBER;
100 BEGIN
101 var_transaction_id := start_watch( arg_message_name,
102 arg_request_id,
103 arg_user_id,
104 arg_token1,
105 arg_token_value1,
106 arg_translate1,
107 NULL,
108 NULL,
109 NULL);
110 return(var_transaction_id);
111 END start_watch;
112
113 FUNCTION start_watch(
114 arg_message_name IN VARCHAR2,
115 arg_request_id IN NUMBER,
116 arg_user_id IN NUMBER) RETURN NUMBER IS
117 var_transaction_id NUMBER;
118 BEGIN
119 var_transaction_id := start_watch( arg_message_name,
120 arg_request_id,
121 arg_user_id,
122 NULL,
123 NULL,
124 NULL,
125 NULL,
126 NULL,
127 NULL);
128 RETURN(var_transaction_id);
129 END start_watch;
130
131
132 PROCEDURE clear_messages( arg_request_id IN NUMBER) IS
133 BEGIN
134
135 DELETE FROM mrp_messages_tmp
136 WHERE request_id = arg_request_id;
137
138 END clear_messages;
139
140 END; -- package