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

PXRMMFS.m

Go to the documentation of this file.
  1. PXRMMFS ;SLC/PKR - Master File Server event handling routines. ;Aug 16, 2021@14:21:40
  1. ;;2.0;CLINICAL REMINDERS;**65**;Feb 04, 2005;Build 438
  1. ;==============================
  1. MFSEVENT ;Handle Master File Server events. This routine is
  1. ;attached to the XUMF MFS EVENTS protocol through the PXRM MFS EVENT
  1. ;protocol.
  1. N EVENT,SUBJECT
  1. S EVENT="PXRM MFS EVENT"_$$NOW^XLFDT
  1. K ^XTMP(EVENT)
  1. S ^XTMP(EVENT,0)=$$FMADD^XLFDT(DT,3)_U_DT
  1. M ^XTMP(EVENT)=^TMP("XUMF EVENT",$J)
  1. S SUBJECT="Clinical Reminders NTRT MFS protocol event"
  1. ;Task off the work and return to the protocol.
  1. K ZTSAVE
  1. S ZTSAVE("EVENT")=""
  1. S ZTSAVE("SUBJECT")=""
  1. S ZTRTN="EVDRVR^PXRMSTS"
  1. S ZTDESC="Clinical Reminders XUMF MFS event handler"
  1. S ZTDTH=$H
  1. S ZTIO=""
  1. D ^%ZTLOAD
  1. Q
  1. ;