1: PACKAGE BODY wf_messages_vl_pub AS
2: /* $Header: wfdefb.pls 120.1 2005/07/02 03:43:48 appldev ship $ */
3:
4: /*===========================================================================
5: PACKAGE NAME: wf_messages_vl_pub
1: PACKAGE BODY wf_messages_vl_pub AS
2: /* $Header: wfdefb.pls 120.1 2005/07/02 03:43:48 appldev ship $ */
3:
4: /*===========================================================================
5: PACKAGE NAME: wf_messages_vl_pub
6:
7: DESCRIPTION:
8:
9: OWNER: GKELLNER
44: ============================================================================*/
45: PROCEDURE fetch_messages
46: (p_item_type IN VARCHAR2,
47: p_name IN VARCHAR2,
48: p_wf_messages_vl_tbl OUT NOCOPY wf_messages_vl_pub.wf_messages_vl_tbl_type,
49: p_wf_message_attr_vl_tbl OUT NOCOPY wf_messages_vl_pub.wf_message_attr_vl_tbl_type) IS
50:
51: CURSOR fetch_messages (c_item_type IN VARCHAR2) IS
52: SELECT row_id,
45: PROCEDURE fetch_messages
46: (p_item_type IN VARCHAR2,
47: p_name IN VARCHAR2,
48: p_wf_messages_vl_tbl OUT NOCOPY wf_messages_vl_pub.wf_messages_vl_tbl_type,
49: p_wf_message_attr_vl_tbl OUT NOCOPY wf_messages_vl_pub.wf_message_attr_vl_tbl_type) IS
50:
51: CURSOR fetch_messages (c_item_type IN VARCHAR2) IS
52: SELECT row_id,
53: type,
239: END IF;
240:
241: EXCEPTION
242: WHEN OTHERS THEN
243: Wf_Core.Context('wf_messages_vl_pub',
244: 'fetch_messages',
245: p_item_type,
246: p_name);
247:
260: p_internal_name IN VARCHAR2,
261: p_display_name OUT NOCOPY VARCHAR2) IS
262:
263: l_display_name VARCHAR2(80);
264: l_wf_messages_vl_tbl wf_messages_vl_pub.wf_messages_vl_tbl_type;
265: l_wf_message_attr_vl_tbl wf_messages_vl_pub.wf_message_attr_vl_tbl_type;
266:
267: BEGIN
268:
261: p_display_name OUT NOCOPY VARCHAR2) IS
262:
263: l_display_name VARCHAR2(80);
264: l_wf_messages_vl_tbl wf_messages_vl_pub.wf_messages_vl_tbl_type;
265: l_wf_message_attr_vl_tbl wf_messages_vl_pub.wf_message_attr_vl_tbl_type;
266:
267: BEGIN
268:
269: /*
316: using the draw_message_attr_list.
317:
318: ============================================================================*/
319: PROCEDURE draw_message_list
320: (p_wf_messages_vl_tbl IN wf_messages_vl_pub.wf_messages_vl_tbl_type,
321: p_wf_message_attr_vl_tbl IN wf_messages_vl_pub.wf_message_attr_vl_tbl_type,
322: p_effective_date IN DATE,
323: p_indent_level IN NUMBER) IS
324:
317:
318: ============================================================================*/
319: PROCEDURE draw_message_list
320: (p_wf_messages_vl_tbl IN wf_messages_vl_pub.wf_messages_vl_tbl_type,
321: p_wf_message_attr_vl_tbl IN wf_messages_vl_pub.wf_message_attr_vl_tbl_type,
322: p_effective_date IN DATE,
323: p_indent_level IN NUMBER) IS
324:
325: l_message_record_num NUMBER;
325: l_message_record_num NUMBER;
326: l_attr_record_num NUMBER := 1;
327: ii NUMBER := 0;
328: l_cur_attr_record_num NUMBER := 1;
329: l_wf_message_attr_vl_tbl wf_messages_vl_pub.wf_message_attr_vl_tbl_type;
330:
331: BEGIN
332:
333: /*
405: ** List all the message attribute details for this message that
406: ** we found above. Add two to the current indent level so it
407: ** is pushed in past the start of the message list.
408: */
409: wf_messages_vl_pub.draw_message_attr_list (
410: l_wf_message_attr_vl_tbl,
411: p_effective_date,
412: p_indent_level + 2);
413:
416: END LOOP;
417:
418: EXCEPTION
419: WHEN OTHERS THEN
420: Wf_Core.Context('wf_messages_vl_pub', 'draw_message_list');
421: wf_item_definition.Error;
422:
423: END draw_message_list;
424:
432: output.
433:
434: ============================================================================*/
435: PROCEDURE draw_message_attr_list
436: (p_wf_message_attr_vl_tbl IN wf_messages_vl_pub.wf_message_attr_vl_tbl_type,
437: p_effective_date IN DATE,
438: p_indent_level IN NUMBER) IS
439:
440: l_record_num NUMBER;
476: END LOOP;
477:
478: EXCEPTION
479: WHEN OTHERS THEN
480: Wf_Core.Context('wf_messages_vl_pub', 'draw_message_attr_list');
481: wf_item_definition.Error;
482:
483: END draw_message_attr_list;
484:
501: MODIFICATION LOG:
502: 06-JUN-2001 JWSMITH BUG 1819232 - added summary attr for table tag for ADA
503: ============================================================================*/
504: PROCEDURE draw_message_details
505: (p_wf_messages_vl_tbl IN wf_messages_vl_pub.wf_messages_vl_tbl_type,
506: p_wf_message_attr_vl_tbl IN wf_messages_vl_pub.wf_message_attr_vl_tbl_type,
507: p_indent_level IN NUMBER) IS
508:
509: l_message_record_num NUMBER := 1;
502: 06-JUN-2001 JWSMITH BUG 1819232 - added summary attr for table tag for ADA
503: ============================================================================*/
504: PROCEDURE draw_message_details
505: (p_wf_messages_vl_tbl IN wf_messages_vl_pub.wf_messages_vl_tbl_type,
506: p_wf_message_attr_vl_tbl IN wf_messages_vl_pub.wf_message_attr_vl_tbl_type,
507: p_indent_level IN NUMBER) IS
508:
509: l_message_record_num NUMBER := 1;
510: l_attr_record_num NUMBER := 1;
511: l_attr_marker NUMBER := 1;
512: l_cur_attr_record_num NUMBER := 1;
513: ii NUMBER := 0;
514: pri VARCHAR2(80) := NULL;
515: l_wf_message_attr_vl_tbl wf_messages_vl_pub.wf_message_attr_vl_tbl_type;
516:
517: BEGIN
518:
519: /*
669: ** certain pieces of the attribute
670: */
671: IF (l_cur_attr_record_num > 1) THEN
672:
673: wf_messages_vl_pub.draw_message_attr_details (
674: l_wf_message_attr_vl_tbl,
675: -1);
676:
677: END IF;
741: /*
742: ** List all the message attribute details for this message that
743: ** we found above.
744: */
745: wf_messages_vl_pub.draw_message_attr_details (
746: l_wf_message_attr_vl_tbl,
747: 1);
748:
749: /*
785: END LOOP;
786:
787: EXCEPTION
788: WHEN OTHERS THEN
789: Wf_Core.Context('wf_messages_vl_pub', 'draw_message_details');
790: wf_item_definition.Error;
791:
792: END draw_message_details;
793:
801: MODIFICATION LOG:
802: 06-JUN-2001 JWSMITH BUG 1819232 - added summary attr for table tag for ADA
803: ============================================================================*/
804: PROCEDURE draw_message_attr_details
805: (p_wf_message_attr_vl_tbl IN wf_messages_vl_pub.wf_message_attr_vl_tbl_type,
806: p_indent_level IN NUMBER) IS
807:
808: l_record_num NUMBER;
809: ii NUMBER := 0;
1032: END LOOP;
1033:
1034: EXCEPTION
1035: WHEN OTHERS THEN
1036: Wf_Core.Context('wf_messages_vl_pub', 'draw_message_attr_details');
1037: wf_item_definition.Error;
1038:
1039: END draw_message_attr_details;
1040:
1037: wf_item_definition.Error;
1038:
1039: END draw_message_attr_details;
1040:
1041: END wf_messages_vl_pub;