PXRMP27I.m

PXRMP27I ;SLC/PKR - Inits for PXRM*2.0*27. ;09/20/2012

 ;;2.0;CLINICAL REMINDERS;**27**;Feb 04, 2005;Build 188

 Q

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

LENDIAG ;Make sure the dialogs are linked and enabled.

 N DIEN,RIEN,TEXT

 S RIEN=$O(^PXD(811.9,"B","VA-LIPID STATIN RX CVD/DM (VER1.0)",""))

 I RIEN="" D

 . S TEXT="Reminder definition VA-LIPID STATIN RX CVD/DM (VER1.0) was not installed!"

 . D MES^XPDUTL(TEXT)

 S DIEN=$O(^PXRMD(801.41,"B","VA-LIPID STATIN RX CVD/DM",""))

 I DIEN="" D

 . S TEXT="Reminder dialog VA-LIPID STATIN RX CVD/DM was not installed!"

 . 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

 ;

 S RIEN=$O(^PXD(811.9,"B","VA-HOMELESSNESS SCREENING",""))

 I RIEN="" D  Q 

 . S TEXT="Reminder definition VA-HOMELESSNESS SCREENING was not installed!"

 . D MES^XPDUTL(TEXT)

 S DIEN=$O(^PXRMD(801.41,"B","VA-HOMELESSNESS SCREENING",""))

 I DIEN="" D

 . S TEXT="Reminder dialog VA-HOMELESSNESS SCREENING was not installed!"

 . 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","PXRMP27E")

 D RENAME^PXRMUTIL(811.9,"VA-LIPID STATIN RX CVD/DM (V1)","VA-LIPID STATIN RX CVD/DM (VER1.0)")

 Q

 ;

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

POST ;Post-init

 ;Enable options and protocols

 D OPTION^PXRMUTIL("ENABLE")

 D PROTOCOL^PXRMUTIL("ENABLE")

 D SETPVER^PXRMUTIL("2.0P27")

 ;Install Exchange File entries.

 ;D SMEXINS^PXRMEXSI("EXARRAY","PXRMP27E")

 D LENDIAG^PXRMP27I

 ;D SENDIM^PXRMP27I

 Q

 ;

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

SENDIM ;Send install message.

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

 S NODE="PXRM*2.0*27"

 K ^TMP(NODE,$J)

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

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

 S ^TMP(NODE,$J,1,0)="PXRM*2.0*27 has been installed."

 S ^TMP(NODE,$J,2,0)="System is "_SYSTEM

 D SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)

 Q

 ;

PXRMP27I  ;SLC/PKR - Inits for PXRM*2.0*27. ;09/20/2012

 +1       ;;2.0;CLINICAL REMINDERS;**27**;Feb 04, 2005;Build 188

 +2        QUIT 

 +3       ;==========================================

LENDIAG   ;Make sure the dialogs are linked and enabled.

 +1        NEW DIEN,RIEN,TEXT

 +2        SET RIEN=$ORDER(^PXD(811.9,"B","VA-LIPID STATIN RX CVD/DM (VER1.0)",""))

 +3        IF RIEN=""

               Begin DoDot:1

 +4                SET TEXT="Reminder definition VA-LIPID STATIN RX CVD/DM (VER1.0) was not installed!"

 +5                DO MES^XPDUTL(TEXT)

               End DoDot:1

 +6        SET DIEN=$ORDER(^PXRMD(801.41,"B","VA-LIPID STATIN RX CVD/DM",""))

 +7        IF DIEN=""

               Begin DoDot:1

 +8                SET TEXT="Reminder dialog VA-LIPID STATIN RX CVD/DM was not installed!"

 +9                DO MES^XPDUTL(TEXT)

               End DoDot:1

 +10       IF (+RIEN>0)

               IF (+DIEN>0)

                   Begin DoDot:1

 +11                   SET ^PXD(811.9,RIEN,51)=DIEN

 +12                   SET $PIECE(^PXRMD(801.41,DIEN,0),U,3)=0

                   End DoDot:1

 +13      ;

 +14       SET RIEN=$ORDER(^PXD(811.9,"B","VA-HOMELESSNESS SCREENING",""))

 +15       IF RIEN=""

               Begin DoDot:1

 +16               SET TEXT="Reminder definition VA-HOMELESSNESS SCREENING was not installed!"

 +17               DO MES^XPDUTL(TEXT)

               End DoDot:1

               QUIT 

 +18       SET DIEN=$ORDER(^PXRMD(801.41,"B","VA-HOMELESSNESS SCREENING",""))

 +19       IF DIEN=""

               Begin DoDot:1

 +20               SET TEXT="Reminder dialog VA-HOMELESSNESS SCREENING was not installed!"

 +21               DO MES^XPDUTL(TEXT)

               End DoDot:1

 +22       IF (+RIEN>0)

               IF (+DIEN>0)

                   Begin DoDot:1

 +23                   SET ^PXD(811.9,RIEN,51)=DIEN

 +24                   SET $PIECE(^PXRMD(801.41,DIEN,0),U,3)=0

                   End DoDot:1

 +25       QUIT 

 +26      ;

 +27      ;==========================================

PRE       ;Pre-init

 +1       ;Disable options and protocols

 +2        DO OPTION^PXRMUTIL("DISABLE")

 +3        DO PROTOCOL^PXRMUTIL("DISABLE")

 +4        DO DELEXE^PXRMEXSI("EXARRAY","PXRMP27E")

 +5        DO RENAME^PXRMUTIL(811.9,"VA-LIPID STATIN RX CVD/DM (V1)","VA-LIPID STATIN RX CVD/DM (VER1.0)")

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

 +5       ;Install Exchange File entries.

 +6       ;D SMEXINS^PXRMEXSI("EXARRAY","PXRMP27E")

 +7        DO LENDIAG^PXRMP27I

 +8       ;D SENDIM^PXRMP27I

 +9        QUIT 

 +10      ;

 +11      ;==========================================

SENDIM    ;Send install message.

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

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

 +3        KILL ^TMP(NODE,$JOB)

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

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

 +15       SET ^TMP(NODE,$JOB,1,0)="PXRM*2.0*27 has been installed."

 +16       SET ^TMP(NODE,$JOB,2,0)="System is "_SYSTEM

 +17       DO SEND^PXRMMSG(NODE,SUBJECT,.TO,FROM)

 +18       QUIT 

 +19      ;