6. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 9/25/2018 2:12:54 PM 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.

6.1 Files compared

# Location File Last Modified
1 build 3.zip\build 3\MHLTH_YS_137_Source\Delphi\IAT uMHA7_Editor_DM.pas Thu Sep 6 11:30:40 2018 UTC
2 build 3.zip\build 3\MHLTH_YS_137_Source\Delphi\IAT uMHA7_Editor_DM.pas Fri Sep 14 12:22:04 2018 UTC

6.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 668
Changed 2 6
Inserted 0 0
Removed 0 0

6.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

6.4 Active regular expressions

No regular expressions were active.

6.5 Comparison detail

  1   unit uMHA7 _Editor_DM ;
  2  
  3   interface
  4  
  5   uses
  6     Windows,
  7     SysUtils ,
  8     Classes,
  9     Graphics ,
  10     Controls ,
  11     Forms,
  12     fIA_Dial ogs,
  13     Dialogs,
  14     StBase,
  15     Trpcb,
  16     Fmcmpnts ,
  17     StdCtrls ,
  18     Messages ,
  19     StGenLog ,
  20     RPCConf1 ,
  21     Diaccess ,
  22     ExtCtrls ;
  23  
  24   type
  25  
  26     TDataMod uleEdit =  class(TDat aModule)
  27       FMList er1: TFMLi ster;
  28       RPCBro ker1: TRPC Broker;
  29  
  30     private
  31       { Priv ate declar ations }
  32  
  33     public
  34       { Publ ic declara tions }
  35       functi on Connect ToVista(Se nder: TObj ect): BOOL EAN;
  36       functi on DeleteR ecord(aFil eNum, aIEN : string):  string;
  37       functi on DeleteS ection(QID : string):  string;
  38     end;
  39  
  40   var
  41     DataModu leEdit                : TDataMod uleEdit;
  42  
  43   implementa tion
  44  
  45   {$R *.DFM}
  46   uses
  47     uMHA7_Ed itor_Const ,
  48     uMHA7_Ed itor_Local Files,
  49     uIA_Util s;
  50  
  51  
  52   function T DataModule Edit.Conne ctToVista( Sender: TO bject): BO OLEAN;
  53   var
  54     ServerSt r, PortStr            : string;
  55   begin
  56     Result : = False;
  57  
  58     with Rpc Broker1 do
  59       begin
  60  
  61         Kern elLogin :=  true;
  62         IsBa ckwardComp atibleConn ection :=  true;
  63         OldC onnectionO nly := fal se;
  64  
  65         Debu gMode := F alse;
  66         Serv er := '';
  67         gvBr okerName : = '';
  68         List enerPort : = 9200; //  default
  69  
  70   //    RPCBroker1 .Server :=  'COR. DN S          UR L           '; //  IP        
  71   //  RPCBro ker1.Liste nerPort :=  9270;
  72  
  73   //    RPCBroker1 .Server :=  ' IP           '; // SLC  Test Acct
  74   //    RPCBroker1 .ListenerP ort :=  PORT ;
  75  
  76         if ( ParamCount  > 1) then
  77           be gin
  78              //Get serv er and por t from com mand line
  79              Server :=  Piece(Para mStr(1), ' =', 2);
  80              ListenerPo rt := StrT oIntDef(Pi ece(ParamS tr(2), '=' , 2), 9200 );
  81              try
  82                Connecte d := True;
  83  
  84                if not C reateConte xt('YS BRO KER1') the n
  85                  begin
  86                    Show Message('R PC Broker  context (Y S BROKER1)  could not  be create d.');
  87                    Exit ;
  88                  end;
  89              except
  90                on e: Ex ception do
  91                  begin
  92                    Show Message('E rror: ' +  e.Message) ;
  93                    Exit ;
  94                  end;
  95              end;
  96              Result :=  True;
  97              Exit;
  98           en d;
  99  
  100         // C ommand lin e not used  to identi fy broker  server
  101  
  102         if G etServerIn fo(ServerS tr, PortSt r) <> mrCa ncel then
  103           be gin
  104              if (Server Str = '')  then //Inv alid serve r
  105                Exit;
  106  
  107              gvBrokerNa me := Serv erStr;
  108              Server :=  ServerStr;
  109              ListenerPo rt := StrT oInt(PortS tr);
  110           en d
  111         else
  112           ex it;
  113  
  114         Clea rParameter s := True;
  115  
  116         try
  117           Co nnected :=  True;
  118  
  119           if  not Creat eContext(' YS BROKER1 ') then
  120              begin
  121                ShowMess age('RPC B roker cont ext (YS BR OKER1) cou ld not be  created.') ;
  122                Exit;
  123              end;
  124         exce pt
  125           on  e: Except ion do
  126              begin
  127                ShowMess age('Error : ' + e.Me ssage);
  128                Exit;
  129              end;
  130         end;
  131       end; / / with RPC  broker
  132     Result : = True;
  133  
  134   end;
  135  
  136  
  137   function T DataModule Edit.Delet eRecord(aF ileNum, aI EN: string ): string;
  138   var
  139     j                              : integer;
  140   begin
  141  
  142     if aIEN  = '' then
  143       begin
  144         Resu lt := 'Err or: No IEN .';
  145         Exit ;
  146       end;
  147  
  148     if aFile Num = '' t hen
  149       begin
  150         Resu lt := 'Err or: No fil e specifie d.';
  151         Exit ;
  152       end;
  153  
  154     with Dat aModuleEdi t.RPCBroke r1 do
  155       begin
  156       (*
  157         Clea rParameter s := True;
  158                ClearRes ults := Tr ue;
  159                 CreateC ontext('YS  BROKER1') ;
  160                RemotePr ocedure :=  'DDR DELE TE ENTRY';
  161  
  162                with Par am[0] do
  163                begin
  164                  PType  := list;
  165                  Mult[' "FILE"'] : = aFileNum ;
  166                  Mult[' "IENS"'] : = aIEN;
  167                end; //w ith DataMo dule1...
  168  
  169                Call; *)
  170  
  171         Clea rParameter s := True;
  172         Clea rResults : = True;
  173         Crea teContext( 'YS BROKER 1');
  174         Loca lFiles.Upd ateAPILog( 'Call to Y TQ SAVE to  delete re cord by '  +
  175           'i nserting @  in field  .01 for: '  + aIEN +  ' in file  ' + aFileN um);
  176         Remo teProcedur e := 'YTQ  SAVE';
  177         Para m[0].Mult[ '"FILEN"']  := aFileN um;
  178         Para m[0].Mult[ '"IEN"'] : = aIEN;
  179         Para m[0].Mult[ '"1"'] :=  '.01^@';
  180         Para m[0].PType  := List;
  181  
  182         try
  183           Ca ll;
  184  
  185         exce pt
  186           on  E: EBroke rError do
  187              begin
  188                LocalFil es.UpdateA PILog('Cal l to YTQ S AVE: Error  ');
  189                LocalFil es.UpdateA PILog('    ' + 'Broke r Error: '  + E.messa ge);
  190                exit;
  191              end;
  192           on  E: EAcces sViolation  do
  193              begin
  194                LocalFil es.UpdateA PILog('Cal l to YTQ S AVE: Error  ');
  195                LocalFil es.UpdateA PILog('    ' + 'Acces s Violatio n: ' + E.m essage);
  196                exit;
  197              end;
  198         end;  // try
  199  
  200         if r esults[0]  = '[ERROR] ' then
  201           be gin
  202              result :=  'ERROR: YT Q SAVE, DE LETE RECOR D FAILED '  + results [1];
  203              LocalFiles .UpdateAPI Log('Call  to YTQ SAV E, DELETE  RECORD FAI LED');
  204              for j := 0  to Result s.Count -  1 do
  205                LocalFil es.UpdateA PILog('    ' + Result s[j]);
  206           en d
  207         else
  208           be gin
  209              LocalFiles .UpdateAPI Log('Call  to YTQ SAV E, DELETE  RECORD: Su ccessful') ;
  210              Result :=  'OK'; //Wh en success ful this i s returned :
  211           en d;
  212       end;
  213   end;
  214  
  215  
  216   function T DataModule Edit.Delet eSection(Q ID: string ): string;
  217   // There a re several  versions  of section s for a gi ven Questi on ID
  218   var
  219     i, j                           : Integer;
  220     TempStr                        : string;
  221     TempDele teList,
  222       TempSt rList                 : TStringL ist;
  223   begin
  224     TempStrL ist := TSt ringList.C reate;
  225     TempDele teList :=  TStringLis t.Create;
  226  
  227     with Dat aModuleEdi t.RPCBroke r1 do
  228       begin
  229  
  230         Clea rParameter s := True;
  231         Clea rResults : = True;
  232         Crea teContext( 'YS BROKER 1');
  233         Loca lFiles.Upd ateAPILog( 'Call to Y TQ GENERIC  LISTER to  remove se ctions in  ' + '601.8 1.');
  234         Remo teProcedur e := 'YTQ  GENERIC LI STER';
  235         Para m[0].Mult[ '"FILEN"']  := '601.8 1';
  236         Para m[0].Mult[ '"FIELD"']  := '.01';
  237         Para m[0].Mult[ '"FIELD"']  := '2';
  238         Para m[0].Mult[ '"NUMBER"' ] := '5000 ';
  239         Para m[0].Mult[ '"FLAG"']  := 'I';
  240         Para m[0].PType  := List;
  241  
  242         try
  243           Ca ll;
  244  
  245         exce pt
  246           on  E: EBroke rError do
  247              begin
  248                LocalFil es.UpdateA PILog('Cal l to YTQ G ENERIC LIS TER: Error  ');
  249                LocalFil es.UpdateA PILog('    ' + 'Broke r Error: '  + E.messa ge);
  250                exit;
  251              end;
  252           on  E: EAcces sViolation  do
  253              begin
  254                LocalFil es.UpdateA PILog('Cal l to YTQ G ENERIC LIS TER: Error  ');
  255                LocalFil es.UpdateA PILog('    ' + 'Acces s Violatio n: ' + E.m essage);
  256                exit;
  257              end;
  258         end;  // try
  259  
  260         if R esults.Cou nt < 3 the n
  261           be gin
  262              LocalFiles .UpdateAPI Log('Call  to YTQ GEN ERIC LISTE R: No sect ions.');
  263              TempStrLis t.Free;
  264              exit;
  265           en d;
  266  
  267         for  i := 2 to  Results.Co unt - 1 do
  268           Te mpStrList. Add(Result s[i]);
  269  
  270         for  i := 0 to  TempStrLis t.Count -  1 do
  271           be gin
  272              TempStr :=  Piece(Tem pStrList[i ], U, 2);
  273              if TempStr  = QID the n
  274                TempDele teList.Add (Piece(Tem pStrList[i ], U, 1));
  275           en d; // for  i
  276  
  277         Temp StrList.Fr ee;
  278  
  279   //         if TempDel eteList.Co unt = 0 th en
  280   //           begin
  281   //             TempDe leteList.F ree;
  282   //             Exit;
  283   //           end;
  284  
  285         for  i := 0 to  TempDelete List.Count  - 1 do
  286           be gin
  287  
  288              ClearParam eters := T rue;
  289              ClearResul ts := True ;
  290              RemoteProc edure := ' YTQ SAVE';
  291              LocalFiles .UpdateAPI Log('Call  to YTQ SAV E: Set sec tion in 60 1.81 to @  ' +
  292                TempDele teList[i]) ;
  293              Param[0].M ult['"FILE N"'] := '6 01.81';
  294              Param[0].M ult['"IEN" '] := Temp DeleteList [i];
  295              Param[0].M ult['"1"']  := '.01^@ ';
  296              Param[0].P Type := Li st;
  297              try
  298                Call;
  299  
  300              except
  301                on E: EB rokerError  do
  302                  begin
  303                    Loca lFiles.Upd ateAPILog( 'Call to Y TQ SAVE: E rror ');
  304                    Loca lFiles.Upd ateAPILog( '   ' + 'B roker Erro r: ' + E.m essage);
  305                    exit ;
  306                  end;
  307                on E: EA ccessViola tion do
  308                  begin
  309                    Loca lFiles.Upd ateAPILog( 'Call to Y TQ SAVE: E rror ');
  310                    Loca lFiles.Upd ateAPILog( '   ' + 'A ccess Viol ation: ' +  E.message );
  311                    exit ;
  312                  end;
  313              end; // tr y
  314  
  315              if results [0] = '[ER ROR]' then
  316                begin
  317                  result  := 'ERROR : YTQ SAVE , DELETE R ECORD FAIL ED ' + #13  +
  318                    resu lts[1];
  319                  LocalF iles.Updat eAPILog('C all to YTQ  SAVE: Err or');
  320                  for j  := 0 to Re sults.Coun t - 1 do
  321                    Loca lFiles.Upd ateAPILog( '   ' + Re sults[j]);
  322                  Exit;
  323                end
  324              else
  325                begin
  326                  LocalF iles.Updat eAPILog('C all to YTQ  SAVE: Suc cessful');
  327                  Result  := 'OK';  //When suc cessful th is is retu rned:
  328                end;
  329           en d;
  330  
  331         Temp DeleteList .Free;
  332  
  333       end; / /with Data ModuleEdit .RPCBroker 1...
  334   end;
  335  
  336   end.
  337