eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PO_ONLINE_AUTHORING_WF_ACTIONS dependencies on PO_LOG

Line 8: PO_LOG.get_package_base('PO_ONLINE_AUTHORING_WF_ACTIONS');

4: -- Read the profile option that enables/disables the debug log
5: g_po_wf_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_WORKFLOW_ON'),'N');
6: -- The module base for this package.
7: D_PACKAGE_BASE CONSTANT VARCHAR2(50) :=
8: PO_LOG.get_package_base('PO_ONLINE_AUTHORING_WF_ACTIONS');
9:
10: -- The module base for the subprogram.
11: D_start_authoring_enabled_wf CONSTANT VARCHAR2(100) :=
12: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'start_authoring_enabled_wf');

Line 12: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'start_authoring_enabled_wf');

8: PO_LOG.get_package_base('PO_ONLINE_AUTHORING_WF_ACTIONS');
9:
10: -- The module base for the subprogram.
11: D_start_authoring_enabled_wf CONSTANT VARCHAR2(100) :=
12: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'start_authoring_enabled_wf');
13:
14: -- The module base for the subprogram.
15: D_start_changes_discarded_wf CONSTANT VARCHAR2(100) :=
16: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'start_changes_discarded_wf');

Line 16: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'start_changes_discarded_wf');

12: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'start_authoring_enabled_wf');
13:
14: -- The module base for the subprogram.
15: D_start_changes_discarded_wf CONSTANT VARCHAR2(100) :=
16: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'start_changes_discarded_wf');
17:
18: -- The module base for the subprogram.
19: D_get_wf_role_for_suppliers CONSTANT VARCHAR2(100) :=
20: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'get_wf_role_for_suppliers');

Line 20: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'get_wf_role_for_suppliers');

16: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'start_changes_discarded_wf');
17:
18: -- The module base for the subprogram.
19: D_get_wf_role_for_suppliers CONSTANT VARCHAR2(100) :=
20: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'get_wf_role_for_suppliers');
21:
22: D_get_wf_role_for_lock_owner CONSTANT VARCHAR2(100) :=
23: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'D_get_wf_role_for_lock_owner');
24:

Line 23: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'D_get_wf_role_for_lock_owner');

19: D_get_wf_role_for_suppliers CONSTANT VARCHAR2(100) :=
20: PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'get_wf_role_for_suppliers');
21:
22: D_get_wf_role_for_lock_owner CONSTANT VARCHAR2(100) :=
23: PO_LOG.get_subprogram_base(D_PACKAGE_BASE, 'D_get_wf_role_for_lock_owner');
24:
25: -- The following are local/Private procedure that support the workflow APIs:
26:
27: g_batch_size NUMBER := 2500;

Line 91: IF PO_LOG.d_proc THEN

87: d_mod CONSTANT VARCHAR2(100) := D_start_authoring_enabled_wf;
88:
89: BEGIN
90: l_progress := 10;
91: IF PO_LOG.d_proc THEN
92: PO_LOG.proc_begin(d_mod,'p_agreement_id',p_agreement_id);
93: PO_LOG.proc_begin(d_mod,'p_agreement_info',p_agreement_info);
94: PO_LOG.proc_begin(d_mod,'p_ou_name',p_ou_name);
95: PO_LOG.proc_begin(d_mod,'p_buyer_user_id',p_buyer_user_id);

Line 92: PO_LOG.proc_begin(d_mod,'p_agreement_id',p_agreement_id);

88:
89: BEGIN
90: l_progress := 10;
91: IF PO_LOG.d_proc THEN
92: PO_LOG.proc_begin(d_mod,'p_agreement_id',p_agreement_id);
93: PO_LOG.proc_begin(d_mod,'p_agreement_info',p_agreement_info);
94: PO_LOG.proc_begin(d_mod,'p_ou_name',p_ou_name);
95: PO_LOG.proc_begin(d_mod,'p_buyer_user_id',p_buyer_user_id);
96: END IF;

Line 93: PO_LOG.proc_begin(d_mod,'p_agreement_info',p_agreement_info);

