[Home] [Help]
PACKAGE BODY: APPS.GMF_AR_GET_PAYMENT_TERMS
Source
1 PACKAGE BODY GMF_AR_GET_PAYMENT_TERMS as
2 /* $Header: gmfpaytb.pls 115.4 1999/12/10 07:51:06 pkm ship $ */
3 apps_base_language fnd_languages.language_code%TYPE;
4 cursor cur_ar_get_payment_terms(start_date date,
5 end_date date,
6 term_name varchar2,
7 termid number) is
8 select PAY.NAME, PYT.term_id,
9 PYT.CREDIT_CHECK_FLAG, PYT.DUE_CUTOFF_DAY,
10 PYT.PRINTING_LEAD_DAYS, PAY.DESCRIPTION,
11 PYT.BASE_AMOUNT, PYT.CALC_DISCOUNT_ON_LINES_FLAG,
12 PYT.FIRST_INSTALLMENT_CODE, PYT.IN_USE,
13 PYT.PARTIAL_DISCOUNT_FLAG, PYT.ATTRIBUTE_CATEGORY,
14 PYT.ATTRIBUTE1, PYT.ATTRIBUTE2,
15 PYT.ATTRIBUTE3, PYT.ATTRIBUTE4,
16 PYT.ATTRIBUTE5, PYT.ATTRIBUTE6,
17 PYT.ATTRIBUTE7, PYT.ATTRIBUTE8,
18 PYT.ATTRIBUTE9, PYT.ATTRIBUTE10,
19 PYT.ATTRIBUTE11, PYT.ATTRIBUTE12,
20 PYT.ATTRIBUTE13, PYT.ATTRIBUTE14,
21 PYT.ATTRIBUTE15, PYT.CREATED_BY,
22 PYT.CREATION_DATE, PYT.LAST_UPDATE_DATE,
23 PYT.LAST_UPDATED_BY
24 from RA_TERMS_B PYT ,
25 RA_TERMS_TL PAY
26 -- B1107729 NAME column is referred from PAY instead of PYT
27 where lower(PAY.name) like lower(nvl(term_name, PAY.name))
28 and PYT.term_id = nvl(termid, PYT.term_id)
29 and PYT.term_id = PAY.term_id
30 and PAY.language = apps_base_language
31 and PYT.last_update_date between
32 nvl(start_date, PYT.last_update_date)
33 and nvl(end_date, PYT.last_update_date);
34
35 procedure AR_GET_PAYMENT_TERMS (term_name in out varchar2,
36 termid in out number,
37 start_date in out date,
38 end_date in out date,
39 credit_check out varchar2,
40 cutoff_day out varchar2,
41 print_lead_days out varchar2,
42 description out varchar2,
43 base_amount out varchar2,
44 calc_discount out varchar2,
45 installment_cd out varchar2,
46 in_use out varchar2,
47 partial_discount out varchar2,
48 attr_category out varchar2,
49 att1 out varchar2,
50 att2 out varchar2,
51 att3 out varchar2,
52 att4 out varchar2,
53 att5 out varchar2,
54 att6 out varchar2,
55 att7 out varchar2,
56 att8 out varchar2,
57 att9 out varchar2,
58 att10 out varchar2,
59 att11 out varchar2,
60 att12 out varchar2,
61 att13 out varchar2,
62 att14 out varchar2,
63 att15 out varchar2,
64 created_by out number,
65 creation_date out date,
66 last_update_date out date,
67 last_updated_by out number,
68 row_to_fetch in out number,
69 error_status out number) is
70
71 begin
72
73 SELECT language_code
74 INTO apps_base_language
75 FROM fnd_languages
76 WHERE installed_flag = 'B';
77
78 if NOT cur_ar_get_payment_terms%ISOPEN then
79 open cur_ar_get_payment_terms(start_date, end_date,
80 term_name, termid);
81 end if;
82
83 fetch cur_ar_get_payment_terms
84 into term_name, termid, credit_check,
85 cutoff_day, print_lead_days, description,
86 base_amount, calc_discount, installment_cd,
87 in_use, partial_discount, attr_category,
88 att1, att2, att3,
89 att4, att5, att6,
90 att7, att8, att9,
91 att10, att11, att12,
92 att13, att14, att15,
93 created_by, creation_date, last_update_date,
94 last_updated_by;
95
96 if cur_ar_get_payment_terms%NOTFOUND then
97 error_status := 100;
98 close cur_ar_get_payment_terms;
99 end if;
100 if row_to_fetch = 1 and cur_ar_get_payment_terms%ISOPEN then
101 close cur_ar_get_payment_terms;
102 end if;
103
104 exception
105
106 when others then
107 error_status := SQLCODE;
108
109 end AR_GET_PAYMENT_TERMS;
110 END GMF_AR_GET_PAYMENT_TERMS;