PXRMP63I ;SLC/PKR - Inits for PXRM*2.0*63. ;02/03/2016
;;2.0;CLINICAL REMINDERS;**63**;Feb 04, 2005;Build 243
;==========================================
PRE ;Pre-init
;Disable options and protocols
N P47I
S P47I=$$PATCH^XPDUTL("PXRM*2.0*47")
I 'P47I D
. D OPTION^PXRMUTIL("DISABLE")
. D PROTOCOL^PXRMUTIL("DISABLE")
I P47I D
. D OPTIONS^PXRMUTIL("DISABLE","INSTALL OF PXRM*2.0*63")
. D PROTCOLS^PXRMUTIL("DISABLE","INSTALL OF PXRM*2.0*63")
D DELEXE^PXRMEXSI("EXARRAY","PXRMP63E")
D RENAME
Q
;
;==========================================
POST ;Post-init
;Enable options and protocols
N P47I
S P47I=$$PATCH^XPDUTL("PXRM*2.0*47")
I 'P47I D
. D OPTION^PXRMUTIL("ENABLE")
. D PROTOCOL^PXRMUTIL("ENABLE")
I P47I D
. D OPTIONS^PXRMUTIL("ENABLE","INSTALL OF PXRM*2.0*63")
. D PROTCOLS^PXRMUTIL("ENABLE","INSTALL OF PXRM*2.0*63")
D SETPVER^PXRMUTIL("2.0P63")
;Install Exchange File entries.
D SMEXINS^PXRMEXSI("EXARRAY","PXRMP63E")
D SENDIM^PXRMP63I
Q
;
;==========================================
RENAME ;Rename various components replacing assessment with screen.
D RENAME^PXRMUTIL(801.41,"VA-HEPATITIS C RISK ASSESSMENT","VA-HEPATITIS C RISK SCREEN")
D RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT DECLINED","VA-HEP C RISK SCREEN DECLINED")
D RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT HEADER","VA-HEP C RISK SCREEN HEADER")
D RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT NON PRESENT","VA-HEP C RISK SCREEN NON PRESENT")
D RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT OPTIONS","VA-HEP C RISK SCREEN OPTIONS")
D RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT PRESENT","VA-HEP C RISK SCREEN PRESENT")
D RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT RISK FACTOR LIST","VA-HEP C RISK SCREEN RISK FACTOR LIST")
D RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT RISK FACTOR LIST OPTION","VA-HEP C RISK SCREEN RISK FACTOR LIST OPTION")
D RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT TESTING HEADER","VA-HEP C RISK SCREEN TESTING HEADER")
D RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT TEXT","VA-HEP C RISK SCREEN TEXT")
;
D RENAME^PXRMUTIL(811.5,"VA-BL HEP C RISK ASSMNT ORDERS OPTION","VA-BL HEP C RISK SCREEN ORDERS OPTION")
D RENAME^PXRMUTIL(811.5,"VA-HEPATITIS C RISK ASSESSMENT","VA-HEPATITIS C RISK SCREEN")
D RENAME^PXRMUTIL(811.9,"VA-HEPATITIS C RISK ASSESSMENT","VA-HEPATITIS C RISK SCREEN")
Q
;
;==========================================
SENDIM ;Send install message.
N FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
S NODE="PXRM*2.0*63"
K ^TMP(NODE,$J)
;DBIA #1131 for ^XMB("NETNAME")
S FROM="PXRM*2.0*63 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*63"
S ^TMP(NODE,$J,1,0)="PXRM*2.0*63 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 ---[H[J[2J[HPXRMP63I 3238 printed Dec 13, 2024@01:48:02 Page 2
PXRMP63I ;SLC/PKR - Inits for PXRM*2.0*63. ;02/03/2016
+1 ;;2.0;CLINICAL REMINDERS;**63**;Feb 04, 2005;Build 243
+2 ;==========================================
PRE ;Pre-init
+1 ;Disable options and protocols
+2 NEW P47I
+3 SET P47I=$$PATCH^XPDUTL("PXRM*2.0*47")
+4 IF 'P47I
Begin DoDot:1
+5 DO OPTION^PXRMUTIL("DISABLE")
+6 DO PROTOCOL^PXRMUTIL("DISABLE")
End DoDot:1
+7 IF P47I
Begin DoDot:1
+8 DO OPTIONS^PXRMUTIL("DISABLE","INSTALL OF PXRM*2.0*63")
+9 DO PROTCOLS^PXRMUTIL("DISABLE","INSTALL OF PXRM*2.0*63")
End DoDot:1
+10 DO DELEXE^PXRMEXSI("EXARRAY","PXRMP63E")
+11 DO RENAME
+12 QUIT
+13 ;
+14 ;==========================================
POST ;Post-init
+1 ;Enable options and protocols
+2 NEW P47I
+3 SET P47I=$$PATCH^XPDUTL("PXRM*2.0*47")
+4 IF 'P47I
Begin DoDot:1
+5 DO OPTION^PXRMUTIL("ENABLE")
+6 DO PROTOCOL^PXRMUTIL("ENABLE")
End DoDot:1
+7 IF P47I
Begin DoDot:1
+8 DO OPTIONS^PXRMUTIL("ENABLE","INSTALL OF PXRM*2.0*63")
+9 DO PROTCOLS^PXRMUTIL("ENABLE","INSTALL OF PXRM*2.0*63")
End DoDot:1
+10 DO SETPVER^PXRMUTIL("2.0P63")
+11 ;Install Exchange File entries.
+12 DO SMEXINS^PXRMEXSI("EXARRAY","PXRMP63E")
+13 DO SENDIM^PXRMP63I
+14 QUIT
+15 ;
+16 ;==========================================
RENAME ;Rename various components replacing assessment with screen.
+1 DO RENAME^PXRMUTIL(801.41,"VA-HEPATITIS C RISK ASSESSMENT","VA-HEPATITIS C RISK SCREEN")
+2 DO RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT DECLINED","VA-HEP C RISK SCREEN DECLINED")
+3 DO RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT HEADER","VA-HEP C RISK SCREEN HEADER")
+4 DO RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT NON PRESENT","VA-HEP C RISK SCREEN NON PRESENT")
+5 DO RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT OPTIONS","VA-HEP C RISK SCREEN OPTIONS")
+6 DO RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT PRESENT","VA-HEP C RISK SCREEN PRESENT")
+7 DO RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT RISK FACTOR LIST","VA-HEP C RISK SCREEN RISK FACTOR LIST")
+8 DO RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT RISK FACTOR LIST OPTION","VA-HEP C RISK SCREEN RISK FACTOR LIST OPTION")
+9 DO RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT TESTING HEADER","VA-HEP C RISK SCREEN TESTING HEADER")
+10 DO RENAME^PXRMUTIL(801.41,"VA-HEP C RISK ASSMNT TEXT","VA-HEP C RISK SCREEN TEXT")
+11 ;
+12 DO RENAME^PXRMUTIL(811.5,"VA-BL HEP C RISK ASSMNT ORDERS OPTION","VA-BL HEP C RISK SCREEN ORDERS OPTION")
+13 DO RENAME^PXRMUTIL(811.5,"VA-HEPATITIS C RISK ASSESSMENT","VA-HEPATITIS C RISK SCREEN")
+14 DO RENAME^PXRMUTIL(811.9,"VA-HEPATITIS C RISK ASSESSMENT","VA-HEPATITIS C RISK SCREEN")
+15 QUIT
+16 ;
+17 ;==========================================
SENDIM ;Send install message.
+1 NEW FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
+2 SET NODE="PXRM*2.0*63"
+3 KILL ^TMP(NODE,$JOB)
+4 ;DBIA #1131 for ^XMB("NETNAME")
+5 SET FROM="PXRM*2.0*63 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*63"
+15 SET ^TMP(NODE,$JOB,1,0)="PXRM*2.0*63 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 ;