Fil, I could do that, but then I'd have to test myself if the user is trying to upload to a standard field, or a WP field. It looks to me like the standard FILE^DIE is making this test (and as such I could copy that code for my own use). I wish it was working properly.
But if I can't I use this function as a work-around. Thanks Kevin. P.S., do you think it IS a bug? --- "Beza, Fil" <[EMAIL PROTECTED]> wrote: > Why not try > > WP^DIE( ): Word Processing Filer > This procedure files a single word processing field. > > > Format > WP^DIE(FILE,IENS,FIELD,FLAGS,wp_root,msg_root) > > > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] > On Behalf Of Kevin > Toppenberg > Sent: Monday, October 04, 2004 3:17 PM > To: Hardhats Sourceforge > Subject: [Hardhats-members] ?? FILE^DIE bug ?? > > I am having an unusual error when using FILE^DIE to > upload a value into > a word processing field. The execution just drops > out and exits back to > the command line when I call the function. In these > situations, it is > more likely my problem than the API's, but I can't > figure out the issue. > Here is my input data: > > FDA structure > +-8989.3 > | > +--"1," > | > +--".01"="TMG.TMGDOMAIN.COM" > | > +--"240"="Welcome to OpenVistA EMR" > > Flags="KE" > MsgG=(not yet defined) > > I call FILE^DIE(Flags,"FDA","Msg") which results in > the following series > of calls: > --> FILEX^DIEF > --> D DRIVER > --> D PUTDATA^DIEF1 > --> D PUTWP^DIEFW(DIEFFLAG,DIEFNVAL,DIEFNODE) > in this case: ==> D PUTWP^DIEFW("KE","welcome to > OpenVistA EMR > System","^XTV(8989.3,1,""INTRO"")") > I then come to a consistent crash at the following > point (Note the '==>' > on the 3rd line): > ----------------------------------------------- > PUTWP(DIEFWPFL,DIEFTSRC,DIEFNODE) ; > N BEGIN > I "@"[DIEFTSRC K @DIEFNODE Q > ==> I '($D(@DIEFTSRC)\10) D > BLD^DIALOG(305,DIEFTSRC,DIEFTSRC) Q > I $G(DIEFWPFL)'["A" S BEGIN=1 K @DIEFNODE > E S BEGIN=$$NUMLNS(DIEFNODE)+1 K:BEGIN=1 @DIEFNODE > I $D(@DIEFTSRC@($O(@DIEFTSRC@(0)),0))#2 S > DIEFWPFL=$G(DIEFWPFL)_"Z" > N LINECNT,INLINE S INLINE=0 > F LINECNT=BEGIN:1 S INLINE=$O(@DIEFTSRC@(INLINE)) > Q:INLINE'=+$P(INLINE,"E") D > . I $G(DIEFWPFL)'["Z" S > @DIEFNODE@(LINECNT,0)=$G(@DIEFTSRC@(INLINE)) > . E S > @DIEFNODE@(LINECNT,0)=$G(@DIEFTSRC@(INLINE,0)) > S LINECNT=LINECNT-1 > S @DIEFNODE@(0)=U_U_LINECNT_U_LINECNT_U_DT > Q > ---------------------------------------------- > > What's strange here is that DIEFTSRC="Welcome to > OpenVistA EMR System" > so @DIEFTSRC has no meaning. > > Notice also that the calling parameters are: > > D PUTWP^DIEFW(DIEFFLAG,DIEFNVAL,DIEFNODE) ... found > in DIEF1.m > > but the PUTWP function expects these parameters: > > PUTWP(DIEFWPFL,DIEFTSRC,DIEFNODE) .. declared in > DIEFW.m > > It seems to me that the middle parameter (in my case > the string > "Welcome...") is passed as a string input value, but > in PUTWP, it is > being used as a variable name (SRC)... causing a > crash. > > The exact cause of the crash is this (As determined > from the immediate > execution window in the Serenji > debugger) > write ($D(@DIEFTSRC)\10) > %GTM-E-INDEXTRACHARS, Indirection string contains > extra trailing > characters write DIEFTSRC welcome to OpenVistA EMR > System > > Any thoughts? This seems like a bug to me. > > Thanks > Kevin > > > > > > _______________________________ > Do you Yahoo!? > Declare Yourself - Register online to vote today! > http://vote.yahoo.com > > > ------------------------------------------------------- > This SF.net email is sponsored by: IT Product Guide > on ITManagersJournal > Use IT products in your business? Tell us what you > think of them. Give > us Your Opinions, Get Free ThinkGeek Gift > Certificates! Click to find > out more > http://productguide.itmanagersjournal.com/guidepromo.tmpl > _______________________________________________ > Hardhats-members mailing list > [EMAIL PROTECTED] > https://lists.sourceforge.net/lists/listinfo/hardhats-members > > > ------------------------------------------------------- > This SF.net email is sponsored by: IT Product Guide > on ITManagersJournal > Use IT products in your business? Tell us what you > think of them. Give us > Your Opinions, Get Free ThinkGeek Gift Certificates! > Click to find out more > http://productguide.itmanagersjournal.com/guidepromo.tmpl > _______________________________________________ > Hardhats-members mailing list > [EMAIL PROTECTED] > https://lists.sourceforge.net/lists/listinfo/hardhats-members > __________________________________ Do you Yahoo!? New and Improved Yahoo! Mail - 100MB free storage! http://promotions.yahoo.com/new_mail ------------------------------------------------------- This SF.net email is sponsored by: IT Product Guide on ITManagersJournal Use IT products in your business? Tell us what you think of them. Give us Your Opinions, Get Free ThinkGeek Gift Certificates! Click to find out more http://productguide.itmanagersjournal.com/guidepromo.tmpl _______________________________________________ Hardhats-members mailing list [EMAIL PROTECTED] https://lists.sourceforge.net/lists/listinfo/hardhats-members
