Routine: XUTMSYNC

Information

XUTMSYNC ;ISCSF/RWF - SYNC TASK MANAGMENT ;07/13/94 15:57

Name	Comments	DBIA/ICR reference
A	;Lookup and clear/restart a sync queue.
A1	;LOOP TAG AFTER LIST TASKS
LIST	; List tasks related to Sync-Pair
START	;Start, clear and start next
STARTQ	;Start end tag
DELCLR	; Delete Task-Sync pair and sync tasks queue
PAGE	; Check for task list display new page needed
EXIT	; Exit

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,$G(^%ZISL(14.8,XUDA,0)),!,$G(^(1)) Line Location: A1+1
Function Call: WRITE	Prompt: @IOF,!,"Task-Sync pair task list...",! Line Location: LIST+4
Function Call: WRITE	Prompt: !,SEP Line Location: LIST+10
Function Call: WRITE	Prompt: !,SEP Line Location: LIST+14
Function Call: WRITE	Prompt: @IOF,!,"Task-Sync pair task(s) status...",! Line Location: START+3
Function Call: WRITE	Prompt: !,TASK_" - Currently running." Line Location: START+8
Function Call: WRITE	Prompt: !!,"There are no waiting tasks to start." Line Location: START+11
Function Call: WRITE	Prompt: !!,TASK_" - Next sync task to be started.",! Line Location: START+12
Function Call: WRITE	Prompt: @IOF,"Dequeuing/Unscheduling waiting task(s)..." Line Location: DELCLR+3
Function Call: WRITE	Prompt: !!,$S(CNT>0:DQLST,1:"No waiting tasks for this Task-Sync pair") Line Location: DELCLR+8
Function Call: WRITE	Prompt: !!,"Checking for running task(s)...",! Line Location: DELCLR+10
Function Call: WRITE	Prompt: !,TASK_" - "_$P($$ASKSTOP^%ZTLOAD(TASK),U,2) Line Location: DELCLR+15
Function Call: WRITE	Prompt: !!,"Deallocating and removing Task-Sync pair..." Line Location: DELCLR+18
Function Call: WRITE	Prompt: !!!,XUFLAG_" Task-Sync removed.",! Line Location: DELCLR+21
Function Call: WRITE	Prompt: @IOF,!,"Task-Sync pair task list...",! Line Location: PAGE+4