go to post Benjamin Irwin · Feb 10, 2020 Stephen, This may be far more than you were looking for, but I will share what I did to determine what globals were being accessed in the VA VistA software. The first step was to convert the routines to the CSV version using the %SyntaxColor class in Cache. This link shows an example: https://www.bmirwin.com/vnode/RoutineDg/MainDisplay.php?routine=IB20E540. The top frame is the routine and the bottom frame is the CSV version of the routine. If you look at line 9 of both frames you can find the global ^IBA referenced. In the CSV version it is identified by the COS 12 indicator. Therefore, to find all the global references in a list of routines just looking for the COS 12 indicators will find them. This link https://www.bmirwin.com/vnode/dg/index.php?ns=IB20E shows a listing of a group of routines. The "ns" variable can be changes to look at any routine or set of routines within the system. Let me know if you would like more information. Ben Irwin ben1irwin@outlook.com
go to post Benjamin Irwin · Dec 30, 2019 Thanks to Robert Cemper for the answer. However, I misunderstood that Robert was saying, but it fixed the issue. My web service original was the following: Method RtnReceive(RtnName As %String, RtnLines As %ListOfDataTypes) As %String [ WebMethod ] At misunderstanding Robert's suggestion I changed the code to the following: Method RtnReceive(RtnName As %String, RtnLines As %ListOfDataTypes(ELEMENTTYPE="%String", XMLITENAME=RtnLinesItem", XMLNAME="RtnLines")) As %String [ WebMethod ] I had used the $Extract to limit the line length to 50 to avoid the error, and now with the change I have removed the length limit and all is working. To see an example of how this is going to be used see the following website: www.bmirwin.com The pages currently in this link are created on a local machine and SFTP'ed to the server using the Cache SFTP functionality. Now with the web service functionality, these files can be pushed through the web service without first creating files. This might work faster; that is the goal.
go to post Benjamin Irwin · Dec 30, 2019 I think that Robert Cemper has provided the answer, but I am not sure how to apply it to coding. The goal of this exercise is to send a routine from the ^ROUTINE global on one computer to the ^RTN global on another computer through a web service. The following code is the web service code. /// Routines.Upload Class Routines.Upload Extends %SOAP.WebService [ ProcedureBlock ] { /// Name of the WebService. Parameter SERVICENAME = "Upload"; /// SOAP Namespace for the WebService Parameter NAMESPACE = "http://www.bmirwin.com"; /// Namespaces of referenced classes will be used in the WSDL. Parameter USECLASSNAMESPACES = 1; /// Receive Routines Method RtnReceive(RtnName As %String, RtnLines As %ListOfDataTypes) As %String [ WebMethod ] { Quit:RtnName="" "Failed" Kill ^RTN(RtnName) Set ^RTN(RtnName,0)=RtnLines.Count() For X=1:1:RtnLines.Count() { Set ^RTN(RtnName, X)=RtnLines.GetAt(X) } Quit "Done" } } The following is the client that is just produced by importing the WSDL. Class Routines.UploadSoap Extends %SOAP.WebClient [ ProcedureBlock ] { /// This is the URL used to access the web service. Parameter LOCATION = "http://localhost:57773/csp/data1/Routines.Upload.cls"; /// This is the namespace used by the Service Parameter NAMESPACE = "http://www.bmirwin.com"; /// Use xsi:type attribute for literal types. Parameter OUTPUTTYPEATTRIBUTE = 1; /// Determines handling of Security header. Parameter SECURITYIN = "ALLOW"; /// This is the name of the Service Parameter SERVICENAME = "Upload"; /// This is the SOAP version supported by the service. Parameter SOAPVERSION = 1.1; Method RtnReceive(RtnName As %String, RtnLines As %ListOfDataTypes(ELEMENTTYPE="%String",XMLITEMNAME="RtnLinesItem",XMLNAME="RtnLines")) As %String [ Final, ProcedureBlock = 1, SoapBindingStyle = document, SoapBodyUse = literal, WebMethod ] { Quit ..WebMethod("RtnReceive").Invoke($this,"http://www.bmirwin.com/Routines.Upload.RtnReceive",.RtnName,.RtnLines) } } Then the following is the code that I am using to call the web service. RoutineOne(RtnName) New UCI,x,y,z,RtnLines Set UCI="VISTA" Quit:RtnName="" 0 Quit:$Data(^[UCI]ROUTINE(RtnName))=0 0 Set RtnLines=##class(%ListOfDataTypes).%New() For x=1:1:^[UCI]ROUTINE(RtnName,0,0) { Do RtnLines.Insert($Extract(^[UCI]ROUTINE(RtnName,0,x),1,50)) } Set y=##class(Routines.UploadSoap).%New() Write RtnName,! ZW RtnLines Set z=y.RtnReceive(RtnName, RtnLines) Quit 1
go to post Benjamin Irwin · Nov 3, 2019 I was just able to install IRIS on an Apple MacBook Pro, with Parallels and Windows 10 Pro. I installed the current FOIA VistA with about 8.2 GB of data. Everything worked good until getting to the Taskman and RPC Broker startup. This has always been an issue with the developer version from Intersystems. It's almost enough users to bring up Taskman. Not nearly enough to bring up Taskman and the RPC Broker. It's great to have IRIS Studio. Everything seems just like Cache with a new name. Thanks Intersystems.
go to post Benjamin Irwin · May 1, 2019 The following link can be used to see an example of opening a web page in Excel.https://www.bmirwin.com/vnode/dg2/index.php?ns=PSOEUsing a CSP Page or Class to create a web page with a table in Cache, then open it in Excel with the link will directly open the table in Excel.
go to post Benjamin Irwin · May 1, 2019 I didn't see the HTML option in the previous comments. Most of the Microsoft and other Windows type programs can now open a web page directly within the application. If you point Excel to a http://server/something.cls Cache Server Page class, it will open directly in Excel. If you create your web page using html tables, then they will format nicely when opened with Excel. Again many of the applications will even allow a "GET" style request like http://server/something.cls?date=20190501. This allows for individualized web reports.