PXRMP61I.m

PXRMP61I ;SLC/PKR - Inits for PXRM*2.0*61. ;08/10/2015

 ;;2.0;CLINICAL REMINDERS;**61**;Feb 04, 2005;Build 221

 ;==========================================

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^PXRMP61I

 D DELEXE^PXRMEXSI("EXARRAY","PXRMP61E")

 Q

 ;

 ;==========================================

POST ;Post-init

 ;Enable options and protocols

 D OPTION^PXRMUTIL("ENABLE")

 D PROTOCOL^PXRMUTIL("ENABLE")

 D SETPVER^PXRMUTIL("2.0P61")

 ;Install Exchange File entries.

 D SMEXINS^PXRMEXSI("EXARRAY","PXRMP61E")

 D SENDIM^PXRMP61I

 Q

 ;

 ;==========================================

SENDIM ;Send install message.

 N FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE

 S NODE="PXRM*2.0*61"

 K ^TMP(NODE,$J)

 ;DBIA #1131 for ^XMB("NETNAME")

 S FROM="PXRM*2.0*61 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*61"

 S ^TMP(NODE,$J,1,0)="PXRM*2.0*61 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-IM FLU H1N1 (1 DOSE)")=""

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXRMP61I   1981     printed  Apr 09, 2024@20:52:23                                                                                                                                                                                                    Page 2

PXRMP61I  ;SLC/PKR - Inits for PXRM*2.0*61. ;08/10/2015

 +1       ;;2.0;CLINICAL REMINDERS;**61**;Feb 04, 2005;Build 221

 +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^PXRMP61I

 +5        DO DELEXE^PXRMEXSI("EXARRAY","PXRMP61E")

 +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.0P61")

 +5       ;Install Exchange File entries.

 +6        DO SMEXINS^PXRMEXSI("EXARRAY","PXRMP61E")

 +7        DO SENDIM^PXRMP61I

 +8        QUIT 

 +9       ;

 +10      ;==========================================

SENDIM    ;Send install message.

 +1        NEW FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE

 +2        SET NODE="PXRM*2.0*61"

 +3        KILL ^TMP(NODE,$JOB)

 +4       ;DBIA #1131 for ^XMB("NETNAME")

 +5        SET FROM="PXRM*2.0*61 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*61"

 +15       SET ^TMP(NODE,$JOB,1,0)="PXRM*2.0*61 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-IM FLU H1N1 (1 DOSE)")=""

 +2        QUIT 

 +3       ;