[Home] [Help]
1: package body IGR_I_A_PKGITM_PKG as
2: /* $Header: IGSRH18B.pls 120.0 2005/06/01 13:25:52 appldev noship $ */
3:
4:
5: l_rowid VARCHAR2(25);
2: /* $Header: IGSRH18B.pls 120.0 2005/06/01 13:25:52 appldev noship $ */
3:
4:
5: l_rowid VARCHAR2(25);
6: old_references IGR_I_A_PKGITM%RowType;
7: new_references IGR_I_A_PKGITM%RowType;
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
3:
4:
5: l_rowid VARCHAR2(25);
6: old_references IGR_I_A_PKGITM%RowType;
7: new_references IGR_I_A_PKGITM%RowType;
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
11: x_person_id IN NUMBER DEFAULT NULL,
21: ) as
22:
23: CURSOR cur_old_ref_values IS
24: SELECT *
25: FROM IGR_I_A_PKGITM
26: WHERE rowid = x_rowid;
27:
28: BEGIN
29:
185: x_PACKAGE_ITEM_ID IN NUMBER
186: ) RETURN BOOLEAN AS
187: CURSOR cur_rowid IS
188: SELECT rowid
189: FROM IGR_I_A_PKGITM
190: WHERE person_id = x_person_id
191: AND enquiry_appl_number = x_enquiry_appl_number
192: AND PACKAGE_ITEM_ID = x_PACKAGE_ITEM_ID
193: FOR UPDATE NOWAIT;
214: ) as
215:
216: CURSOR cur_rowid IS
217: SELECT rowid
218: FROM IGR_I_A_PKGITM
219: WHERE person_id = x_person_id
220: AND enquiry_appl_number = x_enquiry_appl_number ;
221:
222: lv_rowid cur_rowid%RowType;
324: X_ret_status OUT NOCOPY VARCHAR2,
325: X_msg_data OUT NOCOPY VARCHAR2,
326: X_msg_count OUT NOCOPY NUMBER
327: ) as
328: cursor C is select ROWID from IGR_I_A_PKGITM
329: where PERSON_ID = X_PERSON_ID
330: and ENQUIRY_APPL_NUMBER = X_ENQUIRY_APPL_NUMBER
331: and PACKAGE_ITEM_ID = X_PACKAGE_ITEM_ID;
332: X_LAST_UPDATE_DATE DATE;
391: x_last_updated_by=>X_LAST_UPDATED_BY,
392: x_last_update_login=>X_LAST_UPDATE_LOGIN,
393: x_donot_mail_ind=>X_DONOT_MAIL_IND
394: );
395: insert into IGR_I_A_PKGITM (
396: PERSON_ID,
397: ENQUIRY_APPL_NUMBER,
398: PACKAGE_ITEM_ID,
399: MAILED_DT,
459: X_DONOT_MAIL_IND IN VARCHAR2 DEFAULT NULL
460: ) as
461: cursor c1 is select
462: MAILED_DT,DONOT_MAIL_IND
463: from IGR_I_A_PKGITM
464: where ROWID = X_ROWID
465: for update nowait;
466: tlinfo c1%rowtype;
467:
568: x_last_update_login=>X_LAST_UPDATE_LOGIN,
569: x_donot_mail_ind=>X_DONOT_MAIL_IND
570: );
571:
572: update IGR_I_A_PKGITM set
573: MAILED_DT = NEW_REFERENCES.MAILED_DT,
574: DONOT_MAIL_IND = NEW_REFERENCES.DONOT_MAIL_IND,
575: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
576: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
614: X_msg_data OUT NOCOPY VARCHAR2,
615: X_msg_count OUT NOCOPY NUMBER
616:
617: ) as
618: cursor c1 is select rowid from IGR_I_A_PKGITM
619: where PERSON_ID = X_PERSON_ID
620: and ENQUIRY_APPL_NUMBER = X_ENQUIRY_APPL_NUMBER
621: and PACKAGE_ITEM_ID = X_PACKAGE_ITEM_ID
622: ;
662: Before_DML(
663: p_action => 'DELETE',
664: x_rowid => X_ROWID
665: );
666: delete from IGR_I_A_PKGITM
667: where ROWID = X_ROWID;
668: if (sql%notfound) then
669: raise no_data_found;
670: end if;
669: raise no_data_found;
670: end if;
671: end DELETE_ROW;
672:
673: end IGR_I_A_PKGITM_PKG;