89: BEGIN
90: l_progress := 10;
91: IF PO_LOG.d_proc THEN
92: PO_LOG.proc_begin(d_mod,'p_agreement_id',p_agreement_id);
93: PO_LOG.proc_begin(d_mod,'p_agreement_info',p_agreement_info);
94: PO_LOG.proc_begin(d_mod,'p_ou_name',p_ou_name);
95: PO_LOG.proc_begin(d_mod,'p_buyer_user_id',p_buyer_user_id);
96: END IF;
97:

Line 94: PO_LOG.proc_begin(d_mod,'p_ou_name',p_ou_name);

90: l_progress := 10;
91: IF PO_LOG.d_proc THEN
92: PO_LOG.proc_begin(d_mod,'p_agreement_id',p_agreement_id);
93: PO_LOG.proc_begin(d_mod,'p_agreement_info',p_agreement_info);
94: PO_LOG.proc_begin(d_mod,'p_ou_name',p_ou_name);
95: PO_LOG.proc_begin(d_mod,'p_buyer_user_id',p_buyer_user_id);
96: END IF;
97:
98: l_role_name := get_wf_role_for_suppliers(p_agreement_id, 'PA_BLANKET');

Line 95: PO_LOG.proc_begin(d_mod,'p_buyer_user_id',p_buyer_user_id);

91: IF PO_LOG.d_proc THEN
92: PO_LOG.proc_begin(d_mod,'p_agreement_id',p_agreement_id);
93: PO_LOG.proc_begin(d_mod,'p_agreement_info',p_agreement_info);
94: PO_LOG.proc_begin(d_mod,'p_ou_name',p_ou_name);
95: PO_LOG.proc_begin(d_mod,'p_buyer_user_id',p_buyer_user_id);
96: END IF;
97:
98: l_role_name := get_wf_role_for_suppliers(p_agreement_id, 'PA_BLANKET');
99: IF PO_LOG.d_stmt THEN

Line 99: IF PO_LOG.d_stmt THEN

95: PO_LOG.proc_begin(d_mod,'p_buyer_user_id',p_buyer_user_id);
96: END IF;
97:
98: l_role_name := get_wf_role_for_suppliers(p_agreement_id, 'PA_BLANKET');
99: IF PO_LOG.d_stmt THEN
100: PO_LOG.stmt(d_mod,l_progress, 'l_role_name', l_role_name);
101: END IF;
102:
103: -- Get the Buyer Name

Line 100: PO_LOG.stmt(d_mod,l_progress, 'l_role_name', l_role_name);

96: END IF;
97:
98: l_role_name := get_wf_role_for_suppliers(p_agreement_id, 'PA_BLANKET');
99: IF PO_LOG.d_stmt THEN
100: PO_LOG.stmt(d_mod,l_progress, 'l_role_name', l_role_name);
101: END IF;
102:
103: -- Get the Buyer Name
104: l_progress := 40;

Line 108: IF PO_LOG.d_stmt THEN

104: l_progress := 40;
105: PO_REQAPPROVAL_INIT1.get_user_name(p_buyer_user_id,
106: l_buyer_user_name,
107: l_buyer_display_name);
108: IF PO_LOG.d_stmt THEN
109: PO_LOG.stmt(d_mod,l_progress,'l_buyer_user_name', l_buyer_user_name);
110: PO_LOG.stmt(d_mod,l_progress,'l_buyer_display_name', l_buyer_display_name);
111: END IF;
112:

Line 109: PO_LOG.stmt(d_mod,l_progress,'l_buyer_user_name', l_buyer_user_name);

105: PO_REQAPPROVAL_INIT1.get_user_name(p_buyer_user_id,
106: l_buyer_user_name,
107: l_buyer_display_name);
108: IF PO_LOG.d_stmt THEN
109: PO_LOG.stmt(d_mod,l_progress,'l_buyer_user_name', l_buyer_user_name);
110: PO_LOG.stmt(d_mod,l_progress,'l_buyer_display_name', l_buyer_display_name);
111: END IF;
112:
113: -- Send the notification to all supplier users registered with the

