1.Functional Description
1.1Purpose
The purpose of this function is to retrieve the default labor hours from the F1771 table with a direct match of input fields specified by the user.
1.2Setup Notes and Prerequisites
Setup will include 2 steps.
1. Setting S/WM sequences in the F1750 with ITYPE 'T' by using the form exit from P1771.
2. Adding valid data to the F1771 that will correlate with sequences added in step 1 by using the application P1771.
1.3Special Logic
2.Technical Specifications
2.1Parameters:
Data Item Data Structure DescriptionI/ORequiredNotes
ITYPEcInformationType1INITYPE of
'T'
PRODMszProductModelIN
PRODFszProductFamilyIN
ITMmnIdentifierShortItemIN
VMRS31szSystemIN
VMRS32szAssemblyIN
VMRS33szPartsIN
DFLBRmnDefaultlaborHoursON
2.2Related Tables
Table Table Description
F1771Standard Repair Time Entry
F1750S/WM Sequences
2.3Related Business Functions
Source NameFunction Name
2.4Processing
Listing of ER for Named ER: N1702260
=======================================================================
NAMED ER: Retrieve Default Labor From RTS
=======================================================================
evt_cProdFamily_YN02
evt_cProdModel_YN01
evt_cInvItemNo_YN03
evt_cSystem_YN04
evt_cAssembly_YN05
evt_cPart_YN06
evt_cDefaultFound_EV01
evt_szProductFamily_PRODF
evt_szProductModel_PRODM
evt_mnIdentifierShortItem_ITM
evt_szSystem_VMRS31
evt_szAssembly_VMRS32
evt_szPart_VMRS33
BF mnDefaultLaborHours = ""
VA evt_cDefaultFound_EV01 = "0"
F1750.Select
BF cInformationType1 = TK Information Type
F1750.Fetch Next
VA evt_cProdModel_YN01 <- TK Yes or No Entry 01
VA evt_cProdFamily_YN02 <- TK Yes or No Entry 02
VA evt_cInvItemNo_YN03 <- TK Yes or No Entry 03
VA evt_cSystem_YN04 <- TK Yes or No Entry 04
VA evt_cAssembly_YN05 <- TK Yes or No Entry 05
VA evt_cPart_YN06 <- TK Yes or No Entry 06
While SV File_IO_Status is equal to CO SUCCESS
And VA evt_cDefaultFound_EV01 is equal to
// Set Default Keys based on F1750
If VA evt_cProdModel_YN01 is equal to "1,Y"
VA evt_szProductModel_PRODM = BF szProductModel
Else
VA evt_szProductModel_PRODM = " "
End If
If VA evt_cProdFamily_YN02 is equal to "1,Y"
VA evt_szProductFamily_PRODF = BF szProductFamily
Else
VA evt_szProductFamily_PRODF = " "
End If
If VA evt_cInvItemNo_YN03 is equal to "1,Y"
VA evt_mnIdentifierShortItem_ITM = BF mnIdentifierShortItem
Else
VA evt_mnIdentifierShortItem_ITM = "0"
End If
If VA evt_cSystem_YN04 is equal to "1,Y"
VA evt_szSystem_VMRS31 = BF szSystem
Else
VA evt_szSystem_VMRS31 = " "
End If
If VA evt_cAssembly_YN05 is equal to "1,Y"
VA evt_szAssembly_VMRS32 = BF szAssembly
Else
VA evt_szAssembly_VMRS32 = " "
End If
If VA evt_cPart_YN06 is equal to "1,Y"
VA evt_szPart_VMRS33 = BF szParts
Else
VA evt_szPart_VMRS33 = " "
End If
F1771.Fetch Single
VA evt_szProductFamily_PRODF = TK Product Family
VA evt_szProductModel_PRODM = TK Product Model
VA evt_mnIdentifierShortItem_ITM = TK Item Number - Short
VA evt_szSystem_VMRS31 = TK Component Code - Group/System
VA evt_szAssembly_VMRS32 = TK Component Code - System/Assembly
VA evt_szPart_VMRS33 = TK Component Code - Systems/Assembly/Parts
BF mnDefaultLaborHours <- TK Default Labor Hours
If SV File_IO_Status is equal to CO SUCCESS
VA evt_cDefaultFound_EV01 = "1"
Else
F1750.Fetch Next
VA evt_cProdModel_YN01 <- TK Yes or No Entry 01
VA evt_cProdFamily_YN02 <- TK Yes or No Entry 02
VA evt_cInvItemNo_YN03 <- TK Yes or No Entry 03
VA evt_cSystem_YN04 <- TK Yes or No Entry 04
VA evt_cAssembly_YN05 <- TK Yes or No Entry 05
VA evt_cPart_YN06 <- TK Yes or No Entry 06
End If
End While
D1702260 - Retrieve Default Labor From RTS
Parameter Name | Data Item | Data Type | Req/Opt | I/O/Both |
---|---|---|---|---|
cInformationType1 | ITYPE | char | OPT | INPUT |
A code that indicates specific record types when records of different types are stored within the same table. For internal use only. | ||||
szProductFamily | PRODF | char | OPT | INPUT |
A code that classifies an inventory item into a group for customer service. Some examples include: Laser Printer, Inkjet, or Fax. | ||||
szProductModel | PRODM | char | OPT | INPUT |
A code that classifies an inventory item into a model for customer service. Some examples include: Laser Printer, Inkjet or Fax. | ||||
mnIdentifierShortItem | ITM | MATH_NUMERIC | OPT | INPUT |
An inventory item number. The system provides three separate item numbers plus an extensive cross-reference capability to other item
| ||||
mnDefaultLaborHours | DEFLBR | MATH_NUMERIC | OPT | OUTPUT |
The standard number of hours that are required to complete a repair on an item. | ||||
szSystem | VMRS31 | char | OPT | INPUT |
A user defined code (17/C6) that indicates a specific system, such as the air conditioning system, that is associated with a piece of
| ||||
szAssembly | VMRS32 | char | OPT | INPUT |
A user defined code (17/C7) that indicates the location of a specific assembly, such as the air conditioning compressor, within a piece of
| ||||
szParts | VMRS33 | char | OPT | INPUT |
A user defined code (17/C8) that indicates the location of a specific part, such as the fuse to the air conditioning compressor clutch, within a
|
None |
None |