CPRS souce code and CPRS_lib location?

[Kevin Toppenberg]

This is a really basic questions: Where do I get CPRS source code and the code for the CPRS-lib files.  I have searched the internet for about 30 minutes and only find lots and lots of repositories that are 10+ yrs old.  

I have found lots of PATCHES, but I don't see the actual source code in there. 

Purpose: We have been stuck in Delph2006 for quite a long time.  It is slow and finicky.  I would like to try to move up toe Delphi 10, which I have a license for.    But to do that I have to get the VA controls installed into Delphi so it understands how to open the source code.  

It has been many years since I have gone down this path.  We have always just used the source that we already had.  So starting fresh is a task I'll have to figure out all over again. 

Thanks in advance.
Kevin

[Kevin Toppenberg]

I have found this source code from 2 yrs ago:
https://github.com/WorldVistA/VistA/tree/master/Packages/Order%20Entry%20Results%20Reporting/CPRS/CPRS-Chart

But I still can't find the VA controls.  
On my programming machine, I have a folder:
c:\Sourcecode\OR_3_296V27N
and 
c:\Sourcecode\OR_SRC_CREATION

that has our current versions of the source.  

Anywhere know where updated versions of these are?

Thanks
Kevin

[Nancy Anthracite]

Is this what you are looking for?

https://foia-vista.worldvista.org/Patches_By_Application/CPRS%20GUI%20FILES/

https://foia-vista.worldvista.org/Patches_By_Application/OR-ORDER%20ENTRY_RESULTS%20REPORTING/

--

Nancy Anthracite

[Kevin Toppenberg]

Nancy, thank you so much.  It is here, for future reference:

https://foia-vista.worldvista.org/Patches_By_Application/OR-ORDER%20ENTRY_RESULTS%20REPORTING/OR-3_SEQ-273_PAT-296_SRC.ZIP

For anyone wondering what I meant by the CPRS "controls", here is some background: 
In Delphi there is pascal source code functions and there is also the .frm files that describe how the application looks on screen.   Here is an example:

object Form1: TForm1
  Left = 0
  Top = 0
 -snip-
    Text = 'Edit1'
  end
  object Memo1: TMemo
    Left = 48
    Top = 128
    Width = 241
    Height = 161
    TabOrder = 1
  end
  object Button1: TButton
    Left = 307
    Top = 22
    Width = 75
    Height = 25
    Caption = 'Add'
    TabOrder = 2
    OnClick = Button1Click
  end
end

So the application reads in the form description (mywindow.frm) and instantiates (creates an instance of) a TButton and names it "Button1".  Well, what exactly is a "TButton"?  During compilation, the compiler links to source code that contain the definition.  But when working in the Delphi IDE, the IDE itself must also know all about TButtons so that it can display everything properly.  So these "controls" (e.g. buttons) are installed into Delphi IDE itself -- meaning that a developer registers the files where the definitions can be found.  In the case of TButton, it comes already installed out of the box.  But for CPRS, the VA has made custom controls, e.g. TORComboBox, which is a drop-down list that happens to know how to talk to VistA and do some special things.  All of these custom controls are part of the "VA Controls".  There is also the RPC Broker, which also has to be installed int (registered with) Delphi.  So all that has to be done BEFORE one can open the source code for the first time. 

The issue with more recent versions of Delphi is the handling of strings.  The default of newer Delphi is multi-byte Unicode strings.  Older Delphi programs were written with the understanding that 1 byte = 1 character.  But that doesn't hold true anymore, and provisions have to be made to handle that.  Because the mumps server still operates on single-byte strings.  YDB can be configured for multibyte data/strings, but Sam has said this will wreck havoc with VistA code.  So the RPC broker has to do something such that any strings sent from CPRS to the server don't contain crazy characters.  I"m not sure how they achieve this, but it would be necessary feature. 

Thanks again

Kevin

[Nancy Anthracite]

