- 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 Jan 18, 2025@02:48:42 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 ;