28. EPMO Open Source Coordination Office Redaction File Detail Report

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

28.1 Files compared

# Location File Last Modified
1 build 3.zip\build 3\MHLTH_YS_137_Source\Delphi\uIA_Core uIA_Instrument_IO.pas Thu Sep 6 11:30:16 2018 UTC
2 build 3.zip\build 3\MHLTH_YS_137_Source\Delphi\uIA_Core uIA_Instrument_IO.pas Wed Sep 12 16:04:07 2018 UTC

28.2 Comparison summary

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

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

28.4 Active regular expressions

No regular expressions were active.

28.5 Comparison detail

  1   unit uIA_I nstrument_ IO;
  2  
  3   interface
  4  
  5   uses
  6     Trpcb,
  7     classes,
  8     uIA_Inst rument;
  9  
  10   function I nstrumentR eadDescrip tiveProper ties(
  11     Broker:  TRPCBroker ;
  12     var aIns trument: T Instrument ): string;
  13  
  14   implementa tion
  15  
  16   uses
  17     SysUtils ,
  18     dialogs,
  19     uIA_Cons t,
  20     uIA_Util s;
  21  
  22  
  23  
  24   function I nstrumentR eadDescrip tiveProper ties(
  25     Broker:  TRPCBroker ;
  26     var aIns trument: T Instrument ): string;
  27  
  28   var
  29     TempStr                        : string;
  30  
  31   // Result  of YTQ TSL IST1 is"
  32   // [DATA]
  33   // IEN=5
  34   // NAME=AU DC
  35   // PRINT T ITLE=Alcoh ol Use Dis orders Ide ntificatio n Test Con sumption
  36   // VERSION =
  37   // AUTHOR= Bradley; M cDonell; B ush; Kivla han; Diehr ; Fihn
  38   // PUBLISH ER=Alcohol ism:Clinic al & Exper imental Re search
  39   // PUBLICA TION DATE= 1998
  40   // REFEREN CE=Alcohol ism: Clini cal & Expe rimental R esearch. 2 2(8):1842,  November  1998
  41   // A PRIVI LEGE=
  42   // R PRIVI LEGE=
  43   // OPERATI ONAL=Yes
  44   // HAS BEE N OPERATIO NAL=Yes
  45   // REQUIRE S LICENSE= No
  46   // PURPOSE =Alcohol S creening.   3 items f rom WHO AU DIT test d ealing wit h consumpt ion of alc ohol.
  47   // N D R N  SA   P   E  
  48   // TARGET  POPULATION =
  49   // ENTERED  BY=A FINK ELSTEIN
  50   // ENTRY D ATE=FEB 26 , 2004
  51   // LAST ED ITED BY=FI NKELSTEIN, ALLAN
  52   // LAST ED IT DATE=30 90409
  53   // IS NATI ONAL TEST= Yes
  54   // LICENSE  CURRENT=N o
  55   // COPYRIG HT TEXT=
  56   // REQUIRE S SIGNATUR E=No
  57   // IS LEGA CY=No
  58   // SUBMIT  TO NATIONA L DB=Yes
  59   // IS COPY RIGHTED=No
  60   // WRITE F ULL TEXT=Y es
  61   // DAYS TO  RESTART=2
  62   // GENERAT E PNOTE=Ye s
  63   // TIU TIT LE=MENTAL  HEALTH DIA GNOSTIC ST UDY NOTE
  64   // Consult _Note=MENT AL HEALTH  CONSULT NO TE
  65   // YS_MHA_ B.dll Vers ion  -- no t used her e
  66   // YS_MHA_ B.dll Date      -- no t used her e
  67   // DLL Ver sion = 1.0 .3.100
  68   // DLL_Dat e = FileMa n Date --  not used h ere
  69  
  70   begin
  71     Result : = '';
  72  
  73     with Bro ker, aInst rument do
  74       begin
  75         Clea rParameter s := True;
  76         Clea rResults : = True;
  77         Crea teContext( 'YS BROKER 1');
  78         Remo teProcedur e := 'YTQ  TSLIST1';
  79         Para m[0].Mult[ '"CODE"']  := Instrum entName;
  80         Para m[0].PType  := List;
  81         Call ;
  82  
  83         if ( Results[0]  = DATA) t hen
  84           be gin
  85              IEN := Pie ce(Results [1], EQ, 2 );
  86              Instrument Name := Pi ece(Result s[2], EQ,  2); // Car eful, ther e is a Bro ker.Name
  87              PrintTitle  := Piece( Results[3] , EQ, 2);
  88              Version :=  Piece(Res ults[4], E Q, 2);
  89              Author :=  Piece(Resu lts[5], EQ , 2);
  90              Publisher  := Piece(R esults[6],  EQ, 2);
  91              Publicatio nDate := P iece(Resul ts[7], EQ,  2);
  92              Reference  := Piece(R esults[8],  EQ, 2);
  93              A_Privileg e := Piece (Results[9 ], EQ, 2);
  94              R_Privileg e := Piece (Results[1 0], EQ, 2) ;
  95              IsOperatio nal := 'N' ; // Defau lt
  96  
  97              TempStr :=  Piece(Res ults[11],  EQ, 2);
  98              if (Length (TempStr)  > 0) and
  99                (TempStr [1] in ['Y ', 'N', 'U ']) then
  100                IsOperat ional := T empStr[1]
  101              else
  102                IsOperat ional := ' N';
  103  
  104              IsUnderDev elopment : = StrToBoo l(Piece(Re sults[12],  EQ, 2));
  105              RequiresLi cense := S trToBool(P iece(Resul ts[13], EQ , 2));
  106              Purpose :=  Piece(Res ults[14],  EQ, 2);
  107              NormSample  := Piece( Results[15 ], EQ, 2);
  108              TargetPopu lation :=  Piece(Resu lts[16], E Q, 2);
  109              EnteredBy  := Piece(R esults[17] , EQ, 2);
  110              EntryDate  := Piece(R esults[18] , EQ, 2);
  111              LastEdited By := Piec e(Results[ 19], EQ, 2 );
  112              LastEditDa te := FMDa teStrToDat eStr(Piece (Results[2 0], EQ, 2) );
  113              LastEditFM Date := Pi ece(Result s[20], EQ,  2);
  114              IsNational Test := St rToBool(Pi ece(Result s[21], EQ,  2));
  115              LicenseIsC urrent :=  StrToBool( Piece(Resu lts[22], E Q, 2));
  116              Copyright  := Piece(R esults[23] , EQ, 2);
  117              RequiresSi gnature :=  StrToBool (Piece(Res ults[24],  EQ, 2));
  118              Islegacy : = StrToBoo l(Piece(Re sults[25],  EQ, 2));
  119              SubmitToNa tionalDB : = StrToBoo l(Piece(Re sults[26],  EQ, 2));
  120              IsCopyrigh ted := Str ToBool(Pie ce(Results [27], EQ,  2));
  121              WriteFullT ext := Str ToBool(Pie ce(Results [28], EQ,  2));
  122              DaysToRest art := Str ToIntDef(P iece(Resul ts[29], EQ , 2), 2);
  123              GeneratePr ogressNote  := StrToB ool(Piece( Results[30 ], EQ, 2)) ;
  124              TIU_Title  := Piece(R esults[31] , EQ, 2);
  125              Consult_Ti tle := Pie ce(Results [32], EQ,  2);
  126              // 33 YS_M HA_B.dll v ersion  --  Not used  here
  127              // 34 YS_M HA_B.dll d ate     --  Not used  here
  128              DLL_Versio n := Piece (Results[3 5], EQ, 2) ; // Versi on of YS_M HA_AUX.dll
  129              DLL_Date : = Piece(Re sults[36],  EQ, 2);
  130           en d
  131         else
  132           be gin
  133              Result :=  BAD_DATA;
  134              Exit;
  135           en d; //else
  136         // N eeded for  DLL, in ca se there i s a crash
  137         Crea teContext( 'OR CPRS G UI CHART') ;
  138       end; / /with Brok er
  139  
  140   end;
  141  
  142   end.
  143