XUMFPOST.m

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

 ;

XUMFPOST  ;ISS/RAM - post-install routine ;04/15/02

 +1       ;;8.0;KERNEL;**299**;Jul 10, 1995

 +2       ;

 +3       ; make sure subscriber protocols are associated with event protocols

 +4       ;

 +5        QUIT 

 +6       ;

MAIN      ; -- main

 +1       ;

 +2        NEW FDA,IEN,IENS

 +3       ;

 +4       ; mfn

 +5        KILL FDA

 +6       ;S IEN=$$FIND1^DIC(101,,"B","DS Pub Man~~L")

 +7        SET IEN=$$FIND1^DIC(101,,"B","XUMFX SERVER")

 +8        SET IENS=IEN_","

 +9        SET FDA(101.0775,"?+1,"_IENS,.01)="XUMF MFS"

 +10       DO UPDATE^DIE("E","FDA","IENS")

 +11      ;

 +12      ; mfp

 +13       KILL FDA

 +14       SET IEN=$$FIND1^DIC(101,,"B","XUMF MFP MFQ")

 +15       SET IENS=IEN_","

 +16       SET FDA(101.0775,"?+1,"_IENS,.01)="XUMF MFP MFR"

 +17       DO UPDATE^DIE("E","FDA","IENS")

 +18      ;

 +19      ; mfq

 +20       KILL FDA

 +21       SET IEN=$$FIND1^DIC(101,,"B","XUMFX MFQ")

 +22       SET IENS=IEN_","

 +23       SET FDA(101.0775,"?+1,"_IENS,.01)="XUMFX MFR"

 +24       DO UPDATE^DIE("E","FDA","IENS")

 +25      ;

 +26       QUIT 

 +27      ;