1: PACKAGE BODY BIS_INDICATOR_RESPS_PKG AS
2: /* $Header: BISINRSB.pls 115.8 2003/08/15 22:21:42 wleung noship $ */
3:
4:
5: PROCEDURE check_security_exists
88:
89: IF ( (l_return_status1 = 'S') AND (l_return_status2 = 'S') ) THEN -- BIS_UTILITIES_PUB.put_line(p_text => ' inside load row 2 ' ) ;
90:
91: /*
92: SELECT BIS_INDICATOR_RESPS_S.nextval
93: INTO l_indicator_resp_id
94: FROM DUAL;
95: */
96:
205: BEGIN
206:
207: SELECT count(1)
208: INTO l_count
209: FROM bis_indicator_resps
210: WHERE target_level_id = p_target_level_id
211: AND responsibility_id = p_responsibility_id; -- BIS_UTILITIES_PUB.put_line(p_text => ' l_count = ' || l_count ) ;
212:
213: IF ( l_count = 0 ) THEN
353: ,x_last_update_login in number
354: )
355: IS
356:
357: CURSOR CROWID IS SELECT rowid FROM bis_indicator_resps
358: WHERE indicator_resp_id = x_indicator_resp_id;
359:
360: CURSOR CID IS SELECT bis_indicator_resps_s.nextval
361: FROM sys.dual;
356:
357: CURSOR CROWID IS SELECT rowid FROM bis_indicator_resps
358: WHERE indicator_resp_id = x_indicator_resp_id;
359:
360: CURSOR CID IS SELECT bis_indicator_resps_s.nextval
361: FROM sys.dual;
362: BEGIN
363: Open CID;
364: Fetch CID into x_indicator_resp_id;
368: end if;
369:
370: Close CID;
371:
372: INSERT INTO bis_indicator_resps (
373: indicator_resp_id
374: ,target_level_id
375: ,responsibility_id
376: ,created_by
418: IS
419:
420: CURSOR C IS
421: SELECT *
422: FROM bis_indicator_resps
423: WHERE rowid = x_rowid
424: FOR UPDATE OF indicator_resp_id NOWAIT;
425:
426: Recinfo C%ROWTYPE;
470: l_temp_msg VARCHAR2(100);
471: l_error_msg VARCHAR2(100);
472:
473: BEGIN
474: UPDATE bis_indicator_resps
475: SET
476: target_level_id = x_target_level_id
477: ,responsibility_id = x_responsibility_id
478: ,last_updated_by = x_last_updated_by
500: l_temp_msg VARCHAR2(100);
501: l_error_msg VARCHAR2(100);
502:
503: BEGIN
504: UPDATE bis_indicator_resps
505: SET
506: last_updated_by = x_last_updated_by
507: ,last_update_date = x_last_update_date
508: ,last_update_login = x_last_update_login
522: x_rowid in varchar2
523: )
524: IS
525: BEGIN
526: DELETE FROM bis_indicator_resps
527: WHERE rowid = x_rowid;
528:
529: if (SQL%NOTFOUND) then
530: RAISE NO_DATA_FOUND;
539: )
540: IS
541: CURSOR C IS
542: SELECT COUNT(1)
543: FROM bis_indicator_resps
544: WHERE target_level_id = x_target_level_id
545: AND responsibility_id = x_responsibility_id
546: AND ((x_rowid is null) OR (rowid <> x_rowid));
547:
558: END Check_Unique;
559: ----------------------------------------------------
560:
561:
562: END BIS_INDICATOR_RESPS_PKG;