PXRMP30I ;SLC/PKR - Inits for PXRM*2.0*30. ;04/18/2013
;;2.0;CLINICAL REMINDERS;**30**;Feb 04, 2005;Build 206
Q
;==========================================
DELDIE ;Delete Dialog file entries.
N IEN,IND,JND,LIST,LUVALUE,NAME,NUM
S NAME(1)="VA-URL UPDATE CARRIER ELEMENT"
S NAME(2)="VA-URL UPDATE CARRIER ELEMENT 2"
D BMES^XPDUTL("Deleting unneeded Dialog entries.")
F IND=1:1:2 D
. S IEN=+$O(^PXRMD(801.41,"B",NAME(IND),""))
. I IEN=0 Q
. D MES^XPDUTL("Deleting "_NAME(IND))
. D DELETE^PXRMEXFI(801.41,IEN)
Q
;
;==========================================
DELEXE ;Delete Exchange file entries.
N IND,LIST,NAME,NUM
S NAME="VA-URL UPDATE CARRIER ELEMENT"
D BMES^XPDUTL("Deleting unneeded Exchange entries.")
D FIND^DIC(811.8,"","","U",NAME,"","","","","LIST")
I '$D(LIST) Q
S NUM=+$P(LIST("DILIST",0),U,1)
I NUM=0 Q
F IND=1:1:NUM D
. D MES^XPDUTL(" Deleting "_LIST("DILIST",1,IND))
. N DA,DIK
. S DIK="^PXD(811.8,"
. S DA=LIST("DILIST",2,IND)
. D ^DIK
Q
;
;==========================================
LENDIAG ;There is a bug in the pre patch 24 version of PXRMEXSI that
;causes the VA-ECOE INITIAL NOTE dialog to be erroneously linked
;to the reminder VA-ALCOHOL USE SCREEN (AUDIT-C), fix that.
N DIEN,RIEN,TEXT
S RIEN=$O(^PXD(811.9,"B","VA-ALCOHOL USE SCREEN (AUDIT-C)",""))
I RIEN="" D
. S TEXT="Reminder definition VA-ALCOHOL USE SCREEN (AUDIT-C) does not exist!"
. D MES^XPDUTL(TEXT)
S DIEN=$O(^PXRMD(801.41,"B","VA-ALCOHOL USE SCREENING (AUDIT-C)",""))
I DIEN="" D
. S TEXT="Reminder dialog VA-ALCOHOL USE SCREENING (AUDIT-C) does not exist!"
. D MES^XPDUTL(TEXT)
I (+RIEN>0),(+DIEN>0) D
. S ^PXD(811.9,RIEN,51)=DIEN
. S $P(^PXRMD(801.41,DIEN,0),U,3)=0
Q
;
;==========================================
PRE ;Pre-init
;Disable options and protocols
D OPTION^PXRMUTIL("DISABLE")
D PROTOCOL^PXRMUTIL("DISABLE")
D DELEXE^PXRMEXSI("EXARRAY","PXRMP30E")
Q
;
;==========================================
POST ;Post-init
;Enable options and protocols
D OPTION^PXRMUTIL("ENABLE")
D PROTOCOL^PXRMUTIL("ENABLE")
D SETPVER^PXRMUTIL("2.0P30")
;Install Exchange File entries.
D SMEXINS^PXRMEXSI("EXARRAY","PXRMP30E")
D LENDIAG^PXRMP30I
D DELDIE^PXRMP30I
D DELEXE^PXRMP30I
D SENDIM^PXRMP30I
Q
;
;==========================================
SENDIM ;Send install message.
N FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
S NODE="PXRM*2.0*30"
K ^TMP(NODE,$J)
;DBIA #1131 for ^XMB("NETNAME")
S FROM="PXRM*2.0*30 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*30"
S ^TMP(NODE,$J,1,0)="PXRM*2.0*30 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[HPXRMP30I 3010 printed Dec 13, 2024@01:47:29 Page 2
PXRMP30I ;SLC/PKR - Inits for PXRM*2.0*30. ;04/18/2013
+1 ;;2.0;CLINICAL REMINDERS;**30**;Feb 04, 2005;Build 206
+2 QUIT
+3 ;==========================================
DELDIE ;Delete Dialog file entries.
+1 NEW IEN,IND,JND,LIST,LUVALUE,NAME,NUM
+2 SET NAME(1)="VA-URL UPDATE CARRIER ELEMENT"
+3 SET NAME(2)="VA-URL UPDATE CARRIER ELEMENT 2"
+4 DO BMES^XPDUTL("Deleting unneeded Dialog entries.")
+5 FOR IND=1:1:2
Begin DoDot:1
+6 SET IEN=+$ORDER(^PXRMD(801.41,"B",NAME(IND),""))
+7 IF IEN=0
QUIT
+8 DO MES^XPDUTL("Deleting "_NAME(IND))
+9 DO DELETE^PXRMEXFI(801.41,IEN)
End DoDot:1
+10 QUIT
+11 ;
+12 ;==========================================
DELEXE ;Delete Exchange file entries.
+1 NEW IND,LIST,NAME,NUM
+2 SET NAME="VA-URL UPDATE CARRIER ELEMENT"
+3 DO BMES^XPDUTL("Deleting unneeded Exchange entries.")
+4 DO FIND^DIC(811.8,"","","U",NAME,"","","","","LIST")
+5 IF '$DATA(LIST)
QUIT
+6 SET NUM=+$PIECE(LIST("DILIST",0),U,1)
+7 IF NUM=0
QUIT
+8 FOR IND=1:1:NUM
Begin DoDot:1
+9 DO MES^XPDUTL(" Deleting "_LIST("DILIST",1,IND))
+10 NEW DA,DIK
+11 SET DIK="^PXD(811.8,"
+12 SET DA=LIST("DILIST",2,IND)
+13 DO ^DIK
End DoDot:1
+14 QUIT
+15 ;
+16 ;==========================================
LENDIAG ;There is a bug in the pre patch 24 version of PXRMEXSI that
+1 ;causes the VA-ECOE INITIAL NOTE dialog to be erroneously linked
+2 ;to the reminder VA-ALCOHOL USE SCREEN (AUDIT-C), fix that.
+3 NEW DIEN,RIEN,TEXT
+4 SET RIEN=$ORDER(^PXD(811.9,"B","VA-ALCOHOL USE SCREEN (AUDIT-C)",""))
+5 IF RIEN=""
Begin DoDot:1
+6 SET TEXT="Reminder definition VA-ALCOHOL USE SCREEN (AUDIT-C) does not exist!"
+7 DO MES^XPDUTL(TEXT)
End DoDot:1
+8 SET DIEN=$ORDER(^PXRMD(801.41,"B","VA-ALCOHOL USE SCREENING (AUDIT-C)",""))
+9 IF DIEN=""
Begin DoDot:1
+10 SET TEXT="Reminder dialog VA-ALCOHOL USE SCREENING (AUDIT-C) does not exist!"
+11 DO MES^XPDUTL(TEXT)
End DoDot:1
+12 IF (+RIEN>0)
IF (+DIEN>0)
Begin DoDot:1
+13 SET ^PXD(811.9,RIEN,51)=DIEN
+14 SET $PIECE(^PXRMD(801.41,DIEN,0),U,3)=0
End DoDot:1
+15 QUIT
+16 ;
+17 ;==========================================
PRE ;Pre-init
+1 ;Disable options and protocols
+2 DO OPTION^PXRMUTIL("DISABLE")
+3 DO PROTOCOL^PXRMUTIL("DISABLE")
+4 DO DELEXE^PXRMEXSI("EXARRAY","PXRMP30E")
+5 QUIT
+6 ;
+7 ;==========================================
POST ;Post-init
+1 ;Enable options and protocols
+2 DO OPTION^PXRMUTIL("ENABLE")
+3 DO PROTOCOL^PXRMUTIL("ENABLE")
+4 DO SETPVER^PXRMUTIL("2.0P30")
+5 ;Install Exchange File entries.
+6 DO SMEXINS^PXRMEXSI("EXARRAY","PXRMP30E")
+7 DO LENDIAG^PXRMP30I
+8 DO DELDIE^PXRMP30I
+9 DO DELEXE^PXRMP30I
+10 DO SENDIM^PXRMP30I
+11 QUIT
+12 ;
+13 ;==========================================
SENDIM ;Send install message.
+1 NEW FROM,NODE,PARAM,SYSTEM,SUBJECT,TO,VALUE
+2 SET NODE="PXRM*2.0*30"
+3 KILL ^TMP(NODE,$JOB)
+4 ;DBIA #1131 for ^XMB("NETNAME")
+5 SET FROM="PXRM*2.0*30 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*30"
+15 SET ^TMP(NODE,$JOB,1,0)="PXRM*2.0*30 has been installed."
+16 SET ^TMP(NODE,$JOB,2,0)="System is "_SYSTEM
+17 DO SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)
+18 QUIT
+19 ;
