Module

fSignItem

Path

C:\CPRS\CPRS30\fSignItem.pas

Last Modified

7/15/2014 3:26:38 PM

Units Used in Interface

Name Comments
fBase508Form -
rCore -

Classes

Name Comments
TfrmSignItem -

Procedures

Name Owner Declaration Scope Comments
cmdCancelClick TfrmSignItem procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick TfrmSignItem procedure cmdOKClick(Sender: TObject); Public/Published -
SignatureForItem - procedure SignatureForItem(FontSize: Integer; const AText, ACaption: string; var ESCode: string); Interfaced -

Constants

Name Declaration Scope Comments
TX_INVAL_CAP 'Unrecognized Signature Code' Global -
TX_INVAL_MSG 'Not a valid electronic signature code. Enter a valid code or press Cancel.' Global -


Module Source

1     unit fSignItem;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       StdCtrls, ORFn, rCore, Hash, ORCtrls, fBase508Form, VA508AccessibilityManager;
8     
9     type
10      TfrmSignItem = class(TfrmBase508Form)
11        txtESCode: TCaptionEdit;
12        lblESCode: TLabel;
13        cmdOK: TButton;
14        cmdCancel: TButton;
15        lblText: TMemo;
16        procedure cmdOKClick(Sender: TObject);
17        procedure cmdCancelClick(Sender: TObject);
18      private
19        FESCode: string;
20      public
21        { Public declarations }
22      end;
23    
24    procedure SignatureForItem(FontSize: Integer; const AText, ACaption: string; var ESCode: string);
25    
26    implementation
27    
28    {$R *.DFM}
29    
30    const
31      TX_INVAL_MSG = 'Not a valid electronic signature code.  Enter a valid code or press Cancel.';
32      TX_INVAL_CAP = 'Unrecognized Signature Code';
33    
34    procedure SignatureForItem(FontSize: Integer; const AText, ACaption: string; var ESCode: string);
35    var
36      frmSignItem: TfrmSignItem;
37    begin
38      frmSignItem := TfrmSignItem.Create(Application);
39      try
40        ResizeAnchoredFormToFont(frmSignItem);
41        with frmSignItem do
42        begin
43          FESCode := '';
44          Caption := ACaption;
45          lblText.Text := AText;
46          ShowModal;
47          ESCode := FESCode;
48        end;
49      finally
50        frmSignItem.Release;
51      end;
52    end;
53    
54    procedure TfrmSignItem.cmdOKClick(Sender: TObject);
55    begin
56      if not ValidESCode(txtESCode.Text) then
57      begin
58        InfoBox(TX_INVAL_MSG, TX_INVAL_CAP, MB_OK);
59        txtESCode.SetFocus;
60        txtESCode.SelectAll;
61        Exit;
62      end;
63      FESCode := Encrypt(txtESCode.Text);
64      Close;
65    end;
66    
67    procedure TfrmSignItem.cmdCancelClick(Sender: TObject);
68    begin
69      FESCode := '';
70      Close;
71    end;
72    
73    end.

Module Calls (2 levels)


fSignItem
 ├rCore
 │ └uCore
 └fBase508Form
   ├uConst
   └uHelpManager

Module Called-By (2 levels)


          fSignItem
           fNotes┤ 
         fFrame┤ │ 
     fPrintList┤ │ 
    fNoteSTStop┤ │ 
      fConsults┤ │ 
fReminderDialog┤ │ 
        fReview┘ │ 
     fConsults...┤ 
          fDCSumm┤ 
      fFrame...┤ │ 
  fPrintList...┤ │ 
     fReview...┤ │ 
   fAddlSigners┘ │ 
       fReview...┤ 
         fSurgery┤ 
      fFrame...┤ │ 
     fReview...┘ │ 
   fOrdersRelease┘ 
        fOrders┘