test

 

SET QRImagePath TO $'''C:\\Users\\usree\\Downloads\\patient_qr.png'''

Scripting.RunPowershellScript.RunScript Script: $'''$img = \'%QRImagePath%\'

$json = (& curl.exe -s -F \"file=@$img\" https://api.qrserver.com/v1/read-qr-code/) -join \'\'

$data = ($json | ConvertFrom-Json)[0].symbol[0].data

$lines = ($data -split \'\\r?\\n\') | Where-Object { $_.Trim() -ne \'\' }

$rows = $lines | Select-Object -Skip 1

$rows -join \"`r`n\"''' ScriptOutput=> PowershellOutput

Display.ShowMessageDialog.ShowMessage Message: PowershellOutput Icon: Display.Icon.None Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed2

Variables.CreateNewDatatable InputTable: { ^['FirstName', 'FamilyName', 'Name', 'VisitIs', 'Sex', 'DateOfBirth2', 'DateOfBirth'], [$'''''', $'''''', $'''''', $'''''', $'''''', $'''''', $''''''] } DataTable=> PatientsTable

Variables.DeleteRowFromDataTable DataTable: PatientsTable RowIndex: 0

Text.SplitText.Split Text: PowershellOutput StandardDelimiter: Text.StandardDelimiter.NewLine DelimiterTimes: 1 Result=> TextList

LOOP FOREACH CurrentItem IN TextList

IF Contains(CurrentItem, $''',''', False) THEN

Text.SplitText.SplitWithDelimiter Text: CurrentItem CustomDelimiter: $''',''' IsRegEx: False Result=> TextList2

Variables.AddRowToDataTable.AppendRowToDataTable DataTable: PatientsTable RowToAdd: TextList2

END

END

Display.ShowMessageDialog.ShowMessage Title: $'''Patient Records from QR Code''' Message: PatientsTable Icon: Display.Icon.None Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed

===

SET QRImagePath TO $'''C:\\Users\\usree\\Downloads\\patient_qr.png'''

Scripting.RunPowershellScript.RunScript Script: $'''$img = \'%QRImagePath%\'

$json = (& curl.exe -s -F \"file=@$img\" https://api.qrserver.com/v1/read-qr-code/) -join \'\'

$data = ($json | ConvertFrom-Json)[0].symbol[0].data

$lines = ($data -split \'\\r?\\n\') | Where-Object { $_.Trim() -ne \'\' }

$rows = $lines | Select-Object -Skip 1

$rows -join \"`r`n\"''' ScriptOutput=> PowershellOutput

Display.ShowMessageDialog.ShowMessage Message: PowershellOutput Icon: Display.Icon.None Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed2

Variables.CreateNewDatatable InputTable: { ^['FirstName', 'FamilyName', 'Name', 'VisitIs', 'Sex', 'DateOfBirth2', 'DateOfBirth'], [$'''''', $'''''', $'''''', $'''''', $'''''', $'''''', $''''''] } DataTable=> PatientsTable

Variables.DeleteRowFromDataTable DataTable: PatientsTable RowIndex: 0

Text.SplitText.Split Text: PowershellOutput StandardDelimiter: Text.StandardDelimiter.NewLine DelimiterTimes: 1 Result=> TextList

LOOP FOREACH CurrentItem IN TextList

    IF Contains(CurrentItem, $''',''', False) THEN

        Text.SplitText.SplitWithDelimiter Text: CurrentItem CustomDelimiter: $''',''' IsRegEx: False Result=> TextList2

        Variables.AddRowToDataTable.AppendRowToDataTable DataTable: PatientsTable RowToAdd: TextList2

    END

END

Display.ShowMessageDialog.ShowMessage Title: $'''Patient Records from QR Code''' Message: PatientsTable Icon: Display.Icon.None Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed

===