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