[Home] [Help]
PACKAGE BODY: APPS.INV_RCV_DIAG_LCM_01
Source
1 PACKAGE BODY INV_RCV_DIAG_LCM_01 AS
2 /* $Header: INVRCV1B.pls 120.1 2009/03/26 20:59:35 vthevark noship $ */
3
4 PROCEDURE init is
5 BEGIN
6 -- test writer
7 null;
8 END init;
9
10 PROCEDURE cleanup IS
11 BEGIN
12 -- test writer could insert special cleanup code here
13 NULL;
14 END cleanup;
15
16 PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
17 report OUT NOCOPY JTF_DIAG_REPORT,
18 reportClob OUT NOCOPY CLOB) IS
19
20 reportStr LONG;
21 counter NUMBER;
22 dummy_v2t JTF_DIAGNOSTIC_COREAPI.v2t;
23 c_userid VARCHAR2(50);
24 statusStr VARCHAR2(50);
25 errStr VARCHAR2(4000);
26 fixInfo VARCHAR2(4000);
27 isFatal VARCHAR2(50);
28 dummy_num NUMBER;
29 sqltxt VARCHAR2 (9999);
30
31 BEGIN
32
33 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
34 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
35 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
36
37 -- Printing ORG_ORGANIZATION_DEFINITIONS Data
38 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="ORG_ORGANIZATION_DEFINITIONS"></a>');
39 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>ORG_ORGANIZATION_DEFINITIONS</b><a href="#INDEX OF QUERIES">[Top]</a>');
40 sqltxt := ' SELECT ood.*' ||
41 ' FROM org_organization_definitions ood , mtl_parameters mp, rcv_parameters rp' ||
42 ' WHERE ood.organization_id = mp.organization_id' ||
43 ' AND mp.organization_id = rp.organization_id' ||
44 ' AND mp.lcm_enabled_flag = ''N'' ' ||
45 ' AND rp.pre_receive = ''Y'' ';
46
47 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
48 JTF_DIAGNOSTIC_COREAPI.BRPrint;
49
50 -- Printing MTL_PARAMETERS Data
51 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="MTL_PARAMETERS"></a>');
52 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>MTL_PARAMETERS</b><a href="#INDEX OF QUERIES">[Top]</a>');
53 sqltxt := ' SELECT mp.*' ||
54 ' FROM org_organization_definitions ood , mtl_parameters mp, rcv_parameters rp' ||
55 ' WHERE ood.organization_id = mp.organization_id' ||
56 ' AND mp.organization_id = rp.organization_id' ||
57 ' AND mp.lcm_enabled_flag = ''N'' ' ||
58 ' AND rp.pre_receive = ''Y'' ';
59 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
60 JTF_DIAGNOSTIC_COREAPI.BRPrint;
61
62 -- Printing RCV_PARAMETERS Data
63 JTF_DIAGNOSTIC_COREAPI.insert_html('<a name="RCV_PARAMETERS"></a>');
64 JTF_DIAGNOSTIC_COREAPI.insert_html('<b>RCV_PARAMETERS</b><a href="#INDEX OF QUERIES">[Top]</a>');
65 sqltxt := ' SELECT rp.*' ||
66 ' FROM org_organization_definitions ood , mtl_parameters mp, rcv_parameters rp' ||
67 ' WHERE ood.organization_id = mp.organization_id' ||
68 ' AND mp.organization_id = rp.organization_id' ||
69 ' AND mp.lcm_enabled_flag = ''N'' ' ||
70 ' AND rp.pre_receive = ''Y'' ';
71
72 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'');
73 JTF_DIAGNOSTIC_COREAPI.BRPrint;
74
75 -- Test Completed successfully.
76 statusStr := 'SUCCESS';
77 isFatal := 'FALSE';
78 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
79 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
80
81 EXCEPTION
82 when others then
83 JTF_DIAGNOSTIC_COREAPI.errorprint('Error: '||sqlerrm);
84 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint('This is the exception handler');
85 statusStr := 'FAILURE';
86 errStr := sqlerrm ||' occurred in script Exception handled';
87 fixInfo := 'Unexpected Exception in INVDP08B.pls';
88 isFatal := 'FALSE';
89 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
90 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
91 END runTest;
92
93
94 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
95 BEGIN
96 name := 'pre_receive flag set to Y for non-lcm org';
97 END getComponentName;
98
99 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
100 BEGIN
101 descStr := 'pre_receive flag set to Y for non-lcm org';
102 END getTestDesc;
103
104 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
105 BEGIN
106 name := 'Non-LCM org with pre-receiving enabled';
107 END getTestName;
108
109 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
110 tempDependencies JTF_DIAG_DEPENDTBL;
111
112 BEGIN
113 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
114 END getDependencies;
115
116 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
117 BEGIN
118 str := 'FALSE';
119 END isDependencyPipelined;
120
121 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
122 tempOutput JTF_DIAG_OUTPUTTBL;
123 BEGIN
124 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
125 outputValues := tempOutput;
126 EXCEPTION
127 when others then
128 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
129 END getOutputValues;
130
131 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
132 tempInput JTF_DIAG_INPUTTBL;
133 BEGIN
134 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
135 defaultInputValues := tempInput;
136 EXCEPTION
137 when others then
138 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
139 END getDefaultTestParams;
140
141 Function getTestMode return INTEGER IS
142 BEGIN
143 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE;
144 END getTestMode;
145
146 END INV_RCV_DIAG_LCM_01;