PACKAGE BODY: APPS.PO_FBO_MAPPING

Source

1 PACKAGE BODY PO_FBO_MAPPING AS
2 -- $Header: PO_FBO_MAPPING.plb 120.0 2011/12/19 11:52:01 inagdeo noship $
3 
4 -------------------------------------------------------------------------------
5 --Start of Comments
6 --Name: get_fbo_stauth
7 --Pre-reqs: None.
8 --Function:
9 -- This procedure returns the corresponding FBO code for
10 -- seeded value of No competition Reason.
11 --Parameters:
12 --IN:
13 --p_no_comp_code
14 --	Seeded No Competition Reason code.
15 --End of Comments
16 -------------------------------------------------------------------------------
17 
18 FUNCTION get_fbo_stauth(p_no_comp_code IN po_lookup_codes.LOOKUP_CODE%TYPE)
19   RETURN VARCHAR2 IS
20 
21 BEGIN
22 
23   RETURN g_stauth_map(p_no_comp_code);
24 
25 END get_fbo_stauth;
26 
27 
28 BEGIN
29 
30 /*Initialize plsql table g_stauth_map.
31 If customer has values of No Competition Reason other than seeded values
32 then they need to specify the mapping between their codes and FBO codes here.*/
33 
34 
35   g_stauth_map('10_2304(C)(1)')  := 'FAR 6.302-1';
36 
37   g_stauth_map('41_253(C)(1)')  := 'FAR 6.302-1';
38 
39   g_stauth_map('10_2304(C)(2)')  := 'FAR 6.302-2';
40 
41   g_stauth_map('41_253(C)(2)')  := 'FAR 6.302-2';
42 
43   g_stauth_map('10_2304(C)(3)')  := 'FAR 6.302-3';
44 
45   g_stauth_map('41_253(C)(3)')  := 'FAR 6.302-3';
46 
47   g_stauth_map('10_2304(C)(4)')  := 'FAR 6.302-4';
48 
49   g_stauth_map('41_253(C)(4)')  := 'FAR 6.302-4';
50 
51   g_stauth_map('10_2304(C)(5)')  := 'FAR 6.302-5';
52 
53   g_stauth_map('41_253(C)(5)')  := 'FAR 6.302-5';
54 
55   g_stauth_map('10_2304(C)(6)')  := 'FAR 6.302-6';
56 
57   g_stauth_map('41_253(C)(6)')  := 'FAR 6.302-6';
58 
59   g_stauth_map('10_2304(C)(7)') := 'FAR 6.302-7';
60 
61   g_stauth_map('41_253(C)(7)') := 'FAR 6.302-7';
62 
63 END PO_FBO_MAPPING;