Also, are you aware there are community editions of Delphi now?

--
Nancy Anthracite

On Thursday, July 2, 2026 7:13:03 AM Eastern Daylight Time Nancy Anthracite
wrote:

> Is this what you are looking for?
>
> https://foia-vista.worldvista.org/Patches_By_Application/CPRS%20GUI%20FILES/
>
> https://foia-vista.worldvista.org/Patches_By_Application/OR-ORDER%20ENTRY_RESULTS%20REPORTING/
>

[Kevin Toppenberg]

Do the community editions do everything one would need for compiling?  I'm a bit leery of Borland doing anything that it truly free. 

Also, the link I gave in my prior post is for an older edition.  There are likely newer .zip files containing what I need. 

But I'm in the office this morning and Eddie says he already has the source for the newer controls and they have worked, so I am going to use those. 

Thank you so much!

Kevin

[Kevin Toppenberg]

typos:

I'm a bit leery of Borland doing anything that it truly free.  -->  I'm a bit unbelieving of Borland doing anything that is truly free. 

[Kevin Toppenberg]

On Thursday, July 2, 2026 at 8:08:36 AM UTC-4 Kevin Toppenberg wrote:

typos:

I'm a bit leery of Borland doing anything that it truly free.  -->  I'm a bit unbelieving of Borland doing anything that is truly free. 

Eddie tells me that he got it compiling with the community edition. But he had to set up a registration with Borland and keep the registration current. 

[Stefano Lalli]

Kevin

Look at the file: OR_30_629_scrubbed.zip inside the folder Nancy gave you: https://foia-vista.worldvista.org/Patches_By_Application/OR-ORDER%20ENTRY_RESULTS%20REPORTING/

S

Op do 2 jul 2026 om 14:07 schreef Kevin Toppenberg <kdt...@gmail.com>:

--
--
http://groups.google.com/group/Hardhats
To unsubscribe, send email to Hardhats+u...@googlegroups.com

---
You received this message because you are subscribed to the Google Groups "Hardhats" group.
To unsubscribe from this group and stop receiving emails from it, send an email to hardhats+u...@googlegroups.com.
To view this discussion visit https://groups.google.com/d/msgid/hardhats/6ae5ae82-ef59-4c20-b1b8-6db7cdb0b69an%40googlegroups.com.

[Kevin Toppenberg]

Thank you Stefano!

Kevin

[Nancy Anthracite]

Embarcadero. Join one of our support calls. We have people using it. There
are restrictions on its use, but it has been working out.

--
Nancy Anthracite

On Thursday, July 2, 2026 8:08:36 AM Eastern Daylight Time Kevin Toppenberg
wrote:

> typos:
> I'm a bit leery of Borland doing anything that it truly free. --> I'm a
> bit unbelieving of Borland doing anything that is truly free.
>
> On Thursday, July 2, 2026 at 8:07:23 AM UTC-4 Kevin Toppenberg wrote:
>
> > Do the community editions do everything one would need for compiling? I'm
> > a bit leery of Borland doing anything that it truly free.
> >
> > Also, the link I gave in my prior post is for an older edition. There are
> > likely newer .zip files containing what I need.
> > But I'm in the office this morning and Eddie says he already has the
> > source for the newer controls and they have worked, so I am going to use
> > those.
> >
> > Thank you so much!
> >
> > Kevin
> >
> >
> > On Thursday, July 2, 2026 at 7:59:21 AM UTC-4 Nancy Anthracite wrote:
> >
> >> Also, are you aware there are community editions of Delphi now?
> >>
> >>

[Kevin Toppenberg]

On Thursday, July 2, 2026 at 2:08:51 PM UTC-4 Nancy Anthracite wrote:

Embarcadero.

This comment about not using the name "Borland" made me think about all the name changes they have gone through over the years and I was curious of the history.  This is what I found...

