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 ---[H[J[2J[HPXRMP78I 875 printed Dec 13, 2024@01:48:15 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
