[Home] [Help]
PACKAGE BODY: APPS.XNP_T_DUMMY_U
Source
1 PACKAGE BODY XNP_T_DUMMY_U AS
2 /*$Header: XNPTDUMB.pls 120.1 2005/06/17 03:52:49 appldev $*/
3 PROCEDURE CREATE_MSG ( XNP$PAYLOAD VARCHAR2 DEFAULT NULL,
4 x_msg_header OUT NOCOPY XNP_MESSAGE.MSG_HEADER_REC_TYPE,
5 x_msg_text OUT NOCOPY VARCHAR2,
6 x_error_code OUT NOCOPY NUMBER,
7 x_error_message OUT NOCOPY VARCHAR2,
8 p_sender_name IN VARCHAR2 DEFAULT NULL,
9 p_recipient_list IN VARCHAR2 DEFAULT NULL,
10 p_version IN NUMBER DEFAULT 1,
11 p_reference_id IN VARCHAR2 DEFAULT NULL,
12 p_opp_reference_id IN VARCHAR2 DEFAULT NULL,
13 p_order_id IN NUMBER DEFAULT NULL,
14 p_wi_instance_id IN NUMBER DEFAULT NULL,
15 p_fa_instance_id IN NUMBER DEFAULT NULL,
16 p_delay IN NUMBER DEFAULT NULL,
17 p_interval IN NUMBER DEFAULT NULL ) IS
18 e_MISSING_MANDATORY_DATA EXCEPTION ;
19 e_NO_DESTINATION EXCEPTION ;
20 l_xml_body VARCHAR2(32767) ;
21 l_xml_doc VARCHAR2(32767) ;
22 l_xml_header VARCHAR2(32767) ;
23 l_msg_header XNP_MESSAGE.MSG_HEADER_REC_TYPE ;
24 BEGIN
25 x_error_code := 0 ;
26 x_error_message := NULL ;
27 XNP_XML_UTILS.initialize_doc ( ) ;
28 /* construct the message body */
29 /* get the message body */
30 XNP_XML_UTILS.get_document ( l_xml_body ) ;
31 IF (l_xml_body IS NULL) THEN
32 XNP_XML_UTILS.begin_segment ( 'T_DUMMY' ) ;
33 XNP_XML_UTILS.write_element('DELAY', p_delay);
34 XNP_XML_UTILS.write_element('INTERVAL', p_interval);
35 XNP_XML_UTILS.end_segment ( 'T_DUMMY' ) ;
36 XNP_XML_UTILS.get_document( l_xml_body ) ;
37 END IF;
38 /* initialize the XML header variable */
39 XNP_XML_UTILS.initialize_doc ( ) ;
40 /*construct the XML header */
41 /* retreive the next message ID */
42 IF (p_reference_id IS NULL) THEN
43 XNP_MESSAGE.get_sequence ( l_msg_header.message_id ) ;
44 l_msg_header.reference_id := l_msg_header.message_id ;
45 ELSE
46 l_msg_header.message_id := p_reference_id;
47 l_msg_header.reference_id := p_reference_id ;
48 END IF ;
49 /* append header parameters to make header */
50 XNP_XML_UTILS.write_element ( 'MESSAGE_ID',l_msg_header.message_id ) ;
51 XNP_XML_UTILS.write_element ( 'REFERENCE_ID',l_msg_header.reference_id ) ;
52 l_msg_header.opp_reference_id := p_opp_reference_id ;
53 XNP_XML_UTILS.write_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
54 l_msg_header.message_code := 'T_DUMMY' ;
55 XNP_XML_UTILS.write_element ( 'MESSAGE_CODE',l_msg_header.message_code ) ;
56 l_msg_header.version := p_version ;
57 XNP_XML_UTILS.write_element ( 'VERSION',l_msg_header.version ) ;
58 l_msg_header.creation_date := SYSDATE ;
59 l_msg_header.recipient_name := p_recipient_list ;
60 XNP_XML_UTILS.write_element ( 'CREATION_DATE',l_msg_header.creation_date ) ;
61 l_msg_header.sender_name := p_sender_name ;
62 XNP_XML_UTILS.write_element ( 'SENDER_NAME',l_msg_header.sender_name ) ;
63 XNP_XML_UTILS.write_element ( 'RECIPIENT_NAME',l_msg_header.recipient_name ) ;
64 l_msg_header.direction_indr := 'E' ;
65 l_msg_header.order_id := p_order_id ;
66 l_msg_header.wi_instance_id := p_wi_instance_id ;
67 l_msg_header.fa_instance_id := p_fa_instance_id ;
68 XNP_XML_UTILS.write_element ( 'PAYLOAD', XNP$PAYLOAD );
69 /* retreieve the XML header */
70 XNP_XML_UTILS.get_document ( l_xml_header ) ;
71 /* append the XML headerto message */
72 XNP_XML_UTILS.initialize_doc ( ) ;
73 XNP_XML_UTILS.xml_decl ;
74 XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
75 XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
76 XNP_XML_UTILS.append ( l_xml_body ) ;
77 XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
78 XNP_XML_UTILS.get_document( l_xml_doc ) ;
79 /* assign the header and msg text to output parameters */
80 x_msg_header := l_msg_header ;
81 x_msg_text := l_xml_doc ;
82 /* handle exceptions */
83 EXCEPTION
84 WHEN e_MISSING_MANDATORY_DATA THEN
85 x_error_code := XNP_ERRORS.G_MISSING_MANDATORY_DATA ;
86 WHEN OTHERS THEN
87 x_error_code := SQLCODE ;
88 x_error_message := 'T_DUMMY.create_msg()::' || SQLERRM ;
89 END ;
90 PROCEDURE PROCESS ( p_msg_header IN XNP_MESSAGE.MSG_HEADER_REC_TYPE,
91 p_msg_text IN VARCHAR2,
92 x_error_code OUT NOCOPY NUMBER,
93 x_error_message OUT NOCOPY VARCHAR2,
94 p_process_reference IN VARCHAR2 DEFAULT NULL ) IS
95 BEGIN
96 NULL ;
97 NULL;
98 END ;
99 PROCEDURE VALIDATE ( p_msg_header IN OUT NOCOPY XNP_MESSAGE.MSG_HEADER_REC_TYPE,
100 p_msg_text IN VARCHAR2,
101 x_error_code OUT NOCOPY NUMBER,
102 x_error_message OUT NOCOPY VARCHAR2 ) IS
103 BEGIN
104 NULL ;
105 NULL;
106 END ;
107 PROCEDURE DEFAULT_PROCESS ( p_msg_header IN XNP_MESSAGE.MSG_HEADER_REC_TYPE,
108 p_msg_text IN VARCHAR2,
109 x_error_code OUT NOCOPY NUMBER,
110 x_error_message OUT NOCOPY VARCHAR2 ) IS
111 BEGIN
112 NULL ;
113 NULL;
114 END ;
115 PROCEDURE FIRE ( x_timer_id OUT NOCOPY NUMBER,
116 x_timer_contents OUT NOCOPY VARCHAR2,
117 x_error_code OUT NOCOPY NUMBER,
118 x_error_message OUT NOCOPY VARCHAR2,
119 p_sender_name IN VARCHAR2 DEFAULT NULL,
120 p_recipient_list IN VARCHAR2 DEFAULT NULL,
121 p_version IN NUMBER DEFAULT 1,
122 p_reference_id IN VARCHAR2 DEFAULT NULL,
123 p_opp_reference_id IN VARCHAR2 DEFAULT NULL,
124 p_order_id IN NUMBER DEFAULT NULL,
125 p_wi_instance_id IN NUMBER DEFAULT NULL,
126 p_fa_instance_id IN NUMBER DEFAULT NULL )
127 IS
128 l_msg_header xnp_message.msg_header_rec_type ;
129 l_msg_text VARCHAR2(32767);
130
131 BEGIN
132 x_error_code := 0;
133 x_error_message := NULL;
134 CREATE_MSG (x_msg_header=>l_msg_header,
135 x_msg_text=>l_msg_text,
136 x_error_code=>x_error_code,
137 x_error_message=>x_error_message,
138 p_sender_name=>p_sender_name,
139 p_recipient_list=>p_recipient_list,
140 p_version=>p_version,
141 p_reference_id=>p_reference_id,
142 p_opp_reference_id=>p_reference_id,
143 p_order_id=>p_order_id,
144 p_wi_instance_id=>p_wi_instance_id,
145 p_fa_instance_id=>p_fa_instance_id );
146 IF (x_error_code = 0) THEN
147 xnp_timer.start_timer(l_msg_header,
148 l_msg_text,
149 x_error_code,
150 x_error_message );
151 x_timer_id := l_msg_header.message_id ;
152 x_timer_contents := l_msg_text;
153 END IF;
154 END ;
155
156 END XNP_T_DUMMY_U;