Routine: PXRMP18E

PXRMP18E ;SLC/PKR - Exchange inits for PXRM*2.0*18 ;12/09/2011

 ;;2.0;CLINICAL REMINDERS;**18**;Feb 04, 2005;Build 152

 ;====================================================

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)="NATIONAL BLOOD PRESSURE CHANGES"

 I MODE["I" S ARRAY(LN,2)="04/05/2011@13:20:58"

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

 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)="U"

 S LN=LN+1

 S ARRAY(LN,1)="VA-INFLUENZA 2010 UPDATES"

 I MODE["I" S ARRAY(LN,2)="08/05/2010@11:17:11"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-TEXT INFO SCREEN FOR AAA (RD)"

 I MODE["I" S ARRAY(LN,2)="09/13/2010@11:35:37"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA MH SCREENING REMINDERS UPDATE"

 I MODE["I" S ARRAY(LN,2)="09/13/2010@11:36:57"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-EMBEDDED FRAGMENTS RISK EVALUATION"

 I MODE["I" S ARRAY(LN,2)="09/13/2010@11:38:38"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA BRANCHING LOGIC REMINDER UPDATES OEF/OIF"

 I MODE["I" S ARRAY(LN,2)="09/13/2010@11:42:11"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-INFLUENZA H1N1 UPDATE"

 I MODE["I" S ARRAY(LN,2)="09/13/2010@11:59:15"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-MHV INFLUENZA VACCINE"

 I MODE["I" S ARRAY(LN,2)="09/23/2010@10:39:30"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-ALCOHOL F/U POS AUDIT-C"

 I MODE["I" S ARRAY(LN,2)="09/24/2010@08:19:11"

 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)="11/17/2011@10:34:11"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-TB/POSITIVE PPD"

 I MODE["I" S ARRAY(LN,2)="10/25/2011@09:56:17"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-PATIENT RECORD FLAG INFORMATION"

 I MODE["I" S ARRAY(LN,2)="12/09/2011@08:17:34"

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

 I MODE="IA" D BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")

PXRMP18E  ;SLC/PKR - Exchange inits for PXRM*2.0*18 ;12/09/2011

 +1       ;;2.0;CLINICAL REMINDERS;**18**;Feb 04, 2005;Build 152

 +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)="NATIONAL BLOOD PRESSURE CHANGES"

 +7        IF MODE["I"

               SET ARRAY(LN,2)="04/05/2011@13:20:58"

 +8        IF MODE["A"

               SET ARRAY(LN,3)="U"

 +9       ;

 +10       SET LN=LN+1

 +11       SET ARRAY(LN,1)="VA-MH NO SHOW APPT CLINICS LL"

 +12       IF MODE["I"

               SET ARRAY(LN,2)="10/05/2011@12:43:59"

 +13       IF MODE["A"

               SET ARRAY(LN,3)="U"

 +14      ;

 +15       SET LN=LN+1

 +16       SET ARRAY(LN,1)="VA-INFLUENZA 2010 UPDATES"

 +17       IF MODE["I"

               SET ARRAY(LN,2)="08/05/2010@11:17:11"

 +18       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +19      ;

 +20       SET LN=LN+1

 +21       SET ARRAY(LN,1)="VA-TEXT INFO SCREEN FOR AAA (RD)"

 +22       IF MODE["I"

               SET ARRAY(LN,2)="09/13/2010@11:35:37"

 +23       IF MODE["A"

               SET ARRAY(LN,3)="M"

 +24      ;

 +25       SET LN=LN+1

 +26       SET ARRAY(LN,1)="VA MH SCREENING REMINDERS UPDATE"

 +27       IF MODE["I"

               SET ARRAY(LN,2)="09/13/2010@11:36:57"

 +28       IF MODE["A"

               SET ARRAY(LN,3)="U"

 +29      ;

 +30       SET LN=LN+1

 +31       SET ARRAY(LN,1)="VA-EMBEDDED FRAGMENTS RISK EVALUATION"

 +32       IF MODE["I"

               SET ARRAY(LN,2)="09/13/2010@11:38:38"

 +33       IF MODE["A"

               SET ARRAY(LN,3)="U"

 +34      ;

 +35       SET LN=LN+1

 +36       SET ARRAY(LN,1)="VA BRANCHING LOGIC REMINDER UPDATES OEF/OIF"

 +37       IF MODE["I"

               SET ARRAY(LN,2)="09/13/2010@11:42:11"

 +38       IF MODE["A"

               SET ARRAY(LN,3)="U"

 +39      ;

 +40       SET LN=LN+1

 +41       SET ARRAY(LN,1)="VA-INFLUENZA H1N1 UPDATE"

 +42       IF MODE["I"

               SET ARRAY(LN,2)="09/13/2010@11:59:15"

 +43       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +44      ;

 +45       SET LN=LN+1

 +46       SET ARRAY(LN,1)="VA-MHV INFLUENZA VACCINE"

 +47       IF MODE["I"

               SET ARRAY(LN,2)="09/23/2010@10:39:30"

 +48       IF MODE["A"

               SET ARRAY(LN,3)="U"

 +49      ;

 +50       SET LN=LN+1

 +51       SET ARRAY(LN,1)="VA-ALCOHOL F/U POS AUDIT-C"

 +52       IF MODE["I"

               SET ARRAY(LN,2)="09/24/2010@08:19:11"

 +53       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +54      ;

 +55       SET LN=LN+1

 +56       SET ARRAY(LN,1)="VA-MH HIGH RISK NO-SHOW FOLLOW-UP"

 +57       IF MODE["I"

               SET ARRAY(LN,2)="11/17/2011@10:34:11"

 +58       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +59      ;

 +60       SET LN=LN+1

 +61       SET ARRAY(LN,1)="VA-TB/POSITIVE PPD"

 +62       IF MODE["I"

               SET ARRAY(LN,2)="10/25/2011@09:56:17"

 +63       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +64      ;

 +65       SET LN=LN+1

 +66       SET ARRAY(LN,1)="VA-PATIENT RECORD FLAG INFORMATION"

 +67       IF MODE["I"

               SET ARRAY(LN,2)="12/09/2011@08:17:34"

 +68       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +69      ;

 +70       IF MODE="IA"

               DO BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")

 +71       QUIT

 +72      ;

PXRMP18E.m