F4801PurgeWOData

Purge Work Order Data

Major Business Rule

Object Name: B3101030

Parent DLL: CMFGBASE

Location: Client/Server

Language: C

1.Functional Description
This business function reads the Work Order for a given Order Number, optionally saves the data 
related to the Work Order from Parts List, Routing, Approval, Time Transactions, Remarks, and WO Lot/Serial 
Numbers tables into save tables, and deletes the data from the regular tables.  

1.1Purpose
To Purge data related to a particular order. 

1.2Setup Notes and Prerequisites
None.

1.3Special Logic
None.

2.Technical Specifications

2.4Processing

The following actions have to be performed by the Business Function.

1. Open Tables
 Open the Regular tables (F4801, F3111, F3112, F31122, F4828, F4802, F3105)
If any error, Exit with Error Code = '1' and Error Message = '3143'
If Save flag = '1'
Open the Save tables (F4801S, F3111S, F3112S, F31122S, F4828S, F4802S, F3105S)
If any error, Exit with Error Code = '1' and Error Message = '3143'
End If


2. Update the User Index
Read F4801 using Order Number as the key
If found
Do While not EOF
Read records from F4802 using WADOCO as key
If found
If PO Save flag = '1'
Save records into F4802S
End If
Delete F4802 record
End If
End Do
Do While not EOF
Read records from F3111 using WADOCO as key
If found
If PO Save flag = '1'
Save records into F3111S
End If
Delete F3111 record
End If
End Do
Do While not EOF
Read records from F3112 using WADOCO as key
If found
If PO Save flag = '1'
Save records into F3112S
End If
Delete F3112 record
End If
End Do
Do While not EOF
Read records from F4828 using WADOCO as key
If found
If PO Save flag = '1'
Save records into F4828S
End If
Delete F4828 record
End If
End Do
Do While not EOF
Read records from F3105 using WADOCO, WADCTO, and WAMMCU
If found
If PO Save flag = '1'
Save records into F3105S
End If
Delete F3105 record
End If
End Do
Do While not EOF
Read records from F31122 using WADOCO and WTYST (= ' ' or 'P' ) as key
If found
If PO Save flag = '1'
Get and Load next unique Id from F31122S
Save records into F31122S
End If
Delete F31122 record
End If
End Do
 If PO Save Flag = '1'
Save Data in F4801S
End If
Delete F4801 record
End If