Line 110: PO_LOG.stmt(d_mod,l_progress,'l_buyer_display_name', l_buyer_display_name);

106: l_buyer_user_name,
107: l_buyer_display_name);
108: IF PO_LOG.d_stmt THEN
109: PO_LOG.stmt(d_mod,l_progress,'l_buyer_user_name', l_buyer_user_name);
110: PO_LOG.stmt(d_mod,l_progress,'l_buyer_display_name', l_buyer_display_name);
111: END IF;
112:
113: -- Send the notification to all supplier users registered with the
114: -- vendor_id of the document

Line 124: IF PO_LOG.d_stmt THEN

120:
121: l_progress := 150;
122: l_item_key := to_char(p_agreement_id) || '-' || l_seq_for_item_key;
123:
124: IF PO_LOG.d_stmt THEN
125: PO_LOG.stmt(d_mod, l_progress, 'Creating Process with l_item_key', l_item_key);
126: END IF;
127:
128: -- Create the process

Line 125: PO_LOG.stmt(d_mod, l_progress, 'Creating Process with l_item_key', l_item_key);

121: l_progress := 150;
122: l_item_key := to_char(p_agreement_id) || '-' || l_seq_for_item_key;
123:
124: IF PO_LOG.d_stmt THEN
125: PO_LOG.stmt(d_mod, l_progress, 'Creating Process with l_item_key', l_item_key);
126: END IF;
127:
128: -- Create the process
129: l_progress := 200;

Line 134: IF PO_LOG.d_stmt THEN

130:
131: wf_engine.createProcess ( ItemType => l_item_type,
132: ItemKey => l_item_key,
133: Process => 'AGREEMENT_AUTHORING_ENABLED');
134: IF PO_LOG.d_stmt THEN
135: PO_LOG.stmt(d_mod,l_progress,'Process Created; Setting Attributes and Starting Process ...');
136: END IF;
137:
138: l_progress := 300;

Line 135: PO_LOG.stmt(d_mod,l_progress,'Process Created; Setting Attributes and Starting Process ...');

