%ZTSCH(TASK Global    ICR (3520)

CLINICAL INFO RESOURCE NETWORK - Master Patient Index/Patient
Demographics (MPI/PD) will make our RGMTRUN utility routine
class I at all VA facilities.  We will create a remote query tool
on the Master Patient Index (MPI) to query a site for the currently
running task information.

The following code in RGMTRUN examines the currently running tasks in
the SCHEDULE file.  For each task found, it examines the ROUTINE field.
If the ROUTINE field contains "HL" (Health Level Seven), then for
that task, EN^XUTMTP(TASK) is called to display the task information.

S TASK=0 F  S TASK=$O(^%ZTSCH("TASK",TASK)) Q:'TASK  Q:QFLG  D
.S ROU=$P(^%ZTSCH("TASK",TASK),"^",2)
.I ROU["HL" D EN^XUTMTP(TASK)

This IA is for direct global read of the ^%ZTSCH("TASK",TASK)
node of the SCHEDULE file and for direct global read, $P(^%ZTSCH(
"TASK",TASK),"^",2) for pieces 2 and 4, ROUTINE and OPTION NAME.