XUMF555P.m

XUMF555P ;BP/RAM - VISN 99 ;05/25/11

 ;;8.0;KERNEL;**555**;Jul 10, 1995;Build 6

 ;

 Q

 ;

MAIN ; -- stuff VISN 99

 ;

 N XUMF,IENS,IEN

 ;

 S XUMF=1

 ;

 S IEN=$O(^DIC(4,"B","VISN 99",0))

 S IENS=$S(IEN:IEN_",",1:"+1,")

 ;

 K FDA

 S FDA(4,IENS,.01)="VISN 99"

 S FDA(4,IENS,11)="LOCAL"

 S FDA(4,IENS,13)="VISN"

 D UPDATE^DIE("E","FDA")

 ;

 Q

 ;

XUMF555P  ;BP/RAM - VISN 99 ;05/25/11

 +1       ;;8.0;KERNEL;**555**;Jul 10, 1995;Build 6

 +2       ;

 +3        QUIT 

 +4       ;

MAIN      ; -- stuff VISN 99

 +1       ;

 +2        NEW XUMF,IENS,IEN

 +3       ;

 +4        SET XUMF=1

 +5       ;

 +6        SET IEN=$ORDER(^DIC(4,"B","VISN 99",0))

 +7        SET IENS=$SELECT(IEN:IEN_",",1:"+1,")

 +8       ;

 +9        KILL FDA

 +10       SET FDA(4,IENS,.01)="VISN 99"

 +11       SET FDA(4,IENS,11)="LOCAL"

 +12       SET FDA(4,IENS,13)="VISN"

 +13       DO UPDATE^DIE("E","FDA")

 +14      ;

 +15       QUIT 

 +16      ;