[Home] [Help]
PACKAGE BODY: APPS.QA_EDR_STANDARD
Source
1 PACKAGE BODY qa_edr_standard AS
2 /* $Header: qaedrb.pls 115.6 2004/02/18 01:58:17 isivakum noship $ */
3
4 counter pls_integer;
5
6 v_eventQuery EDR_STANDARD_PUB.EventDetail_tbl_type;
7 --Uncomment above when edr_standard_pub is available
8 v_erecord_id_tbl EDR_ERES_EVENT_PUB.ERECORD_ID_TBL_TYPE;
9 v_eres_event_rec EDR_ERES_EVENT_PUB.ERES_EVENT_REC_TYPE;--8.1.7 change
10 v_eres_event_tbl EDR_ERES_EVENT_PUB.ERES_EVENT_TBL_TYPE;
11
12 v_eventQuery_pvt EDR_STANDARD.eventQuery;
13
14 --Below added for bug 3265661 so Fuad can call this from engwkfwb.pls
15 v_doc_parameters_tbl EDR_EVIDENCESTORE_PUB.params_tbl_type;
16 v_sig_parameters_tbl EDR_EVIDENCESTORE_PUB.params_tbl_type;
17
18 --------------------------------------------------
19 --PRIVATE PROCEDURES
20 PROCEDURE convert_QaToEdr (qa_event IN qa_edr_standard.eres_event_rec_type,
21 edr_event IN OUT NOCOPY EDR_ERES_EVENT_PUB.eres_event_rec_type)
22 IS
23
24 BEGIN
25
26 edr_event.event_name := qa_event.event_name;
27 edr_event.event_key := qa_event.event_key ;
28 edr_event.erecord_id := qa_event.erecord_id;
29 edr_event.event_status := qa_event.event_status;
30 edr_event.param_name_1 := qa_event.param_name_1;
31 edr_event.param_value_1 := qa_event.param_value_1;
32 edr_event.param_name_2 := qa_event.param_name_2;
33 edr_event.param_value_2 := qa_event.param_value_2;
34 edr_event.param_name_3 := qa_event.param_name_3;
35 edr_event.param_value_3 := qa_event.param_value_3;
36 edr_event.param_name_4 := qa_event.param_name_4;
37 edr_event.param_value_4 := qa_event.param_value_4;
38 edr_event.param_name_5 := qa_event.param_name_5;
39 edr_event.param_value_5 := qa_event.param_value_5;
40 edr_event.param_name_6 := qa_event.param_name_6;
41 edr_event.param_value_6 := qa_event.param_value_6;
42 edr_event.param_name_7 := qa_event.param_name_7;
43 edr_event.param_value_7 := qa_event.param_value_7;
44 edr_event.param_name_8 := qa_event.param_name_8;
45 edr_event.param_value_8 := qa_event.param_value_8;
46 edr_event.param_name_9 := qa_event.param_name_9;
47 edr_event.param_value_9 := qa_event.param_value_9;
48 edr_event.param_name_10 := qa_event.param_name_10;
49 edr_event.param_value_10 := qa_event.param_value_10;
50 edr_event.param_name_11 := qa_event.param_name_11;
51 edr_event.param_value_11 := qa_event.param_value_11;
52 edr_event.param_name_12 := qa_event.param_name_12;
53 edr_event.param_value_12 := qa_event.param_value_12;
54 edr_event.param_name_13 := qa_event.param_name_13;
55 edr_event.param_value_13 := qa_event.param_value_13;
56 edr_event.param_name_14 := qa_event.param_name_14;
57 edr_event.param_value_14 := qa_event.param_value_14;
58 edr_event.param_name_15 := qa_event.param_name_15;
59 edr_event.param_value_15 := qa_event.param_value_15;
60 edr_event.param_name_16 := qa_event.param_name_16;
61 edr_event.param_value_16 := qa_event.param_value_16;
62 edr_event.param_name_17 := qa_event.param_name_17;
63 edr_event.param_value_17 := qa_event.param_value_17;
64 edr_event.param_name_18 := qa_event.param_name_18;
65 edr_event.param_value_18 := qa_event.param_value_18;
66 edr_event.param_name_19 := qa_event.param_name_19;
67 edr_event.param_value_19 := qa_event.param_value_19;
68 edr_event.param_name_20 := qa_event.param_name_20;
69 edr_event.param_value_20 := qa_event.param_value_20;
70
71 END convert_QaToEdr;
72 --------------------------------------------------------------------
73 PROCEDURE convert_EdrToQa (edr_event IN EDR_ERES_EVENT_PUB.eres_event_rec_type,
74 qa_event IN OUT NOCOPY qa_edr_standard.eres_event_rec_type)
75 IS
76
77 BEGIN
78
79 qa_event.event_name := edr_event.event_name;
80 qa_event.event_key := edr_event.event_key ;
81 qa_event.erecord_id := edr_event.erecord_id;
82 qa_event.event_status := edr_event.event_status;
83 qa_event.param_name_1 := edr_event.param_name_1;
84 qa_event.param_value_1 := edr_event.param_value_1;
85 qa_event.param_name_2 := edr_event.param_name_2;
86 qa_event.param_value_2 := edr_event.param_value_2;
87 qa_event.param_name_3 := edr_event.param_name_3;
88 qa_event.param_value_3 := edr_event.param_value_3;
89 qa_event.param_name_4 := edr_event.param_name_4;
90 qa_event.param_value_4 := edr_event.param_value_4;
91 qa_event.param_name_5 := edr_event.param_name_5;
92 qa_event.param_value_5 := edr_event.param_value_5;
93 qa_event.param_name_6 := edr_event.param_name_6;
94 qa_event.param_value_6 := edr_event.param_value_6;
95 qa_event.param_name_7 := edr_event.param_name_7;
96 qa_event.param_value_7 := edr_event.param_value_7;
97 qa_event.param_name_8 := edr_event.param_name_8;
98 qa_event.param_value_8 := edr_event.param_value_8;
99 qa_event.param_name_9 := edr_event.param_name_9;
100 qa_event.param_value_9 := edr_event.param_value_9;
101 qa_event.param_name_10 := edr_event.param_name_10;
102 qa_event.param_value_10 := edr_event.param_value_10;
103 qa_event.param_name_11 := edr_event.param_name_11;
104 qa_event.param_value_11 := edr_event.param_value_11;
105 qa_event.param_name_12 := edr_event.param_name_12;
106 qa_event.param_value_12 := edr_event.param_value_12;
107 qa_event.param_name_13 := edr_event.param_name_13;
108 qa_event.param_value_13 := edr_event.param_value_13;
109 qa_event.param_name_14 := edr_event.param_name_14;
110 qa_event.param_value_14 := edr_event.param_value_14;
111 qa_event.param_name_15 := edr_event.param_name_15;
112 qa_event.param_value_15 := edr_event.param_value_15;
113 qa_event.param_name_16 := edr_event.param_name_16;
114 qa_event.param_value_16 := edr_event.param_value_16;
115 qa_event.param_name_17 := edr_event.param_name_17;
116 qa_event.param_value_17 := edr_event.param_value_17;
117 qa_event.param_name_18 := edr_event.param_name_18;
118 qa_event.param_value_18 := edr_event.param_value_18;
119 qa_event.param_name_19 := edr_event.param_name_19;
120 qa_event.param_value_19 := edr_event.param_value_19;
121 qa_event.param_name_20 := edr_event.param_name_20;
122 qa_event.param_value_20 := edr_event.param_value_20;
123
124 END convert_EdrToQa;
125
126 ---------------------------------------------------------------
127 PROCEDURE Get_PsigStatus (
128 p_api_version IN NUMBER,
129 p_init_msg_list IN VARCHAR2,
130 x_return_status OUT NOCOPY VARCHAR2,
131 x_msg_count OUT NOCOPY NUMBER,
132 x_msg_data OUT NOCOPY VARCHAR2,
133 p_event_name in varchar2,
134 p_event_key in varchar2,
135 x_psig_status out NOCOPY varchar2 )
136 IS
137
138 BEGIN
139
140 edr_standard_pub.Get_PsigStatus(
141 p_api_version,
142 p_init_msg_list,
143 x_return_status,
144 x_msg_count,
145 x_msg_data,
146 p_event_name,
147 p_event_key,
148 x_psig_status);
149
150 NULL;
151 END;
152
153 -- ---------------------------------------
154
155 PROCEDURE Is_eSig_Required (
156 p_api_version IN NUMBER,
157 p_init_msg_list IN VARCHAR2,
158 x_return_status OUT NOCOPY VARCHAR2,
159 x_msg_count OUT NOCOPY NUMBER,
160 x_msg_data OUT NOCOPY VARCHAR2,
161 p_event_name IN varchar2,
162 p_event_key IN varchar2,
163 x_isRequired_eSig OUT NOCOPY VARCHAR2 )
164 IS
165
166 BEGIN
167
168 edr_standard_pub.Is_eSig_Required (
169 p_api_version,
170 p_init_msg_list,
171 x_return_status,
172 x_msg_count,
173 x_msg_data,
174 p_event_name,
175 p_event_key,
176 x_isRequired_eSig );
177
178 NULL;
179 END;
180
181 -- ---------------------------------------
182
183 PROCEDURE Is_eRec_Required (
184 p_api_version IN NUMBER,
185 p_init_msg_list IN VARCHAR2,
186 x_return_status OUT NOCOPY VARCHAR2,
187 x_msg_count OUT NOCOPY NUMBER,
188 x_msg_data OUT NOCOPY VARCHAR2,
189 p_event_name IN varchar2,
190 p_event_key IN varchar2,
191 x_isRequired_eRec OUT NOCOPY VARCHAR2 )
192 IS
193
194 BEGIN
195
196 edr_standard_pub.Is_eRec_Required (
197 p_api_version,
198 p_init_msg_list,
199 x_return_status,
200 x_msg_count,
201 x_msg_data,
202 p_event_name,
203 p_event_key,
204 x_isRequired_eRec ) ;
205
206 NULL;
207 END;
208
209
210 -- ---------------------------------------
211
212 Procedure Get_QueryId_OnEvents (
213 p_api_version IN NUMBER,
214 p_init_msg_list IN VARCHAR2,
215 p_commit IN VARCHAR2,
216 x_return_status OUT NOCOPY VARCHAR2,
217 x_msg_count OUT NOCOPY NUMBER,
218 x_msg_data OUT NOCOPY VARCHAR2,
219 p_eventQuery_recTbl IN qa_edr_standard.eventQuery,
220 x_query_id OUT NOCOPY NUMBER )
221 IS
222 i NUMBER;
223 BEGIN
224
225 for counter IN 1..p_eventQuery_recTbl.COUNT loop
226 v_eventQuery(counter).event_name := p_eventQuery_recTbl(counter).event_name;
227 v_eventQuery(counter).event_key := p_eventQuery_recTbl(counter).event_key;
228 v_eventQuery(counter).key_type := p_eventQuery_recTbl(counter).key_type;
229 end loop;
230
231 edr_standard_pub.Get_QueryId_OnEvents (
232 p_api_version,
233 p_init_msg_list,
234 p_commit,
235 x_return_status,
236 x_msg_count,
237 x_msg_data,
238 v_eventQuery,
239 x_query_id );
240
241 NULL;
242 END;
243
244
245 -- --------------------------------------
246
247 PROCEDURE DISPLAY_DATE_PUB (
248 p_api_version IN NUMBER,
249 p_init_msg_list IN VARCHAR2,
250 x_return_status OUT NOCOPY VARCHAR2,
251 x_msg_count OUT NOCOPY NUMBER,
252 x_msg_data OUT NOCOPY VARCHAR2,
253 P_DATE_IN IN DATE ,
254 x_date_out OUT NOCOPY Varchar2 ) IS
255 BEGIN
256
257 edr_standard_pub.DISPLAY_DATE (
258 p_api_version,
259 p_init_msg_list,
260 x_return_status,
261 x_msg_count,
262 x_msg_data,
263 P_DATE_IN,
264 x_date_out );
265
266 NULL;
267 END;
268
269
270 -- ---------------------------------------
271
272 Procedure Is_AuditValue_Old (
273 p_api_version IN NUMBER,
274 p_init_msg_list IN VARCHAR2,
275 x_return_status OUT NOCOPY VARCHAR2,
276 x_msg_count OUT NOCOPY NUMBER,
277 x_msg_data OUT NOCOPY VARCHAR2,
278 p_table_name IN VARCHAR2,
279 p_column_name IN VARCHAR2,
280 p_primKey_name IN VARCHAR2,
281 p_primKey_value IN VARCHAR2,
282 x_isOld_auditValue OUT NOCOPY VARCHAR2 )
283 IS
284 BEGIN
285
286 edr_standard_pub.Is_AuditValue_Old (
287 p_api_version,
288 p_init_msg_list,
289 x_return_status,
290 x_msg_count,
291 x_msg_data,
292 p_table_name,
293 p_column_name,
294 p_primKey_name,
295 p_primKey_value,
296 x_isOld_auditValue);
297
298 NULL;
299 END;
300
301 -- ---------------------------------------
302
303 PROCEDURE Get_Lookup_Meaning (
304 p_api_version IN NUMBER,
305 p_init_msg_list IN VARCHAR2,
306 x_return_status OUT NOCOPY VARCHAR2,
307 x_msg_count OUT NOCOPY NUMBER,
308 x_msg_data OUT NOCOPY VARCHAR2,
309 p_lookup_type IN VARCHAR2,
310 p_lookup_code IN VARCHAR2,
311 x_lkup_meaning OUT NOCOPY VARCHAR2 )
312 IS
313
314 BEGIN
315 edr_standard_pub.Get_Lookup_Meaning (
316 p_api_version,
317 p_init_msg_list,
318 x_return_status,
319 x_msg_count,
320 x_msg_data,
321 p_lookup_type,
322 p_lookup_code,
323 x_lkup_meaning );
324 NULL;
325 END;
326
327 ------------------------------------------------------------------
328 FUNCTION PSIG_QUERY(p_eventQuery QA_EDR_STANDARD.eventQuery) return number IS PRAGMA AUTONOMOUS_TRANSACTION;
329 i number;
330 begin
331 for counter IN 1..p_eventQuery.COUNT loop
332 v_eventQuery_pvt(counter).event_name := p_eventQuery(counter).event_name;
333 v_eventQuery_pvt(counter).event_key := p_eventQuery(counter).event_key;
334 v_eventQuery_pvt(counter).key_type := p_eventQuery(counter).key_type;
335 end loop;
336 i := edr_standard.psig_query(v_eventQuery_pvt);
337 return i;
338 END PSIG_QUERY;
339
340
341
342 PROCEDURE DISPLAY_DATE(P_DATE_IN in DATE , P_DATE_OUT OUT NOCOPY Varchar2) IS
343 BEGIN
344 edr_standard.display_date(p_date_in, p_date_out);
345 END DISPLAY_DATE;
346
347 --Below from EDR_ERES_EVENT_PUB
348 PROCEDURE RAISE_ERES_EVENT
349 ( p_api_version IN NUMBER ,
350 p_init_msg_list IN VARCHAR2,
351 p_validation_level IN NUMBER,
352 x_return_status OUT NOCOPY VARCHAR2 ,
353 x_msg_count OUT NOCOPY NUMBER ,
354 x_msg_data OUT NOCOPY VARCHAR2 ,
355 p_child_erecords IN ERECORD_ID_TBL_TYPE ,
356 x_event IN OUT NOCOPY ERES_EVENT_REC_TYPE
357 )
358 IS
359
360 BEGIN
361 for counter IN 1..p_child_erecords.COUNT loop
362 v_erecord_id_tbl(counter) := p_child_erecords(counter);
363 end loop;
364
365 convert_QaToEdr (x_event, v_eres_event_rec);
366
367 EDR_ERES_EVENT_PUB.RAISE_ERES_EVENT
368 ( p_api_version ,
369 p_init_msg_list ,
370 p_validation_level ,
371 x_return_status ,
372 x_msg_count ,
373 x_msg_data ,
377
374 v_erecord_id_tbl ,
375 v_eres_event_rec
376 ) ;
378 convert_EdrToQa(v_eres_event_rec, x_event);
379
380 END;
381
382 PROCEDURE RAISE_INTER_EVENT
383 ( p_api_version IN NUMBER ,
384 p_init_msg_list IN VARCHAR2,
385 p_validation_level IN NUMBER,
386 x_return_status OUT NOCOPY VARCHAR2 ,
387 x_msg_count OUT NOCOPY NUMBER ,
388 x_msg_data OUT NOCOPY VARCHAR2 ,
389 x_events IN OUT NOCOPY ERES_EVENT_TBL_TYPE ,
390 x_overall_status OUT NOCOPY VARCHAR2
391 )
392 IS
393
394 BEGIN
395 for counter IN 1..x_events.COUNT loop
396 convert_QaToEdr(x_events(counter), v_eres_event_tbl(counter));
397 end loop;
398
399 EDR_ERES_EVENT_PUB.RAISE_INTER_EVENT
400 ( p_api_version ,
401 p_init_msg_list ,
402 p_validation_level ,
403 x_return_status ,
404 x_msg_count ,
405 x_msg_data ,
406 v_eres_event_tbl ,
407 x_overall_status
408 );
409
410 for counter IN 1..x_events.COUNT loop
411 convert_EdrToQa(v_eres_event_tbl(counter), x_events(counter));
412 end loop;
413
414 END;
415
416
417 PROCEDURE GET_ERECORD_ID ( p_api_version IN NUMBER ,
418 p_init_msg_list IN VARCHAR2 ,
419 x_return_status OUT NOCOPY VARCHAR2 ,
420 x_msg_count OUT NOCOPY NUMBER ,
421 x_msg_data OUT NOCOPY VARCHAR2 ,
422 p_event_name IN VARCHAR2 ,
423 p_event_key IN VARCHAR2 ,
424 x_erecord_id OUT NOCOPY NUMBER )
425 IS
426
427 BEGIN
428 EDR_STANDARD_PUB.GET_ERECORD_ID
429 ( p_api_version ,
430 p_init_msg_list ,
431 x_return_status ,
432 x_msg_count ,
433 x_msg_data ,
434 p_event_name ,
435 p_event_key ,
436 x_erecord_id );
437 NULL;
438 END;
439
440 procedure SEND_ACKN
441 ( p_api_version IN NUMBER ,
442 p_init_msg_list IN VARCHAR2 ,
443 x_return_status OUT NOCOPY VARCHAR2 ,
444 x_msg_count OUT NOCOPY NUMBER ,
445 x_msg_data OUT NOCOPY VARCHAR2 ,
446 p_event_name IN VARCHAR2 ,
447 p_event_key IN VARCHAR2 ,
448 p_erecord_id IN NUMBER ,
449 p_trans_status IN VARCHAR2 ,
450 p_ackn_by IN VARCHAR2 ,
451 p_ackn_note IN VARCHAR2 ,
452 p_autonomous_commit IN VARCHAR2
453 )
454 IS
455 BEGIN
456 EDR_TRANS_ACKN_PUB.SEND_ACKN( p_api_version,
457 p_init_msg_list,
458 x_return_status ,
459 x_msg_count ,
460 x_msg_data ,
461 p_event_name ,
462 p_event_key ,
463 p_erecord_id ,
464 p_trans_status ,
465 p_ackn_by ,
466 p_ackn_note ,
467 p_autonomous_commit
468 );
469 END;
470
471 -- ----------------------------------------
472 -- API name : wrapper for edr Capture_Signature
473 -- Reference : edr_evidencestore_pub.capture_signature for documentation
474 -- Function : capture the signature for single event
475 -- BUG: Below added for bug 3265661 so Fuad can call this from engwkfwb.pls
476 -- ---------------------------------------
477
478 PROCEDURE Capture_Signature (
479 p_api_version IN NUMBER,
480 p_init_msg_list IN VARCHAR2,
481 p_commit IN VARCHAR2,
482 x_return_status OUT NOCOPY VARCHAR2,
483 x_msg_count OUT NOCOPY NUMBER,
484 x_msg_data OUT NOCOPY VARCHAR2,
485 p_psig_xml IN CLOB,
486 p_psig_document IN CLOB,
487 p_psig_docFormat IN VARCHAR2,
488 p_psig_requester IN VARCHAR2,
489 p_psig_source IN VARCHAR2,
490 p_event_name IN VARCHAR2,
491 p_event_key IN VARCHAR2,
492 p_wf_notif_id IN NUMBER,
493 x_document_id OUT NOCOPY NUMBER,
494 p_doc_parameters_tbl IN qa_edr_standard.Params_tbl_type,
495 p_user_name IN VARCHAR2,
496 p_original_recipient IN VARCHAR2,
497 p_overriding_comment IN VARCHAR2,
498 x_signature_id OUT NOCOPY NUMBER,
499 p_evidenceStore_id IN NUMBER,
500 p_user_response IN VARCHAR2,
501 p_sig_parameters_tbl IN qa_edr_standard.Params_tbl_type )
502 IS
503 BEGIN
504 for counter IN 1..p_doc_parameters_tbl.COUNT loop
505 v_doc_parameters_tbl(counter).param_name := p_doc_parameters_tbl(counter).param_name;
506 v_doc_parameters_tbl(counter).param_value := p_doc_parameters_tbl(counter).param_value;
507 v_doc_parameters_tbl(counter).param_displayname := p_doc_parameters_tbl(counter).param_displayname;
508 end loop;
509
513 v_sig_parameters_tbl(counter).param_displayname := p_sig_parameters_tbl(counter).param_displayname;
510 for counter IN 1..p_sig_parameters_tbl.COUNT loop
511 v_sig_parameters_tbl(counter).param_name := p_sig_parameters_tbl(counter).param_name;
512 v_sig_parameters_tbl(counter).param_value := p_sig_parameters_tbl(counter).param_value;
514 end loop;
515
516 -- capture and store the eRecord in the evidence store
517 EDR_EvidenceStore_PUB.Capture_Signature (
518 p_api_version => p_api_version,
519 p_init_msg_list => p_init_msg_list,
520 p_commit => p_commit,
521 x_return_status => x_return_status,
522 x_msg_count => x_msg_count,
523 x_msg_data => x_msg_data,
524 P_PSIG_XML => p_psig_xml,
525 P_PSIG_DOCUMENT => p_psig_document,
526 P_PSIG_DocFormat => p_psig_docFormat,
527 P_PSIG_REQUESTER => p_psig_requester,
528 P_PSIG_SOURCE => p_psig_source,
529 P_EVENT_NAME => p_event_name,
530 P_EVENT_KEY => p_event_key,
531 P_WF_Notif_ID => p_wf_notif_id,
532 x_DOCUMENT_ID => x_document_id,
533 p_doc_parameters_tbl => v_doc_parameters_tbl,
534 p_user_name => p_user_name,
535 p_original_recipient => p_original_recipient,
536 p_overriding_comment => p_overriding_comment,
537 x_signature_id => x_signature_id,
538 p_evidenceStore_id => p_evidenceStore_id,
539 p_user_response => p_user_response,
540 p_sig_parameters_tbl => v_sig_parameters_tbl );
541
542 END;
543
544 FUNCTION IS_INSTALLED RETURN VARCHAR2
545 IS
546 --Above is a new function added as per bug 3253566
547 --it returns 'F' in the stub version and 'T' in real version
548 BEGIN
549 RETURN FND_API.G_TRUE; --this is the character 'T'
550 END;
551
552 -- ALL OF BELOW 6 Procedures added due to Bug 3447098 as requested by
553 -- ENG-Eres team developer Fuad Abdi
554 -- ----------------------------------------
555 -- API name : Open_Document (Bug 3447098)
556 -- Type : Public
557 -- Function : create a document instance for signature
558 -- : and can associate signatures before closing the docuemnt
559 -- Versions : 1.0 17-Jul-03 created
560 -- ---------------------------------------
561
562 PROCEDURE open_Document (
563 p_api_version IN NUMBER,
564 p_init_msg_list IN VARCHAR2 default NULL,
565 p_commit IN VARCHAR2 default NULL,
566 x_return_status OUT NOCOPY VARCHAR2,
567 x_msg_count OUT NOCOPY NUMBER,
568 x_msg_data OUT NOCOPY VARCHAR2,
569 P_PSIG_XML IN CLOB DEFAULT NULL,
570 P_PSIG_DOCUMENT IN CLOB DEFAULT NULL,
571 P_PSIG_DOCUMENTFORMAT IN VARCHAR2 DEFAULT NULL,
572 P_PSIG_REQUESTER IN VARCHAR2,
573 P_PSIG_SOURCE IN VARCHAR2 DEFAULT NULL,
574 P_EVENT_NAME IN VARCHAR2 DEFAULT NULL,
575 P_EVENT_KEY IN VARCHAR2 DEFAULT NULL,
576 p_WF_Notif_ID IN NUMBER DEFAULT NULL,
577 x_DOCUMENT_ID OUT NOCOPY NUMBER )
578 IS
579 BEGIN
580 EDR_EvidenceStore_PUB.open_document (
581 p_api_version ,
582 p_init_msg_list ,
583 p_commit ,
584 x_return_status ,
585 x_msg_count ,
586 x_msg_data ,
587 P_PSIG_XML ,
588 P_PSIG_DOCUMENT ,
589 P_PSIG_DOCUMENTFORMAT ,
590 P_PSIG_REQUESTER ,
591 P_PSIG_SOURCE ,
592 P_EVENT_NAME ,
593 P_EVENT_KEY ,
594 p_WF_Notif_ID ,
595 x_DOCUMENT_ID );
596 END;
597
598 -- ----------------------------------------
599 -- API name : Post_DocumentParameter (Bug 3447098)
600 -- Type : Public
601 -- Function : Update a document
602 -- Versions : 1.0 17-Jul-03 created
603 -- ---------------------------------------
604
605 PROCEDURE Post_DocumentParameters (
606 p_api_version IN NUMBER,
607 p_init_msg_list IN VARCHAR2 default NULL,
608 p_commit IN VARCHAR2 default NULL,
609 x_return_status OUT NOCOPY VARCHAR2,
610 x_msg_count OUT NOCOPY NUMBER,
611 x_msg_data OUT NOCOPY VARCHAR2,
612 p_document_id IN NUMBER,
613 p_doc_parameters_tbl IN qa_edr_standard.Params_tbl_type )
614 IS
615 BEGIN
616 v_doc_parameters_tbl.DELETE; --clear the table if anything already exists
617
618 for counter IN 1..p_doc_parameters_tbl.COUNT loop
619 v_doc_parameters_tbl(counter).param_name := p_doc_parameters_tbl(counter).param_name;
620 v_doc_parameters_tbl(counter).param_value := p_doc_parameters_tbl(counter).param_value;
621 v_doc_parameters_tbl(counter).param_displayname := p_doc_parameters_tbl(counter).param_displayname;
622 end loop;
623
624 EDR_EvidenceStore_PUB.Post_DocumentParameters (
625 p_api_version ,
626 p_init_msg_list ,
627 p_commit ,
628 x_return_status ,
629 x_msg_count ,
630 x_msg_data ,
631 p_document_id ,
632 v_doc_parameters_tbl );
633 END;
634
635 -- ----------------------------------------
636 -- API name : Close_Document (Bug 3447098)
637 -- Type : Public
638 -- Function : close a document
639 -- Versions : 1.0 17-Jul-03 created
640 -- ---------------------------------------
641
642 PROCEDURE Close_Document (
643 p_api_version IN NUMBER,
644 p_init_msg_list IN VARCHAR2 default NULL,
645 p_commit IN VARCHAR2 default NULL,
649 P_DOCUMENT_ID IN NUMBER )
646 x_return_status OUT NOCOPY VARCHAR2,
647 x_msg_count OUT NOCOPY NUMBER,
648 x_msg_data OUT NOCOPY VARCHAR2,
650 IS
651 BEGIN
652 EDR_EvidenceStore_PUB.Close_Document (
653 p_api_version ,
654 p_init_msg_list ,
655 p_commit ,
656 x_return_status ,
657 x_msg_count ,
658 x_msg_data ,
659 P_DOCUMENT_ID );
660
661 END;
662
663 -- ----------------------------------------
664 -- API name : Request_Signature (Bug 3447098)
665 -- Type : Public
666 -- Function : Update a document
667 -- Versions : 1.0 17-Jul-03 created
668 -- ---------------------------------------
669
670 PROCEDURE Request_Signature (
671 p_api_version IN NUMBER,
672 p_init_msg_list IN VARCHAR2 default NULL,
673 p_commit IN VARCHAR2 default NULL,
674 x_return_status OUT NOCOPY VARCHAR2,
675 x_msg_count OUT NOCOPY NUMBER,
676 x_msg_data OUT NOCOPY VARCHAR2,
677 P_DOCUMENT_ID IN NUMBER,
678 P_USER_NAME IN VARCHAR2,
679 P_ORIGINAL_RECIPIENT IN VARCHAR2 DEFAULT NULL,
680 P_OVERRIDING_COMMENT IN VARCHAR2 DEFAULT NULL,
681 x_signature_id OUT NOCOPY NUMBER )
682 IS
683 BEGIN
684 EDR_EvidenceStore_PUB.Request_Signature (
685 p_api_version ,
686 p_init_msg_list ,
687 p_commit ,
688 x_return_status ,
689 x_msg_count ,
690 x_msg_data ,
691 P_DOCUMENT_ID ,
692 P_USER_NAME ,
693 P_ORIGINAL_RECIPIENT ,
694 P_OVERRIDING_COMMENT ,
695 x_signature_id );
696
697 END;
698
699
700 -- ----------------------------------------
701 -- API name : Post_Signature (Bug 3447098)
702 -- Type : Public
703 -- Function : Update a document
704 -- Versions : 1.0 17-Jul-03 created
705 -- ---------------------------------------
706
707 PROCEDURE Post_Signature (
708 p_api_version IN NUMBER,
709 p_init_msg_list IN VARCHAR2 default NULL,
710 p_commit IN VARCHAR2 default NULL,
711 x_return_status OUT NOCOPY VARCHAR2,
712 x_msg_count OUT NOCOPY NUMBER,
713 x_msg_data OUT NOCOPY VARCHAR2,
714 P_DOCUMENT_ID IN NUMBER,
715 p_evidenceStore_id IN VARCHAR2,
716 P_USER_NAME IN VARCHAR2,
717 P_USER_RESPONSE IN VARCHAR2,
718 P_ORIGINAL_RECIPIENT IN VARCHAR2 DEFAULT NULL,
719 P_OVERRIDING_COMMENT IN VARCHAR2 DEFAULT NULL,
720 x_signature_id OUT NOCOPY NUMBER )
721 IS
722 BEGIN
723 EDR_EvidenceStore_PUB.Post_Signature (
724 p_api_version ,
725 p_init_msg_list ,
726 p_commit ,
727 x_return_status ,
728 x_msg_count ,
729 x_msg_data ,
730 P_DOCUMENT_ID ,
731 p_evidenceStore_id ,
732 P_USER_NAME ,
733 P_USER_RESPONSE ,
734 P_ORIGINAL_RECIPIENT ,
735 P_OVERRIDING_COMMENT ,
736 x_signature_id );
737
738 END;
739
740
741
742 -- ----------------------------------------
743 -- API name : Post_SignatureParameters (Bug 3447098)
744 -- Type : Public
745 -- Function : Update a document
746 -- Versions : 1.0 17-Jul-03 created
747 -- ---------------------------------------
748
749 PROCEDURE Post_SignatureParameters (
750 p_api_version IN NUMBER,
751 p_init_msg_list IN VARCHAR2 default NULL,
752 p_commit IN VARCHAR2 default NULL,
753 x_return_status OUT NOCOPY VARCHAR2,
754 x_msg_count OUT NOCOPY NUMBER,
755 x_msg_data OUT NOCOPY VARCHAR2,
756 p_signature_id IN NUMBER,
757 p_sig_parameters_tbl IN qa_edr_standard.Params_tbl_type )
758 IS
759 BEGIN
760 v_doc_parameters_tbl.DELETE; --clear the table if anything already exists
761
762 for counter IN 1..p_sig_parameters_tbl.COUNT loop
763 v_doc_parameters_tbl(counter).param_name := p_sig_parameters_tbl(counter).param_name;
764 v_doc_parameters_tbl(counter).param_value := p_sig_parameters_tbl(counter).param_value;
765 v_doc_parameters_tbl(counter).param_displayname := p_sig_parameters_tbl(counter).param_displayname;
766 end loop;
767
768 EDR_EvidenceStore_PUB.Post_SignatureParameters (
769 p_api_version ,
770 p_init_msg_list ,
771 p_commit ,
772 x_return_status ,
773 x_msg_count ,
774 x_msg_data ,
775 p_signature_id ,
776 v_doc_parameters_tbl );
777
778 END;
779
780
781 end QA_EDR_STANDARD;