131: wf_engine.createProcess ( ItemType => l_item_type,
132: ItemKey => l_item_key,
133: Process => 'AGREEMENT_AUTHORING_ENABLED');
134: IF PO_LOG.d_stmt THEN
135: PO_LOG.stmt(d_mod,l_progress,'Process Created; Setting Attributes and Starting Process ...');
136: END IF;
137:
138: l_progress := 300;
139: wf_engine.SetItemAttrText ( itemtype => l_item_type,

Line 182: IF PO_LOG.d_proc THEN

178:
179: l_progress := 900;
180: wf_engine.StartProcess ( ItemType => l_item_type,
181: ItemKey => l_item_key );
182: IF PO_LOG.d_proc THEN
183: PO_LOG.stmt(d_mod,l_progress,'End of start_authoring_enabled_wf: WF Process Started.');
184: END IF;
185:
186: IF PO_LOG.d_proc THEN

Line 183: PO_LOG.stmt(d_mod,l_progress,'End of start_authoring_enabled_wf: WF Process Started.');

179: l_progress := 900;
180: wf_engine.StartProcess ( ItemType => l_item_type,
181: ItemKey => l_item_key );
182: IF PO_LOG.d_proc THEN
183: PO_LOG.stmt(d_mod,l_progress,'End of start_authoring_enabled_wf: WF Process Started.');
184: END IF;
185:
186: IF PO_LOG.d_proc THEN
187: PO_LOG.proc_end(d_mod);

Line 186: IF PO_LOG.d_proc THEN

182: IF PO_LOG.d_proc THEN
183: PO_LOG.stmt(d_mod,l_progress,'End of start_authoring_enabled_wf: WF Process Started.');
184: END IF;
185:
186: IF PO_LOG.d_proc THEN
187: PO_LOG.proc_end(d_mod);
188: END IF;
189:
190: EXCEPTION

Line 187: PO_LOG.proc_end(d_mod);

183: PO_LOG.stmt(d_mod,l_progress,'End of start_authoring_enabled_wf: WF Process Started.');
184: END IF;
185:
186: IF PO_LOG.d_proc THEN
187: PO_LOG.proc_end(d_mod);
188: END IF;
189:
190: EXCEPTION
191:

Line 256: IF PO_LOG.d_proc THEN

252: l_forward_to_role_dsp VARCHAR2(500);
253: BEGIN
254: d_position := 0;
255:
256: IF PO_LOG.d_proc THEN
257: PO_LOG.proc_begin(d_mod,'p_agreement_id',p_agreement_id);
258: END IF;
259:
260: -- bug5249393

Line 257: PO_LOG.proc_begin(d_mod,'p_agreement_id',p_agreement_id);

253: BEGIN
254: d_position := 0;
255:
256: IF PO_LOG.d_proc THEN
257: PO_LOG.proc_begin(d_mod,'p_agreement_id',p_agreement_id);
258: END IF;
259:
260: -- bug5249393
261: -- get lock owner role

Line 316: IF PO_LOG.d_proc THEN

312:
313: WF_ENGINE.StartProcess ( ItemType => c_ITEM_TYPE,
314: ItemKey => l_item_key );
315:
316: IF PO_LOG.d_proc THEN
317: PO_LOG.proc_end(d_mod,'p_agreement_id',p_agreement_id);
318: END IF;
319:
320: EXCEPTION

Line 317: PO_LOG.proc_end(d_mod,'p_agreement_id',p_agreement_id);

313: WF_ENGINE.StartProcess ( ItemType => c_ITEM_TYPE,
314: ItemKey => l_item_key );
315:
316: IF PO_LOG.d_proc THEN
317: PO_LOG.proc_end(d_mod,'p_agreement_id',p_agreement_id);
318: END IF;
319:
320: EXCEPTION
321:

Line 382: IF PO_LOG.d_proc THEN

378:
379:
380: BEGIN
381: l_progress := 100;
382: IF PO_LOG.d_proc THEN
383: PO_LOG.proc_begin(d_mod,'p_agreement_id', p_document_id );
384: PO_LOG.proc_begin(d_mod,'p_document_type', p_document_type );
385: END IF;
386:

Line 383: PO_LOG.proc_begin(d_mod,'p_agreement_id', p_document_id );

379:
380: BEGIN
381: l_progress := 100;
382: IF PO_LOG.d_proc THEN
383: PO_LOG.proc_begin(d_mod,'p_agreement_id', p_document_id );
384: PO_LOG.proc_begin(d_mod,'p_document_type', p_document_type );
385: END IF;
386:
387: -- Get the supplier user name list for a give po_header_id

Line 384: PO_LOG.proc_begin(d_mod,'p_document_type', p_document_type );

380: BEGIN
381: l_progress := 100;
382: IF PO_LOG.d_proc THEN
383: PO_LOG.proc_begin(d_mod,'p_agreement_id', p_document_id );
384: PO_LOG.proc_begin(d_mod,'p_document_type', p_document_type );
385: END IF;
386:
387: -- Get the supplier user name list for a give po_header_id
388: po_vendors_grp.get_external_userlist

Line 402: IF PO_LOG.d_stmt THEN

398: ,x_supplier_userlist_for_sql => l_namelist_for_sql
399: ,x_num_users => l_num_users
400: ,x_vendor_id => l_vendor_id);
401:
402: IF PO_LOG.d_stmt THEN
403: PO_LOG.stmt(d_mod,l_progress,'x_supplier_userlist',l_namelist );
404: PO_LOG.stmt(d_mod,l_progress,'x_num_users', l_num_users);
405: PO_LOG.stmt(d_mod,l_progress,'x_vendor_id', l_vendor_id);
406: END IF;

Line 403: PO_LOG.stmt(d_mod,l_progress,'x_supplier_userlist',l_namelist );

