[Home] [Help]
30: /* Posted records can only be deleted when doing archive and purge*/
31:
32: IF DELETING OR UPDATING THEN
33:
34: /*Moved this to the package ARP_GLOBAL, bug 3411026
35:
36: IF l_conc_program_id IS NOT NULL THEN
37: BEGIN
38: SELECT concurrent_program_name
46: l_conc_name := 'NONE';
47: END;
48: END IF; */
49:
50: l_conc_name := ARP_GLOBAL.conc_program_name;
51: /* Bug 5153036 and 5364951 changed the IF condition for conc_program name*/
52: /* 7291422 - Added CSTRCMCR to exclusion list */
53: IF NVL(l_conc_name,'NONE') not in ( 'ARPURGE' , 'ARARCPUR', 'ARGLTP',
54: 'CSTRCMCR')
70: THEN
71: IF :old.posting_control_id <> -3
72: and :old.posting_control_id <> -600 and
73: /* Bug 3146233 : added code to check for global variable g_allow_datafix */
74: NOT arp_global.g_allow_datafix THEN
75: raise delete_error;
76: END IF;
77: END IF;
78: END IF ;