19. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/31/2017 10:45:42 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.

19.1 Files compared

# Location File Last Modified
1 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\DLL-VITALSVIEWENTER GMV_VitalsViewEnter.dpr Tue Dec 13 18:26:04 2016 UTC
2 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\DLL-VITALSVIEWENTER GMV_VitalsViewEnter.dpr Fri Mar 31 15:01:00 2017 UTC

19.2 Comparison summary

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

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

19.4 Active regular expressions

No regular expressions were active.

19.5 Comparison detail

  1   library GM V_VitalsVi ewEnter;
  2  
  3   { Importan t note abo ut DLL mem ory manage ment: Shar eMem must  be the
  4     first un it in your  library's  USES clau se AND you r project' s (select
  5     Project- View Sourc e) USES cl ause if yo ur DLL exp orts any p rocedures  or
  6     function s that pas s strings  as paramet ers or fun ction resu lts. This
  7     applies  to all str ings passe d to and f rom your D LL--even t hose that
  8     are nest ed in reco rds and cl asses. Sha reMem is t he interfa ce unit to
  9     the BORL NDMM.DLL s hared memo ry manager , which mu st be depl oyed along
  10     with you r DLL. To  avoid usin g BORLNDMM .DLL, pass  string in formation
  11     using PC har or Sho rtString p arameters.  }
  12  
  13   uses
  14     ShareMem ,
  15     SysUtils ,
  16     Classes,
  17     TRPCB,
  18     CCOWRPCB roker,
  19     Dialogs,
  20     Forms,
  21     Controls ,
  22     fGMV_Pat ientVitals  in '..\Vi talsView\f GMV_Patien tVitals.pa s' {frmVit als} ,
  23     fGMV_Sho wSingleVit al in '..\ VitalsView \fGMV_Show SingleVita l.pas' {fr mGMV_ShowS ingleVital } ,
  24     fGMV_Dat eRange in  '..\Vitals Common\fGM V_DateRang e.pas' {fr mGMV_DateR ange} ,
  25     uGMV_Glo balVars in  '..\Vital sUtils\uGM V_GlobalVa rs.pas',
  26     uGMV_Con st in '..\ VitalsUtil s\uGMV_Con st.pas',
  27     uGMV_Use r in '..\V italsCommo n\uGMV_Use r.pas',
  28     uGMV_Fil eEntry in  '..\Vitals Common\uGM V_FileEntr y.pas',
  29     uGMV_Uti ls in '..\ VitalsUtil s\uGMV_Uti ls.pas',
  30     fGMV_Inp utLite in  '..\Vitals DataEntry\ fGMV_Input Lite.pas'  {frmGMV_In putLite} ,
  31     mGMV_Loo kup in '.. \VitalsDat aEntry\mGM V_Lookup.p as' {fraGM V_Lookup:  TFrame} ,
  32     uGMV_Tem plate in ' ..\VitalsD ataEntry\u GMV_Templa te.pas',
  33     mGMV_Inp utOne2 in  '..\Vitals DataEntry\ mGMV_Input One2.pas'  {fraGMV_In putOne2: T Frame} ,
  34     fGMV_Sup O2 in '..\ VitalsData Entry\fGMV _SupO2.pas ' {frmGMV_ SupO2} ,
  35     fGMV_Qua lifiers in  '..\Vital sDataEntry \fGMV_Qual ifiers.pas ' {frmGMV_ Qualifiers } ,
  36     uGMV_Qua lifyBox in  '..\Vital sDataEntry \uGMV_Qual ifyBox.pas ',
  37     uGMV_Sav eRestore i n '..\Vita lsCommon\u GMV_SaveRe store.pas' ,
  38     fGMV_Dat eTimeDLG i n '..\Vita lsCommon\f GMV_DateTi meDLG.pas'  {fGMV_Dat eTime} ,
  39     fGMV_PtS elect in ' ..\VitalsP atient\fGM V_PtSelect .pas' {frm GMV_PtSele ct} ,
  40     uGMV_Vit alTypes in  '..\Vital sCommon\uG MV_VitalTy pes.pas',
  41     uGMV_Pat ient in '. .\VitalsCo mmon\uGMV_ Patient.pa s',
  42     mGMV_MDa teTime in  '..\Vitals Common\mGM V_MDateTim e.pas',
  43     uGMV_Com mon in '.. \VitalsUti ls\uGMV_Co mmon.pas',
  44     mGMV_Gri dGraph in  '..\Vitals View\mGMV_ GridGraph. pas' {fraG MV_GridGra ph: TFrame } ,
  45     uGMV_Ver sionInfo i n '..\Vita lsUtils\uG MV_Version Info.pas',
  46     fROR_PCa ll in '..\ ROR\fROR_P Call.pas'  {RPCErrorF orm} ,
  47     uROR_RPC Broker in  '..\ROR\uR OR_RPCBrok er.pas',
  48     uVHA_ATE 740X in '. .\VS_Monit ors\uVHA_A TE740X.pas ',
  49     RS232 in  '..\VS_Mo nitors\RS2 32.pas',
  50     fGMV_Inp utTemp in  '..\Vitals DataEntry\ fGMV_Input Temp.pas'  {frmGMV_In putTemp} ,
  51     uGMV_Eng ine in '.. \VitalsUti ls\uGMV_En gine.pas',
  52     uGMV_EXE Version in  '..\Vital sUtils\uGM V_EXEVersi on.pas',
  53     uGMV_Set up in '..\ VitalsComm on\uGMV_Se tup.pas',
  54     fGMV_Ent eredInErro r in '..\V italsDataE ntry\fGMV_ EnteredInE rror.pas'  {frmGMV_En teredInErr or} ,
  55     uGMV_DLL Common in  '..\Vitals Utils\uGMV _DLLCommon .pas',
  56     fGMV_PtI nfo in '.. \VitalsPat ient\fGMV_ PtInfo.pas ' {fraGMV_ PatientInf o} ,
  57     fGMV_Abo utDlg in ' ..\VitalsC ommon\fGMV _AboutDlg. pas' {frmG MV_AboutDl g} ,
  58     fGMV_Inf o in '..\V italsView\ fGMV_Info. pas' {frmG MV_Info} ,
  59     fGMV_Hos pitalSelec tor2 in '. .\VitalsCo mmon\fGMV_ HospitalSe lector2.pa s' {frmGMV _HospitalS elector2}  ,
  60     fGMV_RPC Log in '.. \VitalsCom mon\fGMV_R PCLog.pas'  {frmGMV_R PCLog} ,
  61     fGMV_Sel ectColor i n '..\Vita lsCommon\f GMV_Select Color.pas'  {frmGMV_S electColor } ,
  62     fGMV_Use rSettings  in '..\Vit alsCommon\ fGMV_UserS ettings.pa s' {frmGMV _UserSetti ngs} ,
  63     uGMV_CRC 32 in '..\ VitalsUtil s\uGMV_CRC 32.pas',
  64     uXML in  '..\Vitals Utils\uXML .pas',
  65     uGMV_Mon itor in '. .\VS_Monit ors\uGMV_M onitor.pas ',
  66     mGMV_Def aultSelect or in '..\ VITALSCOMM ON\mGMV_De faultSelec tor.pas' { frDefaultS elector: T Frame} ,
  67     uGMV_RPC _Names in  '..\VITALS COMMON\uGM V_RPC_Name s.pas',
  68     uGMV_Log  in '..\VI TALSCOMMON \uGMV_Log. pas',
  69     uGMV_Win dowsEvents  in '..\VI TALSCOMMON \uGMV_Wind owsEvents. pas',
  70     uGMV_App Version in  '..\VITAL SCOMMON\uG MV_AppVers ion.pas',
  71     U_HelpMG R in '..\V ITALSCOMMO N\U_HelpMG R.pas';
  72  
  73   {$R *.res}
  74  
  75  
  76   /// ////// ////////// ////////// ////////// ////////// ////////// ////////// ////////// /
  77   procedure  VitalsExit ; export;  stdcall;
  78   begin
  79     Applicat ion.Termin ate;
  80     // if As signed(frm Vitals) th en
  81     // try
  82     // frmVi tals.Modal Result :=  mrCancel;
  83     // excep t
  84     // end;
  85   end;
  86  
  87   function C heckVersio n: Integer ;
  88   var
  89     sName: S tring;
  90     sPrevNam e: String;
  91   begin
  92     Result : = 0;
  93  
  94     with TVe rsionInfo. Create(App lication)  do
  95       try
  96         Open File(GetMo duleName(H Instance)) ;
  97         sNam e := FileV ersion;
  98         sPre vName := P reviousVer sion;
  99       finall y
  100         free ;
  101       end;
  102     // sName  := Curren tDllNameAn dVersion;
  103     // sPrev Name := Pr evDllNameA ndVersion;
  104     if (getD LLInfo(sNa me) <> 'YE S') and (g etDLLInfo( sPrevName)  <> 'YES')  then
  105       begin
  106         Show Message(
  107           '        This  version o f the Vita ls Viewer  (' + sName  + ')' + # 13#10 +
  108           '                 is not  compatibl e with the  server so ftware.' +  #13#10#13 #10 +
  109           'P lease cont act IRM to  update th e GMV_Vita lsViewEnte r.dll file .');
  110         Resu lt := -1;
  111       end;
  112     CheckBro kerFlag :=  getSystem ParameterB yName('CHE CKBROKERST ATUS') = ' TRUE';
  113   end;
  114  
  115   procedure  setTimeOut (aSeconds:  Integer);  export; s tdcall;
  116   begin
  117     // Updat eTimeOutIn terval(aSe conds); //  requires  fGMV_TimeO utManager;
  118   end;
  119  
  120   /// ////// ////////// ////////// ////////// ////////// ////////// ////////// ////////// /
  121   // This wi ll be used  by CPRS
  122   /// ////// ////////// ////////// ////////// ////////// ////////// ////////// ////////// /
  123  
  124   function V italsViewD LG( // cal led from C oversheet  of the CPR S
  125     const aB roker: TRP CBroker;
  126     aDFN, //  '72'
  127     aLocatio n, // '36'
  128     DateStar t, // '04/ 30/05'
  129     DateStop , // '10/3 1/05'
  130     aSignatu re, // 'CP RS'
  131     aContext In, // 'OR  CPRS GUI  CHART'
  132     aContext Out, // 'O R CPRS GUI  CHART'
  133     aName, / / 'SKYWALK ER, LUKE'
  134     anInfo,  // '555-11 -2222'
  135     aHospita lName: Str ing): Inte ger; expor t; stdcall ; // 'MICU ^P
  136   var
  137     anItem:  TRPCEventI tem;
  138   begin
  139     { Window sLogLine(
  140       'Vtals ViewDLG  ' + ' ' +#13 #10+
  141       'DFN:         '+a DFN + ' '  +#13#10+
  142       'Locat ion:   '+a Location+  ' ' +#13#1 0+
  143       'Date  Start: '+D ateStart +  ' ' +#13# 10+
  144       'Date  Stop:  '+D ateStop +  ' ' +#13#1 0+
  145       'Signa ture:  '+a Signature  + ' ' +#13 #10+
  146       'Conte xt In: '+a ContextIn+  ' ' +#13# 10+
  147       'Conte xt Out:'+a ContextOut + ' ' +#13 #10+
  148       //     'Name:        '+aName + ' ' +#13 #10+
  149       //     'Info:        '+anInf o+ ' ' +#1 3#10+
  150       'Hospi tal:  '+aH ospitalNam e);
  151       // vha ishandria  2008-02-06  ========= ========== ========== ========== ======== b egin
  152       anItem  := getRPC EventItem( Now, Now,
  153       'Vtals ViewDLG',
  154       ['DFN:         '+ aDFN,
  155       'Locat ion:   '+a Location,
  156       'Date  Start: '+D ateStart,
  157       'Date  Stop:  '+D ateStop,
  158       'Signa ture:  '+a Signature,
  159       'Conte xt In: '+a ContextIn,
  160       'Conte xt Out:'+a ContextOut ,
  161       'Name:        '+a Name,
  162       'Info:        '+a nInfo,
  163       {'Hosp ital:  '+a HospitalNa me],
  164       nil,
  165       [],
  166       nil
  167         ); }//  DN S      BELLC    REMED OUT  AFTER CALL  WITH ANDR EY. THIS W AS USED FO R TESTNG
  168     RPCLog.I nsertObjec t(0, Forma tDateTime( 'hh:mm:ss. zzz', Now)  + '   ' +  'VitalsVi ewDLG', an Item);
  169     // vhais handria 20 08-02-06 = ========== ========== ========== ========== ======== e nd
  170  
  171     // calle d from Cov ersheet of  the CPRS
  172     // no ne ed to twea k the time out since  Applicatio n.Terminat e is worki ng
  173     // InitT imeOut(nil );
  174  
  175     RPCBroke r := TCCOW RPCBroker( aBroker);
  176     RPCBroke r.ClearPar ameters :=  True;
  177     RPCBroke r.ClearRes ults := Tr ue;
  178  
  179     Result : = -1;
  180     if Check Version <  0 then
  181       Exit;
  182  
  183     if (aCon textIn <>  '') and no t CreateCo ntext(aCon textIn) th en
  184       begin
  185         Mess ageDLG('Yo u do not h ave the <'  + aContex tIn + '> o ptions' +  #13 +
  186           'P lease cont act IRMS',  mtError,  [mbOK], 0) ;
  187         Resu lt := -1;
  188         Exit ;
  189       end
  190     else
  191       begin
  192         Resu lt := Proc essInPatie ntVitals(a DFN, aLoca tion, Date Start, Dat eStop, aSi gnature, a Name, anIn fo, aHospi talName);
  193         if ( aContextOu t <> '') a nd not aBr oker.Creat eContext(a ContextOut ) then
  194           be gin
  195              MessageDLG ('You do n ot have th e <' + aCo ntextOut +
  196                'options ' + #13 +  'Please co ntact IRMS ', mtError , [mbOK],  0);
  197              Result :=  -2;
  198           en d;
  199       end;
  200     // ShutD ownTimeOut ;
  201     WindowsL ogLine('Vt alsViewDLG : OK');
  202   end;
  203  
  204   /// ////// ////////// ////////// ////////// ////////// ////////// ////////// ////////// /
  205  
  206   function V italsEnter DLG(
  207     const aB roker: TRP CBroker;
  208     aPatient , // '72'
  209     aLocatio n, // '36'
  210     aTemplat e, // ''
  211     aSignatu re: String ; // 'CPRS '
  212     aDateTim e: TDateTi me; // 386 56.59678
  213     aPatient Name, // ' SKYWALKER,  LUKE'
  214     aPatient Info: Stri ng): Integ er; export ; stdcall;  // ' 555- 11-2222 Ma y 20, 1966  (39)
  215   var
  216     anItem:  TRPCEventI tem;
  217   begin
  218     // vhais handria 20 08-02-06 = ========== ========== ========== ========== ====== beg in
  219     anItem : = getRPCEv entItem(No w, Now,
  220       'Vtals EnterDLG',
  221       ['DFN:        ' +  aPatient,
  222       'Locat ion:   ' +  aLocation ,
  223       'Templ ate:   ' +  aTemplate ,
  224       'Signa ture:  ' +  aSignatur e,
  225       'DateT ime:   ' +  FloatToSt r(aDateTim e),
  226       'Name:        ' +  aPatientN ame,
  227       'Info:        ' +  aPatientI nfo],
  228       nil,
  229       [],
  230       nil
  231       );
  232  
  233     RPCLog.I nsertObjec t(0, Forma tDateTime( 'hh:mm:ss. zzz', Now)  + '   ' +
  234       'Vital sEnterDLG' ,
  235       anItem );
  236     // vhais handria 20 08-02-06 = ========== ========== ========== ========== ======== e nd
  237     Result : = -1;
  238     if Check Version <  0 then
  239       Exit;
  240  
  241     if aLoca tion = ''  then
  242       begin
  243         Mess ageDLG('Un known pati ent locati on.' + #13  + #10 + ' Please sel ect locati on prior t o entering  Vitals',  mtError, [ mbOK], 0);
  244         Exit ;
  245       end;
  246     try
  247       RPCBro ker := TRP CBroker(aB roker);
  248  
  249       RPCBro ker.ClearP arameters  := True;
  250       RPCBro ker.ClearR esults :=  True;
  251  
  252       Result  := Vitals InputDLG(
  253         aPat ient,
  254         aLoc ation,
  255         aTem plate,
  256         aSig nature,
  257         aDat eTime,
  258         aPat ientName,
  259         aPat ientInfo
  260         );
  261     except
  262       on E:  Exception  do
  263         Show Message('E rror: ' +  E.Message) ;
  264     end;
  265   end;
  266  
  267   /// ////// ////////// ////////// ////////// ////////// ////////// ////////// ////////
  268  
  269   function V italsEnter Form(const  aBroker:  TRPCBroker ; aDFN, aL ocation, a Template,  aSignature : String;  aDateTime:  TDateTime ): TfrmGMV _InputLite ; export;  stdcall;
  270   begin
  271     RPCBroke r := TRPCB roker(aBro ker);
  272  
  273     RPCBroke r.ClearPar ameters :=  True;
  274     RPCBroke r.ClearRes ults := Tr ue;
  275  
  276     Result : = nil;
  277     if Check Version <  0 then
  278       Exit;
  279  
  280     Result : = VitalsIn putForm(aD FN, aLocat ion, aTemp late, aSig nature, aD ateTime);
  281   end;
  282  
  283   function g etVitalsVi ewForm(
  284     const aB roker: TRP CBroker;
  285     aDFN,
  286     aLocatio n,
  287     DateStar t,
  288     DateStop ,
  289     aSignatu re,
  290     aContext In,
  291     aContext Out,
  292     aName,
  293     anInfo,
  294     aHospita lName: Str ing): Tfrm Vitals; ex port; stdc all;
  295   begin
  296     RPCBroke r := TCCOW RPCBroker( aBroker);
  297     RPCBroke r.ClearPar ameters :=  True;
  298     RPCBroke r.ClearRes ults := Tr ue;
  299  
  300     Result : = nil;
  301     if Check Version <  0 then
  302       Exit;
  303  
  304     Result : = getVital sForm(aDFN , aLocatio n, DateSta rt, DateSt op,
  305       aSigna ture, aNam e, anInfo,  aHospital Name);
  306   end;
  307  
  308   function L atestVital sList(cons t aBroker:  TRPCBroke r; aPatien t, aDelim:  String; b Silent: Bo olean): TS tringList;  export; s tdcall;
  309   var
  310     bParams,  bResults:  Boolean;
  311   begin
  312     bParams  := aBroker .ClearPara meters;
  313     bResults  := aBroke r.ClearRes ults;
  314  
  315     RPCBroke r := TCCOW RPCBroker( aBroker);
  316     RPCBroke r.ClearPar ameters :=  True;
  317     RPCBroke r.ClearRes ults := Tr ue;
  318  
  319     Result : = nil;
  320     if Check Version >=  0 then
  321       Result  := GetLat estVitals( aPatient,  aDelim, bS ilent);
  322  
  323     aBroker. ClearParam eters := b Params;
  324     aBroker. ClearResul ts := bRes ults;
  325   end;
  326  
  327   /// ////// ////////// ////////// ////////// ////////// ////////// ////////// ////////// /
  328  
  329   exports
  330     VitalsEn terDLG nam e 'GMV_Vit alsEnterDL G', // Vit alsInputDL G  - fGMV_ InputLite
  331     VitalsVi ewDLG name  'GMV_Vita lsViewDLG' , // Proce ssInPatien tVitals -  frmPatient Vitals
  332     getVital sViewForm  name 'GMV_ VitalsView Form', //  getVitalsF orm - frmP atientVita ls
  333     VitalsEn terForm na me 'GMV_Vi talsEnterF orm', // V italsInput Form  - fG MV_InputLi te
  334     VitalsEx it name 'G MV_VitalsE xit', // A pplication .Terminate
  335     LatestVi talsList n ame 'GMV_L atestVital sList'; //  GetLatest Vitals - f GMV_InputL ite
  336  
  337   begin
  338  
  339     (*
  340       There  library GM V_VitalsVi ewEnter in cludes 6 f unctions:
  341  
  342       'GMV_V italsExit'        - p rocedure
  343       'GMV_V italsEnter DLG'   - f unction
  344       'GMV_V italsViewD LG'    - f unction
  345       'GMV_V italsViewF orm'   - f unction
  346       'GMV_V italsEnter Form'  - f unction
  347       'GMV_L atestVital sList' - f unction
  348  
  349       proced ure GMV_Vi talsExit;e xport;stdc all;
  350       - no p arameters.
  351       Does n ot used in  CPRS
  352  
  353       functi on GMV_Vit alsViewDLG (
  354       const  aBroker:TR PCBroker;
  355       aDFN,
  356       aLocat ion,
  357       DateSt art,
  358       DateSt op,
  359       aSigna ture,
  360       aConte xtIn,
  361       aConte xtOut,
  362       aName,
  363       anInfo ,
  364       aHospi talName: S tring):Int eger;expor t;stdcall;
  365  
  366       Create d the Vita ls View wi ndow and s hows it as  the modal  dialog.
  367       Return s the resu lt of the  modal dial og.
  368       Parame ters:
  369       aBroke r: TRPCBro ker - an n stance of  the TRPCBr oker to be  used for  RPC execut ion
  370       aDFN:  String - t he patient  DFN
  371       aLocat ion: Strin g - the lo cation ID
  372       DateSt art: Strin g - date " From" Wind ows format
  373       DateSt op: String  - date "T o" - Windo ws format
  374       aSigna ture: Stri ng - strin g identify ing the ca lling appl ication
  375       aConte xtIn: Stri ng - the a pplication  context t o be set u p at start up of the  function
  376       aConte xtOut: Str ing - the  applicatio n context  to be set  up on exit  of the fu nction
  377       aName:  String -  patient Na me
  378       anInfo : String -  Patient i nfo
  379       aHospi talName: S tring - co ntains 2 p arts delim ited by '^ '.
  380       First  part conta ins the ho spital nam e, second  - the abbr eviation o f
  381       the Vi tals sign  to be sele cted at th e start up
  382       Result  Type: Int eger;
  383  
  384  
  385       functi on GMV_Vit alsEnterFo rm(
  386       const  aBroker:TR PCBroker;
  387       aDFN,
  388       aLocat ion,
  389       aTempl ate,
  390       aSigna ture: Stri ng;
  391       aDateT ime:TDateT ime):TfrmG MV_InputLi te;export; stdcall;
  392  
  393       Create s the Vita ls Input f orm and re turns it t o the call ing applic ation
  394       Parame ters:
  395       aBroke r: TRPCBro ker - an n stance of  the TRPCBr oker to be  used for  RPC execut ion
  396       aDFN:  String - t he patient  DFN
  397       aLocat ion: Strin g - the lo cation ID
  398       aTempl ate: Strin g - the te mplate ID  to be used
  399       aSigna ture: Stri ng - strin g identify ing the ca lling appl ication
  400       aDateT ime: TDate Time - dat e to be us ed for the  input
  401       Result  type Tfrm GMV_InputL ite
  402  
  403       functi on GMV_Vit alsViewFor m(
  404       const  aBroker:TR PCBroker;
  405       aDFN,
  406       aLocat ion,
  407       DateSt art,
  408       DateSt op,
  409       aSigna ture,
  410       aConte xtIn,
  411       aConte xtOut,
  412       aName,
  413       anInfo ,
  414       aHospi talName: S tring):Tfr mVitals;ex port;stdca ll;
  415  
  416       Create d the Vita ls View wi ndow and r eturns it  to the cal ling appli cation
  417       Parame ters:
  418       aBroke r: TRPCBro ker - an n stance of  the TRPCBr oker to be  used for  RPC execut ion
  419       aDFN:  String - t he patient  DFN
  420       aLocat ion: Strin g - the lo cation ID
  421       DateSt art: Strin g - date " From" Wind ows format
  422       DateSt op: String  - date "T o" - Windo ws format
  423       aSigna ture: Stri ng - strin g identify ing the ca lling appl ication
  424       aConte xtIn: Stri ng - the a pplication  context t o be set u p at start up of the  function
  425       aConte xtOut: Str ing - the  applicatio n context  to be set  up on exit  of the fu nction
  426       aName:  String -  patient Na me
  427       anInfo : String -  Patient i nfo
  428       aHospi talName: S tring - co ntains 2 p arts delim ited by '^ '.
  429       First  part conta ins the ho spital nam e, second  - the abbr eviation o f
  430       the Vi tals sign  to be sele cted at th e start up
  431       Result : TfrmVita ls;
  432  
  433       functi on  GMV_La testVitals List(
  434       const  aBroker:TR PCBroker;
  435       aPatie nt,
  436       aDelim :String;
  437       bSilen t:Boolean) :TStringLi st;export; stdcall;
  438  
  439       Return s the list  of string s with the  set of la test Vital s signs fo r the pati ent;
  440       Parame ters:
  441       aBroke r: TRPCBro ker - an n stance of  the TRPCBr oker to be  used for  RPC execut ion
  442       aPatie nt: String  - the pat ient DFN
  443       aDelim : String -  reserved
  444       bSilen t: Boolean  - if True  no error  messages w ill be gen erated
  445       Result  Type: TSt ringList
  446  
  447     *)
  448  
  449   end.