source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMYPRE.m@ 1078

Last change on this file since 1078 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1XMYPRE ;ISC-SF/GMB-Pre- & Post- Init ;08/29/2002 09:03
2 ;;8.0;MailMan;;Jun 28, 2002
3PRE ; Pre-init
4 K ^DD(4.21,2,3) ; Kill errant help node.
5 K ^DD(3.7,2,1,1,1.2) ; Kill obsolete node.
6 K ^DD(3.811,0,"NM","MEMBER GROUP") ; Kill errant name.
7 Q:'$D(^DD(3.702,6,1,1,1)) ; Quit if the pre-init has run already
8 D OPTION
9 D DELFLDS
10 D ACXREF
11 Q
12OPTION ; Clean up some MailMan options
13 N XMOPT,XMIEN,XMFDA,XMIENS
14 F XMOPT="XMQSHOW","XMSUBEDIT","XMDXPROT" D
15 . S XMIEN=$O(^DIC(19,"B",XMOPT,0)) Q:'XMIEN
16 . S XMIENS=XMIEN_","
17 . S XMFDA(19,XMIENS,15)="@" ; EXIT ACTION
18 . ;S XMFDA(19,XMIENS,20)="@" ; ENTRY ACTION
19 . D FILE^DIE("","XMFDA")
20 F XMOPT="XMMGR-IN-BASKET-PURGE" D
21 . S XMIEN=$O(^DIC(19,"B",XMOPT,0)) Q:'XMIEN
22 . S XMIENS=XMIEN_","
23 . S XMFDA(19,XMIENS,3.7)="@" ; HELP FRAME
24 . D FILE^DIE("","XMFDA")
25 Q
26DELFLDS ; Delete fields no longer used.
27 S DIK="^DD(4.2999,",DA=7,DA(1)=4.2999 D ^DIK ; OUTGOING MESSAGE COUNT
28 S DIK="^DD(4.2999,",DA=8,DA(1)=4.2999 D ^DIK ; CHARACTERS REC'D
29 S DIK="^DD(4.2999,",DA=9,DA(1)=4.2999 D ^DIK ; INCOMING MESSAGE COUNT
30 S DIK="^DD(4.2999,",DA=10,DA(1)=4.2999 D ^DIK ; CHARACTERS SENT
31 N I
32 S I=0
33 F S I=$O(^XMBS(4.2999,I)) Q:'I S ^XMBS(4.2999,I,0)=I
34 Q
35ACXREF ; Delete old AC xref for NETWORK PRIORITY TRANSMISSION field.
36 D DELIX^DDMOD(3.702,6,1) ; delete the DD, leave the data
37 N XMK,XMZ ; Reposition the xref to match the new definition.
38 S XMK=0
39 F S XMK=$O(^XMB(3.7,.5,2,"AC",1,XMK)) Q:'XMK D
40 . S XMZ=0
41 . F S XMZ=$O(^XMB(3.7,.5,2,"AC",1,XMK,XMZ)) Q:'XMZ D
42 . . K ^XMB(3.7,.5,2,"AC",1,XMK,XMZ)
43 . . S ^XMB(3.7,.5,2,XMK,1,"AC",1,XMZ)=""
44 Q
45POST ; Post-init
46 D INIT^XMC
47 D KEYS
48 D DIALOG
49 Q
50KEYS ; Security Keys
51 ; KIDS does not correctly transport the 'mutually exclusive' field,
52 ; so we have to correct it.
53 N XMSTAR,XMSTARL,XMFDA,I
54 S XMSTAR=$$FIND1^DIC(19.1,"","QX","XMSTAR")
55 S XMSTARL=$$FIND1^DIC(19.1,"","QX","XMSTAR LIMITED")
56 S I=$O(^DIC(19.1,XMSTAR,5,0))
57 S XMFDA(19.15,I_","_XMSTAR_",",.01)=XMSTARL
58 D FILE^DIE("","XMFDA")
59 S I=$O(^DIC(19.1,XMSTARL,5,0))
60 S XMFDA(19.15,I_","_XMSTARL_",",.01)=XMSTAR
61 D FILE^DIE("","XMFDA")
62 Q
63DIALOG ; Delete DIALOG file entries. KIDS fails to do this.
64 N DIK,DA
65 S DIK="^DI(.84,"
66 F DA=34425,34443,34443.1 D ^DIK
67 Q
Note: See TracBrowser for help on using the repository browser.