Host File Handling - Revision history

NeilArmstrong: Added Glossary Link to File~

2012-03-01T22:51:09Z

Added Glossary Link to File~

← Older revision		Revision as of 22:51, 1 March 2012
Line 1:		Line 1:
	Host ~~Files~~ (also called [[Host Operating System Files]]) are generally stored on the disk outside of the [[MUMPS system]].		Host [[File~\|File]]s (also called [[Host Operating System Files]]) are generally stored on the disk outside of the [[MUMPS system]].

	== Reading from Host ~~Files~~ into MUMPS data arrays ==		== Reading from Host [[File~\|File]]s into MUMPS data arrays ==

	=== From [[User:Greg Woodhouse]] ===		=== From [[User:Greg Woodhouse]] ===

64.122.26.12 at 01:39, 26 February 2005

2005-02-26T01:39:25Z

← Older revision		Revision as of 01:39, 26 February 2005
Line 1:		Line 1:
	Host Files (also called Host Operating System Files) are generally stored on the disk outside of the [[MUMPS system]].		Host Files (also called [[Host Operating System Files]]) are generally stored on the disk outside of the [[MUMPS system]].

	== Reading from Host Files into MUMPS data arrays ==		== Reading from Host Files into MUMPS data arrays ==

64.122.26.12 at 20:49, 25 February 2005

2005-02-25T20:49:08Z

New page

Host Files (also called Host Operating System Files) are generally stored on the disk outside of the [[MUMPS system]].

== Reading from Host Files into MUMPS data arrays ==

=== From [[User:Greg Woodhouse]] ===
I'll look into it more as soon as I get a chance. In the meantime, here
is some code I wrote to append strings to build large arrays by
sequentially appending substrings. This is the format used by th VistA
HL7 package to represent long strings and it is NOT the same as the
format of WP fields, but the same idea can be used here.

<pre>
APPEND(PRCBUF,PRCSTR,PRCLIM) ;
N HASCHD,LAST,VAL,L1,L2,L3
S:+$G(PRCLIM)'>0 PRCLIM=245 ;default
S HASCHD=$S($D(@PRCBUF)'<10:1,1:0)
I HASCHD S LAST=$O(@PRCBUF@(" "),-1)
S L1=$S(HASCHD:$L($NA(@PRCBUF@(LAST))),1:$L(PRCBUF))
S L2=$L(PRCSTR)
I HASCHD S VAL=$G(@PRCBUF@(LAST))
I 'HASCHD S VAL=$G(@PRCBUF)
S L3=$L(VAL)
I L1+L2+L3<PRCLIM D
.S:'HASCHD @PRCBUF=VAL_PRCSTR
.S:HASCHD @PRCBUF@(LAST)=VAL_PRCSTR
I L1+L2+L3'<PRCLIM D
.S LAST=$S(HASCHD:LAST+1,1:1)
.S @PRCBUF@(LAST)=PRCSTR
Q
</pre>