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

PXRMP30I.m

Go to the documentation of this file.
  1. PXRMP30I ;SLC/PKR - Inits for PXRM*2.0*30. ;04/18/2013
  1. ;;2.0;CLINICAL REMINDERS;**30**;Feb 04, 2005;Build 206
  1. Q
  1. ;==========================================
  1. DELDIE ;Delete Dialog file entries.
  1. N IEN,IND,JND,LIST,LUVALUE,NAME,NUM
  1. S NAME(1)="VA-URL UPDATE CARRIER ELEMENT"
  1. S NAME(2)="VA-URL UPDATE CARRIER ELEMENT 2"
  1. D BMES^XPDUTL("Deleting unneeded Dialog entries.")
  1. F IND=1:1:2 D
  1. . S IEN=+$O(^PXRMD(801.41,"B",NAME(IND),""))
  1. . I IEN=0 Q
  1. . D MES^XPDUTL("Deleting "_NAME(IND))
  1. . D DELETE^PXRMEXFI(801.41,IEN)
  1. Q
  1. ;
  1. ;==========================================
  1. DELEXE ;Delete Exchange file entries.
  1. N IND,LIST,NAME,NUM
  1. S NAME="VA-URL UPDATE CARRIER ELEMENT"
  1. D BMES^XPDUTL("Deleting unneeded Exchange entries.")
  1. D FIND^DIC(811.8,"","","U",NAME,"","","","","LIST")
  1. I '$D(LIST) Q
  1. S NUM=+$P(LIST("DILIST",0),U,1)
  1. I NUM=0 Q
  1. F IND=1:1:NUM D
  1. . D MES^XPDUTL(" Deleting "_LIST("DILIST",1,IND))
  1. . N DA,DIK
  1. . S DIK="^PXD(811.8,"
  1. . S DA=LIST("DILIST",2,IND)
  1. . D ^DIK
  1. Q
  1. ;
  1. ;==========================================
  1. LENDIAG ;There is a bug in the pre patch 24 version of PXRMEXSI that
  1. ;causes the VA-ECOE INITIAL NOTE dialog to be erroneously linked
  1. ;to the reminder VA-ALCOHOL USE SCREEN (AUDIT-C), fix that.
  1. N DIEN,RIEN,TEXT
  1. S RIEN=$O(^PXD(811.9,"B","VA-ALCOHOL USE SCREEN (AUDIT-C)",""))
  1. I RIEN="" D
  1. . S TEXT="Reminder definition VA-ALCOHOL USE SCREEN (AUDIT-C) does not exist!"
  1. . D MES^XPDUTL(TEXT)
  1. S DIEN=$O(^PXRMD(801.41,"B","VA-ALCOHOL USE SCREENING (AUDIT-C)",""))
  1. I DIEN="" D
  1. . S TEXT="Reminder dialog VA-ALCOHOL USE SCREENING (AUDIT-C) does not exist!"
  1. . D MES^XPDUTL(TEXT)
  1. I (+RIEN>0),(+DIEN>0) D
  1. . S ^PXD(811.9,RIEN,51)=DIEN
  1. . S $P(^PXRMD(801.41,DIEN,0),U,3)=0
  1. Q
  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","PXRMP30E")
  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.0P30")
  1. ;Install Exchange File entries.
  1. D SMEXINS^PXRMEXSI("EXARRAY","PXRMP30E")
  1. D LENDIAG^PXRMP30I
  1. D DELDIE^PXRMP30I
  1. D DELEXE^PXRMP30I
  1. D SENDIM^PXRMP30I
  1. Q
  1. ;
  1. ;==========================================
  1. SENDIM ;Send install message.
  1. N FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
  1. S NODE="PXRM*2.0*30"
  1. K ^TMP(NODE,$J)
  1. ;DBIA #1131 for ^XMB("NETNAME")
  1. S FROM="PXRM*2.0*30 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*30"
  1. S ^TMP(NODE,$J,1,0)="PXRM*2.0*30 has been installed."
  1. S ^TMP(NODE,$J,2,0)="System is "_SYSTEM
  1. D SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
  1. Q
  1. ;