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))"
> > > >
> > > > Kevin
> > > >
> > > >
> __________________________________________________
> > > > Do You Yahoo!?
> > > > Tired of spam? Yahoo! Mail has the best spam
> > > protection around
> > > > http://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://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
> > > >
> _______________________________________________
> > > > Hardhats-members mailing list
> > > > [email protected]
> > > >
> > >
> >
>
https://lists.sourceforge.net/lists/listinfo/hardhats-members
> > >
> >
> >
> > __________________________________
> > Do you Yahoo!?
> > Yahoo! Personals - Better first dates. More second
> dates.
> > http://personals.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://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
> > _______________________________________________
> > Hardhats-members mailing list
> > [email protected]
> >
>
https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
__________________________________
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
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
