The problem you are having is because you are using the FDA array as your
input to Fileman. The VA Programming Standards required that if you pass
data to another API outside your assigned namespace, you must namespace your
input variables to avoid the very clashes you are seeing. If you do not
have an assigned namespace then you can use the ZZ namespace. Try the same
thing with ZZFDA() instead of FDA.
As I knew, the place holders in calling Fileman APIs do not need to be
sequential. They are just that, a string in a certain syntax to represent
an internal record number. The number you pass is important when evaluating
the return array from the FM API that contains the actual internal record
numbers created for those place holders.
Here are two examples. One just adds a NEW PERSON. The second adds a NEW
PERSON and also adds a new entry to a multiple in file 200.
VAH>S DIC(0)="",VFD(200,"+5,",.01)="DOE,JANE"
VAH>K ZZERR,ZZIEN,DIERR,VFD
VAH>S DIC(0)="",VFD(200,"+5,",.01)="DOE,JANE"
VAH>D UPDATE^DIE("E","VFD","ZZIEN","ZZERR") W ! ZW ZZERR,ZZIEN
ZZIEN(5)=2
VAH>D ^%G
Device: Right margin: 80=>
Global ^VA(200,2
^VA(200,2,0)=DOE,JANE
1)=^^^^^^3041213^10000000033
3.1)=1951
20)=^JANE DOE
---------------------------------------------------------------------------
VAH>S DIC(0)="",VFD(200,"+3,",.01)="DOE,JANE"
VAH>S VFD(200.005,"+97,+3,",.01)="USERDOE"
VAH>D UPDATE^DIE("E","VFD","ZZIEN","ZZERR") W ! ZW ZZERR,ZZIEN
ZZIEN(3)=2
ZZIEN(97)=1
VAH>D ^%G
Device: Right margin: 80=>
Global ^VA(200,2
^VA(200,2,0)=DOE,JANE
1)=^^^^^^3041213^10000000033
3.1)=1951
20)=^JANE DOE
^VA(200,2,500,0)=^200.005A^1^1
^VA(200,2,500,1,0)=USERDOE
^VA(200,2,500,"B","USERDOE",1)=
----- Original Message -----
From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, December 12, 2004 1:22 PM
Subject: Re: [Hardhats-members] Mysterious DIERR message
> Oops, "?2? should have been "?2" KT
>
> --- Kevin Toppenberg <[EMAIL PROTECTED]> wrote:
>
> > Well, I have gotten the process working. I'll post
> > here to give some conclusion in case someone reads
> > this later.
> >
> > The placemarkers "?+1" or "?2? etc. DO have to be
> > used
> > in sequential order. At least starting out with "2"
> > caused an error. This is different from what I (and
> > I
> > think most others) previously thought.
> >
> > Thanks all
> > Kevin
> >
> > --- Kevin Toppenberg <[EMAIL PROTECTED]> wrote:
> >
> > > Steven,
> > >
> > > I don't have Cache', so I can't try out the latest
> > > Cache.dat.
> > >
> > > It appears that in the code set that I have, there
> > > IS
> > > a difference between "+1," and "+999,". Below is
> > a
> > > screen log where the latter fails, while the
> > former
> > > succeeds.
> > >
> > > I haven't tried this with and without the S
> > > DIC(0)=""
> > > yet.
> > >
> > > What does the DT^DICRW do? It doesn't set up the
> > > environment, because I tried it upon first
> > entering
> > > GTM and UPDATE^DIE crashed. I then did D ^XUP,
> > > exited, and did the UPDATE and it worked fine.
> > >
> > > Thanks greatly for working with me on this.
> > >
> > > Kevin
> > >
> > >
> > > GTM>D DT^DICRW
> > > GTM>S FDA(200,"+999,",.01)="DOE,JANE"
> > > GTM>SET DIC(0)=""
> > > GTM>DO UPDATE^DIE("E","FDA","ZZIEN","ZZMSG")
> > >
> > > GTM>ZWR ZZIEN
> > > %GTM-E-UNDEF, Undefined local variable: ZZIEN
> > >
> > > GTM>ZWR ZZMSG
> > > ZZMSG("DIERR")="3^3"
> > > ZZMSG("DIERR",1)=744
> > > ZZMSG("DIERR",1,"PARAM",0)=3
> > > ZZMSG("DIERR",1,"PARAM","FIELD")=.01
> > > ZZMSG("DIERR",1,"PARAM","FILE")=20
> > > ZZMSG("DIERR",1,"PARAM","IENS")="?+1,"
> > > ZZMSG("DIERR",1,"TEXT",1)="Field FILE is part of
> > Key
> > > 'A', but the field has not been assigned a value."
> > > ZZMSG("DIERR",2)=744
> > > ZZMSG("DIERR",2,"PARAM",0)=3
> > > ZZMSG("DIERR",2,"PARAM","FIELD")=.02
> > > ZZMSG("DIERR",2,"PARAM","FILE")=20
> > > ZZMSG("DIERR",2,"PARAM","IENS")="?+1,"
> > > ZZMSG("DIERR",2,"TEXT",1)="Field FIELD is part of
> > > Key
> > > 'A', but the field has not been assigned a value."
> > > ZZMSG("DIERR",3)=744
> > > ZZMSG("DIERR",3,"PARAM",0)=3
> > > ZZMSG("DIERR",3,"PARAM","FIELD")=.03
> > > ZZMSG("DIERR",3,"PARAM","FILE")=20
> > > ZZMSG("DIERR",3,"PARAM","IENS")="?+1,"
> > > ZZMSG("DIERR",3,"TEXT",1)="Field IENS is part of
> > Key
> > > 'A', but the field has not been assigned a value."
> > > ZZMSG("DIERR","E",744,1)=""
> > > ZZMSG("DIERR","E",744,2)=""
> > > ZZMSG("DIERR","E",744,3)=""
> > >
> > > ... Second Try ...
> > >
> > >
> > > GTM>K FDA
> > > GTM>K ZZMSG
> > >
> > > GTM>SET FDA(200,"+1,",.01)="DOE,JANE"
> > > GTM>ZWR FDA
> > > FDA(200,"+1,",.01)="DOE,JANE"
> > >
> > > GTM>DO UPDATE^DIE("E","FDA","ZZIEN","ZZMSG")
> > > GTM>ZWR ZZMSG
> > > %GTM-E-UNDEF, Undefined local variable: ZZMSG
> > > GTM>ZWR ZZIEN
> > > ZZIEN(1)=32
> > >
> > > GTM>
> > >
> > >
> > >
> > >
> > >
> > > --- steven mcphelan <[EMAIL PROTECTED]>
> > > wrote:
> > >
> > > > 1. +1 or +2 does not matter. All the number
> > > > indicates is a place holder for IENS. It could
> > be
> > > > +999999. Each place holder must be internally
> > > > consistent and unique. Internally consistent
> > > means
> > > > that every place you use a place holder in a
> > > single
> > > > Fileman DBS call must use the same place holder
> > > > value when referencing the same place holder
> > that
> > > is
> > > > substituting for an IENS.
> > > >
> > > > 2. Your problem is not related to the S
> > DIC(0)=""
> > > > problem that Greg responded to another a email
> > > > thread. I may have mixed email threads because
> > > when
> > > > I wrote my response I thought that Greg had
> > > > responded to this thread earlier. But he
> > > responded
> > > > on one of your other email threads. Sorry for
> > > that
> > > > confusion.
> > > >
> > > > 3. When you get the latest version of Cache.dat
> > > from
> > > > FOIA VistA you are getting a fully patched
> > system
> > > up
> > > > to the time that the Cache.dat was created. I
> > do
> > > > not know what system you are using, how out of
> > rev
> > > > it is, or how it was created since you are using
> > a
> > > > GT.M implementation and not a Cache
> > > implementation.
> > > > My system is Cache and has had all the VistA
> > > patches
> > > > installed. If you take the latest Cache.zip
> > from
> > > > the VA FTP site and run the following on that
> > > cache
> > > > file, do you still get errors?
> > > >
> > > > VAH>D DT^DICRW
> > > > VAH>S FDA(200,"+9999,",.01)="DOE,JANE",DIC(0)=""
> > > > VAH>D UPDATE^DIE("E","FDA","ZZIEN","ZZERR")
> > > > VAH>W !,DIERR,! ZW ZZERR
> > > >
> > > > If Jane Doe gets added with no problems, then
> > > > obviously there is something wrong with the
> > > > configuration you are using. You do not have
> > one
> > > or
> > > > more patches or something did not get set up
> > right
> > > > on the conversion to GT.M or something.
> > > > ----- Original Message -----
> > > > From: Kevin Toppenberg
> > > > To: [EMAIL PROTECTED]
> > > > Sent: Saturday, December 11, 2004 7:17 AM
> > > > Subject: Re: [Hardhats-members] Mysterious
> > DIERR
> > > > message
> > > >
> > > >
> > > > Steven,
> > > >
> > > > I'm not completely clear on what you are
> > saying.
> > > >
> > > > 1. Is it a problem that I did "+2," instead of
> > > > "+1,". You said that you got the same error as
> > I
> > > > did--even though your system is fully patched.
> > > >
> > > > 2. Is the problem fixed by setting set
> > DIC(0)=""
> > > > before the call? I'll try this myself, but
> > > haven't
> > > > had a chance yet.
> > > >
> > > > 3. Regarding patches, I've never played with
> > the
> > > > patching system. I just installed the OpenVistA
> > > > from the sourceforge website. But it seems that
> > > you
> > > > also got the errors on your fully patched
> > system.
> > > > Do I need to try to get fully patched or not?
> > > >
> >
> === message truncated ===
>
>
>
>
> __________________________________
> Do you Yahoo!?
> Jazz up your holiday email with celebrity designs. Learn more.
> http://celebrity.mail.yahoo.com
>
>
> -------------------------------------------------------
> SF email is sponsored by - The IT Product Guide
> Read honest & candid reviews on hundreds of IT Products from real users.
> Discover which products truly live up to the hype. Start reading now.
> http://productguide.itmanagersjournal.com/
> _______________________________________________
> Hardhats-members mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://productguide.itmanagersjournal.com/
_______________________________________________
Hardhats-members mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
