PXRMP80I.m

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 ---PXRMP80I   878     printed  Mar 13, 2025@20:52:54                                                                                                                                                                                                     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