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@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*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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP21I 1609 printed Dec 13, 2024@01:47:16 Page 2
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@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*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
