APPS.IBY_PMTSCHEMES_PKG dependencies on IBY_PMTSCHEMES

Line 1: package body iby_pmtschemes_pkg as

1: package body iby_pmtschemes_pkg as
2: /*$Header: ibypmscb.pls 120.2 2005/10/30 05:48:54 appldev ship $*/
3:
4: /*
5: ** Procedure: checkPmtSchemes.

Line 11: iby_pmtschemes.pmtschemename%type,

7: ** from fnd_lookup table, raise exception
8: ** if scheme doesn't exist
9: */
10: procedure checkPmtScheme( i_pmtschemename in
11: iby_pmtschemes.pmtschemename%type,
12: io_pmtschemeid in out nocopy
13: iby_pmtschemes.pmtschemeid%type)
14: is
15:

Line 13: iby_pmtschemes.pmtschemeid%type)

9: */
10: procedure checkPmtScheme( i_pmtschemename in
11: iby_pmtschemes.pmtschemename%type,
12: io_pmtschemeid in out nocopy
13: iby_pmtschemes.pmtschemeid%type)
14: is
15:
16: /*
17: l_pmtschemeid iby_pmtschemes.pmtschemeid%type;

Line 17: l_pmtschemeid iby_pmtschemes.pmtschemeid%type;

13: iby_pmtschemes.pmtschemeid%type)
14: is
15:
16: /*
17: l_pmtschemeid iby_pmtschemes.pmtschemeid%type;
18: cursor c_get_pmtschemeid(ci_pmtschemename
19: iby_pmtschemes.pmtschemename%type)
20: is
21: SELECT lookup_code

Line 19: iby_pmtschemes.pmtschemename%type)

15:
16: /*
17: l_pmtschemeid iby_pmtschemes.pmtschemeid%type;
18: cursor c_get_pmtschemeid(ci_pmtschemename
19: iby_pmtschemes.pmtschemename%type)
20: is
21: SELECT lookup_code
22: FROM fnd_lookups
23: WHERE lookup_type = 'IBY_PMTSCHEMES'

Line 23: WHERE lookup_type = 'IBY_PMTSCHEMES'

19: iby_pmtschemes.pmtschemename%type)
20: is
21: SELECT lookup_code
22: FROM fnd_lookups
23: WHERE lookup_type = 'IBY_PMTSCHEMES'
24: AND meaning = ci_pmtschemename;
25: */
26:
27: begin

Line 80: procedure getPmtSchemeName(i_bepid in iby_pmtschemes.bepid%type,

76: ** Purpose: return pmt scheme name based on bepid
77: ** for single entry, whatever in the table
78: ** for double entry, return 'BOTH' ('SSL' and 'BANKACCOUNT')
79: */
80: procedure getPmtSchemeName(i_bepid in iby_pmtschemes.bepid%type,
81: o_pmtschemeName out nocopy JTF_VARCHAR2_TABLE_100)
82: --o_pmtschemename out nocopy iby_pmtschemes.pmtschemename%type)
83: IS
84:

Line 82: --o_pmtschemename out nocopy iby_pmtschemes.pmtschemename%type)

78: ** for double entry, return 'BOTH' ('SSL' and 'BANKACCOUNT')
79: */
80: procedure getPmtSchemeName(i_bepid in iby_pmtschemes.bepid%type,
81: o_pmtschemeName out nocopy JTF_VARCHAR2_TABLE_100)
82: --o_pmtschemename out nocopy iby_pmtschemes.pmtschemename%type)
83: IS
84:
85: CURSOR c_get_pmtschemeName(ci_bepid in iby_pmtschemes.bepid%type)
86: IS

Line 85: CURSOR c_get_pmtschemeName(ci_bepid in iby_pmtschemes.bepid%type)

81: o_pmtschemeName out nocopy JTF_VARCHAR2_TABLE_100)
82: --o_pmtschemename out nocopy iby_pmtschemes.pmtschemename%type)
83: IS
84:
85: CURSOR c_get_pmtschemeName(ci_bepid in iby_pmtschemes.bepid%type)
86: IS
87: SELECT pmtschemename
88: FROM iby_pmtschemes
89: WHERE bepid = i_bepid;

Line 88: FROM iby_pmtschemes

84:
85: CURSOR c_get_pmtschemeName(ci_bepid in iby_pmtschemes.bepid%type)
86: IS
87: SELECT pmtschemename
88: FROM iby_pmtschemes
89: WHERE bepid = i_bepid;
90:
91: l_index number;
92: l_pmtschemename varchar(30);

Line 134: procedure createPmtScheme(i_bepid in iby_pmtschemes.bepid%type,

130: /* Procedure: createPmtScheme
131: ** Purpose: replace whatever previous existing pmtscheme with new ones
132: ** for a given bepid
133: */
134: procedure createPmtScheme(i_bepid in iby_pmtschemes.bepid%type,
135: i_pmtschemeName in JTF_VARCHAR2_TABLE_100)
136: IS
137:
138: l_count number;

Line 142: DELETE FROM iby_pmtschemes

138: l_count number;
139: l_pmtschemeid number;
140:
141: BEGIN
142: DELETE FROM iby_pmtschemes
143: WHERE bepid = i_bepid;
144:
145: for l_count in 1..i_pmtschemeName.count LOOP
146: -- get pmtschemeid

Line 150: INSERT INTO iby_pmtschemes

146: -- get pmtschemeid
147: checkPmtScheme( i_pmtschemename(l_count), l_pmtschemeid);
148:
149: -- insertion
150: INSERT INTO iby_pmtschemes
151: (bepid, pmtschemeid, pmtschemename,
152: last_update_date, last_updated_by, creation_date,
153: created_by, last_update_login, object_version_number)
154: VALUES (i_bepid, l_pmtschemeid, i_pmtschemename(l_count),

Line 161: end iby_pmtschemes_pkg;

157: END LOOP;
158:
159: end createPmtScheme;
160:
161: end iby_pmtschemes_pkg;