| Code |
S VAL=$O(^ORD(101.44,"B","ORWDSET "_DGNM,0))
I 'VAL D
. N UPDTIME,ATTEMPT
. S UPDTIME=$G(^ORD(101.43,"AH","S."_DGNM)),ATTEMPT=0
. I UPDTIME="" S UPDTIME=$H,^ORD(101.43,"AH","S."_DGNM)=UPDTIME
. D FVBLD
. S VAL=$O(^ORD(101.44,"B","ORWDSET "_DGNM,0))
I ($P(^ORD(101.44,+VAL,0),U,6)'=$G(^ORD(101.43,"AH","S."_DGNM))) D
. ; -- see if a task is already queued to rebuild this
. L +^XTMP("ORWDSET "_DGNM):2 E Q
. N ZTSK S ZTSK=+$G(^XTMP("ORWDSET "_DGNM,"TASK"))
. I ZTSK D ISQED^%ZTLOAD S ZTSK=+ZTSK(0)
. I ZTSK L -^XTMP("ORWDSET "_DGNM) Q
. ; -- create a task to rebuild the list
. D FVBLDQ(DGNM)
. L -^XTMP("ORWDSET "_DGNM)
S $P(VAL,U,2)=$P($G(^ORD(101.44,+VAL,20,0)),U,4)
|