36 lines
718 B
Mathematica
36 lines
718 B
Mathematica
XUMFPOST ;ISS/RAM - post-install routine ;04/15/02
|
|
;;8.0;KERNEL;**299**;Jul 10, 1995
|
|
;
|
|
; make sure subscriber protocols are associated with event protocols
|
|
;
|
|
Q
|
|
;
|
|
MAIN ; -- main
|
|
;
|
|
N FDA,IEN,IENS
|
|
;
|
|
; mfn
|
|
K FDA
|
|
;S IEN=$$FIND1^DIC(101,,"B","DS Pub Man~~L")
|
|
S IEN=$$FIND1^DIC(101,,"B","XUMFX SERVER")
|
|
S IENS=IEN_","
|
|
S FDA(101.0775,"?+1,"_IENS,.01)="XUMF MFS"
|
|
D UPDATE^DIE("E","FDA","IENS")
|
|
;
|
|
; mfp
|
|
K FDA
|
|
S IEN=$$FIND1^DIC(101,,"B","XUMF MFP MFQ")
|
|
S IENS=IEN_","
|
|
S FDA(101.0775,"?+1,"_IENS,.01)="XUMF MFP MFR"
|
|
D UPDATE^DIE("E","FDA","IENS")
|
|
;
|
|
; mfq
|
|
K FDA
|
|
S IEN=$$FIND1^DIC(101,,"B","XUMFX MFQ")
|
|
S IENS=IEN_","
|
|
S FDA(101.0775,"?+1,"_IENS,.01)="XUMFX MFR"
|
|
D UPDATE^DIE("E","FDA","IENS")
|
|
;
|
|
Q
|
|
;
|