Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XUMFPOST

XUMFPOST.m

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