PXRMMFS ;SLC/PKR - Master File Server event handling routines. ;Aug 16, 2021@14:21:40
;;2.0;CLINICAL REMINDERS;**65**;Feb 04, 2005;Build 438
;==============================
MFSEVENT ;Handle Master File Server events. This routine is
;attached to the XUMF MFS EVENTS protocol through the PXRM MFS EVENT
;protocol.
N EVENT,SUBJECT
S EVENT="PXRM MFS EVENT"_$$NOW^XLFDT
K ^XTMP(EVENT)
S ^XTMP(EVENT,0)=$$FMADD^XLFDT(DT,3)_U_DT
M ^XTMP(EVENT)=^TMP("XUMF EVENT",$J)
S SUBJECT="Clinical Reminders NTRT MFS protocol event"
;Task off the work and return to the protocol.
K ZTSAVE
S ZTSAVE("EVENT")=""
S ZTSAVE("SUBJECT")=""
S ZTRTN="EVDRVR^PXRMSTS"
S ZTDESC="Clinical Reminders XUMF MFS event handler"
S ZTDTH=$H
S ZTIO=""
D ^%ZTLOAD
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMMFS 773 printed Dec 13, 2024@01:46:42 Page 2
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
+2 ;==============================
MFSEVENT ;Handle Master File Server events. This routine is
+1 ;attached to the XUMF MFS EVENTS protocol through the PXRM MFS EVENT
+2 ;protocol.
+3 NEW EVENT,SUBJECT
+4 SET EVENT="PXRM MFS EVENT"_$$NOW^XLFDT
+5 KILL ^XTMP(EVENT)
+6 SET ^XTMP(EVENT,0)=$$FMADD^XLFDT(DT,3)_U_DT
+7 MERGE ^XTMP(EVENT)=^TMP("XUMF EVENT",$JOB)
+8 SET SUBJECT="Clinical Reminders NTRT MFS protocol event"
+9 ;Task off the work and return to the protocol.
+10 KILL ZTSAVE
+11 SET ZTSAVE("EVENT")=""
+12 SET ZTSAVE("SUBJECT")=""
+13 SET ZTRTN="EVDRVR^PXRMSTS"
+14 SET ZTDESC="Clinical Reminders XUMF MFS event handler"
+15 SET ZTDTH=$HOROLOG
+16 SET ZTIO=""
+17 DO ^%ZTLOAD
+18 QUIT
+19 ;
