Routine: PXRMP12E

PXRMP12E ; SLC/PKR - Exchange inits for PXRM*2.0*12 ;08/13/2009

 ;;2.0;CLINICAL REMINDERS;**12**;Feb 04, 2005;Build 73

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

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)="PATCH 12 ITEMS"

 I MODE["I" S ARRAY(LN,2)="03/13/2009@12:19:56"

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

 S LN=LN+1

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

 I MODE["I" S ARRAY(LN,2)="02/18/2009@10:04:31"

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

 S LN=LN+1

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

 I MODE["I" S ARRAY(LN,2)="07/17/2009@13:31:39"

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

 S LN=LN+1

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

 I MODE["I" S ARRAY(LN,2)="08/12/2009@11:09:31"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-MHV BMI COLORECTAL UPDATES PATCH 12"

 I MODE["I" S ARRAY(LN,2)="04/10/2009@09:36:02"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-MHV HIGH RISK TERMS"

 I MODE["I" S ARRAY(LN,2)="02/16/2009@13:59:14"

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

 S LN=LN+1

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

 I MODE["I" S ARRAY(LN,2)="08/12/2009@11:07:26"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-MHV MAMMOGRAM SCREENING"

 I MODE["I" S ARRAY(LN,2)="03/13/2009@15:22:43"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-MHV RETINOPATHY TERMS"

 I MODE["I" S ARRAY(LN,2)="02/16/2009@14:00:51"

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

 S LN=LN+1

 S ARRAY(LN,1)="RT VA-ALCOHOL NONE PAST 1YR"

 I MODE["I" S ARRAY(LN,2)="02/03/2009@08:32:26"

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

 S LN=LN+1

 S ARRAY(LN,1)="TX HIGH RISK FLU AND PNEUMONIA"

 I MODE["I" S ARRAY(LN,2)="02/09/2009@09:22:55"

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

 S LN=LN+1

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

 I MODE["I" S ARRAY(LN,2)="03/12/2009@08:48:11"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-DEPRESSION SCREENING"

 I MODE["I" S ARRAY(LN,2)="03/12/2009@13:17:22"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-OEF/OIF MONITOR"

 I MODE["I" S ARRAY(LN,2)="03/12/2009@14:17:53"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-TBI/POLY IDT EVALUATIONS ELEMENT UPDATE"

 I MODE["I" S ARRAY(LN,2)="05/12/2009@12:01:42"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-BL DEPRESSION SCREEN"

 I MODE["I" S ARRAY(LN,2)="04/30/2009@12:38:03"

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

 S LN=LN+1

 S ARRAY(LN,1)="PXRM VISIT DATE MONTH REQ YEAR BLANK"

 I MODE["I" S ARRAY(LN,2)="05/06/2009@16:22:03"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-OEF/OIF MONITOR REPORTING"

 I MODE["I" S ARRAY(LN,2)="05/14/2009@15:14:46"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-IRAQ AFGHAN"

 I MODE["I" S ARRAY(LN,2)="06/25/2009@17:47:50"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-DISABLE BRANCHING LOGIC REPLACEMENT ELEMENT"

 I MODE["I" S ARRAY(LN,2)="06/30/2009@10:00:06"

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

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

PXRMP12E  ; SLC/PKR - Exchange inits for PXRM*2.0*12 ;08/13/2009

 +1       ;;2.0;CLINICAL REMINDERS;**12**;Feb 04, 2005;Build 73

 +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)="PATCH 12 ITEMS"

 +7        IF MODE["I"

               SET ARRAY(LN,2)="03/13/2009@12:19:56"

 +8        IF MODE["A"

               SET ARRAY(LN,3)="M"

 +9       ;

 +10       SET LN=LN+1

 +11       SET ARRAY(LN,1)="UPDATE VA-DIABETES"

 +12       IF MODE["I"

               SET ARRAY(LN,2)="02/18/2009@10:04:31"

 +13       IF MODE["A"

               SET ARRAY(LN,3)="I"

 +14      ;

 +15       SET LN=LN+1

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

 +17       IF MODE["I"

               SET ARRAY(LN,2)="07/17/2009@13:31:39"

 +18       IF MODE["A"

               SET ARRAY(LN,3)="M"

 +19      ;

 +20       SET LN=LN+1

 +21       SET ARRAY(LN,1)="VA-EMBEDDED FRAGMENTS SCREEN"

 +22       IF MODE["I"

               SET ARRAY(LN,2)="08/12/2009@11:09:31"

 +23       IF MODE["A"

               SET ARRAY(LN,3)="M"

 +24      ;

 +25       SET LN=LN+1

 +26       SET ARRAY(LN,1)="VA-MHV BMI COLORECTAL UPDATES PATCH 12"

 +27       IF MODE["I"

               SET ARRAY(LN,2)="04/10/2009@09:36:02"

 +28       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +29      ;

 +30       SET LN=LN+1

 +31       SET ARRAY(LN,1)="VA-MHV HIGH RISK TERMS"

 +32       IF MODE["I"

               SET ARRAY(LN,2)="02/16/2009@13:59:14"

 +33       IF MODE["A"

               SET ARRAY(LN,3)="M"

 +34      ;

 +35       SET LN=LN+1

 +36       SET ARRAY(LN,1)="VA-MHV HYPERTENSION"

 +37       IF MODE["I"

               SET ARRAY(LN,2)="08/12/2009@11:07:26"

 +38       IF MODE["A"

               SET ARRAY(LN,3)="M"

 +39      ;

 +40       SET LN=LN+1

 +41       SET ARRAY(LN,1)="VA-MHV MAMMOGRAM SCREENING"

 +42       IF MODE["I"

               SET ARRAY(LN,2)="03/13/2009@15:22:43"

 +43       IF MODE["A"

               SET ARRAY(LN,3)="M"

 +44      ;

 +45       SET LN=LN+1

 +46       SET ARRAY(LN,1)="VA-MHV RETINOPATHY TERMS"

 +47       IF MODE["I"

               SET ARRAY(LN,2)="02/16/2009@14:00:51"

 +48       IF MODE["A"

               SET ARRAY(LN,3)="M"

 +49      ;

 +50       SET LN=LN+1

 +51       SET ARRAY(LN,1)="RT VA-ALCOHOL NONE PAST 1YR"

 +52       IF MODE["I"

               SET ARRAY(LN,2)="02/03/2009@08:32:26"

 +53       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +54      ;

 +55       SET LN=LN+1

 +56       SET ARRAY(LN,1)="TX HIGH RISK FLU AND PNEUMONIA"

 +57       IF MODE["I"

               SET ARRAY(LN,2)="02/09/2009@09:22:55"

 +58       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +59      ;

 +60       SET LN=LN+1

 +61       SET ARRAY(LN,1)="VA-ALCOHOL AUDIT-C POSITIVE F/U EVAL"

 +62       IF MODE["I"

               SET ARRAY(LN,2)="03/12/2009@08:48:11"

 +63       IF MODE["A"

               SET ARRAY(LN,3)="M"

 +64      ;

 +65       SET LN=LN+1

 +66       SET ARRAY(LN,1)="VA-DEPRESSION SCREENING"

 +67       IF MODE["I"

               SET ARRAY(LN,2)="03/12/2009@13:17:22"

 +68       IF MODE["A"

               SET ARRAY(LN,3)="M"

 +69      ;

 +70       SET LN=LN+1

 +71       SET ARRAY(LN,1)="VA-OEF/OIF MONITOR"

 +72       IF MODE["I"

               SET ARRAY(LN,2)="03/12/2009@14:17:53"

 +73       IF MODE["A"

               SET ARRAY(LN,3)="M"

 +74      ;

 +75       SET LN=LN+1

 +76       SET ARRAY(LN,1)="VA-TBI/POLY IDT EVALUATIONS ELEMENT UPDATE"

 +77       IF MODE["I"

               SET ARRAY(LN,2)="05/12/2009@12:01:42"

 +78       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +79       SET LN=LN+1

 +80       SET ARRAY(LN,1)="VA-BL DEPRESSION SCREEN"

 +81       IF MODE["I"

               SET ARRAY(LN,2)="04/30/2009@12:38:03"

 +82       IF MODE["A"

               SET ARRAY(LN,3)="M"

 +83      ;

 +84       SET LN=LN+1

 +85       SET ARRAY(LN,1)="PXRM VISIT DATE MONTH REQ YEAR BLANK"

 +86       IF MODE["I"

               SET ARRAY(LN,2)="05/06/2009@16:22:03"

 +87       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +88      ;

 +89       SET LN=LN+1

 +90       SET ARRAY(LN,1)="VA-OEF/OIF MONITOR REPORTING"

 +91       IF MODE["I"

               SET ARRAY(LN,2)="05/14/2009@15:14:46"

 +92       IF MODE["A"

               SET ARRAY(LN,3)="M"

 +93      ;

 +94       SET LN=LN+1

 +95       SET ARRAY(LN,1)="VA-IRAQ AFGHAN"

 +96       IF MODE["I"

               SET ARRAY(LN,2)="06/25/2009@17:47:50"

 +97       IF MODE["A"

               SET ARRAY(LN,3)="M"

 +98      ;

 +99       SET LN=LN+1

 +100      SET ARRAY(LN,1)="VA-DISABLE BRANCHING LOGIC REPLACEMENT ELEMENT"

 +101      IF MODE["I"

               SET ARRAY(LN,2)="06/30/2009@10:00:06"

 +102      IF MODE["A"

               SET ARRAY(LN,3)="O"

 +103     ;

 +104      IF MODE="IA"

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

 +105      QUIT

 +106     ;

PXRMP12E.m