PXRMP24E ;SLC/PKR - Exchange inits for PXRM*2.0*24 ;05/09/2013
;;2.0;CLINICAL REMINDERS;**24**;Feb 04, 2005;Build 193
;====================================================
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-MH NO SHOW APPT CLINICS LL"
I MODE["I" S ARRAY(LN,2)="10/05/2011@12:43:59"
I MODE["A" S ARRAY(LN,3)="O"
;
S LN=LN+1
S ARRAY(LN,1)="VA-MHTC APPT STOP CODES AND EXCLUSION STOP"
I MODE["I" S ARRAY(LN,2)="05/09/2013@11:28:49"
I MODE["A" S ARRAY(LN,3)="O"
;
S LN=LN+1
S ARRAY(LN,1)="VA-MH HIGH RISK NO-SHOW FOLLOW-UP"
I MODE["I" S ARRAY(LN,2)="12/06/2012@15:23:02"
I MODE["A" S ARRAY(LN,3)="O"
;
S LN=LN+1
S ARRAY(LN,1)="VA-MH HIGH RISK NO-SHOW ADHOC RPT"
I MODE["I" S ARRAY(LN,2)="12/06/2012@15:21:05"
I MODE["A" S ARRAY(LN,3)="O"
;
S LN=LN+1
S ARRAY(LN,1)="VA-MHTC NEEDS ASSIGNMENT"
I MODE["I" S ARRAY(LN,2)="12/06/2012@15:23:54"
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[HPXRMP24E 1168 printed Dec 13, 2024@01:47:20 Page 2
PXRMP24E ;SLC/PKR - Exchange inits for PXRM*2.0*24 ;05/09/2013
+1 ;;2.0;CLINICAL REMINDERS;**24**;Feb 04, 2005;Build 193
+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)="VA-MH NO SHOW APPT CLINICS LL"
+7 IF MODE["I"
SET ARRAY(LN,2)="10/05/2011@12:43:59"
+8 IF MODE["A"
SET ARRAY(LN,3)="O"
+9 ;
+10 SET LN=LN+1
+11 SET ARRAY(LN,1)="VA-MHTC APPT STOP CODES AND EXCLUSION STOP"
+12 IF MODE["I"
SET ARRAY(LN,2)="05/09/2013@11:28:49"
+13 IF MODE["A"
SET ARRAY(LN,3)="O"
+14 ;
+15 SET LN=LN+1
+16 SET ARRAY(LN,1)="VA-MH HIGH RISK NO-SHOW FOLLOW-UP"
+17 IF MODE["I"
SET ARRAY(LN,2)="12/06/2012@15:23:02"
+18 IF MODE["A"
SET ARRAY(LN,3)="O"
+19 ;
+20 SET LN=LN+1
+21 SET ARRAY(LN,1)="VA-MH HIGH RISK NO-SHOW ADHOC RPT"
+22 IF MODE["I"
SET ARRAY(LN,2)="12/06/2012@15:21:05"
+23 IF MODE["A"
SET ARRAY(LN,3)="O"
+24 ;
+25 SET LN=LN+1
+26 SET ARRAY(LN,1)="VA-MHTC NEEDS ASSIGNMENT"
+27 IF MODE["I"
SET ARRAY(LN,2)="12/06/2012@15:23:54"
+28 IF MODE["A"
SET ARRAY(LN,3)="O"
+29 ;
+30 IF MODE="IA"
DO BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")
+31 QUIT
+32 ;
