PXRMP6IL.m

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

 ;

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      ;