15. EPMO Open Source Coordination Office Redaction File Detail Report

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

15.1 Files compared

# Location File Last Modified
1 build 3.zip\build 3\MHLTH_YS_137_Source\Delphi\MHA uMHA_Const.pas Thu Sep 6 11:30:20 2018 UTC
2 build 3.zip\build 3\MHLTH_YS_137_Source\Delphi\MHA uMHA_Const.pas Wed Sep 12 16:02:21 2018 UTC

15.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 462
Changed 2 4
Inserted 0 0
Removed 0 0

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

15.4 Active regular expressions

No regular expressions were active.

15.5 Comparison detail

  1   unit uMHA_ Const;
  2  
  3   interface
  4  
  5   uses
  6     Trpcb,
  7     uMHA_Adm inistratio n,
  8     Classes;
  9  
  10   type
  11     TDatabas eMode = (d bVista, db OffLine, d bNil);
  12     TOpenFor m = (ofMai n, ofAll,  ofSingle,  ofASI, ofA SI_508, of GAF, ofSin gleMenu,
  13       ofSele ct, ofResu lt, ofUplo ad, ofASIM enu);
  14  
  15   // Input p atient dat a: DOB, ge nder, etc.
  16   // Output  is new ans wer list.
  17     TDefault AnswersDLL  = procedu re(
  18       Instru mentName,
  19       UserNa me,
  20       Statio nCode,
  21       Statio nSuffix,
  22       Patien tName,
  23       Patien tSSN,
  24       Patien tDOB,
  25       Patien tSex,
  26       Answer String: st ring;
  27       var
  28       Result String: st ring); std call;
  29  
  30   // Ensure  the answer s are corr ect.
  31   // Output  is error m essage: Bl ank output  means oka y.
  32     TVerifyA nswersDLL  = procedur e(
  33       Instru mentName,
  34       Patien tName,
  35       Patien tDOB,
  36       Patien tSex,
  37       // llh  patch 129  --- issue  with AUX  dll not wo rking Anws erString d efined as  a String
  38       //                     in ot her areas  of applica tion
  39       //Answ erString:  AnsiString  ; //strin g;
  40       Answer String: St ring ; //s tring;
  41       var
  42       Result String: st ring); std call;
  43  
  44  
  45   // Modify  acceptable  anwsers t o a prefer red or leg acy format
  46   // Output  is new ans wer list.
  47     TGroomAn swersDLL =  procedure (
  48       Instru mentName,
  49       Patien tName,
  50       Patien tDOB,
  51       Patien tSex,
  52       Answer String: st ring;
  53       var
  54       Result String: st ring); std call;
  55  
  56  
  57   // Score a nswers for  special i nstruments : *ScaleNa me^ScaleIE N^ScaleSco re*
  58     TScoreAn swersDLL =  procedure (
  59       Instru mentName,
  60       Patien tName,
  61       Patien tDOB,
  62       Patien tSex,
  63       // llh  patch 129  --- issue  with AUX  dll not wo rking
  64       //Answ erString:  AnsiString  ; //strin g;
  65       Answer String: St ring ; //s tring;
  66       var
  67       Result String: st ring); std call;
  68  
  69  
  70   // Progres s Note for  special i nstruments : report i s output.
  71     TProgres sNoteDLL =  procedure (
  72       Instru mentName,
  73       Patien tName,
  74       Patien tDOB,
  75       Patien tSex,
  76       Answer String: st ring;
  77       var
  78       Result String: st ring); std call;
  79  
  80   // Special  operation s, custom  controls
  81   // Output  is new ans wer list.
  82     TCustomD LL = proce dure(
  83       Instru mentName,
  84       Patien tName,
  85       Patien tDOB,
  86       Patien tSex,
  87       Answer String: st ring;
  88       var
  89       Result String: st ring); std call;
  90  
  91  
  92   // Output  is string,  placed on  form when  built
  93     TStaticL ookupDLL =  procedure (
  94       Instru mentName,
  95       Patien tIEN,
  96       Ordere dByDUZ: st ring;
  97       var
  98       Result String: st ring); std call;
  99  
  100   // Output  is string,  placed on  form when  built
  101     TVistaLo okupDLL =  procedure(
  102       Broker : TRPCBrok er;
  103       Instru mentName,
  104       Patien tIEN,
  105       Ordere dByDUZ: st ring;
  106       var
  107       Result String: st ring); std call;
  108  
  109     TSpecial ResultsDLL  = procedu re(
  110       var
  111       Result String: st ring); std call;
  112  
  113   const
  114    {assign a  nil - not  loaded fu nction}
  115     GroomAns wersDLL               : TGroomAn swersDLL =  nil;
  116     VerifyAn swersDLL              : TVerifyA nswersDLL  = nil;
  117     DefaultA nswersDLL             : TDefault AnswersDLL  = nil;
  118     ScoreAns wersDLL               : TScoreAn swersDLL =  nil;
  119     Progress NoteDLL               : TProgres sNoteDLL =  nil;
  120     CustomDL L                     : TCustomD LL = nil;
  121     StaticLo okupDLL               : TStaticL ookupDLL =  nil;
  122     VistaLoo kupDLL                : TVistaLo okupDLL =  nil;
  123     SpecialR esultsDLL             : TSpecial ResultsDLL  = nil;
  124  
  125   var
  126     DataBase Mode                  : TDataBas eMode;
  127     OpenForm Name                  : TOpenFor m;
  128  
  129   const
  130     MHA_Capt ion                   = 'Mental  Health Ass istant';
  131     OFFLINE_ CAPTION               = '  (Off- line Mode) ';
  132     YS_MHA_A UX                    = '\Vista\ Common Fil es\YS_MHA_ AUX.dll';
  133       MHA_ONLINE _SUPPORT_U RL        = 'http:// vaww.menta lhealth. DNS     /';
  134     MetricUR L                     =
  135         'http://va ww.mentalh ealth. DNS     /mha/metri c.asp';
  136     CONSULT_ NOTE_TITLE            = 'MENTAL  HEALTH CON SULT NOTE' ;
  137     PROGRESS _NOTE_TITL E          = 'MENTAL  HEALTH DIA GNOSTIC ST UDY NOTE';
  138  
  139     // MH Vi sta File n umbers
  140     FILE_TES TS_AND_SUR VEYS       = '601.71' ;
  141     FILE_QUE STIONS                = '601.72' ;
  142     FILE_INT RODUCTIONS            = '601.73' ;
  143     FILE_RES PONSE_TYPE S          = '601.74' ;
  144     FILE_CHO ICES                  = '601.75' ;
  145     FILE_CHO ICETYPES              = '601.751 ';
  146     FILE_INS TRUMENT_CO NTENT      = '601.76' ;
  147     FILE_BAT TERIES                = '601.77' ;
  148     FILE_BAT TERY_CONTE NTS        = '601.78' ;
  149     FILE_BAT TERY_USERS            = '601.781 ';
  150     FILE_SKI PPED_QUEST IONS       = '601.79' ;
  151     FILE_SEC TIONS                 = '601.81' ;
  152     FILE_RUL ES                    = '601.82' ;
  153     FILE_INS TRUMENTRUL ES         = '601.83' ;
  154     FILE_ADM INISTRATIO NS         = '601.84' ;
  155     FILE_ANS WERS                  = '601.85' ;
  156     FILE_SCA LEGROUPS              = '601.86' ;
  157     FILE_SCA LES                   = '601.87' ;
  158     FILE_DIS PLAY                  = '601.88' ;
  159     FILE_CHO ICEIDENTIF IERS       = '601.89' ;
  160     FILE_SCO RING_KEYS             = '601.91' ;
  161     FILE_MH_ RESULTS               = '601.92' ;
  162     FILE_REP ORT                   = '601.93' ;
  163  
  164     ASI_FULL                       = 'Full';
  165     ASI_LITE                       = 'Lite';
  166     ASI_FOLL OWUP                  = 'Follow- up';
  167     ASI_MV                         = 'ASI-MV' ;
  168  
  169   var
  170     gvASIWid th,
  171       gvSele ctWidth,
  172       gvResu ltWidth,
  173       gvGAFW idth,
  174       gvSing leWidth,
  175       gvASIH eight,
  176       gvSele ctHeight,
  177       gvResu ltHeight,
  178       gvGAFH eight,
  179       gvSing leHeight,
  180       gvASIG eneral,
  181       gvASIM edical,
  182       gvASIE mploy,
  183       gvASID rug,
  184       gvASIL egal,
  185       gvASIF amily,
  186       gvASIS ocial,
  187       gvASIP sych,
  188       gvLast ASIProgram ,
  189       gvStar t // Menu  selection
  190                                    : Integer;
  191  
  192     gvShowOp tionTabs              : string;
  193  
  194     gvID,
  195       gvLast Location,
  196       gvPass ,
  197       //gvJA WS_Dir,
  198       gvSpec ialResults List,
  199       gvUpda teSeries,
  200       gvDLL_ Version,
  201       gvCoSi gnerIEN,
  202       gvProg ressNoteIE N
  203                                    : string;
  204  
  205     gvShowAl lOrOneItem ,
  206       gvVisu alBeeps,
  207       gvDefa ultSize,
  208       gvShow Hints,
  209       gvShow Image,
  210       gvShow ScreenRead erMsg,
  211       gvChec kResourceF iles,
  212       gvCPRS ShutDown
  213                                    : Boolean;
  214  
  215     gvDateGi ven,
  216       gvUpda te                    : TDateTim e;
  217  
  218     gvAPICal ls                    : TStringL ist;
  219  
  220     gvAdmin                        : TAdminis tration;
  221  
  222     gvASI_Ty pe                    : integer;  // 1-Full , 2-Lite,  3-Followup , 4 - MV
  223  
  224     // patch  105 - Get  Environme nt Variabl e to deter mine which  program f ile direct ory should
  225     //              be  accessed f or finding  the YS_MH A_AUX.dll  file and s et into gl obal Aux F ile var  l lh
  226     gvEnvVar ,
  227       gvAuxF ile                   : string ;
  228  
  229  
  230   implementa tion
  231  
  232   end.
  233