Re: [Hardhats-members] CPRS Demo install

2005-08-21 Thread Usha
Hi

I did not notice the '`' before the DUZ 138 before. Now when I try
to set the DUZ to the one mentioned I get the following

GTM>S DUZ=`138
%GTM-E-EXPR, Expression expected but not found
S DUZ=`138
  ^-

GTM>

Any suggestions?
Thanks
Usha

- Original Message -
From: "Nancy Anthracite" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, August 18, 2005 5:20 PM
Subject: Re: [Hardhats-members] CPRS Demo install


When you start things up, do it as user `138 that is a tic below the
~ on the keyboard one and then eight zeros and then 38 and see if it works
that way. You may be able to stop the listener by going through the RPC
Broker Site Parameters by editing Started to Stop, etc. (loke at ??) or try
STOPALL^XWBTCP



---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] MUMPS features

2005-08-21 Thread Gregory Woodhouse
I can assure you that the SACC would like nothing more than to avoid  
placing unnecessary burdens on the user/programmer. The issue here is  
whether relaxing limits like the restriction on string lengths would  
break existing applications.


===
Gregory Woodhouse
[EMAIL PROTECTED]

"Design quality doesn't ensure success, but design failure can ensure  
failure."


--Kent Beck

On Aug 18, 2005, at 4:34 PM, James Gray wrote:

I do not think the choices are either or.  I think Mumps must  
continue to exist to support VistA or it will wither.  That does  
not mean it cannot evolve.  I think it is evolving.  We just aren't  
paying attention.  Cache is not the same as Intersystems Mumps 10  
years ago.  I do not know about GTM, but I bet it is not the same.   
It is the VA SAC that has not evolved much at all.  The hardhats  
community would like for all of the breeds of Mumps to evolve in  
lockstep via an MDC.  I fear that is a lost cause.  I think we need  
to learn that the language is evolving in  a different way now.  I  
personally think it is the SAC that needs to evolve now.


Jim Gray

- Original Message - From: "Greg Woodhouse"  
<[EMAIL PROTECTED]>

To: <[EMAIL PROTECTED]>
Sent: Thursday, August 18, 2005 4:47 PM
Subject: RE: [Hardhats-members] MUMPS features



When you get right down to it, it's a matter of perspective.  
Languages

evolve, and not always in a backwardly compatible way. If the "prime
directive" is to be able to run some existing program (such as VistA)
without modification, then you're sort of stuck. But is MUMPS a
language that exists simply to run that one application? It may be  
just
that, but if this is so, then we can hardly wonder why there isn't  
more

interest in MUMPS as a language. As much as we may protest that the
design choices made in MUMPS were reasonable, the language remains
frozen in time, and increasingly unlikely to be adopted in new work.
That's a shame, too, because as I've tried to argue, there is a  
lot to

recommend it as a language. Obviously, there was a time when the
community thought developing a new version of the language was the
right thing to do, but that idea has been abandoned. What message  
does

this send to the larger development community aa to the long term
viability of MUMPS as a language? Realistically, it has become little
more than the abstract machine upon which VistA runs.







---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] Re: Is $$GTF~%ZISH() binary friendly?

2005-08-21 Thread Chris Richardson
Kevin;

   I'm not sure which MUMPS engine you arte running, but I believe you have
to turn off  IO termination on control characters.  Looks like the fixed
reads are being terminated early.

   Chris

- Original Message -
From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, August 21, 2005 11:22 AM
Subject: [Hardhats-members] Re: Is $$GTF~%ZISH() binary friendly?


Chris,

I am having trouble getting a buffered read to work.

GTM>set path="/tmp/"
GTM>set fname="killthis"
GTM>do OPEN^%ZISH("Handle",path,fname,"R")
GTM>w POP
0
GTM>F  Q:($ZEOF)  U IO:(NOTERMINATOR) R X#255:5 U $P W $L(X),"; "
51; 17; 21; 24; 51; 52; 56; 27; 51; 38; 0;
%GTM-E-IOEOF, Attempt to read past an end-of-file

Don't worry about that EOF error.  The issue is that I am not getting
in 255 bytes at a time as I requested.  In this case the file is a
text file, but it should be amendible for binary processing.  I think
that (NOTERMINATOR) is not working.

Can you show how you would do a buffered read?

Thanks
Kevin


On 8/21/05, Chris Richardson <[EMAIL PROTECTED]> wrote:
> Kevin;
>
>You are working way too hard.  Do a buffered read and then use $ASCII
to
> take it apart one octet at a time.  The encoding is much easier than you
> have made it.  Each octet will be something like this;
>
>   N BUF,C,B1,B2,OBUF
>   S OBUF=""
>   R BUF#255
>   F I=1:1:$L(BUF)  D
>   .  S C=$ASCII(BUF,I)  ; Converts to the value of the character (0 to
255)
>   .  S OBUF=OBUF_$$BYT2BIN(C)
>   .QUIT
>
> BYT2BIN(V) ; Take one BYTE and return HEX Values
>   N HV,B1,B2
>   S NV="0123456789ABCDEF"
>   S B1=(V#16)+1  ; 0 to 15 becomes 1 to 16
>   S B2=(V\16)+1
>   QUIT $E(NV,B1)_$E(NV,B2)  ;  You figure out the byte order  1-2 or 2-1
>
> The star reads are eating your lunch.  This will be much faster.
>
>
> - Original Message -
> From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Sunday, August 21, 2005 5:53 AM
> Subject: [Hardhats-members] Re: Is $$GTF~%ZISH() binary friendly?
>
>
> Here is the code.  I will also attach it incase wrapping ruins it here...
>
>
> ;"TMG BIN <-->GBL FUNCTION
> ;"Kevin Toppenberg MD
> ;"GNU General Public License (GPL) applies
> ;"8-20-2005
>
> ;"===
> ;" API -- Public Functions.
> ;"===
> ;"$$BIN2GBL^TMGBINF(path,filename,globalRef,incSubscr)
> ;"$$GBL2BIN^TMGBINF(globalRef,incSubscr,path,filename)
>
> ;"===
> ;"PRIVATE API FUNCTIONS
> ;"===
>
>
>
> ;"===
> BIN2GBL(path,filename,globalRef,incSubscr)
> ;"Purpose: To load a binary file from the host filesystem into
> a WP field, storing
> ;"  the composit bytes as ascii hex codes.
> ;"Input: path --full path, up to but not including the
> filename (required)
> ;" filename --  name of the file to open (required)
> ;" globalRef-- Global reference to WRITE the host
> binary file to, in fully resolved
> ;"  (closed root) format.  This
> function does not kill the global before
> ;"  writing to it.  (required)
> ;"   Note:
> ;"   At least one subscript must be
> numeric.  This will be the incrementing
> ;"   subscript (i.e. the subscript
> that $$BIN2WP^TMGBINWP will increment
> ;"   to store each new global node).
> This subscript need not be the final
> ;"   subscript.  For example, to load
> into a WORD PROCESSING field, the
> ;"   incrementing node is the
> second-to-last subscript; the final subscript
> ;"   is always zero.
> ;"incSubscr-- (required) Identifies the incrementing
> subscript level.  For example, if you
> ;"   pass ^TMP(115,1,1,0) as the
> global_ref parameter and pass 3 as the
> ;"   inc_subscr parameter, $$BIN2GBL
> will increment the third subscript, such
> ;"   as ^TMP(115,1,x), but will WRITE
> notes at the full global reference, such
> ;"   as ^TMP(115,1,x,0).
> ;"Result: 1=success, 0=failure
> ;"
> ;"Note: Each line of the global will contain up to 128 bytes
> (256 characters)
> ;"   (2 ascii hex characters = 1 source byte)
> ;"Example:
> ;"
> ^TMP(115,1,1,0)="A12C4F12E2791D9723C3297D3C30B73C1532A1...(continues
> to 256 characters)"
> ;"
> ^TMP(115,1,2,0)="91D9723C3297D314ADF31B85F41A1

Re: [Hardhats-members] more M read questions

2005-08-21 Thread Gregory Woodhouse
The key word (not the keyword) here is "encoded".  Fileman actually  
provides utilities for hexadecimal encoding that I've found useful on  
more than one occasion. There are really two issues here: whether the  
M implementation can handle binary data (not necessarily), and  
whether applications can work with binary data. In the latter case,  
there is the problem that M programmers have a propensity for using  
sentinel values like "^" to delimit data items, but the first problem  
is much more serious.


===
Gregory Woodhouse
[EMAIL PROTECTED]

"The most incomprehensible thing about
the world is that it is at all comprehensible."
 --Albert Einstein (1879-1955)


On Aug 21, 2005, at 1:26 PM, Ruben Safir wrote:


On Sun, 2005-08-21 at 12:57 -0700, Chris Richardson wrote:

Ah, but how big is a character?  MUMPS deals in characters  
reguardless of

the number of octets required to represent it.

   1Octet  = 8 bits

   Ascii - 1 octet/character
   Unicode, Kanji,Katakana,etc - 2 octets/character
   ISO-10646 - 4octets/character



In terms of storing and retrieving data, it shouldn't matter.  We've
been dealing with 7 bit encoded attachments for a decade in email.

Ruben





---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] Rules for the List

2005-08-21 Thread Gregory Woodhouse
IANAL (I am not a lawyer), but forbidding links to copyrighted  
material would pretty much rule out linking to ANYTHING. I would say  
the answer is generally no, and that hyperlinks should, in most  
cases, be treated as references (e.g., in footnotes or endnotes).

===
Gregory Woodhouse
[EMAIL PROTECTED]

"Without the requirement of mathematical aesthetics a great many  
discoveries would not have been made."

-- Albert Einstein



On Aug 21, 2005, at 11:48 AM, smcphelan wrote:


12. Do not forward copyrighted material or information you do not have
permission to forward, through the list

Does placing a link to copyright material require permission  
similar to some

requiring permission to place a link on a web page?






---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] Rules for the List

2005-08-21 Thread Gregory Woodhouse
Good question. Generally speaking job announcements posted to lists  
not specifically intended for that purpose are considered spam. I  
don't know that this is what Greg K. had in mind, it's a matter for  
us to discuss.


For what it's worth, it is common practice to have separate mailing  
lists or newsgroups set up for just that purpose.

===
Gregory Woodhouse
[EMAIL PROTECTED]

"The most profound technologies are those that disappear."
--Mark Weiser



On Aug 21, 2005, at 11:48 AM, smcphelan wrote:

8. DO NOT spam the list with your advertising message. You will be  
banned

from the list if you do so.

If a company has a position open for a VistA knowledgeable person, is
placing a job announcement considered SPAM?






---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] more M read questions

2005-08-21 Thread Chris Richardson
Kevin;

   The point I was making was that there are a lot of assumptions being made
about the environment,  MUMPS has been abstraction which avoids a lot of the
assumptions.  A character can be 8, 16 or 32 bits.  To MUMPS, they are just
characters.  The standard was written to try to avoid the bit count and be
beyond the implementation platform.   There actually is a DSM-Japan which is
16 bit.   There was also a Latvian MUMPS-like implementation which worked
with Cyrilic.   As this model goes farther out, there will be more need for
the larger byte assignments.

  As for the 6 bit character sets, you are correct.  But I wanted folks to
stretch out beyond the simple assumptions to think about the other systems
which are currently out there and that are being used.  But the bottom line
is that MUMPS programs could work just fine in an environment which does
support  6, 8, 9, 16, or even 32-bit characters (probably the next level of
technology).

 Best wishes;   Chris

- Original Message -
From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, August 21, 2005 5:24 PM
Subject: Re: [Hardhats-members] more M read questions


Let's be practical.  There seem to be only  a few M environments.  Are
any of them using 6 bit bytes etc?  Do any of the underlying file
systems server other than an 8 bit byte when asked to read one unit
(byte) from a file?

Yes, there are widecharacter strings, but the underlying filesystem
still deals with them as 8-bit bytes, doesn't it?

Kevin

On 8/21/05, Chris Richardson <[EMAIL PROTECTED]> wrote:
> Ah, but how big is a character?  MUMPS deals in characters reguardless of
> the number of octets required to represent it.
>
>1Octet  = 8 bits
>
>Ascii - 1 octet/character
>Unicode, Kanji,Katakana,etc - 2 octets/character
>ISO-10646 - 4octets/character
>
> Then there were 36 bit words (6 (6-bit) characters per word (Univac
> FIELDDATA), or 10 6-bit characters/word, but each of these are mapping
> systems for characters.
>
> - Original Message -
> From: "Ruben Safir" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Sunday, August 21, 2005 12:46 PM
> Subject: Re: [Hardhats-members] more M read questions
>
>
> > On Sun, 2005-08-21 at 15:13 -0400, smcphelan wrote:
> > > Here, here.  Chris also stated this.  ANSI standard M is not really
> designed
> > > to handle binary data.  This is one reason Intersystems added
extensions
> (if
> > > you wish to call it that).  But then you are bound to a specific M
> vendor's
> > > implementation, in this case, Cache.
> > >
> >
> > This is all beyond me because all data is just data.  ASCI, Binary, all
> > the same thing.
> >
> > No matter how you look at it, a byte can only have one of 256
> > representations.  The rest is all interpretation.
> >
> > Ruben
> >
> >
> >
> >
> > ---
> > SF.Net email is Sponsored by the Better Software Conference & EXPO
> > September 19-22, 2005 * San Francisco, CA * Development Lifecycle
> Practices
> > Agile & Plan-Driven Development * Managing Projects & Teams * Testing &
QA
> > Security * Process Improvement & Measurement *
http://www.sqe.com/bsce5sf
> > ___
> > Hardhats-members mailing list
> > [EMAIL PROTECTED]
> > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> >
> >
>
>
>
>
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle
Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members






---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


RE: [Hardhats-members] Re: more M read questions

2005-08-21 Thread David Sommers
Rsync is part of the SAMBA project.  So - it essentially uses SMB
(Windows file sharing).  Your initial comment was that you didn't want
to use file sharing because it couldn't be easily tunneled over RPC.

I think the recommendation was made out of context.

The context is: I want to tunnel a file over RPC or some other
point-to-point method.  If SMB/Samba is not the option you want (which
is what you stated), then rsync doesn't work.  Rsync is an APPLICATION
that uses SMB to sync files.

You should shoot for something like FTP or build it straight into your
application (as Base64 conversion, etc).  The application that you use
for FTP is up to you and your implementation.

/David.

 
David Sommers, Architect  |  Dialog Medical

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Kevin
Toppenberg
Sent: Sunday, August 21, 2005 7:20 PM
To: [EMAIL PROTECTED]
Subject: Re: [Hardhats-members] Re: more M read questions

I am already using rsync to upload my backup data to our Windows
server, and include VistA data with our financial data backup.

But I still don't see how I would incorporate that into an image
viewer that needs to request a specific file from a server.

Kevin

On 8/21/05, Ruben Safir <[EMAIL PROTECTED]> wrote:
> On Sun, 2005-08-21 at 18:50 -0400, David Sommers wrote:
> > Rsync is a tool used to synchronize or replicate files.  In terms of
> > sending a single file from server to client upon request, a tool is
> > not
> > recommended but a protocol.  Whether it be Secure FTP, BitTorrent,
> > SMB,
> > or the like.
> 
> This is largely semantics.  A protocol without a tool is useless.  In
> fact, the tool near always predates the protocol.  The protocol is
> defined by the tool makers once it becomes popular.
> 
> Use rsync.  Whatever protocol it uses, which is actually some kind of
> incremental crypto fingerprinting, it runs fast as hell, uses minimum
> bandwidth, and is free software.
> 
> Ruben
> 
> 
> 
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle
Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing
& QA
> Security * Process Improvement & Measurement *
http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle
Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing &
QA
Security * Process Improvement & Measurement *
http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] more M read questions

2005-08-21 Thread Kevin Toppenberg
Let's be practical.  There seem to be only  a few M environments.  Are
any of them using 6 bit bytes etc?  Do any of the underlying file
systems server other than an 8 bit byte when asked to read one unit
(byte) from a file?

Yes, there are widecharacter strings, but the underlying filesystem
still deals with them as 8-bit bytes, doesn't it?

Kevin

On 8/21/05, Chris Richardson <[EMAIL PROTECTED]> wrote:
> Ah, but how big is a character?  MUMPS deals in characters reguardless of
> the number of octets required to represent it.
> 
>1Octet  = 8 bits
> 
>Ascii - 1 octet/character
>Unicode, Kanji,Katakana,etc - 2 octets/character
>ISO-10646 - 4octets/character
> 
> Then there were 36 bit words (6 (6-bit) characters per word (Univac
> FIELDDATA), or 10 6-bit characters/word, but each of these are mapping
> systems for characters.
> 
> - Original Message -
> From: "Ruben Safir" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Sunday, August 21, 2005 12:46 PM
> Subject: Re: [Hardhats-members] more M read questions
> 
> 
> > On Sun, 2005-08-21 at 15:13 -0400, smcphelan wrote:
> > > Here, here.  Chris also stated this.  ANSI standard M is not really
> designed
> > > to handle binary data.  This is one reason Intersystems added extensions
> (if
> > > you wish to call it that).  But then you are bound to a specific M
> vendor's
> > > implementation, in this case, Cache.
> > >
> >
> > This is all beyond me because all data is just data.  ASCI, Binary, all
> > the same thing.
> >
> > No matter how you look at it, a byte can only have one of 256
> > representations.  The rest is all interpretation.
> >
> > Ruben
> >
> >
> >
> >
> > ---
> > SF.Net email is Sponsored by the Better Software Conference & EXPO
> > September 19-22, 2005 * San Francisco, CA * Development Lifecycle
> Practices
> > Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> > Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> > ___
> > Hardhats-members mailing list
> > [EMAIL PROTECTED]
> > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> >
> >
> 
> 
> 
> 
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] Re: more M read questions

2005-08-21 Thread Ruben Safir
That I can't answer.

No pipe?  No File Pipe?

Ruben
On Sun, 2005-08-21 at 19:20 -0400, Kevin Toppenberg wrote:
> I am already using rsync to upload my backup data to our Windows
> server, and include VistA data with our financial data backup.
> 
> But I still don't see how I would incorporate that into an image
> viewer that needs to request a specific file from a server.
> 
> Kevin
> 
> On 8/21/05, Ruben Safir <[EMAIL PROTECTED]> wrote:
> > On Sun, 2005-08-21 at 18:50 -0400, David Sommers wrote:
> > > Rsync is a tool used to synchronize or replicate files.  In terms of
> > > sending a single file from server to client upon request, a tool is
> > > not
> > > recommended but a protocol.  Whether it be Secure FTP, BitTorrent,
> > > SMB,
> > > or the like.
> > 
> > This is largely semantics.  A protocol without a tool is useless.  In
> > fact, the tool near always predates the protocol.  The protocol is
> > defined by the tool makers once it becomes popular.
> > 
> > Use rsync.  Whatever protocol it uses, which is actually some kind of
> > incremental crypto fingerprinting, it runs fast as hell, uses minimum
> > bandwidth, and is free software.
> > 
> > Ruben
> > 
> > 
> > 
> > ---
> > SF.Net email is Sponsored by the Better Software Conference & EXPO
> > September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
> > Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> > Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> > ___
> > Hardhats-members mailing list
> > [EMAIL PROTECTED]
> > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> >
> 
> 
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members



---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] Re: more M read questions

2005-08-21 Thread Kevin Toppenberg
I am already using rsync to upload my backup data to our Windows
server, and include VistA data with our financial data backup.

But I still don't see how I would incorporate that into an image
viewer that needs to request a specific file from a server.

Kevin

On 8/21/05, Ruben Safir <[EMAIL PROTECTED]> wrote:
> On Sun, 2005-08-21 at 18:50 -0400, David Sommers wrote:
> > Rsync is a tool used to synchronize or replicate files.  In terms of
> > sending a single file from server to client upon request, a tool is
> > not
> > recommended but a protocol.  Whether it be Secure FTP, BitTorrent,
> > SMB,
> > or the like.
> 
> This is largely semantics.  A protocol without a tool is useless.  In
> fact, the tool near always predates the protocol.  The protocol is
> defined by the tool makers once it becomes popular.
> 
> Use rsync.  Whatever protocol it uses, which is actually some kind of
> incremental crypto fingerprinting, it runs fast as hell, uses minimum
> bandwidth, and is free software.
> 
> Ruben
> 
> 
> 
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


RE: [Hardhats-members] Re: more M read questions

2005-08-21 Thread Ruben Safir
On Sun, 2005-08-21 at 18:50 -0400, David Sommers wrote:
> Rsync is a tool used to synchronize or replicate files.  In terms of
> sending a single file from server to client upon request, a tool is
> not
> recommended but a protocol.  Whether it be Secure FTP, BitTorrent,
> SMB,
> or the like.

This is largely semantics.  A protocol without a tool is useless.  In
fact, the tool near always predates the protocol.  The protocol is
defined by the tool makers once it becomes popular.

Use rsync.  Whatever protocol it uses, which is actually some kind of
incremental crypto fingerprinting, it runs fast as hell, uses minimum
bandwidth, and is free software.

Ruben



---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


RE: [Hardhats-members] more M read questions

2005-08-21 Thread David Sommers
Kevin, it may be easier to encode the binary into a subset of ASCII/ANSI
that is supported by M "string".  There are many definitions on what a
string *is* depending on the language and system - but I'm sure you can
find a codeset that fits.  Base64 in the worse case.

/David.
 
David Sommers, Architect  |  Dialog Medical

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Ruben
Safir
Sent: Sunday, August 21, 2005 3:47 PM
To: [EMAIL PROTECTED]
Subject: Re: [Hardhats-members] more M read questions

On Sun, 2005-08-21 at 15:13 -0400, smcphelan wrote:
> Here, here.  Chris also stated this.  ANSI standard M is not really
designed
> to handle binary data.  This is one reason Intersystems added
extensions (if
> you wish to call it that).  But then you are bound to a specific M
vendor's
> implementation, in this case, Cache.
> 

This is all beyond me because all data is just data.  ASCI, Binary, all
the same thing.

No matter how you look at it, a byte can only have one of 256
representations.  The rest is all interpretation.

Ruben




---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle
Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing &
QA
Security * Process Improvement & Measurement *
http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


RE: [Hardhats-members] Re: more M read questions

2005-08-21 Thread David Sommers
Rsync is a tool used to synchronize or replicate files.  In terms of
sending a single file from server to client upon request, a tool is not
recommended but a protocol.  Whether it be Secure FTP, BitTorrent, SMB,
or the like.

/David.
 
David Sommers, Architect  |  Dialog Medical

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Ruben
Safir
Sent: Sunday, August 21, 2005 2:35 PM
To: [EMAIL PROTECTED]
Subject: Re: [Hardhats-members] Re: more M read questions

On Sun, 2005-08-21 at 14:19 -0400, Kevin Toppenberg wrote:
> Thanks Ruben,
> 
> Are any of these options something that could be put into a $Windoze
> client so that it could securely request images from server, or would
> it involve setting up an environment for the client to run int?
> 

I'm not sure.  I haven't used a Windows computer in about 15 years.
google rsync and windows  I guess.  But rsync is a miracle.

Ruben

> Thanks
> Kevin
> 
> 
> On 8/21/05, Ruben Safir <[EMAIL PROTECTED]> wrote:
> > On Sun, 2005-08-21 at 13:42 -0400, Kevin Toppenberg wrote:
> > > Hmm... if I had an ftp server, I would want to be sure that only
those
> > > authorized to request a file were sent the file.  Perhaps I need
to
> > > look more into the secure FTP options
> > 
> > rsync through ssh or FreeSWan...
> > 
> > 
> > 
> > ---
> > SF.Net email is Sponsored by the Better Software Conference & EXPO
> > September 19-22, 2005 * San Francisco, CA * Development Lifecycle
Practices
> > Agile & Plan-Driven Development * Managing Projects & Teams *
Testing & QA
> > Security * Process Improvement & Measurement *
http://www.sqe.com/bsce5sf
> > ___
> > Hardhats-members mailing list
> > [EMAIL PROTECTED]
> > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> >
> 
> 
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle
Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing
& QA
> Security * Process Improvement & Measurement *
http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members



---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle
Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing &
QA
Security * Process Improvement & Measurement *
http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] more M read questions

2005-08-21 Thread Ruben Safir
On Sun, 2005-08-21 at 12:57 -0700, Chris Richardson wrote:
> Ah, but how big is a character?  MUMPS deals in characters reguardless of
> the number of octets required to represent it.
> 
>1Octet  = 8 bits
> 
>Ascii - 1 octet/character
>Unicode, Kanji,Katakana,etc - 2 octets/character
>ISO-10646 - 4octets/character

In terms of storing and retrieving data, it shouldn't matter.  We've
been dealing with 7 bit encoded attachments for a decade in email.

Ruben

> 
> Then there were 36 bit words (6 (6-bit) characters per word (Univac
> FIELDDATA), or 10 6-bit characters/word, but each of these are mapping
> systems for characters.
> 
> - Original Message -
> From: "Ruben Safir" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Sunday, August 21, 2005 12:46 PM
> Subject: Re: [Hardhats-members] more M read questions
> 
> 
> > On Sun, 2005-08-21 at 15:13 -0400, smcphelan wrote:
> > > Here, here.  Chris also stated this.  ANSI standard M is not really
> designed
> > > to handle binary data.  This is one reason Intersystems added extensions
> (if
> > > you wish to call it that).  But then you are bound to a specific M
> vendor's
> > > implementation, in this case, Cache.
> > >
> >
> > This is all beyond me because all data is just data.  ASCI, Binary, all
> > the same thing.
> >
> > No matter how you look at it, a byte can only have one of 256
> > representations.  The rest is all interpretation.
> >
> > Ruben
> >
> >
> >
> >
> > ---
> > SF.Net email is Sponsored by the Better Software Conference & EXPO
> > September 19-22, 2005 * San Francisco, CA * Development Lifecycle
> Practices
> > Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> > Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> > ___
> > Hardhats-members mailing list
> > [EMAIL PROTECTED]
> > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> >
> >
> 
> 
> 
> 
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members



---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] more M read questions

2005-08-21 Thread Chris Richardson
Ah, but how big is a character?  MUMPS deals in characters reguardless of
the number of octets required to represent it.

   1Octet  = 8 bits

   Ascii - 1 octet/character
   Unicode, Kanji,Katakana,etc - 2 octets/character
   ISO-10646 - 4octets/character

Then there were 36 bit words (6 (6-bit) characters per word (Univac
FIELDDATA), or 10 6-bit characters/word, but each of these are mapping
systems for characters.

- Original Message -
From: "Ruben Safir" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, August 21, 2005 12:46 PM
Subject: Re: [Hardhats-members] more M read questions


> On Sun, 2005-08-21 at 15:13 -0400, smcphelan wrote:
> > Here, here.  Chris also stated this.  ANSI standard M is not really
designed
> > to handle binary data.  This is one reason Intersystems added extensions
(if
> > you wish to call it that).  But then you are bound to a specific M
vendor's
> > implementation, in this case, Cache.
> >
>
> This is all beyond me because all data is just data.  ASCI, Binary, all
> the same thing.
>
> No matter how you look at it, a byte can only have one of 256
> representations.  The rest is all interpretation.
>
> Ruben
>
>
>
>
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle
Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
>




---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] more M read questions

2005-08-21 Thread Ruben Safir
On Sun, 2005-08-21 at 15:13 -0400, smcphelan wrote:
> Here, here.  Chris also stated this.  ANSI standard M is not really designed
> to handle binary data.  This is one reason Intersystems added extensions (if
> you wish to call it that).  But then you are bound to a specific M vendor's
> implementation, in this case, Cache.
> 

This is all beyond me because all data is just data.  ASCI, Binary, all
the same thing.

No matter how you look at it, a byte can only have one of 256
representations.  The rest is all interpretation.

Ruben




---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] Lab Orders using CPRS

2005-08-21 Thread Madhavi Bagepalli
The difference was in the PACKAGE PREFIX field value. I do not remember what 
was the PACKAGE PREFIX value for the "ONCE" entry (I am not at my VistA 
system). I set the value for  the "ONE TIME" entry PACKAGE PREFIX to "LR" 
and it worked. Not sure if changing the "ONCE" entry package prefix value 
would break anything, but did not want to take chances there.


Madhavi



From: "smcphelan" <[EMAIL PROTECTED]>
Reply-To: [EMAIL PROTECTED]
To: <[EMAIL PROTECTED]>
Subject: Re: [Hardhats-members] Lab Orders using CPRS
Date: Sat, 20 Aug 2005 17:34:09 -0400

What is the difference between the ONE TIME you entered into the file and
the ONCE entry that already existed?

- Original Message -
From: "Madhavi Bagepalli" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, August 20, 2005 10:14 AM
Subject: Re: [Hardhats-members] Lab Orders using CPRS


> Yes Nancy. As Llyod had mentioned, I created a "ONE TIME" entry in the
file
> 51.1 and the Package Prefix Field Value set to "LR" for this entry. And 
it

> worked.
>
> Madhavi
>
>
> >From: Nancy Anthracite <[EMAIL PROTECTED]>
> >Reply-To: [EMAIL PROTECTED]
> >To: [EMAIL PROTECTED]
> >Subject: Re: [Hardhats-members] Lab Orders using CPRS
> >Date: Fri, 19 Aug 2005 21:25:05 -0400
> >
> >Does this mean you figured it out?
> >
> >On Friday 19 August 2005 03:01 pm, Madhavi Bagepalli wrote:
> > > I got it. Thanks Llyod.
> > >
> > > Madhavi
> > >
> > > >From: "Lloyd Milligan" <[EMAIL PROTECTED]>
> > > >Reply-To: [EMAIL PROTECTED]
> > > >To: <[EMAIL PROTECTED]>
> > > >Subject: Re: [Hardhats-members] Lab Orders using CPRS
> > > >Date: Fri, 19 Aug 2005 13:28:24 -0400
> > > >
> > > >Do you have a ONE TIME entry in File 51.1 with the LR package 
prefix?

> > > >
> > > >Lloyd
> > > >
> > > >- Original Message - From: "Madhavi Bagepalli"
> > > ><[EMAIL PROTECTED]>
> > > >To: <[EMAIL PROTECTED]>
> > > >Sent: Friday, August 19, 2005 12:35 PM
> > > >Subject: [Hardhats-members] Lab Orders using CPRS
> > > >
> > > >>Hi all,
> > > >>
> > > >>I am trying to order a lab test using CPRS. Each time I try to 
order

a
> > > >>test, I get the following message -
> > > >>"This order cannot be saved for the following reason(s): A
collection
> > > >>frequency MUST be specified."
> > > >>
> > > >>But the "How Often?" dropdown box is inactive in the CPRS verison
> > > >>1.0.24.27. It does not contain the "ONE TIME" frequency value in 
the


> >box.
> > > >>What should I do?
> > > >>
> > > >>Below is what I have about the "OR GTX ADMIN SCHEDULE" under "LR
OTHER
> > > >> LAB TESTS" Order Dialog-
> > > >>
> > > >>Select ORDER DIALOG NAME:LR OTHER LAB TESTS
> > > >>NAME: LR OTHER LAB TESTS//
> > > >>DISPLAY TEXT: Laboratory//
> > > >>DISABLE:
> > > >>TYPE: dialog//
> > > >>DISPLAY GROUP: LABORATORY//
> > > >>SIGNATURE REQUIRED: ORES//
> > > >>PACKAGE: LAB SERVICE//
> > > >>VERIFY ORDER: YES//
> > > >>ASK FOR ANOTHER ORDER: YES-DON'T ASK//
> > > >>Select SEQUENCE: 9// 8OR GTX ADMIN SCHEDULE
> > > >>  SEQUENCE: 8//
> > > >>  INPUT TRANSFORM:
> > > >>  PARENT:
> > > >>  ITEM: OR GTX ADMIN SCHEDULE//
> > > >>  MNEMONIC:
> > > >>  DISPLAY TEXT: How often: //
> > > >>  DISPLAY ONLY?:
> > > >>  REQUIRED: YES//
> > > >>  MULTIPLE VALUED:
> > > >>  MAX NUMBER OF MULTIPLES:
> > > >>  TITLE:
> > > >>  PROMPT:
> > > >>  ASK ON EDIT ONLY:
> > > >>  ASK ON ACTION:
> > > >>  INDEX: APLR//
> > > >>  HELP MESSAGE: Enter an administration schedule for how often 
this

> >test
> > > >>is to b
> > > >>e done.
> > > >>   Replace
> > > >>  SPECIAL LOOKUP ROUTINE:
> > > >>  ASK ON CONDITION: I $G(ORTYPE)="Z"!ORMAX  Replace
> > > >>  SCREEN: I "CDO"[$P(^(0),U,5)  Replace
> > > >>  POST-SELECTION ACTION: I $G(ORESET),ORESET'=ORDIALOG(PROMPT,ORI) 
K

> > > >>ORDIALOG($$
> > > >>PTR^ORCD("OR GTX DURATION"),ORI)
> > > >>   Replace
> > > >>  XECUTABLE HELP: D XSCH^ORCDLR//
> > > >>  DEFAULT: I $G(ORTYPE)'="Z",$D(LRFSCH)!ORMAX S
> >Y=$O(^PS(51.1,"APLR","ONE
> > > >>TIME",
> > > >>0)) S:$D(LRFSCH)&Y EDITONLY=1 K:Y'>0 Y
> > > >>   Replace
> > > >>  DEFAULT WORD-PROCESSING TEXT:
> > > >>No existing text
> > > >>Edit? NO//
> > > >>  ENTRY ACTION: I $G(ORTYPE)'="Z",ORMAX'>0 K ORDIALOG(PROMPT,INST)
> > > >>   Replace
> > > >>  EXIT ACTION: S ORSCH=+$G(ORDIALOG(PROMPT,INST))
> > > >>   Replace
> > > >>  ORDER TEXT SEQUENCE: 8//
> > > >>  FORMAT:
> > > >>  OMIT TEXT: ONE TIME// ??
> > > >>This is the external form of a value that is not to be
> >included
> > > >>when bui
> > > >>lding
> > > >>the order text.  E.g. to include the urgency in the order
text
> > > >>unless it
> > > >>is routine, enter "ROUTINE" here.
> > > >>
> > > >>  OMIT TEXT: ONE TIME//
> > > >>  LEADING TEXT:
> > > >>  TRAILING TEXT:
> > > >>  START NEW LINE:
> > > >>  WORD-WRAP:
> > > >>  WINDOWS CONTROL: cboFrequency//
> > > >>  API NAME:
> > > >>  API PARAMETER #1:
> > > >>  WINDOWS CONDITION:
> > > >>  WINDOWS DEFAULT:
> > > >>
> > > >>
> > > >>Hope to see some help s

Re: [Hardhats-members] Re: more M read questions

2005-08-21 Thread Chris Richardson
Kevin;

   The point I was making was that there are things that MUMPS does really
well and there are things that it does not perform well at.   In such cases,
one needs to use other tools.  The endian issue is one of underlying
operating system and hardware architecture.  This is an area that MUMPS
specifically avoided in order to maintain platform independance.   There are
big assumptions that need to be made that bar transport of such an interface
to another platform.   For those issues, VistA usually calls out to the
underlying vendor tools or out to user supplied tools.

Sometimes it is better to let the underlying OS do some of the work.

   That was what I was aluding to.

Chris

- Original Message -
From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, August 21, 2005 9:51 AM
Subject: [Hardhats-members] Re: more M read questions


Are you making this more difficult that it has to be?  (I can't
*imagine* you doing that!  :-)  )

I don't know about the big/little endian issues.  I am not planning to
store two-byte words, so I don't think this comes into play.  I will
just store the bytes as they come in the stream.

And I don't want to use a GT.M unique solution, as that will greatly
limit potential use by others.

Kevin


P.S.  I read that using this syntax:
use IO:(NOTERMINATOR)  is supposed to make the stream not stop at
"terminator" characters.

But it doesn't seem to work for me yet.

Kevin


On 8/21/05, Chris Richardson <[EMAIL PROTECTED]> wrote:
> Kevin;
>
>There is only a single data-type in MUMPS, strings.  What you are doing
> is a fixed length buffer read of characters (real characters or binary
> data).  You are opening up a big bag of issues which the MDC argued over
> for
> decades.  If you are talking about binary, are you talking about
big-endian
> or little-endian representation (what do the bits mean?).  By dealing in
> characters, we don't have to worry about byte order per word.   Now some
> implementations did provide tools for doing these operations (most notable
> was Micronetics (now InterSystems).   I believe that GTM has some of these
> same tools.  They also have the thinnest binding with the underlying
> operating system, so poking out to do this type of operation is pretty
> simple in GT.M.
>


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members






---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] Rules for the List

2005-08-21 Thread smcphelan
8. DO NOT spam the list with your advertising message. You will be banned
from the list if you do so.

If a company has a position open for a VistA knowledgeable person, is
placing a job announcement considered SPAM?



12. Do not forward copyrighted material or information you do not have
permission to forward, through the list

Does placing a link to copyright material require permission similar to some
requiring permission to place a link on a web page?






---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] Re: more M read questions

2005-08-21 Thread Ruben Safir
FreeSWan is just a VPN standard implementation.  


Ruben

On Sun, 2005-08-21 at 14:19 -0400, Kevin Toppenberg wrote:
> Thanks Ruben,
> 
> Are any of these options something that could be put into a $Windoze
> client so that it could securely request images from server, or would
> it involve setting up an environment for the client to run int?
> 
> Thanks
> Kevin
> 
> 
> On 8/21/05, Ruben Safir <[EMAIL PROTECTED]> wrote:
> > On Sun, 2005-08-21 at 13:42 -0400, Kevin Toppenberg wrote:
> > > Hmm... if I had an ftp server, I would want to be sure that only those
> > > authorized to request a file were sent the file.  Perhaps I need to
> > > look more into the secure FTP options
> > 
> > rsync through ssh or FreeSWan...
> > 
> > 
> > 
> > ---
> > SF.Net email is Sponsored by the Better Software Conference & EXPO
> > September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
> > Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> > Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> > ___
> > Hardhats-members mailing list
> > [EMAIL PROTECTED]
> > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> >
> 
> 
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members



---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] Rules for the List

2005-08-21 Thread Gregory Woodhouse

Is your browser encoding the "_" in "mailing_list"?

===
Gregory Woodhouse
[EMAIL PROTECTED]

"A hero is no braver than an ordinary
man, but he is brave five minutes longer."
-- Ralph Waldo Emerson


On Aug 21, 2005, at 4:11 AM, smcphelan wrote:


I got the same results as Kevin, I could not get to the page.





---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


[Hardhats-members] Re: Is $$GTF~%ZISH() binary friendly?

2005-08-21 Thread Kevin Toppenberg
Yes, it is going to be interesting to see what happens if many offices
adopt VistAOffice, and don't have the support that is standard in a
hospital setting.

I understand your feeling of staying well away from issues that caused
problems in the past.

I'll check with Bhaskar whether or not there is any risk in storing
non-printable characters in a global.  I did some testing and filled a
global with $char(0) and it didn't seem to loose them, or cause the
underlying string to terminate (i.e. null-terminated strings).

Actually I would consider it a bug of the M implementation if a user
could put a character into a global that would cause problems on
retrieval etc.  I don't know about this issue in subscripts.  I
suspect that it would be difficult to figure out what character had
been put in there, and thus be difficult to get back out.  But you
could $order through it to get the hidden subscript name and then
delete the node.

But then things don't always work like they are supposed to, do they?

Thanks for your feedback.
Kevin


On 8/21/05, smcphelan <[EMAIL PROTECTED]> wrote:
> Non-printable ASCII characters in either the data or the global subscripts
> can and has caused problem depending upon the M implementation and the
> vehicle you are using to access the M account.  If your data is on a global
> node that only your specific application will touch, then you may get by
> with it.  But if you have to use any of the M vendor's tools, you may
> encounter difficulty.  I have had direct experience in both cases where
> non-printable control codes were in the subscripts and data.  I had a DSM
> system once that was down for almost a day because of one control character
> in one subscript in one global.  Even DSM's FIX utility could not fix it.
> We had to have DEC dial in and fix it.  Of course that was years ago and I
> am sure things are better now.  But I, for one, am not interested in
> anything which intentionally stores non-printable ASCII characters.  There
> are a few exceptions.  I have never had show stopper problems with ASCII
> 7,9,10,11, and 13 as well as some others.
> 
> Without having a DEC support contract, I do not know what we would have
> done.  I guess we could have paid hourly rates to DEC.  You go through a
> few
> experiences like this actually experiencing major impact upon your facility
> providing patient care and possibly jeopardizing a patient's well being,
> you
> will never want to be in the situation where you do not have some sort of
> maintenance support immediately available.  Small doctor offices maybe can.
> But I cannot imagine any hospital going without all the support contracts
> in
> place.
> 
> - Original Message - 
> From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Sunday, August 21, 2005 9:05 AM
> Subject: [Hardhats-members] Re: Is $$GTF~%ZISH() binary friendly?
> 
> 
> A more fundamental question is whether M globals are binary friendly?
> I know that the underlying data is stored as strings.  So would the
> storage of a $char(0) crash the data?
> 
> I just tested this, and it doesn't.  Thus I could store the actual
> binary data in the global instead of converting each byte to a hex
> equivalent and storing that.
> 
> I could therefore read in 256 bytes at a time and store the data
> directly into the global.  It would be much faster.
> 
> But since my goal is to use the RPCBroker functionality that can
> transfer globals, I will next need to investigate what would happen if
> the global contained a control character (i.e. bytes 0-31).
> 
> I think that when a WP field is transferred to Delphi via RPCBroker,
> it is put into a TMemo field.  Each of the lines in a TMemo is a
> zero-terminated string (I think), so binary data might run into
> problems there.
> 
> I'll have to think more about this, but any input would be appreciated.
> 
> Kevin
> 
> 
> On 8/21/05, Kevin Toppenberg <[EMAIL PROTECTED]> wrote:
> > Here is the code.  I will also attach it incase wrapping ruins it here...
> >
> >
> > ;"TMG BIN <-->GBL FUNCTION
> > ;"Kevin Toppenberg MD
> > ;"GNU General Public License (GPL) applies
> > ;"8-20-2005
> >
> > ;"===
> > ;" API -- Public Functions.
> > ;"===
> > ;"$$BIN2GBL^TMGBINF(path,filename,globalRef,incSubscr)
> > ;"$$GBL2BIN^TMGBINF(globalRef,incSubscr,path,filename)
> >
> > ;"===
> > ;"PRIVATE API FUNCTIONS
> > ;"===
> >
> >
> >
> > ;"===
> > BIN2GBL(path,filename,globalRef,incSubscr)
> > ;"Purpose: To load a binary file from the host filesystem into
> > a WP field, storing
> > ;"  the composit bytes as ascii hex codes.
> > ;"Input: path --

Re: [Hardhats-members] Rules for the List

2005-08-21 Thread smcphelan
Today the linked worked without any changes to the browser.  I do not know
why it did not work the other day.

- Original Message - 
From: "Gregory Woodhouse" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, August 21, 2005 2:27 PM
Subject: Re: [Hardhats-members] Rules for the List


> Is your browser encoding the "_" in "mailing_list"?
>
> ===
> Gregory Woodhouse
> [EMAIL PROTECTED]
>
> "A hero is no braver than an ordinary
> man, but he is brave five minutes longer."
> -- Ralph Waldo Emerson
>
>
> On Aug 21, 2005, at 4:11 AM, smcphelan wrote:
>
> > I got the same results as Kevin, I could not get to the page.




---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] more M read questions

2005-08-21 Thread smcphelan
Here, here.  Chris also stated this.  ANSI standard M is not really designed
to handle binary data.  This is one reason Intersystems added extensions (if
you wish to call it that).  But then you are bound to a specific M vendor's
implementation, in this case, Cache.

If you are going to stay strictly within ANSI standard M, then binary data
is best handled outside of the M environment.

This is not really a VA Kernel issue since the Kernel is adhering to ANSI M
for its globals.

- Original Message - 
From: "Maury Pepper" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, August 21, 2005 12:52 PM
Subject: Re: [Hardhats-members] more M read questions


Kevin,

You are on the right track.  Increasing the number of characters per READ is
by far the most significant thing you can do to speed up your routine.
Reading one character at a time using a star-Read is very slow.  Each M
implementation has a way to do binary reads -- ie, a read which does not
look for a terminator and does not translate any characters (like HT into
spaces), but the M Standard does not specify this level of detail -- it's
left to the implementer.

I don't know whether VistA provides a way to call a file Open that provides
the necessary parameters for this.  Others on this list will.

Most M's do not have a problem storing binary data strings in globals. (I
know of only one that uses null-terminated strings, and to my knowledge, it
has never been used for VistA.)

WHY do this at all?  It seems like the long-way around.  Normally, when a
file is the object of interest, one just points to it by name and lets the
underlaying OS and utilities handle it.




---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] Re: Is $$GTF~%ZISH() binary friendly?

2005-08-21 Thread smcphelan
Non-printable ASCII characters in either the data or the global subscripts
can and has caused problem depending upon the M implementation and the
vehicle you are using to access the M account.  If your data is on a global
node that only your specific application will touch, then you may get by
with it.  But if you have to use any of the M vendor's tools, you may
encounter difficulty.  I have had direct experience in both cases where
non-printable control codes were in the subscripts and data.  I had a DSM
system once that was down for almost a day because of one control character
in one subscript in one global.  Even DSM's FIX utility could not fix it.
We had to have DEC dial in and fix it.  Of course that was years ago and I
am sure things are better now.  But I, for one, am not interested in
anything which intentionally stores non-printable ASCII characters.  There
are a few exceptions.  I have never had show stopper problems with ASCII
7,9,10,11, and 13 as well as some others.

Without having a DEC support contract, I do not know what we would have
done.  I guess we could have paid hourly rates to DEC.  You go through a few
experiences like this actually experiencing major impact upon your facility
providing patient care and possibly jeopardizing a patient's well being, you
will never want to be in the situation where you do not have some sort of
maintenance support immediately available.  Small doctor offices maybe can.
But I cannot imagine any hospital going without all the support contracts in
place.

- Original Message - 
From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, August 21, 2005 9:05 AM
Subject: [Hardhats-members] Re: Is $$GTF~%ZISH() binary friendly?


A more fundamental question is whether M globals are binary friendly?
I know that the underlying data is stored as strings.  So would the
storage of a $char(0) crash the data?

I just tested this, and it doesn't.  Thus I could store the actual
binary data in the global instead of converting each byte to a hex
equivalent and storing that.

I could therefore read in 256 bytes at a time and store the data
directly into the global.  It would be much faster.

But since my goal is to use the RPCBroker functionality that can
transfer globals, I will next need to investigate what would happen if
the global contained a control character (i.e. bytes 0-31).

I think that when a WP field is transferred to Delphi via RPCBroker,
it is put into a TMemo field.  Each of the lines in a TMemo is a
zero-terminated string (I think), so binary data might run into
problems there.

I'll have to think more about this, but any input would be appreciated.

Kevin


On 8/21/05, Kevin Toppenberg <[EMAIL PROTECTED]> wrote:
> Here is the code.  I will also attach it incase wrapping ruins it here...
>
>
> ;"TMG BIN <-->GBL FUNCTION
> ;"Kevin Toppenberg MD
> ;"GNU General Public License (GPL) applies
> ;"8-20-2005
>
> ;"===
> ;" API -- Public Functions.
> ;"===
> ;"$$BIN2GBL^TMGBINF(path,filename,globalRef,incSubscr)
> ;"$$GBL2BIN^TMGBINF(globalRef,incSubscr,path,filename)
>
> ;"===
> ;"PRIVATE API FUNCTIONS
> ;"===
>
>
>
> ;"===
> BIN2GBL(path,filename,globalRef,incSubscr)
> ;"Purpose: To load a binary file from the host filesystem into
> a WP field, storing
> ;"  the composit bytes as ascii hex codes.
> ;"Input: path --full path, up to but not including the
> filename (required)
> ;" filename --  name of the file to open (required)
> ;" globalRef-- Global reference to WRITE the host
> binary file to, in fully resolved
> ;"  (closed root) format.  This
> function does not kill the global before
> ;"  writing to it.  (required)
> ;"   Note:
> ;"   At least one subscript must be
> numeric.  This will be the incrementing
> ;"   subscript (i.e. the subscript
> that $$BIN2WP^TMGBINWP will increment
> ;"   to store each new global node).
> This subscript need not be the final
> ;"   subscript.  For example, to load
> into a WORD PROCESSING field, the
> ;"   incrementing node is the
> second-to-last subscript; the final subscript
> ;"   is always zero.
> ;"incSubscr-- (required) Identifies the incrementing
> subscript level.  For example, if you
> ;"   pass ^TMP(115,1,1,0) as the
> global_ref par

Re: [Hardhats-members] Re: more M read questions

2005-08-21 Thread Ruben Safir
On Sun, 2005-08-21 at 14:19 -0400, Kevin Toppenberg wrote:
> Thanks Ruben,
> 
> Are any of these options something that could be put into a $Windoze
> client so that it could securely request images from server, or would
> it involve setting up an environment for the client to run int?
> 

I'm not sure.  I haven't used a Windows computer in about 15 years.
google rsync and windows  I guess.  But rsync is a miracle.

Ruben

> Thanks
> Kevin
> 
> 
> On 8/21/05, Ruben Safir <[EMAIL PROTECTED]> wrote:
> > On Sun, 2005-08-21 at 13:42 -0400, Kevin Toppenberg wrote:
> > > Hmm... if I had an ftp server, I would want to be sure that only those
> > > authorized to request a file were sent the file.  Perhaps I need to
> > > look more into the secure FTP options
> > 
> > rsync through ssh or FreeSWan...
> > 
> > 
> > 
> > ---
> > SF.Net email is Sponsored by the Better Software Conference & EXPO
> > September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
> > Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> > Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> > ___
> > Hardhats-members mailing list
> > [EMAIL PROTECTED]
> > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> >
> 
> 
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members



---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


[Hardhats-members] Re: Is $$GTF~%ZISH() binary friendly?

2005-08-21 Thread Kevin Toppenberg
Chris,

I am having trouble getting a buffered read to work.

GTM>set path="/tmp/"
GTM>set fname="killthis"
GTM>do OPEN^%ZISH("Handle",path,fname,"R")
GTM>w POP
0
GTM>F  Q:($ZEOF)  U IO:(NOTERMINATOR) R X#255:5 U $P W $L(X),"; "
51; 17; 21; 24; 51; 52; 56; 27; 51; 38; 0;
%GTM-E-IOEOF, Attempt to read past an end-of-file

Don't worry about that EOF error.  The issue is that I am not getting
in 255 bytes at a time as I requested.  In this case the file is a
text file, but it should be amendible for binary processing.  I think
that (NOTERMINATOR) is not working.

Can you show how you would do a buffered read?

Thanks
Kevin


On 8/21/05, Chris Richardson <[EMAIL PROTECTED]> wrote:
> Kevin;
> 
>You are working way too hard.  Do a buffered read and then use $ASCII to
> take it apart one octet at a time.  The encoding is much easier than you
> have made it.  Each octet will be something like this;
> 
>   N BUF,C,B1,B2,OBUF
>   S OBUF=""
>   R BUF#255
>   F I=1:1:$L(BUF)  D
>   .  S C=$ASCII(BUF,I)  ; Converts to the value of the character (0 to 255)
>   .  S OBUF=OBUF_$$BYT2BIN(C)
>   .QUIT
> 
> BYT2BIN(V) ; Take one BYTE and return HEX Values
>   N HV,B1,B2
>   S NV="0123456789ABCDEF"
>   S B1=(V#16)+1  ; 0 to 15 becomes 1 to 16
>   S B2=(V\16)+1
>   QUIT $E(NV,B1)_$E(NV,B2)  ;  You figure out the byte order  1-2 or 2-1
> 
> The star reads are eating your lunch.  This will be much faster.
> 
> 
> - Original Message -
> From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Sunday, August 21, 2005 5:53 AM
> Subject: [Hardhats-members] Re: Is $$GTF~%ZISH() binary friendly?
> 
> 
> Here is the code.  I will also attach it incase wrapping ruins it here...
> 
> 
> ;"TMG BIN <-->GBL FUNCTION
> ;"Kevin Toppenberg MD
> ;"GNU General Public License (GPL) applies
> ;"8-20-2005
> 
> ;"===
> ;" API -- Public Functions.
> ;"===
> ;"$$BIN2GBL^TMGBINF(path,filename,globalRef,incSubscr)
> ;"$$GBL2BIN^TMGBINF(globalRef,incSubscr,path,filename)
> 
> ;"===
> ;"PRIVATE API FUNCTIONS
> ;"===
> 
> 
> 
> ;"===
> BIN2GBL(path,filename,globalRef,incSubscr)
> ;"Purpose: To load a binary file from the host filesystem into
> a WP field, storing
> ;"  the composit bytes as ascii hex codes.
> ;"Input: path --full path, up to but not including the
> filename (required)
> ;" filename --  name of the file to open (required)
> ;" globalRef-- Global reference to WRITE the host
> binary file to, in fully resolved
> ;"  (closed root) format.  This
> function does not kill the global before
> ;"  writing to it.  (required)
> ;"   Note:
> ;"   At least one subscript must be
> numeric.  This will be the incrementing
> ;"   subscript (i.e. the subscript
> that $$BIN2WP^TMGBINWP will increment
> ;"   to store each new global node).
> This subscript need not be the final
> ;"   subscript.  For example, to load
> into a WORD PROCESSING field, the
> ;"   incrementing node is the
> second-to-last subscript; the final subscript
> ;"   is always zero.
> ;"incSubscr-- (required) Identifies the incrementing
> subscript level.  For example, if you
> ;"   pass ^TMP(115,1,1,0) as the
> global_ref parameter and pass 3 as the
> ;"   inc_subscr parameter, $$BIN2GBL
> will increment the third subscript, such
> ;"   as ^TMP(115,1,x), but will WRITE
> notes at the full global reference, such
> ;"   as ^TMP(115,1,x,0).
> ;"Result: 1=success, 0=failure
> ;"
> ;"Note: Each line of the global will contain up to 128 bytes
> (256 characters)
> ;"   (2 ascii hex characters = 1 source byte)
> ;"Example:
> ;"
> ^TMP(115,1,1,0)="A12C4F12E2791D9723C3297D3C30B73C1532A1...(continues
> to 256 characters)"
> ;"
> ^TMP(115,1,2,0)="91D9723C3297D314ADF31B85F41A12C4F12E27...(continues
> to 256 characters)"
> ;"
> ^TMP(115,1,3,0)="3A12C4F12E271B85F4C2ED9723C3297D314ADF...(continues
> to 256 characters)"
> ;"
> ^TMP(115,1,4,0)="85F73C1532AA12C4F12E2791D9723C3297D314...(continues
> to 256 characters)"
> ;"  ^TMP(115,1,5,0)="61A85C30B73C1532AA12C4F12E2791D972"  <--
> not padded with terminal zeros
> 
> new result set re

[Hardhats-members] Re: more M read questions

2005-08-21 Thread Kevin Toppenberg
Thanks Ruben,

Are any of these options something that could be put into a $Windoze
client so that it could securely request images from server, or would
it involve setting up an environment for the client to run int?

Thanks
Kevin


On 8/21/05, Ruben Safir <[EMAIL PROTECTED]> wrote:
> On Sun, 2005-08-21 at 13:42 -0400, Kevin Toppenberg wrote:
> > Hmm... if I had an ftp server, I would want to be sure that only those
> > authorized to request a file were sent the file.  Perhaps I need to
> > look more into the secure FTP options
> 
> rsync through ssh or FreeSWan...
> 
> 
> 
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] Re: more M read questions

2005-08-21 Thread Ruben Safir
On Sun, 2005-08-21 at 13:42 -0400, Kevin Toppenberg wrote:
> Hmm... if I had an ftp server, I would want to be sure that only those
> authorized to request a file were sent the file.  Perhaps I need to
> look more into the secure FTP options

rsync through ssh or FreeSWan...



---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


[Hardhats-members] Re: more M read questions

2005-08-21 Thread Kevin Toppenberg
Hmm... if I had an ftp server, I would want to be sure that only those
authorized to request a file were sent the file.  Perhaps I need to
look more into the secure FTP options.

I had thought that the server could just load up the file for the
client, and then send it out via RPC.  Perhaps its going to be too
much hassle, though.

Kevin


On 8/21/05, Maury Pepper <[EMAIL PROTECTED]> wrote:
> - Original Message - 
> From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Sunday, August 21, 2005 12:00 PM
> Subject: [Hardhats-members] Re: more M read questions
> 
> 
> > Maury,
> > 
> > Thanks for your feedback.  I agree that they byte-by-byte approach
> > will have to be changed.
> > 
> > I am doing it for a couple of reasons.  First, I think it is a severe
> > limitation of Kernel if it can't read in a binary file.
> > 
> Reading, storing, transmitting -- all very different issues.
> 
> > Second, because I want to allow the server to send CPRS, or other
> > imaging client, a binary file (i.e. an image), without the client
> > having to be given filesystem access to the image server.  It should
> > save setup hassles, and also increase security.
> > 
> Fair enough.  Add a RPC call to do this instead of worrying about reading
> and storing the data within VistA.  Something like FTP (or one of its secure
> cousins) could be subverted.
> 
> 
> 
> 
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] Re: more M read questions

2005-08-21 Thread Maury Pepper
- Original Message - 
From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, August 21, 2005 12:00 PM
Subject: [Hardhats-members] Re: more M read questions


> Maury,
> 
> Thanks for your feedback.  I agree that they byte-by-byte approach
> will have to be changed.
> 
> I am doing it for a couple of reasons.  First, I think it is a severe
> limitation of Kernel if it can't read in a binary file.
> 
Reading, storing, transmitting -- all very different issues.

> Second, because I want to allow the server to send CPRS, or other
> imaging client, a binary file (i.e. an image), without the client
> having to be given filesystem access to the image server.  It should
> save setup hassles, and also increase security.
> 
Fair enough.  Add a RPC call to do this instead of worrying about reading and 
storing the data within VistA.  Something like FTP (or one of its secure 
cousins) could be subverted.




---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] Re: Is $$GTF~%ZISH() binary friendly?

2005-08-21 Thread Chris Richardson
Kevin;

   You are working way too hard.  Do a buffered read and then use $ASCII to
take it apart one octet at a time.  The encoding is much easier than you
have made it.  Each octet will be something like this;

  N BUF,C,B1,B2,OBUF
  S OBUF=""
  R BUF#255
  F I=1:1:$L(BUF)  D
  .  S C=$ASCII(BUF,I)  ; Converts to the value of the character (0 to 255)
  .  S OBUF=OBUF_$$BYT2BIN(C)
  .QUIT

BYT2BIN(V) ; Take one BYTE and return HEX Values
  N HV,B1,B2
  S NV="0123456789ABCDEF"
  S B1=(V#16)+1  ; 0 to 15 becomes 1 to 16
  S B2=(V\16)+1
  QUIT $E(NV,B1)_$E(NV,B2)  ;  You figure out the byte order  1-2 or 2-1

The star reads are eating your lunch.  This will be much faster.


- Original Message -
From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, August 21, 2005 5:53 AM
Subject: [Hardhats-members] Re: Is $$GTF~%ZISH() binary friendly?


Here is the code.  I will also attach it incase wrapping ruins it here...


;"TMG BIN <-->GBL FUNCTION
;"Kevin Toppenberg MD
;"GNU General Public License (GPL) applies
;"8-20-2005

;"===
;" API -- Public Functions.
;"===
;"$$BIN2GBL^TMGBINF(path,filename,globalRef,incSubscr)
;"$$GBL2BIN^TMGBINF(globalRef,incSubscr,path,filename)

;"===
;"PRIVATE API FUNCTIONS
;"===



;"===
BIN2GBL(path,filename,globalRef,incSubscr)
;"Purpose: To load a binary file from the host filesystem into
a WP field, storing
;"  the composit bytes as ascii hex codes.
;"Input: path --full path, up to but not including the
filename (required)
;" filename --  name of the file to open (required)
;" globalRef-- Global reference to WRITE the host
binary file to, in fully resolved
;"  (closed root) format.  This
function does not kill the global before
;"  writing to it.  (required)
;"   Note:
;"   At least one subscript must be
numeric.  This will be the incrementing
;"   subscript (i.e. the subscript
that $$BIN2WP^TMGBINWP will increment
;"   to store each new global node).
This subscript need not be the final
;"   subscript.  For example, to load
into a WORD PROCESSING field, the
;"   incrementing node is the
second-to-last subscript; the final subscript
;"   is always zero.
;"incSubscr-- (required) Identifies the incrementing
subscript level.  For example, if you
;"   pass ^TMP(115,1,1,0) as the
global_ref parameter and pass 3 as the
;"   inc_subscr parameter, $$BIN2GBL
will increment the third subscript, such
;"   as ^TMP(115,1,x), but will WRITE
notes at the full global reference, such
;"   as ^TMP(115,1,x,0).
;"Result: 1=success, 0=failure
;"
;"Note: Each line of the global will contain up to 128 bytes
(256 characters)
;"   (2 ascii hex characters = 1 source byte)
;"Example:
;"
^TMP(115,1,1,0)="A12C4F12E2791D9723C3297D3C30B73C1532A1...(continues
to 256 characters)"
;"
^TMP(115,1,2,0)="91D9723C3297D314ADF31B85F41A12C4F12E27...(continues
to 256 characters)"
;"
^TMP(115,1,3,0)="3A12C4F12E271B85F4C2ED9723C3297D314ADF...(continues
to 256 characters)"
;"
^TMP(115,1,4,0)="85F73C1532AA12C4F12E2791D9723C3297D314...(continues
to 256 characters)"
;"  ^TMP(115,1,5,0)="61A85C30B73C1532AA12C4F12E2791D972"  <--
not padded with terminal zeros

new result set result=0  ;"default to failure
new handle set handle="TMGHANDLE"
new abort set abort=0
new byteIn
new $ETRAP
new oneLine set oneLine=""
new curRef set curRef=globalRef

set path=$$DEFDIR^%ZISH($get(path))
do OPEN^%ZISH(handle,path,filename,"R")
if POP goto B2GDone
set $ETRAP="set abort=1,$ECODE= quit"
use IO
for  do  quit:($ZEOF)!(abort=1)!(byteIn=-1)
. read *byteIn:2
. if (byteIn=-1) quit
. set oneLine=oneLine_$$HEXCHR(byteIn,2)
. if $length(oneLine)>255 do
. . set @curRef=oneLine
. . set curRef=$$NEXTNODE(curRef,incSubscr)
. . set oneLine=""
if (oneLine'="")&(abort=0) do
. set @curRef=oneLine
. set oneLine=""

if (abort'=1) set result=1 ;"SUCCESS
do CLOSE^%ZISH(handle)


B2GDone
quit res

[Hardhats-members] Re: more M read questions

2005-08-21 Thread Kevin Toppenberg
Maury,

Thanks for your feedback.  I agree that they byte-by-byte approach
will have to be changed.

I am doing it for a couple of reasons.  First, I think it is a severe
limitation of Kernel if it can't read in a binary file.

Second, because I want to allow the server to send CPRS, or other
imaging client, a binary file (i.e. an image), without the client
having to be given filesystem access to the image server.  It should
save setup hassles, and also increase security.

Kevin


On 8/21/05, Maury Pepper <[EMAIL PROTECTED]> wrote:
> Kevin,
> 
> You are on the right track.  Increasing the number of characters per READ is
> by far the most significant thing you can do to speed up your routine. 
> Reading one character at a time using a star-Read is very slow.  Each M
> implementation has a way to do binary reads -- ie, a read which does not
> look for a terminator and does not translate any characters (like HT into
> spaces), but the M Standard does not specify this level of detail -- it's
> left to the implementer.
> 
> I don't know whether VistA provides a way to call a file Open that provides
> the necessary parameters for this.  Others on this list will.
> 
> Most M's do not have a problem storing binary data strings in globals. (I
> know of only one that uses null-terminated strings, and to my knowledge, it
> has never been used for VistA.)
> 
> WHY do this at all?  It seems like the long-way around.  Normally, when a
> file is the object of interest, one just points to it by name and lets the
> underlaying OS and utilities handle it.
> 
> 
> - Original Message - 
> From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
> To: "Hardhats Sourceforge" <[EMAIL PROTECTED]>
> Sent: Sunday, August 21, 2005 8:46 AM
> Subject: [Hardhats-members] more M read questions
> 
> 
> > The read command in M seems to be the most complicated function it has.  
> > 
> > I am trying to perform a binary read.  I do it this way:
> > 
> > read blockIn#255
> > 
> > The problem is that as I debug the code, $length(blockIn) does not
> always=255.
> > 
> > I think this is because sometimes the stream contains a "terminator",
> > such as a #13 etc.
> > 
> > How do do a read that ignores the usual "terminators"?
> > 
> > Thanks
> > Kevin
> > 
> > 
> > ---
> > SF.Net email is Sponsored by the Better Software Conference & EXPO
> > September 19-22, 2005 * San Francisco, CA * Development Lifecycle
> Practices
> > Agile & Plan-Driven Development * Managing Projects & Teams * Testing &
> QA
> > Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> > ___
> > Hardhats-members mailing list
> > [EMAIL PROTECTED]
> > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> >
> 
> 
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] more M read questions

2005-08-21 Thread Maury Pepper
Kevin,

You are on the right track.  Increasing the number of characters per READ is by 
far the most significant thing you can do to speed up your routine.  Reading 
one character at a time using a star-Read is very slow.  Each M implementation 
has a way to do binary reads -- ie, a read which does not look for a terminator 
and does not translate any characters (like HT into spaces), but the M Standard 
does not specify this level of detail -- it's left to the implementer.

I don't know whether VistA provides a way to call a file Open that provides the 
necessary parameters for this.  Others on this list will.

Most M's do not have a problem storing binary data strings in globals. (I know 
of only one that uses null-terminated strings, and to my knowledge, it has 
never been used for VistA.)

WHY do this at all?  It seems like the long-way around.  Normally, when a file 
is the object of interest, one just points to it by name and lets the 
underlaying OS and utilities handle it.


- Original Message - 
From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
To: "Hardhats Sourceforge" <[EMAIL PROTECTED]>
Sent: Sunday, August 21, 2005 8:46 AM
Subject: [Hardhats-members] more M read questions


> The read command in M seems to be the most complicated function it has.  
> 
> I am trying to perform a binary read.  I do it this way:
> 
> read blockIn#255
> 
> The problem is that as I debug the code, $length(blockIn) does not always=255.
> 
> I think this is because sometimes the stream contains a "terminator",
> such as a #13 etc.
> 
> How do do a read that ignores the usual "terminators"?
> 
> Thanks
> Kevin
> 
> 
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


[Hardhats-members] Re: more M read questions

2005-08-21 Thread Kevin Toppenberg
Are you making this more difficult that it has to be?  (I can't
*imagine* you doing that!  :-)  )

I don't know about the big/little endian issues.  I am not planning to
store two-byte words, so I don't think this comes into play.  I will
just store the bytes as they come in the stream.

And I don't want to use a GT.M unique solution, as that will greatly
limit potential use by others.

Kevin


P.S.  I read that using this syntax:
use IO:(NOTERMINATOR)  is supposed to make the stream not stop at
"terminator" characters.

But it doesn't seem to work for me yet.

Kevin


On 8/21/05, Chris Richardson <[EMAIL PROTECTED]> wrote:
> Kevin;
> 
>There is only a single data-type in MUMPS, strings.  What you are doing
> is a fixed length buffer read of characters (real characters or binary
> data).  You are opening up a big bag of issues which the MDC argued over
> for
> decades.  If you are talking about binary, are you talking about big-endian
> or little-endian representation (what do the bits mean?).  By dealing in
> characters, we don't have to worry about byte order per word.   Now some
> implementations did provide tools for doing these operations (most notable
> was Micronetics (now InterSystems).   I believe that GTM has some of these
> same tools.  They also have the thinnest binding with the underlying
> operating system, so poking out to do this type of operation is pretty
> simple in GT.M.
>


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] more M read questions

2005-08-21 Thread Chris Richardson
Kevin;

   There is only a single data-type in MUMPS, strings.  What you are doing
is a fixed length buffer read of characters (real characters or binary
data).  You are opening up a big bag of issues which the MDC argued over for
decades.  If you are talking about binary, are you talking about big-endian
or little-endian representation (what do the bits mean?).  By dealing in
characters, we don't have to worry about byte order per word.   Now some
implementations did provide tools for doing these operations (most notable
was Micronetics (now InterSystems).   I believe that GTM has some of these
same tools.  They also have the thinnest binding with the underlying
operating system, so poking out to do this type of operation is pretty
simple in GT.M.


- Original Message -
From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
To: "Hardhats Sourceforge" <[EMAIL PROTECTED]>
Sent: Sunday, August 21, 2005 6:46 AM
Subject: [Hardhats-members] more M read questions


The read command in M seems to be the most complicated function it has.

I am trying to perform a binary read.  I do it this way:

read blockIn#255

The problem is that as I debug the code, $length(blockIn) does not
always=255.

I think this is because sometimes the stream contains a "terminator",
such as a #13 etc.

How do do a read that ignores the usual "terminators"?

Thanks
Kevin


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members






---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


[Hardhats-members] more M read questions

2005-08-21 Thread Kevin Toppenberg
The read command in M seems to be the most complicated function it has.  

I am trying to perform a binary read.  I do it this way:

read blockIn#255

The problem is that as I debug the code, $length(blockIn) does not always=255.

I think this is because sometimes the stream contains a "terminator",
such as a #13 etc.

How do do a read that ignores the usual "terminators"?

Thanks
Kevin


---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members


[Hardhats-members] Re: Is $$GTF~%ZISH() binary friendly?

2005-08-21 Thread Kevin Toppenberg
A more fundamental question is whether M globals are binary friendly? 
I know that the underlying data is stored as strings.  So would the
storage of a $char(0) crash the data?

I just tested this, and it doesn't.  Thus I could store the actual
binary data in the global instead of converting each byte to a hex
equivalent and storing that.

I could therefore read in 256 bytes at a time and store the data
directly into the global.  It would be much faster.

But since my goal is to use the RPCBroker functionality that can
transfer globals, I will next need to investigate what would happen if
the global contained a control character (i.e. bytes 0-31).

I think that when a WP field is transferred to Delphi via RPCBroker,
it is put into a TMemo field.  Each of the lines in a TMemo is a
zero-terminated string (I think), so binary data might run into
problems there.

I'll have to think more about this, but any input would be appreciated.

Kevin


On 8/21/05, Kevin Toppenberg <[EMAIL PROTECTED]> wrote:
> Here is the code.  I will also attach it incase wrapping ruins it here...
> 
> 
> ;"TMG BIN <-->GBL FUNCTION
> ;"Kevin Toppenberg MD
> ;"GNU General Public License (GPL) applies
> ;"8-20-2005
> 
> ;"===
> ;" API -- Public Functions.
> ;"===
> ;"$$BIN2GBL^TMGBINF(path,filename,globalRef,incSubscr)
> ;"$$GBL2BIN^TMGBINF(globalRef,incSubscr,path,filename)
> 
> ;"===
> ;"PRIVATE API FUNCTIONS
> ;"===
> 
> 
> 
> ;"===
> BIN2GBL(path,filename,globalRef,incSubscr)
> ;"Purpose: To load a binary file from the host filesystem into
> a WP field, storing
> ;"  the composit bytes as ascii hex codes.
> ;"Input: path --full path, up to but not including the
> filename (required)
> ;" filename --  name of the file to open (required)
> ;" globalRef-- Global reference to WRITE the host
> binary file to, in fully resolved
> ;"  (closed root) format.  This
> function does not kill the global before
> ;"  writing to it.  (required)
> ;"   Note:
> ;"   At least one subscript must be
> numeric.  This will be the incrementing
> ;"   subscript (i.e. the subscript
> that $$BIN2WP^TMGBINWP will increment
> ;"   to store each new global node). 
> This subscript need not be the final
> ;"   subscript.  For example, to load
> into a WORD PROCESSING field, the
> ;"   incrementing node is the
> second-to-last subscript; the final subscript
> ;"   is always zero.
> ;"incSubscr-- (required) Identifies the incrementing
> subscript level.  For example, if you
> ;"   pass ^TMP(115,1,1,0) as the
> global_ref parameter and pass 3 as the
> ;"   inc_subscr parameter, $$BIN2GBL
> will increment the third subscript, such
> ;"   as ^TMP(115,1,x), but will WRITE
> notes at the full global reference, such
> ;"   as ^TMP(115,1,x,0).
> ;"Result: 1=success, 0=failure
> ;"
> ;"Note: Each line of the global will contain up to 128 bytes
> (256 characters)
> ;"   (2 ascii hex characters = 1 source byte)
> ;"Example:
> ;" 
> ^TMP(115,1,1,0)="A12C4F12E2791D9723C3297D3C30B73C1532A1...(continues
> to 256 characters)"
> ;" 
> ^TMP(115,1,2,0)="91D9723C3297D314ADF31B85F41A12C4F12E27...(continues
> to 256 characters)"
> ;" 
> ^TMP(115,1,3,0)="3A12C4F12E271B85F4C2ED9723C3297D314ADF...(continues
> to 256 characters)"
> ;" 
> ^TMP(115,1,4,0)="85F73C1532AA12C4F12E2791D9723C3297D314...(continues
> to 256 characters)"
> ;"  ^TMP(115,1,5,0)="61A85C30B73C1532AA12C4F12E2791D972"  <--
> not padded with terminal zeros
> 
> new result set result=0  ;"default to failure
> new handle set handle="TMGHANDLE"
> new abort set abort=0
> new byteIn
> new $ETRAP 
> new oneLine set oneLine=""
> new curRef set curRef=globalRef
> 
> set path=$$DEFDIR^%ZISH($get(path))
> do OPEN^%ZISH(handle,path,filename,"R")
> if POP goto B2GDone
> set $ETRAP="set abort=1,$ECODE= quit"
> use IO
> for  do  quit:($ZEOF)!(abort=1)!(byteIn=-1)
> . read *byteIn:2
> . if (byteIn=-1) quit
> . set oneLine=oneLine_$$HEXCHR(byteIn,2)
> . if 

[Hardhats-members] Re: Is $$GTF~%ZISH() binary friendly?

2005-08-21 Thread Kevin Toppenberg
Here is the code.  I will also attach it incase wrapping ruins it here...


;"TMG BIN <-->GBL FUNCTION
;"Kevin Toppenberg MD
;"GNU General Public License (GPL) applies
;"8-20-2005

;"===
;" API -- Public Functions.
;"===
;"$$BIN2GBL^TMGBINF(path,filename,globalRef,incSubscr)
;"$$GBL2BIN^TMGBINF(globalRef,incSubscr,path,filename)

;"===
;"PRIVATE API FUNCTIONS
;"===



;"===
BIN2GBL(path,filename,globalRef,incSubscr)
;"Purpose: To load a binary file from the host filesystem into
a WP field, storing
;"  the composit bytes as ascii hex codes.
;"Input: path --full path, up to but not including the
filename (required)
;" filename --  name of the file to open (required)
;" globalRef-- Global reference to WRITE the host
binary file to, in fully resolved
;"  (closed root) format.  This
function does not kill the global before
;"  writing to it.  (required)
;"   Note:
;"   At least one subscript must be
numeric.  This will be the incrementing
;"   subscript (i.e. the subscript
that $$BIN2WP^TMGBINWP will increment
;"   to store each new global node). 
This subscript need not be the final
;"   subscript.  For example, to load
into a WORD PROCESSING field, the
;"   incrementing node is the
second-to-last subscript; the final subscript
;"   is always zero.
;"incSubscr-- (required) Identifies the incrementing
subscript level.  For example, if you
;"   pass ^TMP(115,1,1,0) as the
global_ref parameter and pass 3 as the
;"   inc_subscr parameter, $$BIN2GBL
will increment the third subscript, such
;"   as ^TMP(115,1,x), but will WRITE
notes at the full global reference, such
;"   as ^TMP(115,1,x,0).
;"Result: 1=success, 0=failure
;"
;"Note: Each line of the global will contain up to 128 bytes
(256 characters)
;"   (2 ascii hex characters = 1 source byte)
;"Example:
;"  ^TMP(115,1,1,0)="A12C4F12E2791D9723C3297D3C30B73C1532A1...(continues
to 256 characters)"
;"  ^TMP(115,1,2,0)="91D9723C3297D314ADF31B85F41A12C4F12E27...(continues
to 256 characters)"
;"  ^TMP(115,1,3,0)="3A12C4F12E271B85F4C2ED9723C3297D314ADF...(continues
to 256 characters)"
;"  ^TMP(115,1,4,0)="85F73C1532AA12C4F12E2791D9723C3297D314...(continues
to 256 characters)"
;"  ^TMP(115,1,5,0)="61A85C30B73C1532AA12C4F12E2791D972"  <--
not padded with terminal zeros

new result set result=0  ;"default to failure
new handle set handle="TMGHANDLE"
new abort set abort=0
new byteIn
new $ETRAP 
new oneLine set oneLine=""
new curRef set curRef=globalRef

set path=$$DEFDIR^%ZISH($get(path))
do OPEN^%ZISH(handle,path,filename,"R")
if POP goto B2GDone
set $ETRAP="set abort=1,$ECODE= quit"
use IO
for  do  quit:($ZEOF)!(abort=1)!(byteIn=-1)
. read *byteIn:2
. if (byteIn=-1) quit
. set oneLine=oneLine_$$HEXCHR(byteIn,2)
. if $length(oneLine)>255 do
. . set @curRef=oneLine
. . set curRef=$$NEXTNODE(curRef,incSubscr)
. . set oneLine=""
if (oneLine'="")&(abort=0) do
. set @curRef=oneLine
. set oneLine=""

if (abort'=1) set result=1 ;"SUCCESS
do CLOSE^%ZISH(handle)


B2GDone
quit result
 
  
NEXTNODE(curRef,incSubscr)
;"Purpose: to take a global reference, and increment the node
specified by incSubscr
;"Input:   curRef --The reference to alter, e.g. '^TMP(115,1,4,0)'
;"   incSubscr--The node to alter, e.g.
;"  1-->^TMG(x,1,4,0)x would
be incremented
;"  2-->^TMG(115,x,4,0) x would be
incremented
;"  3-->^TMG(115,1,x,0) x would be
incremented
;"  4-->^TMG(115,1,4,x) x would be
incremented
;"Note: the node that incSubscr references should be numeric
(i.e. not a name)
;"  otherwise the alpha node will be treated as a 0
;"result: returns the new reference

   

RE: [Hardhats-members] Rules for the List

2005-08-21 Thread Thurman Pedigo
http://www.hardhats.org/mailing_list.html#RULES

Still works for me - both click and paste.


> -Original Message-
> From: [EMAIL PROTECTED] [mailto:hardhats-
> [EMAIL PROTECTED] On Behalf Of Greg Kreis
> Sent: Saturday, August 20, 2005 6:57 AM
> To: hardhats-members@lists.sourceforge.net
> Subject: [Hardhats-members] Rules for the List
> 
> We have quantified rules for the list that members are to observe in
> order to keep this list a productive and orderly place to explore and
> learn about the technical aspects of VistA (i.e. the infrastructure).
> Please review them.
> 
>  http://www.hardhats.org/mailing_list.html#RULES
> 
> --
> Greg Kreis  http://www.PioneerDataSys.com
> 
> "You are today where your thoughts have brought you, you will
>be tomorrow where your thoughts take you." (James Lane Allen)
> 
> 
> 
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle
> Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> Hardhats-members@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/hardhats-members



---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members


Re: [Hardhats-members] Rules for the List

2005-08-21 Thread smcphelan
I got the same results as Kevin, I could not get to the page.

- Original Message - 
From: "Thurman Pedigo" <[EMAIL PROTECTED]>
To: 
Sent: Saturday, August 20, 2005 2:29 PM
Subject: RE: [Hardhats-members] Rules for the List


> I checked - short, succinct, and useful.
>
> I wouldn't mind seeing it posted to this list monthly.
>
> thurman
>
> >
> > I tried the link above twice, and got a bad link error.
> >
> > Kevin
> >
> > On 8/20/05, Greg Kreis <[EMAIL PROTECTED]> wrote:
> > > We have quantified rules for the list that members are to observe in
> > > order to keep this list a productive and orderly place to explore and
> > > learn about the technical aspects of VistA (i.e. the infrastructure).
> > > Please review them.
> > >
>
>
>
> ---
> SF.Net email is Sponsored by the Better Software Conference & EXPO
> September 19-22, 2005 * San Francisco, CA * Development Lifecycle
Practices
> Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
> Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
> ___
> Hardhats-members mailing list
> Hardhats-members@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>




---
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
___
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members