DBA Data[Home] [Help]

PACKAGE: APPS.GMD_RESULTS_PUB

Source


1 PACKAGE GMD_RESULTS_PUB AS
2 /*  $Header: GMDPRESS.pls 120.1 2005/06/28 02:03:18 nsrivast noship $*/
3 /*#
4  * This interface is used for processing QM Results.
5  * This package defines and implements the procedures and datatypes
6  * required for processing QM results.
7  * @rep:scope public
8  * @rep:product GMD
9  * @rep:lifecycle active
10  * @rep:displayname GMD Results Package
11  * @rep:compatibility S
12  * @rep:category BUSINESS_ENTITY GMD_RESULTS_PUB
13  */
14 -- Define Results Rec Type
15 -- Bug 3559515 EVAL_IND and ACTION_CODE assigned proper data types.
16 
17 TYPE RESULTS_REC IS RECORD
18 ( UPDATE_INSTANCE_ID   GMD_RESULTS.UPDATE_INSTANCE_ID%TYPE,
19   RESULT_ID            GMD_RESULTS.RESULT_ID%TYPE,
20   SAMPLE_ID            GMD_RESULTS.SAMPLE_ID%TYPE,
21   SAMPLE_NO            GMD_SAMPLES.SAMPLE_NO%TYPE,
22   ORGANIZATION_ID      GMD_SAMPLES.ORGANIZATION_ID%TYPE,       /*NSRIVAST, INVCONV*/
23   LAB_ORGANIZATION_ID  GMD_RESULTS.LAB_ORGANIZATION_ID%TYPE,   /*NSRIVAST, INVCONV*/
24   TEST_CODE            GMD_QC_TESTS.TEST_CODE%TYPE,
25   TEST_ID              GMD_RESULTS.TEST_ID%TYPE,
26   TEST_REPLICATE_CNT   GMD_RESULTS.TEST_REPLICATE_CNT%TYPE,
27   RESULT_VALUE         VARCHAR2(80),
28   RESULT_DATE          GMD_RESULTS.RESULT_DATE%TYPE,
29   TEST_KIT_INV_ITEM_ID GMD_RESULTS.TEST_KIT_INV_ITEM_ID%TYPE,  /*NSRIVAST, INVCONV*/
30   TEST_KIT_LOT_NUMBER  GMD_RESULTS.TEST_KIT_LOT_NUMBER%TYPE,   /*NSRIVAST, INVCONV*/
31   TESTER               GMD_RESULTS.TESTER%TYPE,
32   TESTER_ID            GMD_RESULTS.TESTER_ID%TYPE,
33   TEST_PROVIDER_CODE   GMD_RESULTS.TEST_PROVIDER_CODE%TYPE,
34   TEST_PROVIDER_ID     GMD_RESULTS.TEST_PROVIDER_ID%TYPE,
35   SEQ                  GMD_RESULTS.SEQ%TYPE,
36   IN_SPEC              GMD_SPEC_RESULTS.IN_SPEC_IND%TYPE,
37   ASSAY_RETEST         GMD_RESULTS.ASSAY_RETEST%TYPE,
38   EVAL_IND             GMD_SPEC_RESULTS.EVALUATION_IND%TYPE,
39   ACTION_CODE          GMD_SPEC_RESULTS.ACTION_CODE%TYPE,
40   AD_HOC_PRINT_ON_COA_IND GMD_RESULTS.AD_HOC_PRINT_ON_COA_IND%TYPE,
41   PLANNED_RESOURCE GMD_RESULTS.PLANNED_RESOURCE%TYPE,
42   PLANNED_RESOURCE_INSTANCE GMD_RESULTS.PLANNED_RESOURCE_INSTANCE%TYPE,
43   ACTUAL_RESOURCE      GMD_RESULTS.ACTUAL_RESOURCE%TYPE,
44   ACTUAL_RESOURCE_INSTANCE  GMD_RESULTS.ACTUAL_RESOURCE_INSTANCE%TYPE,
45   PLANNED_RESULT_DATE  GMD_RESULTS.PLANNED_RESULT_DATE%TYPE,
46   TEST_BY_DATE         GMD_RESULTS.TEST_BY_DATE%TYPE,
47   TEST_QTY             GMD_RESULTS.TEST_QTY%TYPE,
48   TEST_QTY_UOM         GMD_RESULTS.TEST_QTY_UOM%TYPE,  /*NSRIVAST, INVCONV*/
49   RESERVE_SAMPLE_ID    GMD_RESULTS.RESERVE_SAMPLE_ID%TYPE,
50   CONSUMED_QTY         GMD_RESULTS.CONSUMED_QTY%TYPE
51 );
52 
53 
54 /*   Define Procedures And Functions :   */
55 
56 /*#
57  * Validates input
58  * This procedure checks input against various validations and
59  * will throw an exception if any validation fails.
60  * @param p_results_rec Record structure for Result
61  * @param x_return_status 'S'-Success, 'E'-Error, 'U'-Unexpected Error
62  * @rep:scope public
63  * @rep:lifecycle active
64  * @rep:displayname Validate Result Input Procedure
65  * @rep:compatibility S
66  */
67 
68 PROCEDURE VALIDATE_INPUT
69 ( p_results_rec          IN  GMD_RESULTS_PUB.RESULTS_REC,
70   x_return_status        OUT NOCOPY VARCHAR2
71 );
72 
73 /*#
74  * Gets Result information
75  * @param p_results_rec Record structure for results
76  * @param x_tests_rec Record structure for tests
77  * @param x_samples_rec Record structure for samples
78  * @param x_return_status 'S'-Success, 'E'-Error, 'U'-Unexpected Error
79  * @rep:scope public
80  * @rep:lifecycle active
81  * @rep:displayname Get Result Information
82  * @rep:compatibility S
83  */
84 
85 PROCEDURE GET_RESULT_INFO
86 ( p_results_rec          IN  GMD_RESULTS_PUB.RESULTS_REC,
87   x_tests_rec            OUT NOCOPY GMD_QC_TESTS%ROWTYPE,
88   x_samples_rec          OUT NOCOPY GMD_SAMPLES%ROWTYPE,
89   x_return_status        OUT NOCOPY VARCHAR2
90 );
91 
92 
93 /*#
94  * records results
95  * @param p_api_version API version field
96  * @param p_init_msg_list Flag to check if message list is intialized
97  * @param p_commit Flag to check for commit
98  * @param p_validation_level For future use
99  * @param p_results_rec Record structure for Results
100  * @param p_user_name Login User Name
101  * @param x_results_rec Record structure for GMD results
102  * @param x_spec_results_rec Record structure for GMD specification results
103  * @param x_return_status 'S'-Success, 'E'-Error, 'U'-Unexpected Error
104  * @param x_msg_count Number of messages on message stack
105  * @param x_msg_data Actual message data on message stack
106  * @rep:scope public
107  * @rep:lifecycle active
108  * @rep:displayname Record Results
109  * @rep:compatibility S
110  */
111 
112 
113 
114 PROCEDURE RECORD_RESULTS
115 ( p_api_version            IN  NUMBER
116 , p_init_msg_list          IN  VARCHAR2        DEFAULT FND_API.G_FALSE
117 , p_commit                 IN  VARCHAR2        DEFAULT FND_API.G_FALSE
118 , p_validation_level       IN  NUMBER          DEFAULT FND_API.G_VALID_LEVEL_FULL
119 , p_results_rec            IN  GMD_RESULTS_PUB.RESULTS_REC
120 , p_user_name              IN  VARCHAR2
121 , x_results_rec            OUT NOCOPY GMD_RESULTS%ROWTYPE
122 , x_spec_results_rec       OUT NOCOPY GMD_SPEC_RESULTS%ROWTYPE
123 , x_return_status          OUT NOCOPY VARCHAR2
124 , x_msg_count              OUT NOCOPY NUMBER
125 , x_msg_data               OUT NOCOPY VARCHAR2
126 , p_user_responsibility_id IN NUMBER DEFAULT NULL /*NSRIVAST, INVCONV*/
127 );
128 
129 
130 /*#
131  * adds tests to the sample
132  * @param p_api_version API version field
133  * @param p_init_msg_list Flag to check if message list is intialized
134  * @param p_commit Flag to check for commit
135  * @param p_validation_level For future use
136  * @param p_user_name Login User Name
137  * @param p_sample_rec Record structure for Samples
138  * @param p_test_id_tab Table structure for Table IDs
139  * @param p_event_spec_disp_id Event spec disp ID
140  * @param x_results_tab Table structure for Results
141  * @param x_spec_results_tab Table structure for Specification Results
142  * @param x_return_status 'S'-Success, 'E'-Error, 'U'-Unexpected Error
143  * @param x_msg_count Number of messages on message stack
144  * @param x_msg_data Actual message data on message stack
145  * @rep:scope public
146  * @rep:lifecycle active
147  * @rep:displayname Add tests to sample
148  * @rep:compatibility S
149  */
150 
151 PROCEDURE ADD_TESTS_TO_SAMPLE
152 (
153   p_api_version          IN  NUMBER
154 , p_init_msg_list        IN  VARCHAR2        DEFAULT FND_API.G_FALSE
155 , p_commit               IN  VARCHAR2        DEFAULT FND_API.G_FALSE
156 , p_validation_level     IN  NUMBER          DEFAULT FND_API.G_VALID_LEVEL_FULL
157 , p_user_name            IN  VARCHAR2
158 , p_sample_rec           IN  GMD_SAMPLES%ROWTYPE
159 , p_test_id_tab          IN  GMD_API_PUB.number_tab
160 , p_event_spec_disp_id   IN  NUMBER
161 , x_results_tab          OUT NOCOPY GMD_API_PUB.gmd_results_tab
162 , x_spec_results_tab     OUT NOCOPY GMD_API_PUB.gmd_spec_results_tab
163 , x_return_status        OUT NOCOPY VARCHAR2
164 , x_msg_count            OUT NOCOPY NUMBER
165 , x_msg_data             OUT NOCOPY VARCHAR2
166 );
167 
168 END GMD_RESULTS_PUB;