7: return(to_char(tempId));
8: exception
9: when others then
10: rollback;
11: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
12: routineNameIn => 'getTestTransactionId',
13: exceptionNumberIn => sqlcode,
14: exceptionStringIn => sqlerrm);
15: raise;
41: return(false);
42: exception
43: when others then
44: rollback;
45: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
46: routineNameIn => 'isTestItemIdDuplicate',
47: exceptionNumberIn => sqlcode,
48: exceptionStringIn => sqlerrm);
49: raise;
51: end isTestItemIdDuplicate;
52: procedure deleteTestItems(applicationIdIn in integer,
53: transactionIdIn in varchar2,
54: itemClassIdIn in integer,
55: deleteIn in ame_util.stringList) as
56: upperLimit integer;
57: begin
58: upperLimit := deleteIn.count;
59: forall i in 1 .. upperLimit
66: commit;
67: exception
68: when others then
69: rollback;
70: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
71: routineNameIn => 'deleteTestItems',
72: exceptionNumberIn => sqlcode,
73: exceptionStringIn => sqlerrm);
74: raise;
75: end deleteTestItems;
76: procedure getAllAttributeValues(applicationIdIn in integer,
77: transactionIdIn in varchar2,
78: itemIdIn in varchar2 default null,
79: attributeIdsOut out nocopy ame_util.idList,
80: attributeNamesOut out nocopy ame_util.stringList,
81: attributeTypesOut out nocopy ame_util.stringList,
82: isMandatoryOut out nocopy ame_util.stringList,
83: attributeValues1Out out nocopy ame_util.attributeValueList,
76: procedure getAllAttributeValues(applicationIdIn in integer,
77: transactionIdIn in varchar2,
78: itemIdIn in varchar2 default null,
79: attributeIdsOut out nocopy ame_util.idList,
80: attributeNamesOut out nocopy ame_util.stringList,
81: attributeTypesOut out nocopy ame_util.stringList,
82: isMandatoryOut out nocopy ame_util.stringList,
83: attributeValues1Out out nocopy ame_util.attributeValueList,
84: attributeValues2Out out nocopy ame_util.attributeValueList,
77: transactionIdIn in varchar2,
78: itemIdIn in varchar2 default null,
79: attributeIdsOut out nocopy ame_util.idList,
80: attributeNamesOut out nocopy ame_util.stringList,
81: attributeTypesOut out nocopy ame_util.stringList,
82: isMandatoryOut out nocopy ame_util.stringList,
83: attributeValues1Out out nocopy ame_util.attributeValueList,
84: attributeValues2Out out nocopy ame_util.attributeValueList,
85: attributeValues3Out out nocopy ame_util.attributeValueList) as
78: itemIdIn in varchar2 default null,
79: attributeIdsOut out nocopy ame_util.idList,
80: attributeNamesOut out nocopy ame_util.stringList,
81: attributeTypesOut out nocopy ame_util.stringList,
82: isMandatoryOut out nocopy ame_util.stringList,
83: attributeValues1Out out nocopy ame_util.attributeValueList,
84: attributeValues2Out out nocopy ame_util.attributeValueList,
85: attributeValues3Out out nocopy ame_util.attributeValueList) as
86: cursor attValueCursor(applicationIdIn in integer,
79: attributeIdsOut out nocopy ame_util.idList,
80: attributeNamesOut out nocopy ame_util.stringList,
81: attributeTypesOut out nocopy ame_util.stringList,
82: isMandatoryOut out nocopy ame_util.stringList,
83: attributeValues1Out out nocopy ame_util.attributeValueList,
84: attributeValues2Out out nocopy ame_util.attributeValueList,
85: attributeValues3Out out nocopy ame_util.attributeValueList) as
86: cursor attValueCursor(applicationIdIn in integer,
87: transactionIdIn in varchar2,
80: attributeNamesOut out nocopy ame_util.stringList,
81: attributeTypesOut out nocopy ame_util.stringList,
82: isMandatoryOut out nocopy ame_util.stringList,
83: attributeValues1Out out nocopy ame_util.attributeValueList,
84: attributeValues2Out out nocopy ame_util.attributeValueList,
85: attributeValues3Out out nocopy ame_util.attributeValueList) as
86: cursor attValueCursor(applicationIdIn in integer,
87: transactionIdIn in varchar2,
88: itemIdIn in varchar2) is
81: attributeTypesOut out nocopy ame_util.stringList,
82: isMandatoryOut out nocopy ame_util.stringList,
83: attributeValues1Out out nocopy ame_util.attributeValueList,
84: attributeValues2Out out nocopy ame_util.attributeValueList,
85: attributeValues3Out out nocopy ame_util.attributeValueList) as
86: cursor attValueCursor(applicationIdIn in integer,
87: transactionIdIn in varchar2,
88: itemIdIn in varchar2) is
89: select
116: attributeValues2Out(outputIndex) := tempAttValue.attribute_value_2;
117: attributeValues3Out(outputIndex) := tempAttValue.attribute_value_3;
118: end loop;
119: if(outputIndex = 0) then
120: attributeIdsOut := ame_util.emptyIdList;
121: attributeNamesOut := ame_util.emptyStringList;
122: attributeTypesOut := ame_util.emptyStringList;
123: isMandatoryOut := ame_util.emptyStringList;
124: attributeValues1Out := ame_util.emptyAttributeValueList;
117: attributeValues3Out(outputIndex) := tempAttValue.attribute_value_3;
118: end loop;
119: if(outputIndex = 0) then
120: attributeIdsOut := ame_util.emptyIdList;
121: attributeNamesOut := ame_util.emptyStringList;
122: attributeTypesOut := ame_util.emptyStringList;
123: isMandatoryOut := ame_util.emptyStringList;
124: attributeValues1Out := ame_util.emptyAttributeValueList;
125: attributeValues2Out := ame_util.emptyAttributeValueList;
118: end loop;
119: if(outputIndex = 0) then
120: attributeIdsOut := ame_util.emptyIdList;
121: attributeNamesOut := ame_util.emptyStringList;
122: attributeTypesOut := ame_util.emptyStringList;
123: isMandatoryOut := ame_util.emptyStringList;
124: attributeValues1Out := ame_util.emptyAttributeValueList;
125: attributeValues2Out := ame_util.emptyAttributeValueList;
126: attributeValues3Out := ame_util.emptyAttributeValueList;
119: if(outputIndex = 0) then
120: attributeIdsOut := ame_util.emptyIdList;
121: attributeNamesOut := ame_util.emptyStringList;
122: attributeTypesOut := ame_util.emptyStringList;
123: isMandatoryOut := ame_util.emptyStringList;
124: attributeValues1Out := ame_util.emptyAttributeValueList;
125: attributeValues2Out := ame_util.emptyAttributeValueList;
126: attributeValues3Out := ame_util.emptyAttributeValueList;
127: end if;
120: attributeIdsOut := ame_util.emptyIdList;
121: attributeNamesOut := ame_util.emptyStringList;
122: attributeTypesOut := ame_util.emptyStringList;
123: isMandatoryOut := ame_util.emptyStringList;
124: attributeValues1Out := ame_util.emptyAttributeValueList;
125: attributeValues2Out := ame_util.emptyAttributeValueList;
126: attributeValues3Out := ame_util.emptyAttributeValueList;
127: end if;
128: exception
121: attributeNamesOut := ame_util.emptyStringList;
122: attributeTypesOut := ame_util.emptyStringList;
123: isMandatoryOut := ame_util.emptyStringList;
124: attributeValues1Out := ame_util.emptyAttributeValueList;
125: attributeValues2Out := ame_util.emptyAttributeValueList;
126: attributeValues3Out := ame_util.emptyAttributeValueList;
127: end if;
128: exception
129: when others then
122: attributeTypesOut := ame_util.emptyStringList;
123: isMandatoryOut := ame_util.emptyStringList;
124: attributeValues1Out := ame_util.emptyAttributeValueList;
125: attributeValues2Out := ame_util.emptyAttributeValueList;
126: attributeValues3Out := ame_util.emptyAttributeValueList;
127: end if;
128: exception
129: when others then
130: rollback;
127: end if;
128: exception
129: when others then
130: rollback;
131: attributeIdsOut := ame_util.emptyIdList;
132: attributeNamesOut := ame_util.emptyStringList;
133: attributeTypesOut := ame_util.emptyStringList;
134: isMandatoryOut := ame_util.emptyStringList;
135: attributeValues1Out := ame_util.emptyAttributeValueList;
128: exception
129: when others then
130: rollback;
131: attributeIdsOut := ame_util.emptyIdList;
132: attributeNamesOut := ame_util.emptyStringList;
133: attributeTypesOut := ame_util.emptyStringList;
134: isMandatoryOut := ame_util.emptyStringList;
135: attributeValues1Out := ame_util.emptyAttributeValueList;
136: attributeValues2Out := ame_util.emptyAttributeValueList;
129: when others then
130: rollback;
131: attributeIdsOut := ame_util.emptyIdList;
132: attributeNamesOut := ame_util.emptyStringList;
133: attributeTypesOut := ame_util.emptyStringList;
134: isMandatoryOut := ame_util.emptyStringList;
135: attributeValues1Out := ame_util.emptyAttributeValueList;
136: attributeValues2Out := ame_util.emptyAttributeValueList;
137: attributeValues3Out := ame_util.emptyAttributeValueList;
130: rollback;
131: attributeIdsOut := ame_util.emptyIdList;
132: attributeNamesOut := ame_util.emptyStringList;
133: attributeTypesOut := ame_util.emptyStringList;
134: isMandatoryOut := ame_util.emptyStringList;
135: attributeValues1Out := ame_util.emptyAttributeValueList;
136: attributeValues2Out := ame_util.emptyAttributeValueList;
137: attributeValues3Out := ame_util.emptyAttributeValueList;
138: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
131: attributeIdsOut := ame_util.emptyIdList;
132: attributeNamesOut := ame_util.emptyStringList;
133: attributeTypesOut := ame_util.emptyStringList;
134: isMandatoryOut := ame_util.emptyStringList;
135: attributeValues1Out := ame_util.emptyAttributeValueList;
136: attributeValues2Out := ame_util.emptyAttributeValueList;
137: attributeValues3Out := ame_util.emptyAttributeValueList;
138: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
139: routineNameIn => 'getAllAttributeValues',
132: attributeNamesOut := ame_util.emptyStringList;
133: attributeTypesOut := ame_util.emptyStringList;
134: isMandatoryOut := ame_util.emptyStringList;
135: attributeValues1Out := ame_util.emptyAttributeValueList;
136: attributeValues2Out := ame_util.emptyAttributeValueList;
137: attributeValues3Out := ame_util.emptyAttributeValueList;
138: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
139: routineNameIn => 'getAllAttributeValues',
140: exceptionNumberIn => sqlcode,
133: attributeTypesOut := ame_util.emptyStringList;
134: isMandatoryOut := ame_util.emptyStringList;
135: attributeValues1Out := ame_util.emptyAttributeValueList;
136: attributeValues2Out := ame_util.emptyAttributeValueList;
137: attributeValues3Out := ame_util.emptyAttributeValueList;
138: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
139: routineNameIn => 'getAllAttributeValues',
140: exceptionNumberIn => sqlcode,
141: exceptionStringIn => sqlerrm);
134: isMandatoryOut := ame_util.emptyStringList;
135: attributeValues1Out := ame_util.emptyAttributeValueList;
136: attributeValues2Out := ame_util.emptyAttributeValueList;
137: attributeValues3Out := ame_util.emptyAttributeValueList;
138: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
139: routineNameIn => 'getAllAttributeValues',
140: exceptionNumberIn => sqlcode,
141: exceptionStringIn => sqlerrm);
142: raise;
144: procedure getAllAttributeValues2(applicationIdIn in integer,
145: transactionIdIn in varchar2,
146: itemClassIdIn in integer,
147: itemIdIn in varchar2 default null,
148: attributeIdsOut out nocopy ame_util.idList,
149: attributeNamesOut out nocopy ame_util.stringList,
150: attributeTypesOut out nocopy ame_util.stringList,
151: isMandatoryOut out nocopy ame_util.stringList,
152: attributeValues1Out out nocopy ame_util.attributeValueList,
145: transactionIdIn in varchar2,
146: itemClassIdIn in integer,
147: itemIdIn in varchar2 default null,
148: attributeIdsOut out nocopy ame_util.idList,
149: attributeNamesOut out nocopy ame_util.stringList,
150: attributeTypesOut out nocopy ame_util.stringList,
151: isMandatoryOut out nocopy ame_util.stringList,
152: attributeValues1Out out nocopy ame_util.attributeValueList,
153: attributeValues2Out out nocopy ame_util.attributeValueList,
146: itemClassIdIn in integer,
147: itemIdIn in varchar2 default null,
148: attributeIdsOut out nocopy ame_util.idList,
149: attributeNamesOut out nocopy ame_util.stringList,
150: attributeTypesOut out nocopy ame_util.stringList,
151: isMandatoryOut out nocopy ame_util.stringList,
152: attributeValues1Out out nocopy ame_util.attributeValueList,
153: attributeValues2Out out nocopy ame_util.attributeValueList,
154: attributeValues3Out out nocopy ame_util.attributeValueList) as
147: itemIdIn in varchar2 default null,
148: attributeIdsOut out nocopy ame_util.idList,
149: attributeNamesOut out nocopy ame_util.stringList,
150: attributeTypesOut out nocopy ame_util.stringList,
151: isMandatoryOut out nocopy ame_util.stringList,
152: attributeValues1Out out nocopy ame_util.attributeValueList,
153: attributeValues2Out out nocopy ame_util.attributeValueList,
154: attributeValues3Out out nocopy ame_util.attributeValueList) as
155: cursor attValueCursor(applicationIdIn in integer,
148: attributeIdsOut out nocopy ame_util.idList,
149: attributeNamesOut out nocopy ame_util.stringList,
150: attributeTypesOut out nocopy ame_util.stringList,
151: isMandatoryOut out nocopy ame_util.stringList,
152: attributeValues1Out out nocopy ame_util.attributeValueList,
153: attributeValues2Out out nocopy ame_util.attributeValueList,
154: attributeValues3Out out nocopy ame_util.attributeValueList) as
155: cursor attValueCursor(applicationIdIn in integer,
156: transactionIdIn in varchar2,
149: attributeNamesOut out nocopy ame_util.stringList,
150: attributeTypesOut out nocopy ame_util.stringList,
151: isMandatoryOut out nocopy ame_util.stringList,
152: attributeValues1Out out nocopy ame_util.attributeValueList,
153: attributeValues2Out out nocopy ame_util.attributeValueList,
154: attributeValues3Out out nocopy ame_util.attributeValueList) as
155: cursor attValueCursor(applicationIdIn in integer,
156: transactionIdIn in varchar2,
157: itemClassIdIn in integer,
150: attributeTypesOut out nocopy ame_util.stringList,
151: isMandatoryOut out nocopy ame_util.stringList,
152: attributeValues1Out out nocopy ame_util.attributeValueList,
153: attributeValues2Out out nocopy ame_util.attributeValueList,
154: attributeValues3Out out nocopy ame_util.attributeValueList) as
155: cursor attValueCursor(applicationIdIn in integer,
156: transactionIdIn in varchar2,
157: itemClassIdIn in integer,
158: itemIdIn in varchar2) is
188: attributeValues2Out(outputIndex) := tempAttValue.attribute_value_2;
189: attributeValues3Out(outputIndex) := tempAttValue.attribute_value_3;
190: end loop;
191: if(outputIndex = 0) then
192: attributeIdsOut := ame_util.emptyIdList;
193: attributeNamesOut := ame_util.emptyStringList;
194: attributeTypesOut := ame_util.emptyStringList;
195: isMandatoryOut := ame_util.emptyStringList;
196: attributeValues1Out := ame_util.emptyAttributeValueList;
189: attributeValues3Out(outputIndex) := tempAttValue.attribute_value_3;
190: end loop;
191: if(outputIndex = 0) then
192: attributeIdsOut := ame_util.emptyIdList;
193: attributeNamesOut := ame_util.emptyStringList;
194: attributeTypesOut := ame_util.emptyStringList;
195: isMandatoryOut := ame_util.emptyStringList;
196: attributeValues1Out := ame_util.emptyAttributeValueList;
197: attributeValues2Out := ame_util.emptyAttributeValueList;
190: end loop;
191: if(outputIndex = 0) then
192: attributeIdsOut := ame_util.emptyIdList;
193: attributeNamesOut := ame_util.emptyStringList;
194: attributeTypesOut := ame_util.emptyStringList;
195: isMandatoryOut := ame_util.emptyStringList;
196: attributeValues1Out := ame_util.emptyAttributeValueList;
197: attributeValues2Out := ame_util.emptyAttributeValueList;
198: attributeValues3Out := ame_util.emptyAttributeValueList;
191: if(outputIndex = 0) then
192: attributeIdsOut := ame_util.emptyIdList;
193: attributeNamesOut := ame_util.emptyStringList;
194: attributeTypesOut := ame_util.emptyStringList;
195: isMandatoryOut := ame_util.emptyStringList;
196: attributeValues1Out := ame_util.emptyAttributeValueList;
197: attributeValues2Out := ame_util.emptyAttributeValueList;
198: attributeValues3Out := ame_util.emptyAttributeValueList;
199: end if;
192: attributeIdsOut := ame_util.emptyIdList;
193: attributeNamesOut := ame_util.emptyStringList;
194: attributeTypesOut := ame_util.emptyStringList;
195: isMandatoryOut := ame_util.emptyStringList;
196: attributeValues1Out := ame_util.emptyAttributeValueList;
197: attributeValues2Out := ame_util.emptyAttributeValueList;
198: attributeValues3Out := ame_util.emptyAttributeValueList;
199: end if;
200: exception
193: attributeNamesOut := ame_util.emptyStringList;
194: attributeTypesOut := ame_util.emptyStringList;
195: isMandatoryOut := ame_util.emptyStringList;
196: attributeValues1Out := ame_util.emptyAttributeValueList;
197: attributeValues2Out := ame_util.emptyAttributeValueList;
198: attributeValues3Out := ame_util.emptyAttributeValueList;
199: end if;
200: exception
201: when others then
194: attributeTypesOut := ame_util.emptyStringList;
195: isMandatoryOut := ame_util.emptyStringList;
196: attributeValues1Out := ame_util.emptyAttributeValueList;
197: attributeValues2Out := ame_util.emptyAttributeValueList;
198: attributeValues3Out := ame_util.emptyAttributeValueList;
199: end if;
200: exception
201: when others then
202: rollback;
199: end if;
200: exception
201: when others then
202: rollback;
203: attributeIdsOut := ame_util.emptyIdList;
204: attributeNamesOut := ame_util.emptyStringList;
205: attributeTypesOut := ame_util.emptyStringList;
206: isMandatoryOut := ame_util.emptyStringList;
207: attributeValues1Out := ame_util.emptyAttributeValueList;
200: exception
201: when others then
202: rollback;
203: attributeIdsOut := ame_util.emptyIdList;
204: attributeNamesOut := ame_util.emptyStringList;
205: attributeTypesOut := ame_util.emptyStringList;
206: isMandatoryOut := ame_util.emptyStringList;
207: attributeValues1Out := ame_util.emptyAttributeValueList;
208: attributeValues2Out := ame_util.emptyAttributeValueList;
201: when others then
202: rollback;
203: attributeIdsOut := ame_util.emptyIdList;
204: attributeNamesOut := ame_util.emptyStringList;
205: attributeTypesOut := ame_util.emptyStringList;
206: isMandatoryOut := ame_util.emptyStringList;
207: attributeValues1Out := ame_util.emptyAttributeValueList;
208: attributeValues2Out := ame_util.emptyAttributeValueList;
209: attributeValues3Out := ame_util.emptyAttributeValueList;
202: rollback;
203: attributeIdsOut := ame_util.emptyIdList;
204: attributeNamesOut := ame_util.emptyStringList;
205: attributeTypesOut := ame_util.emptyStringList;
206: isMandatoryOut := ame_util.emptyStringList;
207: attributeValues1Out := ame_util.emptyAttributeValueList;
208: attributeValues2Out := ame_util.emptyAttributeValueList;
209: attributeValues3Out := ame_util.emptyAttributeValueList;
210: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
203: attributeIdsOut := ame_util.emptyIdList;
204: attributeNamesOut := ame_util.emptyStringList;
205: attributeTypesOut := ame_util.emptyStringList;
206: isMandatoryOut := ame_util.emptyStringList;
207: attributeValues1Out := ame_util.emptyAttributeValueList;
208: attributeValues2Out := ame_util.emptyAttributeValueList;
209: attributeValues3Out := ame_util.emptyAttributeValueList;
210: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
211: routineNameIn => 'getAllAttributeValues2',
204: attributeNamesOut := ame_util.emptyStringList;
205: attributeTypesOut := ame_util.emptyStringList;
206: isMandatoryOut := ame_util.emptyStringList;
207: attributeValues1Out := ame_util.emptyAttributeValueList;
208: attributeValues2Out := ame_util.emptyAttributeValueList;
209: attributeValues3Out := ame_util.emptyAttributeValueList;
210: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
211: routineNameIn => 'getAllAttributeValues2',
212: exceptionNumberIn => sqlcode,
205: attributeTypesOut := ame_util.emptyStringList;
206: isMandatoryOut := ame_util.emptyStringList;
207: attributeValues1Out := ame_util.emptyAttributeValueList;
208: attributeValues2Out := ame_util.emptyAttributeValueList;
209: attributeValues3Out := ame_util.emptyAttributeValueList;
210: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
211: routineNameIn => 'getAllAttributeValues2',
212: exceptionNumberIn => sqlcode,
213: exceptionStringIn => sqlerrm);
206: isMandatoryOut := ame_util.emptyStringList;
207: attributeValues1Out := ame_util.emptyAttributeValueList;
208: attributeValues2Out := ame_util.emptyAttributeValueList;
209: attributeValues3Out := ame_util.emptyAttributeValueList;
210: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
211: routineNameIn => 'getAllAttributeValues2',
212: exceptionNumberIn => sqlcode,
213: exceptionStringIn => sqlerrm);
214: raise;
216: procedure getApplicableRules(applicationIdIn in integer,
217: transactionIdIn in varchar2,
218: ruleListVersionIn in integer,
219: testOrRealTransTypeIn in varchar2,
220: ruleItemClassIdsOut out nocopy ame_util.idList,
221: itemClassIdsOut out nocopy ame_util.idList,
222: itemIdsOut out nocopy ame_util.stringList,
223: ruleTypesOut out nocopy ame_util.idList,
224: ruleDescriptionsOut out nocopy ame_util.stringList,
217: transactionIdIn in varchar2,
218: ruleListVersionIn in integer,
219: testOrRealTransTypeIn in varchar2,
220: ruleItemClassIdsOut out nocopy ame_util.idList,
221: itemClassIdsOut out nocopy ame_util.idList,
222: itemIdsOut out nocopy ame_util.stringList,
223: ruleTypesOut out nocopy ame_util.idList,
224: ruleDescriptionsOut out nocopy ame_util.stringList,
225: ruleIdsOut out nocopy ame_util.idList) as
218: ruleListVersionIn in integer,
219: testOrRealTransTypeIn in varchar2,
220: ruleItemClassIdsOut out nocopy ame_util.idList,
221: itemClassIdsOut out nocopy ame_util.idList,
222: itemIdsOut out nocopy ame_util.stringList,
223: ruleTypesOut out nocopy ame_util.idList,
224: ruleDescriptionsOut out nocopy ame_util.stringList,
225: ruleIdsOut out nocopy ame_util.idList) as
226: isTestTransaction boolean;
219: testOrRealTransTypeIn in varchar2,
220: ruleItemClassIdsOut out nocopy ame_util.idList,
221: itemClassIdsOut out nocopy ame_util.idList,
222: itemIdsOut out nocopy ame_util.stringList,
223: ruleTypesOut out nocopy ame_util.idList,
224: ruleDescriptionsOut out nocopy ame_util.stringList,
225: ruleIdsOut out nocopy ame_util.idList) as
226: isTestTransaction boolean;
227: processPriorities boolean;
220: ruleItemClassIdsOut out nocopy ame_util.idList,
221: itemClassIdsOut out nocopy ame_util.idList,
222: itemIdsOut out nocopy ame_util.stringList,
223: ruleTypesOut out nocopy ame_util.idList,
224: ruleDescriptionsOut out nocopy ame_util.stringList,
225: ruleIdsOut out nocopy ame_util.idList) as
226: isTestTransaction boolean;
227: processPriorities boolean;
228: processProductionActions boolean;
221: itemClassIdsOut out nocopy ame_util.idList,
222: itemIdsOut out nocopy ame_util.stringList,
223: ruleTypesOut out nocopy ame_util.idList,
224: ruleDescriptionsOut out nocopy ame_util.stringList,
225: ruleIdsOut out nocopy ame_util.idList) as
226: isTestTransaction boolean;
227: processPriorities boolean;
228: processProductionActions boolean;
229: processProductionRules boolean;
226: isTestTransaction boolean;
227: processPriorities boolean;
228: processProductionActions boolean;
229: processProductionRules boolean;
230: tempConfigVarValue ame_util.stringType;
231: begin
232: if(ruleListVersionIn = 1) then
233: /* The returned rule list does not account for priorities, exceptions,
234: or multiple actions. */
241: /* The returned rule list accounts for priorities, exceptions, and
242: multiple actions. */
243: processPriorities := true;
244: end if;
245: if(testOrRealTransTypeIn = ame_util.testTrans) then
246: isTestTransaction := true;
247: else
248: isTestTransaction := false;
249: end if;
275: ruleDescriptionsOut => ruleDescriptionsOut);
276: exception
277: when others then
278: rollback;
279: ruleItemClassIdsOut := ame_util.emptyIdList;
280: itemClassIdsOut := ame_util.emptyIdList;
281: itemIdsOut := ame_util.emptyStringList;
282: ruleTypesOut := ame_util.emptyIdList;
283: ruleIdsOut := ame_util.emptyIdList;
276: exception
277: when others then
278: rollback;
279: ruleItemClassIdsOut := ame_util.emptyIdList;
280: itemClassIdsOut := ame_util.emptyIdList;
281: itemIdsOut := ame_util.emptyStringList;
282: ruleTypesOut := ame_util.emptyIdList;
283: ruleIdsOut := ame_util.emptyIdList;
284: ruleDescriptionsOut := ame_util.emptyStringList;
277: when others then
278: rollback;
279: ruleItemClassIdsOut := ame_util.emptyIdList;
280: itemClassIdsOut := ame_util.emptyIdList;
281: itemIdsOut := ame_util.emptyStringList;
282: ruleTypesOut := ame_util.emptyIdList;
283: ruleIdsOut := ame_util.emptyIdList;
284: ruleDescriptionsOut := ame_util.emptyStringList;
285: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
278: rollback;
279: ruleItemClassIdsOut := ame_util.emptyIdList;
280: itemClassIdsOut := ame_util.emptyIdList;
281: itemIdsOut := ame_util.emptyStringList;
282: ruleTypesOut := ame_util.emptyIdList;
283: ruleIdsOut := ame_util.emptyIdList;
284: ruleDescriptionsOut := ame_util.emptyStringList;
285: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
286: routineNameIn => 'getApplicableRules',
279: ruleItemClassIdsOut := ame_util.emptyIdList;
280: itemClassIdsOut := ame_util.emptyIdList;
281: itemIdsOut := ame_util.emptyStringList;
282: ruleTypesOut := ame_util.emptyIdList;
283: ruleIdsOut := ame_util.emptyIdList;
284: ruleDescriptionsOut := ame_util.emptyStringList;
285: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
286: routineNameIn => 'getApplicableRules',
287: exceptionNumberIn => sqlcode,
280: itemClassIdsOut := ame_util.emptyIdList;
281: itemIdsOut := ame_util.emptyStringList;
282: ruleTypesOut := ame_util.emptyIdList;
283: ruleIdsOut := ame_util.emptyIdList;
284: ruleDescriptionsOut := ame_util.emptyStringList;
285: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
286: routineNameIn => 'getApplicableRules',
287: exceptionNumberIn => sqlcode,
288: exceptionStringIn => sqlerrm);
281: itemIdsOut := ame_util.emptyStringList;
282: ruleTypesOut := ame_util.emptyIdList;
283: ruleIdsOut := ame_util.emptyIdList;
284: ruleDescriptionsOut := ame_util.emptyStringList;
285: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
286: routineNameIn => 'getApplicableRules',
287: exceptionNumberIn => sqlcode,
288: exceptionStringIn => sqlerrm);
289: raise;
291: procedure getApproverAttributes(applicationIdIn in integer,
292: transactionIdIn in varchar2,
293: itemClassIdIn in integer,
294: itemIdIn in varchar2,
295: attributeIdsOut out nocopy ame_util.IdList,
296: attributeNamesOut out nocopy ame_util.stringList,
297: approverTypeIdsOut out nocopy ame_util.idList) as
298: cursor attributeCursor(applicationIdIn in integer,
299: transactionIdIn in varchar2,
292: transactionIdIn in varchar2,
293: itemClassIdIn in integer,
294: itemIdIn in varchar2,
295: attributeIdsOut out nocopy ame_util.IdList,
296: attributeNamesOut out nocopy ame_util.stringList,
297: approverTypeIdsOut out nocopy ame_util.idList) as
298: cursor attributeCursor(applicationIdIn in integer,
299: transactionIdIn in varchar2,
300: itemClassIdIn in integer,
293: itemClassIdIn in integer,
294: itemIdIn in varchar2,
295: attributeIdsOut out nocopy ame_util.IdList,
296: attributeNamesOut out nocopy ame_util.stringList,
297: approverTypeIdsOut out nocopy ame_util.idList) as
298: cursor attributeCursor(applicationIdIn in integer,
299: transactionIdIn in varchar2,
300: itemClassIdIn in integer,
301: itemIdIn in varchar2) is
312: ame_test_trans_att_values.application_id = applicationIdIn and
313: ame_test_trans_att_values.transaction_id = transactionIdIn and
314: ame_attributes.approver_type_id is not null and
315: sysdate between ame_attributes.start_date and
316: nvl(ame_attributes.end_date - ame_util.oneSecond, sysdate)
317: order by ame_attributes.name;
318: begin
319: open attributeCursor(applicationIdIn => applicationIdIn,
320: transactionIdIn => transactionIdIn,
327: approverTypeIdsOut;
328: close attributeCursor;
329: exception
330: when others then
331: attributeIdsOut := ame_util.emptyIdList;
332: attributeNamesOut := ame_util.emptyStringList;
333: approverTypeIdsOut := ame_util.emptyIdList;
334: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
335: routineNameIn => 'getApproverAttributes',
328: close attributeCursor;
329: exception
330: when others then
331: attributeIdsOut := ame_util.emptyIdList;
332: attributeNamesOut := ame_util.emptyStringList;
333: approverTypeIdsOut := ame_util.emptyIdList;
334: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
335: routineNameIn => 'getApproverAttributes',
336: exceptionNumberIn => sqlcode,
329: exception
330: when others then
331: attributeIdsOut := ame_util.emptyIdList;
332: attributeNamesOut := ame_util.emptyStringList;
333: approverTypeIdsOut := ame_util.emptyIdList;
334: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
335: routineNameIn => 'getApproverAttributes',
336: exceptionNumberIn => sqlcode,
337: exceptionStringIn => sqlerrm);
330: when others then
331: attributeIdsOut := ame_util.emptyIdList;
332: attributeNamesOut := ame_util.emptyStringList;
333: approverTypeIdsOut := ame_util.emptyIdList;
334: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
335: routineNameIn => 'getApproverAttributes',
336: exceptionNumberIn => sqlcode,
337: exceptionStringIn => sqlerrm);
338: raise;
340: procedure getApproverList(applicationIdIn in integer,
341: transactionIdIn in varchar2,
342: testOrRealTransTypeIn in varchar2,
343: approverListStageIn in integer,
344: approverListOut out nocopy ame_util.approversTable2,
345: productionIndexesOut out nocopy ame_util.idList,
346: variableNamesOut out nocopy ame_util.stringList,
347: variableValuesOut out nocopy ame_util.stringList,
348: doRepeatSubstitutionsOut out nocopy varchar2) as
341: transactionIdIn in varchar2,
342: testOrRealTransTypeIn in varchar2,
343: approverListStageIn in integer,
344: approverListOut out nocopy ame_util.approversTable2,
345: productionIndexesOut out nocopy ame_util.idList,
346: variableNamesOut out nocopy ame_util.stringList,
347: variableValuesOut out nocopy ame_util.stringList,
348: doRepeatSubstitutionsOut out nocopy varchar2) as
349: errorCode integer;
342: testOrRealTransTypeIn in varchar2,
343: approverListStageIn in integer,
344: approverListOut out nocopy ame_util.approversTable2,
345: productionIndexesOut out nocopy ame_util.idList,
346: variableNamesOut out nocopy ame_util.stringList,
347: variableValuesOut out nocopy ame_util.stringList,
348: doRepeatSubstitutionsOut out nocopy varchar2) as
349: errorCode integer;
350: errorMessage ame_util.longestStringType;
343: approverListStageIn in integer,
344: approverListOut out nocopy ame_util.approversTable2,
345: productionIndexesOut out nocopy ame_util.idList,
346: variableNamesOut out nocopy ame_util.stringList,
347: variableValuesOut out nocopy ame_util.stringList,
348: doRepeatSubstitutionsOut out nocopy varchar2) as
349: errorCode integer;
350: errorMessage ame_util.longestStringType;
351: isTestTransaction boolean;
346: variableNamesOut out nocopy ame_util.stringList,
347: variableValuesOut out nocopy ame_util.stringList,
348: doRepeatSubstitutionsOut out nocopy varchar2) as
349: errorCode integer;
350: errorMessage ame_util.longestStringType;
351: isTestTransaction boolean;
352: processProductionActions boolean;
353: processProductionRules boolean;
354: stageException exception;
351: isTestTransaction boolean;
352: processProductionActions boolean;
353: processProductionRules boolean;
354: stageException exception;
355: tempConfigVarValue ame_util.stringType;
356: begin
357: if(approverListStageIn < 1 or approverListStageIn > 6) then
358: raise stageException;
359: end if;
356: begin
357: if(approverListStageIn < 1 or approverListStageIn > 6) then
358: raise stageException;
359: end if;
360: ame_engine.getTestTransApprovers(isTestTransactionIn => testOrRealTransTypeIn = ame_util.testTrans,
361: transactionIdIn => transactionIdIn,
362: ameApplicationIdIn => applicationIdIn,
363: approverListStageIn => approverListStageIn,
364: approversOut => approverListOut,
364: approversOut => approverListOut,
365: productionIndexesOut => productionIndexesOut,
366: variableNamesOut => variableNamesOut,
367: variableValuesOut => variableValuesOut);
368: doRepeatSubstitutionsOut := ame_engine.getHeaderAttValue2(attributeNameIn=> ame_util.repeatSubstitutionsAttribute);
369: exception
370: when stageException then
371: errorCode := -20001;
372: errorMessage :=
369: exception
370: when stageException then
371: errorCode := -20001;
372: errorMessage :=
373: ame_util.getMessage(applicationShortNameIn => 'PER',
374: messageNameIn =>'AME_400452_APPR_STAGE_INT');
375: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
376: routineNameIn => 'getApproverList',
377: exceptionNumberIn => errorCode,
371: errorCode := -20001;
372: errorMessage :=
373: ame_util.getMessage(applicationShortNameIn => 'PER',
374: messageNameIn =>'AME_400452_APPR_STAGE_INT');
375: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
376: routineNameIn => 'getApproverList',
377: exceptionNumberIn => errorCode,
378: exceptionStringIn => errorMessage);
379: raise_application_error(errorCode,
378: exceptionStringIn => errorMessage);
379: raise_application_error(errorCode,
380: errorMessage);
381: when others then
382: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
383: routineNameIn => 'getApproverList',
384: exceptionNumberIn => sqlcode,
385: exceptionStringIn => sqlerrm);
386: approverListOut := ame_util.emptyApproversTable2;
382: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
383: routineNameIn => 'getApproverList',
384: exceptionNumberIn => sqlcode,
385: exceptionStringIn => sqlerrm);
386: approverListOut := ame_util.emptyApproversTable2;
387: raise;
388: end getApproverList;
389: procedure getItemAttributeValues(applicationIdIn in integer,
390: transactionIdIn in varchar2,
390: transactionIdIn in varchar2,
391: itemClassIdIn in integer,
392: itemIdIn in varchar2,
393: testOrRealTransTypeIn in varchar2,
394: attributeNamesOut out nocopy ame_util.stringList,
395: attributeTypesOut out nocopy ame_util.stringList,
396: attributeValuesOut1 out nocopy ame_util.attributeValueList,
397: attributeValuesOut2 out nocopy ame_util.attributeValueList,
398: attributeValuesOut3 out nocopy ame_util.attributeValueList) as
391: itemClassIdIn in integer,
392: itemIdIn in varchar2,
393: testOrRealTransTypeIn in varchar2,
394: attributeNamesOut out nocopy ame_util.stringList,
395: attributeTypesOut out nocopy ame_util.stringList,
396: attributeValuesOut1 out nocopy ame_util.attributeValueList,
397: attributeValuesOut2 out nocopy ame_util.attributeValueList,
398: attributeValuesOut3 out nocopy ame_util.attributeValueList) as
399: attributeIds ame_util.idList;
392: itemIdIn in varchar2,
393: testOrRealTransTypeIn in varchar2,
394: attributeNamesOut out nocopy ame_util.stringList,
395: attributeTypesOut out nocopy ame_util.stringList,
396: attributeValuesOut1 out nocopy ame_util.attributeValueList,
397: attributeValuesOut2 out nocopy ame_util.attributeValueList,
398: attributeValuesOut3 out nocopy ame_util.attributeValueList) as
399: attributeIds ame_util.idList;
400: attributeNames ame_util.stringList;
393: testOrRealTransTypeIn in varchar2,
394: attributeNamesOut out nocopy ame_util.stringList,
395: attributeTypesOut out nocopy ame_util.stringList,
396: attributeValuesOut1 out nocopy ame_util.attributeValueList,
397: attributeValuesOut2 out nocopy ame_util.attributeValueList,
398: attributeValuesOut3 out nocopy ame_util.attributeValueList) as
399: attributeIds ame_util.idList;
400: attributeNames ame_util.stringList;
401: attributeTypes ame_util.stringList;
394: attributeNamesOut out nocopy ame_util.stringList,
395: attributeTypesOut out nocopy ame_util.stringList,
396: attributeValuesOut1 out nocopy ame_util.attributeValueList,
397: attributeValuesOut2 out nocopy ame_util.attributeValueList,
398: attributeValuesOut3 out nocopy ame_util.attributeValueList) as
399: attributeIds ame_util.idList;
400: attributeNames ame_util.stringList;
401: attributeTypes ame_util.stringList;
402: isTestTransaction boolean;
395: attributeTypesOut out nocopy ame_util.stringList,
396: attributeValuesOut1 out nocopy ame_util.attributeValueList,
397: attributeValuesOut2 out nocopy ame_util.attributeValueList,
398: attributeValuesOut3 out nocopy ame_util.attributeValueList) as
399: attributeIds ame_util.idList;
400: attributeNames ame_util.stringList;
401: attributeTypes ame_util.stringList;
402: isTestTransaction boolean;
403: outputIndex integer;
396: attributeValuesOut1 out nocopy ame_util.attributeValueList,
397: attributeValuesOut2 out nocopy ame_util.attributeValueList,
398: attributeValuesOut3 out nocopy ame_util.attributeValueList) as
399: attributeIds ame_util.idList;
400: attributeNames ame_util.stringList;
401: attributeTypes ame_util.stringList;
402: isTestTransaction boolean;
403: outputIndex integer;
404: begin
397: attributeValuesOut2 out nocopy ame_util.attributeValueList,
398: attributeValuesOut3 out nocopy ame_util.attributeValueList) as
399: attributeIds ame_util.idList;
400: attributeNames ame_util.stringList;
401: attributeTypes ame_util.stringList;
402: isTestTransaction boolean;
403: outputIndex integer;
404: begin
405: ame_attribute_pkg.getSubordinateICAttributes2(applicationIdIn => applicationIdIn,
407: attributeIdsOut => attributeIds,
408: attributeNamesOut => attributeNames,
409: attributeTypesOut => attributeTypes);
410: outputIndex := 0; /* pre-increment */
411: if(testOrRealTransTypeIn = ame_util.testTrans) then
412: isTestTransaction := true;
413: else
414: isTestTransaction := false;
415: end if;
444: attributeValue3Out => attributeValuesOut3(outputIndex));
445: end loop;
446: exception
447: when others then
448: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
449: routineNameIn => 'getItemAttributeValues',
450: exceptionNumberIn => sqlcode,
451: exceptionStringIn => sqlerrm);
452: attributeNamesOut := ame_util.emptyStringList;
448: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
449: routineNameIn => 'getItemAttributeValues',
450: exceptionNumberIn => sqlcode,
451: exceptionStringIn => sqlerrm);
452: attributeNamesOut := ame_util.emptyStringList;
453: attributeValuesOut1 := ame_util.emptyAttributeValueList;
454: attributeValuesOut2 := ame_util.emptyAttributeValueList;
455: attributeValuesOut3 := ame_util.emptyAttributeValueList;
456: raise;
449: routineNameIn => 'getItemAttributeValues',
450: exceptionNumberIn => sqlcode,
451: exceptionStringIn => sqlerrm);
452: attributeNamesOut := ame_util.emptyStringList;
453: attributeValuesOut1 := ame_util.emptyAttributeValueList;
454: attributeValuesOut2 := ame_util.emptyAttributeValueList;
455: attributeValuesOut3 := ame_util.emptyAttributeValueList;
456: raise;
457: end getItemAttributeValues;
450: exceptionNumberIn => sqlcode,
451: exceptionStringIn => sqlerrm);
452: attributeNamesOut := ame_util.emptyStringList;
453: attributeValuesOut1 := ame_util.emptyAttributeValueList;
454: attributeValuesOut2 := ame_util.emptyAttributeValueList;
455: attributeValuesOut3 := ame_util.emptyAttributeValueList;
456: raise;
457: end getItemAttributeValues;
458: procedure getItemIds(applicationIdIn in integer,
451: exceptionStringIn => sqlerrm);
452: attributeNamesOut := ame_util.emptyStringList;
453: attributeValuesOut1 := ame_util.emptyAttributeValueList;
454: attributeValuesOut2 := ame_util.emptyAttributeValueList;
455: attributeValuesOut3 := ame_util.emptyAttributeValueList;
456: raise;
457: end getItemAttributeValues;
458: procedure getItemIds(applicationIdIn in integer,
459: transactionIdIn in varchar2,
457: end getItemAttributeValues;
458: procedure getItemIds(applicationIdIn in integer,
459: transactionIdIn in varchar2,
460: itemClassIdIn in integer,
461: itemIdsOut out nocopy ame_util.stringList) as
462: cursor itemIdCursor(applicationIdIn in integer,
463: transactionIdIn in varchar2,
464: itemClassIdIn in integer) is
465: select distinct item_id
479: close itemIdCursor;
480: exception
481: when others then
482: rollback;
483: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
484: routineNameIn => 'getitemIds',
485: exceptionNumberIn => sqlcode,
486: exceptionStringIn => sqlerrm);
487: itemIdsOut := ame_util.emptyStringList;
483: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
484: routineNameIn => 'getitemIds',
485: exceptionNumberIn => sqlcode,
486: exceptionStringIn => sqlerrm);
487: itemIdsOut := ame_util.emptyStringList;
488: raise;
489: end getitemIds;
490: procedure getTransactionProductions(applicationIdIn in integer,
491: transactionIdIn in varchar2,
489: end getitemIds;
490: procedure getTransactionProductions(applicationIdIn in integer,
491: transactionIdIn in varchar2,
492: testOrRealTransTypeIn in varchar2,
493: variableNamesOut out nocopy ame_util.stringList,
494: variableValuesOut out nocopy ame_util.stringList) as
495: isTestTransaction boolean;
496: begin
497: if(testOrRealTransTypeIn = ame_util.testTrans) then
490: procedure getTransactionProductions(applicationIdIn in integer,
491: transactionIdIn in varchar2,
492: testOrRealTransTypeIn in varchar2,
493: variableNamesOut out nocopy ame_util.stringList,
494: variableValuesOut out nocopy ame_util.stringList) as
495: isTestTransaction boolean;
496: begin
497: if(testOrRealTransTypeIn = ame_util.testTrans) then
498: isTestTransaction := true;
493: variableNamesOut out nocopy ame_util.stringList,
494: variableValuesOut out nocopy ame_util.stringList) as
495: isTestTransaction boolean;
496: begin
497: if(testOrRealTransTypeIn = ame_util.testTrans) then
498: isTestTransaction := true;
499: else
500: isTestTransaction := false;
501: end if;
523: ame_engine.getTransVariableValues(transVariableValuesOut => variableValuesOut);
524: exception
525: when others then
526: rollback;
527: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
528: routineNameIn => 'getTransactionProductions',
529: exceptionNumberIn => sqlcode,
530: exceptionStringIn => sqlerrm);
531: variableNamesOut := ame_util.emptyStringList;
527: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
528: routineNameIn => 'getTransactionProductions',
529: exceptionNumberIn => sqlcode,
530: exceptionStringIn => sqlerrm);
531: variableNamesOut := ame_util.emptyStringList;
532: variableValuesOut := ame_util.emptyStringList;
533: raise;
534: end getTransactionProductions;
535: procedure initializeTestTrans(applicationIdIn in integer,
528: routineNameIn => 'getTransactionProductions',
529: exceptionNumberIn => sqlcode,
530: exceptionStringIn => sqlerrm);
531: variableNamesOut := ame_util.emptyStringList;
532: variableValuesOut := ame_util.emptyStringList;
533: raise;
534: end getTransactionProductions;
535: procedure initializeTestTrans(applicationIdIn in integer,
536: transactionIdIn in varchar2,
536: transactionIdIn in varchar2,
537: itemClassIdIn in integer default null,
538: isHeaderItemClassIn in boolean default true,
539: itemIdIn in varchar2 default null) as
540: attributeIds ame_util.idList;
541: attributeNames ame_util.stringList;
542: attributeTypes ame_util.stringList;
543: errorCode integer;
544: errorMessage ame_util.longestStringType;
537: itemClassIdIn in integer default null,
538: isHeaderItemClassIn in boolean default true,
539: itemIdIn in varchar2 default null) as
540: attributeIds ame_util.idList;
541: attributeNames ame_util.stringList;
542: attributeTypes ame_util.stringList;
543: errorCode integer;
544: errorMessage ame_util.longestStringType;
545: isLineItem boolean;
538: isHeaderItemClassIn in boolean default true,
539: itemIdIn in varchar2 default null) as
540: attributeIds ame_util.idList;
541: attributeNames ame_util.stringList;
542: attributeTypes ame_util.stringList;
543: errorCode integer;
544: errorMessage ame_util.longestStringType;
545: isLineItem boolean;
546: isMandatory ame_util.charType;
540: attributeIds ame_util.idList;
541: attributeNames ame_util.stringList;
542: attributeTypes ame_util.stringList;
543: errorCode integer;
544: errorMessage ame_util.longestStringType;
545: isLineItem boolean;
546: isMandatory ame_util.charType;
547: isNonHeaderAttributeItem boolean;
548: itemClassId integer;
542: attributeTypes ame_util.stringList;
543: errorCode integer;
544: errorMessage ame_util.longestStringType;
545: isLineItem boolean;
546: isMandatory ame_util.charType;
547: isNonHeaderAttributeItem boolean;
548: itemClassId integer;
549: noAttributesException exception;
550: upperLimit integer;
553: ame_attribute_pkg.getActiveHeaderAttributes(applicationIdIn => applicationIdIn,
554: attributeIdsOut => attributeIds,
555: attributeNamesOut => attributeNames);
556: itemClassId :=
557: ame_admin_pkg.getItemClassIdByName(itemClassNameIn => ame_util.headerItemClassName);
558: else
559: ame_attribute_pkg.getNonHeaderICAttributes2(applicationIdIn => applicationIdIn,
560: itemClassIdIn => itemClassIdIn,
561: attributeIdsOut => attributeIds,
566: raise noAttributesException;
567: end if;
568: upperLimit := attributeIds.count;
569: for i in 1 .. upperLimit loop
570: if(attributeNames(i) <> ame_util.workflowItemKeyAttribute and
571: attributeNames(i) <> ame_util.workflowItemTypeAttribute) then
572: attributeTypes(i) := ame_attribute_pkg.getType(attributeIdIn => attributeIds(i));
573: if(ame_attribute_pkg.isMandatory(attributeIdIn => attributeIds(i))) then
574: isMandatory := ame_util.booleanTrue;
567: end if;
568: upperLimit := attributeIds.count;
569: for i in 1 .. upperLimit loop
570: if(attributeNames(i) <> ame_util.workflowItemKeyAttribute and
571: attributeNames(i) <> ame_util.workflowItemTypeAttribute) then
572: attributeTypes(i) := ame_attribute_pkg.getType(attributeIdIn => attributeIds(i));
573: if(ame_attribute_pkg.isMandatory(attributeIdIn => attributeIds(i))) then
574: isMandatory := ame_util.booleanTrue;
575: else
570: if(attributeNames(i) <> ame_util.workflowItemKeyAttribute and
571: attributeNames(i) <> ame_util.workflowItemTypeAttribute) then
572: attributeTypes(i) := ame_attribute_pkg.getType(attributeIdIn => attributeIds(i));
573: if(ame_attribute_pkg.isMandatory(attributeIdIn => attributeIds(i))) then
574: isMandatory := ame_util.booleanTrue;
575: else
576: isMandatory := ame_util.booleanFalse;
577: end if;
578: insert into ame_test_trans_att_values(
572: attributeTypes(i) := ame_attribute_pkg.getType(attributeIdIn => attributeIds(i));
573: if(ame_attribute_pkg.isMandatory(attributeIdIn => attributeIds(i))) then
574: isMandatory := ame_util.booleanTrue;
575: else
576: isMandatory := ame_util.booleanFalse;
577: end if;
578: insert into ame_test_trans_att_values(
579: application_id,
580: transaction_id,
608: exception
609: when noAttributesException then
610: errorCode := -20001;
611: errorMessage :=
612: ame_util.getMessage(applicationShortNameIn => 'PER',
613: messageNameIn =>'AME_400443_TEST_NO_AU_EXST');
614: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
615: routineNameIn => 'initializeTestTrans',
616: exceptionNumberIn => errorCode,
610: errorCode := -20001;
611: errorMessage :=
612: ame_util.getMessage(applicationShortNameIn => 'PER',
613: messageNameIn =>'AME_400443_TEST_NO_AU_EXST');
614: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
615: routineNameIn => 'initializeTestTrans',
616: exceptionNumberIn => errorCode,
617: exceptionStringIn => errorMessage);
618: raise_application_error(errorCode,
618: raise_application_error(errorCode,
619: errorMessage);
620: when others then
621: rollback;
622: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
623: routineNameIn => 'initializeTestTrans',
624: exceptionNumberIn => sqlcode,
625: exceptionStringIn => sqlerrm);
626: raise;
627: end initializeTestTrans;
628: procedure setAllAttributeValues(applicationIdIn in integer,
629: transactionIdIn in varchar2,
630: itemClassIdIn in integer,
631: attributeIdsIn in ame_util.idList,
632: itemIdIn in varchar2 default null,
633: attributeValues1In in ame_util.attributeValueList,
634: attributeValues2In in ame_util.attributeValueList,
635: attributeValues3In in ame_util.attributeValueList) as
629: transactionIdIn in varchar2,
630: itemClassIdIn in integer,
631: attributeIdsIn in ame_util.idList,
632: itemIdIn in varchar2 default null,
633: attributeValues1In in ame_util.attributeValueList,
634: attributeValues2In in ame_util.attributeValueList,
635: attributeValues3In in ame_util.attributeValueList) as
636: attributeNames ame_util.stringList;
637: attributeTypes ame_util.stringList;
630: itemClassIdIn in integer,
631: attributeIdsIn in ame_util.idList,
632: itemIdIn in varchar2 default null,
633: attributeValues1In in ame_util.attributeValueList,
634: attributeValues2In in ame_util.attributeValueList,
635: attributeValues3In in ame_util.attributeValueList) as
636: attributeNames ame_util.stringList;
637: attributeTypes ame_util.stringList;
638: isMandatory ame_util.stringList;
631: attributeIdsIn in ame_util.idList,
632: itemIdIn in varchar2 default null,
633: attributeValues1In in ame_util.attributeValueList,
634: attributeValues2In in ame_util.attributeValueList,
635: attributeValues3In in ame_util.attributeValueList) as
636: attributeNames ame_util.stringList;
637: attributeTypes ame_util.stringList;
638: isMandatory ame_util.stringList;
639: upperLimit integer;
632: itemIdIn in varchar2 default null,
633: attributeValues1In in ame_util.attributeValueList,
634: attributeValues2In in ame_util.attributeValueList,
635: attributeValues3In in ame_util.attributeValueList) as
636: attributeNames ame_util.stringList;
637: attributeTypes ame_util.stringList;
638: isMandatory ame_util.stringList;
639: upperLimit integer;
640: begin
633: attributeValues1In in ame_util.attributeValueList,
634: attributeValues2In in ame_util.attributeValueList,
635: attributeValues3In in ame_util.attributeValueList) as
636: attributeNames ame_util.stringList;
637: attributeTypes ame_util.stringList;
638: isMandatory ame_util.stringList;
639: upperLimit integer;
640: begin
641: delete from ame_test_trans_att_values
634: attributeValues2In in ame_util.attributeValueList,
635: attributeValues3In in ame_util.attributeValueList) as
636: attributeNames ame_util.stringList;
637: attributeTypes ame_util.stringList;
638: isMandatory ame_util.stringList;
639: upperLimit integer;
640: begin
641: delete from ame_test_trans_att_values
642: where
650: for i in 1 .. upperLimit loop
651: attributeNames(i) := ame_attribute_pkg.getName(attributeIdIn => attributeIdsIn(i));
652: attributeTypes(i) := ame_attribute_pkg.getType(attributeIdIn => attributeIdsIn(i));
653: if(ame_attribute_pkg.isMandatory(attributeIdIn => attributeIdsIn(i))) then
654: isMandatory(i) := ame_util.booleanTrue;
655: else
656: isMandatory(i) := ame_util.booleanFalse;
657: end if;
658: end loop;
652: attributeTypes(i) := ame_attribute_pkg.getType(attributeIdIn => attributeIdsIn(i));
653: if(ame_attribute_pkg.isMandatory(attributeIdIn => attributeIdsIn(i))) then
654: isMandatory(i) := ame_util.booleanTrue;
655: else
656: isMandatory(i) := ame_util.booleanFalse;
657: end if;
658: end loop;
659: forall i in 1 .. upperLimit
660: insert into ame_test_trans_att_values(
688: commit;
689: exception
690: when others then
691: rollback;
692: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
693: routineNameIn => 'setAllAttributeValues',
694: exceptionNumberIn => sqlcode,
695: exceptionStringIn => sqlerrm);
696: raise;
715: item_class_id = itemClassIdIn and
716: itemIdIn = item_id;
717: commit;
718: if(ame_attribute_pkg.isMandatory(attributeIdIn => attributeIdIn)) then
719: isMandatory := ame_util.booleanTrue;
720: else
721: isMandatory := ame_util.booleanFalse;
722: end if;
723: attributeName := ame_attribute_pkg.getName(attributeIdIn => attributeIdIn);
717: commit;
718: if(ame_attribute_pkg.isMandatory(attributeIdIn => attributeIdIn)) then
719: isMandatory := ame_util.booleanTrue;
720: else
721: isMandatory := ame_util.booleanFalse;
722: end if;
723: attributeName := ame_attribute_pkg.getName(attributeIdIn => attributeIdIn);
724: attributeType := ame_attribute_pkg.getType(attributeIdIn => attributeIdIn);
725: insert into ame_test_trans_att_values(
753: commit;
754: exception
755: when others then
756: rollback;
757: ame_util.runtimeException(packageNameIn => 'ame_test_pkg',
758: routineNameIn => 'setAttributeValues',
759: exceptionNumberIn => sqlcode,
760: exceptionStringIn => sqlerrm);
761: raise;