3. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/2/2017 7:18:07 AM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

3.1 Files compared

# Location File Last Modified
1 CAPRI_CIF.zip\CAPRI_CIF\Source demTranMain.dfm Wed Nov 1 18:09:26 2017 UTC
2 CAPRI_CIF.zip\CAPRI_CIF\Source demTranMain.dfm Wed Nov 1 19:05:26 2017 UTC

3.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 1358
Changed 1 2
Inserted 0 0
Removed 0 0

3.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

3.4 Active regular expressions

No regular expressions were active.

3.5 Comparison detail

  1   object frm CntrctdExm Main: Tfrm CntrctdExm Main
  2     Left = 0
  3     Top = 0
  4     HelpCont ext = 7000
  5     Caption  = 'CAPRI C ontract Re ferral (CC R)'
  6     ClientHe ight = 597
  7     ClientWi dth = 619
  8     Color =  clBtnFace
  9     Font.Cha rset = DEF AULT_CHARS ET
  10     Font.Col or = clWin dowText
  11     Font.Hei ght = -11
  12     Font.Nam e = 'Tahom a'
  13     Font.Sty le = []
  14     Menu = m nuMain
  15     OldCreat eOrder = F alse
  16     Position  = poScree nCenter
  17     OnActiva te = FormA ctivate
  18     OnClose  = FormClos e
  19     OnCloseQ uery = For mCloseQuer y
  20     OnCreate  = FormCre ate
  21     OnDestro y = FormDe stroy
  22     OnShow =  FormShow
  23     DesignSi ze = (
  24       619
  25       597)
  26     PixelsPe rInch = 96
  27     TextHeig ht = 13
  28     object G roupBox1:  TGroupBox
  29       Left =  8
  30       Top =  8
  31       Width  = 606
  32       Height  = 93
  33       Anchor s = [akLef t, akTop,  akRight]
  34       Captio n = '&Pati ent'
  35       TabOrd er = 0
  36       TabSto p = True
  37       Design Size = (
  38         606
  39         93)
  40       object  btnSlctPt nt: TButto n
  41         Left  = 499
  42         Top  = 23
  43         Widt h = 91
  44         Heig ht = 25
  45         Hint  = 'Select  a patient '
  46         Anch ors = [akT op, akRigh t]
  47         Capt ion = 'Sel ect Patien t'
  48         Pare ntShowHint  = False
  49         Show Hint = Tru e
  50         TabO rder = 3
  51         Visi ble = Fals e
  52         OnCl ick = btnS lctPtntCli ck
  53       end
  54       object  btnSimula teVLERResu lts: TButt on
  55         Left  = 381
  56         Top  = 26
  57         Widt h = 96
  58         Heig ht = 20
  59         Capt ion = 'btn SimulateVL ERResults'
  60         TabO rder = 4
  61         Visi ble = Fals e
  62         OnCl ick = btnS imulateVLE RResultsCl ick
  63       end
  64       object  lblPtntNm e: TLabele dEdit
  65         Left  = 48
  66         Top  = 26
  67         Widt h = 186
  68         Heig ht = 20
  69         Bord erStyle =  bsNone
  70         Edit Label.Widt h = 27
  71         Edit Label.Heig ht = 13
  72         Edit Label.Capt ion = 'Nam e'
  73         Font .Charset =  DEFAULT_C HARSET
  74         Font .Color = c lWindowTex t
  75         Font .Height =  -13
  76         Font .Name = 'T ahoma'
  77         Font .Style = [ fsBold]
  78         Pare ntColor =  True
  79         Pare ntFont = F alse
  80         Read Only = Tru e
  81         TabO rder = 0
  82         Text  = 'Patien tLast, Pat ientFirst  MI.'
  83         OnEn ter = lblP tntNmeEnte r
  84       end
  85       object  lblSSN: T LabeledEdi t
  86         Left  = 48
  87         Top  = 65
  88         Widt h = 74
  89         Heig ht = 17
  90         Bord erStyle =  bsNone
  91         Edit Label.Widt h = 19
  92         Edit Label.Heig ht = 13
  93         Edit Label.Capt ion = 'SSN '
  94         Pare ntColor =  True
  95         Read Only = Tru e
  96         TabO rder = 1
  97         Text  = '000-00 -0000P'
  98         OnEn ter = lblS SNEnter
  99       end
  100       object  lblDOB: T LabeledEdi t
  101         Left  = 148
  102         Top  = 65
  103         Widt h = 125
  104         Heig ht = 17
  105         Bord erStyle =  bsNone
  106         Edit Label.Widt h = 21
  107         Edit Label.Heig ht = 13
  108         Edit Label.Capt ion = 'DOB '
  109         Pare ntColor =  True
  110         Read Only = Tru e
  111         TabO rder = 2
  112         Text  = 'Septem ber 21, 19 40 (70)'
  113         OnEn ter = lblD OBEnter
  114       end
  115     end
  116     object P anel1: TPa nel
  117       Left =  8
  118       Top =  107
  119       Width  = 606
  120       Height  = 465
  121       Anchor s = [akLef t, akTop,  akRight, a kBottom]
  122       TabOrd er = 1
  123       Design Size = (
  124         606
  125         465)
  126       object  GroupBox2 : TGroupBo x
  127         Left  = 15
  128         Top  = 8
  129         Widt h = 575
  130         Heig ht = 407
  131         Anch ors = [akL eft, akTop , akRight,  akBottom]
  132         Capt ion = 'Con tracted 25 07 Request s and Exam s'
  133         TabO rder = 0
  134         Desi gnSize = (
  135           57 5
  136           40 7)
  137         obje ct trVw250 7Info: TTr eeView
  138           Le ft = 3
  139           To p = 17
  140           Wi dth = 569
  141           He ight = 319
  142           Hi nt = 
  143              'Display o f Patient' #39's Cont racted 250 7 Requests  and assoc iated exa'  +
  144              'ms.'
  145           An chors = [a kLeft, akT op, akRigh t, akBotto m]
  146           Fo nt.Charset  = DEFAULT _CHARSET
  147           Fo nt.Color =  clWindowT ext
  148           Fo nt.Height  = -11
  149           Fo nt.Name =  'Tahoma'
  150           Fo nt.Style =  []
  151           In dent = 20
  152           Pa rentFont =  False
  153           Pa rentShowHi nt = False
  154           Re adOnly = T rue
  155           Sh owHint = T rue
  156           Ta bOrder = 1
  157         end
  158         obje ct GroupBo x4: TGroup Box
  159           Le ft = 225
  160           To p = 342
  161           Wi dth = 304
  162           He ight = 56
  163           An chors = [a kRight, ak Bottom]
  164           Ca ption = 'D &ate Range '
  165           Ta bOrder = 3
  166           ob ject btnDt PckrExamTo : TSpeedBu tton
  167              Left = 261
  168              Top = 21
  169              Width = 23
  170              Height = 2 2
  171              Glyph.Data  = {
  172                76010000 424D760100 0000000000 7600000028 0000002000 0000100000 000100
  173                04000000 0000000100 00120B0000 120B000010 0000000000 0000000000 000000
  174                80000080 0000008080 0080000000 8000800080 8000007F7F 7F00BFBFBF 000000
  175                FF0000FF 000000FFFF 00FF000000 FF00FF00FF FF0000FFFF FF00333333 333333
  176                33333FFF FFFFFFFFFF FF00000000 0000000077 7777777777 77770FF7FF 7FF7FF
  177                7FF07FF7 FF7FF7F37F 3709F79F79 F7FF7FF077 F77F77F7FF 7FF7077777 777777
  178                77707777 7777777777 770FF7FF7F F7FF7FF07F F7FF7FF7FF 7FF709F79F 79F79F
  179                79F077F7 7F77F77F77 F707777777 7777777077 7777777777 77770FF7FF 7FF7FF
  180                7FF07FF7 FF7FF7FF7F F709F79F79 F79F79F077 F77F77F77F 77F7077777 777777
  181                77707777 7777777777 770FFFFF7F F7FF7FF07F 33337FF7FF 7FF70FFFFF 79F79F
  182                79F07FFF FF77F77F77 F700000000 0000000077 7777777777 7777CCCCCC 8888CC
  183                CCCC7777 77FFFF7777 77CCCCCCCC CCCCCCCC77 7777777777 7777}
  184              NumGlyphs  = 2
  185              OnClick =  btnDtPckrE xamToClick
  186           en d
  187           ob ject btnDt PckrExamFr om: TSpeed Button
  188              Left = 124
  189              Top = 21
  190              Width = 23
  191              Height = 2 2
  192              Glyph.Data  = {
  193                76010000 424D760100 0000000000 7600000028 0000002000 0000100000 000100
  194                04000000 0000000100 00120B0000 120B000010 0000000000 0000000000 000000
  195                80000080 0000008080 0080000000 8000800080 8000007F7F 7F00BFBFBF 000000
  196                FF0000FF 000000FFFF 00FF000000 FF00FF00FF FF0000FFFF FF00333333 333333
  197                33333FFF FFFFFFFFFF FF00000000 0000000077 7777777777 77770FF7FF 7FF7FF
  198                7FF07FF7 FF7FF7F37F 3709F79F79 F7FF7FF077 F77F77F7FF 7FF7077777 777777
  199                77707777 7777777777 770FF7FF7F F7FF7FF07F F7FF7FF7FF 7FF709F79F 79F79F
  200                79F077F7 7F77F77F77 F707777777 7777777077 7777777777 77770FF7FF 7FF7FF
  201                7FF07FF7 FF7FF7FF7F F709F79F79 F79F79F077 F77F77F77F 77F7077777 777777
  202                77707777 7777777777 770FFFFF7F F7FF7FF07F 33337FF7FF 7FF70FFFFF 79F79F
  203                79F07FFF FF77F77F77 F700000000 0000000077 7777777777 7777CCCCCC 8888CC
  204                CCCC7777 77FFFF7777 77CCCCCCCC CCCCCCCC77 7777777777 7777}
  205              NumGlyphs  = 2
  206              OnClick =  btnDtPckrE xamFromCli ck
  207           en d
  208           ob ject edtDt PckrExamFr om: TLabel edEdit
  209              Left = 47
  210              Top = 23
  211              Width = 74
  212              Height = 2 1
  213              EditLabel. Width = 28
  214              EditLabel. Height = 1 3
  215              EditLabel. Caption =  'From:'
  216              LabelPosit ion = lpLe ft
  217              TabOrder =  0
  218              OnChange =  edtDtPckr ExamFromCh ange
  219              OnExit = e dtDtPckrEx amFromExit
  220           en d
  221           ob ject edtDt PckrExamTo : TLabeled Edit
  222              Left = 184
  223              Top = 22
  224              Width = 74
  225              Height = 2 1
  226              EditLabel. Width = 16
  227              EditLabel. Height = 1 3
  228              EditLabel. Caption =  'To:'
  229              LabelPosit ion = lpLe ft
  230              TabOrder =  1
  231              OnChange =  edtDtPckr ExamToChan ge
  232              OnExit = e dtDtPckrEx amToExit
  233           en d
  234         end
  235         obje ct GroupBo x3: TGroup Box
  236           Le ft = 43
  237           To p = 342
  238           Wi dth = 136
  239           He ight = 56
  240           An chors = [a kLeft, akB ottom]
  241           Ca ption = 'R &eferral S tatus'
  242           Ta bOrder = 2
  243           De signSize =  (
  244              136
  245              56)
  246           ob ject cmbBx ExamFltr:  TComboBox
  247              Left = 13
  248              Top = 26
  249              Width = 11 2
  250              Height = 2 1
  251              Hint = 'Ty pe of cont racted 250 7 Exams to  display'
  252              Style = cs DropDownLi st
  253              Anchors =  [akLeft, a kBottom]
  254              DropDownCo unt = 3
  255              ItemHeight  = 13
  256              ParentShow Hint = Fal se
  257              ShowHint =  True
  258              TabOrder =  0
  259              OnChange =  cmbBxExam FltrChange
  260              Items.Stri ngs = (
  261                'Cancell ed'
  262                'Complet ed'
  263                'Pending  Referrals ')
  264           en d
  265         end
  266         obje ct btnRfrs hExamList:  TButton
  267           Le ft = 515
  268           To p = 365
  269           Wi dth = 75
  270           He ight = 25
  271           Hi nt = 'Refr esh Contra cted 2507  Exam List'
  272           An chors = [a kRight, ak Bottom]
  273           Ca ption = 'R efresh'
  274           Pa rentShowHi nt = False
  275           Sh owHint = T rue
  276           Ta bOrder = 0
  277           Vi sible = Fa lse
  278           On Click = bt nRfrshExam ListClick
  279         end
  280         obje ct GenMedN ewExamPane l: TPanel
  281           Le ft = 18
  282           To p = 21
  283           Wi dth = 154
  284           He ight = 252
  285           Ca ption = 
  286              '                                              '#13#10 '                      ' +
  287              '                     Not visibl e - contro l holder'# 13#10'                 ' +
  288              '                           GenM edNewExamP anel'
  289           Ta bOrder = 4
  290           Vi sible = Fa lse
  291           ob ject FMExa mType: TFM Edit
  292              Left = 15
  293              Top = 63
  294              Width = 55
  295              Height = 2 1
  296              TabOrder =  0
  297              Text = 'FM ExamType'
  298              Visible =  False
  299              FMFile = ' 396.4'
  300              FMField =  '.03'
  301              FMFiler =  frmMain.FM Filer1
  302              FMValidato r = frmMai n.FMValida tor1
  303              FMCtrlOpti ons = []
  304           en d
  305           ob ject FMExa mStatus: T FMEdit
  306              Left = 15
  307              Top = 110
  308              Width = 55
  309              Height = 2 1
  310              TabOrder =  1
  311              Text = 'FM ExamStatus '
  312              Visible =  False
  313              FMFile = ' 396.4'
  314              FMField =  '.04'
  315              FMFiler =  frmMain.FM Filer1
  316              FMValidato r = frmMai n.FMValida tor1
  317              FMCtrlOpti ons = []
  318           en d
  319           ob ject FMFee Exam: TFME dit
  320              Left = 15
  321              Top = 43
  322              Width = 55
  323              Height = 2 1
  324              TabOrder =  2
  325              Text = 'FM FeeExam'
  326              Visible =  False
  327              FMFile = ' 396.4'
  328              FMField =  '.08'
  329              FMFiler =  frmMain.FM Filer1
  330              FMValidato r = frmMai n.FMValida tor1
  331              FMCtrlOpti ons = []
  332           en d
  333           ob ject fmLas tExamAdded By: TFMEdi t
  334              Left = 15
  335              Top = 174
  336              Width = 17 8
  337              Height = 2 1
  338              Enabled =  False
  339              TabOrder =  3
  340              Text = 'FM Edit5'
  341              FMFile = ' 396.3'
  342              FMField =  '23.4'
  343              FMFiler =  frmMain.FM Filer1
  344              FMValidato r = frmMai n.FMValida tor1
  345              FMCtrlOpti ons = []
  346           en d
  347           ob ject fmLas tExamAddDa te: TFMEdi t
  348              Left = 15
  349              Top = 205
  350              Width = 74
  351              Height = 2 1
  352              Enabled =  False
  353              TabOrder =  4
  354              Text = 'FM Edit5'
  355              FMFile = ' 396.3'
  356              FMField =  '23.3'
  357              FMFiler =  frmMain.FM Filer1
  358              FMValidato r = frmMai n.FMValida tor1
  359              FMCtrlOpti ons = []
  360           en d
  361           ob ject FMExa mRequest:  TFMEdit
  362              Left = 15
  363              Top = 89
  364              Width = 55
  365              Height = 2 1
  366              TabOrder =  5
  367              Text = 'FM ExamReques t'
  368              Visible =  False
  369              FMFile = ' 396.4'
  370              FMField =  '.02'
  371              FMFiler =  frmMain.FM Filer1
  372              FMValidato r = frmMai n.FMValida tor1
  373              FMCtrlOpti ons = []
  374           en d
  375           ob ject FMExa mNumber: T FMEdit
  376              Left = 15
  377              Top = 19
  378              Width = 55
  379              Height = 2 1
  380              TabOrder =  6
  381              Text = 'FM ExamNumber '
  382              Visible =  False
  383              FMFile = ' 396.4'
  384              FMField =  '.01'
  385              FMFiler =  frmMain.FM Filer1
  386              FMValidato r = frmMai n.FMValida tor1
  387              FMCtrlOpti ons = []
  388           en d
  389           ob ject FMExa mContracto r: TFMEdit
  390              Left = 19
  391              Top = 171
  392              Width = 73
  393              Height = 2 1
  394              TabOrder =  7
  395              Text = 'FM ExamContra ctor'
  396              Visible =  False
  397              FMFile = ' 396.4'
  398              FMField =  '100'
  399              FMFiler =  frmMain.FM Filer1
  400              FMValidato r = frmMai n.FMValida tor1
  401              FMCtrlOpti ons = []
  402           en d
  403           ob ject FMExa mDtSent: T FMEdit
  404              Left = 19
  405              Top = 198
  406              Width = 73
  407              Height = 2 1
  408              TabOrder =  8
  409              Text = 'FM ExamContra ctor'
  410              Visible =  False
  411              FMFile = ' 396.4'
  412              FMField =  '101'
  413              FMFiler =  frmMain.FM Filer1
  414              FMValidato r = frmMai n.FMValida tor1
  415              FMCtrlOpti ons = []
  416           en d
  417         end
  418       end
  419       object  btnNewExa m: TButton
  420         Left  = 58
  421         Top  = 433
  422         Widt h = 135
  423         Heig ht = 25
  424         Hint  = 'Contra ct a new 2 507 Exam f or patient '
  425         Anch ors = [akB ottom]
  426         Capt ion = 'Ref er E&xams'
  427         Pare ntShowHint  = False
  428         Show Hint = Tru e
  429         TabO rder = 1
  430         OnCl ick = btnN ewExamClic k
  431       end
  432       object  btnResend Exam: TBut ton
  433         Left  = 236
  434         Top  = 433
  435         Widt h = 135
  436         Heig ht = 25
  437         Hint  = 'Resend  open sele cted 2507  exam for p atient to  the contra ctor'
  438         Anch ors = [akB ottom]
  439         Capt ion = 'Re& send'
  440         Pare ntShowHint  = False
  441         Show Hint = Tru e
  442         TabO rder = 2
  443         OnCl ick = btnR esendExamC lick
  444       end
  445       object  btnCheckI nExam: TBu tton
  446         Left  = 409
  447         Top  = 433
  448         Widt h = 135
  449         Heig ht = 25
  450         Hint  = 'Check- In complet ed selecte d contract ed 2507 ex am for pat ient'
  451         Anch ors = [akB ottom]
  452         Capt ion = '&Do wnload Exa m Results'
  453         Pare ntShowHint  = False
  454         Show Hint = Tru e
  455         TabO rder = 3
  456         OnCl ick = btnC heckInExam Click
  457       end
  458     end
  459     object s bMain: TSt atusBar
  460       Left =  0
  461       Top =  578
  462       Width  = 619
  463       Height  = 19
  464       Panels  = <
  465         item
  466           Wi dth = 600
  467         end>
  468     end
  469     object m nuMain: TM ainMenu
  470       Left =  270
  471       Top =  195
  472       object  mnuItmFil e: TMenuIt em
  473         Capt ion = '&Fi le'
  474         obje ct mnuItmS lctPtnt: T MenuItem
  475           Ca ption = '& Select Pat ient'
  476           Hi nt = 'Sele ct a patie nt'
  477           Vi sible = Fa lse
  478           On Click = mn uItmSlctPt ntClick
  479         end
  480         obje ct N3: TMe nuItem
  481           Ca ption = '- '
  482           Vi sible = Fa lse
  483         end
  484         obje ct mnuItmE dtVAMCInfo : TMenuIte m
  485           Ca ption = 'E dit &VAMC  Informatio n'
  486           Hi nt = 
  487              'Edit Medi cal Center  Informati on that is  included  in Contrac tor E' +
  488              'mail Mess age.'
  489           On Click = mn uItmEdtVAM CInfoClick
  490         end
  491         obje ct mnuItmE dtFeeInfo:  TMenuItem
  492           Ca ption = 'E dit &Fee C ontact Inf ormation'
  493           Hi nt = 
  494              'Edit Fee  Contact In formation  for CCing  on Contrac tor Exam m essag' +
  495              'es.'
  496           Vi sible = Fa lse
  497           On Click = mn uItmEdtFee InfoClick
  498         end
  499         obje ct N1: TMe nuItem
  500           Ca ption = '- '
  501         end
  502         obje ct mnuItmE xit: TMenu Item
  503           Ca ption = 'E &xit'
  504           Hi nt = 'Clos e the appl ication'
  505           On Click = mn uItmExitCl ick
  506         end
  507       end
  508       object  mnuItmToo ls: TMenuI tem
  509         Capt ion = '&To ols'
  510         obje ct mnuItmT oolsMngeCP ExmRqsts:  TMenuItem
  511           Ca ption = 'M ana&ge Pat ient'#39's  C&&P Exam  Requests'
  512           On Click = mn uItmToolsM ngeCPExmRq stsClick
  513         end
  514       end
  515       object  mnuItmRpt s: TMenuIt em
  516         Capt ion = '&Re ports'
  517         obje ct mnuItmC Rpts: TMen uItem
  518           Ca ption = '& Contracted '
  519           ob ject mnuIt mCRptsDtld : TMenuIte m
  520              Caption =  '&Detailed '
  521              OnClick =  mnuItmCRpt sDtldClick
  522           en d
  523           ob ject mnuIt mCRptsSmmr y: TMenuIt em
  524              Caption =  '&Summary'
  525              OnClick =  mnuItmCRpt sSmmryClic k
  526           en d
  527           ob ject mnuIt mCRptsTmln ss: TMenuI tem
  528              Caption =  '&Timeline ss'
  529              OnClick =  mnuItmCRpt sTmlnssCli ck
  530           en d
  531         end
  532       end
  533       object  mnuItmAdm in: TMenuI tem
  534         Capt ion = 'Ad& min Tools'
  535         Visi ble = Fals e
  536         obje ct mnuItmA dminCntrct rEditor: T MenuItem
  537           Ca ption = 'A dd / Edit  &Contracto rs'
  538           On Click = mn uItmAdminC ntrctrEdit orClick
  539         end
  540         obje ct mnuItmA dminDelete CO: TMenuI tem
  541           Ca ption = '& Delete Exa m Check-Ou t'
  542           Hi nt = 'Dele te the che ck-out for  exams alr eady contr acted out. '
  543           On Click = mn uItmAdminD eleteCOCli ck
  544         end
  545         obje ct mnuItmA dminEditCI : TMenuIte m
  546           Ca ption = 'E dit Exam C &heck-In'
  547           Hi nt = 'Edit  the check -in date f or contrac ted exams. '
  548           On Click = mn uItmAdminE ditCIClick
  549         end
  550       end
  551       object  mnuItmHel p: TMenuIt em
  552         Capt ion = '&He lp'
  553         obje ct mnuItmH lpCntnt: T MenuItem
  554           Ca ption = '& Content'
  555           He lpContext  = 7000
  556           On Click = mn uItmHlpCnt ntClick
  557         end
  558         obje ct N2: TMe nuItem
  559           Ca ption = '- '
  560         end
  561         obje ct mnuItmH lpAbout: T MenuItem
  562           Ca ption = 'A &bout'
  563           Vi sible = Fa lse
  564           On Click = mn uItmHlpAbo utClick
  565         end
  566       end
  567     end
  568     object C COWRPCBrkr Main: TCCO WRPCBroker CAPRI
  569       ClearP arameters  = True
  570       ClearR esults = T rue
  571       Connec ted = Fals e
  572         ListenerPo rt =  PORT
  573       RpcVer sion = '0'
  574       Server  = 'BROKER SERVER'
  575       Kernel LogIn = Tr ue
  576       LogIn. Mode = lmA VCodes
  577       LogIn. PromptDivi sion = Fal se
  578       OldCon nectionOnl y = False
  579       Left =  358
  580       Top =  199
  581     end
  582     object t mrAppShutD wn: TTimer
  583       Enable d = False
  584       Interv al = 10000 00
  585       OnTime r = tmrApp ShutDwnTim er
  586       Left =  454
  587       Top =  259
  588     end
  589     object t mrEnsrBrkr Cnntctd: T Timer
  590       Enable d = False
  591       Interv al = 18000 0
  592       OnTime r = tmrEns rBrkrCnntc tdTimer
  593       Left =  361
  594       Top =  259
  595     end
  596     object t mrShowForm : TTimer
  597       Enable d = False
  598       Interv al = 10000 00
  599       OnTime r = tmrSho wFormTimer
  600       Left =  268
  601       Top =  259
  602     end
  603     object f mLstrReq:  TFMLister
  604       FieldN umbers.Str ings = (
  605         '.00 1'
  606         '.01 '
  607         '1')
  608       Displa yFields.St rings = (
  609         '.00 1'
  610         '.01 '
  611         '1')
  612       Lister Flags = []
  613       Delimi ter = '^'
  614       Number  = '*'
  615       FileNu mber = '39 6.3'
  616       Lister Options =  []
  617       Left =  272
  618       Top =  311
  619     end
  620     object f mLstrCntrc ts: TFMLis ter
  621       FieldN umbers.Str ings = (
  622         '3')
  623       Displa yFields.St rings = (
  624         '3')
  625       Lister Flags = [l fInternal]
  626       Delimi ter = '^'
  627       Number  = '*'
  628       Screen  = 'I $P(^ (0),U,2)=" A",$P(^(0) ,U,4)]""'
  629       FileNu mber = '39 6.45'
  630       Lister Options =  [loQuickLi st]
  631       Left =  452
  632       Top =  311
  633     end
  634     object f mLstrExam:  TFMLister
  635       FieldN umbers.Str ings = (
  636         '.01 '
  637         '.02 '
  638         '.03 '
  639         '.04 '
  640         '90'
  641         '100 '
  642         '101 '
  643         '102 ')
  644       Displa yFields.St rings = (
  645         '.01 '
  646         '.02 '
  647         '100 ')
  648       Lister Flags = [l fInternal]
  649       Delimi ter = '^'
  650       Number  = '*'
  651       FMInde x = 'C'
  652       FileNu mber = '39 6.4'
  653       Lister Options =  []
  654       Left =  356
  655       Top =  311
  656     end
  657     object F MFiler1: T FMFiler
  658       RPCBro ker = frmM ain.RPCBro ker1
  659       FilerF lags = []
  660       FilerO ptions = [ foProcessP roblemList ]
  661       Left =  144
  662       Top =  176
  663     end
  664     object f mFindOneTe mp: TFMFin dOne
  665       RPCBro ker = frmM ain.RPCBro ker1
  666       Finder Flags = []
  667       FindOn eOptions =  []
  668       Left =  216
  669       Top =  220
  670     end
  671     object f mGetsTemp:  TFMGets
  672       RPCBro ker = frmM ain.RPCBro ker1
  673       FieldN umbers.Str ings = (
  674         '.01 ')
  675       GetsFl ags = [gfE xternal, g fInternal]
  676       GetsOp tions = []
  677       Left =  212
  678       Top =  176
  679     end
  680   end