445: v_ret NUMBER;
446: BEGIN
447: -- Update access table for this incident_id
448: v_ret := UpdateAcc
449: ( x_acc => 'ASG_INCIDENT_ACC'
450: , x_pk => 'INCIDENT_ID'
451: , x_pk_id => x_incident_id
452: , x_server_id => x_server_id
453: , x_op => x_op
1210: ( v_incident_id NUMBER
1211: )
1212: IS
1213: SELECT server_id
1214: FROM asg_incident_acc
1215: WHERE incident_id = v_incident_id;
1216:
1217: v_server_id NUMBER;
1218: BEGIN
1495: FROM cs_hz_sr_contact_points contact
1496: WHERE contact.incident_id = x_incident_id
1497: AND contact.primary_flag = 'Y'
1498: AND EXISTS (SELECT incident_id
1499: FROM asg_incident_acc acc
1500: WHERE acc.incident_id = x_incident_id
1501: );
1502:
1503: CURSOR c_server
1504: ( x_incident_id NUMBER
1505: )
1506: IS
1507: SELECT server_id
1508: FROM asg_incident_acc
1509: WHERE incident_id = x_incident_id;
1510:
1511: l_party_id NUMBER;
1512: l_server_id NUMBER;