DBA Data[Home] [Help]

APPS.ZX_REGISTRATIONS_PKG dependencies on ZX_REGISTRATIONS

Line 1: package body ZX_REGISTRATIONS_PKG as

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,

Line 54: L_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;

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;

Line 55: L_DEF_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%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;

Line 56: L_REG_ID ZX_REGISTRATIONS.REGISTRATION_ID%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;

Line 57: L_REG_ID1 ZX_REGISTRATIONS.REGISTRATION_ID%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;

Line 58: L_INCLUSIVE_TAX_FLAG ZX_REGISTRATIONS.INCLUSIVE_TAX_FLAG%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;

Line 59: L_SELF_ASSESS_FLAG ZX_REGISTRATIONS.SELF_ASSESS_FLAG%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);

Line 60: L_ROUNDING_RULE_CODE ZX_REGISTRATIONS.ROUNDING_RULE_CODE%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);
64: x_party_name_token VARCHAR2(5000);

Line 68: CURSOR reg_cur IS SELECT REGISTRATION_ID FROM ZX_REGISTRATIONS

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

Line 71: CURSOR default_reg_cur IS SELECT REGISTRATION_ID FROM ZX_REGISTRATIONS

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

Line 111: FROM ZX_REGISTRATIONS

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

Line 131: FROM ZX_REGISTRATIONS

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

Line 218: select ZX_REGISTRATIONS_S.nextval into L_REGISTRATION_ID from dual;

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,

Line 219: insert into ZX_REGISTRATIONS (

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,

Line 399: L_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;

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.

Line 400: L_DEF_REGISTRATION_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;

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

Line 401: L_REG_ID ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;

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

Line 402: L_REG_ID1 ZX_REGISTRATIONS.REGISTRATION_ID%TYPE;

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

Line 412: CURSOR default_reg_cur IS SELECT REGISTRATION_ID FROM ZX_REGISTRATIONS

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

Line 443: FROM ZX_REGISTRATIONS

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

Line 464: FROM ZX_REGISTRATIONS

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

Line 528: update ZX_REGISTRATIONS set

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 ),

Line 597: delete from ZX_REGISTRATIONS

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

Line 607: end ZX_REGISTRATIONS_PKG;

603: raise no_data_found;
604: end if;
605: end DELETE_ROW;
606:
607: end ZX_REGISTRATIONS_PKG;