- 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 Jan 18, 2025@02:47:55 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 ;