API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Nov 21st, 2019
184
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 91.41 KB | None | 0 0
raw download clone embed print report
  1. USE [Export]
  2. GO
  3. /****** Object: StoredProcedure [dbo].[EDIFACT_CUSRES_UPDATES_V4] Script Date: 2019/11/21 10:49:06 AM ******/
  4. SET ANSI_NULLS ON
  5. GO
  6. SET QUOTED_IDENTIFIER ON
  7. GO
  8. -- =============================================
  9. -- Author: Justin White
  10. -- Create date: 04 September 2011
  11. -- Description: This strips out data from the CUSRES file to populate various tables with the resultant values
  12. -- =============================================
  13. /*
  14. EDIFACT_CUSRES_UPDATES_V4 'UNB+UNOB:4+SARSDEC+00242963::Q2Y8Z0W2M2N5Q2E9:IQDAS3+20160314:1444+9206++EXPORT+++IQUAD''UNH+1+CUSRES:D:96B:UN:ZZZ01''BGM+962+00242963GRB20160314004435:0''DTM+178:20160315:102''TDT+20+DF 73 ZG GP+3+++++:::DF 73 ZG GP''LOC+22+GRB::ZZZ''GIS+6:120:ZZZ:N''NAD+AG+00242963''RFF+AAS:20112471RM1445''DTM+137:20160314:102''RFF+UCN:6ZA00242963COM3327''ERP+2:1''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:2''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:3''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:4''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:5''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:6''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:7''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:8''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:9''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:10''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:11''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:12''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:13''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:14''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:15''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:16''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:17''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:18''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:19''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:20''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:21''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:22''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:23''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:24''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:25''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:26''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:27''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:28''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:29''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:30''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:31''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:32''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:33''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:34''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:35''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:36''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:37''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:38''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:39''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:40''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:41''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:42''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:43''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:44''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:45''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:46''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:47''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:48''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:49''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:50''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:51''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:52''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:53''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:54''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:55''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:56''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:57''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:58''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:59''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:60''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:61''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:62''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:63''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:64''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:65''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:66''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:67''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:68''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:69''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:70''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:71''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:72''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:73''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:74''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:75''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:76''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:77''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:78''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:79''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:80''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:81''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:82''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:83''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:84''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:85''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:86''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:87''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:88''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:89''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:90''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:91''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:92''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:93''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:94''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:95''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:96''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:97''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:98''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''ERP+2:99''ERC+1172::ZZZ''FTX+AAO+++ FIELD(Previous Procedure MRN (Warehousing details)) DESCR(PREVIOUS PR:OCEDURE MRN INVALID - FORMAT NOT AS REQUIRED)''TAX+3+CUS:107:ZZZ''MOA+161:0''CNT+7:23394.73''CNT+11:1''UNT+312+1''UNZ+1+9206'''
  15. */
  16. ALTER PROCEDURE [dbo].[EDIFACT_CUSRES_UPDATES_V4]
  17. (
  18. @TheLine VARCHAR(MAX),
  19. @FileName VARCHAR(200) = ''
  20. )
  21. AS
  22. BEGIN
  23. SET NOCOUNT ON
  24.  
  25. DECLARE @Result VARCHAR(MAX)
  26. SET @Result = ''
  27. DECLARE @TheNextSegment VARCHAR(3)
  28. SET @TheNextSegment = ''
  29. DECLARE @TempHolder VARCHAR(MAX)
  30. SET @TempHolder = ''
  31. DECLARE @OCCHolder VARCHAR(3)
  32. SET @OCCHolder = ''
  33. --This stores the MessageID which is parsed out of the Document Number
  34. DECLARE @MessageID INT
  35. SET @MessageID = -1
  36. --This stored the HeaderID of clearance (not the HeaderAuditID)
  37. DECLARE @HeaderID INT
  38. SET @HeaderID = -1
  39.  
  40. DECLARE @GIS INT
  41. SET @GIS = -1
  42.  
  43.  
  44. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  45. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  46. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  47.  
  48. WHILE @TheNextSegment = 'UNB'
  49. BEGIN
  50. SET @Result = @Result + 'INTERCHANGE HEADER (UNB);'
  51. --UNB SEGMENT >>>>>>>>>>
  52. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  53. BEGIN
  54. SET @Result = @Result + 'Syntax Identifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  55. END
  56. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  57.  
  58. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  59. BEGIN
  60. SET @Result = @Result + '; Syntax Version Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  61. END
  62. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  63.  
  64. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  65. BEGIN
  66. SET @Result = @Result + '; Sender Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  67. END
  68. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  69. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  70. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  71.  
  72. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  73. BEGIN
  74. SET @Result = @Result + '; Recipient Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  75. END
  76. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  77. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  78. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  79.  
  80. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  81. BEGIN
  82. SET @Result = @Result + '; Date of Preparation: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  83. END
  84. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  85.  
  86. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  87. BEGIN
  88. SET @Result = @Result + '; Time of Preparation: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  89. END
  90. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  91.  
  92. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  93. BEGIN
  94. SET @Result = @Result + '; Interchange Control Reference: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  95. END
  96. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  97.  
  98. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  99. BEGIN
  100. SET @Result = @Result + '; Recipient Reference Password: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  101. END
  102. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  103.  
  104. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  105. BEGIN
  106. SET @Result = @Result + '; Recipient Reference Password Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  107. END
  108. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  109.  
  110. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  111. BEGIN
  112. SET @Result = @Result + '; Application Reference: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  113. END
  114. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  115.  
  116. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  117. BEGIN
  118. SET @Result = @Result + '; Processing Priority Code: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  119. END
  120. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  121.  
  122. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  123. BEGIN
  124. SET @Result = @Result + ';Acknowledgement Request: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  125. END
  126. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  127. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  128. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  129. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  130. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  131.  
  132. -- IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  133. -- BEGIN
  134. -- SET @Result = @Result + '; Communications Agreement ID: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  135. -- END
  136. -- SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  137.  
  138. -- IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  139. -- BEGIN
  140. -- SET @Result = @Result + '; Test Indicator: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  141. -- END
  142. -- SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  143. --UNB SEGMENT <<<<<<<<<<
  144. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  145. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  146. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  147. END
  148.  
  149. WHILE @TheNextSegment = 'UNH'
  150. BEGIN
  151. SET @Result = @Result + ';;MESSAGE HEADER (UNH)'
  152. --UNH SEGMENT >>>>>>>>>>
  153. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  154. BEGIN
  155. SET @Result = @Result + '; Message Reference Number: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  156. END
  157. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  158.  
  159. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  160. BEGIN
  161. SET @Result = @Result + '; Message Type: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  162. END
  163. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  164.  
  165. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  166. BEGIN
  167. SET @Result = @Result + '; Message Version Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  168. END
  169. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  170.  
  171. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  172. BEGIN
  173. SET @Result = @Result + '; Message Release Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  174. END
  175. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  176.  
  177. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  178. BEGIN
  179. SET @Result = @Result + '; Controlling Agency: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  180. END
  181. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  182.  
  183. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  184. BEGIN
  185. SET @Result = @Result + '; Association Assigned Code: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  186. END
  187. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  188.  
  189. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  190. BEGIN
  191. SET @Result = @Result + '; Common Access Reference: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  192. END
  193. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  194.  
  195. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  196. BEGIN
  197. SET @Result = @Result + '; Sequence of Transfers: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  198. END
  199. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  200.  
  201. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  202. BEGIN
  203. SET @Result = @Result + '; First and Last Transfer: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  204. END
  205. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  206. --UNH SEGMENT <<<<<<<<<<
  207. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  208. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  209. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  210.  
  211. IF @TheNextSegment = 'BGM'
  212. BEGIN
  213. SET @Result = @Result + ';;BEGINNING OF MESSAGE (BGM)'
  214. --BGM SEGMENT >>>>>>>>>>
  215. SET @TempHolder = dbo.EDIFACT_G_READELEMENT(@TheLine)
  216. IF @TempHolder = '962'
  217. BEGIN
  218. SET @Result = @Result + '; Document/Message Name, Coded: Document Response'
  219. END
  220. ELSE IF @TempHolder = '963'
  221. BEGIN
  222. SET @Result = @Result + '; Document/Message Name, Coded: Error Response'
  223. END
  224. ELSE
  225. BEGIN
  226. IF (@TempHolder <> '')
  227. BEGIN
  228. SET @Result = @Result + '; Document/Message Name, Coded: ' + @TempHolder
  229. END
  230. END
  231. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  232.  
  233. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  234. BEGIN
  235. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  236. END
  237. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  238.  
  239. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  240. BEGIN
  241. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  242. END
  243. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  244.  
  245. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  246. BEGIN
  247. SET @Result = @Result + '; Document/Message Name: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  248. END
  249. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  250. select 'here'
  251. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  252. BEGIN
  253. SET @Result = @Result + '; Document/Message Number: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  254. --Extract the MessageID
  255. SET @MessageID = SUBSTRING(dbo.EDIFACT_G_READELEMENT(@TheLine), LEN(dbo.EDIFACT_G_READELEMENT(@TheLine)) - 5, 6)
  256. --Find the HeaderID
  257. SELECT @HeaderID = SARS_SAD_Header_ID
  258. FROM dbo.SARS_Messages WITH (NOLOCK)
  259. WHERE SARS_Message_ID = @MessageID
  260. select @HeaderID
  261. END
  262. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  263.  
  264. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  265. BEGIN
  266. SET @Result = @Result + '; Version: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  267. END
  268. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  269.  
  270. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  271. BEGIN
  272. SET @Result = @Result + '; Revision Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  273. END
  274. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  275.  
  276. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  277. BEGIN
  278. SET @Result = @Result + '; Message Function, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  279. END
  280. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  281.  
  282. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  283. BEGIN
  284. SET @Result = @Result + '; Response Type, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  285. END
  286. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  287. --BGM SEGMENT <<<<<<<<<<
  288. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  289. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  290. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  291. END
  292.  
  293. WHILE @TheNextSegment = 'DTM'
  294. BEGIN
  295. SET @Result = @Result + ';;BEGINNING OF MESSAGE (DTM)'
  296. --DTM SEGMENT >>>>>>>>>>
  297. SET @TempHolder = dbo.EDIFACT_G_READELEMENT(@TheLine)
  298. IF @TempHolder = '132'
  299. BEGIN
  300. SET @Result = @Result + '; Date/Time/Period Qualifier: Arrival Date/Time, Estimated'
  301. SET @OCCHolder = 'A';
  302. END
  303. ELSE IF @TempHolder = '178'
  304. BEGIN
  305. SET @Result = @Result + '; Date/Time/Period Qualifier: Arrival Date/Time, Actual'
  306. SET @OCCHolder = 'B';
  307. END
  308. ELSE
  309. BEGIN
  310. IF (@TempHolder <> '')
  311. BEGIN
  312. SET @Result = @Result + '; Date/Time/Period Qualifier: ' + @TempHolder
  313. SET @OCCHolder = '';
  314. END
  315. END
  316. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  317.  
  318. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  319. BEGIN
  320. IF @OCCHolder = 'A'
  321. BEGIN
  322. SET @Result = @Result + '; Est. Date of Arrival of Ship: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  323. END
  324. ELSE IF @OccHolder = 'B'
  325. BEGIN
  326. SET @Result = @Result + '; Date of Flight/Sailing Date: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  327. END
  328. ELSE
  329. BEGIN
  330. SET @Result = @Result + 'Date/Time/Period: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  331. END
  332. END
  333. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  334.  
  335. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  336. BEGIN
  337. SET @Result = @Result + '; Date/Time/Period Format Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  338. END
  339. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  340. --DTM SEGMENT <<<<<<<<<<
  341. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  342. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  343. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  344. END
  345.  
  346. IF @TheNextSegment = 'TDT'
  347. BEGIN
  348. SET @Result = @Result + ';;DETAILS OF TRANSPORT (TDT)'
  349. --TDT SEGMENT >>>>>>>>>>
  350. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  351. BEGIN
  352. IF dbo.EDIFACT_G_READELEMENT(@TheLine) = '20'
  353. BEGIN
  354. SET @Result = @Result + '; Transport Stage Qualifier: Main-carriage transport'
  355. END
  356. ELSE
  357. BEGIN
  358. SET @Result = @Result + '; Transport Stage Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  359. END
  360. END
  361. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  362.  
  363. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  364. BEGIN
  365. SET @Result = @Result + '; Conveyance Reference No: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  366. END
  367. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  368.  
  369. SET @TempHolder = dbo.EDIFACT_G_READELEMENT(@TheLine)
  370. IF ((SELECT COUNT(*) FROM SARS_Transport_Modes WITH (NOLOCK) WHERE Code = @TempHolder) = 1)
  371. BEGIN
  372. SET @Result = @Result + '; Mode of Transport, Coded: ' + (SELECT Description FROM SARS_Transport_Modes WITH (NOLOCK) WHERE Code = @TempHolder)
  373. END
  374. ELSE
  375. BEGIN
  376. IF (@TempHolder <> '')
  377. BEGIN
  378. SET @Result = @Result + '; Mode of Transport, Coded: ' + @TempHolder
  379. END
  380. END
  381. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  382.  
  383. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  384. BEGIN
  385. SET @Result = @Result + '; Mode of Transport: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  386. END
  387. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  388.  
  389. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  390. BEGIN
  391. SET @Result = @Result + '; Type of Means of Transport Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  392. END
  393. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  394.  
  395. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  396. BEGIN
  397. SET @Result = @Result + '; Type of Means of Transport: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  398. END
  399. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  400.  
  401. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  402. BEGIN
  403. SET @Result = @Result + '; Carrier Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  404. END
  405. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  406.  
  407. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  408. BEGIN
  409. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  410. END
  411. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  412.  
  413. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  414. BEGIN
  415. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_REACOMDELEMENT(@TheLine)
  416. END
  417. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  418.  
  419. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  420. BEGIN
  421. SET @Result = @Result + '; Carrier Name: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  422. END
  423. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  424.  
  425. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  426. BEGIN
  427. SET @Result = @Result + '; Transit Direction, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  428. END
  429. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  430.  
  431. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  432. BEGIN
  433. SET @Result = @Result + '; Excess Transportation Reason, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  434. END
  435. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  436.  
  437. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  438. BEGIN
  439. SET @Result = @Result + '; Excess Transportation Responsibility, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  440. END
  441. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  442.  
  443. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  444. BEGIN
  445. SET @Result = @Result + '; Customer Authorization Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  446. END
  447. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  448.  
  449. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  450. BEGIN
  451. SET @Result = @Result + '; ID. of Means of Transport Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  452. END
  453. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  454.  
  455. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  456. BEGIN
  457. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  458. END
  459. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  460.  
  461. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  462. BEGIN
  463. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  464. END
  465. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  466.  
  467. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  468. BEGIN
  469. SET @Result = @Result + '; ID. of the Means of Transport: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  470. END
  471. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  472.  
  473. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  474. BEGIN
  475. SET @Result = @Result + '; Nationality of Means of Transport, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  476. END
  477. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  478.  
  479. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  480. BEGIN
  481. SET @Result = @Result + '; Transport Ownership, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  482. END
  483. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  484. --TDT SEGMENT <<<<<<<<<<
  485. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  486. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  487. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  488. END
  489.  
  490. IF @TheNextSegment = 'LOC'
  491. BEGIN
  492. SET @Result = @Result + ';;PLACE/LOCATION ID (LOC)'
  493. --LOC SEGMENT >>>>>>>>>>
  494. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  495. BEGIN
  496. IF dbo.EDIFACT_G_READELEMENT(@TheLine) = '14'
  497. BEGIN
  498. SET @Result = @Result + '; Place/Location Qualifier: Location of Goods'
  499. END
  500. ELSE IF dbo.EDIFACT_G_READELEMENT(@TheLine) = '22'
  501. BEGIN
  502. SET @Result = @Result + '; Place/Location Qualifier: Customs Office of Clearance'
  503. END
  504. ELSE
  505. BEGIN
  506. SET @Result = @Result + '; Place/Location Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  507. END
  508. END
  509. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  510.  
  511. IF @OCCHolder = 'A'
  512. BEGIN
  513. SET @TempHolder = dbo.EDIFACT_G_READELEMENT(@TheLine)
  514. IF ((SELECT COUNT(*) FROM SARS_District_Office_Codes WITH (NOLOCK) WHERE Code = @TempHolder) = 1)
  515. BEGIN
  516. SET @Result = @Result + '; Alphabetic District Office Code/Place of Entry: ' + (SELECT Description FROM SARS_District_Office_Codes WITH (NOLOCK) WHERE Code = @TempHolder)
  517. END
  518. ELSE
  519. BEGIN
  520. IF (@TempHolder <> '')
  521. BEGIN
  522. SET @Result = @Result + '; Alphabetic District Office Code/Place of Entry: ' + @TempHolder
  523. END
  524. END
  525. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  526. END
  527. ELSE IF @OCCHolder = 'B'
  528. BEGIN
  529. SET @TempHolder = dbo.EDIFACT_G_READELEMENT(@TheLine)
  530. IF ((SELECT COUNT(*) FROM SARS_Depot_Codes WITH (NOLOCK) WHERE Code = @TempHolder) = 1)
  531. BEGIN
  532. SET @Result = @Result + '; Depot/Terminal Code: ' + (SELECT Description FROM SARS_Depot_Codes WITH (NOLOCK) WHERE Code = @TempHolder)
  533. END
  534. ELSE
  535. BEGIN
  536. IF (@TempHolder <> '')
  537. BEGIN
  538. SET @Result = @Result + '; Depot/Terminal Code: ' + @TempHolder
  539. END
  540. END
  541. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  542. END
  543.  
  544. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  545. BEGIN
  546. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  547. END
  548. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  549.  
  550. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  551. BEGIN
  552. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) = 'ZZZ')
  553. BEGIN
  554. SET @Result = @Result + '; Code List Responsible Agency, Coded: South African Revenue Service'
  555. END
  556. ELSE
  557. BEGIN
  558. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  559. END
  560. END
  561. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  562.  
  563. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  564. BEGIN
  565. SET @Result = @Result + '; Place/Location: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  566. END
  567. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  568.  
  569. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  570. BEGIN
  571. SET @Result = @Result + '; Related Place/Location One ID: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  572. END
  573. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  574.  
  575. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  576. BEGIN
  577. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  578. END
  579. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  580.  
  581. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  582. BEGIN
  583. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  584. END
  585. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  586.  
  587. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  588. BEGIN
  589. SET @Result = @Result + '; Related Place/Location One: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  590. END
  591. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  592.  
  593. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  594. BEGIN
  595. SET @Result = @Result + '; Related Place/Location Two Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  596. END
  597. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  598.  
  599. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  600. BEGIN
  601. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  602. END
  603. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  604.  
  605. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  606. BEGIN
  607. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  608. END
  609. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  610.  
  611. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  612. BEGIN
  613. SET @Result = @Result + '; Related Place/Location Two: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  614. END
  615. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  616.  
  617. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  618. BEGIN
  619. SET @Result = @Result + '; Relation, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  620. END
  621. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  622. --LOC SEGMENT <<<<<<<<<<
  623. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  624. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  625. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  626. END
  627. print(@TheNextSegment)
  628. IF @TheNextSegment = 'GIS'
  629. BEGIN
  630. SET @Result = @Result + ';;GENERAL INDICATOR (GIS)'
  631. --GIS SEGMENT >>>>>>>>>>
  632. print(@TempHolder)
  633. SET @TempHolder = dbo.EDIFACT_G_READELEMENT(@TheLine)
  634. print(@TempHolder)
  635. IF ((SELECT COUNT(*) FROM SARS_Customs_Status_Codes WITH (NOLOCK) WHERE Code = @TempHolder) = 1)
  636. BEGIN
  637.  
  638. DECLARE @SARS_Customs_Status_Code_ID INT
  639. SELECT @SARS_Customs_Status_Code_ID = SARS_Customs_Status_Code_ID FROM SARS_Customs_Status_Codes WHERE Code = @TempHolder
  640.  
  641. IF (@TempHolder <> 33 AND @TempHolder <> 34)
  642. BEGIN
  643. SET @Result = @Result + '; Processing Indicator, Coded: ' + (SELECT Description FROM SARS_Customs_Status_Codes WITH (NOLOCK) WHERE Code = @TempHolder)
  644. --EXTRACT SARS_Customs_Status_Codes INFORMATION HERE--
  645. UPDATE dbo.SARS_SAD_Headers
  646. SET CUSRES_Code = @TempHolder
  647. WHERE SARS_SAD_Header_ID = @HeaderID
  648.  
  649. --Updates the Is_Release field to indicate that the response is a release file
  650. IF @TempHolder = 1
  651. BEGIN
  652. UPDATE dbo.SARS_SAD_Headers
  653. SET Is_Release = 'Y'
  654. WHERE SARS_SAD_Header_ID = @HeaderID
  655. END
  656. ELSE
  657. BEGIN
  658. UPDATE dbo.SARS_SAD_Headers
  659. SET Is_Release = 'N'
  660. WHERE SARS_SAD_Header_ID = @HeaderID
  661. END
  662.  
  663. --DECLARE @SARS_Customs_Status_Code_ID INT
  664. --SELECT @SARS_Customs_Status_Code_ID = SARS_Customs_Status_Code_ID FROM SARS_Customs_Status_Codes WHERE Code = @TempHolder
  665. select 'here'
  666. --Update the status on the DocsSAD500 table
  667. IF @TempHolder IN (6, 9)
  668. BEGIN
  669. UPDATE DocsSAD500 SET SARS_PA_Status_Code = 'F', SARS_Date_SARS_Reply = GETDATE(), SARS_Customs_Status_Code_ID = @SARS_Customs_Status_Code_ID WHERE SARS_SAD_Header_ID = @HeaderID
  670. END
  671. ELSE IF @TempHolder IN (13,31,35)
  672. BEGIN
  673. UPDATE DocsSAD500 SET SARS_PA_Status_Code = 'D', SARS_Date_SARS_Reply = GETDATE(), SARS_Customs_Status_Code_ID = @SARS_Customs_Status_Code_ID WHERE SARS_SAD_Header_ID = @HeaderID
  674. END
  675. ELSE IF @TempHolder IN (25, 26)
  676. BEGIN
  677. UPDATE DocsSAD500 SET SARS_PA_Status_Code = 'Z', SARS_Date_SARS_Reply = GETDATE(), SARS_Customs_Status_Code_ID = @SARS_Customs_Status_Code_ID WHERE SARS_SAD_Header_ID = @HeaderID
  678. END
  679. ELSE IF @TempHolder = 27
  680. BEGIN
  681. UPDATE DocsSAD500 SET SARS_PA_Status_Code = 'G', SARS_Date_SARS_Reply = GETDATE(), SARS_Customs_Status_Code_ID = @SARS_Customs_Status_Code_ID WHERE SARS_SAD_Header_ID = @HeaderID
  682. END
  683. ELSE IF @TempHolder = 33
  684. BEGIN
  685. UPDATE DocsSAD500 SET SARS_PA_Status_Code = 'E', SARS_Date_SARS_Reply = GETDATE(), SARS_Customs_Status_Code_ID = @SARS_Customs_Status_Code_ID WHERE SARS_SAD_Header_ID = @HeaderID
  686. END
  687. ELSE IF @TempHolder = 1
  688. BEGIN
  689. UPDATE DocsSAD500 SET SARS_PA_Status_Code = 'S', SARS_Date_SARS_Reply = GETDATE(), SARS_Customs_Status_Code_ID = @SARS_Customs_Status_Code_ID WHERE SARS_SAD_Header_ID = @HeaderID
  690. END
  691. ELSE IF @TempHolder = 39
  692. BEGIN
  693. UPDATE DocsSAD500 SET SARS_PA_Status_Code = 'R', SARS_Date_SARS_Reply = GETDATE(), SARS_Customs_Status_Code_ID = @SARS_Customs_Status_Code_ID WHERE SARS_SAD_Header_ID = @HeaderID
  694. END
  695. ELSE
  696. BEGIN
  697. UPDATE DocsSAD500 SET SARS_PA_Status_Code = 'C', SARS_Date_SARS_Reply = GETDATE(), SARS_Customs_Status_Code_ID = @SARS_Customs_Status_Code_ID WHERE SARS_SAD_Header_ID = @HeaderID
  698. END
  699. END
  700. ELSE
  701. BEGIN
  702. SET @GIS = @TempHolder
  703. UPDATE DocsSAD500 SET SARS_Customs_Status_Code_ID = @SARS_Customs_Status_Code_ID
  704. END
  705. END
  706. ELSE
  707. BEGIN
  708. IF (@TempHolder <> '')
  709. BEGIN
  710. SET @Result = @Result + '; Processing Indicator, Coded: ' + @TempHolder
  711. END
  712. END
  713. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  714.  
  715. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  716. BEGIN
  717. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) = '120')
  718. BEGIN
  719. SET @Result = @Result + '; Code List Qualifier: Customs Status of Goods'
  720. END
  721. ELSE
  722. BEGIN
  723. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  724. END
  725. END
  726. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  727.  
  728. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  729. BEGIN
  730. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) = 'ZZZ')
  731. BEGIN
  732. SET @Result = @Result + '; Code List Responsible Agency, Coded: South African Revenue Service'
  733. END
  734. ELSE
  735. BEGIN
  736. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  737. END
  738. END
  739. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  740.  
  741. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  742. BEGIN
  743. SET @Result = @Result + '; Process Type Identification: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  744. END
  745. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  746. --GIS SEGMENT <<<<<<<<<<
  747. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  748. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  749. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  750. END
  751.  
  752. IF @TheNextSegment = 'EQD'
  753. BEGIN
  754. SET @Result = @Result + ';;EQUIPMENT DETAILS (EQD)'
  755. --EQD SEGMENT >>>>>>>>>>
  756. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  757. BEGIN
  758. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) = 'CN')
  759. BEGIN
  760. SET @Result = @Result + '; Equipment Qualifier: Container'
  761. END
  762. ELSE
  763. BEGIN
  764. SET @Result = @Result + '; Equipment Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  765. END
  766. END
  767. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  768.  
  769. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  770. BEGIN
  771. SET @Result = @Result + '; Equipment Identification Number: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  772. END
  773. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  774.  
  775. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  776. BEGIN
  777. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  778. END
  779. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  780.  
  781. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  782. BEGIN
  783. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  784. END
  785. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  786.  
  787. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  788. BEGIN
  789. SET @Result = @Result + '; Country, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  790. END
  791. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  792.  
  793. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  794. BEGIN
  795. SET @Result = @Result + '; Equipment Size and Type Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  796. END
  797. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  798.  
  799. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  800. BEGIN
  801. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  802. END
  803. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  804.  
  805. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  806. BEGIN
  807. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  808. END
  809. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  810.  
  811. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  812. BEGIN
  813. SET @Result = @Result + '; Equipment Size and Type: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  814. END
  815. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  816.  
  817. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  818. BEGIN
  819. SET @Result = @Result + '; Equipment Supplier, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  820. END
  821. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  822.  
  823. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  824. BEGIN
  825. SET @Result = @Result + '; Equipment Status, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  826. END
  827. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  828.  
  829. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  830. BEGIN
  831. SET @Result = @Result + '; Full/Empty Indicator, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  832. END
  833. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  834. --EQD SEGMENT <<<<<<<<<<
  835. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  836. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  837. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  838. END
  839.  
  840. --START OF GROUP 1
  841. WHILE @TheNextSegment = 'NAD'
  842. BEGIN
  843. SET @Result = @Result + ';;NAME AND ADDRESS (NAD)'
  844. --NAD SEGMENT >>>>>>>>>>
  845. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  846. BEGIN
  847. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) = 'AG')
  848. BEGIN
  849. SET @Result = @Result + '; Party Qualifier: Agent/Representative'
  850. END
  851. ELSE
  852. BEGIN
  853. SET @Result = @Result + '; Party Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  854. END
  855. END
  856. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  857.  
  858. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  859. BEGIN
  860. SET @Result = @Result + '; Party ID. Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  861. END
  862. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  863.  
  864. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  865. BEGIN
  866. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  867. END
  868. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  869.  
  870. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  871. BEGIN
  872. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  873. END
  874. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  875.  
  876. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  877. BEGIN
  878. SET @Result = @Result + '; Name and Address Line: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  879. END
  880. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  881.  
  882. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  883. BEGIN
  884. SET @Result = @Result + '; Name and Address Line: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  885. END
  886. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  887.  
  888. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  889. BEGIN
  890. SET @Result = @Result + '; Name and Address Line: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  891. END
  892. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  893.  
  894. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  895. BEGIN
  896. SET @Result = @Result + '; Name and Address Line: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  897. END
  898. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  899.  
  900. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  901. BEGIN
  902. SET @Result = @Result + '; Name and Address Line: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  903. END
  904. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  905.  
  906. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  907. BEGIN
  908. SET @Result = @Result + '; Party Name: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  909. END
  910. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  911.  
  912. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  913. BEGIN
  914. SET @Result = @Result + '; Party Name: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  915. END
  916. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  917.  
  918. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  919. BEGIN
  920. SET @Result = @Result + '; Party Name: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  921. END
  922. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  923.  
  924. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  925. BEGIN
  926. SET @Result = @Result + '; Party Name: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  927. END
  928. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  929.  
  930. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  931. BEGIN
  932. SET @Result = @Result + '; Party Name: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  933. END
  934. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  935.  
  936. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  937. BEGIN
  938. SET @Result = @Result + '; Party Name Format, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  939. END
  940. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  941.  
  942. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  943. BEGIN
  944. SET @Result = @Result + '; Street and Number/P.O. Box: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  945. END
  946. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  947.  
  948. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  949. BEGIN
  950. SET @Result = @Result + '; Street and Number/P.O. Box: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  951. END
  952. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  953.  
  954. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  955. BEGIN
  956. SET @Result = @Result + '; Street and Number/P.O. Box: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  957. END
  958. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  959.  
  960. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  961. BEGIN
  962. SET @Result = @Result + '; Street and Number/P.O. Box: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  963. END
  964. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  965.  
  966. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  967. BEGIN
  968. SET @Result = @Result + '; City Name: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  969. END
  970. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  971.  
  972. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  973. BEGIN
  974. SET @Result = @Result + '; Country Sub-Entity Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  975. END
  976. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  977.  
  978. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  979. BEGIN
  980. SET @Result = @Result + '; Postcode Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  981. END
  982. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  983.  
  984. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  985. BEGIN
  986. SET @Result = @Result + '; Country, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  987. END
  988. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  989. --NAD SEGMENT <<<<<<<<<<
  990. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  991. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  992. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  993. END
  994. --END OF GROUP 1
  995.  
  996. --START OF GROUP 3
  997. WHILE @TheNextSegment = 'RFF'
  998. BEGIN
  999. SET @Result = @Result + ';;REFERENCE (RFF)'
  1000. --RFF SEGMENT >>>>>>>>>>
  1001. SET @TempHolder = dbo.EDIFACT_G_READELEMENT(@TheLine)
  1002. IF @TempHolder = 'BH'
  1003. BEGIN
  1004. SET @Result = @Result + '; Reference Qualifier: House Bill of Lading Number'
  1005. SET @OCCHolder = 'A';
  1006. END
  1007. ELSE IF @TempHolder = 'AAS'
  1008. BEGIN
  1009. SET @Result = @Result + '; Reference Qualifier: Transport Document Number'
  1010. SET @OCCHolder = 'B';
  1011. END
  1012. ELSE IF @TempHolder = 'AFM'
  1013. BEGIN
  1014. SET @Result = @Result + '; Reference Qualifier: Secondary Customs Reference'
  1015. SET @OCCHolder = 'C';
  1016. END
  1017. ELSE IF @TempHolder = 'ABT'
  1018. BEGIN
  1019. SET @Result = @Result + '; Reference Qualifier: Customs Declaration Number'
  1020. SET @OCCHolder = 'D';
  1021. END
  1022. ELSE IF @TempHolder = 'UCN'
  1023. BEGIN
  1024. SET @Result = @Result + '; Reference Qualifier: Unique Consignment Number'
  1025. SET @OCCHolder = 'E';
  1026. END
  1027. /***********************************************************************************/
  1028. ELSE IF @TempHolder = 'AAV'
  1029. BEGIN
  1030. SET @Result = @Result + '; Reference Qualifier: Case Number'
  1031. SET @OCCHolder = 'F';
  1032. END
  1033. /***********************************************************************************/
  1034. ELSE
  1035. BEGIN
  1036. IF (@TempHolder <> '')
  1037. BEGIN
  1038. SET @Result = @Result + '; Reference Qualifier: ' + @TempHolder
  1039. SET @OCCHolder = '';
  1040. END
  1041. END
  1042. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1043.  
  1044. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1045. BEGIN
  1046. IF @OCCHolder = 'A'
  1047. BEGIN
  1048. SET @Result = @Result + '; House Waybill Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1049. END
  1050. ELSE IF @OCCHolder = 'B'
  1051. BEGIN
  1052. SET @Result = @Result + '; Transport Document No: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1053. END
  1054. ELSE IF @OCCHolder = 'C'
  1055. BEGIN
  1056. SET @Result = @Result + '; Registration Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1057. END
  1058. ELSE IF @OCCHolder = 'D'
  1059. BEGIN
  1060. SET @Result = @Result + '; Final Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1061. --Update the MDN on the Header
  1062. print 'Update SARS_SAD_HEADERS'
  1063. print dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1064. print ''
  1065. UPDATE dbo.SARS_SAD_Headers
  1066. SET Date_Edited = GETDATE(), Original_MRN = dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1067. WHERE SARS_SAD_Header_ID = @HeaderID
  1068.  
  1069. print 'Update SARS_SAD_HEADERS'
  1070. print @HeaderID
  1071. print @TempHolder
  1072. print ''
  1073. --Update the DocsSAD500 table with the MDN (UCR)
  1074. UPDATE DocsSAD500 SET SARS_RefNo = dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1075. WHERE SARS_SAD_Header_ID = @HeaderID
  1076.  
  1077. --Update the CommercialInvoice table with the MDN (UNC)
  1078. UPDATE CommercialInvoice SET SARS_BOE_No = dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1079. WHERE CommercialID IN
  1080. (SELECT MK_ComInvID
  1081. FROM dbo.SARS_SAD_Headers WITH (NOLOCK)
  1082. WHERE SARS_SAD_Header_ID = @HeaderID)
  1083. END
  1084. ELSE IF @OCCHolder = 'E'
  1085. BEGIN
  1086. SET @Result = @Result + '; UCR (Unique Consignment Reference): ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1087. END
  1088. /***********************************************************************************/
  1089. ELSE IF @OCCHolder = 'F'
  1090. BEGIN
  1091. SET @Result = @Result + '; Case Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1092. UPDATE DocsSAD500 SET SARS_CaseNo = dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1093. WHERE SARS_SAD_Header_ID = @HeaderID
  1094. END
  1095. /***********************************************************************************/
  1096. ELSE
  1097. BEGIN
  1098. SET @Result = @Result + '; Reference Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1099. END
  1100. END
  1101. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1102.  
  1103. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1104. BEGIN
  1105. SET @Result = @Result + '; Line Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1106. END
  1107. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1108.  
  1109. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1110. BEGIN
  1111. SET @Result = @Result + '; Reference Version Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1112. END
  1113. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1114. --RFF SEGMENT <<<<<<<<<<
  1115.  
  1116. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  1117. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  1118. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  1119. IF @TheNextSegment = 'DTM'
  1120. BEGIN
  1121. SET @Result = @Result + ';;DATE/TIME/PERIOD (DTM)'
  1122. --DTM SEGMENT >>>>>>>>>>
  1123. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1124. BEGIN
  1125. SET @Result = @Result + '; Date/Time/Period Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1126. END
  1127. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1128.  
  1129. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1130. BEGIN
  1131. IF @OCCHolder = 'A'
  1132. BEGIN
  1133. SET @Result = @Result + '; House Waybill Date: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1134. END
  1135. ELSE IF @OCCHolder = 'B'
  1136. BEGIN
  1137. SET @Result = @Result + '; Transport Document Date: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1138. --EXTRACT the Final Date and populate the header--
  1139. UPDATE SARS_SAD_Headers SET Date_Edited = GETDATE(), Transport_Document_Date = dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1140. WHERE SARS_SAD_Header_ID = @HeaderID
  1141. END
  1142. ELSE IF @OCCHolder = 'C'
  1143. BEGIN
  1144. SET @Result = @Result + '; Registration Date: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1145. END
  1146. ELSE IF @OCCHolder = 'D'
  1147. BEGIN
  1148. SET @Result = @Result + '; Final Date: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1149. --EXTRACT the Final Date and populate the header--
  1150. UPDATE SARS_SAD_Headers SET Date_Edited = GETDATE(), Assessment_Date = dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1151. WHERE SARS_SAD_Header_ID = @HeaderID
  1152. END
  1153. ELSE IF @OCCHolder = 'E'
  1154. BEGIN
  1155. SET @Result = @Result + '; Unique Consignment Date: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1156. END
  1157. ELSE
  1158. BEGIN
  1159. SET @Result = @Result + '; Date/Time/Period: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1160. END
  1161. END
  1162. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1163.  
  1164. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1165. BEGIN
  1166. SET @Result = @Result + '; Date/Time/Period Format Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1167. END
  1168. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1169. --DTM SEGMENT <<<<<<<<<<
  1170. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  1171. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  1172. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  1173. END
  1174. END
  1175. --END OF GROUP 3
  1176.  
  1177. --START OF GROUP 4
  1178. WHILE @TheNextSegment = 'ERP'
  1179. BEGIN
  1180. SET @Result = @Result + ';;ERROR POINT DETAILS (ERP)'
  1181. --ERP SEGMENT >>>>>>>>>>
  1182. SET @TempHolder = dbo.EDIFACT_G_READELEMENT(@TheLine)
  1183. IF @TempHolder = '1'
  1184. BEGIN
  1185. SET @Result = @Result + '; Message Section, Coded: Heading Section'
  1186. END
  1187. ELSE IF @TempHolder = '2'
  1188. BEGIN
  1189. SET @Result = @Result + '; Message Section, Coded: Details Section'
  1190. END
  1191. ELSE IF @TempHolder = '6'
  1192. BEGIN
  1193. SET @Result = @Result + '; Message Section, Coded: Summary Section'
  1194. END
  1195. ELSE
  1196. BEGIN
  1197. IF (@TempHolder <> '')
  1198. BEGIN
  1199. SET @Result = @Result + '; Message Section, Coded: ' + @TempHolder
  1200. END
  1201. END
  1202. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1203.  
  1204. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1205. BEGIN
  1206. SET @Result = @Result + '; Message Item Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1207. END
  1208. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1209.  
  1210. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1211. BEGIN
  1212. SET @Result = @Result + '; Message Sub-Item Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1213. END
  1214. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1215.  
  1216. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1217. BEGIN
  1218. SET @Result = @Result + '; Segment Tag: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1219. END
  1220. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1221.  
  1222. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1223. BEGIN
  1224. SET @Result = @Result + '; Sequence Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1225. END
  1226. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1227.  
  1228. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1229. BEGIN
  1230. SET @Result = @Result + '; Sequence Number Source, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1231. END
  1232. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1233. --ERP SEGMENT <<<<<<<<<<
  1234.  
  1235. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  1236. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  1237. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  1238. IF @TheNextSegment = 'ERC'
  1239. BEGIN
  1240. SET @Result = @Result + ';;APPLICATION ERROR INFO (ERC)'
  1241. --ERC SEGMENT >>>>>>>>>>
  1242. SET @TempHolder = dbo.EDIFACT_G_READELEMENT(@TheLine)
  1243. IF ((SELECT COUNT(*) FROM SARS_Syntax_Error_Codes WITH (NOLOCK) WHERE Code = @TempHolder) = 1)
  1244. BEGIN
  1245. SET @Result = @Result + '; Application Error Identification: ' + (SELECT Code_Name FROM SARS_Syntax_Error_Codes WITH (NOLOCK) WHERE Code = @TempHolder)
  1246. END
  1247. ELSE
  1248. BEGIN
  1249. IF (@TempHolder <> '')
  1250. BEGIN
  1251. SET @Result = @Result + '; Application Error Identification: ' + @TempHolder
  1252. END
  1253. END
  1254. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1255.  
  1256. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1257. BEGIN
  1258. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1259. END
  1260. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1261.  
  1262. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1263. BEGIN
  1264. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) = 'ZZZ')
  1265. BEGIN
  1266. SET @Result = @Result + '; Code List Responsible Agency, Coded: Container'
  1267. END
  1268. ELSE
  1269. BEGIN
  1270. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1271. END
  1272. END
  1273. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1274. --ERC SEGMENT <<<<<<<<<<
  1275. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  1276. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  1277. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  1278. END
  1279.  
  1280. IF @TheNextSegment = 'FTX'
  1281. BEGIN
  1282. SET @Result = @Result + ';;FREE TEXT (FTX)'
  1283. --FTX SEGMENT >>>>>>>>>>
  1284. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1285. BEGIN
  1286. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) = 'AAO')
  1287. BEGIN
  1288. SET @Result = @Result + '; Text Subject Qualifier: Error Description'
  1289. END
  1290. ELSE
  1291. BEGIN
  1292. SET @Result = @Result + '; Text Subject Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1293. END
  1294. END
  1295. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1296.  
  1297. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1298. BEGIN
  1299. SET @Result = @Result + '; Text Function, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1300. END
  1301. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1302.  
  1303. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1304. BEGIN
  1305. SET @Result = @Result + '; Free Text Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1306. END
  1307. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1308.  
  1309. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1310. BEGIN
  1311. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1312. END
  1313. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1314.  
  1315. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1316. BEGIN
  1317. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1318. END
  1319. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1320.  
  1321. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1322. BEGIN
  1323. IF @GIS = 33
  1324. BEGIN
  1325. UPDATE SARS_DocUploadFiles SET CUSRESName = @FileName WHERE Token = dbo.EDIFACT_G_READELEMENT(@TheLine)
  1326. END
  1327. SET @Result = @Result + '; Free Text: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1328. END
  1329. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1330.  
  1331. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1332. BEGIN
  1333. SET @Result = @Result + '; Free Text: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1334. END
  1335. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1336.  
  1337. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1338. BEGIN
  1339. SET @Result = @Result + '; Free Text: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1340. END
  1341. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1342.  
  1343. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1344. BEGIN
  1345. SET @Result = @Result + '; Free Text: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1346. END
  1347. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1348.  
  1349. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1350. BEGIN
  1351. SET @Result = @Result + '; Free Text: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1352. END
  1353. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1354.  
  1355. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1356. BEGIN
  1357. SET @Result = @Result + '; Language, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1358. END
  1359. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1360. --FTX SEGMENT <<<<<<<<<<
  1361. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  1362. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  1363. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  1364. END
  1365. END
  1366. --END OF GROUP 4
  1367.  
  1368. --START OF GROUP 5
  1369. WHILE @TheNextSegment = 'TAX'
  1370. BEGIN
  1371. SET @Result = @Result + ';;DUTY/TAX/FEE DETAILS (TAX)'
  1372. --TAX SEGMENT >>>>>>>>>>
  1373. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1374. BEGIN
  1375. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) = '3')
  1376. BEGIN
  1377. SET @Result = @Result + '; Duty/Tax/Fee Function Qualifier: Total of each Duty, Tax or Fee'
  1378. END
  1379. ELSE
  1380. BEGIN
  1381. SET @Result = @Result + '; Duty/Tax/Fee Function Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1382. END
  1383. END
  1384. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1385.  
  1386. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1387. BEGIN
  1388. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) = 'CUS')
  1389. BEGIN
  1390. SET @Result = @Result + '; Duty/Tax/Fee Type, Coded: Customs Value'
  1391. END
  1392. ELSE
  1393. BEGIN
  1394. SET @Result = @Result + '; Duty/Tax/Fee Type, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1395. END
  1396. END
  1397. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1398.  
  1399. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1400. BEGIN
  1401. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) = '107')
  1402. BEGIN
  1403. SET @Result = @Result + '; Code List Qualifier: Excise Duty'
  1404. END
  1405. ELSE
  1406. BEGIN
  1407. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1408. END
  1409. END
  1410. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1411.  
  1412. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1413. BEGIN
  1414. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) = 'ZZZ')
  1415. BEGIN
  1416. SET @Result = @Result + '; Code List Responsible Agency, Coded: South African Revenue Service'
  1417. END
  1418. ELSE
  1419. BEGIN
  1420. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1421. END
  1422. END
  1423. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1424.  
  1425. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1426. BEGIN
  1427. SET @Result = @Result + '; Duty/Tax/Fee Type: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1428. END
  1429. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1430.  
  1431. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1432. BEGIN
  1433. SET @Result = @Result + '; Duty/Tax/Fee Account Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1434. END
  1435. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1436.  
  1437. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1438. BEGIN
  1439. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1440. END
  1441. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1442.  
  1443. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1444. BEGIN
  1445. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1446. END
  1447. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1448.  
  1449. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1450. BEGIN
  1451. SET @Result = @Result + '; Duty/Tax/Fee Assessment Basis: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1452. END
  1453. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1454.  
  1455. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1456. BEGIN
  1457. SET @Result = @Result + '; Duty/Tax/Fee Rate Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1458. END
  1459. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1460.  
  1461. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1462. BEGIN
  1463. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1464. END
  1465. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1466.  
  1467. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1468. BEGIN
  1469. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1470. END
  1471. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1472.  
  1473. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1474. BEGIN
  1475. SET @Result = @Result + '; Duty/Tax/Fee Rate: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1476. END
  1477. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1478.  
  1479. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1480. BEGIN
  1481. SET @Result = @Result + '; Duty/Tax/Fee Rate Basis Identification: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1482. END
  1483. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1484.  
  1485. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1486. BEGIN
  1487. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1488. END
  1489. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1490.  
  1491. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1492. BEGIN
  1493. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1494. END
  1495. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1496.  
  1497. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1498. BEGIN
  1499. SET @Result = @Result + '; Duty/Tax/Fee Category, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1500. END
  1501. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1502.  
  1503. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1504. BEGIN
  1505. SET @Result = @Result + '; Party Tax Identification Number: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1506. END
  1507. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1508. --TAX SEGMENT <<<<<<<<<<
  1509.  
  1510. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  1511. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  1512. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  1513. IF @TheNextSegment = 'MOA'
  1514. BEGIN
  1515. SET @Result = @Result + ';;MONETARY AMOUNT (MOA)'
  1516. --MOA SEGMENT >>>>>>>>>>
  1517. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1518. BEGIN
  1519. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) = '161')
  1520. BEGIN
  1521. SET @Result = @Result + '; Monetary Amount Type Qualifier: Duty, Tax or Fee Amount'
  1522. END
  1523. ELSE
  1524. BEGIN
  1525. SET @Result = @Result + '; Monetary Amount Type Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1526. END
  1527. END
  1528. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1529.  
  1530. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1531. BEGIN
  1532. SET @Result = @Result + '; Monetary Amount: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1533. END
  1534. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1535.  
  1536. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1537. BEGIN
  1538. SET @Result = @Result + '; Currency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1539. END
  1540. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1541.  
  1542. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1543. BEGIN
  1544. SET @Result = @Result + '; Currency Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1545. END
  1546. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1547.  
  1548. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1549. BEGIN
  1550. SET @Result = @Result + '; Status, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1551. END
  1552. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1553. --MOA SEGMENT <<<<<<<<<<
  1554. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  1555. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  1556. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  1557. END
  1558. END
  1559. --END OF GROUP 5
  1560.  
  1561. --START OF GROUP 6
  1562. WHILE @TheNextSegment = 'DOC'
  1563. BEGIN
  1564. SET @Result = @Result + ';;DOCUMENT/MSG DETAILS (DOC)'
  1565. --DOC SEGMENT >>>>>>>>>>
  1566. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1567. BEGIN
  1568. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) = '911')
  1569. BEGIN
  1570. SET @Result = @Result + '; Document/Message Name, Coded: Import License'
  1571. END
  1572. ELSE
  1573. BEGIN
  1574. SET @Result = @Result + '; Document/Message Name, Coded: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1575. END
  1576. END
  1577. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1578.  
  1579. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1580. BEGIN
  1581. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1582. END
  1583. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1584.  
  1585. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1586. BEGIN
  1587. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1588. END
  1589. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1590.  
  1591. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1592. BEGIN
  1593. SET @Result = @Result + '; Document/Message Name: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1594. END
  1595. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1596.  
  1597. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1598. BEGIN
  1599. SET @Result = @Result + '; Import Permit Number: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1600. END
  1601. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1602.  
  1603. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1604. BEGIN
  1605. SET @Result = @Result + '; Document/Message Status, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1606. END
  1607. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1608.  
  1609. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1610. BEGIN
  1611. SET @Result = @Result + '; Document/Message Source: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1612. END
  1613. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1614.  
  1615. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1616. BEGIN
  1617. SET @Result = @Result + '; Language, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1618. END
  1619. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1620.  
  1621. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1622. BEGIN
  1623. SET @Result = @Result + '; Communication Channel Identifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1624. END
  1625. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1626.  
  1627. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1628. BEGIN
  1629. SET @Result = @Result + '; Number of Copies of Document: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1630. END
  1631. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1632.  
  1633. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1634. BEGIN
  1635. SET @Result = @Result + '; Number of Originals of Document: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1636. END
  1637. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1638. --DOC SEGMENT <<<<<<<<<<
  1639.  
  1640. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  1641. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  1642. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  1643. IF @TheNextSegment = 'MEA'
  1644. BEGIN
  1645. SET @Result = @Result + ';;MEASUREMENTS (MEA)'
  1646. --MEA SEGMENT >>>>>>>>>>
  1647. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1648. BEGIN
  1649. IF @OCCHolder = 'A'
  1650. BEGIN
  1651. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) = 'AAR')
  1652. BEGIN
  1653. SET @Result = @Result + '; Measurement Application Qualifier: 1st Specified Tariff Quantity'
  1654. END
  1655. ELSE
  1656. BEGIN
  1657. SET @Result = @Result + '; Measurement Application Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1658. END
  1659. END
  1660. ELSE IF @OCCHolder = 'B'
  1661. BEGIN
  1662. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) = 'AAK')
  1663. BEGIN
  1664. SET @Result = @Result + '; Measurement Application Qualifier: License (Quantity Deducted)'
  1665. END
  1666. ELSE
  1667. BEGIN
  1668. SET @Result = @Result + '; Measurement Application Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1669. END
  1670. END
  1671. ELSE
  1672. BEGIN
  1673. SET @Result = @Result + '; Measurement Application Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1674. END
  1675. END
  1676. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1677.  
  1678. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1679. BEGIN
  1680. SET @Result = @Result + '; Measurement Dimension, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1681. END
  1682. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1683.  
  1684. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1685. BEGIN
  1686. SET @Result = @Result + '; Measurement Significance, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1687. END
  1688. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1689.  
  1690. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1691. BEGIN
  1692. SET @Result = @Result + '; Measurement Attribute Identification: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1693. END
  1694. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1695.  
  1696. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1697. BEGIN
  1698. SET @Result = @Result + '; Measurement Attribute: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1699. END
  1700. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1701.  
  1702. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1703. BEGIN
  1704. IF @OCCHolder = 'A'
  1705. BEGIN
  1706. SET @TempHolder = dbo.EDIFACT_G_READELEMENT(@TheLine)
  1707. IF ((SELECT COUNT(*) FROM SARS_Countable_Quantities WITH (NOLOCK) WHERE Code = @TempHolder) = 1)
  1708. BEGIN
  1709. SET @Result = @Result + '; Code: ' + (SELECT Description FROM SARS_Countable_Quantities WITH (NOLOCK) WHERE Code = @TempHolder)
  1710. END
  1711. ELSE
  1712. BEGIN
  1713. IF (@TempHolder <> '')
  1714. BEGIN
  1715. SET @Result = @Result + '; Code: ' + @TempHolder
  1716. END
  1717. END
  1718. END
  1719. ELSE IF @OCCHolder = 'B'
  1720. BEGIN
  1721. SET @TempHolder = dbo.EDIFACT_G_READELEMENT(@TheLine)
  1722. IF ((SELECT COUNT(*) FROM SARS_Countable_Quantities WITH (NOLOCK) WHERE Code = @TempHolder) = 1)
  1723. BEGIN
  1724. SET @Result = @Result + '; Permit Balance - Code: ' + (SELECT Description FROM SARS_Countable_Quantities WITH (NOLOCK) WHERE Code = @TempHolder)
  1725. END
  1726. ELSE
  1727. BEGIN
  1728. IF (@TempHolder <> '')
  1729. BEGIN
  1730. SET @Result = @Result + '; Permit Balance - Code: ' + @TempHolder
  1731. END
  1732. END
  1733. END
  1734. ELSE
  1735. BEGIN
  1736. SET @Result = @Result + '; Measure Unit Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1737. END
  1738. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1739. END
  1740.  
  1741. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1742. BEGIN
  1743. IF @OCCHolder = 'A'
  1744. BEGIN
  1745. SET @Result = @Result + '; Quantity Deducted: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1746. END
  1747. ELSE IF @OCCHolder = 'B'
  1748. BEGIN
  1749. SET @Result = @Result + '; Permit Balance - Outstanding Quantity: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1750. END
  1751. ELSE
  1752. BEGIN
  1753. SET @Result = @Result + '; Measurement Value: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1754. END
  1755. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1756. END
  1757.  
  1758. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1759. BEGIN
  1760. SET @Result = @Result + '; Range Minimum: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1761. END
  1762. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1763.  
  1764. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1765. BEGIN
  1766. SET @Result = @Result + '; Range Maximum: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1767. END
  1768. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1769.  
  1770. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1771. BEGIN
  1772. SET @Result = @Result + '; Significant Digits: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1773. END
  1774. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1775.  
  1776. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1777. BEGIN
  1778. SET @Result = @Result + '; Surface/Layer Indicator, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1779. END
  1780. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1781. --MEA SEGMENT <<<<<<<<<<
  1782. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  1783. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  1784. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  1785.  
  1786. --START OF GROUP 9
  1787. WHILE @TheNextSegment = 'MOA'
  1788. BEGIN
  1789. SET @Result = @Result + ';;NAME AND ADDRESS (MOA)'
  1790. --MOA SEGMENT >>>>>>>>>>
  1791. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1792. BEGIN
  1793. IF @OCCHolder = 'A'
  1794. BEGIN
  1795. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) = '40')
  1796. BEGIN
  1797. SET @Result = @Result + '; Monetary Amount Type Qualifier: Customs value'
  1798. END
  1799. ELSE
  1800. BEGIN
  1801. SET @Result = @Result + '; Monetary Amount Type Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1802. END
  1803. END
  1804. ELSE IF @OCCHolder = 'B'
  1805. BEGIN
  1806. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) = '263')
  1807. BEGIN
  1808. SET @Result = @Result + '; Monetary Amount Type Qualifier: Outstanding Amount'
  1809. END
  1810. ELSE
  1811. BEGIN
  1812. SET @Result = @Result + '; Monetary Amount Type Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1813. END
  1814. END
  1815. ELSE
  1816. BEGIN
  1817. SET @Result = @Result + '; Monetary Amount Type Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1818. END
  1819. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1820. END
  1821.  
  1822. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1823. BEGIN
  1824. IF @OCCHolder = 'A'
  1825. BEGIN
  1826. SET @Result = @Result + '; Customs/Excise Value: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1827. END
  1828. ELSE IF @OCCHolder = 'B'
  1829. BEGIN
  1830. SET @Result = @Result + '; Outstanding Customs Value on Permit: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1831. END
  1832. ELSE
  1833. BEGIN
  1834. SET @Result = @Result + '; Monetary Amount: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1835. END
  1836. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1837. END
  1838.  
  1839. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1840. BEGIN
  1841. SET @Result = @Result + '; Currency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1842. END
  1843. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1844.  
  1845. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1846. BEGIN
  1847. SET @Result = @Result + '; Currency Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1848. END
  1849. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1850.  
  1851. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1852. BEGIN
  1853. SET @Result = @Result + '; Status, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1854. END
  1855. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1856. --MOA SEGMENT <<<<<<<<<<
  1857. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  1858. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  1859. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  1860. END
  1861. --END OF GROUP 9
  1862.  
  1863. --START OF GROUP 11
  1864. WHILE @TheNextSegment = 'CST'
  1865. BEGIN
  1866. SET @Result = @Result + ';;CUSTOMS STATUS OF GOODS (CST)'
  1867. --CST SEGMENT >>>>>>>>>>
  1868. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1869. BEGIN
  1870. SET @Result = @Result + '; Goods Item Number: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1871. END
  1872. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1873.  
  1874. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1875. BEGIN
  1876. SET @Result = @Result + '; Customs Code Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1877. END
  1878. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1879.  
  1880. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) = '108')
  1881. BEGIN
  1882. SET @Result = @Result + '; Code List Qualifier: Tariff schedule'
  1883. END
  1884. ELSE
  1885. BEGIN
  1886. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1887. END
  1888. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1889.  
  1890. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) = 'ZZZ')
  1891. BEGIN
  1892. SET @Result = @Result + '; Code List Responsible Agency, Coded: South African Revenue Service'
  1893. END
  1894. ELSE
  1895. BEGIN
  1896. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1897. END
  1898. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1899.  
  1900. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1901. BEGIN
  1902. SET @Result = @Result + '; Customs Code Identification: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1903. END
  1904. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1905.  
  1906. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1907. BEGIN
  1908. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1909. END
  1910. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1911.  
  1912. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1913. BEGIN
  1914. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1915. END
  1916. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1917.  
  1918. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1919. BEGIN
  1920. SET @Result = @Result + '; Customs Code Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1921. END
  1922. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1923.  
  1924. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1925. BEGIN
  1926. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1927. END
  1928. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1929.  
  1930. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1931. BEGIN
  1932. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1933. END
  1934. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1935.  
  1936. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1937. BEGIN
  1938. SET @Result = @Result + '; Customs Code Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1939. END
  1940. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1941.  
  1942. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1943. BEGIN
  1944. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1945. END
  1946. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1947.  
  1948. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1949. BEGIN
  1950. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1951. END
  1952. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1953.  
  1954. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1955. BEGIN
  1956. SET @Result = @Result + '; Customs Code Identification: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1957. END
  1958. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  1959.  
  1960. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1961. BEGIN
  1962. SET @Result = @Result + '; Code List Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1963. END
  1964. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1965.  
  1966. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  1967. BEGIN
  1968. SET @Result = @Result + '; Code List Responsible Agency, Coded: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  1969. END
  1970. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  1971. --CST SEGMENT <<<<<<<<<<
  1972. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  1973. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  1974. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  1975. END
  1976. --END OF GROUP 11
  1977. END
  1978. END
  1979.  
  1980. IF @TheNextSegment = 'CNT'
  1981. BEGIN
  1982. SET @Result = @Result + ';;CONTROL TOTAL (CNT)'
  1983. --CNT SEGMENT >>>>>>>>>>
  1984. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  1985. BEGIN
  1986. IF @OCCHolder = 'A'
  1987. BEGIN
  1988. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) = '11')
  1989. BEGIN
  1990. SET @Result = @Result + '; Control Qualifier: Total Number of Packages'
  1991. END
  1992. ELSE
  1993. BEGIN
  1994. SET @Result = @Result + '; Control Qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  1995. END
  1996. END
  1997. ELSE
  1998. BEGIN
  1999. SET @Result = @Result + '; Control qualifier: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  2000. END
  2001. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  2002. END
  2003.  
  2004. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  2005. BEGIN
  2006. IF @OCCHolder = 'A'
  2007. BEGIN
  2008. SET @Result = @Result + '; No. of Packages: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  2009. END
  2010. ELSE
  2011. BEGIN
  2012. SET @Result = @Result + '; Control Value: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  2013. END
  2014. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  2015. END
  2016.  
  2017. IF (dbo.EDIFACT_G_READCOMELEMENT(@TheLine) <> '')
  2018. BEGIN
  2019. SET @Result = @Result + '; Measure Unit Qualifier: ' + dbo.EDIFACT_G_READCOMELEMENT(@TheLine)
  2020. END
  2021. SET @TheLine = dbo.EDIFACT_G_DELETECOMELEMENT(@TheLine)
  2022. --CNT SEGMENT <<<<<<<<<<
  2023. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  2024. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  2025. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  2026. END
  2027.  
  2028. IF @TheNextSegment = 'UNT'
  2029. BEGIN
  2030. SET @Result = @Result + ';;MESSAGE TRAILER (UNT)'
  2031. --UNT SEGMENT >>>>>>>>>>
  2032. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  2033. BEGIN
  2034. SET @Result = @Result + '; No of Segments In The Message: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  2035. END
  2036. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  2037.  
  2038. IF (dbo.EDIFACT_G_READELEMENT(@TheLine) <> '')
  2039. BEGIN
  2040. SET @Result = @Result + '; Message Reference Number: ' + dbo.EDIFACT_G_READELEMENT(@TheLine)
  2041. END
  2042. SET @TheLine = dbo.EDIFACT_G_DELETEELEMENT(@TheLine)
  2043. --UNT SEGMENT <<<<<<<<<<
  2044. SET @TheLine = dbo.EDIFACT_G_DELETETERMINATOR(@TheLine)
  2045. SET @TheNextSegment = dbo.EDIFACT_G_READSEGMENT(@TheLine)
  2046. SET @TheLine = dbo.EDIFACT_G_DELETESEGMENT(@TheLine)
  2047. END
  2048.  
  2049. END
  2050. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!