Steven,
Thanks for getting back with me. I kind of feel like
I have been wrestling an alligator, and the battle has
moved on since I wrote this original email. I'm not
sure I could get to that exact point to show you the
info you requested. But if it happens again, I'll get
all the data.
I took Nancy's advice and randown my database. I also
put an error trap around the call, and now I am not
getting the drop outs that I was before.
The call to UPDATE^DIE is still not working like I
think it should, but I think my problem is that I am
trying to add a file and a subfile at the same time.
I am breaking this down into multiple calls, and am
making better progress.
Thanks again for your help.... I may need more soon,
but I'll write back.
Kevin
--- steven mcphelan <[EMAIL PROTECTED]> wrote:
> We need to see what is in the Msg() array.
> What is the value of
> $O(^VA(200,"B","THWING,PHILIP",0))
> Instead of running the Fileman Enter/Edit option,
> what happens if you try
> the `89 lookup when GTM>D Q^DI
>
> ----- Original Message -----
> From: "Kevin Toppenberg" <[EMAIL PROTECTED]>
> To: "Hardhats Sourceforge"
> <[EMAIL PROTECTED]>
> Sent: Friday, November 26, 2004 10:39 AM
> Subject: [Hardhats-members] I'm frustrated with the
> database API
>
>
> > I'm frustrated. It should not be as hard as it
> seems
> > to be to get simple data into the database.
> >
> > I am trying to file a set of data. I first search
> for
> > the record with FIND^DIC to ensure that the record
> > doesn't already exist. I then create my FDA and
> call
> > UPDATE^DIE. It crashes in this call and drops me
> back
> > to the GTM> prompt.
> >
> > Here is a debug log from my program that show my
> FDA,
> > and the fact that it aborts during the UPDATE^DIE
> call
> >
> > . . . . . } //SetupFDA
> > . . . . . Here is the FDA to pass to UPDATE^DIE
> > . . . . . FDA(*)
> > . . . . . }~200
> > . . . . . | }~?+1,
> > . . . . . | }~.01 = THWING,PHILIP
> > . . . . . | }~1 = PT
> > . . . . . | }~7 = NO
> > . . . . . | }~7.2 = YES
> > . . . . . | }~11.2 = TODAY
> > . . . . . | }~29 = FAMILY PRACTICE
> > . . . . . |
> > . . . . . |
> > . . . . . }~200.01
> > . . . . . | }~?+3,?+1,
> > . . . . . | }~.01 = UCI
> > . . . . . |
> > . . . . . |
> > . . . . . }~200.02
> > . . . . . }~?+2,?+1,
> > . . . . . }~.01 = Medical Group of Greeneville
> > . . . . . }~1 = YES
> > . . . . .
> > . . . . .
> > . . . . .
> > . . . . . UPDATE^DIE {
> > . . . . . . Flags=E
> >
> > Here is the code that creates the above log
> >
> > -snip-
> > do DebugMsg^TMGDEBUG(DBIndent,"Here is the FDA to
> pass
> > to UPDATE^DIE")
> > if DEBUG do ArrayDump^TMGDEBUG("FDA")
> >
> > do DebugEntry^TMGDEBUG(.DBIndent,"UPDATE^DIE")
> > do DebugMsg^TMGDEBUG(DBIndent,"Flags=",Flags)
> >
> > do UPDATE^DIE(Flags,"FDA","RecNum","Msg")
> > do DebugExit^TMGDEBUG(.DBIndent,"UPDATE^DIE")
> > -snip-
> >
> > Here is the FDA structure that I can dump out as
> soon
> > as I get to the GTM> prompt:
> >
> > GTM>zwr FDA
> > FDA(200,"89,",20.2)="PHILIP THWING"
> > FDA(200,"?+1,",.01)="THWING,PHILIP"
> > FDA(200,"?+1,",1)="PT"
> > FDA(200,"?+1,",7)="NO"
> > FDA(200,"?+1,",7.2)="YES"
> > FDA(200,"?+1,",11.2)="TODAY"
> > FDA(200,"?+1,",29)="FAMILY PRACTICE"
> > FDA(200.01,"?+3,?+1,",.01)="UCI"
> > FDA(200.02,"?+2,?+1,",.01)="Medical Group of
> > Greeneville"
> > FDA(200.02,"?+2,?+1,",1)="YES"
> >
> >
> > Notice that there is an extra line here compared
> to
> > what I originally passed UPDATE^DIE. It is the
> first
> > line. I appears that this is part of its work in
> > progress, and that it was trying to add to IEN=89
> >
> > So I look at record 89 and find the following
> >
> > GTM>zwr ^VA(200,89,*)
> > ^VA(200,89,0)="THWING,PHILIP"
> > ^VA(200,89,1)="^^^^^^3041126^1"
> > ^VA(200,89,20)="^PHILIP THWING"
> >
> > But somehow this is an imcomplete record that
> fileman
> > can't show, as seen below:
> >
> > GTM>d ^XUP
> >
> > Setting up programmer environment
> > Terminal Type set to: C-VT320
> >
> > Select OPTION NAME: diedit Enter or Edit
> File
> > Entries
> > Enter or Edit File Entries
> >
> > INPUT TO WHAT FILE: NEW PERSON//
> > EDIT WHICH FIELD: ALL//
> >
> >
> > Select NEW PERSON NAME: `89 ??
> > Select NEW PERSON NAME: thw ??
> >
> > Select NEW PERSON NAME: THWING ??
> >
> > Select NEW PERSON NAME: PHIL ??
> >
> > Select NEW PERSON NAME:
> >
> > --------
> >
> > I will add that I have been trying this over and
> over,
> > with various permutations. Ocassionally the
> > UPDATE^DIE won't die, but will return an error
> that
> > goes something like this:
> > Field FILE is part of index A, but value has not
> been
> > entered. The error message array that UPDATE^DIE
> has
> > three componants with this same message. Each
> entry
> > lists the offending fields: .01, .02,.03 (as I
> > recall).
> >
> > Anyway, I've spent hours on this and it's getting
> me
> > down.... If anyone has any ideas, I'd be very
> > appreciativce.
> >
> > Thanks
> >
> > Kevin
> >
> >
> >
> >
> >
> > __________________________________
> > Do you Yahoo!?
> > Meet the all-new My Yahoo! - Try it today!
> > http://my.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
>
=== message truncated ===
__________________________________
Do you Yahoo!?
Yahoo! Mail - You care about security. So do we.
http://promotions.yahoo.com/new_mail
-------------------------------------------------------
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
