PACKAGE BODY: APPS.XDP_SYSCN_UTIL

Source

1 PACKAGE BODY XDP_SYSCN_UTIL AS
2 /* $Header: XDPSYCNB.pls 120.2 2006/04/10 23:21:45 dputhiye noship $ */
3 	FUNCTION FGET_DATA_CHANNEL(P_USER_DATA SYSTEM.XDP_WF_CHANNELQ_TYPE, P_DATA VARCHAR2)
4 									RETURN VARCHAR2 IS
5 	BEGIN
6 		IF P_DATA = 'FE_NAME' THEN
7 			RETURN P_USER_DATA.FE_NAME;
8 		ELSIF P_DATA = 'FA_INSTANCE_ID' THEN
9 			RETURN P_USER_DATA.FA_INSTANCE_ID;
10 		ELSIF P_DATA = 'WORKITEM_INSTANCE_ID' THEN
11 			RETURN P_USER_DATA.WORKITEM_INSTANCE_ID;
12 		ELSIF P_DATA = 'ORDER_ID' THEN
13 			RETURN P_USER_DATA.ORDER_ID;
14 		END IF ;
15 
16 	END	FGET_DATA_CHANNEL ;
17 
18 
19 	FUNCTION FGET_MESSAGE_ID(P_USER_DATA SYSTEM.XNP_MESSAGE_TYPE) RETURN VARCHAR2 IS
20 	BEGIN
21 		RETURN P_USER_DATA.MESSAGE_ID ;
22 
23 	END	FGET_MESSAGE_ID ;
24 
25 	FUNCTION GET_Q_DATA_CHAR( p_user_data SYSTEM.XDP_WF_CHANNELQ_TYPE,
26 				p_data VARCHAR2 ) RETURN VARCHAR2 IS
27 	BEGIN
28 		-- Return Char Data from the Object.
29 		IF( p_data = 'CHANNEL_NAME' ) THEN
30 			RETURN( p_user_data.CHANNEL_NAME ) ;
31 		ELSIF( p_data = 'FE_NAME' ) THEN
32 			RETURN( p_user_data.FE_NAME ) ;
33 		ELSIF( p_data = 'WF_ITEM_TYPE' ) THEN
34 			RETURN( p_user_data.WF_ITEM_TYPE ) ;
35 		ELSIF( p_data = 'WF_ITEM_KEY' ) THEN
36 			RETURN( p_user_data.WF_ITEM_KEY ) ;
37 		ELSIF( p_data = 'WF_ACTIVITY_NAME' ) THEN
38 			RETURN( p_user_data.WF_ACTIVITY_NAME ) ;
39 		ELSE
40 			RETURN NULL ;
41 		END IF ;
42 	END 	GET_Q_DATA_CHAR ;
43 
44 	FUNCTION GET_Q_DATA_NUM( p_user_data SYSTEM.XDP_WF_CHANNELQ_TYPE,
45 				p_data VARCHAR2 ) RETURN NUMBER IS
46 	BEGIN
47 		-- Return Number Data from the Object
48 		IF( p_data = 'ORDER_ID' ) THEN
49 			RETURN( p_user_data.ORDER_ID ) ;
50 		ELSIF( p_data = 'WORKITEM_INSTANCE_ID' ) THEN
51 			RETURN( p_user_data.WORKITEM_INSTANCE_ID ) ;
52 		ELSIF( p_data = 'FA_INSTANCE_ID' ) THEN
53 			RETURN( p_user_data.FA_INSTANCE_ID ) ;
54 		ELSE
55 			NULL ;
56 		END IF ;
57 
58 	END	GET_Q_DATA_NUM ;
59 
60 END	XDP_SYSCN_UTIL ;