Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRMP54I

PXRMP54I.m

Go to the documentation of this file.
  1. PXRMP54I ;SLC/PKR - Inits for PXRM*2.0*54. ;11/04/2014
  1. ;;2.0;CLINICAL REMINDERS;**54**;Feb 04, 2005;Build 211
  1. ;==========================================
  1. LU(FILE,NAME) ;
  1. N ERR,RESULT
  1. S RESULT=$$FIND1^DIC(FILE,"",,NAME,,,"ERR")
  1. I $D(ERR) D AWRITE^PXRMUTIL("ERR") Q 0
  1. Q RESULT
  1. ;
  1. ;==========================================
  1. PRE ;Pre-init
  1. ;Disable options and protocols
  1. D OPTION^PXRMUTIL("DISABLE")
  1. D PROTOCOL^PXRMUTIL("DISABLE")
  1. D DELEXE^PXRMEXSI("EXARRAY","PXRMP54E")
  1. Q
  1. ;
  1. ;==========================================
  1. POST ;Post-init
  1. ;Enable options and protocols
  1. D OPTION^PXRMUTIL("ENABLE")
  1. D PROTOCOL^PXRMUTIL("ENABLE")
  1. D SETPVER^PXRMUTIL("2.0P54")
  1. ;Install Exchange File entries.
  1. D SMEXINS^PXRMEXSI("EXARRAY","PXRMP54E")
  1. D TIUOBJ
  1. D SENDIM^PXRMP54I
  1. Q
  1. ;
  1. ;==========================================
  1. SENDIM ;Send install message.
  1. N FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
  1. S NODE="PXRM*2.0*54"
  1. K ^TMP(NODE,$J)
  1. ;DBIA #1131 for ^XMB("NETNAME")
  1. S FROM="PXRM*2.0*54 Install@"_^XMB("NETNAME")
  1. ;DBIA #2541
  1. S SYSTEM=$$KSP^XUPARAM("WHERE")
  1. I $$PROD^XUPROD(1) S TO("G.CLINICAL REMINDERS SUPPORT@DOMAIN.EXT")=""
  1. E D
  1. . N MGIEN,MGROUP
  1. . S MGIEN=$G(^PXRM(800,1,"MGFE"))
  1. . S MGROUP=$S(MGIEN'="":"G."_$$GET1^DIQ(3.8,MGIEN,.01),1:DUZ)
  1. . S TO(MGROUP)=""
  1. S SUBJECT="Install of PXRM*2.0*54"
  1. S ^TMP(NODE,$J,1,0)="PXRM*2.0*54 has been installed."
  1. S ^TMP(NODE,$J,2,0)="System is "_SYSTEM
  1. D SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
  1. Q
  1. ;
  1. ;==========================================
  1. TIUOBJ ;
  1. N COWN,IEN,NAME
  1. S COWN=$$LU(8930,"CLINICAL COORDINATOR")
  1. F NAME="EBOLA RISK TRIAGE COMPLETED","EBOLA RISK TRIAGE LAST RATING","EBOLA RISK TRIAGE (CUMULATIVE)" D
  1. .S IEN=$$LU(8925.1,NAME) I IEN'>0 D MES^XPDUTL("Could not find TIU Object: "_NAME_".") Q
  1. .D TIUOBJU(IEN,NAME,DUZ,COWN)
  1. Q
  1. ;==========================================
  1. ;
  1. TIUOBJU(IEN,NAME,POWN,COWN) ;
  1. N FDA,MSG
  1. S FDA(8925.1,"?"_IEN_",",.01)=NAME
  1. I +$G(COWN)>0 S FDA(8925.1,"?"_IEN_",",.06)=+$G(COWN)
  1. I +$G(COWN)'>0 S FDA(8925.1,"?"_IEN_",",.05)=POWN
  1. D UPDATE^DIE("","FDA","","MSG")
  1. I $D(MSG) D AWRITE^PXRMUTIL("MSG")
  1. Q
  1. ;