PACKAGE BODY: APPS.IBY_PSON_CUSTOMIZER_PKG

Source

1 PACKAGE BODY IBY_PSON_CUSTOMIZER_PKG AS
2 /*$Header: ibypsonb.pls 120.3.12010000.1 2009/12/02 09:25:05 pschalla noship $*/
3 
4 --
5 -- This procedure can be used for customizing PSON
6 --
7   PROCEDURE Get_Custom_Tangible_Id
8             (
9             p_app_short_name    IN fnd_application.application_short_name%TYPE,
10 	    p_trxn_extn_id      IN iby_fndcpt_tx_extensions.trxn_extension_id%TYPE,
11             x_cust_pson        OUT NOCOPY VARCHAR2,
12             x_msg              OUT NOCOPY VARCHAR2
13             )
14   IS
15 
16   BEGIN
17     -- by default this procdeure returns x_msg as CUST_PSON_NO
18     -- and x_cust_pson as NULL
19     x_msg := G_CUST_PSON_NO;
20     x_cust_pson := NULL;
21 
22     --
23     -- Implent custom code here to retun customized PSON
24     -- and set x_msg as CUST_PSON_YES
25     -- ORDER_ID,TRXN_REF_NUMBER1 and TRXN_REF_NUMBER2 can be
26     -- queried from the table IBY_FNDCPT_TX_EXTENSIONS using TRXN_EXTENSION_ID
27     /*
28     Example# 1
29       x_cust_pson:= p_app_short_name || p_trxn_extn_id;
30       x_msg := G_CUST_PSON_YES;
31 
32     Example# 2
33       x_cust_pson:= p_app_short_name || '_' || p_trxn_extn_id;
34       x_msg := G_CUST_PSON_YES;
35 
36     */
37 
38 
39 
40     -- End custom code
41 
42   END Get_Custom_Tangible_Id;
43 
44 
45 END IBY_PSON_CUSTOMIZER_PKG;