PXRMP24I ;SLC/PKR - Inits for PXRM*2.0*24. ;10/12/2012
;;2.0;CLINICAL REMINDERS;**24**;Feb 04, 2005;Build 193
Q
;==========================================
CFINC(Y) ;List of computed findings to include in the build.
N CFLIST,CFNAME,INC
S CFLIST("VA-ADMISSIONS FOR A DATE RANGE")=""
S CFLIST("VA-APPOINTMENTS FOR A PATIENT")=""
S CFLIST("VA-ASU USER CLASS")=""
S CFLIST("VA-EMPLOYEE")=""
S CFLIST("VA-PATIENT RECORD FLAG LIST")=""
S CFLIST("VA-PATIENTS WITH APPOINTMENTS")=""
S CFLIST("VA-PCMM MHTC")=""
;S CFLIST("")=""
S CFNAME=$P($G(^PXRMD(811.4,Y,0)),U)
S INC=$S($D(CFLIST(CFNAME)):1,1:0)
I INC D RMEHIST^PXRMUTIL(811.4,Y)
Q INC
;
;==========================================
MPBPRE ;Pre-init for mult-package build.
S XPDNOQUE=1
Q
;
;==========================================
PRE ;Pre-init
;Disable options and protocols
D OPTION^PXRMUTIL("DISABLE")
D PROTOCOL^PXRMUTIL("DISABLE")
D DELEXE^PXRMEXSI("EXARRAY","PXRMP24E")
D REEXCH^PXRMP24I
D RENAME^PXRMUTIL(811.5,"VA-MH APPTS FOR MHTC ASSIGNMENT","VA-MH KEPT APPTS FOR MHTC ASSIGNMENT")
Q
;
;==========================================
POST ;Post-init
;Enable options and protocols
D OPTION^PXRMUTIL("ENABLE")
D PROTOCOL^PXRMUTIL("ENABLE")
D SETPVER^PXRMUTIL("2.0P24")
;Install Exchange File entries.
D SMEXINS^PXRMEXSI("EXARRAY","PXRMP24E")
D RHTF^PXRMP24I
D SENDIM^PXRMP24I
Q
;
;==========================================
REEXCH ;Rename reminder definition VA-MHTC CANDIDATE and remove the old
;Exchange entry
N IEN,LIST,LUVALUE,PXRMINST
S PXRMINST=1
D RENAME^PXRMUTIL(811.9,"VA-MHTC CANDIDATE","VA-MHTC NEEDS ASSIGNMENT")
S LUVALUE(1)="VA-MHTC CANDIDATE"
S LUVALUE(2)="05/23/2012@09:42:32"
S IEN=$$FIND1^DIC(811.8,"","KU",.LUVALUE)
S LIST(IEN)=""
D DELETE^PXRMEXU1(.LIST)
Q
;
;==========================================
RHTF ;Rename and inactivate health factors and terms that are no longer used.
N IEN,NAME
D BMES^XPDUTL("Renaming/inactivating health factors and terms that are no longer used.")
D RENAME^PXRMUTIL(9999999.64,"MH NOSHOW INITIATE WELLNESS CHECK","ZZMH NOSHOW INITIATE WELLNESS CHECK")
D RENAME^PXRMUTIL(9999999.64,"MH NOSHOW SUPPORT CONTACT","ZZMH NOSHOW SUPPORT CONTACT")
D RENAME^PXRMUTIL(9999999.64,"MH NOSHOW UNABLE TO REACH PT","ZZMH NOSHOW UNABLE TO REACH PT")
F NAME="ZZMH NOSHOW INITIATE WELLNESS CHECK","ZZMH NOSHOW SUPPORT CONTACT","ZZMH NOSHOW UNABLE TO REACH PT" D
. S IEN=+$$FIND1^DIC(9999999.64,"","BX",NAME)
. I IEN>0 S $P(^AUTTHF(IEN,0),U,11)=1
D RENAME^PXRMUTIL(811.5,"VA-MH NOSHOW INITIATE WELLNESS CHECK","ZZVA-MH NOSHOW INITIATE WELLNESS CHECK")
D RENAME^PXRMUTIL(811.5,"VA-MH NOSHOW SUPPORT CONTACT","ZZVA-MH NOSHOW SUPPORT CONTACT")
D RENAME^PXRMUTIL(811.5,"VA-MH NOSHOW UNABLE TO REACH PT","ZZVA-MH NOSHOW UNABLE TO REACH PT")
Q
;
;==========================================
SENDIM ;Send install message.
N FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
S NODE="PXRM*2.0*24"
K ^TMP(NODE,$J)
;DBIA #1131 for ^XMB("NETNAME")
S FROM="PXRM*2.0*24 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*24"
S ^TMP(NODE,$J,1,0)="PXRM*2.0*24 has been installed."
S ^TMP(NODE,$J,2,0)="System is "_SYSTEM
D SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP24I 3562 printed Nov 22, 2024@16:57:33 Page 2
PXRMP24I ;SLC/PKR - Inits for PXRM*2.0*24. ;10/12/2012
+1 ;;2.0;CLINICAL REMINDERS;**24**;Feb 04, 2005;Build 193
+2 QUIT
+3 ;==========================================
CFINC(Y) ;List of computed findings to include in the build.
+1 NEW CFLIST,CFNAME,INC
+2 SET CFLIST("VA-ADMISSIONS FOR A DATE RANGE")=""
+3 SET CFLIST("VA-APPOINTMENTS FOR A PATIENT")=""
+4 SET CFLIST("VA-ASU USER CLASS")=""
+5 SET CFLIST("VA-EMPLOYEE")=""
+6 SET CFLIST("VA-PATIENT RECORD FLAG LIST")=""
+7 SET CFLIST("VA-PATIENTS WITH APPOINTMENTS")=""
+8 SET CFLIST("VA-PCMM MHTC")=""
+9 ;S CFLIST("")=""
+10 SET CFNAME=$PIECE($GET(^PXRMD(811.4,Y,0)),U)
+11 SET INC=$SELECT($DATA(CFLIST(CFNAME)):1,1:0)
+12 IF INC
DO RMEHIST^PXRMUTIL(811.4,Y)
+13 QUIT INC
+14 ;
+15 ;==========================================
MPBPRE ;Pre-init for mult-package build.
+1 SET XPDNOQUE=1
+2 QUIT
+3 ;
+4 ;==========================================
PRE ;Pre-init
+1 ;Disable options and protocols
+2 DO OPTION^PXRMUTIL("DISABLE")
+3 DO PROTOCOL^PXRMUTIL("DISABLE")
+4 DO DELEXE^PXRMEXSI("EXARRAY","PXRMP24E")
+5 DO REEXCH^PXRMP24I
+6 DO RENAME^PXRMUTIL(811.5,"VA-MH APPTS FOR MHTC ASSIGNMENT","VA-MH KEPT APPTS FOR MHTC ASSIGNMENT")
+7 QUIT
+8 ;
+9 ;==========================================
POST ;Post-init
+1 ;Enable options and protocols
+2 DO OPTION^PXRMUTIL("ENABLE")
+3 DO PROTOCOL^PXRMUTIL("ENABLE")
+4 DO SETPVER^PXRMUTIL("2.0P24")
+5 ;Install Exchange File entries.
+6 DO SMEXINS^PXRMEXSI("EXARRAY","PXRMP24E")
+7 DO RHTF^PXRMP24I
+8 DO SENDIM^PXRMP24I
+9 QUIT
+10 ;
+11 ;==========================================
REEXCH ;Rename reminder definition VA-MHTC CANDIDATE and remove the old
+1 ;Exchange entry
+2 NEW IEN,LIST,LUVALUE,PXRMINST
+3 SET PXRMINST=1
+4 DO RENAME^PXRMUTIL(811.9,"VA-MHTC CANDIDATE","VA-MHTC NEEDS ASSIGNMENT")
+5 SET LUVALUE(1)="VA-MHTC CANDIDATE"
+6 SET LUVALUE(2)="05/23/2012@09:42:32"
+7 SET IEN=$$FIND1^DIC(811.8,"","KU",.LUVALUE)
+8 SET LIST(IEN)=""
+9 DO DELETE^PXRMEXU1(.LIST)
+10 QUIT
+11 ;
+12 ;==========================================
RHTF ;Rename and inactivate health factors and terms that are no longer used.
+1 NEW IEN,NAME
+2 DO BMES^XPDUTL("Renaming/inactivating health factors and terms that are no longer used.")
+3 DO RENAME^PXRMUTIL(9999999.64,"MH NOSHOW INITIATE WELLNESS CHECK","ZZMH NOSHOW INITIATE WELLNESS CHECK")
+4 DO RENAME^PXRMUTIL(9999999.64,"MH NOSHOW SUPPORT CONTACT","ZZMH NOSHOW SUPPORT CONTACT")
+5 DO RENAME^PXRMUTIL(9999999.64,"MH NOSHOW UNABLE TO REACH PT","ZZMH NOSHOW UNABLE TO REACH PT")
+6 FOR NAME="ZZMH NOSHOW INITIATE WELLNESS CHECK","ZZMH NOSHOW SUPPORT CONTACT","ZZMH NOSHOW UNABLE TO REACH PT"
Begin DoDot:1
+7 SET IEN=+$$FIND1^DIC(9999999.64,"","BX",NAME)
+8 IF IEN>0
SET $PIECE(^AUTTHF(IEN,0),U,11)=1
End DoDot:1
+9 DO RENAME^PXRMUTIL(811.5,"VA-MH NOSHOW INITIATE WELLNESS CHECK","ZZVA-MH NOSHOW INITIATE WELLNESS CHECK")
+10 DO RENAME^PXRMUTIL(811.5,"VA-MH NOSHOW SUPPORT CONTACT","ZZVA-MH NOSHOW SUPPORT CONTACT")
+11 DO RENAME^PXRMUTIL(811.5,"VA-MH NOSHOW UNABLE TO REACH PT","ZZVA-MH NOSHOW UNABLE TO REACH PT")
+12 QUIT
+13 ;
+14 ;==========================================
SENDIM ;Send install message.
+1 NEW FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
+2 SET NODE="PXRM*2.0*24"
+3 KILL ^TMP(NODE,$JOB)
+4 ;DBIA #1131 for ^XMB("NETNAME")
+5 SET FROM="PXRM*2.0*24 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*24"
+15 SET ^TMP(NODE,$JOB,1,0)="PXRM*2.0*24 has been installed."
+16 SET ^TMP(NODE,$JOB,2,0)="System is "_SYSTEM
+17 DO SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
+18 QUIT
+19 ;
