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

32.1 Files compared

# Location File Last Modified
1 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSCOMMON uGMV_FileEntry.pas Tue Dec 13 18:25:58 2016 UTC
2 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSCOMMON uGMV_FileEntry.pas Fri Mar 31 15:01:25 2017 UTC

32.2 Comparison summary

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

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

32.4 Active regular expressions

No regular expressions were active.

32.5 Comparison detail

  1   unit uGMV_ FileEntry;
  2   {
  3   ========== ========== ========== ========== ========== ========== ========== ==========
  4   *
  5   *       Ap plication:   Vitals
  6   *       Re vision:      $Revisio n: 1 $  $M odtime: 12 /20/07 12: 44p $
  7          Developer:       PII                   
  8   *       Si te:          Hines OI FO
  9   *
  10   *       De scription:   File Ent ry
  11   *
  12   *       No tes:
  13   *
  14   ========== ========== ========== ========== ========== ========== ========== ==========
  15   *       $A rchive: /V itals/5.0  (Version 5 .0)/5.0.23  (Patch 23 )/VITALS_5 _0_23_8/So urce/VITAL SCOMMON/uG MV_FileEnt ry.pas $
  16   *
  17   * $History : uGMV_Fil eEntry.pas  $
  18    * 
  19    * ******* **********   Version  1  ******* **********
  20    * User: V haishandri a Date: 8/ 12/09    T ime: 8:29a
  21    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_8/Sourc e/VITALSCO MMON
  22    * 
  23    * ******* **********   Version  1  ******* **********
  24    * User: V haishandri a Date: 3/ 09/09    T ime: 3:38p
  25    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_6/Sourc e/VITALSCO MMON
  26    * 
  27    * ******* **********   Version  1  ******* **********
  28    * User: V haishandri a Date: 1/ 13/09    T ime: 1:26p
  29    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_4/Sourc e/VITALSCO MMON
  30    * 
  31    * ******* **********   Version  2  ******* **********
  32    * User: V haishandri a Date: 7/ 18/07    T ime: 12:42 p
  33    * Updated  in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSCOMMON
  34    * 
  35    * ******* **********   Version  1  ******* **********
  36    * User: V haishandri a Date: 5/ 14/07    T ime: 10:29 a
  37    * Created  in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSCOMMON
  38    * 
  39    * ******* **********   Version  1  ******* **********
  40    * User: V haishandri a Date: 5/ 16/06    T ime: 5:43p
  41    * Created  in $/Vita ls/VITALS- 5-0-18/Vit alsCommon
  42    * GUI v.  5.0.18 upd ates the d efault vit al type IE Ns with th e local
  43    * values.
  44    * 
  45    * ******* **********   Version  1  ******* **********
  46    * User: V haishandri a Date: 5/ 16/06    T ime: 5:33p
  47    * Created  in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /VitalsCom mon
  48    * 
  49    * ******* **********   Version  1  ******* **********
  50    * User: V haishandri a Date: 5/ 24/05    T ime: 3:33p
  51    * Created  in $/Vita ls/Vitals  GUI  v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7  (CASMed,  No CCOW) -  Delphi 6/ VitalsComm on
  52    * 
  53    * ******* **********   Version  1  ******* **********
  54    * User: V haishandri a Date: 4/ 16/04    T ime: 4:18p
  55    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, CPRS,  Delphi 7) /VITALSCOM MON
  56    *
  57   ========== ========== ========== ========== ========== ========== ========== ==========
  58   }
  59  
  60   interface
  61  
  62   uses
  63     SysUtils
  64     , Classe s
  65     , Dialog s
  66     ;
  67  
  68   type
  69  
  70     TGMV_Fil eReference  = class(T Object)
  71     private
  72       FTypes : TStringL ist;
  73       FDDNum ber: strin g;
  74       FFileN ame: strin g;
  75       fLoade dLast: str ing; // vh aishandria  060801
  76       fLoade d: Boolean ; // vhais handria 06 0801
  77       functi on GetName (Index: in teger): st ring;
  78     public
  79       constr uctor Crea te; virtua l;
  80       destru ctor Destr oy; overri de;
  81       proced ure LoadEn tries(File Number: st ring);
  82       proced ure LoadEn triesConve rted(FileN umber: str ing);//AAN  01/22/200 3 sorting  problem
  83       functi on LoadEnt riesStartC ount(FileN umber, Sta rtNumber:  string;
  84         Coun t: Integer ): Integer ;   // vha ishandria  060801
  85       proced ure Displa y;
  86       functi on IndexOf IEN(IEN: s tring): in teger;
  87       functi on NameOfI EN(IEN:Str ing):Strin g;
  88       proper ty Name[In dex: integ er]: strin g read Get Name;
  89       proper ty Loaded:  Boolean r ead fLoade d;
  90     publishe d
  91       proper ty Entries : TStringL ist read F Types;
  92     end;
  93  
  94     TGMV_Vit alType = c lass(TGMV_ FileRefere nce)
  95     public
  96       constr uctor Crea te; overri de;
  97     end;
  98  
  99     TGMV_Vit alQual = c lass(TGMV_ FileRefere nce)
  100     public
  101       constr uctor Crea te; overri de;
  102     end;
  103  
  104     TGMV_Vit alCat = cl ass(TGMV_F ileReferen ce)
  105     public
  106       constr uctor Crea te; overri de;
  107     end;
  108  
  109     TGMV_War dLocation  = class(TG MV_FileRef erence)
  110     public
  111       constr uctor Crea te; overri de;
  112       proced ure LoadWa rds;
  113     end;
  114  
  115     TGMV_Tea ms = class (TGMV_File Reference)
  116     public
  117       constr uctor Crea te; overri de;
  118     end;
  119  
  120     TGMV_Cli nics = cla ss(TGMV_Fi leReferenc e)
  121     public
  122       constr uctor Crea te; overri de;
  123     end;
  124  
  125     TGMV_Nur singUnit =  class(TGM V_FileRefe rence)
  126     public
  127       constr uctor Crea te; overri de;
  128     end;
  129  
  130     TGMV_Fil eEntry = c lass(TObje ct)
  131     private
  132       FDDNum ber: strin g;
  133       FCapti on: string ;
  134       FIEN:  string;
  135       FCapti onConverte d:String;/ / AAN - so rting prob lem 01/21/ 2003
  136       proced ure SetCap tion(const  Value: st ring);
  137       proced ure SetCap tionConver ted(const  Value: str ing);// AA N - sortin g problem  01/22/2003
  138       proced ure SetDDN umber(cons t Value: s tring);
  139       proced ure SetIEN (const Val ue: string );
  140       functi on GetIENS : string;
  141     public
  142       constr uctor Crea te;
  143       constr uctor Crea teFromRPC( Data: stri ng);
  144       destru ctor Destr oy; overri de;
  145       functi on FieldDa ta(FieldNu mber: stri ng): strin g;
  146     publishe d
  147       proper ty DDNumbe r: string  read FDDNu mber write  SetDDNumb er;
  148       proper ty IEN: st ring read  FIEN write  SetIEN;
  149       proper ty Caption : string r ead FCapti on write S etCaption;
  150       proper ty Caption Converted:  string re ad FCaptio nConverted  write Set CaptionCon verted; //  AAN - sor ting probl em 01/21/2 003
  151       proper ty IENS: s tring read  GetIENS;
  152     end;
  153  
  154   var
  155     GMVTypes : TGMV_Vit alType;
  156     GMVQuals : TGMV_Vit alQual;
  157     GMVCats:  TGMV_Vita lCat;
  158     GMVWardL ocations:  TGMV_WardL ocation;
  159     GMVTeams : TGMV_Tea ms;
  160     GMVClini cs: TGMV_C Linics;
  161     GMVNursi ngUnits: T GMV_Nursin gUnit;
  162  
  163   procedure  CreateGMVG lobalVars;
  164   procedure  ReleaseGMV GlobalVars ;
  165  
  166   const
  167     LOAD_LIM IT = 10;
  168  
  169   procedure  InitVitals IENS;
  170  
  171   implementa tion
  172  
  173   uses uGMV_ Common
  174     , uGMV_U tils
  175     , uGMV_V italTypes
  176     , uGMV_E ngine
  177   ;
  178  
  179   { GMV_Vita lType }
  180  
  181   constructo r TGMV_Fil eReference .Create;
  182   begin
  183     FTypes : = TStringL ist.Create ;
  184     fLoaded  := False;  // vhaisha ndria 0608 01
  185     fLoadedL ast := '';  // vhaish andria 060 801
  186   end;
  187  
  188   destructor  TGMV_File Reference. Destroy;
  189   begin
  190     FreeAndN il(FTypes) ;
  191     inherite d;
  192   end;
  193  
  194   procedure  TGMV_FileR eference.L oadEntries (FileNumbe r: string) ;
  195   var
  196     i: integ er;
  197     fe: TGMV _FileEntry ;
  198     RetList:  TStrings;
  199     s: Strin g;
  200   begin
  201     FDDNumbe r := FileN umber;
  202  
  203     RetList  := getFile Entries(FD DNumber);
  204     if RetLi st.Count >  0 then
  205       begin
  206         FFil eName := C opy(RetLis t[0], Pos( '^', RetLi st[0]), Le ngth(RetLi st[0]));
  207         FTyp es.Sorted  := True; / /AAN 08/08 /2002
  208         for  i := 1 to  RetList.Co unt - 1 do
  209           be gin
  210              s := RetLi st[i];
  211              fe := TGMV _FileEntry .CreateFro mRPC(s);
  212              FTypes.Add Object(fe. Caption, f e);
  213           en d;
  214       end;
  215     fLoaded  := True;
  216     RetList. Free;
  217   end;
  218  
  219   procedure  TGMV_FileR eference.L oadEntries Converted( FileNumber : string);
  220   var
  221     i: integ er;
  222     fe: TGMV _FileEntry ;
  223     s: Strin g;
  224     RetList:  TStrings;
  225   begin
  226     FDDNumbe r := FileN umber;
  227     // pulli ng records  in severa l steps to  avoid tim eouts
  228     s := '0' ;
  229     repeat
  230       s := F ileNumber  + '^'+ s;
  231         RetL ist := get FileEntrie s(s);
  232         if R etList.Cou nt > 0 the n
  233           be gin
  234              FFileName  := Copy(Re tList[0],  Pos('^', R etList[0]) , Length(R etList[0]) );
  235              FTypes.Sor ted := Tru e; //AAN 0 8/08/2002
  236              for i := 1  to RetLis t.Count -  1 do
  237                begin
  238                  fe :=  TGMV_FileE ntry.Creat eFromRPC(R etList[i]) ;
  239                  FTypes .AddObject (fe.Captio nConverted , fe);
  240                  s := f e.FIEN;
  241                end;
  242              if RetList .Count < 1 2 then
  243                s := '';
  244           en d;
  245       RetLis t.Free;
  246     until s  = '';
  247     fLoaded  := True;
  248   end;
  249  
  250   function T GMV_FileRe ference.Lo adEntriesS tartCount( FileNumber , StartNum ber: strin g;
  251     Count: I nteger): I nteger;
  252   var
  253     iCount,  i: integer ;
  254     fe: TGMV _FileEntry ;
  255     s: Strin g;
  256     RetList:  TStrings;
  257   begin
  258     FTypes.S orted := T rue;
  259     FDDNumbe r := FileN umber;
  260     fLoadedL ast := Sta rtNumber;
  261     iCount : = Count;
  262     repeat
  263       s := F ileNumber  + '^'+ fLo adedLast;
  264       RetLis t := getFi leEntries( s);
  265       if Ret List.Count  > 1 then
  266         begi n
  267           FF ileName :=  Copy(RetL ist[0], Po s('^', Ret List[0]),  Length(Ret List[0]));
  268           fo r i := 1 t o RetList. Count - 1  do  // vha ishandria  060801
  269              begin
  270                fe := TG MV_FileEnt ry.CreateF romRPC(Ret List[i]);
  271                FTypes.A ddObject(f e.CaptionC onverted,  fe);
  272                fLoadedL ast := fe. FIEN;
  273                dec(iCou nt);
  274                if iCoun t = 0 then  break;
  275              end;
  276           if  i < RetLi st.Count-1  then
  277              begin
  278                s := '';
  279                if iCoun t > 0 then
  280                  fLoade d := True;
  281              end;
  282         end
  283       else
  284         begi n
  285           fL oaded := T rue;
  286           br eak;
  287         end;
  288       RetLis t.Free;
  289     until (s  = '') or  (iCount=0) ;
  290     Result : = Count -  iCount;
  291   end;
  292  
  293   function T GMV_FileRe ference.In dexOfIEN(I EN: string ): integer ;
  294   var
  295     i: integ er;
  296   begin
  297     Result : = -1;
  298     for i :=  0 to FTyp es.Count -  1 do
  299       if TGM V_FileEntr y(FTypes.O bjects[i]) .IEN = IEN  then
  300         begi n
  301           Re sult := i;
  302           Ex it;
  303         end;
  304   end;
  305  
  306   function T GMV_FileRe ference.Na meOfIEN(IE N:String): String;
  307   begin
  308     try
  309       result  := FTypes [IndexOfIE N(IEN)];
  310     except
  311       Result  := '';
  312     end;
  313   end;
  314  
  315   procedure  TGMV_FileR eference.D isplay;
  316   var
  317     x: strin g;
  318     i: integ er;
  319   begin
  320     x := Sel f.ClassNam e + ' disp lay' + #13  +
  321       'FileN ame: ' + F FileName +  #13 +
  322       'Data  Dictionary : ' + FDDN umber;
  323     for i :=  0 to FTyp es.Count -  1 do
  324       x := x  + #13 + ' IEN: ' + T GMV_FileEn try(FTypes .Objects[i ]).IEN + # 9 + FTypes [i];
  325     ShowMess age(x); {D ebug tool! }
  326   end;
  327  
  328   function T GMV_FileRe ference.Ge tName(Inde x: integer ): string;
  329   var
  330     i: integ er;
  331   begin
  332     if Index  = 0 then
  333       Result  := ''
  334     else
  335       begin
  336         Resu lt := '*No  Such Entr y*';
  337         for  i := 0 to  FTypes.Cou nt - 1 do
  338           if  integer(F Types.Obje cts[i]) =  Index then
  339              begin
  340                Result : = FTypes[i ];
  341                Exit;
  342              end;
  343       end;
  344   end;
  345  
  346   { TGMV_Vit alType }
  347  
  348   constructo r TGMV_Vit alType.Cre ate;
  349   begin
  350     inherite d Create;
  351     LoadEntr ies('120.5 1');
  352   end;
  353  
  354   { TGMV_Vit alQual }
  355  
  356   constructo r TGMV_Vit alQual.Cre ate;
  357   begin
  358     inherite d Create;
  359     LoadEntr ies('120.5 2');
  360   end;
  361  
  362   { TGMV_Vit alCat }
  363  
  364   constructo r TGMV_Vit alCat.Crea te;
  365   begin
  366     inherite d Create;
  367     LoadEntr ies('120.5 3');
  368   end;
  369  
  370   { TGMV_War dLocation  }
  371  
  372   constructo r TGMV_War dLocation. Create;
  373   begin
  374     inherite d  Create;
  375     //LoadEn tries('42' );
  376   end;
  377  
  378   procedure  TGMV_WardL ocation.Lo adWards;
  379   var
  380     i: integ er;
  381     fe: TGMV _FileEntry ;
  382     RetList:  TStrings;
  383     s,sName, sID: Strin g;
  384   begin
  385     FDDNumbe r := '42';
  386  
  387     RetList  := getWard Locations( 'A');// Re turn ALL W ards
  388     if RetLi st.Count >  0 then
  389       begin
  390   //      FF ileName :=  Copy(RetL ist[0], Po s('^', Ret List[0]),  Length(Ret List[0]));
  391         FFil eName := ' 42';
  392         FTyp es.Sorted  := True; / /AAN 08/08 /2002
  393   //      fo r i := 1 t o RetList. Count - 1  do
  394         for  i := 0 to  RetList.Co unt - 1 do
  395           be gin
  396              s := RetLi st[i];
  397              sName := p iece(s,'^' ,2);
  398              sID := pie ce(s,'^',3 );
  399   //           fe := TG MV_FileEnt ry.CreateF romRPC(Ret List[i]);
  400              fe := TGMV _FileEntry .CreateFro mRPC('42;' +sID+'^'+s Name);
  401              FTypes.Add Object(fe. Caption, f e);
  402           en d;
  403       end;
  404     fLoaded  := True;
  405     RetList. Free;
  406   end;
  407  
  408  
  409   { TGMV_Tea ms }
  410  
  411   constructo r TGMV_Tea ms.Create;
  412   begin
  413     inherite d  Create;
  414     //LoadEn tries('100 .21');
  415   end;
  416  
  417   { TGMV_CLi nics }
  418  
  419   constructo r TGMV_Cli nics.Creat e;
  420   begin
  421     inherite d  Create;
  422     //LoadEn tries('44' );
  423   end;
  424  
  425   { TGMV_Nur singUnit }
  426  
  427   constructo r TGMV_Nur singUnit.C reate;
  428   begin
  429     inherite d  Create;
  430     //LoadEn tries('211 .4');
  431   end;
  432  
  433   { TGMV_Fil eEntry }
  434  
  435   constructo r TGMV_Fil eEntry.Cre ate;
  436   begin
  437     inherite d;
  438   end;
  439  
  440   constructo r TGMV_Fil eEntry.Cre ateFromRPC (Data: str ing);
  441   begin
  442     inherite d Create;
  443     FDDNumbe r := Piece (Data, ';' , 1);
  444     FIEN :=  Piece(Piec e(Data, '; ', 2), '^' , 1);
  445     FCaption  := Piece( Data, '^',  2);
  446     FCaption Converted  := Replace Punctuatio n(FCaption )+' ('+FIE N+')'; //A AN 01/21/2 003 - Sort ing Proble m
  447     FCaption Converted  := Replace Punctuatio n(FCaption ); //AAN 0 5/21/2003  - hiding I ENS
  448   end;
  449  
  450   destructor  TGMV_File Entry.Dest roy;
  451   begin
  452     inherite d;
  453   end;
  454  
  455   procedure  TGMV_FileE ntry.SetCa ption(cons t Value: s tring);
  456   begin
  457     FCaption  := Value;
  458   end;
  459  
  460   // AAN - s orting pro blem 01/22 /2003
  461   procedure  TGMV_FileE ntry.SetCa ptionConve rted(const  Value: st ring);
  462   begin
  463     FCaption Converted  := Value;
  464   end;
  465  
  466   procedure  TGMV_FileE ntry.SetDD Number(con st Value:  string);
  467   begin
  468     FDDNumbe r := Value ;
  469   end;
  470  
  471   procedure  TGMV_FileE ntry.SetIE N(const Va lue: strin g);
  472   begin
  473     FIEN :=  Value;
  474   end;
  475  
  476   function T GMV_FileEn try.GetIEN S: string;
  477   begin
  478     GetIENS  := FIEN +  ',';
  479   end;
  480  
  481   function T GMV_FileEn try.FieldD ata(FieldN umber: str ing): stri ng;
  482   begin
  483     Result : = getFileF ield(FDDNu mber,Field Number,IEN S);
  484   end;
  485  
  486   procedure  InitVitals IENS;
  487   var
  488     SL : TSt ringList;
  489   begin
  490     try
  491      SL := g etVitalsID List;
  492       if SL. Count = 11  then
  493         begi n  // the  order of V itals is f ixed in th e routine
  494           GM VVitalType IEN[vtUnkn own] := SL [0];
  495           GM VVitalType IEN[vtTemp ] := SL[1] ;
  496           GM VVitalType IEN[vtPuls e] := SL[2 ];
  497           GM VVitalType IEN[vtResp ] := SL[3] ;
  498           GM VVitalType IEN[vtBP]  := SL[4];
  499           GM VVitalType IEN[vtHeig ht] := SL[ 5];
  500           GM VVitalType IEN[vtWeig ht] := SL[ 6];
  501           GM VVitalType IEN[vtPain ] := SL[7] ;
  502           GM VVitalType IEN[vtPO2]  := SL[8];
  503           GM VVitalType IEN[vtCVP]  := SL[9];
  504           GM VVitalType IEN[vtCirc um] := SL[ 10];
  505         end;
  506       SL.Fre e;
  507     except
  508     end;
  509   end;
  510  
  511   procedure  CreateGMVG lobalVars;
  512   begin
  513     if not A ssigned(GM VTypes) th en
  514       GMVTyp es := TGMV _VitalType .Create;
  515     InitVita lsIENS;//A AN 12/04/0 2 Fixed Vi tals types  code upda te
  516     if not A ssigned(GM VQuals) th en
  517       GMVQua ls := TGMV _VitalQual .Create;
  518     if not A ssigned(GM VCats) the n
  519       GMVCat s := TGMV_ VitalCat.C reate;
  520   end;
  521  
  522   procedure  ReleaseGMV GlobalVars ;
  523   begin
  524     FreeAndN il(GMVCats );
  525     FreeAndN il(GMVQual s);
  526     FreeAndN il(GMVType s);
  527   end;
  528  
  529   end.