DBA Data[Home] [Help]

APPS.IGS_PE_PERS_DISABLTY_PKG dependencies on IGS_PE_PERS_DISABLTY

Line 1: PACKAGE BODY igs_pe_pers_disablty_pkg AS

1: PACKAGE BODY igs_pe_pers_disablty_pkg AS
2: /* $Header: IGSNI15B.pls 120.3 2005/10/17 02:18:42 appldev ship $ */
3:
4: ------------------------------------------------------------------
5: -- Change History

Line 14: old_references igs_pe_pers_disablty%RowType;

10: -- Person DLD / Pk changed to Seq Gen Pk
11: ------------------------------------------------------------------
12:
13: l_rowid VARCHAR2(25);
14: old_references igs_pe_pers_disablty%RowType;
15: new_references igs_pe_pers_disablty%RowType;
16:
17: PROCEDURE Set_Column_Values (
18: p_action IN VARCHAR2,

Line 15: new_references igs_pe_pers_disablty%RowType;

11: ------------------------------------------------------------------
12:
13: l_rowid VARCHAR2(25);
14: old_references igs_pe_pers_disablty%RowType;
15: new_references igs_pe_pers_disablty%RowType;
16:
17: PROCEDURE Set_Column_Values (
18: p_action IN VARCHAR2,
19: x_rowid IN VARCHAR2 ,--DEFAULT NULL,

Line 20: x_IGS_PE_PERS_DISABLTY_ID IN NUMBER ,--DEFAULT NULL,

16:
17: PROCEDURE Set_Column_Values (
18: p_action IN VARCHAR2,
19: x_rowid IN VARCHAR2 ,--DEFAULT NULL,
20: x_IGS_PE_PERS_DISABLTY_ID IN NUMBER ,--DEFAULT NULL,
21: x_person_id IN NUMBER,-- DEFAULT NULL,
22: x_disability_type IN VARCHAR2,-- DEFAULT NULL,
23: x_contact_ind IN VARCHAR2 ,--DEFAULT NULL,
24: x_special_allow_cd IN VARCHAR2,--DEFAULT NULL,

Line 75: FROM IGS_PE_PERS_DISABLTY

71: ***************************************************************/
72:
73: CURSOR cur_old_ref_values IS
74: SELECT *
75: FROM IGS_PE_PERS_DISABLTY
76: WHERE rowid = x_rowid;
77:
78: BEGIN
79:

Line 97: NEW_REFERENCES.IGS_PE_PERS_DISABLTY_ID := X_IGS_PE_PERS_DISABLTY_ID ;

93: Close cur_old_ref_values;
94:
95: -- Populate New Values.
96: new_references.person_id := x_person_id;
97: NEW_REFERENCES.IGS_PE_PERS_DISABLTY_ID := X_IGS_PE_PERS_DISABLTY_ID ;
98: new_references.disability_type := x_disability_type;
99: new_references.contact_ind := x_contact_ind;
100: new_references.special_allow_cd := x_special_allow_cd;
101: new_references.support_level_cd := x_support_level_cd;

Line 189: WHERE disability_id = new_references.igs_pe_pers_disablty_id;

185:
186: CURSOR cur_contact IS
187: SELECT 'Y' contact_ind
188: FROM igs_pe_sn_contact
189: WHERE disability_id = new_references.igs_pe_pers_disablty_id;
190: cur_contact_rec cur_contact%ROWTYPE;
191: l_contact_ind VARCHAR2(1);
192: -- End of fix
193:

Line 261: igs_pe_sn_contact_pkg.get_fk_igs_pe_pers_disablty (

257:
258: PROCEDURE Check_Child_Existance AS
259: BEGIN
260:
261: igs_pe_sn_contact_pkg.get_fk_igs_pe_pers_disablty (
262: old_references.IGS_PE_PERS_DISABLTY_ID
263: );
264:
265: igs_pe_sn_service_pkg.get_fk_igs_pe_pers_disablty (

Line 262: old_references.IGS_PE_PERS_DISABLTY_ID

258: PROCEDURE Check_Child_Existance AS
259: BEGIN
260:
261: igs_pe_sn_contact_pkg.get_fk_igs_pe_pers_disablty (
262: old_references.IGS_PE_PERS_DISABLTY_ID
263: );
264:
265: igs_pe_sn_service_pkg.get_fk_igs_pe_pers_disablty (
266: old_references.IGS_PE_PERS_DISABLTY_ID

Line 265: igs_pe_sn_service_pkg.get_fk_igs_pe_pers_disablty (

261: igs_pe_sn_contact_pkg.get_fk_igs_pe_pers_disablty (
262: old_references.IGS_PE_PERS_DISABLTY_ID
263: );
264:
265: igs_pe_sn_service_pkg.get_fk_igs_pe_pers_disablty (
266: old_references.IGS_PE_PERS_DISABLTY_ID
267: );
268:
269: END Check_Child_Existance;

Line 266: old_references.IGS_PE_PERS_DISABLTY_ID

262: old_references.IGS_PE_PERS_DISABLTY_ID
263: );
264:
265: igs_pe_sn_service_pkg.get_fk_igs_pe_pers_disablty (
266: old_references.IGS_PE_PERS_DISABLTY_ID
267: );
268:
269: END Check_Child_Existance;
270:

Line 351: X_IGS_PE_PERS_DISABLTY_ID IN NUMBER

347:
348: END Check_Parent_Existance;
349:
350: FUNCTION Get_PK_For_Validation (
351: X_IGS_PE_PERS_DISABLTY_ID IN NUMBER
352: ) RETURN BOOLEAN AS
353:
354: /*************************************************************
355: Created By :

Line 367: FROM igs_pe_pers_disablty

363: ***************************************************************/
364:
365: CURSOR cur_rowid IS
366: SELECT rowid
367: FROM igs_pe_pers_disablty
368: WHERE IGS_PE_PERS_DISABLTY_ID = X_IGS_PE_PERS_DISABLTY_ID
369: FOR UPDATE NOWAIT;
370:
371: lv_rowid cur_rowid%RowType;

Line 368: WHERE IGS_PE_PERS_DISABLTY_ID = X_IGS_PE_PERS_DISABLTY_ID

364:
365: CURSOR cur_rowid IS
366: SELECT rowid
367: FROM igs_pe_pers_disablty
368: WHERE IGS_PE_PERS_DISABLTY_ID = X_IGS_PE_PERS_DISABLTY_ID
369: FOR UPDATE NOWAIT;
370:
371: lv_rowid cur_rowid%RowType;
372:

Line 402: FROM igs_pe_pers_disablty

398: || (reverse chronological order - newest change first)
399: */
400: CURSOR cur_rowid IS
401: SELECT rowid
402: FROM igs_pe_pers_disablty
403: WHERE person_id = x_person_id
404: AND disability_type = x_disability_type
405: AND ( (start_date = x_start_date) OR (start_date IS NULL and x_start_date IS NULL ))
406: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));

Line 441: FROM igs_pe_pers_disablty

437: ***************************************************************/
438:
439: CURSOR cur_rowid IS
440: SELECT rowid
441: FROM igs_pe_pers_disablty
442: WHERE (person_id = x_person_id or INTERVIEWER_ID = x_person_id );
443:
444: lv_rowid cur_rowid%RowType;
445:

Line 478: FROM igs_pe_pers_disablty

474: ***************************************************************/
475:
476: CURSOR cur_rowid IS
477: SELECT rowid
478: FROM igs_pe_pers_disablty
479: WHERE disability_type = x_disability_type ;
480:
481: lv_rowid cur_rowid%RowType;
482:

Line 521: CURSOR none_cur (cp_person_id igs_pe_pers_disablty.person_id%TYPE,

517: SELECT govt_disability_type
518: FROM igs_ad_disbl_type
519: WHERE disability_type = cp_disability_type;
520:
521: CURSOR none_cur (cp_person_id igs_pe_pers_disablty.person_id%TYPE,
522: cp_start_date igs_pe_pers_disablty.start_date%TYPE,
523: cp_end_date igs_pe_pers_disablty.end_date%TYPE,
524: cp_govt_disability_type igs_ad_disbl_type.govt_disability_type%TYPE)
525: IS

Line 522: cp_start_date igs_pe_pers_disablty.start_date%TYPE,

518: FROM igs_ad_disbl_type
519: WHERE disability_type = cp_disability_type;
520:
521: CURSOR none_cur (cp_person_id igs_pe_pers_disablty.person_id%TYPE,
522: cp_start_date igs_pe_pers_disablty.start_date%TYPE,
523: cp_end_date igs_pe_pers_disablty.end_date%TYPE,
524: cp_govt_disability_type igs_ad_disbl_type.govt_disability_type%TYPE)
525: IS
526: SELECT 1

Line 523: cp_end_date igs_pe_pers_disablty.end_date%TYPE,

519: WHERE disability_type = cp_disability_type;
520:
521: CURSOR none_cur (cp_person_id igs_pe_pers_disablty.person_id%TYPE,
522: cp_start_date igs_pe_pers_disablty.start_date%TYPE,
523: cp_end_date igs_pe_pers_disablty.end_date%TYPE,
524: cp_govt_disability_type igs_ad_disbl_type.govt_disability_type%TYPE)
525: IS
526: SELECT 1
527: FROM igs_pe_pers_disablty pdi,

Line 527: FROM igs_pe_pers_disablty pdi,

523: cp_end_date igs_pe_pers_disablty.end_date%TYPE,
524: cp_govt_disability_type igs_ad_disbl_type.govt_disability_type%TYPE)
525: IS
526: SELECT 1
527: FROM igs_pe_pers_disablty pdi,
528: igs_ad_disbl_type dit
529: WHERE person_id = cp_person_id
530: AND dit.disability_type = pdi.disability_type
531: AND dit.govt_disability_type = cp_govt_disability_type

Line 540: CURSOR not_none_cur (cp_person_id igs_pe_pers_disablty.person_id%TYPE,

536: NVL(end_date,l_default_end_date) <= NVL(cp_end_date,l_default_end_date))
537: );
538:
539:
540: CURSOR not_none_cur (cp_person_id igs_pe_pers_disablty.person_id%TYPE,
541: cp_start_date igs_pe_pers_disablty.start_date%TYPE,
542: cp_end_date igs_pe_pers_disablty.end_date%TYPE,
543: cp_govt_disability_type igs_ad_disbl_type.govt_disability_type%TYPE)
544: IS

Line 541: cp_start_date igs_pe_pers_disablty.start_date%TYPE,

537: );
538:
539:
540: CURSOR not_none_cur (cp_person_id igs_pe_pers_disablty.person_id%TYPE,
541: cp_start_date igs_pe_pers_disablty.start_date%TYPE,
542: cp_end_date igs_pe_pers_disablty.end_date%TYPE,
543: cp_govt_disability_type igs_ad_disbl_type.govt_disability_type%TYPE)
544: IS
545: SELECT 1

Line 542: cp_end_date igs_pe_pers_disablty.end_date%TYPE,

538:
539:
540: CURSOR not_none_cur (cp_person_id igs_pe_pers_disablty.person_id%TYPE,
541: cp_start_date igs_pe_pers_disablty.start_date%TYPE,
542: cp_end_date igs_pe_pers_disablty.end_date%TYPE,
543: cp_govt_disability_type igs_ad_disbl_type.govt_disability_type%TYPE)
544: IS
545: SELECT 1
546: FROM igs_pe_pers_disablty pdi,

Line 546: FROM igs_pe_pers_disablty pdi,

542: cp_end_date igs_pe_pers_disablty.end_date%TYPE,
543: cp_govt_disability_type igs_ad_disbl_type.govt_disability_type%TYPE)
544: IS
545: SELECT 1
546: FROM igs_pe_pers_disablty pdi,
547: igs_ad_disbl_type dit
548: WHERE person_id = cp_person_id
549: AND dit.disability_type = pdi.disability_type
550: AND dit.govt_disability_type <> cp_govt_disability_type

Line 650: X_IGS_PE_PERS_DISABLTY_ID IN NUMBER ,--DEFAULT NULL,

646:
647: PROCEDURE Before_DML (
648: p_action IN VARCHAR2,
649: x_rowid IN VARCHAR2 ,--DEFAULT NULL,
650: X_IGS_PE_PERS_DISABLTY_ID IN NUMBER ,--DEFAULT NULL,
651: x_person_id IN NUMBER ,--DEFAULT NULL,
652: x_disability_type IN VARCHAR2,-- DEFAULT NULL,
653: x_contact_ind IN VARCHAR2,-- DEFAULT NULL,
654: x_special_allow_cd IN VARCHAR2 ,--DEFAULT NULL,

Line 707: X_IGS_PE_PERS_DISABLTY_ID,

703:
704: Set_Column_Values (
705: p_action,
706: x_rowid,
707: X_IGS_PE_PERS_DISABLTY_ID,
708: x_person_id,
709: x_disability_type,
710: x_contact_ind,
711: x_special_allow_cd,

Line 753: new_references.IGS_PE_PERS_DISABLTY_ID

749: IF (p_action = 'INSERT') THEN
750: -- Call all the procedures related to Before Insert.
751: BeforeRowInsertUpdate1 ;
752: IF Get_PK_For_Validation (
753: new_references.IGS_PE_PERS_DISABLTY_ID
754: ) THEN
755: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
756: IGS_GE_MSG_STACK.ADD;
757: App_Exception.Raise_Exception;

Line 780: new_references.IGS_PE_PERS_DISABLTY_ID

776:
777: ELSIF (p_action = 'VALIDATE_INSERT') THEN
778:
779: IF Get_PK_For_Validation (
780: new_references.IGS_PE_PERS_DISABLTY_ID
781: ) THEN
782: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
783: IGS_GE_MSG_STACK.ADD;
784: App_Exception.Raise_Exception;

Line 839: X_IGS_PE_PERS_DISABLTY_ID IN OUT NOCOPY NUMBER,

835: END After_DML;
836:
837: procedure INSERT_ROW (
838: X_ROWID in out NOCOPY VARCHAR2,
839: X_IGS_PE_PERS_DISABLTY_ID IN OUT NOCOPY NUMBER,
840: x_PERSON_ID IN NUMBER,
841: x_DISABILITY_TYPE IN VARCHAR2,
842: x_CONTACT_IND IN VARCHAR2,
843: x_SPECIAL_ALLOW_CD IN VARCHAR2,

Line 887: cursor C is select ROWID from IGS_PE_PERS_DISABLTY

883: sraj 2000/05/05 the table structure has been changed
884: (reverse chronological order - newest change first)
885: ***************************************************************/
886:
887: cursor C is select ROWID from IGS_PE_PERS_DISABLTY
888: where
889: IGS_PE_PERS_DISABLTY_ID = X_IGS_PE_PERS_DISABLTY_ID ;
890:
891: X_LAST_UPDATE_DATE DATE ;

Line 889: IGS_PE_PERS_DISABLTY_ID = X_IGS_PE_PERS_DISABLTY_ID ;

885: ***************************************************************/
886:
887: cursor C is select ROWID from IGS_PE_PERS_DISABLTY
888: where
889: IGS_PE_PERS_DISABLTY_ID = X_IGS_PE_PERS_DISABLTY_ID ;
890:
891: X_LAST_UPDATE_DATE DATE ;
892: X_LAST_UPDATED_BY NUMBER ;
893: X_LAST_UPDATE_LOGIN NUMBER ;

Line 915: SELECT igs_pe_pers_disablty_s.NEXTVAL

911: IGS_GE_MSG_STACK.ADD;
912: app_exception.raise_exception;
913: end if;
914:
915: SELECT igs_pe_pers_disablty_s.NEXTVAL
916: INTO x_IGS_PE_PERS_DISABLTY_ID
917: FROM dual;
918:
919: Before_DML(

Line 916: INTO x_IGS_PE_PERS_DISABLTY_ID

912: app_exception.raise_exception;
913: end if;
914:
915: SELECT igs_pe_pers_disablty_s.NEXTVAL
916: INTO x_IGS_PE_PERS_DISABLTY_ID
917: FROM dual;
918:
919: Before_DML(
920: p_action=>'INSERT',

Line 922: X_IGS_PE_PERS_DISABLTY_ID => X_IGS_PE_PERS_DISABLTY_ID ,

918:
919: Before_DML(
920: p_action=>'INSERT',
921: x_rowid=>X_ROWID,
922: X_IGS_PE_PERS_DISABLTY_ID => X_IGS_PE_PERS_DISABLTY_ID ,
923: x_person_id=>X_PERSON_ID,
924: x_disability_type=>X_DISABILITY_TYPE,
925: x_contact_ind=>NVL(X_CONTACT_IND,'N' ),
926: x_special_allow_cd=>X_SPECIAL_ALLOW_CD,

Line 966: insert into IGS_PE_PERS_DISABLTY (

962:
963: IF (x_mode = 'S') THEN
964: igs_sc_gen_001.set_ctx('R');
965: END IF;
966: insert into IGS_PE_PERS_DISABLTY (
967: IGS_PE_PERS_DISABLTY_ID
968: ,PERSON_ID
969: ,DISABILITY_TYPE
970: ,CONTACT_IND

Line 967: IGS_PE_PERS_DISABLTY_ID

963: IF (x_mode = 'S') THEN
964: igs_sc_gen_001.set_ctx('R');
965: END IF;
966: insert into IGS_PE_PERS_DISABLTY (
967: IGS_PE_PERS_DISABLTY_ID
968: ,PERSON_ID
969: ,DISABILITY_TYPE
970: ,CONTACT_IND
971: ,SPECIAL_ALLOW_CD

Line 1008: NEW_REFERENCES.IGS_PE_PERS_DISABLTY_ID

1004: ,LAST_UPDATE_DATE
1005: ,LAST_UPDATED_BY
1006: ,LAST_UPDATE_LOGIN
1007: ) values (
1008: NEW_REFERENCES.IGS_PE_PERS_DISABLTY_ID
1009: ,NEW_REFERENCES.PERSON_ID
1010: ,NEW_REFERENCES.DISABILITY_TYPE
1011: ,NEW_REFERENCES.CONTACT_IND
1012: ,NEW_REFERENCES.SPECIAL_ALLOW_CD

Line 1080: X_IGS_PE_PERS_DISABLTY_ID IN NUMBER,

1076: end INSERT_ROW;
1077:
1078: procedure LOCK_ROW (
1079: X_ROWID in VARCHAR2,
1080: X_IGS_PE_PERS_DISABLTY_ID IN NUMBER,
1081: x_PERSON_ID IN NUMBER,
1082: x_DISABILITY_TYPE IN VARCHAR2,
1083: x_CONTACT_IND IN VARCHAR2,
1084: x_SPECIAL_ALLOW_CD IN VARCHAR2,

Line 1129: IGS_PE_PERS_DISABLTY_ID

1125: (reverse chronological order - newest change first)
1126: ***************************************************************/
1127:
1128: cursor c1 is select
1129: IGS_PE_PERS_DISABLTY_ID
1130: , CONTACT_IND
1131: , SPECIAL_ALLOW_CD
1132: , SUPPORT_LEVEL_CD
1133: , DOCUMENTED

Line 1162: from IGS_PE_PERS_DISABLTY

1158: , END_DATE
1159: , INFO_SOURCE
1160: , INTERVIEWER_ID
1161: , INTERVIEWER_DATE
1162: from IGS_PE_PERS_DISABLTY
1163: where ROWID = X_ROWID
1164: for update nowait;
1165: tlinfo c1%rowtype;
1166: begin

Line 1264: X_IGS_PE_PERS_DISABLTY_ID IN NUMBER,

1260: return;
1261: end LOCK_ROW;
1262: Procedure UPDATE_ROW (
1263: X_ROWID in VARCHAR2,
1264: X_IGS_PE_PERS_DISABLTY_ID IN NUMBER,
1265: x_PERSON_ID IN NUMBER,
1266: x_DISABILITY_TYPE IN VARCHAR2,
1267: x_CONTACT_IND IN VARCHAR2,
1268: x_SPECIAL_ALLOW_CD IN VARCHAR2,

Line 1337: X_IGS_PE_PERS_DISABLTY_ID => X_IGS_PE_PERS_DISABLTY_ID ,

1333: end if;
1334: Before_DML(
1335: p_action=>'UPDATE',
1336: x_rowid=>X_ROWID,
1337: X_IGS_PE_PERS_DISABLTY_ID => X_IGS_PE_PERS_DISABLTY_ID ,
1338: x_person_id=>X_PERSON_ID,
1339: x_disability_type=>X_DISABILITY_TYPE,
1340: x_special_allow_cd=>X_SPECIAL_ALLOW_CD,
1341: x_support_level_cd=>X_SUPPORT_LEVEL_CD,

Line 1378: update IGS_PE_PERS_DISABLTY set

1374: x_last_update_login=>X_LAST_UPDATE_LOGIN);
1375: IF (x_mode = 'S') THEN
1376: igs_sc_gen_001.set_ctx('R');
1377: END IF;
1378: update IGS_PE_PERS_DISABLTY set
1379: SPECIAL_ALLOW_CD = NEW_REFERENCES.SPECIAL_ALLOW_CD,
1380: SUPPORT_LEVEL_CD = NEW_REFERENCES.SUPPORT_LEVEL_CD,
1381: ATTRIBUTE_CATEGORY = NEW_REFERENCES.ATTRIBUTE_CATEGORY,
1382: ATTRIBUTE1 = NEW_REFERENCES.ATTRIBUTE1,

Line 1443: X_IGS_PE_PERS_DISABLTY_ID IN OUT NOCOPY NUMBER,

1439:
1440: end UPDATE_ROW;
1441: procedure ADD_ROW (
1442: X_ROWID in out NOCOPY VARCHAR2,
1443: X_IGS_PE_PERS_DISABLTY_ID IN OUT NOCOPY NUMBER,
1444: x_PERSON_ID IN NUMBER,
1445: x_DISABILITY_TYPE IN VARCHAR2,
1446: x_CONTACT_IND IN VARCHAR2,
1447: x_SPECIAL_ALLOW_CD IN VARCHAR2,

Line 1491: cursor c1 is select ROWID from IGS_PE_PERS_DISABLTY

1487: sraj 2000/05/05 the table structure has been changed
1488: (reverse chronological order - newest change first)
1489: ***************************************************************/
1490:
1491: cursor c1 is select ROWID from IGS_PE_PERS_DISABLTY
1492: where IGS_PE_PERS_DISABLTY_ID = X_IGS_PE_PERS_DISABLTY_ID
1493: ;
1494: begin
1495: open c1;

Line 1492: where IGS_PE_PERS_DISABLTY_ID = X_IGS_PE_PERS_DISABLTY_ID

1488: (reverse chronological order - newest change first)
1489: ***************************************************************/
1490:
1491: cursor c1 is select ROWID from IGS_PE_PERS_DISABLTY
1492: where IGS_PE_PERS_DISABLTY_ID = X_IGS_PE_PERS_DISABLTY_ID
1493: ;
1494: begin
1495: open c1;
1496: fetch c1 into X_ROWID;

Line 1501: X_IGS_PE_PERS_DISABLTY_ID,

1497: if (c1%notfound) then
1498: close c1;
1499: INSERT_ROW (
1500: X_ROWID,
1501: X_IGS_PE_PERS_DISABLTY_ID,
1502: X_PERSON_ID,
1503: X_DISABILITY_TYPE,
1504: X_CONTACT_IND,
1505: X_SPECIAL_ALLOW_CD,

Line 1544: X_IGS_PE_PERS_DISABLTY_ID,

1540: end if;
1541: close c1;
1542: UPDATE_ROW (
1543: X_ROWID,
1544: X_IGS_PE_PERS_DISABLTY_ID,
1545: X_PERSON_ID,
1546: X_DISABILITY_TYPE,
1547: X_CONTACT_IND,
1548: X_SPECIAL_ALLOW_CD,

Line 1604: delete from IGS_PE_PERS_DISABLTY

1600: );
1601: IF (x_mode = 'S') THEN
1602: igs_sc_gen_001.set_ctx('R');
1603: END IF;
1604: delete from IGS_PE_PERS_DISABLTY
1605: where ROWID = X_ROWID;
1606: if (sql%notfound) then
1607: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1608: igs_ge_msg_stack.add;

Line 1621: END igs_pe_pers_disablty_pkg;

1617: p_action => 'DELETE',
1618: x_rowid => X_ROWID
1619: );
1620: end DELETE_ROW;
1621: END igs_pe_pers_disablty_pkg;