33: --
34: declare
35: cursor cust_hold is
36: select credit_hold
37: from hz_customer_profiles
38: where CUST_ACCOUNT_ID = p_customer_id
39: and site_use_id is null;
40: begin
41: for c in cust_hold
56: --
57: declare
58: cursor site_hold is
59: select credit_hold
60: from hz_customer_profiles
61: where CUST_ACCOUNT_ID = p_customer_id
62: and site_use_id = p_site_use_id;
63: begin
64: for s in site_hold
117: --
118: -- UPDATE THE SITE LEVEL PROFILE
119: --
120:
121: update hz_customer_profiles
122: set dunning_letters = p_send_dunning_letters
123: where CUST_ACCOUNT_ID = p_customer_id
124: and site_use_id = p_site_use_id;
125:
123: where CUST_ACCOUNT_ID = p_customer_id
124: and site_use_id = p_site_use_id;
125:
126: if SQL%NOTFOUND then
127: update hz_customer_profiles
128: set dunning_letters = p_send_dunning_letters
129: where CUST_ACCOUNT_ID = p_customer_id
130: and site_use_id is null;
131: end if;
135: --
136: -- UPDATE THE CUSTOMER LEVEL PROFILE
137: --
138:
139: update hz_customer_profiles
140: set dunning_letters = p_send_dunning_letters
141: where CUST_ACCOUNT_ID = p_customer_id
142: and site_use_id is null;
143:
160: p_credit_hold IN varchar2) RETURN BOOLEAN AS
161:
162: BEGIN
163: if (p_site_use_id is null) then
164: update hz_customer_profiles
165: set credit_hold = p_credit_hold, LAST_UPDATE_DATE = sysdate,
166: last_updated_by = fnd_global.user_id,
167: last_update_login = fnd_global.login_id
168: where CUST_ACCOUNT_ID= p_customer_id
167: last_update_login = fnd_global.login_id
168: where CUST_ACCOUNT_ID= p_customer_id
169: and site_use_id is null;
170: else
171: update hz_customer_profiles
172: set credit_hold = p_credit_hold, LAST_UPDATE_DATE = sysdate,
173: last_updated_by = fnd_global.user_id,
174: last_update_login = fnd_global.login_id
175: where CUST_ACCOUNT_ID = p_customer_id