| 1 | XUMFPOST ;ISS/RAM - post-install routine ;04/15/02
|
|---|
| 2 | ;;8.0;KERNEL;**299**;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ; make sure subscriber protocols are associated with event protocols
|
|---|
| 5 | ;
|
|---|
| 6 | Q
|
|---|
| 7 | ;
|
|---|
| 8 | MAIN ; -- main
|
|---|
| 9 | ;
|
|---|
| 10 | N FDA,IEN,IENS
|
|---|
| 11 | ;
|
|---|
| 12 | ; mfn
|
|---|
| 13 | K FDA
|
|---|
| 14 | ;S IEN=$$FIND1^DIC(101,,"B","DS Pub Man~~L")
|
|---|
| 15 | S IEN=$$FIND1^DIC(101,,"B","XUMFX SERVER")
|
|---|
| 16 | S IENS=IEN_","
|
|---|
| 17 | S FDA(101.0775,"?+1,"_IENS,.01)="XUMF MFS"
|
|---|
| 18 | D UPDATE^DIE("E","FDA","IENS")
|
|---|
| 19 | ;
|
|---|
| 20 | ; mfp
|
|---|
| 21 | K FDA
|
|---|
| 22 | S IEN=$$FIND1^DIC(101,,"B","XUMF MFP MFQ")
|
|---|
| 23 | S IENS=IEN_","
|
|---|
| 24 | S FDA(101.0775,"?+1,"_IENS,.01)="XUMF MFP MFR"
|
|---|
| 25 | D UPDATE^DIE("E","FDA","IENS")
|
|---|
| 26 | ;
|
|---|
| 27 | ; mfq
|
|---|
| 28 | K FDA
|
|---|
| 29 | S IEN=$$FIND1^DIC(101,,"B","XUMFX MFQ")
|
|---|
| 30 | S IENS=IEN_","
|
|---|
| 31 | S FDA(101.0775,"?+1,"_IENS,.01)="XUMFX MFR"
|
|---|
| 32 | D UPDATE^DIE("E","FDA","IENS")
|
|---|
| 33 | ;
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
