1.Functional Description
1.1Purpose
The purpose of this business function is to validate and get specification definition from 
Specifications Definitions Master File (F3702). 
1.2Setup Notes and Prerequisites
1.3Special Logic
2.Technical Specifications
2.4Processing 
VA evt_cFetchFlag= "0"
cErrorCode ="0"
szErrorMessageID=" "
If szSpecificationID ? "*"
 Open F3702
 szSpecificationRevisionLev=QSQREV
 szCostCenter=QSMCU
 
 IfFetch is success
 szDescriptionLine1'efQSDSC1
 jdEffectiveFromDate'efQSEFFF
 jdEffectiveThruDate'efQSEFFT
 szSpecificationCode1'efQSQSC1
 szSpecificationCode2'efQSQSC2
 szSpecificationCode3'efQSQSC3
 szSpecificationCode4'efQSQSC4
 szSpecificationCode5'efQSQSC5
 VA evt_cFetchFlag= "1"
 End If
 IfVA evt_cFetchFlag = "0"andszSpecificationRevisionLev  =  " ,*"
andSzCostCenter   ? "*"
 Select F3702 with:szSpecificationID=QSQSPC
 szCostCenter=QSMCU
 FetchNext F3702:szDescriptionLine1'efQSDSC1
 
 End If
 End If
 IfVA evt_cFetchFlag = "0"andszCostCenter       =  " ,*"
andszSpecificationRevisionLev   ? "*"
 Select F3702 with:szSpecificationID=QSQSPC
 szSpecificationRevisionLev=QSQREV
FetchNext F3702:szDescriptionLine1'efQSDSC1
 
 End If
 End If
 IfVA evt_cFetchFlag = "0"andszCostCenter=  " ,*"
andszSpecificationRevisionLev=  " ,*"
 Select F3702 with:szSpecificationID=QSQSPC
 FetchNext F3702:szDescriptionLine1'efQSDSC1
 IfFetch is success
 VA evt_cFetchFlag = "2"
 End If
 End If
 Close F3702
 szErrorMessageID="038S"
 
 "038S"'f0Error Value
 szSpecificationID'f0Parameter
 End If
End If
D3700090 - F3702 Verify and Get Specification Definition
| Parameter Name | Data Item | Data Type | Req/Opt | I/O/Both | 
|---|---|---|---|---|
| szSpecificationID | QSPC | char | OPT | NONE | 
The unique identification for a set of tests which need to be performed together. For example:
       F-156 - FDA Specification 156
       SP34 - 
  | ||||
| szSpecificationRevisionLev | QREV | char | OPT | NONE | 
An alphanumeric character that represents the number of times a specification has changed. To avoid overlapping revisions, the system 
  | ||||
| szCostCenter | MCU | char | OPT | NONE | 
An alphanumeric code that identifies a separate entity within a business for which you want to track costs. For example, a business unit 
  | ||||
| szDescriptionLine1 | DSC1 | char | OPT | NONE | 
Brief information about an item; a remark or an explanation.  | ||||
| jdEffectiveFromDate | EFFF | JDEDATE | OPT | NONE | 
A date that indicates one of the following:
    o When a component part goes into effect on a bill of material
    o When a routing step goes into 
  | ||||
| jdEffectiveThruDate | EFFT | JDEDATE | OPT | NONE | 
A date that indicates one of the following:
    o When a component part is no longer in effect on a bill of material
    o When a routing step is no 
  | ||||
| szSpecificationCode1 | QSC1 | char | OPT | NONE | 
One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different 
  | ||||
| szSpecificationCode2 | QSC2 | char | OPT | NONE | 
One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different 
  | ||||
| szSpecificationCode3 | QSC3 | char | OPT | NONE | 
One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different 
  | ||||
| szSpecificationCode4 | QSC4 | char | OPT | NONE | 
One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different 
  | ||||
| szSpecificationCode5 | QSC5 | char | OPT | NONE | 
One of five reporting codes that can be assigned to each specification defined. Use these codes to categorize specifications into different 
  | ||||
| cErrorCode | ERR | char | OPT | NONE | 
The Data Field Error Code field is simply a generic data field to pass an error condition flag.  This field is one of the fields that make up the 
  | ||||
| cSuppressErrorMessageFlag | EV01 | char | OPT | NONE | 
An option that specifies the type of processing for an event.  | ||||
| szErrorMessageID | DTA1 | char | OPT | NONE | 
A 256 byte field used to hold miscellaneous data.  | ||||
| cStatus9 | STAW | char | OPT | NONE | 
A user-defined code (00/WS) that indicates the approval status.  | ||||
| mnUniqueKeyIDInternal | UKID | MATH_NUMERIC | OPT | NONE | 
This field is a unique number used to identify a record in a file.  | ||||
| cActionCode2 | ACTN | char | OPT | NONE | 
A code that specifies the action that is performed. Valid values are: A Add C Change  | ||||
| mnQualityTableSequenceNumber | QTSN | MATH_NUMERIC | OPT | NONE | 
A control number that uniquely identifies master table records in the Quality Management system. The system automatically generates this 
  | ||||
| None | 
| None |