PXRMP21I.m

PXRMP21I ;SLC/PKR,AJB - Inits for PXRM*2.0*21;12/14/2011

 ;;2.0;CLINICAL REMINDERS;**21**;Feb 04, 2005;Build 152

 Q

 ;

CFINC(Y) ;List of computed findings to include in the build.

 N CFLIST,CFNAME

 S CFLIST("VA-OEF/OIF SERVICE (LIST)")=""

 S CFLIST("VA-SERVICE BRANCH")=""

 S CFLIST("VA-SERVICE SEPARATION DATES")=""

 S CFNAME=$P($G(^PXRMD(811.4,Y,0)),U)

 Q $S($D(CFLIST(CFNAME)):1,1:0)

 ;

PRE ;Pre-init

 ;Disable options and protocols

 D OPTION^PXRMUTIL("DISABLE")

 D PROTOCOL^PXRMUTIL("DISABLE")

 I $D(^PXRMD(811.4,"B","VA-LAST SERVICE SEPARATION DATE")) D

 . N PXRMINST

 . S PXRMINST=1

 . D BMES^XPDUTL("Renaming CF VA-LAST SERVICE SEPARATION DATE to VA-SERVICE SEPARATION DATES")

 . D RENAME^PXRMUTIL(811.4,"VA-LAST SERVICE SEPARATION DATE","VA-SERVICE SEPARATION DATES")

 Q

 ;

POST ;Post-init

 ;Enable options and protocols

 D OPTION^PXRMUTIL("ENABLE")

 D PROTOCOL^PXRMUTIL("ENABLE")

 D SETPVER^PXRMUTIL("2.0P21")

 D SENDIM

 Q

 ;

SENDIM ;Send install message.

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

 S NODE="PXRM*2.0*21"

 K ^TMP(NODE,$J)

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

 S FROM="PXRM*2.0*21 Install@"_^XMB("NETNAME")

 ;DBIA #2541

 S SYSTEM=$$KSP^XUPARAM("WHERE")

 I $$PROD^XUPROD(1) S TO("G.CLINICAL REMINDERS SUPPORT@FORUM.VA.GOV")=""

 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*21"

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

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

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

 Q

PXRMP21I  ;SLC/PKR,AJB - Inits for PXRM*2.0*21;12/14/2011

 +1       ;;2.0;CLINICAL REMINDERS;**21**;Feb 04, 2005;Build 152

 +2        QUIT 

 +3       ;

CFINC(Y)  ;List of computed findings to include in the build.

 +1        NEW CFLIST,CFNAME

 +2        SET CFLIST("VA-OEF/OIF SERVICE (LIST)")=""

 +3        SET CFLIST("VA-SERVICE BRANCH")=""

 +4        SET CFLIST("VA-SERVICE SEPARATION DATES")=""

 +5        SET CFNAME=$PIECE($GET(^PXRMD(811.4,Y,0)),U)

 +6        QUIT $SELECT($DATA(CFLIST(CFNAME)):1,1:0)

 +7       ;

PRE       ;Pre-init

 +1       ;Disable options and protocols

 +2        DO OPTION^PXRMUTIL("DISABLE")

 +3        DO PROTOCOL^PXRMUTIL("DISABLE")

 +4        IF $DATA(^PXRMD(811.4,"B","VA-LAST SERVICE SEPARATION DATE"))

               Begin DoDot:1

 +5                NEW PXRMINST

 +6                SET PXRMINST=1

 +7                DO BMES^XPDUTL("Renaming CF VA-LAST SERVICE SEPARATION DATE to VA-SERVICE SEPARATION DATES")

 +8                DO RENAME^PXRMUTIL(811.4,"VA-LAST SERVICE SEPARATION DATE","VA-SERVICE SEPARATION DATES")

               End DoDot:1

 +9        QUIT 

 +10      ;

POST      ;Post-init

 +1       ;Enable options and protocols

 +2        DO OPTION^PXRMUTIL("ENABLE")

 +3        DO PROTOCOL^PXRMUTIL("ENABLE")

 +4        DO SETPVER^PXRMUTIL("2.0P21")

 +5        DO SENDIM

 +6        QUIT 

 +7       ;

SENDIM    ;Send install message.

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

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

 +3        KILL ^TMP(NODE,$JOB)

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

 +5        SET FROM="PXRM*2.0*21 Install@"_^XMB("NETNAME")

 +6       ;DBIA #2541

 +7        SET SYSTEM=$$KSP^XUPARAM("WHERE")

 +8        IF $$PROD^XUPROD(1)

               SET TO("G.CLINICAL REMINDERS SUPPORT@FORUM.VA.GOV")=""

 +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*21"

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

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

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

 +18       QUIT