PXRMP82I ;ISP/AGP - PATCH 82 INSTALLATION ;Oct 26, 2022@13:16:14
;;2.0;CLINICAL REMINDERS;**82**;Feb 04, 2005;Build 28
;
EXARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
;MODE values: I for include in build, A for include action.
N LN
S LN=0
;
S LN=LN+1
S ARRAY(LN,1)="VAL-EHR CUTOVER BANNER"
I MODE["I" S ARRAY(LN,2)="10/26/2022@14:12:52"
I MODE["A" S ARRAY(LN,3)="O"
;
Q
;
POST ;Post-init
;Install Exchange File entries.
D SMEXINS^PXRMEXSI("EXARRAY","PXRMP82I")
;Enable options and protocols
D OPTIONS^PXRMUTIL("ENABLE","Install of PXRM*2.0*82")
D PROTCOLS^PXRMUTIL("ENABLE","Install of PXRM*2.0*82")
Q
;
PRE ;Pre-init
;Disable options and protocols
D OPTIONS^PXRMUTIL("DISABLE","Install of PXRM*2.0*82")
D PROTCOLS^PXRMUTIL("DISABLE","Install of PXRM*2.0*82")
D DELEXE^PXRMEXSI("EXARRAY","PXRMP82I")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP82I 887 printed Dec 13, 2024@01:48:17 Page 2
PXRMP82I ;ISP/AGP - PATCH 82 INSTALLATION ;Oct 26, 2022@13:16:14
+1 ;;2.0;CLINICAL REMINDERS;**82**;Feb 04, 2005;Build 28
+2 ;
EXARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
+1 ;MODE values: I for include in build, A for include action.
+2 NEW LN
+3 SET LN=0
+4 ;
+5 SET LN=LN+1
+6 SET ARRAY(LN,1)="VAL-EHR CUTOVER BANNER"
+7 IF MODE["I"
SET ARRAY(LN,2)="10/26/2022@14:12:52"
+8 IF MODE["A"
SET ARRAY(LN,3)="O"
+9 ;
+10 QUIT
+11 ;
POST ;Post-init
+1 ;Install Exchange File entries.
+2 DO SMEXINS^PXRMEXSI("EXARRAY","PXRMP82I")
+3 ;Enable options and protocols
+4 DO OPTIONS^PXRMUTIL("ENABLE","Install of PXRM*2.0*82")
+5 DO PROTCOLS^PXRMUTIL("ENABLE","Install of PXRM*2.0*82")
+6 QUIT
+7 ;
PRE ;Pre-init
+1 ;Disable options and protocols
+2 DO OPTIONS^PXRMUTIL("DISABLE","Install of PXRM*2.0*82")
+3 DO PROTCOLS^PXRMUTIL("DISABLE","Install of PXRM*2.0*82")
+4 DO DELEXE^PXRMEXSI("EXARRAY","PXRMP82I")
+5 QUIT
+6 ;
