1: package body ZX_REGISTRATIONS_PKG as
2: /* $Header: zxcregb.pls 120.10 2005/09/16 23:28:22 dbetanco ship $ */
3:
4: procedure INSERT_ROW (
5: P_REQUEST_ID in NUMBER,
50: P_ATTRIBUTE12 in VARCHAR2,
51: P_ATTRIBUTE13 in VARCHAR2,
52: X_RETURN_STATUS out NOCOPY VARCHAR2
53: ) is
54: L_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
55: L_DEF_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
56: L_REG_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
57: L_REG_ID1 ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
58: L_INCLUSIVE_TAX_FLAG ZX_REGISTRATIONS.INCLUSIVE_TAX_FLAG%TYPE;
51: P_ATTRIBUTE13 in VARCHAR2,
52: X_RETURN_STATUS out NOCOPY VARCHAR2
53: ) is
54: L_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
55: L_DEF_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
56: L_REG_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
57: L_REG_ID1 ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
58: L_INCLUSIVE_TAX_FLAG ZX_REGISTRATIONS.INCLUSIVE_TAX_FLAG%TYPE;
59: L_SELF_ASSESS_FLAG ZX_REGISTRATIONS.SELF_ASSESS_FLAG%TYPE;
52: X_RETURN_STATUS out NOCOPY VARCHAR2
53: ) is
54: L_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
55: L_DEF_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
56: L_REG_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
57: L_REG_ID1 ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
58: L_INCLUSIVE_TAX_FLAG ZX_REGISTRATIONS.INCLUSIVE_TAX_FLAG%TYPE;
59: L_SELF_ASSESS_FLAG ZX_REGISTRATIONS.SELF_ASSESS_FLAG%TYPE;
60: L_ROUNDING_RULE_CODE ZX_REGISTRATIONS.ROUNDING_RULE_CODE%TYPE;
53: ) is
54: L_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
55: L_DEF_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
56: L_REG_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
57: L_REG_ID1 ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
58: L_INCLUSIVE_TAX_FLAG ZX_REGISTRATIONS.INCLUSIVE_TAX_FLAG%TYPE;
59: L_SELF_ASSESS_FLAG ZX_REGISTRATIONS.SELF_ASSESS_FLAG%TYPE;
60: L_ROUNDING_RULE_CODE ZX_REGISTRATIONS.ROUNDING_RULE_CODE%TYPE;
61: L_COUNTRY_CODE ZX_REGIMES_B.COUNTRY_CODE%TYPE;
54: L_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
55: L_DEF_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
56: L_REG_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
57: L_REG_ID1 ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
58: L_INCLUSIVE_TAX_FLAG ZX_REGISTRATIONS.INCLUSIVE_TAX_FLAG%TYPE;
59: L_SELF_ASSESS_FLAG ZX_REGISTRATIONS.SELF_ASSESS_FLAG%TYPE;
60: L_ROUNDING_RULE_CODE ZX_REGISTRATIONS.ROUNDING_RULE_CODE%TYPE;
61: L_COUNTRY_CODE ZX_REGIMES_B.COUNTRY_CODE%TYPE;
62: L_PARTY_TYPE_CODE ZX_PARTY_TAX_PROFILE.PARTY_TYPE_CODE%TYPE;
55: L_DEF_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
56: L_REG_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
57: L_REG_ID1 ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
58: L_INCLUSIVE_TAX_FLAG ZX_REGISTRATIONS.INCLUSIVE_TAX_FLAG%TYPE;
59: L_SELF_ASSESS_FLAG ZX_REGISTRATIONS.SELF_ASSESS_FLAG%TYPE;
60: L_ROUNDING_RULE_CODE ZX_REGISTRATIONS.ROUNDING_RULE_CODE%TYPE;
61: L_COUNTRY_CODE ZX_REGIMES_B.COUNTRY_CODE%TYPE;
62: L_PARTY_TYPE_CODE ZX_PARTY_TAX_PROFILE.PARTY_TYPE_CODE%TYPE;
63: x_party_type_token VARCHAR2(1000);
56: L_REG_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
57: L_REG_ID1 ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
58: L_INCLUSIVE_TAX_FLAG ZX_REGISTRATIONS.INCLUSIVE_TAX_FLAG%TYPE;
59: L_SELF_ASSESS_FLAG ZX_REGISTRATIONS.SELF_ASSESS_FLAG%TYPE;
60: L_ROUNDING_RULE_CODE ZX_REGISTRATIONS.ROUNDING_RULE_CODE%TYPE;
61: L_COUNTRY_CODE ZX_REGIMES_B.COUNTRY_CODE%TYPE;
62: L_PARTY_TYPE_CODE ZX_PARTY_TAX_PROFILE.PARTY_TYPE_CODE%TYPE;
63: x_party_type_token VARCHAR2(1000);
64: x_party_name_token VARCHAR2(5000);
64: x_party_name_token VARCHAR2(5000);
65: x_party_site_name_token VARCHAR2(5000);
66: x_error_buffer VARCHAR2(80);
67: x_return_status1 VARCHAR2(80);
68: CURSOR reg_cur IS SELECT REGISTRATION_ID FROM ZX_REGISTRATIONS
69: WHERE REGISTRATION_ID = L_REGISTRATION_ID;
70: --Get Default Registration for current PTP_ID
71: CURSOR default_reg_cur IS SELECT REGISTRATION_ID FROM ZX_REGISTRATIONS
72: WHERE PARTY_TAX_PROFILE_ID = P_PARTY_TAX_PROFILE_ID
67: x_return_status1 VARCHAR2(80);
68: CURSOR reg_cur IS SELECT REGISTRATION_ID FROM ZX_REGISTRATIONS
69: WHERE REGISTRATION_ID = L_REGISTRATION_ID;
70: --Get Default Registration for current PTP_ID
71: CURSOR default_reg_cur IS SELECT REGISTRATION_ID FROM ZX_REGISTRATIONS
72: WHERE PARTY_TAX_PROFILE_ID = P_PARTY_TAX_PROFILE_ID
73: AND DEFAULT_REGISTRATION_FLAG = 'Y';
74: begin
75: --Initialise x_return_status variable
107: --Registration should be unique
108: BEGIN
109: SELECT REGISTRATION_ID
110: INTO L_REG_ID
111: FROM ZX_REGISTRATIONS
112: WHERE ((P_EFFECTIVE_TO is NULL AND EFFECTIVE_TO is NULL)
113: OR (P_EFFECTIVE_FROM BETWEEN EFFECTIVE_FROM
114: AND NVL(EFFECTIVE_TO,P_EFFECTIVE_TO ) )
115: OR ( NVL(P_EFFECTIVE_TO, EFFECTIVE_TO+1) BETWEEN EFFECTIVE_FROM
127: --Registration should be unique at each level
128: BEGIN
129: SELECT REGISTRATION_ID
130: INTO L_REG_ID1
131: FROM ZX_REGISTRATIONS
132: WHERE ((P_EFFECTIVE_TO is NULL AND EFFECTIVE_TO is NULL)
133: OR (P_EFFECTIVE_FROM BETWEEN EFFECTIVE_FROM
134: AND NVL(EFFECTIVE_TO,P_EFFECTIVE_TO ) )
135: OR ( NVL(P_EFFECTIVE_TO, EFFECTIVE_TO+1) BETWEEN EFFECTIVE_FROM
214: CLOSE default_reg_cur;
215: END IF;--end P_DEFAULT_REGISTRATION_FLAG
216: --Insert only when there is no error
217: IF X_RETURN_STATUS = FND_API.G_RET_STS_SUCCESS THEN
218: select ZX_REGISTRATIONS_S.nextval into L_REGISTRATION_ID from dual;
219: insert into ZX_REGISTRATIONS (
220: REQUEST_ID,
221: ATTRIBUTE1,
222: ATTRIBUTE2,
215: END IF;--end P_DEFAULT_REGISTRATION_FLAG
216: --Insert only when there is no error
217: IF X_RETURN_STATUS = FND_API.G_RET_STS_SUCCESS THEN
218: select ZX_REGISTRATIONS_S.nextval into L_REGISTRATION_ID from dual;
219: insert into ZX_REGISTRATIONS (
220: REQUEST_ID,
221: ATTRIBUTE1,
222: ATTRIBUTE2,
223: ATTRIBUTE3,
395: P_ATTRIBUTE12 in VARCHAR2,
396: P_ATTRIBUTE13 in VARCHAR2,
397: X_RETURN_STATUS out NOCOPY VARCHAR2
398: ) is
399: L_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
400: L_DEF_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
401: L_REG_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
402: L_REG_ID1 ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
403: --If Registration has active exemptions then it cannot be end dated.
396: P_ATTRIBUTE13 in VARCHAR2,
397: X_RETURN_STATUS out NOCOPY VARCHAR2
398: ) is
399: L_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
400: L_DEF_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
401: L_REG_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
402: L_REG_ID1 ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
403: --If Registration has active exemptions then it cannot be end dated.
404: -----Commented out since exemption is not based on registrations
397: X_RETURN_STATUS out NOCOPY VARCHAR2
398: ) is
399: L_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
400: L_DEF_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
401: L_REG_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
402: L_REG_ID1 ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
403: --If Registration has active exemptions then it cannot be end dated.
404: -----Commented out since exemption is not based on registrations
405: /* CURSOR exempt_cur IS
398: ) is
399: L_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
400: L_DEF_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
401: L_REG_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
402: L_REG_ID1 ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;
403: --If Registration has active exemptions then it cannot be end dated.
404: -----Commented out since exemption is not based on registrations
405: /* CURSOR exempt_cur IS
406: SELECT EFFECTIVE_TO
408: WHERE TAX_REGISTRATION_ID = P_REGISTRATION_ID;
409: */
410: -----Commented out since exemption is not based on registrations
411: --Get Default Registration for current PTP_ID
412: CURSOR default_reg_cur IS SELECT REGISTRATION_ID FROM ZX_REGISTRATIONS
413: WHERE PARTY_TAX_PROFILE_ID = P_PARTY_TAX_PROFILE_ID
414: AND DEFAULT_REGISTRATION_FLAG = 'Y'
415: AND REGISTRATION_ID <> P_REGISTRATION_ID;
416: begin
439: --Registration should be unique
440: BEGIN
441: SELECT REGISTRATION_ID
442: INTO L_REG_ID
443: FROM ZX_REGISTRATIONS
444: WHERE ((P_EFFECTIVE_TO is NULL AND EFFECTIVE_TO is NULL)
445: OR (P_EFFECTIVE_FROM BETWEEN EFFECTIVE_FROM
446: AND NVL(EFFECTIVE_TO,P_EFFECTIVE_TO ) )
447: OR ( NVL(P_EFFECTIVE_TO, EFFECTIVE_TO+1) BETWEEN EFFECTIVE_FROM
460: --Registration should be unique at each level
461: BEGIN
462: SELECT REGISTRATION_ID
463: INTO L_REG_ID1
464: FROM ZX_REGISTRATIONS
465: WHERE ((P_EFFECTIVE_TO is NULL AND EFFECTIVE_TO is NULL)
466: OR (P_EFFECTIVE_FROM BETWEEN EFFECTIVE_FROM
467: AND NVL(EFFECTIVE_TO,P_EFFECTIVE_TO ) )
468: OR ( NVL(P_EFFECTIVE_TO, EFFECTIVE_TO+1) BETWEEN EFFECTIVE_FROM
524: CLOSE default_reg_cur;
525: END IF;--end P_DEFAULT_REGISTRATION_FLAG
526: --Update only when there is no error
527: IF X_RETURN_STATUS = FND_API.G_RET_STS_SUCCESS THEN
528: update ZX_REGISTRATIONS set
529: REQUEST_ID = DECODE( P_REQUEST_ID, NULL, REQUEST_ID, P_REQUEST_ID ),
530: ATTRIBUTE1 = DECODE( P_ATTRIBUTE1, NULL, ATTRIBUTE1, P_ATTRIBUTE1 ),
531: ATTRIBUTE2 = DECODE( P_ATTRIBUTE2, NULL, ATTRIBUTE2, P_ATTRIBUTE2 ),
532: ATTRIBUTE3 = DECODE( P_ATTRIBUTE3, NULL, ATTRIBUTE3, P_ATTRIBUTE3 ),
593: begin
594: --Initialise x_return_status variable
595: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
596: --Delete the row
597: delete from ZX_REGISTRATIONS
598: where REGISTRATION_ID = P_REGISTRATION_ID;
599:
600: if (sql%notfound) then
601: --Set x_return_status param
603: raise no_data_found;
604: end if;
605: end DELETE_ROW;
606:
607: end ZX_REGISTRATIONS_PKG;