PXRMP54I ;SLC/PKR - Inits for PXRM*2.0*54. ;11/04/2014
;;2.0;CLINICAL REMINDERS;**54**;Feb 04, 2005;Build 211
;==========================================
LU(FILE,NAME) ;
N ERR,RESULT
S RESULT=$$FIND1^DIC(FILE,"",,NAME,,,"ERR")
I $D(ERR) D AWRITE^PXRMUTIL("ERR") Q 0
Q RESULT
;
;==========================================
PRE ;Pre-init
;Disable options and protocols
D OPTION^PXRMUTIL("DISABLE")
D PROTOCOL^PXRMUTIL("DISABLE")
D DELEXE^PXRMEXSI("EXARRAY","PXRMP54E")
Q
;
;==========================================
POST ;Post-init
;Enable options and protocols
D OPTION^PXRMUTIL("ENABLE")
D PROTOCOL^PXRMUTIL("ENABLE")
D SETPVER^PXRMUTIL("2.0P54")
;Install Exchange File entries.
D SMEXINS^PXRMEXSI("EXARRAY","PXRMP54E")
D TIUOBJ
D SENDIM^PXRMP54I
Q
;
;==========================================
SENDIM ;Send install message.
N FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
S NODE="PXRM*2.0*54"
K ^TMP(NODE,$J)
;DBIA #1131 for ^XMB("NETNAME")
S FROM="PXRM*2.0*54 Install@"_^XMB("NETNAME")
;DBIA #2541
S SYSTEM=$$KSP^XUPARAM("WHERE")
I $$PROD^XUPROD(1) S TO("G.CLINICAL REMINDERS SUPPORT@DOMAIN.EXT")=""
E D
. N MGIEN,MGROUP
. S MGIEN=$G(^PXRM(800,1,"MGFE"))
. S MGROUP=$S(MGIEN'="":"G."_$$GET1^DIQ(3.8,MGIEN,.01),1:DUZ)
. S TO(MGROUP)=""
S SUBJECT="Install of PXRM*2.0*54"
S ^TMP(NODE,$J,1,0)="PXRM*2.0*54 has been installed."
S ^TMP(NODE,$J,2,0)="System is "_SYSTEM
D SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
Q
;
;==========================================
TIUOBJ ;
N COWN,IEN,NAME
S COWN=$$LU(8930,"CLINICAL COORDINATOR")
F NAME="EBOLA RISK TRIAGE COMPLETED","EBOLA RISK TRIAGE LAST RATING","EBOLA RISK TRIAGE (CUMULATIVE)" D
.S IEN=$$LU(8925.1,NAME) I IEN'>0 D MES^XPDUTL("Could not find TIU Object: "_NAME_".") Q
.D TIUOBJU(IEN,NAME,DUZ,COWN)
Q
;==========================================
;
TIUOBJU(IEN,NAME,POWN,COWN) ;
N FDA,MSG
S FDA(8925.1,"?"_IEN_",",.01)=NAME
I +$G(COWN)>0 S FDA(8925.1,"?"_IEN_",",.06)=+$G(COWN)
I +$G(COWN)'>0 S FDA(8925.1,"?"_IEN_",",.05)=POWN
D UPDATE^DIE("","FDA","","MSG")
I $D(MSG) D AWRITE^PXRMUTIL("MSG")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP54I 2165 printed Apr 09, 2024@20:54:10 Page 2
PXRMP54I ;SLC/PKR - Inits for PXRM*2.0*54. ;11/04/2014
+1 ;;2.0;CLINICAL REMINDERS;**54**;Feb 04, 2005;Build 211
+2 ;==========================================
LU(FILE,NAME) ;
+1 NEW ERR,RESULT
+2 SET RESULT=$$FIND1^DIC(FILE,"",,NAME,,,"ERR")
+3 IF $DATA(ERR)
DO AWRITE^PXRMUTIL("ERR")
QUIT 0
+4 QUIT RESULT
+5 ;
+6 ;==========================================
PRE ;Pre-init
+1 ;Disable options and protocols
+2 DO OPTION^PXRMUTIL("DISABLE")
+3 DO PROTOCOL^PXRMUTIL("DISABLE")
+4 DO DELEXE^PXRMEXSI("EXARRAY","PXRMP54E")
+5 QUIT
+6 ;
+7 ;==========================================
POST ;Post-init
+1 ;Enable options and protocols
+2 DO OPTION^PXRMUTIL("ENABLE")
+3 DO PROTOCOL^PXRMUTIL("ENABLE")
+4 DO SETPVER^PXRMUTIL("2.0P54")
+5 ;Install Exchange File entries.
+6 DO SMEXINS^PXRMEXSI("EXARRAY","PXRMP54E")
+7 DO TIUOBJ
+8 DO SENDIM^PXRMP54I
+9 QUIT
+10 ;
+11 ;==========================================
SENDIM ;Send install message.
+1 NEW FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
+2 SET NODE="PXRM*2.0*54"
+3 KILL ^TMP(NODE,$JOB)
+4 ;DBIA #1131 for ^XMB("NETNAME")
+5 SET FROM="PXRM*2.0*54 Install@"_^XMB("NETNAME")
+6 ;DBIA #2541
+7 SET SYSTEM=$$KSP^XUPARAM("WHERE")
+8 IF $$PROD^XUPROD(1)
SET TO("G.CLINICAL REMINDERS SUPPORT@DOMAIN.EXT")=""
+9 IF '$TEST
Begin DoDot:1
+10 NEW MGIEN,MGROUP
+11 SET MGIEN=$GET(^PXRM(800,1,"MGFE"))
+12 SET MGROUP=$SELECT(MGIEN'="":"G."_$$GET1^DIQ(3.8,MGIEN,.01),1:DUZ)
+13 SET TO(MGROUP)=""
End DoDot:1
+14 SET SUBJECT="Install of PXRM*2.0*54"
+15 SET ^TMP(NODE,$JOB,1,0)="PXRM*2.0*54 has been installed."
+16 SET ^TMP(NODE,$JOB,2,0)="System is "_SYSTEM
+17 DO SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
+18 QUIT
+19 ;
+20 ;==========================================
TIUOBJ ;
+1 NEW COWN,IEN,NAME
+2 SET COWN=$$LU(8930,"CLINICAL COORDINATOR")
+3 FOR NAME="EBOLA RISK TRIAGE COMPLETED","EBOLA RISK TRIAGE LAST RATING","EBOLA RISK TRIAGE (CUMULATIVE)"
Begin DoDot:1
+4 SET IEN=$$LU(8925.1,NAME)
IF IEN'>0
DO MES^XPDUTL("Could not find TIU Object: "_NAME_".")
QUIT
+5 DO TIUOBJU(IEN,NAME,DUZ,COWN)
End DoDot:1
+6 QUIT
+7 ;==========================================
+8 ;
TIUOBJU(IEN,NAME,POWN,COWN) ;
+1 NEW FDA,MSG
+2 SET FDA(8925.1,"?"_IEN_",",.01)=NAME
+3 IF +$GET(COWN)>0
SET FDA(8925.1,"?"_IEN_",",.06)=+$GET(COWN)
+4 IF +$GET(COWN)'>0
SET FDA(8925.1,"?"_IEN_",",.05)=POWN
+5 DO UPDATE^DIE("","FDA","","MSG")
+6 IF $DATA(MSG)
DO AWRITE^PXRMUTIL("MSG")
+7 QUIT
+8 ;