PXRMP78I.m

PXRMP78I ;ISP/AGP - PATCH 78 INSTALLATION ;02/23/2022

 ;;2.0;CLINICAL REMINDERS;**78**;Feb 04, 2005;Build 10

 ;

 ;

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)="VA-SEXUAL ORIENTATION"

 I MODE["I" S ARRAY(LN,2)="02/23/2022@15:14:17"

 I MODE["A" S ARRAY(LN,3)="O"

 ;

 Q

 ;

POST ;Post-init

 ;Install Exchange File entries.

 D SMEXINS^PXRMEXSI("EXARRAY","PXRMP78I")

 ;Enable options and protocols

 D OPTIONS^PXRMUTIL("ENABLE","Install of PXRM*2.0*78")

 D PROTCOLS^PXRMUTIL("ENABLE","Install of PXRM*2.0*78")

 Q

 ;

PRE ;Pre-init

 ;Disable options and protocols

 D OPTIONS^PXRMUTIL("DISABLE","Install of PXRM*2.0*78")

 D PROTCOLS^PXRMUTIL("DISABLE","Install of PXRM*2.0*78")

 D DELEXE^PXRMEXSI("EXARRAY","PXRMP78I")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXRMP78I   875     printed  Feb 18, 2025@23:14:37                                                                                                                                                                                                     Page 2

PXRMP78I  ;ISP/AGP - PATCH 78 INSTALLATION ;02/23/2022

 +1       ;;2.0;CLINICAL REMINDERS;**78**;Feb 04, 2005;Build 10

 +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)="VA-SEXUAL ORIENTATION"

 +7        IF MODE["I"

               SET ARRAY(LN,2)="02/23/2022@15:14:17"

 +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","PXRMP78I")

 +3       ;Enable options and protocols

 +4        DO OPTIONS^PXRMUTIL("ENABLE","Install of PXRM*2.0*78")

 +5        DO PROTCOLS^PXRMUTIL("ENABLE","Install of PXRM*2.0*78")

 +6        QUIT 

 +7       ;

PRE       ;Pre-init

 +1       ;Disable options and protocols

 +2        DO OPTIONS^PXRMUTIL("DISABLE","Install of PXRM*2.0*78")

 +3        DO PROTCOLS^PXRMUTIL("DISABLE","Install of PXRM*2.0*78")

 +4        DO DELEXE^PXRMEXSI("EXARRAY","PXRMP78I")

 +5        QUIT