- 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
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUMFPOST 753 printed Dec 13, 2024@02:11:03 Page 2
- 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 ;