1: PACKAGE BODY pn_rights_pkg AS
2: /* $Header: PNRIGHTB.pls 120.2 2005/12/01 03:27:15 appldev ship $ */
3: -------------------------------------------------------------------------------
4: -- PROCDURE : INSERT_ROW
5: -- INVOKED FROM : insert_row procedure
55: l_org_id NUMBER;
56:
57: BEGIN
58:
59: pnp_debug_pkg.debug ('PN_RIGHTS_PKG.INSERT_ROW (+)');
60:
61: -------------------------------------------------------
62: -- We need to generate the right number
63: -------------------------------------------------------
165: RAISE NO_DATA_FOUND;
166: END IF;
167: CLOSE rights;
168:
169: pnp_debug_pkg.debug ('PN_RIGHTS_PKG.INSERT_ROW (-)');
170:
171: END INSERT_ROW;
172:
173: -------------------------------------------------------------------------------
216: tlinfo c1%ROWTYPE;
217:
218: BEGIN
219:
220: pnp_debug_pkg.debug ('PN_RIGHTS_PKG.LOCK_ROW (+)');
221:
222: OPEN c1;
223: FETCH c1 INTO tlinfo;
224: IF (c1%NOTFOUND) THEN
350: OR ((tlinfo.ATTRIBUTE15 IS NULL) AND (X_ATTRIBUTE15 IS NULL))) THEN
351: pn_var_rent_pkg.lock_row_exception('ATTRIBUTE15',tlinfo.ATTRIBUTE15);
352: END IF;
353:
354: pnp_debug_pkg.debug ('PN_RIGHTS_PKG.LOCK_ROW (-)');
355:
356: END LOCK_ROW;
357:
358: -------------------------------------------------------------------------------
403: l_rightHistoryId NUMBER := NULL;
404: l_leaseStatus VARCHAR2(30) := NULL;
405:
406: BEGIN
407: pnp_debug_pkg.debug ('PN_RIGHTS_PKG.UPDATE_ROW (+)');
408:
409: ----------------------------------------------------
410: -- get the lease status
411: ----------------------------------------------------
539: IF (SQL%NOTFOUND) THEN
540: RAISE NO_DATA_FOUND;
541: END IF;
542:
543: pnp_debug_pkg.debug ('PN_RIGHTS_PKG.UPDATE_ROW (-)');
544:
545: END UPDATE_ROW;
546:
547: -------------------------------------------------------------------------------
557: )
558: IS
559: BEGIN
560:
561: pnp_debug_pkg.debug ('PN_RIGHTS_PKG.DELETE_ROW (+)');
562:
563: DELETE FROM PN_RIGHTS_ALL --sdm_MOAC
564: WHERE RIGHT_ID = X_RIGHT_ID;
565:
566: IF (SQL%NOTFOUND) THEN
567: RAISE NO_DATA_FOUND;
568: END IF;
569:
570: pnp_debug_pkg.debug ('PN_RIGHTS_PKG.DELETE_ROW (-)');
571:
572: END DELETE_ROW;
573:
574: END PN_RIGHTS_PKG;
570: pnp_debug_pkg.debug ('PN_RIGHTS_PKG.DELETE_ROW (-)');
571:
572: END DELETE_ROW;
573:
574: END PN_RIGHTS_PKG;