PXRMP19E ;BP/WAT - Exchange inits for PXRM*2.0*19; ;04/20/17 13:49
;;2.0;CLINICAL REMINDERS;**19**;Feb 04, 2005;Build 187
;
;10141 ^XPDUTL
;====================================================
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)="TIU TEMPLATE URL FIX"
I MODE["I" S ARRAY(LN,2)="06/07/2016@06:18:01"
I MODE["A" S ARRAY(LN,3)="O"
;
S LN=LN+1
S ARRAY(LN,1)="VA-HT EDUCATION TOPICS"
I MODE["I" S ARRAY(LN,2)="03/01/2016@14:31:35"
I MODE["A" S ARRAY(LN,3)="O"
;
S LN=LN+1
S ARRAY(LN,1)="VA-HT PROJECT"
I MODE["I" S ARRAY(LN,2)="04/20/2017@13:43:30"
I MODE["A" S ARRAY(LN,3)="O"
;
I MODE="IA" D BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP19E 854 printed Nov 22, 2024@16:57:23 Page 2
PXRMP19E ;BP/WAT - Exchange inits for PXRM*2.0*19; ;04/20/17 13:49
+1 ;;2.0;CLINICAL REMINDERS;**19**;Feb 04, 2005;Build 187
+2 ;
+3 ;10141 ^XPDUTL
+4 ;====================================================
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)="TIU TEMPLATE URL FIX"
+7 IF MODE["I"
SET ARRAY(LN,2)="06/07/2016@06:18:01"
+8 IF MODE["A"
SET ARRAY(LN,3)="O"
+9 ;
+10 SET LN=LN+1
+11 SET ARRAY(LN,1)="VA-HT EDUCATION TOPICS"
+12 IF MODE["I"
SET ARRAY(LN,2)="03/01/2016@14:31:35"
+13 IF MODE["A"
SET ARRAY(LN,3)="O"
+14 ;
+15 SET LN=LN+1
+16 SET ARRAY(LN,1)="VA-HT PROJECT"
+17 IF MODE["I"
SET ARRAY(LN,2)="04/20/2017@13:43:30"
+18 IF MODE["A"
SET ARRAY(LN,3)="O"
+19 ;
+20 IF MODE="IA"
DO BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")
+21 QUIT