• Midas ApS: Founded in Denmark in 1979 by Niels Jensen.
• Borland Ltd: Adopted in 1982 ...
• Borland International, Inc.: Established in 1983 as the official US corporation.
• Inprise Corporation: The company rebranded in April 1998 to reflect an enterprise computing focus.
• Borland Software Corporation: The original name was restored in 2001 due to poor market reception to the "Inprise" moniker.

• CodeGear Spin-off (2006): Facing financial struggles and trying to pivot to enterprise application lifecycle management, Borland spun off its legendary compiler and IDE tools (like Delphi, C++Builder, and JBuilder) into a wholly-owned subsidiary named CodeGear. [1, 2]
• Embarcadero: In June 2008, Embarcadero Technologies  bought CodeGear from Borland, separating the "classic" Borland software products from the Borland company name.
• Idera Acquisition (2015): Embarcadero itself was acquired by Idera, Inc. in 2015, which continues to operate Embarcadero as a distinct brand managing RAD Studio, Delphi, and C++Builder

As a user of "Turbo Pascal" in college, I will always think of them as "Borland" in my heart.  

:-)

Kevin

[Heath Ensele]

Hello, does anyone know where I can get the KIDs file for the PIM update?

--
--
http://groups.google.com/group/Hardhats
To unsubscribe, send email to Hardhats+u...@googlegroups.com

---
You received this message because you are subscribed to the Google Groups "Hardhats" group.
To unsubscribe from this group and stop receiving emails from it, send an email to hardhats+u...@googlegroups.com.

To view this discussion visit https://groups.google.com/d/msgid/hardhats/b5d5f2d3-b042-4d1c-926a-c490f48963d5n%40googlegroups.com.

[Nancy Anthracite]

Embarcadero. Join one of our support calls. We have people using it. There

are restrictions on its use, but it has been working out.

--
Nancy Anthracite

On Thursday, July 2, 2026 8:08:36 AM Eastern Daylight Time Kevin Toppenberg
wrote:

> typos:
> I'm a bit leery of Borland doing anything that it truly free. --> I'm a
> bit unbelieving of Borland doing anything that is truly free.
>
> On Thursday, July 2, 2026 at 8:07:23 AM UTC-4 Kevin Toppenberg wrote:
>
> > Do the community editions do everything one would need for compiling? I'm
> > a bit leery of Borland doing anything that it truly free.
> >
> > Also, the link I gave in my prior post is for an older edition. There are
> > likely newer .zip files containing what I need.
> > But I'm in the office this morning and Eddie says he already has the
> > source for the newer controls and they have worked, so I am going to use
> > those.
> >
> > Thank you so much!
> >
> > Kevin
> >
> >
> > On Thursday, July 2, 2026 at 7:59:21 AM UTC-4 Nancy Anthracite wrote:
> >
> >> Also, are you aware there are community editions of Delphi now?
> >>
> >>

[David Whitten]

Which PIM update? Do you know the patch number for it ?

Dave Whitten 

713-870-3834

To unsubscribe, send email to Hardhats+unsubscribe@googlegroups.com

---
You received this message because you are subscribed to the Google Groups "Hardhats" group.

To unsubscribe from this group and stop receiving emails from it, send an email to hardhats+unsubscribe@googlegroups.com.

To view this discussion visit https://groups.google.com/d/msgid/hardhats/b5d5f2d3-b042-4d1c-926a-c490f48963d5n%40googlegroups.com.

--
--
http://groups.google.com/group/Hardhats
To unsubscribe, send email to Hardhats+unsubscribe@googlegroups.com

---
You received this message because you are subscribed to the Google Groups "Hardhats" group.

To unsubscribe from this group and stop receiving emails from it, send an email to hardhats+unsubscribe@googlegroups.com.
To view this discussion visit https://groups.google.com/d/msgid/hardhats/CAKBJ9v4kTNopVR-CoGnrU_GC0TwrhYm8po7FvYF-%2BNMsogwT1Q%40mail.gmail.com.