31 lines
885 B
Mathematica
31 lines
885 B
Mathematica
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
|
|
;
|