PACKAGE BODY: APPS.AR_FLEXBUILDER_UPGRADE

Source

1 PACKAGE BODY AR_FLEXBUILDER_UPGRADE AS
2 /* $Header: ARFLBUPB.pls 120.3 2006/09/09 05:53:57 rkader ship $ */
3 
4 
5 PROCEDURE CALL_UPGRADED_FLEX ( ITEMTYPE 	IN VARCHAR2
6                             , ITEMKEY 		IN VARCHAR2
7                             , ACTID             IN NUMBER
8                             , FUNCMODE          IN VARCHAR2
9                             , RESULT OUT NOCOPY VARCHAR2 ) IS
10 
11 L_AR_FLEX_NUM NUMBER;
12 L_AR_ORIGINAL_CCID NUMBER;
13 L_AR_SUBSTI_CCID NUMBER;
14 
15 FB_FLEX_SEG VARCHAR2(2000);
16 FB_ERROR_MSG VARCHAR2(2000);
17 
18 BEGIN
19 
20  IF (funcmode = 'RUN') THEN
21 
22   L_AR_FLEX_NUM := WF_ENGINE.GetItemAttrNumber(ITEMTYPE,ITEMKEY,'CHART_OF_ACCOUNTS_ID');
23   L_AR_ORIGINAL_CCID := WF_ENGINE.GetItemAttrNumber(ITEMTYPE,ITEMKEY,'ARORIGCCID');
24   L_AR_SUBSTI_CCID := WF_ENGINE.GetItemAttrNumber(ITEMTYPE,ITEMKEY,'ARSUBSTICCID');
25 
26   IF NOT AR_SUBSTI_BALANCING_SEG.BUILD(
27                              FB_FLEX_NUM => L_AR_FLEX_NUM
28                             ,AR_FLEX_NUM => L_AR_FLEX_NUM
29                             ,AR_ORIGINAL_CCID => L_AR_ORIGINAL_CCID
30                             ,AR_SUBSTI_CCID => L_AR_SUBSTI_CCID
31                             ,FB_FLEX_SEG => FB_FLEX_SEG
32                             ,FB_ERROR_MSG => FB_ERROR_MSG ) THEN
33 
34 
35     -- False returned by build function
36     -- We need to set the error message and return false.
37 
38     WF_ENGINE.SetItemAttrText(ITEMTYPE,ITEMKEY,'ERROR_MESSAGE',FB_ERROR_MSG);
39 
40     FND_FLEX_WORKFLOW.LOAD_CONCATENATED_SEGMENTS ( ITEMTYPE , ITEMKEY , FB_FLEX_SEG );
41 
42     RESULT := 'FAILURE';
43 
44   ELSE
45 
46     FND_FLEX_WORKFLOW.LOAD_CONCATENATED_SEGMENTS ( ITEMTYPE , ITEMKEY , FB_FLEX_SEG );
47 
48     RESULT := 'SUCCESS';
49   END IF;
50 
51  ELSIF (funcmode = 'CANCEL') THEN
52    result := 'COMPLETE:';
53    RETURN;
54  ELSE
55    result := '';
56    RETURN;
57  END IF;
58 END;
59 
60 END;
61