PXRMP82I.m

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 ---PXRMP82I   887     printed  Apr 09, 2024@20:54:08                                                                                                                                                                                                     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       ;