source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMSYNC.m@ 1211

Last change on this file since 1211 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 775 bytes
Line 
1XUTMSYNC ;ISCSF/RWF - SYNC TASK MANAGMENT ;07/13/94 15:57
2 ;;8.0;KERNEL;**163**;Jul 10, 1995
3A ;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
12START ;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
18ZAP ;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
24EXIT Q
Note: See TracBrowser for help on using the repository browser.