Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XUTMSYNC

XUTMSYNC.m

Go to the documentation of this file.
  1. XUTMSYNC ;ISCSF/RWF - SYNC TASK MANAGMENT ;07/13/94 15:57
  1. ;;8.0;KERNEL;**163**;Jul 10, 1995
  1. A ;Lookup and clear/restart a sync queue.
  1. ;N DIC,DIR,XUFLAG,XUIO,XUDA,X,Y
  1. S DIC="^%ZISL(14.8,",DIC(0)="AEMQ" D ^DIC G:Y'>0 EXIT
  1. S XUDA=+Y,XUIO=$P($P(Y,"^",2),"~"),XUFLAG=$P($P(Y,"^",2),"~",2)
  1. ;QUICK HACK TO SHOW DATA
  1. W !,^%ZISL(14.8,XUDA,0),!,$G(^(1))
  1. S DIR(0)="S^Z:ZAP;S:START NEXT;Q:QUIT"
  1. S DIR("A")="What to do with this one:" D ^DIR G:Y="Q" A
  1. G A:Y="Q",ZAP:Y="Z",START:Y="S",EXIT
  1. START ;START, CLEAR AND START NEXT
  1. N IOT S IOT="RES"
  1. S X=$$SYNCFLG^%ZTMS2("D",XUIO,XUFLAG)
  1. D SCHSYNC^%ZTMS2(XUFLAG,XUIO)
  1. W !,"OK"
  1. Q
  1. ZAP ;CLEAR SYNC FLAG AND DELETE QUEUE.
  1. N IOT S IOT="RES"
  1. K ^%ZTSCH("SYNC",XUFLAG,XUIO)
  1. S X=$$SYNCFLG^%ZTMS2("D",XUIO,XUFLAG)
  1. W !,"ZAPPED"
  1. Q
  1. EXIT Q