APPS.PN_VAR_CONSTR_DEFAULTS_PKG dependencies on PN_VAR_CONSTR_DEFAULTS

Line 1: PACKAGE BODY PN_VAR_CONSTR_DEFAULTS_PKG AS

1: PACKAGE BODY PN_VAR_CONSTR_DEFAULTS_PKG AS
2: /* $Header: PNVRCDFB.pls 120.0 2007/10/03 14:28:29 rthumma noship $ */
3:
4: -------------------------------------------------------------------------------
5: -- PROCDURE : INSERT_ROW

Line 49: from PN_VAR_CONSTR_DEFAULTS_ALL

45: ) is
46:
47: cursor C is
48: select ROWID
49: from PN_VAR_CONSTR_DEFAULTS_ALL
50: where CONSTR_DEFAULT_ID = X_CONSTR_DEFAULT_ID;
51:
52: l_return_status VARCHAR2(30) := NULL;
53:

Line 56: PNP_DEBUG_PKG.debug ('PN_VAR_CONSTR_DEFAULTS_PKG.INSERT_ROW (+)');

52: l_return_status VARCHAR2(30) := NULL;
53:
54: begin
55:
56: PNP_DEBUG_PKG.debug ('PN_VAR_CONSTR_DEFAULTS_PKG.INSERT_ROW (+)');
57:
58: -------------------------------------------------------
59: -- We need to generate the line number
60: -------------------------------------------------------

Line 63: from PN_VAR_CONSTR_DEFAULTS constr

59: -- We need to generate the line number
60: -------------------------------------------------------
61: select nvl(max(constr.CONSTR_DEFAULT_NUM),0)
62: into X_CONSTR_DEFAULT_NUM
63: from PN_VAR_CONSTR_DEFAULTS constr
64: where constr.VAR_RENT_ID = X_VAR_RENT_ID;
65:
66: X_CONSTR_DEFAULT_NUM := X_CONSTR_DEFAULT_NUM + 1;
67:

Line 73: select PN_VAR_CONSTR_DEFAULTS_S.nextval

69: -- Select the nextval for constraint default id
70: -------------------------------------------------------
71: IF ( X_CONSTR_DEFAULT_ID IS NULL) THEN
72:
73: select PN_VAR_CONSTR_DEFAULTS_S.nextval
74: into X_CONSTR_DEFAULT_ID
75: from dual;
76: END IF;
77:

Line 81: PN_VAR_CONSTR_DEFAULTS_PKG.CHECK_MAX_CONSTR

77:
78: -- Check for constraint range
79: /*l_return_status := NULL;
80:
81: PN_VAR_CONSTR_DEFAULTS_PKG.CHECK_MAX_CONSTR
82: (
83: x_return_status => l_return_status,
84: x_constraint_default_id => x_constr_default_id,
85: x_constr_cat_code => x_constr_cat_code,

Line 94: insert into PN_VAR_CONSTR_DEFAULTS_ALL (

90: IF (l_return_status IS NOT NULL) THEN
91: APP_EXCEPTION.Raise_Exception;
92: END IF;*/
93:
94: insert into PN_VAR_CONSTR_DEFAULTS_ALL (
95: CONSTR_DEFAULT_ID,
96: CONSTR_DEFAULT_NUM,
97: VAR_RENT_ID,
98: LAST_UPDATE_DATE,

Line 211: from PN_VAR_CONSTR_DEFAULTS_ALL

207: X_ATTRIBUTE15 in VARCHAR2
208: ) is
209: cursor c1 is select
210: *
211: from PN_VAR_CONSTR_DEFAULTS_ALL
212: where CONSTR_DEFAULT_ID = X_CONSTR_DEFAULT_ID
213: for update of CONSTR_DEFAULT_ID nowait;
214:
215: begin

Line 330: PN_VAR_CONSTR_DEFAULTS_PKG.CHECK_MAX_CONSTR

326: PNP_DEBUG_PKG.debug ('PN_CONSTR_DEFAULTS_PKG.UPDATE_ROW (+)');
327:
328: -- Check for constraint range
329: /*l_return_status := NULL;
330: PN_VAR_CONSTR_DEFAULTS_PKG.CHECK_MAX_CONSTR
331: (
332: x_return_status => l_return_status,
333: x_constraint_default_id => x_constr_default_id,
334: x_constr_cat_code => x_constr_cat_code,

Line 344: update PN_VAR_CONSTR_DEFAULTS_ALL set

340: IF (l_return_status IS NOT NULL) THEN
341: APP_EXCEPTION.Raise_Exception;
342: END IF;*/
343:
344: update PN_VAR_CONSTR_DEFAULTS_ALL set
345: CONSTR_DEFAULT_NUM = X_CONSTR_DEFAULT_NUM,
346: VAR_RENT_ID = X_VAR_RENT_ID,
347: AGREEMENT_TEMPLATE_ID = X_AGREEMENT_TEMPLATE_ID,
348: CONSTR_TEMPLATE_ID = X_CONSTR_TEMPLATE_ID,

Line 396: delete from PN_VAR_CONSTR_DEFAULTS_ALL

392: begin
393:
394: PNP_DEBUG_PKG.debug ('PN_CONSTR_DEFAULTS_PKG.DELETE_ROW (+)');
395:
396: delete from PN_VAR_CONSTR_DEFAULTS_ALL
397: where CONSTR_DEFAULT_ID = X_CONSTR_DEFAULT_ID;
398:
399: if (sql%notfound) then
400: raise no_data_found;

Line 434: from pn_var_constr_defaults_all constr

430: from dual
431: where not exists
432: (
433: select 1
434: from pn_var_constr_defaults_all constr
435: where constr.amount < (x_amount)
436: and ((x_constraint_default_id is null) or
437: (constr.constr_default_id <> x_constraint_default_id))
438: and constr.constr_cat_code = x_constr_cat_code

Line 456: end PN_VAR_CONSTR_DEFAULTS_PKG;

452: x_return_status := 'E';
453:
454: END CHECK_MAX_CONSTR;
455:
456: end PN_VAR_CONSTR_DEFAULTS_PKG;