Thanks,
But don't be too impressed. I don't have a clue what
"SCR" nodes do. I was just looking for code that
referenced globals without a $get() or $data() guard.
Kevin
--- Marianne Susaanti Follingstad
<[EMAIL PROTECTED]> wrote:
> This one entry isn't quite the same situation, since
> 3.5 is the file found at
> ^%ZIS(1, so I don't believe that it would be
> necessary to change the node. FileMan
> is definitely smart enough to know not to try to
> access the file entry it had just
> deleted. The one that caused you problems was in a
> file referenced by the entry you
> were deleting which in turn was going back to try to
> use the original entry that was
> just deleted.
>
> I'm impressed that you were so prompt in reviewing
> the "SCR" nodes...
>
> Marianne
>
> Kevin Toppenberg wrote:
>
> > Marianne,
> >
> > I wrote this short code to show all the "SCR"
> nodes
> >
> > ShowSCR
> > new I
> > set I=$order(^DD(""))
> > for do quit:(I="")
> > . if $data(^DD(I,0,"SCR")) zwr
> ^DD(I,0,"SCR")
> > . set I=$order(^DD(I))
> >
> > I then looked at them all, and they all seemed ok
> > except for this one:
> >
> > ^DD(3.5,0,"SCR")="I 1 Q:$G(D)'=""LSYN""
> > Q:'$D(^%ZOSF(""VOL"")) I
> >
>
$P(^%ZIS(1,Y,0),U,9)=^%ZOSF(""VOL"")!($P(^%ZIS(1,Y,0),U,9)="""")"
> >
> > It looks like that ^%ZIS ought to be in a $G().
> >
> > Think I should change it?
> >
> > Kevin
> >
> > --- Marianne Susaanti Follingstad
> > <[EMAIL PROTECTED]> wrote:
> >
> > > It should be fine to put the $G in there. There
> > > can't be any unforeseen
> > > consequences to having it there. In fact, as
> you
> > > found, there are unforeseen
> > > consequences to NOT having it there. As I
> > > mentioned, it would be good to have
> > > someone review these SCR nodes to see if there
> are
> > > any other potential problems.
> > >
> > > Marianne Follingstad
> > > 301 251 0139
> > >
> > > Kevin Toppenberg wrote:
> > >
> > > > Marianne,
> > > >
> > > > Thanks for your help.
> > > >
> > > > Following your instructions:
> > > > GTM>zwr ^AUPNPAT(0)
> > > >
> ^AUPNPAT(0)="PATIENT/IHS^9000001sIP^14861^1510"
> > > >
> > > > GTM>zwr ^DD(9000001,0,"SCR")
> > > > ^DD(9000001,0,"SCR")="X ""I
> '$P(^DPT(Y,0),U,19)""
> > > W
> > > > $E(^AUPNPAT(Y,0),0)"
> > > >
> > > >
> > > > So you are right. This is the source of the
> line
> > > that
> > > > caused the drop-out.
> > > >
> > > > I had suggested: It looks like the "^DPT(Y,0)"
> > > ought
> > > > to be "$G(^DPT(Y,0))"
> > > >
> > > > So I could put that change here. But I'm note
> > > sure if
> > > > that would have other unforseen consequenses.
> > > >
> > > > Is this really a 'bug'? Or is it one of those
> > > funny
> > > > database-needs-to-be-rundown type situations?
> > > >
> > > > Thanks
> > > > Kevin
> > > >
> > > > --- Marianne Susaanti Follingstad
> > > > <[EMAIL PROTECTED]> wrote:
> > > >
> > > > > A quick look at the DI* routines I have
> (which
> > > are
> > > > > old), leads me to suggest that
> > > > > you look at the DD for the file defining
> > > ^AUPNPAT.
> > > > > Look at ^AUPNPAT(0) to find the
> > > > > file number and then look at ^DD(file
> > > > > number,0,"SCR") and I'm guessing you'll find
> > > > > the culprit there as "I
> '$P(^DPT(Y,0),U,19)".
> > > If
> > > > > that is the problem then someone
> > > > > should review the "SCR" nodes to ensure
> there
> > > are no
> > > > > similar problems lurking...
> > > > >
> > > > > Of course the other problem is how to
> restart
> > > the
> > > > > process, and unfortunately I don't
> > > > > have any suggestions on that issue.
> > > > >
> > > > > Marianne Follingstad
> > > > > 301 251 0139
> > > > >
> > > > > Kevin Toppenberg wrote:
> > > > >
> > > > > > I had two patients that were
> duplicates--i.e.
> > > the
> > > > > same
> > > > > > person, but with two different married
> names.
> > > > > >
> > > > > > So I deleted one, and told fileman to
> change
> > > all
> > > > > > pointers from the former to the later.
> > > > > >
> > > > > > (I had to take off a guard to do this)
> > > > > >
> > > > > > It then scans through all the appropriate
> > > places
> > > > > and
> > > > > > changes the pointers.
> > > > > >
> > > > > > But then it drops out after about 20-30
> files.
> > > I
> > > > > > never knew what was happening before, but
> I
> > > have
> > > > > > recently studied a bit on GTM debugging
> > > > > techniques,
> > > > > > and here is what I have come up with:
> > > > > >
> > > > > > Screen log:
> > > > > >
> > > > > > ROES ELIGIBILITY CONFIRMATION entries
> whose
> > > > > 'PATIENT'
> > > > > > pointers have been changed
> > > > > >
> > > MAR
> > > > > > 29,2005 20:12 PAGE 1
> > > > > >
> > > > >
> > > >
> > >
> >
>
--------------------------------------------------------------------------------
> > > > > >
> > > > > > *** NO RECORDS TO PRINT ***
> > > > > > GTM>w $ECODE <---- notice
> > > > > drop-out
> > > > > > ,M7,Z150372994,
> > > > > > GTM>w $ZSTATUS
> > > > > > 150372994,SCR+1^DIO2,%GTM-E-GVUNDEF,
> Global
> > > > > variable
> > > > > > undefined: ^DPT(75002,0)
> > > > > > GTM>zprint SCR+1^DIO2
> > > > > > X DIS(0) Q:'$T G PASS:'$D(DIS(1))
> > > > > >
> > > > > > GTM>w DIS(0)
> > > > > > S Y=D0 I $D(^AUPNPAT(Y,0)) X "I
> > > > > '$P(^DPT(Y,0),U,19)" W
> > > > > > $E(^AUPNPAT(Y,0),0)
> > > > > > GTM>w Y
> > > > > > 75002
> > > > > > GTM>
> > > > > >
> > > > > > It looks like the "^DPT(Y,0)" ought to be
> > > > > > "$G(^DPT(Y,0))"
> > > > > >
>
=== message truncated ===
__________________________________
Yahoo! Messenger
Show us what our next emoticon should look like. Join the fun.
http://www.advision.webevents.yahoo.com/emoticontest
-------------------------------------------------------
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://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
_______________________________________________
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members
