| 1 | XUTMSYNC ;ISCSF/RWF - SYNC TASK MANAGMENT ;07/13/94 15:57
|
|---|
| 2 | ;;8.0;KERNEL;**163**;Jul 10, 1995
|
|---|
| 3 | A ;Lookup and clear/restart a sync queue.
|
|---|
| 4 | ;N DIC,DIR,XUFLAG,XUIO,XUDA,X,Y
|
|---|
| 5 | S DIC="^%ZISL(14.8,",DIC(0)="AEMQ" D ^DIC G:Y'>0 EXIT
|
|---|
| 6 | S XUDA=+Y,XUIO=$P($P(Y,"^",2),"~"),XUFLAG=$P($P(Y,"^",2),"~",2)
|
|---|
| 7 | ;QUICK HACK TO SHOW DATA
|
|---|
| 8 | W !,^%ZISL(14.8,XUDA,0),!,$G(^(1))
|
|---|
| 9 | S DIR(0)="S^Z:ZAP;S:START NEXT;Q:QUIT"
|
|---|
| 10 | S DIR("A")="What to do with this one:" D ^DIR G:Y="Q" A
|
|---|
| 11 | G A:Y="Q",ZAP:Y="Z",START:Y="S",EXIT
|
|---|
| 12 | START ;START, CLEAR AND START NEXT
|
|---|
| 13 | N IOT S IOT="RES"
|
|---|
| 14 | S X=$$SYNCFLG^%ZTMS2("D",XUIO,XUFLAG)
|
|---|
| 15 | D SCHSYNC^%ZTMS2(XUFLAG,XUIO)
|
|---|
| 16 | W !,"OK"
|
|---|
| 17 | Q
|
|---|
| 18 | ZAP ;CLEAR SYNC FLAG AND DELETE QUEUE.
|
|---|
| 19 | N IOT S IOT="RES"
|
|---|
| 20 | K ^%ZTSCH("SYNC",XUFLAG,XUIO)
|
|---|
| 21 | S X=$$SYNCFLG^%ZTMS2("D",XUIO,XUFLAG)
|
|---|
| 22 | W !,"ZAPPED"
|
|---|
| 23 | Q
|
|---|
| 24 | EXIT Q
|
|---|
