DBA Data[Home] [Help]

PACKAGE: APPS.OKS_QA_DATA_INTEGRITY

Source


1 PACKAGE OKS_QA_DATA_INTEGRITY AUTHID CURRENT_USER AS
2 /* $Header: OKSRQADS.pls 120.9.12020000.3 2012/07/30 10:48:33 skuchima ship $ */
3 
4   ---------------------------------------------------------------------------
5   -- GLOBAL MESSAGE CONSTANTS
6   ---------------------------------------------------------------------------
7   G_FND_APP			CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
8   G_NO_PARENT_RECORD            CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
9   G_FORM_UNABLE_TO_RESERVE_REC	CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
10   G_FORM_RECORD_DELETED		CONSTANT VARCHAR2(200) := OKC_API.G_FORM_RECORD_DELETED;
11   G_FORM_RECORD_CHANGED		CONSTANT VARCHAR2(200) := OKC_API.G_FORM_RECORD_CHANGED;
12   G_RECORD_LOGICALLY_DELETED	CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
13   G_REQUIRED_VALUE		CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
14   G_INVALID_VALUE		CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
15   G_COL_NAME_TOKEN		CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
16   G_PARENT_TABLE_TOKEN		CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
17   G_CHILD_TABLE_TOKEN		CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
18   G_UNEXPECTED_ERROR            CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
19   G_SQLERRM_TOKEN               CONSTANT VARCHAR2(200) := 'SQLerrm';
20   G_SQLCODE_TOKEN               CONSTANT VARCHAR2(200) := 'SQLcode';
21   G_UPPERCASE_REQUIRED		CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UPPERCASE_REQUIRED';
22   G_INVALID_END_DATE            CONSTANT VARCHAR2(200) := 'OKC_INVALID_END_DATE';
23 --
24   G_QA_SUCCESS   		CONSTANT VARCHAR2(200) := 'OKS__QA_SUCCESS';
25   G_PARTY_COUNT   		CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_PARTY_COUNT';
26   G_REQUIRED_RULE   		CONSTANT VARCHAR2(200) := 'OKC_REQUIRED_RULE';
27   G_REQUIRED_RULE_VALUES        CONSTANT VARCHAR2(200) := 'OKC_REQUIRED_RULE_VALUES';
28   G_REQUIRED_RULE_PARTY_ROLE    CONSTANT VARCHAR2(200) := 'OKC_REQUIRED_RULE_PARTY_ROLE';
29   G_RULE_DEPENDENT_VALUE        CONSTANT VARCHAR2(200) := 'OKC_RULE_DEPENDENT_VALUE';
30   G_INVALID_LINE_DATES          CONSTANT VARCHAR2(200) := 'OKC_INVALID_LINE_DATES';
31   G_REQUIRED_LINE_VALUE		CONSTANT VARCHAR2(200) := 'OKC_REQUIRED_LINE_FIELD';
32   G_INVALID_LINE_CURRENCY       CONSTANT VARCHAR2(200) := 'OKC_INVALID_LINE_CURRENCY';
33   G_INVALID_LINE_ITEM		CONSTANT VARCHAR2(200) := 'OKS_INVALID_LINE_ITEM';
34   G_REQUIRED_COVERED_LINE       CONSTANT VARCHAR2(200) := 'OKS_REQUIRED_COVERED_LINE';
35   G_INVALID_COVERAGE_LINE       CONSTANT VARCHAR2(200) := 'OKS_INVALID_COVERAGE_LINE';
36   --G_COVERAGE_OVERLAP            CONSTANT VARCHAR2(200) := 'OKS_COVERAGE_OVERLAP';
37   G_PARTY_ROLE                  CONSTANT VARCHAR2(200) := 'OKS_PARTY_ROLE';
38   G_PARTY_MISSING_ROLE           CONSTANT VARCHAR2(200) := 'OKS_PARTY_MISSING_ROLE';
39   G_BASE_READING                CONSTANT VARCHAR2(200) := 'OKS_COUNTER_BASE_READING';
40   G_BILL_ATTR                   CONSTANT VARCHAR2(200) := 'OKS_BILLING_ATTRIBUTES';
41   G_SHORT_DESC                  CONSTANT VARCHAR2(200) := 'OKS_HDR_SHORT_DESC';
42   G_QA_CHECK                    CONSTANT VARCHAR2(200) := 'OKS_QA_CHECK_LIST';
43   G_K_GROUP                     CONSTANT VARCHAR2(200) := 'OKS_CONTRACT_GROUP';
44   G_WORKFLOW                    CONSTANT VARCHAR2(200) := 'OKS_WORK_FLOW';
45   G_DEFAULT_READING             CONSTANT VARCHAR2(200) := 'OKS_COUNTER_DEFAULT_READING';
46   G_PRICE_LIST                  CONSTANT VARCHAR2(200) := 'OKS_PRICE_LIST';
47 
48   G_ONE_CUST_CONTACT            CONSTANT VARCHAR2(200) := 'OKS_ONE_CUST_CONTACT';
49   G_INVALID_TAX_EXEMPT		  CONSTANT VARCHAR2(200) := 'OKS_INVALID_TAX_EXEMPT';
50   G_CUSTOMER_ON_CREDIT_HOLD	  CONSTANT VARCHAR2(200) := 'OKS_CUST_ON_CREDIT_HOLD';
51   G_CUST_REQUIRED               CONSTANT VARCHAR2(200) := 'OKS_CUST_REQUIRED';
52   G_PO_NUM_REQUIRED          CONSTANT VARCHAR2(200) := 'OKS_PO_NUM_REQUIRED';
53   G_PO_NUM_FOR_RENEWAL      CONSTANT VARCHAR2(200) := 'OKS_PO_NUM_FOR_RENEWAL';
54   G_SERVICE_PO_NUM          CONSTANT VARCHAR2(200) := 'OKS_SERVICE_PO_NUM';
55   G_AUTHORIZE_PAYMENT           CONSTANT VARCHAR2(200) := 'AUTHORIZE_PAYMENT';
56   G_ITEM_INST_INVALID       CONSTANT VARCHAR2(200) := 'OKS_ITEM_INSTANCE_INVALID';
57   G_CP_DATE_INVALID         CONSTANT VARCHAR2(200) := 'OKS_CP_DATE_INVALID';
58   G_SUBSCR_ELEM_MISS        CONSTANT VARCHAR2(200) := 'OKS_SUBSCR_ELEM_MISS';
59   G_SHIP_RULE_MISS          CONSTANT VARCHAR2(200) := 'OKS_SHIP_RULE_MISS';
60   G_SHIP_ADDR_MISS          CONSTANT VARCHAR2(200) := 'OKS_SHIP_ADDR_MISS';
61   G_PRECESION                   CONSTANT NUMBER        := .01;
62   G_CUST_MISSING                CONSTANT VARCHAR2(200) :='OKC_K2O_CUSTOMER3';
63   G_CURR_CONV_REQUIRED      CONSTANT VARCHAR2(200) := 'OKS_CURR_CONV_REQUIRED';
64   G_NUM_ONE           CONSTANT NUMBER := 1;
65   G_COVERAGE_OVERLAP_LIST    CONSTANT VARCHAR2(200) := 'OKS_COVERAGE_OVERLAP_LIST';
66   G_ITEM_INST_MISS  CONSTANT VARCHAR2(200) := 'OKS_ITEM_INST_MISS';
67   G_QUANT_UOM_INVALID  CONSTANT VARCHAR2(200) := 'OKS_QUANT_UOM_INVALID';
68   G_QUANT_INVALID  CONSTANT VARCHAR2(200) := 'OKS_QUANT_INVALID';
69   G_UOM_INVALID  CONSTANT VARCHAR2(200) := 'OKS_UOM_INVALID';
70   G_CUST_NOT_ACTIVE       CONSTANT VARCHAR2(200) := 'OKS_CUST_NOT_ACTIVE';
71   G_SHIP_CUST_NOT_ACTIVE  CONSTANT VARCHAR2(200) := 'OKS_SHIP_CUST_NOT_ACTIVE'; -- added for bug # 3630149
72   -- BUG 4138244 --
73   -- GCHADHA --
74   G_BILL_CUST_INACTIVE       CONSTANT VARCHAR2(200) := 'OKS_BILL_CUST_NOT_ACTIVE_HEAD';
75   G_SHIP_CUST_INACTIVE  CONSTANT VARCHAR2(200) := 'OKS_SHIP_CUST_NOT_ACTIVE_HEAD';
76   G_BTO_INVALID_HEAD      CONSTANT VARCHAR2(200) := 'OKS_BTO_INVALID_HEADER';
77   G_STO_INVALID_HEAD   CONSTANT VARCHAR2(200) := 'OKS_STO_INVALID_HEADER';
78 
79   -- END GCHADHA--
80   -- GCHADHA --
81   -- MULTI CURRENCY PRICELIST --
82   -- 05-DEC-2004 --
83   -- BUG 4048186 --
84   -- ADDED THE MESSAGE  G_PRICE_LIST_CURR_R --
85   G_PRICE_LIST_CURR_L     CONSTANT VARCHAR2(200) := 'OKS_INVALID_PRICE_LIST_LINE'; -- MSG FOR INVALID PL AT LINES
86   G_PRICE_LIST_CURR_H     CONSTANT VARCHAR2(200) := 'OKS_INVALID_PRICE_LIST'; -- MSG FOR INVALID PL AT HDR
87   G_PRICE_LIST_CURR_R     CONSTANT VARCHAR2(200) := 'OKS_INVALID_RENEWAL_PRICE_LIST'; -- MSG FOR INVALID PL AT RENEWAL
88   -- END GCHADHA --
89   -- Added for bug # 3630149
90   G_BTO_INVALID     CONSTANT VARCHAR2(200) := 'OKS_BTO_INVALID';
91   G_STO_INVALID     CONSTANT VARCHAR2(200) := 'OKS_STO_INVALID';
92   G_BTO_REQUIRED         CONSTANT VARCHAR2(200) := 'OKS_BTO_REQUIRED';
93   G_BTO_ACCT         CONSTANT VARCHAR2(200) := 'OKS_BT_ACCT';
94   G_STO_ACCT         CONSTANT VARCHAR2(200) := 'OKS_ST_ACCT';
95   G_CUST_INACTIVE   CONSTANT VARCHAR2(200) := 'OKS_CUST_INACTIVE';  -- Customer is not acitive.
96   G_THIRD_PARTY_INACTIVE CONSTANT VARCHAR2(200) := 'OKS_THIRD_PARTY_INACTIVE'; -- Third party is not active.
97   G_SUB_INACTIVE CONSTANT VARCHAR2(200) := 'OKS_SUB_INACTIVE';
98   G_INVALID_TAX_EXEMPT_DATE CONSTANT VARCHAR2(200) := 'OKS_INVALID_TAX_EXEMPT_DATE'; -- added for bug # 4069388
99   --- End of bug # 3630149
100   G_MISS_PRICE_LOCK    CONSTANT VARCHAR2(200) := 'OKS_MISS_PRICE_LOCK';
101   G_UNAPPROVED_TAX_EXEMPT   CONSTANT VARCHAR2(200) := 'OKS_UNAPPROVED_TAX_EXEMPT';
102   G_UNAPPROVED_HDR_TAX_EXEMPT CONSTANT VARCHAR2(200) := 'OKS_UNAPPROVED_HDR_TAX_EXEMPT';
103   -- IKON ENHANCEMENT --
104   G_INVALID_TAX_EXEMPT_LINE    CONSTANT VARCHAR2(200) := 'OKS_INVALID_TAX_EXEMPT_LINE';
105   -- IKON ENHANCEMENT --
106 
107 
108   G_LINE_REQUIRED CONSTANT VARCHAR2(200) := 'OKS_LINE_REQUIRED';
109   G_COVERED_LINE_REQUIRED CONSTANT VARCHAR2(200) := 'OKS_COVERED_LINE_REQUIRED';
110   G_NEG_AMT_REQUIRED CONSTANT VARCHAR2(200) := 'OKS_NEG_AMT_REQUIRED';
111   G_INVALID_BILLING_CONTACTS CONSTANT VARCHAR2(200) := 'OKS_INVALID_BILLING_CONTACTS';
112   G_INACTIVE_INVENTORY_ITEM CONSTANT VARCHAR2(200) := 'OKS_INACTIVE_INVENTORY_ITEM';
113   G_INACTIVE_COVERED_ITEM CONSTANT VARCHAR2(200) := 'OKS_INACTIVE_COVERED_ITEM';
114   G_INACTIVE_COVERED_PARTY CONSTANT VARCHAR2(200) := 'OKS_INACTIVE_COVERED_PARTY';
115   G_INACTIVE_COVERED_PRODUCT CONSTANT VARCHAR2(200) := 'OKS_INACTIVE_COVERED_PRODUCT';
116   G_INACTIVE_COVERED_SYSTEM CONSTANT VARCHAR2(200) := 'OKS_INACTIVE_COVERED_SYSTEM';
117   G_INACTIVE_COVERED_SITE CONSTANT VARCHAR2(200) := 'OKS_INACTIVE_COVERED_SITE';
118 
119   G_MISSING_SALESREP CONSTANT VARCHAR2(200) := 'OKS_MISSING_SALESREP';
120 
121   TYPE numeric_tab_typ IS TABLE of number INDEX BY BINARY_INTEGER;
122 
123  ------------------------------------------------------------------------------------
124   -- GLOBAL EXCEPTION
125   ---------------------------------------------------------------------------
126   G_EXCEPTION_HALT_VALIDATION	EXCEPTION;
127 
128   -- GLOBAL VARIABLES
129   ---------------------------------------------------------------------------
130   G_PKG_NAME			CONSTANT VARCHAR2(200) := 'OKS_QA_DATA_INTEGRITY';
131   G_APP_NAME			CONSTANT VARCHAR2(3)   :=  'OKS';
132   ---------------------------------------------------------------------------
133 
134   FUNCTION val_credit_card(
135 			p_cc_num_stripped       IN  Varchar2
136   ) RETURN number;
137 
138   PROCEDURE check_required_values(
139     x_return_status            OUT NOCOPY VARCHAR2,
140     p_chr_id                   IN  NUMBER);
141 
142   PROCEDURE check_req_values(
143     x_return_status            OUT NOCOPY VARCHAR2,
144     p_chr_id                   IN  NUMBER);
145 
146  PROCEDURE check_covered_levels(
147     x_return_status            OUT NOCOPY VARCHAR2,
148     p_chr_id                   IN  NUMBER
149   ) ;
150 
151  Procedure Check_Counter_base_reading
152 (
153 p_chr_id        IN  Number,
154 X_return_status OUT NOCOPY Varchar2
155 );
156 
157 PROCEDURE check_covlvl_Overlap(
158     x_return_status            OUT NOCOPY VARCHAR2,
159     p_chr_id                   IN  NUMBER
160   ) ;
161 
162 PROCEDURE check_tax_exemption(
163     x_return_status            OUT NOCOPY VARCHAR2,
164     p_chr_id                   IN  NUMBER
165   ) ;
166 
167 PROCEDURE check_cust_credit_hold(
168     x_return_status            OUT NOCOPY VARCHAR2,
169     p_chr_id                   IN  NUMBER
170   ) ;
171 
172 PROCEDURE check_address(
173     x_return_status            OUT NOCOPY VARCHAR2,
174     p_chr_id                   IN  NUMBER
175   ) ;
176 
177 /*cgopinee bugfix for 8361496*/
178 PROCEDURE check_curr_conv_date(
179     x_return_status            OUT NOCOPY VARCHAR2,
180     p_chr_id                   IN  NUMBER
181   ) ;
182 
183 PROCEDURE check_item_effectivity
184   (
185     x_return_status            OUT NOCOPY VARCHAR2,
186     p_chr_id                   IN  NUMBER
187   );
188 
189 PROCEDURE Check_Authorize_Payment
190 (
191     x_return_status            OUT NOCOPY VARCHAR2,
192     p_chr_id                   IN  NUMBER
193 );
194 
195 
196 PROCEDURE check_billing_schedule
197 (
198  x_return_status            OUT NOCOPY VARCHAR2,
199  p_chr_id                   IN  NUMBER
200 );
201 
202 Procedure Check_product_availability
203 (
204    X_Return_Status	  OUT NOCOPY Varchar2,
205    p_chr_id		  IN   NUMBER
206 );
207 
208 Procedure check_customer_availability
209 (
210    x_return_status	  OUT NOCOPY Varchar2,
211    p_chr_id		      IN   NUMBER
212 );
213 
214 PROCEDURE check_pm
215  (
216   x_return_status            OUT NOCOPY VARCHAR2,
217   p_chr_id                   IN  NUMBER
218  );
219 
220 PROCEDURE Check_item_instance_valid
221  (
222   x_return_status            OUT NOCOPY VARCHAR2,
223   p_chr_id                   IN  NUMBER
224  );
225 
226 PROCEDURE check_subscr_element_exist
227     (
228         p_chr_id IN NUMBER,
229         x_return_status OUT NOCOPY VARCHAR2
230     );
231 
232 PROCEDURE check_subscr_is_shipable
233     (
234         p_chr_id IN NUMBER,
235         x_return_status OUT NOCOPY VARCHAR2
236     );
237 
238 PROCEDURE check_covered_product
239     (
240 	p_chr_id IN NUMBER,
241         x_return_status OUT NOCOPY VARCHAR2
242     );
243 
244 PROCEDURE check_required_PM
245     (
246       	p_chr_id IN NUMBER,
247         x_return_status OUT NOCOPY VARCHAR2
248     );
249 
250 PROCEDURE check_pirce_lock
251     (
252   	p_chr_id IN NUMBER,
253         x_return_status OUT NOCOPY VARCHAR2
254     );
255 
256 --[llc]
257 
258 PROCEDURE Check_Ren_Source_Lines
259     (
260 	p_chr_id IN NUMBER,
261         x_return_status OUT NOCOPY VARCHAR2
262     );
263 
264 PROCEDURE Check_Ren_Target_Lines
265     (
266 	p_chr_id in NUMBER,
267         x_return_status OUT NOCOPY VARCHAR2
268     );
269 
270 PROCEDURE check_reprice_request(
271   p_chr_id         IN NUMBER,
272   x_return_status  OUT NOCOPY VARCHAR2
273   ) ;
274 
275 PROCEDURE check_qty(
276   p_chr_id         IN NUMBER,
277   x_return_status  OUT NOCOPY VARCHAR2
278   ) ;
279 
280 /*11687112 -Cascade ER*/
281   PROCEDURE Check_Cascade_Request
282     (   p_chr_id in NUMBER,
283         x_return_status OUT NOCOPY VARCHAR2
284     );
285 /*11687112 -Cascade ER*/
286 
287 END OKS_QA_DATA_INTEGRITY;