[Home] [Help]
68: l_org_ID NUMBER;
69:
70: BEGIN
71:
72: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.INSERT_ROW (+)');
73:
74: -------------------------------------------------------
75: -- Select the nextval for var rent date id
76: -------------------------------------------------------
192: RAISE NO_DATA_FOUND;
193: END IF;
194: CLOSE var_rent_dates;
195:
196: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.INSERT_ROW (-)');
197:
198: END INSERT_ROW;
199:
200: -------------------------------------------------------------------------------
257: tlinfo c1%rowtype;
258:
259: BEGIN
260:
261: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.LOCK_ROW (+)');
262:
263: OPEN c1;
264: FETCH c1 INTO tlinfo;
265: IF (c1%notfound) THEN
499: else
500: PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('VRG_REPTG_FREQ_CODE',tlinfo.VRG_REPTG_FREQ_CODE);
501: end if;
502:
503: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.LOCK_ROW (-)');
504:
505: END LOCK_ROW;
506:
507: -------------------------------------------------------------------------------
558: )
559: IS
560: BEGIN
561:
562: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.UPDATE_ROW (+)');
563:
564: UPDATE PN_VAR_RENT_DATES_ALL
565: SET
566: VAR_RENT_DATE_ID = X_VAR_RENT_DATE_ID,
610: IF (sql%notfound) THEN
611: RAISE NO_DATA_FOUND;
612: END IF;
613:
614: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.UPDATE_ROW (-)');
615:
616: END UPDATE_ROW;
617:
618: -------------------------------------------------------------------------------
630: )
631: IS
632: BEGIN
633:
634: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.DELETE_ROW (+)');
635:
636: DELETE FROM PN_VAR_RENT_DATES_ALL
637: WHERE VAR_RENT_DATE_ID = X_VAR_RENT_DATE_ID;
638:
639: IF (sql%notfound) THEN
640: RAISE NO_DATA_FOUND;
641: END IF;
642:
643: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.DELETE_ROW (-)');
644:
645: END DELETE_ROW;
646:
647: END PN_VAR_RENT_DATES_PKG;