[Home] [Help]
77: CREATED_BY,
78: object_version_number)
79: (select -1, p_process_id, parent_child_id, sysdate, G_USER_ID, G_LOGIN_ID,
80: sysdate, G_USER_ID, 1
81: from amw_proc_hierarchy_denorm
82: where process_id = p_process_id
83: and up_down_ind = 'D'
84: and hierarchy_type = 'L');
85:
120: CREATED_BY,
121: object_version_number)
122: (select -1, p_process_id, parent_child_id, sysdate, G_USER_ID, G_LOGIN_ID,
123: sysdate, G_USER_ID, 1
124: from amw_proc_hierarchy_denorm
125: where process_id = p_process_id
126: and up_down_ind = 'D'
127: and hierarchy_type = 'L');
128: end if;
133: -- process approved: update amw_process, change status to A
134: -- unlock process(es)
135: -- write into amw_approved_hierarchy
136: -- update the association_tables
137: -- update amw_proc_hierarchy_denorm table where hierarchy_type = 'A'
138: procedure approve(p_process_id in number) is
139:
140: rev_num number;
141: approv_choice varchar2(10);
144: cursor c1 (p_process_id number) is
145: /*
146: * ko .. We need to update only draft children
147: * select parent_child_id
148: from amw_proc_hierarchy_denorm
149: where process_id = p_process_id
150: and up_down_ind = 'D'
151: and hierarchy_type = 'L';
152: */
150: and up_down_ind = 'D'
151: and hierarchy_type = 'L';
152: */
153: select ah.parent_child_id
154: from amw_proc_hierarchy_denorm ah,
155: amw_process ap
156: where ah.process_id = p_process_id
157: and ah.up_down_ind = 'D'
158: and ah.hierarchy_type = 'L'
266:
267: begin
268: select 1 --parent_child_id, a.approval_status
269: into l_dummy
270: from amw_proc_hierarchy_denorm d, amw_process a
271: where d.process_id = p_process_id
272: and up_down_ind = 'D'
273: and hierarchy_type = 'L'
274: and a.process_id = d.parent_child_id
560: p_out_mesg out nocopy varchar2 ) is
561:
562: cursor process_list (pid number) is
563: select parent_child_id
564: from amw_proc_hierarchy_denorm
565: where process_id = pid
566: and up_down_ind = 'D'
567: and hierarchy_type = 'L'
568: union
756: p_out_mesg := null;
757: begin
758: select 1 --parent_child_id, a.approval_status
759: into l_dummy
760: from amw_proc_hierarchy_denorm d, amw_process a
761: where d.process_id = p_process_id
762: and up_down_ind = 'D'
763: and hierarchy_type = 'L'
764: and a.process_id = d.parent_child_id
883: p_out_mesg out nocopy varchar2) is
884:
885: cursor process_list (pid number) is
886: select parent_child_id
887: from amw_proc_hierarchy_denorm
888: where process_id = pid
889: and up_down_ind = 'D'
890: and hierarchy_type = 'L'
891: union
983: p_out_mesg out nocopy varchar2) is
984:
985: cursor process_list (pid number) is
986: select parent_child_id
987: from amw_proc_hierarchy_denorm
988: where process_id = pid
989: and up_down_ind = 'D'
990: and hierarchy_type = 'L'
991: union
1012:
1013: begin
1014: select parent_child_id
1015: into l_dummy
1016: from amw_proc_hierarchy_denorm
1017: where process_id = process_list_rec.parent_child_id
1018: and up_down_ind = 'D'
1019: and hierarchy_type = 'L'
1020: and parent_child_id not in
1054: and end_date is null)
1055: and END_DATE is null
1056: and NON_STD_CHILD_ID not in
1057: (select parent_child_id
1058: from amw_proc_hierarchy_denorm
1059: where process_id = process_list_rec.parent_child_id
1060: and up_down_ind = 'D'
1061: and hierarchy_type = 'L');
1062:
1090:
1091: begin
1092: select parent_child_id
1093: into l_dummy
1094: from amw_proc_hierarchy_denorm
1095: where process_id = p_process_id
1096: and up_down_ind = 'D'
1097: and hierarchy_type = 'L'
1098: and parent_child_id not in
1132: and end_date is null)
1133: and END_DATE is null
1134: and NON_STD_CHILD_ID not in
1135: (select parent_child_id
1136: from amw_proc_hierarchy_denorm
1137: where process_id = p_process_id
1138: and up_down_ind = 'D'
1139: and hierarchy_type = 'L');
1140:
1174: dummy2 varchar2(1000);
1175:
1176: cursor c1 (p_process_id number) is
1177: select parent_child_id
1178: from amw_proc_hierarchy_denorm
1179: where process_id = p_process_id
1180: and up_down_ind = 'D'
1181: and hierarchy_type = 'L';
1182: c1_rec c1%rowtype;