[Home] [Help]
1: package body PN_VAR_RENTS_PKG as
2: /* $Header: PNVRENTB.pls 120.4 2007/01/30 04:17:53 lbala noship $ */
3: -------------------------------------------------------------------------------
4: -- PROCDURE : INSERT_ROW
5: -- INVOKED FROM : insert_row procedure
69: l_return_status VARCHAR2(30) := NULL;
70:
71: BEGIN
72:
73: PNP_DEBUG_PKG.debug ('PN_VAR_RENTS_PKG.INSERT_ROW (+)');
74:
75: -------------------------------------------------------
76: -- Select the nextval for var rent id
77: -------------------------------------------------------
87: END IF;
88:
89: -- Check if rent number is unique
90: l_return_status := NULL;
91: PN_VAR_RENTS_PKG.CHECK_UNIQUE_RENT_NUMBER
92: (
93: l_return_status,
94: x_var_rent_id,
95: x_rent_num,
209: RAISE NO_DATA_FOUND;
210: END IF;
211: CLOSE var_rents;
212:
213: PNP_DEBUG_PKG.debug ('PN_VAR_RENTS_PKG.INSERT_ROW (-)');
214:
215: END INSERT_ROW;
216:
217: -------------------------------------------------------------------------------
272: tlinfo c1%rowtype;
273:
274: BEGIN
275:
276: PNP_DEBUG_PKG.debug ('PN_VAR_RENTS_PKG.LOCK_ROW (+)');
277:
278: OPEN c1;
279: FETCH c1 INTO tlinfo;
280: IF (c1%notfound) THEN
499: else
500: PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('CHG_CAL_VAR_RENT_ID',tlinfo.CHG_CAL_VAR_RENT_ID);
501: end if;
502:
503: PNP_DEBUG_PKG.debug ('PN_VAR_RENTS_PKG.LOCK_ROW (-)');
504:
505: END LOCK_ROW;
506:
507: -------------------------------------------------------------------------------
559: l_return_status VARCHAR2(30) := NULL;
560: l_org_id NUMBER;
561: BEGIN
562:
563: PNP_DEBUG_PKG.debug ('PN_VAR_RENTS_PKG.UPDATE_ROW (+)');
564:
565: -- Check if rent number is unique
566: l_return_status := NULL;
567:
569: INTO l_org_id
570: FROM PN_VAR_RENTS_ALL bkdetails
571: WHERE VAR_RENT_ID = X_VAR_RENT_ID;
572:
573: PN_VAR_RENTS_PKG.CHECK_UNIQUE_RENT_NUMBER
574: (
575: l_return_status,
576: x_var_rent_id,
577: x_rent_num,
633: IF (sql%notfound) THEN
634: RAISE NO_DATA_FOUND;
635: END IF;
636:
637: PNP_DEBUG_PKG.debug ('PN_VAR_RENTS_PKG.UPDATE_ROW (-)');
638:
639: END UPDATE_ROW;
640:
641: -------------------------------------------------------------------------------
651: X_VAR_RENT_ID in NUMBER
652: )
653: IS
654: BEGIN
655: PNP_DEBUG_PKG.debug ('PN_VAR_RENTS_PKG.DELETE_ROW (+)');
656:
657: DELETE FROM PN_VAR_RENTS_ALL
658: WHERE VAR_RENT_ID = X_VAR_RENT_ID;
659:
660: IF (sql%notfound) THEN
661: RAISE NO_DATA_FOUND;
662: END IF;
663:
664: PNP_DEBUG_PKG.debug ('PN_VAR_RENTS_PKG.DELETE_ROW (-)');
665:
666: END DELETE_ROW;
667:
668: -------------------------------------------------------------------------------
682: )
683: IS
684: l_dummy NUMBER;
685: BEGIN
686: PNP_DEBUG_PKG.debug ('PN_VAR_RENTS_PKG.check_UNIQUE_rent_number (+)');
687:
688: SELECT 1
689: INTO l_dummy
690: FROM dual
697: (pnvr.var_rent_id <> x_var_rent_id))
698: AND org_id = x_org_id
699: );
700:
701: PNP_DEBUG_PKG.debug ('PN_VAR_RENTS_PKG.check_UNIQUE_rent_number (-)');
702:
703: EXCEPTION
704: WHEN NO_DATA_FOUND THEN
705: fnd_message.set_name ('PN','PN_DUP_LEASE_NUMBER');
734: BEGIN
735:
736: l_var_rent_num := p_pn_var_rents_rec.rent_num;
737:
738: pn_var_rents_pkg.insert_row (
739: X_ROWID => l_rowid,
740: X_VAR_RENT_ID => l_var_rent_id ,
741: X_RENT_NUM => l_var_rent_num,
742: X_LEASE_ID => p_pn_var_rents_Rec.lease_id,
860: x_excess_abat_code IN VARCHAR2,
861: x_order_of_appl_code IN VARCHAR2)
862: IS
863: BEGIN
864: PNP_DEBUG_PKG.debug ('PN_VAR_RENTS_PKG.MODIF_VAR_RENT (+)');
865:
866: UPDATE pn_var_rents_all
867: SET excess_abat_code = x_excess_abat_code,
868: order_of_appl_code = x_order_of_appl_code,
874: IF (sql%notfound) THEN
875: RAISE NO_DATA_FOUND;
876: END IF;
877:
878: PNP_DEBUG_PKG.debug ('PN_VAR_RENTS_PKG.MODIF_VAR_RENT (-)');
879:
880: END MODIF_VAR_RENT;
881:
882: -------------------------------------------------------------------------------------
935: END LOOP;
936:
937: END delete_var_rent_agreement;
938:
939: END PN_VAR_RENTS_PKG;