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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP6IL 915 printed Dec 13, 2024@01:48:10 Page 2
PXRMP6IL ; SLC/PKR - Inits for PXRM*2.0*6 ;11/06/2007
+1 ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
+2 QUIT
+3 ;
+4 ;==========================================
INILT ;Initialize list templates
+1 NEW IEN,IND,LIST,TEMP0
+2 DO LTL^PXRMP6IL(.LIST)
+3 SET IND=0
+4 ;IA #4123
+5 FOR
SET IND=$ORDER(LIST(IND))
if IND=""
QUIT
Begin DoDot:1
+6 SET IEN=$ORDER(^SD(409.61,"B",LIST(IND),""))
if IEN=""
QUIT
+7 SET TEMP0=$GET(^SD(409.61,IEN,0))
+8 KILL ^SD(409.61,IEN)
+9 SET ^SD(409.61,IEN,0)=TEMP0
End DoDot:1
+10 QUIT
+11 ;
+12 ;==========================================
LTL(LIST) ;This is the list of list templates that being distributed
+1 ;in the patch.
+2 SET LIST(1)="PXRM EX INSTALLATION DETAIL"
+3 SET LIST(2)="PXRM EX INSTALLATION HISTORY"
+4 SET LIST(3)="PXRM EX REMINDER EXCHANGE"
+5 SET LIST(4)="PXRM EXTRACT HISTORY"
+6 SET LIST(5)="PXRM LIST RULE MANAGEMENT"
+7 SET LIST(6)="PXRM PATIENT LIST CREATION DOC"
+8 SET LIST(7)="PXRM PATIENT LIST PATIENTS"
+9 SET LIST(8)="PXRM PATIENT LIST USER"
+10 QUIT
+11 ;
