[Home] [Help]
PACKAGE BODY: APPS.GL_WF_CUSTOMIZATION_PKG
Source
1 PACKAGE BODY GL_WF_CUSTOMIZATION_PKG AS
2 /* $Header: glwfcusb.pls 120.2 2002/11/13 04:33:18 djogg ship $ */
3
4
5 --
6 -- *****************************************************************************
7 -- Procedure Is_JE_Valid
8 -- *****************************************************************************
9 --
10 PROCEDURE is_je_valid(itemtype IN VARCHAR2,
11 itemkey IN VARCHAR2,
12 actid IN NUMBER,
13 funcmode IN VARCHAR2,
14 result OUT NOCOPY VARCHAR2 ) IS
15 BEGIN
16 IF ( funcmode = 'RUN' ) THEN
17 -- Additional code can be added here.
18 -- COMPLETE:Y (Workflow transition branch "Yes") indicates that the journal
19 -- batch is valid.
20 -- COMPLETE:N (Workflow transition branch "No") indicates that the journal
21 -- batch is not valid.
22 result := 'COMPLETE:Y';
23 ELSIF (funcmode = 'CANCEL') THEN
24 NULL;
25 END IF;
26 END is_je_valid;
27
28
29 --
30 -- *****************************************************************************
31 -- Procedure Does_JE_Need_Approval
32 -- *****************************************************************************
33 --
34 PROCEDURE does_je_need_approval( itemtype IN VARCHAR2,
35 itemkey IN VARCHAR2,
36 actid IN NUMBER,
37 funcmode IN VARCHAR2,
38 result OUT NOCOPY VARCHAR2 ) IS
39 BEGIN
40 IF ( funcmode = 'RUN' ) THEN
41 -- Additional code can be added here.
42 -- COMPLETE:Y (Workflow transition branch "Yes") indicates that the journal
43 -- batch needs approval.
44 -- COMPLETE:N (Workflow transition branch "No") indicates that the journal
45 -- batch does not need approval.
46 result := 'COMPLETE:Y';
47 ELSIF ( funcmode = 'CANCEL' ) THEN
48 NULL;
49 END IF;
50 END does_je_need_approval;
51
52
53 --
54 -- *****************************************************************************
55 -- Procedure Can_Preparer_Approve
56 -- *****************************************************************************
57 --
58 PROCEDURE can_preparer_approve( itemtype IN VARCHAR2,
59 itemkey IN VARCHAR2,
60 actid IN NUMBER,
61 funcmode IN VARCHAR2,
62 result OUT NOCOPY VARCHAR2 ) IS
63 BEGIN
64 IF ( funcmode = 'RUN' ) THEN
65 -- Additional code can be added here.
66 -- COMPLETE:Y (Workflow transition branch "Yes") indicates that the preparer
67 -- can self-approve the journal batch.
68 -- COMPLETE:N (Workflow transition branch "No") indicates that the preparer
69 -- cannot self-approve the journal batch.
70 result := 'COMPLETE:Y';
71 ELSIF ( funcmode = 'CANCEL' ) THEN
72 NULL;
73 END IF;
74 END can_preparer_approve;
75
76
77 --
78 -- *****************************************************************************
79 -- Procedure Verify_Authority
80 -- *****************************************************************************
81 --
82 PROCEDURE verify_authority( itemtype IN VARCHAR2,
83 itemkey IN VARCHAR2,
84 actid IN NUMBER,
85 funcmode IN VARCHAR2,
86 result OUT NOCOPY VARCHAR2 ) IS
87 BEGIN
88 IF ( funcmode = 'RUN' ) THEN
89 -- Additional code can be added here.
90 -- COMPLETE:PASS (Workflow transition branch "Pass") indicates that the
91 -- approver passed the journal batch approval authorization
92 -- check.
93 -- COMPLETE:FAIL (Workflow transition branch "Fail") indicates that the
94 -- approver failed the journal batch approval authorization
95 -- check.
96 result := 'COMPLETE:PASS';
97 ELSIF ( funcmode = 'CANCEL' ) THEN
98 NULL;
99 END IF;
100 END verify_authority;
101
102
103 END GL_WF_CUSTOMIZATION_PKG;