399: ,x_num_users => l_num_users
400: ,x_vendor_id => l_vendor_id);
401:
402: IF PO_LOG.d_stmt THEN
403: PO_LOG.stmt(d_mod,l_progress,'x_supplier_userlist',l_namelist );
404: PO_LOG.stmt(d_mod,l_progress,'x_num_users', l_num_users);
405: PO_LOG.stmt(d_mod,l_progress,'x_vendor_id', l_vendor_id);
406: END IF;
407:

Line 404: PO_LOG.stmt(d_mod,l_progress,'x_num_users', l_num_users);

400: ,x_vendor_id => l_vendor_id);
401:
402: IF PO_LOG.d_stmt THEN
403: PO_LOG.stmt(d_mod,l_progress,'x_supplier_userlist',l_namelist );
404: PO_LOG.stmt(d_mod,l_progress,'x_num_users', l_num_users);
405: PO_LOG.stmt(d_mod,l_progress,'x_vendor_id', l_vendor_id);
406: END IF;
407:
408: l_progress := 110;

Line 405: PO_LOG.stmt(d_mod,l_progress,'x_vendor_id', l_vendor_id);

401:
402: IF PO_LOG.d_stmt THEN
403: PO_LOG.stmt(d_mod,l_progress,'x_supplier_userlist',l_namelist );
404: PO_LOG.stmt(d_mod,l_progress,'x_num_users', l_num_users);
405: PO_LOG.stmt(d_mod,l_progress,'x_vendor_id', l_vendor_id);
406: END IF;
407:
408: l_progress := 110;
409:

Line 430: IF PO_LOG.d_stmt THEN

426: when others then
427: l_role_display_name:=' ';
428: end;
429: l_progress := 140;
430: IF PO_LOG.d_stmt THEN
431: PO_LOG.stmt(d_mod, l_progress, 'l_role_display_name',l_role_display_name );
432: END IF;
433:
434: -- Check for an existing role for this supplier list

Line 431: PO_LOG.stmt(d_mod, l_progress, 'l_role_display_name',l_role_display_name );

427: l_role_display_name:=' ';
428: end;
429: l_progress := 140;
430: IF PO_LOG.d_stmt THEN
431: PO_LOG.stmt(d_mod, l_progress, 'l_role_display_name',l_role_display_name );
432: END IF;
433:
434: -- Check for an existing role for this supplier list
435: l_role_name:= PO_REQAPPROVAL_INIT1.get_wf_role_for_users(l_namelist_for_sql, l_num_users);

Line 436: IF PO_LOG.d_stmt THEN

432: END IF;
433:
434: -- Check for an existing role for this supplier list
435: l_role_name:= PO_REQAPPROVAL_INIT1.get_wf_role_for_users(l_namelist_for_sql, l_num_users);
436: IF PO_LOG.d_stmt THEN
437: PO_LOG.stmt(d_mod,l_progress,'l_role_name',l_role_name );
438: END IF;
439:
440: l_progress := 150;

Line 437: PO_LOG.stmt(d_mod,l_progress,'l_role_name',l_role_name );

433:
434: -- Check for an existing role for this supplier list
435: l_role_name:= PO_REQAPPROVAL_INIT1.get_wf_role_for_users(l_namelist_for_sql, l_num_users);
436: IF PO_LOG.d_stmt THEN
437: PO_LOG.stmt(d_mod,l_progress,'l_role_name',l_role_name );
438: END IF;
439:
440: l_progress := 150;
441: -- If no role already exist for this supplier list, create one

Line 450: IF PO_LOG.d_stmt THEN

