XUTMTP Routine    ICR (3521)

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 allows MPI/PD to call the EN entry point in routine XUTMTP.