PXRMMFS.m

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 ---PXRMMFS   773     printed  Apr 09, 2024@20:55: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      ;