DBA Data[Home] [Help]

PACKAGE: APPS.M4U_DMD_UTILS

Source


1 PACKAGE m4u_dmd_utils AS
2 /* $Header: M4UDUTLS.pls 120.1 2007/07/17 07:09:12 bsaratna noship $ */
3         -- TBD: add context setting
4 
5         g_dbms_output      BOOLEAN := false;
6 
7         c_app_id           CONSTANT VARCHAR2(30) := '701';
8 
9         c_sts_ready        CONSTANT VARCHAR2(30) := 'READY';
10         c_sts_in_process   CONSTANT VARCHAR2(30) := 'IN_PROCESS' ;
11         c_sts_success      CONSTANT VARCHAR2(30) := 'PROCESSED_SUCCESS';
12         c_sts_sent         CONSTANT VARCHAR2(30) := 'SENT';
13         c_sts_delivered    CONSTANT VARCHAR2(30) := 'DELIVERED';
14         c_sts_fail         CONSTANT VARCHAR2(30) := 'PROCESSED_FAIL';
15         c_sts_error        CONSTANT VARCHAR2(30) := 'ERROR';
16 
17 
18         c_type_rfcin       CONSTANT VARCHAR2(30) := 'M4U_DMD_RFCIN';
19         c_type_cin         CONSTANT VARCHAR2(30) := 'M4U_DMD_CIN';
20         c_type_cis         CONSTANT VARCHAR2(30) := 'M4U_DMD_CIS';
21         c_type_cic         CONSTANT VARCHAR2(30) := 'M4U_DMD_CIC';
22         c_type_cin_ack     CONSTANT VARCHAR2(30) := 'M4U_DMD_CIN_ACK';
23         c_type_cis_ack     CONSTANT VARCHAR2(30) := 'M4U_DMD_CIS_ACK';
24         c_type_cic_ack     CONSTANT VARCHAR2(30) := 'M4U_DMD_CIC_ACK';
25         c_type_rfcin_ack   CONSTANT VARCHAR2(30) := 'M4U_DMD_RFCIN_ACK';
26         c_type_item_ebm    CONSTANT VARCHAR2(30) := 'M4U_DMD_ITEM_EBM';
27         c_type_resp_ebm    CONSTANT VARCHAR2(30) := 'M4U_DMD_RESP_EBM';
28 
29         c_dir_out          CONSTANT VARCHAR2(30) :='OUT';
30         c_dir_in           CONSTANT VARCHAR2(30) :='IN';
31 
32         c_action_add       CONSTANT VARCHAR2(30) :='ADD';
33         c_action_delete    CONSTANT VARCHAR2(30) :='DELETE';
34         c_action_accepted  CONSTANT VARCHAR2(30) :='ACCEPTED';
35         c_action_rejected  CONSTANT VARCHAR2(30) :='REJECTED';
36         c_action_sync      CONSTANT VARCHAR2(30) :='SYNCHRONISED';
37         c_action_review    CONSTANT VARCHAR2(30) :='REVIEW';
38         c_action_new       CONSTANT VARCHAR2(30) :='NEW';
39         c_action_init_load CONSTANT VARCHAR2(30) :='INITIALLOAD';
40         c_action_modify    CONSTANT VARCHAR2(30) :='MODIFY';
41         c_action_correct   CONSTANT VARCHAR2(30) :='CORRECTION';
42 
43 
44         --TBD: add cin actions
45         --TBD: check cic actions
46 
47         c_retry_all        CONSTANT VARCHAR2(30) := 'ALL';
48         c_retry_err        CONSTANT VARCHAR2(30) := 'ERROR';
49         c_retry_timeout    CONSTANT VARCHAR2(30) := 'TIME_OUT';
50 
51         c_cln_event        CONSTANT VARCHAR2(50) :=  'oracle.apps.cln.m4u.dmd.collab';
52         c_payload_event    CONSTANT VARCHAR2(50) :=  'oracle.apps.cln.m4u.dmd.payload';
53 
54         c_gtin_len         CONSTANT NUMBER := 14;
55         c_gln_len          CONSTANT NUMBER := 13;
56 
57 
58         PROCEDURE handle_error
59         (
60                 p_err_api       IN VARCHAR2,
61                 p_err_msg       IN VARCHAR2,
62                 p_sql_cod       IN VARCHAR2,
63                 p_sql_err       IN VARCHAR2,
64                 x_ret_sts       OUT NOCOPY VARCHAR2,
65                 x_ret_msg       OUT NOCOPY VARCHAR2
66         );
67 
68         PROCEDURE log
69         (
70                 p_stmt  IN VARCHAR2,
71                 p_level IN NUMBER
72         );
73 
74         FUNCTION valid_gln
75         (
76                 p_gln           IN VARCHAR2,
77                 p_null_allowed  IN BOOLEAN  := true
78         ) RETURN BOOLEAN;
79 
80 
81         FUNCTION valid_gtin
82         (
83                 p_gtin          IN VARCHAR2,
84                 p_null_allowed  IN BOOLEAN  := true
85         ) RETURN BOOLEAN;
86 
87         FUNCTION date_xml_to_db
88         (
89                 p_datetime      IN VARCHAR2
90         ) RETURN DATE;
91 
92         FUNCTION valid_type
93         (
94                 p_param         IN VARCHAR2,
95                 p_value         IN VARCHAR2,
96                 p_null_allowed  IN BOOLEAN  := true
97         ) RETURN BOOLEAN;
98 
99         FUNCTION valid_len
100         (
101                 p_value         IN VARCHAR2,
102                 p_min_len       IN NUMBER,
103                 p_max_len       IN NUMBER,
104                 p_null_allowed  IN BOOLEAN  := false
105         ) RETURN BOOLEAN;
106 
107         FUNCTION valid_msg_id
108         (
109                 p_msg_id        IN VARCHAR2,
110                 p_null_allowed  IN BOOLEAN := true
111         ) RETURN BOOLEAN;
112 
113         FUNCTION valid_orig_msg_id
114         (
115                 p_orig_msg_id   IN VARCHAR2,
116                 p_null_allowed  IN BOOLEAN := true
117         ) RETURN BOOLEAN;
118 
119         FUNCTION valid_orig_doc_id
120         (
121                 p_orig_doc_id   IN VARCHAR2,
122                 p_null_allowed  IN BOOLEAN := true
123         ) RETURN BOOLEAN;
124 
125         FUNCTION valid_payload_id
126         (
127                 p_payload_id    IN VARCHAR2,
128                 p_null_allowed  IN BOOLEAN := true
129         ) RETURN BOOLEAN;
130 
131         FUNCTION valid_doc_id
132         (
133                 p_doc_id        IN VARCHAR2,
134                 p_null_allowed  IN BOOLEAN := true
135         ) RETURN BOOLEAN;
136 
137         FUNCTION get_inv_param_msg
138         (
139                 p_api           IN VARCHAR2,
140                 p_param         IN VARCHAR2,
141                 p_value         IN VARCHAR2
142         ) RETURN VARCHAR2;
143 
144         FUNCTION get_gln_user
145         (
146         	p_gln		IN VARCHAR2
147         ) RETURN VARCHAR2;
148 END m4u_dmd_utils;