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

PXRMP24I.m

Go to the documentation of this file. 
  1. PXRMP24I ;SLC/PKR - Inits for PXRM*2.0*24. ;10/12/2012
  1.  ;;2.0;CLINICAL REMINDERS;**24**;Feb 04, 2005;Build 193
  1.  Q
  1.  ;==========================================
  1. CFINC(Y) ;List of computed findings to include in the build.
  1.  N CFLIST,CFNAME,INC
  1.  S CFLIST("VA-ADMISSIONS FOR A DATE RANGE")=""
  1.  S CFLIST("VA-APPOINTMENTS FOR A PATIENT")=""
  1.  S CFLIST("VA-ASU USER CLASS")=""
  1.  S CFLIST("VA-EMPLOYEE")=""
  1.  S CFLIST("VA-PATIENT RECORD FLAG LIST")=""
  1.  S CFLIST("VA-PATIENTS WITH APPOINTMENTS")=""
  1.  S CFLIST("VA-PCMM MHTC")=""
  1.  ;S CFLIST("")=""
  1.  S CFNAME=$P($G(^PXRMD(811.4,Y,0)),U)
  1.  S INC=$S($D(CFLIST(CFNAME)):1,1:0)
  1.  I INC D RMEHIST^PXRMUTIL(811.4,Y)
  1.  Q INC
  1.  ;
  1.  ;==========================================
  1. MPBPRE ;Pre-init for mult-package build.
  1.  S XPDNOQUE=1
  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","PXRMP24E")
  1.  D REEXCH^PXRMP24I
  1.  D RENAME^PXRMUTIL(811.5,"VA-MH APPTS FOR MHTC ASSIGNMENT","VA-MH KEPT APPTS FOR MHTC ASSIGNMENT")
  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.0P24")
  1.  ;Install Exchange File entries.
  1.  ;D SMEXINS^PXRMEXSI("EXARRAY","PXRMP24E")
  1.  D RHTF^PXRMP24I
  1.  ;D SENDIM^PXRMP24I
  1.  Q
  1.  ;
  1.  ;==========================================
  1. REEXCH ;Rename reminder definition VA-MHTC CANDIDATE and remove the old
  1.  ;Exchange entry
  1.  N IEN,LIST,LUVALUE,PXRMINST
  1.  S PXRMINST=1
  1.  D RENAME^PXRMUTIL(811.9,"VA-MHTC CANDIDATE","VA-MHTC NEEDS ASSIGNMENT")
  1.  S LUVALUE(1)="VA-MHTC CANDIDATE"
  1.  S LUVALUE(2)="05/23/2012@09:42:32"
  1.  S IEN=$$FIND1^DIC(811.8,"","KU",.LUVALUE)
  1.  S LIST(IEN)=""
  1.  D DELETE^PXRMEXU1(.LIST)
  1.  Q
  1.  ;
  1.  ;==========================================
  1. RHTF ;Rename and inactivate health factors and terms that are no longer used.
  1.  N IEN,NAME
  1.  D BMES^XPDUTL("Renaming/inactivating health factors and terms that are no longer used.")
  1.  D RENAME^PXRMUTIL(9999999.64,"MH NOSHOW INITIATE WELLNESS CHECK","ZZMH NOSHOW INITIATE WELLNESS CHECK")
  1.  D RENAME^PXRMUTIL(9999999.64,"MH NOSHOW SUPPORT CONTACT","ZZMH NOSHOW SUPPORT CONTACT")
  1.  D RENAME^PXRMUTIL(9999999.64,"MH NOSHOW UNABLE TO REACH PT","ZZMH NOSHOW UNABLE TO REACH PT")
  1.  F NAME="ZZMH NOSHOW INITIATE WELLNESS CHECK","ZZMH NOSHOW SUPPORT CONTACT","ZZMH NOSHOW UNABLE TO REACH PT" D
  1.  . S IEN=+$$FIND1^DIC(9999999.64,"","BX",NAME)
  1.  . I IEN>0 S $P(^AUTTHF(IEN,0),U,11)=1
  1.  D RENAME^PXRMUTIL(811.5,"VA-MH NOSHOW INITIATE WELLNESS CHECK","ZZVA-MH NOSHOW INITIATE WELLNESS CHECK")
  1.  D RENAME^PXRMUTIL(811.5,"VA-MH NOSHOW SUPPORT CONTACT","ZZVA-MH NOSHOW SUPPORT CONTACT")
  1.  D RENAME^PXRMUTIL(811.5,"VA-MH NOSHOW UNABLE TO REACH PT","ZZVA-MH NOSHOW UNABLE TO REACH PT")
  1.  Q
  1.  ;
  1.  ;==========================================
  1. SENDIM ;Send install message.
  1.  N FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
  1.  S NODE="PXRM*2.0*24"
  1.  K ^TMP(NODE,$J)
  1.  ;DBIA #1131 for ^XMB("NETNAME")
  1.  S FROM="PXRM*2.0*24 Install@"_^XMB("NETNAME")
  1.  ;DBIA #2541
  1.  S SYSTEM=$$KSP^XUPARAM("WHERE")
  1.  I $$PROD^XUPROD(1) S TO("G.CLINICAL REMINDERS SUPPORT@D.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*24"
  1.  S ^TMP(NODE,$J,1,0)="PXRM*2.0*24 has been installed."
  1.  S ^TMP(NODE,$J,2,0)="System is "_SYSTEM
  1.  D SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
  1.  Q
  1.  ;