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