PXRMP80I ;ISP/AGP - PATCH 80 INSTALLATION ;03/09/2022
;;2.0;CLINICAL REMINDERS;**80**;Feb 04, 2005;Build 7
;
;
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)="PXRM*2.0*80 SMART UPDATES"
I MODE["I" S ARRAY(LN,2)="03/09/2022@14:43:21"
I MODE["A" S ARRAY(LN,3)="O"
;
Q
;
POST ;Post-init
;Install Exchange File entries.
D SMEXINS^PXRMEXSI("EXARRAY","PXRMP80I")
;Enable options and protocols
D OPTIONS^PXRMUTIL("ENABLE","Install of PXRM*2.0*80")
D PROTCOLS^PXRMUTIL("ENABLE","Install of PXRM*2.0*80")
Q
;
PRE ;Pre-init
;Disable options and protocols
D OPTIONS^PXRMUTIL("DISABLE","Install of PXRM*2.0*80")
D PROTCOLS^PXRMUTIL("DISABLE","Install of PXRM*2.0*80")
D DELEXE^PXRMEXSI("EXARRAY","PXRMP80I")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP80I 878 printed Dec 13, 2024@01:48:16 Page 2
PXRMP80I ;ISP/AGP - PATCH 80 INSTALLATION ;03/09/2022
+1 ;;2.0;CLINICAL REMINDERS;**80**;Feb 04, 2005;Build 7
+2 ;
+3 ;
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)="PXRM*2.0*80 SMART UPDATES"
+7 IF MODE["I"
SET ARRAY(LN,2)="03/09/2022@14:43:21"
+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","PXRMP80I")
+3 ;Enable options and protocols
+4 DO OPTIONS^PXRMUTIL("ENABLE","Install of PXRM*2.0*80")
+5 DO PROTCOLS^PXRMUTIL("ENABLE","Install of PXRM*2.0*80")
+6 QUIT
+7 ;
PRE ;Pre-init
+1 ;Disable options and protocols
+2 DO OPTIONS^PXRMUTIL("DISABLE","Install of PXRM*2.0*80")
+3 DO PROTCOLS^PXRMUTIL("DISABLE","Install of PXRM*2.0*80")
+4 DO DELEXE^PXRMEXSI("EXARRAY","PXRMP80I")
+5 QUIT
