bc-code-intelligence-mcp 1.3.3 → 1.3.4

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

@@ -1,344 +0,0 @@
-# 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

@@ -1,137 +0,0 @@
-# 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;
-}
-```