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
> > Hardhats-members@lists.sourceforge.net
> >
>
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
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members