446: l_role_name := substr('ADHOC' || to_char(sysdate, 'JSSSSS')|| to_char(p_document_id) || p_document_type, 1, 30);
447:
448: l_progress := 170;
449: -- Create a role
450: IF PO_LOG.d_stmt THEN
451: PO_LOG.stmt(d_mod,'Creating l_role_name',l_role_name );
452: END IF;
453: WF_DIRECTORY.CreateAdHocRole( l_role_name, -- role_name
454: l_role_display_name , -- role_display_name

Line 451: PO_LOG.stmt(d_mod,'Creating l_role_name',l_role_name );

447:
448: l_progress := 170;
449: -- Create a role
450: IF PO_LOG.d_stmt THEN
451: PO_LOG.stmt(d_mod,'Creating l_role_name',l_role_name );
452: END IF;
453: WF_DIRECTORY.CreateAdHocRole( l_role_name, -- role_name
454: l_role_display_name , -- role_display_name
455: null, -- language

Line 464: IF PO_LOG.d_stmt THEN

460: null, -- email_address
461: null, -- fax
462: 'ACTIVE', -- status
463: null); -- expiration_date
464: IF PO_LOG.d_stmt THEN
465: PO_LOG.stmt(d_mod,l_progress,'Created l_role_name',l_role_name );
466: END IF;
467: l_progress := 180;
468: -- newly created adhoc role

Line 465: PO_LOG.stmt(d_mod,l_progress,'Created l_role_name',l_role_name );

461: null, -- fax
462: 'ACTIVE', -- status
463: null); -- expiration_date
464: IF PO_LOG.d_stmt THEN
465: PO_LOG.stmt(d_mod,l_progress,'Created l_role_name',l_role_name );
466: END IF;
467: l_progress := 180;
468: -- newly created adhoc role
469: end if; -- if (l_role_name is null )

Line 475: IF PO_LOG.d_stmt THEN

471: end if; -- if(l_namelist is null)
472:
473: END IF; -- if(l_return_status = FND_API.G_RET_STS_SUCCESS)
474:
475: IF PO_LOG.d_stmt THEN
476: PO_LOG.stmt(d_mod,l_progress, 'Returning l_role_name',l_role_name );
477: END IF;
478:
479: IF PO_LOG.d_proc THEN

Line 476: PO_LOG.stmt(d_mod,l_progress, 'Returning l_role_name',l_role_name );

472:
473: END IF; -- if(l_return_status = FND_API.G_RET_STS_SUCCESS)
474:
475: IF PO_LOG.d_stmt THEN
476: PO_LOG.stmt(d_mod,l_progress, 'Returning l_role_name',l_role_name );
477: END IF;
478:
479: IF PO_LOG.d_proc THEN
480: PO_LOG.proc_end(d_mod);

Line 479: IF PO_LOG.d_proc THEN

475: IF PO_LOG.d_stmt THEN
476: PO_LOG.stmt(d_mod,l_progress, 'Returning l_role_name',l_role_name );
477: END IF;
478:
479: IF PO_LOG.d_proc THEN
480: PO_LOG.proc_end(d_mod);
481: END IF;
482: l_progress := 200;
483: return l_role_name;

Line 480: PO_LOG.proc_end(d_mod);

476: PO_LOG.stmt(d_mod,l_progress, 'Returning l_role_name',l_role_name );
477: END IF;
478:
479: IF PO_LOG.d_proc THEN
480: PO_LOG.proc_end(d_mod);
481: END IF;
482: l_progress := 200;
483: return l_role_name;
484:

Line 546: IF PO_LOG.d_proc THEN

542: BEGIN
543:
544: d_position := 0;
545:
546: IF PO_LOG.d_proc THEN
547: PO_LOG.proc_begin(d_mod);
548: END IF;
549:
550: IF (p_lock_owner_role = PO_GLOBAL.g_role_CAT_ADMIN) THEN

Line 547: PO_LOG.proc_begin(d_mod);

543:
544: d_position := 0;
545:
546: IF PO_LOG.d_proc THEN
547: PO_LOG.proc_begin(d_mod);
548: END IF;
549:
550: IF (p_lock_owner_role = PO_GLOBAL.g_role_CAT_ADMIN) THEN
551: d_position := 10;

Line 655: IF PO_LOG.d_proc THEN

651: -- We should never come to here
652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
653: END IF;
654:
655: IF PO_LOG.d_proc THEN
656: PO_LOG.proc_end(d_mod);
657: END IF;
658:
659: EXCEPTION

Line 656: PO_LOG.proc_end(d_mod);

652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
653: END IF;
654:
655: IF PO_LOG.d_proc THEN
656: PO_LOG.proc_end(d_mod);
657: END IF;
658:
659: EXCEPTION
660: