- 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 Feb 18, 2025@23:14:13 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 ;