PXRMP6IL	; SLC/PKR - Inits for PXRM*2.0*6 ;11/06/2007
	;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
	Q
	;
	;==========================================
INILT	;Initialize list templates
	N IEN,IND,LIST,TEMP0
	D LTL^PXRMP6IL(.LIST)
	S IND=0
	;IA #4123
	F  S IND=$O(LIST(IND)) Q:IND=""  D
	. S IEN=$O(^SD(409.61,"B",LIST(IND),"")) Q:IEN=""
	. S TEMP0=$G(^SD(409.61,IEN,0))
	. K ^SD(409.61,IEN)
	. S ^SD(409.61,IEN,0)=TEMP0
	Q
	;
	;==========================================
LTL(LIST)	;This is the list of list templates that being distributed
	;in the patch.
	S LIST(1)="PXRM EX INSTALLATION DETAIL"
	S LIST(2)="PXRM EX INSTALLATION HISTORY"
	S LIST(3)="PXRM EX REMINDER EXCHANGE"
	S LIST(4)="PXRM EXTRACT HISTORY"
	S LIST(5)="PXRM LIST RULE MANAGEMENT"
	S LIST(6)="PXRM PATIENT LIST CREATION DOC"
	S LIST(7)="PXRM PATIENT LIST PATIENTS"
	S LIST(8)="PXRM PATIENT LIST USER"
	Q
	;