XUMF397.m

XUMF397 ;aaa - CAPRI INSTITUTION STUFF 397; 02/08/02

 ;;2.7;AMIE;**41**;APRIL 10, 1995

 ;

 ; This routine stuffs the BOARD OF VETERANS APPEALS/VBA SUPPORT OFFICE

 ; entry into the INSTITUTTION and FACILITY TYPE files.

 ;

MAIN ; -- entry point

 ;

 N XUMF,IENS,IEN,FDA

 ;

 S XUMF=1

 ;

 S IEN=$O(^DIC(4.1,"B","BVA/VBA-SO",0))

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

 ;

 K FDA

 S FDA(4.1,IENS,.01)="BVA/VBA-SO"

 S FDA(4.1,IENS,1)="BOARD OF VETERANS APPEALS/VBA SUPPORT OFFICE"

 S FDA(4.1,IENS,3)="NATIONAL"

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

 ;

 S IEN=$O(^DIC(4,"D","397",0))

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

 ;

 K FDA

 S FDA(4,IENS,.01)="BVA/VBA SUPPORT OFFICE"

 S FDA(4,IENS,.02)="DISTRICT OF COLUMBIA"

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

 S FDA(4,IENS,13)="BVA/VBA-SO"

 S FDA(4,IENS,99)=397

 S FDA(4,IENS,100)="BOARD OF VETERANS APPEALS/VBA SUPPORT OFFICE"

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

 ;

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XUMF397   899     printed  Apr 09, 2024@21:09:19                                                                                                                                                                                                      Page 2

XUMF397   ;aaa - CAPRI INSTITUTION STUFF 397; 02/08/02

 +1       ;;2.7;AMIE;**41**;APRIL 10, 1995

 +2       ;

 +3       ; This routine stuffs the BOARD OF VETERANS APPEALS/VBA SUPPORT OFFICE

 +4       ; entry into the INSTITUTTION and FACILITY TYPE files.

 +5       ;

MAIN      ; -- entry point

 +1       ;

 +2        NEW XUMF,IENS,IEN,FDA

 +3       ;

 +4        SET XUMF=1

 +5       ;

 +6        SET IEN=$ORDER(^DIC(4.1,"B","BVA/VBA-SO",0))

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

 +8       ;

 +9        KILL FDA

 +10       SET FDA(4.1,IENS,.01)="BVA/VBA-SO"

 +11       SET FDA(4.1,IENS,1)="BOARD OF VETERANS APPEALS/VBA SUPPORT OFFICE"

 +12       SET FDA(4.1,IENS,3)="NATIONAL"

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

 +14      ;

 +15       SET IEN=$ORDER(^DIC(4,"D","397",0))

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

 +17      ;

 +18       KILL FDA

 +19       SET FDA(4,IENS,.01)="BVA/VBA SUPPORT OFFICE"

 +20       SET FDA(4,IENS,.02)="DISTRICT OF COLUMBIA"

 +21       SET FDA(4,IENS,11)="NATIONAL"

 +22       SET FDA(4,IENS,13)="BVA/VBA-SO"

 +23       SET FDA(4,IENS,99)=397

 +24       SET FDA(4,IENS,100)="BOARD OF VETERANS APPEALS/VBA SUPPORT OFFICE"

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

 +26      ;

 +27       QUIT 

 +28      ;