This 8925 seems to be the file giving me trouble "edit template field" in a Cache system. Is there any connection with this problem? My problem seems to be primarily a permission problem. I have some difficulty understanding how that file works.
thurman > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:hardhats- > [EMAIL PROTECTED] On Behalf Of Kevin Toppenberg > Sent: Tuesday, June 14, 2005 11:44 AM > To: hardhats-members@lists.sourceforge.net > Subject: Re: [Hardhats-members] XML data export > > When I look at file 8925, field 2 is a WP field, but I > don't see the W or WL symbols. Only a node > specification of TEXT. And in instances of processing > the TEXT node, when I tried to print WP, it was 0 (as > expected per the code). > > So I don't see that the W symbol is being used. > > Kevin > > > GTM>zwr ^DD(8925,2,*) > ^DD(8925,2,0)="REPORT TEXT^8925.02^^TEXT;0" > ^DD(8925,2,21,0)="^^1^1^2961217^^" > ^DD(8925,2,21,1,0)="This is a word processing field > that contains the report tex > t." > > > GTM>zwr ^DD(8925,.01,0) > ^DD(8925,.01,0)="DOCUMENT > TYPE^RP8925.1'O^TIU(8925.1,^0;1^Q" > > > > --- Greg Woodhouse <[EMAIL PROTECTED]> > wrote: > > > 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 > > > === message truncated === > > > > > __________________________________ > Discover Yahoo! > Have fun online with music videos, cool games, IM and more. Check it out! > http://discover.yahoo.com/online.html > > > ------------------------------------------------------- > 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 ------------------------------------------------------- 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
