@jwikman/bc-code-intelligence-mcp 1.5.7-dev.1

package/embedded-knowledge/domains/dean-debug/samples/extension-isolation.md

@@ -0,0 +1,344 @@
+# Extension Telemetry Isolation Implementation - AL Code Samples
+
+## Extension-Specific Telemetry Architecture
+```al
+codeunit 50150 "Extension Telemetry Manager"
+{
+    var
+        ExtensionIdentifier: Text;
+        ExtensionVersion: Text;
+        ExtensionPublisher: Text;
+        TelemetryPrefix: Text;
+
+    trigger OnRun()
+    begin
+        InitializeExtensionTelemetry();
+    end;
+
+    // Example 1: Extension isolation initialization
+    local procedure InitializeExtensionTelemetry()
+    var
+        ModuleInfo: ModuleInfo;
+    begin
+        NavApp.GetCurrentModuleInfo(ModuleInfo);
+        ExtensionIdentifier := Format(ModuleInfo.Id);
+        ExtensionVersion := Format(ModuleInfo.AppVersion);
+        ExtensionPublisher := ModuleInfo.Publisher;
+        
+        // Create unique telemetry prefix for this extension
+        TelemetryPrefix := 'EXT_' + ModuleInfo.Name.Replace(' ', '') + '_';
+        
+        LogExtensionInitialization();
+    end;
+
+    local procedure LogExtensionInitialization()
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+    begin
+        CustomDimensions := BuildExtensionBaseDimensions();
+        CustomDimensions.Add('EventType', 'ExtensionInitialization');
+        CustomDimensions.Add('InitializationTime', Format(CurrentDateTime, 0, 9));
+        
+        Session.LogMessage(GetExtensionEventId('INIT001'), 
+            StrSubstNo('Extension %1 telemetry initialized', ExtensionIdentifier),
+            Verbosity::Normal, DataClassification::SystemMetadata,
+            TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+
+    // Example 2: Isolated extension event logging
+    procedure LogExtensionEvent(EventCategory: Text; EventName: Text; EventData: Dictionary of [Text, Text])
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+        EventId: Text;
+    begin
+        CustomDimensions := BuildExtensionBaseDimensions();
+        CustomDimensions.Add('EventCategory', EventCategory);
+        CustomDimensions.Add('EventName', EventName);
+        
+        // Add extension-specific event data
+        AddEventDataToDimensions(CustomDimensions, EventData);
+        
+        EventId := GetExtensionEventId(EventCategory + '_' + EventName);
+        
+        Session.LogMessage(EventId, StrSubstNo('Extension event: %1.%2', EventCategory, EventName),
+            GetEventVerbosity(EventCategory), DataClassification::SystemMetadata,
+            TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+
+    // Example 3: Extension error isolation
+    procedure LogExtensionError(ErrorContext: Text; ErrorMessage: Text; ErrorCode: Text)
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+    begin
+        CustomDimensions := BuildExtensionBaseDimensions();
+        CustomDimensions.Add('EventType', 'ExtensionError');
+        CustomDimensions.Add('ErrorContext', ErrorContext);
+        CustomDimensions.Add('ErrorMessage', ErrorMessage);
+        CustomDimensions.Add('ErrorCode', ErrorCode);
+        CustomDimensions.Add('CallStack', GetExtensionCallStack());
+        
+        Session.LogMessage(GetExtensionEventId('ERROR_' + ErrorCode),
+            StrSubstNo('Extension error in %1: %2', ErrorContext, ErrorMessage),
+            Verbosity::Error, DataClassification::SystemMetadata,
+            TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+
+    local procedure BuildExtensionBaseDimensions(): Dictionary of [Text, Text]
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+    begin
+        CustomDimensions.Add('ExtensionId', ExtensionIdentifier);
+        CustomDimensions.Add('ExtensionVersion', ExtensionVersion);
+        CustomDimensions.Add('ExtensionPublisher', ExtensionPublisher);
+        CustomDimensions.Add('CompanyName', CompanyName());
+        CustomDimensions.Add('UserID', UserId());
+        CustomDimensions.Add('SessionId', Format(SessionId()));
+        CustomDimensions.Add('TelemetryTimestamp', Format(CurrentDateTime, 0, 9));
+        
+        exit(CustomDimensions);
+    end;
+
+    local procedure GetExtensionEventId(EventSuffix: Text): Text
+    begin
+        exit(TelemetryPrefix + EventSuffix);
+    end;
+
+    local procedure GetEventVerbosity(EventCategory: Text): Verbosity
+    begin
+        case EventCategory of
+            'Error': exit(Verbosity::Error);
+            'Warning': exit(Verbosity::Warning);
+            'Performance': exit(Verbosity::Normal);
+            'Debug': exit(Verbosity::Verbose);
+            else exit(Verbosity::Normal);
+        end;
+    end;
+
+    local procedure AddEventDataToDimensions(var CustomDimensions: Dictionary of [Text, Text]; EventData: Dictionary of [Text, Text])
+    var
+        Key: Text;
+    begin
+        foreach Key in EventData.Keys do
+            CustomDimensions.Add('EventData_' + Key, EventData.Get(Key));
+    end;
+
+    local procedure GetExtensionCallStack(): Text
+    begin
+        // Implement call stack capture for extension context
+        exit('Extension call stack not available');
+    end;
+}
+```
+
+## Cross-Extension Interaction Tracking
+```al
+codeunit 50151 "Cross Extension Telemetry"
+{
+    // Example 4: Inter-extension communication tracking
+    procedure LogExtensionInteraction(TargetExtension: Text; InteractionType: Text; InteractionData: Dictionary of [Text, Text])
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+        SourceExtension: Text;
+        ModuleInfo: ModuleInfo;
+    begin
+        NavApp.GetCurrentModuleInfo(ModuleInfo);
+        SourceExtension := Format(ModuleInfo.Id);
+        
+        CustomDimensions.Add('SourceExtension', SourceExtension);
+        CustomDimensions.Add('TargetExtension', TargetExtension);
+        CustomDimensions.Add('InteractionType', InteractionType);
+        CustomDimensions.Add('EventType', 'ExtensionInteraction');
+        
+        AddInteractionDataToDimensions(CustomDimensions, InteractionData);
+        
+        Session.LogMessage('EXTINT_' + InteractionType,
+            StrSubstNo('Extension interaction: %1 -> %2 (%3)', SourceExtension, TargetExtension, InteractionType),
+            Verbosity::Normal, DataClassification::SystemMetadata,
+            TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+
+    // Example 5: Extension API usage tracking
+    procedure LogExtensionAPIUsage(APIEndpoint: Text; APIOperation: Text; ClientExtension: Text; UsageMetrics: Dictionary of [Text, Text])
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+        ProviderExtension: Text;
+        ModuleInfo: ModuleInfo;
+    begin
+        NavApp.GetCurrentModuleInfo(ModuleInfo);
+        ProviderExtension := Format(ModuleInfo.Id);
+        
+        CustomDimensions.Add('ProviderExtension', ProviderExtension);
+        CustomDimensions.Add('ClientExtension', ClientExtension);
+        CustomDimensions.Add('APIEndpoint', APIEndpoint);
+        CustomDimensions.Add('APIOperation', APIOperation);
+        CustomDimensions.Add('EventType', 'ExtensionAPIUsage');
+        
+        AddUsageMetricsToDimensions(CustomDimensions, UsageMetrics);
+        
+        Session.LogMessage('EXTAPI_' + APIOperation,
+            StrSubstNo('Extension API usage: %1.%2 by %3', APIEndpoint, APIOperation, ClientExtension),
+            Verbosity::Normal, DataClassification::SystemMetadata,
+            TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+
+    // Example 6: Extension feature usage tracking
+    procedure LogExtensionFeatureUsage(FeatureName: Text; UsageType: Text; FeatureData: Dictionary of [Text, Text])
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+        ModuleInfo: ModuleInfo;
+    begin
+        NavApp.GetCurrentModuleInfo(ModuleInfo);
+        
+        CustomDimensions.Add('ExtensionId', Format(ModuleInfo.Id));
+        CustomDimensions.Add('FeatureName', FeatureName);
+        CustomDimensions.Add('UsageType', UsageType);
+        CustomDimensions.Add('EventType', 'ExtensionFeatureUsage');
+        CustomDimensions.Add('UserID', UserId());
+        CustomDimensions.Add('CompanyName', CompanyName());
+        
+        AddFeatureDataToDimensions(CustomDimensions, FeatureData);
+        
+        Session.LogMessage('EXTFEAT_' + FeatureName,
+            StrSubstNo('Extension feature usage: %1 (%2)', FeatureName, UsageType),
+            Verbosity::Normal, DataClassification::SystemMetadata,
+            TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+
+    local procedure AddInteractionDataToDimensions(var CustomDimensions: Dictionary of [Text, Text]; InteractionData: Dictionary of [Text, Text])
+    var
+        Key: Text;
+    begin
+        foreach Key in InteractionData.Keys do
+            CustomDimensions.Add('Interaction_' + Key, InteractionData.Get(Key));
+    end;
+
+    local procedure AddUsageMetricsToDimensions(var CustomDimensions: Dictionary of [Text, Text]; UsageMetrics: Dictionary of [Text, Text])
+    var
+        Key: Text;
+    begin
+        foreach Key in UsageMetrics.Keys do
+            CustomDimensions.Add('Metric_' + Key, UsageMetrics.Get(Key));
+    end;
+
+    local procedure AddFeatureDataToDimensions(var CustomDimensions: Dictionary of [Text, Text]; FeatureData: Dictionary of [Text, Text])
+    var
+        Key: Text;
+    begin
+        foreach Key in FeatureData.Keys do
+            CustomDimensions.Add('Feature_' + Key, FeatureData.Get(Key));
+    end;
+}
+```
+
+## Extension Configuration and Lifecycle
+```al
+codeunit 50152 "Extension Lifecycle Telemetry"
+{
+    // Example 7: Extension lifecycle event tracking
+    procedure LogExtensionLifecycleEvent(LifecycleEvent: Text; EventContext: Dictionary of [Text, Text])
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+        ModuleInfo: ModuleInfo;
+    begin
+        NavApp.GetCurrentModuleInfo(ModuleInfo);
+        
+        CustomDimensions.Add('ExtensionId', Format(ModuleInfo.Id));
+        CustomDimensions.Add('ExtensionName', ModuleInfo.Name);
+        CustomDimensions.Add('ExtensionPublisher', ModuleInfo.Publisher);
+        CustomDimensions.Add('ExtensionVersion', Format(ModuleInfo.AppVersion));
+        CustomDimensions.Add('LifecycleEvent', LifecycleEvent);
+        CustomDimensions.Add('EventType', 'ExtensionLifecycle');
+        
+        AddEventContextToDimensions(CustomDimensions, EventContext);
+        
+        Session.LogMessage('EXTLIFE_' + LifecycleEvent,
+            StrSubstNo('Extension lifecycle event: %1 for %2', LifecycleEvent, ModuleInfo.Name),
+            GetLifecycleVerbosity(LifecycleEvent), DataClassification::SystemMetadata,
+            TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+
+    // Example 8: Extension configuration tracking
+    procedure LogExtensionConfiguration(ConfigurationArea: Text; ConfigurationChange: Text; ConfigurationData: Dictionary of [Text, Text])
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+        ModuleInfo: ModuleInfo;
+    begin
+        NavApp.GetCurrentModuleInfo(ModuleInfo);
+        
+        CustomDimensions.Add('ExtensionId', Format(ModuleInfo.Id));
+        CustomDimensions.Add('ConfigurationArea', ConfigurationArea);
+        CustomDimensions.Add('ConfigurationChange', ConfigurationChange);
+        CustomDimensions.Add('EventType', 'ExtensionConfiguration');
+        CustomDimensions.Add('UserID', UserId());
+        CustomDimensions.Add('ConfigurationTime', Format(CurrentDateTime, 0, 9));
+        
+        AddConfigurationDataToDimensions(CustomDimensions, ConfigurationData);
+        
+        Session.LogMessage('EXTCONF_' + ConfigurationArea,
+            StrSubstNo('Extension configuration: %1 - %2', ConfigurationArea, ConfigurationChange),
+            Verbosity::Normal, DataClassification::SystemMetadata,
+            TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+
+    // Example 9: Multi-tenant extension isolation
+    procedure LogTenantSpecificEvent(EventName: Text; TenantContext: Text; EventData: Dictionary of [Text, Text])
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+        ModuleInfo: ModuleInfo;
+    begin
+        NavApp.GetCurrentModuleInfo(ModuleInfo);
+        
+        CustomDimensions.Add('ExtensionId', Format(ModuleInfo.Id));
+        CustomDimensions.Add('TenantId', TenantId());
+        CustomDimensions.Add('CompanyName', CompanyName());
+        CustomDimensions.Add('TenantContext', TenantContext);
+        CustomDimensions.Add('EventName', EventName);
+        CustomDimensions.Add('EventType', 'TenantSpecificEvent');
+        
+        AddTenantEventDataToDimensions(CustomDimensions, EventData);
+        
+        Session.LogMessage('EXTTENANT_' + EventName,
+            StrSubstNo('Tenant-specific extension event: %1 (Tenant: %2)', EventName, TenantId()),
+            Verbosity::Normal, DataClassification::SystemMetadata,
+            TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+
+    local procedure GetLifecycleVerbosity(LifecycleEvent: Text): Verbosity
+    begin
+        case LifecycleEvent of
+            'Install', 'Uninstall', 'Upgrade':
+                exit(Verbosity::Critical); // Important lifecycle events
+            'Configuration', 'FeatureEnabled':
+                exit(Verbosity::Warning);
+            'Startup', 'Shutdown':
+                exit(Verbosity::Normal);
+            else
+                exit(Verbosity::Verbose);
+        end;
+    end;
+
+    local procedure AddEventContextToDimensions(var CustomDimensions: Dictionary of [Text, Text]; EventContext: Dictionary of [Text, Text])
+    var
+        Key: Text;
+    begin
+        foreach Key in EventContext.Keys do
+            CustomDimensions.Add('Context_' + Key, EventContext.Get(Key));
+    end;
+
+    local procedure AddConfigurationDataToDimensions(var CustomDimensions: Dictionary of [Text, Text]; ConfigurationData: Dictionary of [Text, Text])
+    var
+        Key: Text;
+    begin
+        foreach Key in ConfigurationData.Keys do
+            CustomDimensions.Add('Config_' + Key, ConfigurationData.Get(Key));
+    end;
+
+    local procedure AddTenantEventDataToDimensions(var CustomDimensions: Dictionary of [Text, Text]; EventData: Dictionary of [Text, Text])
+    var
+        Key: Text;
+    begin
+        foreach Key in EventData.Keys do
+            CustomDimensions.Add('TenantData_' + Key, EventData.Get(Key));
+    end;
+}
+```

