That's right. The point of this code is to quickly traverse a file entry without actually making FM calls. I don't do anything special with WP fields here, so that value isn't used. However, if you actually wanted to do something with the data, you'd want to know if a subfile was a multiple, or if it contained a WP field with or without line wrap.
Of course, the right way to fetch WP contents (if you want to follow standards)is with GETS^DIQ or $$GET1^DIQ. --- Kevin Toppenberg <[EMAIL PROTECTED]> wrote: > Greg, > > Your code has been very helpful. > > I don't fully understand these lines > > .S X=$P(^DD(FNUM,.01,0),"^",2) > > .S WP=$S(X="W":1,X="WL":2,1:0) > When the second piece="W", or "WL", what is the > significance of these codes? You don't seem to use WP > in your code. > > Thanks > Kevin > > > > --- Greg Woodhouse <[EMAIL PROTECTED]> > wrote: > > > Hee's a slightly modified version of some code I > > wrote to recursively > > traverse a file entry. You could probably adapt it > > to produce an XML > > serialization of the file. (Note that I originally > > wrote this using > > GETS^DIQ, but according to my benchmarks, that > > version was much too > > slow). > > > > TRAVERSE(FNUM,IEN,SREF) ; > > N > > > VAL,FLD,TYPE,STORE,NODE,POS,IVAL,OROOT,GREF,RANGE,FIRST,LAST > > N SFILE,SROOT,CROOT,SREC,VAL2,LABEL,WP,X > > I $G(SREF)'="" D > > .S X=$P(^DD(FNUM,.01,0),"^",2) > > .S WP=$S(X="W":1,X="WL":2,1:0) > > S VAL=0 > > I $G(SREF)="" D > > .S OROOT=$G(^DIC(FNUM,0,"GL")) > > E S OROOT=SREF > > Q:OROOT="" 0 > > S FLD=0 > > F S FLD=$O(^DD(FNUM,FLD)) Q:+FLD'>0 D > > .S TYPE=$P($G(^DD(FNUM,FLD,0)),"^",2) > > .S LABEL=$P($G(^DD(FNUM,FLD,0)),"^",1) > > .S STORE=$P($G(^DD(FNUM,FLD,0)),"^",4) > > .S NODE=$P(STORE,";",1) > > .Q:NODE="" ;computed field > > .S POS=$P(STORE,";",2) > > .S GREF=OROOT_IEN_","_NODE_")" > > .I POS?1.N D > > ..S IVAL=$P($G(@GREF),"^",POS) > > .I POS=0 D > > ..;multiple > > ..S SFILE=+TYPE > > ..S SROOT=OROOT_IEN_","_NODE_"," > > ..S CROOT=$E(SROOT,1,$L(SROOT)-1)_")" > > ;closed root > > ..S SREC=0 > > ..F S SREC=$O(@CROOT@(SREC)) Q:+SREC'>0 D > > ...;descend into subfile > > ...S VAL2=$$TRAVERSE(SFILE,SREC,SROOT) > > ...S VAL=$$STUFF(VAL,VAL2) > > .I POS?1"E"1.N1","1.N D > > ..;extract format > > ..S RANGE=$E(NODE,2,999) > > ..S FIRST=$P(NODE,",",1),LAST=$P(NODE,",",2) > > ..S IVAL=$E($G(@GREF),FIRST,LAST) > > I $G(IVAL)'="" S > > VAL=$$STUFF(VAL,IVAL_$C(13)_LABEL) > > Q VAL > > > > --- Kevin Toppenberg <[EMAIL PROTECTED]> wrote: > > > > > One of my goals for my site has been the ability > > to > > > get data back out of VistA in a painless manner. > > For > > > me this means XML. And I am rapidly nearing the > > point > > > where I plan on finishing this project. > > > > > > I have a couple of approaches I could take, and > > I'd > > > like input from the list > > > > > > 1. Write a custom program that dumps progress > > notes > > > (currently the only unique data being stored in > > our > > > VistA) in XML format. I think I could very easily > > do > > > this. > > > > > > 2. Writing an extension to fileman's data export > > > abilities, to include an option for XML. This > > would > > > be the better option in the long run, but probably > > > would be a good deal more difficult for me. I > > would > > > need to fully understand the current system to > > decide > > > how best to integrate. Usha recently posted about > > her > > > difficulty using the export functions. I don't > > think > > > anyone responded with an answer. > > > > > > What do export templates do? What file are they > > > stored in? > > > > > > Has anyone else already done this? Anything I > > should > > > know before I rush off to reinvent the wheel? > > > > > > Thanks > > > Kevin > > > > > > > > > > > > > > > __________________________________ > > > Discover Yahoo! > > > Find restaurants, movies, travel and more fun for > > the weekend. Check > > > it out! > > > http://discover.yahoo.com/weekend.html > > > > > > > > > > > > > > > ------------------------------------------------------- > > > This SF.Net email is sponsored by: NEC IT Guy > > Games. How far can you > > > shotput > > > a projector? How fast can you ride your desk chair > > down the office > > > luge track? > > > If you want to score the big prize, get to know > > the little guy. > > > Play to win an NEC 61" plasma display: > > http://www.necitguy.com/?r=20 > > > _______________________________________________ > > > Hardhats-members mailing list > > > Hardhats-members@lists.sourceforge.net > > > > > > https://lists.sourceforge.net/lists/listinfo/hardhats-members > > > > > > > > > "The most profound technologies are those that > > disappear." > > --Mark Weiser > > > > ==== > > Greg Woodhouse > > [EMAIL PROTECTED] > > [EMAIL PROTECTED] > > > > > > > > > > > > > > > ------------------------------------------------------- > > This SF.Net email is sponsored by: NEC IT Guy Games. > > How far can you shotput > > a projector? How fast can you ride your desk chair > > down the office luge track? > > If you want to score the big prize, get to know the > > little guy. > > Play to win an NEC 61" plasma display: > > http://www.necitguy.com/?r=20 > > _______________________________________________ > > Hardhats-members mailing list > > Hardhats-members@lists.sourceforge.net > > > https://lists.sourceforge.net/lists/listinfo/hardhats-members > > > > > > > __________________________________ > Discover Yahoo! > Use Yahoo! to plan a weekend, have fun online and more. Check it out! > > http://discover.yahoo.com/ > > > ------------------------------------------------------- > SF.Net email is sponsored by: Discover Easy Linux Migration > Strategies > from IBM. Find simple to follow Roadmaps, straightforward articles, > informative Webcasts and more! Get everything you need to get up to > speed, fast. http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click > _______________________________________________ > Hardhats-members mailing list > Hardhats-members@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/hardhats-members > "The most profound technologies are those that disappear." --Mark Weiser ==== Greg Woodhouse [EMAIL PROTECTED] [EMAIL PROTECTED] ------------------------------------------------------- SF.Net email is sponsored by: Discover Easy Linux Migration Strategies from IBM. Find simple to follow Roadmaps, straightforward articles, informative Webcasts and more! Get everything you need to get up to speed, fast. http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click _______________________________________________ Hardhats-members mailing list Hardhats-members@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/hardhats-members
