```pascal
// Block Type: FC
// Block Name (Original): GNS PLCdia MainRoutine
// Block Number: 2410
// Original Network Languages: LAD
// Block Comment:
//   (c) by SIDEL
//   Name       : General Safety: PLC Diagnostic: Main Call
//   Description:
//    Function: General Safeties 
//    Module  : PLC Diagnostic 
//    - Options Main Call
//   --------------------------------------------------------------------------------

FUNCTION "GNS_PLCdia_MainRoutine" : Void
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1

BEGIN

  // Network 1: Option: Profinet-IO Node Diagnostic (Original Language: LAD)

  IF "AUX FALSE" THEN
    GNS_PLCdia_Profinet();
  END_IF;

  // Network 2: Option: Profibus DP Node Diagnostic (Original Language: LAD)

  GNS_PLCdia_Profibus();

  // Network 3: PROFIBUS NETWORK FAULT (Original Language: LAD)

  "SFM Profibus" := "PNetF" OR "PBusF";

  "HMI_Alarms"."Fault"."Alarm049" := "PNetF" OR "PBusF";

END_FUNCTION

```