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

PXRMP50I.m

Go to the documentation of this file.
  1. PXRMP50I ;SLC/PKR - Inits for PXRM*2.0*50. ;10/29/2014
  1. ;;2.0;CLINICAL REMINDERS;**50**;Feb 04, 2005;Build 212
  1. ;==========================================
  1. INACT ;Rename and inactivate obsolete national taxonomies.
  1. N IEN,NAME,TAXLIST,ZZNAME
  1. D BMES^XPDUTL("Checking for obsolete national taxonomies to be inactivated.")
  1. D TAXLIST(.TAXLIST)
  1. S NAME=""
  1. F S NAME=$O(TAXLIST(NAME)) Q:NAME="" D
  1. . S IEN=+$O(^PXD(811.2,"B",NAME,""))
  1. . I IEN=0 Q
  1. . D MES^XPDUTL(" Inactivating taxonomy "_NAME)
  1. . S $P(^PXD(811.2,IEN,0),U,6)=1
  1. . S ZZNAME="ZZ"_NAME
  1. . D RENAME^PXRMUTIL(811.2,NAME,ZZNAME)
  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 INACT^PXRMP50I
  1. D DELEXE^PXRMEXSI("EXARRAY","PXRMP50E")
  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.0P50")
  1. ;Install Exchange File entries.
  1. D SMEXINS^PXRMEXSI("EXARRAY","PXRMP50E")
  1. D SENDIM^PXRMP50I
  1. Q
  1. ;
  1. ;==========================================
  1. SENDIM ;Send install message.
  1. N FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
  1. S NODE="PXRM*2.0*50"
  1. K ^TMP(NODE,$J)
  1. ;DBIA #1131 for ^XMB("NETNAME")
  1. S FROM="PXRM*2.0*50 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*50"
  1. S ^TMP(NODE,$J,1,0)="PXRM*2.0*50 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. TAXLIST(LIST) ;Populate the list of taxonomies to inactivate.
  1. S LIST("VA-ALCOHOLISM SCREENING")=""
  1. S LIST("VA-CERVICAL CANCER SCREEN")=""
  1. S LIST("VA-HYPERTENSION SCREEN")=""
  1. S LIST("VA-ISCHEMIC HEART 412 DISEASE")=""
  1. S LIST("VA-ISCHEMIC HEART DISEASE")=""
  1. S LIST("VA-HIGH RISK FOR INFLUENZA")=""
  1. S LIST("VA-HIGH RISK FOR FLU/PNEUMONIA")=""
  1. S LIST("VA-HIGH RISK FOR PNEUMOCOCCAL DZ")=""
  1. S LIST("VA-HIGH RISK FOR TB")=""
  1. S LIST("VA-INFLUENZA IMMUNIZATION")=""
  1. S LIST("VA-PNEUMOCOCCAL VACCINE")=""
  1. S LIST("VA-TETANUS DIPHTHERIA")=""
  1. S LIST("VA-CHOLESTEROL")=""
  1. S LIST("VA-COLORECTAL CA")=""
  1. S LIST("VA-COLORECTAL CANCER SCREEN")=""
  1. S LIST("VA-EXERCISE COUNSELING")=""
  1. S LIST("VA-FLEXISIGMOIDOSCOPY")=""
  1. S LIST("VA-FOBT")=""
  1. S LIST("VA-MHV IHD AND ATHERSCLEROSIS")=""
  1. S LIST("VA-NUTRITION")=""
  1. S LIST("VA-OBESITY")=""
  1. S LIST("VA-PROSTATE CA")=""
  1. S LIST("VA-PSA")=""
  1. S LIST("VA-SAFETY COUNSELING")=""
  1. S LIST("VA-WEIGHT AND NUTRITION SCREEN")=""
  1. S LIST("VA-POLYTRAUMA AMPUTATION")=""
  1. S LIST("VA-POLYTRAUMA AUDITORY")=""
  1. S LIST("VA-POLYTRAUMA BRAIN INJURY")=""
  1. S LIST("VA-POLYTRAUMA BURN")=""
  1. S LIST("VA-POLYTRAUMA INPT REHAB")=""
  1. S LIST("VA-POLYTRAUMA ORTHO")=""
  1. S LIST("VA-POLYTRAUMA PTSD")=""
  1. S LIST("VA-POLYTRAUMA SCI")=""
  1. S LIST("VA-POLYTRAUMA VISION")=""
  1. S LIST("VA-POLYTRAUMA WAR INJURY")=""
  1. S LIST("VA-WH IUD INSERTION (TAXONOMY)")=""
  1. S LIST("VA-WH IUD REMOVAL (TAXONOMY)")=""
  1. Q
  1. ;