[Home] [Help]
1: PACKAGE BODY igs_ss_admappl_setup_pkg AS
2: /* $Header: IGSAIB6B.pls 115.10 2003/10/30 13:25:47 rghosh ship $ */
3:
4: --hreddych 16-jul-2002 #2464172 removed the default null value in the lock_row procedure
5: -- for X_DEPENDENT_OF_VETERAN and X_APP_SOURCE_ID
3:
4: --hreddych 16-jul-2002 #2464172 removed the default null value in the lock_row procedure
5: -- for X_DEPENDENT_OF_VETERAN and X_APP_SOURCE_ID
6: l_rowid VARCHAR2(25);
7: old_references igs_ss_admappl_setup%ROWTYPE;
8: new_references igs_ss_admappl_setup%ROWTYPE;
9: PROCEDURE set_column_values (
10: p_action IN VARCHAR2,
11: x_rowid IN VARCHAR2, --DEFAULT NULL,
4: --hreddych 16-jul-2002 #2464172 removed the default null value in the lock_row procedure
5: -- for X_DEPENDENT_OF_VETERAN and X_APP_SOURCE_ID
6: l_rowid VARCHAR2(25);
7: old_references igs_ss_admappl_setup%ROWTYPE;
8: new_references igs_ss_admappl_setup%ROWTYPE;
9: PROCEDURE set_column_values (
10: p_action IN VARCHAR2,
11: x_rowid IN VARCHAR2, --DEFAULT NULL,
12: x_admappl_setup_id IN NUMBER,-- DEFAULT NULL,
36: || (reverse chronological order - newest change first)
37: */
38: CURSOR cur_old_ref_values IS
39: SELECT *
40: FROM IGS_SS_ADMAPPL_SETUP
41: WHERE rowid = x_rowid;
42: BEGIN
43: l_rowid := x_rowid;
44: -- Code for setting the Old and New Reference Values.
195: || (reverse chronological order - newest change first)
196: */
197: CURSOR cur_rowid IS
198: SELECT rowid
199: FROM igs_ss_admappl_setup
200: WHERE admappl_setup_id = x_admappl_setup_id
201: FOR UPDATE NOWAIT;
202: lv_rowid cur_rowid%RowType;
203: BEGIN
225: || (reverse chronological order - newest change first)
226: */
227: CURSOR cur_rowid IS
228: SELECT rowid
229: FROM igs_ss_admappl_setup
230: WHERE we_note_type_id = x_notes_type_id ;
231: lv_rowid cur_rowid%RowType;
232: BEGIN
233: OPEN cur_rowid;
256: || (reverse chronological order - newest change first)
257: */
258: CURSOR cur_rowid IS
259: SELECT rowid
260: FROM igs_ss_admappl_setup
261: WHERE alias_type = x_alias_type ;
262: lv_rowid cur_rowid%RowType;
263: BEGIN
264: OPEN cur_rowid;
288: */
289: /*
290: CURSOR cur_rowid IS
291: SELECT rowid
292: FROM igs_ss_admappl_setup
293: WHERE permanent_addr_type = x_addr_type ;
294: lv_rowid cur_rowid%RowType;
295: BEGIN
296: OPEN cur_rowid;
318: || (reverse chronological order - newest change first)
319: */
320: CURSOR cur_rowid IS
321: SELECT rowid
322: FROM igs_ss_admappl_setup
323: WHERE act_note_type_id = x_notes_type_id ;
324: lv_rowid cur_rowid%RowType;
325: BEGIN
326: OPEN cur_rowid;
349: */
350: /*
351: CURSOR cur_rowid IS
352: SELECT rowid
353: FROM igs_ss_admappl_setup
354: WHERE mailing_addr_type = x_addr_type ;
355: lv_rowid cur_rowid%RowType;
356: BEGIN
357: OPEN cur_rowid;
379: || (reverse chronological order - newest change first)
380: */
381: CURSOR cur_rowid IS
382: SELECT rowid
383: FROM igs_ss_admappl_setup
384: WHERE person_id_type = x_person_id_type ;
385: lv_rowid cur_rowid%RowType;
386: BEGIN
387: OPEN cur_rowid;
408: || (reverse chronological order - newest change first)
409: */
410: CURSOR cur_rowid IS
411: SELECT rowid
412: FROM igs_ss_admappl_setup
413: WHERE ps_note_type_id = x_notes_type_id ;
414: lv_rowid cur_rowid%RowType;
415: BEGIN
416: OPEN cur_rowid;
565: , we_note_type_id
566: , act_note_type_id
567: , dependent_of_veteran
568: , app_source_id
569: FROM igs_ss_admappl_setup
570: WHERE ROWID = x_rowid
571: FOR UPDATE NOWAIT;
572: tlinfo c1%ROWTYPE;
573: BEGIN
684: x_last_update_date=>x_last_update_date,
685: x_last_updated_by=>x_last_updated_by,
686: x_last_update_login=>x_last_update_login
687: );
688: UPDATE igs_ss_admappl_setup SET
689: alias_type = new_references.alias_type,
690: permanent_addr_type = new_references.permanent_addr_type,
691: mailing_addr_type = new_references.mailing_addr_type,
692: person_id_type = new_references.person_id_type,
706: p_action => 'UPDATE',
707: x_rowid => X_ROWID
708: );
709: END update_row;
710: END igs_ss_admappl_setup_pkg;