Routine: PXRMP6IE

PXRMP6IE ; SLC/PKR - Exchange inits for PXRM*2.0*6 ;12/03/2007

 ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123

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

DELEXI ;If the Exchange File entry already exists delete it.

 N ARRAY,IC,IND,LIST,LUVALUE,NUM

 D EXARRAY^PXRMP6IE("L",.ARRAY)

 S IC=0

 F  S IC=$O(ARRAY(IC)) Q:'IC  D

 . S LUVALUE(1)=ARRAY(IC,1)

 . D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")

 . I '$D(LIST) Q

 . S NUM=$P(LIST("DILIST",0),U,1)

 . I NUM'=0 D

 .. F IND=1:1:NUM D

 ... N DA,DIK

 ... S DIK="^PXD(811.8,"

 ... S DA=LIST("DILIST",2,IND)

 ... D ^DIK

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

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)="PXRM*2*6 TAXONOMY UPDATES"

 I MODE["I" S ARRAY(LN,2)="05/25/2007@08:40:29"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-GEC REFERRAL CARE RECOMMENDATION"

 I MODE["I" S ARRAY(LN,2)="07/30/2007@15:15"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-GEC REFERRAL NURSING ASSESSMENT"

 I MODE["I" S ARRAY(LN,2)="07/30/2007@15:15"

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

 S LN=LN+1

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

 I MODE["I" S ARRAY(LN,2)="05/31/2007@14:06:20"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-WH HYSTERECTOMY W/CERVIX REMOVED"

 I MODE["I" S ARRAY(LN,2)="07/06/2007@08:26:25"

 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)="12/03/2007@12:43:06"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-ALCOHOL USE SCREEN (AUDIT-C)"

 I MODE["I" S ARRAY(LN,2)="09/21/2007@17:52"

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

 S LN=LN+1

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

 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:38"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-BL ALCOHOL WITHIN SAFE LIMIT"

 I MODE["I" S ARRAY(LN,2)="08/13/2007@16:20"

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

 S LN=LN+1

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

 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:40"

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

 S LN=LN+1

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

 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:41"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-BL OEF/OIF GI SX"

 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:41"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-BL OEF/OIF OTHER SX"

 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:41"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-BL OEF/OIF SERVICE INFO ENTERED"

 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:41"

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-BL OEF/OIF SKIN SX"

 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:41"

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

 S LN=LN+1

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

 I MODE["I" S ARRAY(LN,2)="07/27/2007@15:43"

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

 S LN=LN+1

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

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

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

 S LN=LN+1

 S ARRAY(LN,1)="VA-IRAQ & AFGHAN POST-DEPLOY SCREEN"

 I MODE["I" S ARRAY(LN,2)="12/06/2007@09:27:06"

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

 S LN=LN+1

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

 I MODE["I" S ARRAY(LN,2)="07/27/2007@11:34"

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

 S LN=LN+1

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

 I MODE["I" S ARRAY(LN,2)="10/09/2007@15:21"

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

 S LN=LN+1

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

 I MODE["I" S ARRAY(LN,2)="12/03/2007@12:19:35"

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

 S LN=LN+1

 S ARRAY(LN,1)="PXRM RESULT GROUP UPDATE REMINDER"

 I MODE["I" S ARRAY(LN,2)="12/12/2007@10:53:14"

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

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

EXFINC(Y) ;Return a 1 if the Exchange file entry is in the list to

 ;include in the build. This is used in the build to determine which

 ;entries to include.

 N EXARRAY,FOUND,IEN,IC,LUVALUE

 D EXARRAY^PXRMP6IE("I",.EXARRAY)

 S FOUND=0

 S IC=0

 F  S IC=+$O(EXARRAY(IC)) Q:(IC=0)!(FOUND)  D

 . M LUVALUE=EXARRAY(IC)

 . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)

 . I IEN=Y S FOUND=1 Q

 Q FOUND

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

SMEXINS ;Silent mode install.

 N ACTION,EXARRAY,IC,IEN,LUVALUE,PXRMINST,TEXT

 S PXRMINST=1

 D EXARRAY^PXRMP6IE("IA",.EXARRAY)

 S IC=0

 F  S IC=$O(EXARRAY(IC)) Q:'IC  D

 . S LUVALUE(1)=EXARRAY(IC,1),LUVALUE(2)=EXARRAY(IC,2)

 . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)

 . I IEN=0 Q

 . S TEXT="Installing Reminder Exchange entry "_LUVALUE(1)

 . D BMES^XPDUTL(TEXT)

 . S ACTION=EXARRAY(IC,3)

 . D INSTALL^PXRMEXSI(IEN,ACTION,1)

PXRMP6IE  ; SLC/PKR - Exchange inits for PXRM*2.0*6 ;12/03/2007

 +1       ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123

 +2        QUIT

 +3       ;=======================================================

DELEXI    ;If the Exchange File entry already exists delete it.

 +1        NEW ARRAY,IC,IND,LIST,LUVALUE,NUM

 +2        DO EXARRAY^PXRMP6IE("L",.ARRAY)

 +3        SET IC=0

 +4        FOR

               SET IC=$ORDER(ARRAY(IC))

               IF 'IC

                   QUIT

               Begin DoDot:1

 +5                SET LUVALUE(1)=ARRAY(IC,1)

 +6                DO FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")

 +7                IF '$DATA(LIST)

                       QUIT

 +8                SET NUM=$PIECE(LIST("DILIST",0),U,1)

 +9                IF NUM'=0

                       Begin DoDot:2

 +10                       FOR IND=1:1:NUM

                               Begin DoDot:3

 +11                               NEW DA,DIK

 +12                               SET DIK="^PXD(811.8,"

 +13                               SET DA=LIST("DILIST",2,IND)

 +14                               DO ^DIK

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +15       QUIT

 +16      ;

 +17      ;====================================================

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)="PXRM*2*6 TAXONOMY UPDATES"

 +7        IF MODE["I"

               SET ARRAY(LN,2)="05/25/2007@08:40:29"

 +8        IF MODE["A"

               SET ARRAY(LN,3)="O"

 +9       ;

 +10       SET LN=LN+1

 +11       SET ARRAY(LN,1)="VA-GEC REFERRAL CARE RECOMMENDATION"

 +12       IF MODE["I"

               SET ARRAY(LN,2)="07/30/2007@15:15"

 +13       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +14      ;

 +15       SET LN=LN+1

 +16       SET ARRAY(LN,1)="VA-GEC REFERRAL NURSING ASSESSMENT"

 +17       IF MODE["I"

               SET ARRAY(LN,2)="07/30/2007@15:15"

 +18       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +19      ;

 +20       SET LN=LN+1

 +21       SET ARRAY(LN,1)="VA-MH TERM UPDATE"

 +22       IF MODE["I"

               SET ARRAY(LN,2)="05/31/2007@14:06:20"

 +23       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +24      ;

 +25       SET LN=LN+1

 +26       SET ARRAY(LN,1)="VA-WH HYSTERECTOMY W/CERVIX REMOVED"

 +27       IF MODE["I"

               SET ARRAY(LN,2)="07/06/2007@08:26:25"

 +28       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +29      ;

 +30       SET LN=LN+1

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

 +32       IF MODE["I"

               SET ARRAY(LN,2)="12/03/2007@12:43:06"

 +33       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +34      ;

 +35       SET LN=LN+1

 +36       SET ARRAY(LN,1)="VA-ALCOHOL USE SCREEN (AUDIT-C)"

 +37       IF MODE["I"

               SET ARRAY(LN,2)="09/21/2007@17:52"

 +38       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +39      ;

 +40       SET LN=LN+1

 +41       SET ARRAY(LN,1)="VA-BL ALCOHOL SCREEN"

 +42       IF MODE["I"

               SET ARRAY(LN,2)="07/27/2007@15:38"

 +43       IF MODE["A"

               SET ARRAY(LN,3)="I"

 +44      ;

 +45       SET LN=LN+1

 +46       SET ARRAY(LN,1)="VA-BL ALCOHOL WITHIN SAFE LIMIT"

 +47       IF MODE["I"

               SET ARRAY(LN,2)="08/13/2007@16:20"

 +48       IF MODE["A"

               SET ARRAY(LN,3)="I"

 +49      ;

 +50       SET LN=LN+1

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

 +52       IF MODE["I"

               SET ARRAY(LN,2)="07/27/2007@15:40"

 +53       IF MODE["A"

               SET ARRAY(LN,3)="I"

 +54      ;

 +55       SET LN=LN+1

 +56       SET ARRAY(LN,1)="VA-BL OEF/OIF FEVER"

 +57       IF MODE["I"

               SET ARRAY(LN,2)="07/27/2007@15:41"

 +58       IF MODE["A"

               SET ARRAY(LN,3)="I"

 +59      ;

 +60       SET LN=LN+1

 +61       SET ARRAY(LN,1)="VA-BL OEF/OIF GI SX"

 +62       IF MODE["I"

               SET ARRAY(LN,2)="07/27/2007@15:41"

 +63       IF MODE["A"

               SET ARRAY(LN,3)="I"

 +64      ;

 +65       SET LN=LN+1

 +66       SET ARRAY(LN,1)="VA-BL OEF/OIF OTHER SX"

 +67       IF MODE["I"

               SET ARRAY(LN,2)="07/27/2007@15:41"

 +68       IF MODE["A"

               SET ARRAY(LN,3)="I"

 +69      ;

 +70       SET LN=LN+1

 +71       SET ARRAY(LN,1)="VA-BL OEF/OIF SERVICE INFO ENTERED"

 +72       IF MODE["I"

               SET ARRAY(LN,2)="07/27/2007@15:41"

 +73       IF MODE["A"

               SET ARRAY(LN,3)="I"

 +74      ;

 +75       SET LN=LN+1

 +76       SET ARRAY(LN,1)="VA-BL OEF/OIF SKIN SX"

 +77       IF MODE["I"

               SET ARRAY(LN,2)="07/27/2007@15:41"

 +78       IF MODE["A"

               SET ARRAY(LN,3)="I"

 +79      ;

 +80       SET LN=LN+1

 +81       SET ARRAY(LN,1)="VA-BL PTSD SCREEN"

 +82       IF MODE["I"

               SET ARRAY(LN,2)="07/27/2007@15:43"

 +83       IF MODE["A"

               SET ARRAY(LN,3)="I"

 +84      ;

 +85       SET LN=LN+1

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

 +87       IF MODE["I"

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

 +88       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +89      ;

 +90       SET LN=LN+1

 +91       SET ARRAY(LN,1)="VA-IRAQ & AFGHAN POST-DEPLOY SCREEN"

 +92       IF MODE["I"

               SET ARRAY(LN,2)="12/06/2007@09:27:06"

 +93       IF MODE["A"

               SET ARRAY(LN,3)="I"

 +94      ;

 +95       SET LN=LN+1

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

 +97       IF MODE["I"

               SET ARRAY(LN,2)="07/27/2007@11:34"

 +98       IF MODE["A"

               SET ARRAY(LN,3)="I"

 +99      ;

 +100      SET LN=LN+1

 +101      SET ARRAY(LN,1)="VA-PTSD SCREENING"

 +102      IF MODE["I"

               SET ARRAY(LN,2)="10/09/2007@15:21"

 +103      IF MODE["A"

               SET ARRAY(LN,3)="I"

 +104     ;

 +105      SET LN=LN+1

 +106      SET ARRAY(LN,1)="VA-TBI SCREENING"

 +107      IF MODE["I"

               SET ARRAY(LN,2)="12/03/2007@12:19:35"

 +108      IF MODE["A"

               SET ARRAY(LN,3)="I"

 +109     ;

 +110      SET LN=LN+1

 +111      SET ARRAY(LN,1)="PXRM RESULT GROUP UPDATE REMINDER"

 +112      IF MODE["I"

               SET ARRAY(LN,2)="12/12/2007@10:53:14"

 +113      IF MODE["A"

               SET ARRAY(LN,3)="O"

 +114      QUIT

 +115     ;

 +116     ;==========================================

EXFINC(Y) ;Return a 1 if the Exchange file entry is in the list to

 +1       ;include in the build. This is used in the build to determine which

 +2       ;entries to include.

 +3        NEW EXARRAY,FOUND,IEN,IC,LUVALUE

 +4        DO EXARRAY^PXRMP6IE("I",.EXARRAY)

 +5        SET FOUND=0

 +6        SET IC=0

 +7        FOR

               SET IC=+$ORDER(EXARRAY(IC))

               IF (IC=0)!(FOUND)

                   QUIT

               Begin DoDot:1

 +8                MERGE LUVALUE=EXARRAY(IC)

 +9                SET IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)

 +10               IF IEN=Y

                       SET FOUND=1

                       QUIT

               End DoDot:1

 +11       QUIT FOUND

 +12      ;

 +13      ;==========================================

SMEXINS   ;Silent mode install.

 +1        NEW ACTION,EXARRAY,IC,IEN,LUVALUE,PXRMINST,TEXT

 +2        SET PXRMINST=1

 +3        DO EXARRAY^PXRMP6IE("IA",.EXARRAY)

 +4        SET IC=0

 +5        FOR

               SET IC=$ORDER(EXARRAY(IC))

               IF 'IC

                   QUIT

               Begin DoDot:1

 +6                SET LUVALUE(1)=EXARRAY(IC,1)

                   SET LUVALUE(2)=EXARRAY(IC,2)

 +7                SET IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)

 +8                IF IEN=0

                       QUIT

 +9                SET TEXT="Installing Reminder Exchange entry "_LUVALUE(1)

 +10               DO BMES^XPDUTL(TEXT)

 +11               SET ACTION=EXARRAY(IC,3)

 +12               DO INSTALL^PXRMEXSI(IEN,ACTION,1)

               End DoDot:1

 +13       QUIT

 +14      ;

PXRMP6IE.m