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