package/embedded-knowledge/domains/dean-debug/samples/logmessage-methods.md

@@ -0,0 +1,137 @@
+# BC Session LogMessage API Usage Patterns - AL Code Samples
+
+## Basic LogMessage Implementation
+```al
+codeunit 50100 "Telemetry Logger Examples"
+{
+    // Example 1: Basic information logging
+    procedure LogBasicInformation()
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+    begin
+        CustomDimensions.Add('Operation', 'CustomerCreation');
+        CustomDimensions.Add('UserID', UserId());
+        
+        Session.LogMessage('0001', 'Customer creation initiated', Verbosity::Normal, 
+            DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+
+    // Example 2: Error logging with context
+    procedure LogErrorWithContext(ErrorMessage: Text; SourceTable: Text; RecordID: Text)
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+    begin
+        CustomDimensions.Add('ErrorSource', 'DataValidation');
+        CustomDimensions.Add('TableName', SourceTable);
+        CustomDimensions.Add('RecordID', RecordID);
+        CustomDimensions.Add('CompanyName', CompanyName());
+        
+        Session.LogMessage('0002', ErrorMessage, Verbosity::Error, 
+            DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+
+    // Example 3: Performance timing logging
+    procedure LogPerformanceMetrics(OperationName: Text; DurationMs: Integer; RecordCount: Integer)
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+    begin
+        CustomDimensions.Add('Operation', OperationName);
+        CustomDimensions.Add('DurationMs', Format(DurationMs));
+        CustomDimensions.Add('RecordCount', Format(RecordCount));
+        CustomDimensions.Add('Category', 'Performance');
+        
+        Session.LogMessage('0003', 'Performance metric captured', Verbosity::Normal,
+            DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+}
+```
+
+## Advanced LogMessage Patterns
+```al
+codeunit 50101 "Advanced Telemetry Patterns"
+{
+    // Example 4: Transaction-aware logging
+    procedure LogTransactionOperation(TransactionID: Text; OperationType: Text; Status: Text)
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+    begin
+        CustomDimensions.Add('TransactionID', TransactionID);
+        CustomDimensions.Add('OperationType', OperationType);
+        CustomDimensions.Add('Status', Status);
+        CustomDimensions.Add('Timestamp', Format(CurrentDateTime, 0, '<Year4>-<Month,2>-<Day,2>T<Hours24>:<Minutes,2>:<Seconds,2>'));
+        
+        Session.LogMessage('0004', StrSubstNo('Transaction %1 %2: %3', OperationType, TransactionID, Status),
+            Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+
+    // Example 5: Conditional verbose logging
+    procedure LogDetailedOperation(OperationDetails: Text; IsVerbose: Boolean)
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+        LogVerbosity: Verbosity;
+    begin
+        CustomDimensions.Add('DetailLevel', 'Extended');
+        CustomDimensions.Add('Source', 'BusinessLogic');
+        
+        if IsVerbose then
+            LogVerbosity := Verbosity::Verbose
+        else
+            LogVerbosity := Verbosity::Normal;
+            
+        Session.LogMessage('0005', OperationDetails, LogVerbosity,
+            DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+
+    // Example 6: Structured logging with multiple dimensions
+    procedure LogStructuredEvent(EventName: Text; EventData: Dictionary of [Text, Text])
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+        DataKey: Text;
+    begin
+        CustomDimensions.Add('EventName', EventName);
+        CustomDimensions.Add('EventID', CreateGuid());
+        
+        // Merge additional event data into custom dimensions
+        foreach DataKey in EventData.Keys do
+            CustomDimensions.Add('Data_' + DataKey, EventData.Get(DataKey));
+            
+        Session.LogMessage('0006', StrSubstNo('Structured event: %1', EventName), Verbosity::Normal,
+            DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+}
+```
+
+## Integration with BC Events
+```al
+codeunit 50102 "Event-Driven Telemetry"
+{
+    // Example 7: Document posting telemetry
+    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Sales-Post", 'OnAfterPostSalesDoc', '', false, false)]
+    local procedure OnAfterPostSalesDoc(var SalesHeader: Record "Sales Header"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; SalesShptHdrNo: Code[20])
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+    begin
+        CustomDimensions.Add('DocumentType', Format(SalesHeader."Document Type"));
+        CustomDimensions.Add('DocumentNo', SalesHeader."No.");
+        CustomDimensions.Add('CustomerNo', SalesHeader."Sell-to Customer No.");
+        CustomDimensions.Add('Amount', Format(SalesHeader."Amount Including VAT"));
+        
+        Session.LogMessage('0007', 'Sales document posted successfully', Verbosity::Normal,
+            DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+
+    // Example 8: Error event telemetry
+    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Sales-Post", 'OnBeforePostSalesDoc', '', false, false)]
+    local procedure OnBeforePostSalesDoc(var SalesHeader: Record "Sales Header")
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+    begin
+        CustomDimensions.Add('DocumentType', Format(SalesHeader."Document Type"));
+        CustomDimensions.Add('DocumentNo', SalesHeader."No.");
+        CustomDimensions.Add('ValidationStage', 'PrePosting');
+        
+        Session.LogMessage('0008', 'Sales document posting initiated', Verbosity::Verbose,
+            DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, CustomDimensions);
+    end;
+}
+```