PXRMP6IE ; SLC/PKR - Exchange inits for PXRM*2.0*6 ;12/03/2007
;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
Q
;=======================================================
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
Q
;
;====================================================
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"
Q
;
;==========================================
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)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP6IE 4841 printed Nov 22, 2024@16:58:20 Page 2
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 ;
