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
	;