PXRMP50I ;SLC/PKR - Inits for PXRM*2.0*50. ;10/29/2014
;;2.0;CLINICAL REMINDERS;**50**;Feb 04, 2005;Build 212
;==========================================
INACT ;Rename and inactivate obsolete national taxonomies.
N IEN,NAME,TAXLIST,ZZNAME
D BMES^XPDUTL("Checking for obsolete national taxonomies to be inactivated.")
D TAXLIST(.TAXLIST)
S NAME=""
F S NAME=$O(TAXLIST(NAME)) Q:NAME="" D
. S IEN=+$O(^PXD(811.2,"B",NAME,""))
. I IEN=0 Q
. D MES^XPDUTL(" Inactivating taxonomy "_NAME)
. S $P(^PXD(811.2,IEN,0),U,6)=1
. S ZZNAME="ZZ"_NAME
. D RENAME^PXRMUTIL(811.2,NAME,ZZNAME)
Q
;
;==========================================
PRE ;Pre-init
;Disable options and protocols
D OPTION^PXRMUTIL("DISABLE")
D PROTOCOL^PXRMUTIL("DISABLE")
D INACT^PXRMP50I
D DELEXE^PXRMEXSI("EXARRAY","PXRMP50E")
Q
;
;==========================================
POST ;Post-init
;Enable options and protocols
D OPTION^PXRMUTIL("ENABLE")
D PROTOCOL^PXRMUTIL("ENABLE")
D SETPVER^PXRMUTIL("2.0P50")
;Install Exchange File entries.
D SMEXINS^PXRMEXSI("EXARRAY","PXRMP50E")
D SENDIM^PXRMP50I
Q
;
;==========================================
SENDIM ;Send install message.
N FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
S NODE="PXRM*2.0*50"
K ^TMP(NODE,$J)
;DBIA #1131 for ^XMB("NETNAME")
S FROM="PXRM*2.0*50 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*50"
S ^TMP(NODE,$J,1,0)="PXRM*2.0*50 has been installed."
S ^TMP(NODE,$J,2,0)="System is "_SYSTEM
D SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
Q
;
;==========================================
TAXLIST(LIST) ;Populate the list of taxonomies to inactivate.
S LIST("VA-ALCOHOLISM SCREENING")=""
S LIST("VA-CERVICAL CANCER SCREEN")=""
S LIST("VA-HYPERTENSION SCREEN")=""
S LIST("VA-ISCHEMIC HEART 412 DISEASE")=""
S LIST("VA-ISCHEMIC HEART DISEASE")=""
S LIST("VA-HIGH RISK FOR INFLUENZA")=""
S LIST("VA-HIGH RISK FOR FLU/PNEUMONIA")=""
S LIST("VA-HIGH RISK FOR PNEUMOCOCCAL DZ")=""
S LIST("VA-HIGH RISK FOR TB")=""
S LIST("VA-INFLUENZA IMMUNIZATION")=""
S LIST("VA-PNEUMOCOCCAL VACCINE")=""
S LIST("VA-TETANUS DIPHTHERIA")=""
S LIST("VA-CHOLESTEROL")=""
S LIST("VA-COLORECTAL CA")=""
S LIST("VA-COLORECTAL CANCER SCREEN")=""
S LIST("VA-EXERCISE COUNSELING")=""
S LIST("VA-FLEXISIGMOIDOSCOPY")=""
S LIST("VA-FOBT")=""
S LIST("VA-MHV IHD AND ATHERSCLEROSIS")=""
S LIST("VA-NUTRITION")=""
S LIST("VA-OBESITY")=""
S LIST("VA-PROSTATE CA")=""
S LIST("VA-PSA")=""
S LIST("VA-SAFETY COUNSELING")=""
S LIST("VA-WEIGHT AND NUTRITION SCREEN")=""
S LIST("VA-POLYTRAUMA AMPUTATION")=""
S LIST("VA-POLYTRAUMA AUDITORY")=""
S LIST("VA-POLYTRAUMA BRAIN INJURY")=""
S LIST("VA-POLYTRAUMA BURN")=""
S LIST("VA-POLYTRAUMA INPT REHAB")=""
S LIST("VA-POLYTRAUMA ORTHO")=""
S LIST("VA-POLYTRAUMA PTSD")=""
S LIST("VA-POLYTRAUMA SCI")=""
S LIST("VA-POLYTRAUMA VISION")=""
S LIST("VA-POLYTRAUMA WAR INJURY")=""
S LIST("VA-WH IUD INSERTION (TAXONOMY)")=""
S LIST("VA-WH IUD REMOVAL (TAXONOMY)")=""
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP50I 3332 printed Apr 09, 2024@20:54:43 Page 2
PXRMP50I ;SLC/PKR - Inits for PXRM*2.0*50. ;10/29/2014
+1 ;;2.0;CLINICAL REMINDERS;**50**;Feb 04, 2005;Build 212
+2 ;==========================================
INACT ;Rename and inactivate obsolete national taxonomies.
+1 NEW IEN,NAME,TAXLIST,ZZNAME
+2 DO BMES^XPDUTL("Checking for obsolete national taxonomies to be inactivated.")
+3 DO TAXLIST(.TAXLIST)
+4 SET NAME=""
+5 FOR
SET NAME=$ORDER(TAXLIST(NAME))
if NAME=""
QUIT
Begin DoDot:1
+6 SET IEN=+$ORDER(^PXD(811.2,"B",NAME,""))
+7 IF IEN=0
QUIT
+8 DO MES^XPDUTL(" Inactivating taxonomy "_NAME)
+9 SET $PIECE(^PXD(811.2,IEN,0),U,6)=1
+10 SET ZZNAME="ZZ"_NAME
+11 DO RENAME^PXRMUTIL(811.2,NAME,ZZNAME)
End DoDot:1
+12 QUIT
+13 ;
+14 ;==========================================
PRE ;Pre-init
+1 ;Disable options and protocols
+2 DO OPTION^PXRMUTIL("DISABLE")
+3 DO PROTOCOL^PXRMUTIL("DISABLE")
+4 DO INACT^PXRMP50I
+5 DO DELEXE^PXRMEXSI("EXARRAY","PXRMP50E")
+6 QUIT
+7 ;
+8 ;==========================================
POST ;Post-init
+1 ;Enable options and protocols
+2 DO OPTION^PXRMUTIL("ENABLE")
+3 DO PROTOCOL^PXRMUTIL("ENABLE")
+4 DO SETPVER^PXRMUTIL("2.0P50")
+5 ;Install Exchange File entries.
+6 DO SMEXINS^PXRMEXSI("EXARRAY","PXRMP50E")
+7 DO SENDIM^PXRMP50I
+8 QUIT
+9 ;
+10 ;==========================================
SENDIM ;Send install message.
+1 NEW FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
+2 SET NODE="PXRM*2.0*50"
+3 KILL ^TMP(NODE,$JOB)
+4 ;DBIA #1131 for ^XMB("NETNAME")
+5 SET FROM="PXRM*2.0*50 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*50"
+15 SET ^TMP(NODE,$JOB,1,0)="PXRM*2.0*50 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 ;==========================================
TAXLIST(LIST) ;Populate the list of taxonomies to inactivate.
+1 SET LIST("VA-ALCOHOLISM SCREENING")=""
+2 SET LIST("VA-CERVICAL CANCER SCREEN")=""
+3 SET LIST("VA-HYPERTENSION SCREEN")=""
+4 SET LIST("VA-ISCHEMIC HEART 412 DISEASE")=""
+5 SET LIST("VA-ISCHEMIC HEART DISEASE")=""
+6 SET LIST("VA-HIGH RISK FOR INFLUENZA")=""
+7 SET LIST("VA-HIGH RISK FOR FLU/PNEUMONIA")=""
+8 SET LIST("VA-HIGH RISK FOR PNEUMOCOCCAL DZ")=""
+9 SET LIST("VA-HIGH RISK FOR TB")=""
+10 SET LIST("VA-INFLUENZA IMMUNIZATION")=""
+11 SET LIST("VA-PNEUMOCOCCAL VACCINE")=""
+12 SET LIST("VA-TETANUS DIPHTHERIA")=""
+13 SET LIST("VA-CHOLESTEROL")=""
+14 SET LIST("VA-COLORECTAL CA")=""
+15 SET LIST("VA-COLORECTAL CANCER SCREEN")=""
+16 SET LIST("VA-EXERCISE COUNSELING")=""
+17 SET LIST("VA-FLEXISIGMOIDOSCOPY")=""
+18 SET LIST("VA-FOBT")=""
+19 SET LIST("VA-MHV IHD AND ATHERSCLEROSIS")=""
+20 SET LIST("VA-NUTRITION")=""
+21 SET LIST("VA-OBESITY")=""
+22 SET LIST("VA-PROSTATE CA")=""
+23 SET LIST("VA-PSA")=""
+24 SET LIST("VA-SAFETY COUNSELING")=""
+25 SET LIST("VA-WEIGHT AND NUTRITION SCREEN")=""
+26 SET LIST("VA-POLYTRAUMA AMPUTATION")=""
+27 SET LIST("VA-POLYTRAUMA AUDITORY")=""
+28 SET LIST("VA-POLYTRAUMA BRAIN INJURY")=""
+29 SET LIST("VA-POLYTRAUMA BURN")=""
+30 SET LIST("VA-POLYTRAUMA INPT REHAB")=""
+31 SET LIST("VA-POLYTRAUMA ORTHO")=""
+32 SET LIST("VA-POLYTRAUMA PTSD")=""
+33 SET LIST("VA-POLYTRAUMA SCI")=""
+34 SET LIST("VA-POLYTRAUMA VISION")=""
+35 SET LIST("VA-POLYTRAUMA WAR INJURY")=""
+36 SET LIST("VA-WH IUD INSERTION (TAXONOMY)")=""
+37 SET LIST("VA-WH IUD REMOVAL (TAXONOMY)")=""
+38 QUIT
+39 ;
