XUMF218Z.m

XUMF218Z ;OIFO-OAK/RAM - POPULATE VASTANUM;02/12/02 [ 07/29/2004   9:01 AM ]

 ;;8.0;KERNEL;**218**;Jul 10, 1995

 ;

 Q

 ;

POST ; -- post init patch XU*8*218

 ;

 ;INSTITUTION

 N STA,IEN,IENS,FDA,FTYP,XUMF

 ;

 S XUMF=1

 ;

 S STA=""

 F  S STA=$O(^DIC(4,"D",STA)) Q:STA=""  D

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

 .S IENS="?+1,"_IEN_","

 .K FDA

 .S FDA(4.9999,IENS,.01)="VASTANUM"

 .S FDA(4.9999,IENS,.02)=STA

 .D

 ..N IEN,STA

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

 ;

 Q

 ;

 ;FACILITY TYPE

 S FTYP=""

 F  S FTYP=$O(^DIC(4.1,"B",FTYP)) Q:FTYP=""  D

 .S IEN=$O(^DIC(4.1,"B",FTYP,0))

 .S IENS="?+1,"_IEN_","

 .K FDA

 .S FDA(4.19999,IENS,.01)="VAFACTYP"

 .S FDA(4.19999,IENS,.02)=FTYP

 .D

 ..N IEN,STA

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

 ;

 Q

 ;

XUMF218Z  ;OIFO-OAK/RAM - POPULATE VASTANUM;02/12/02 [ 07/29/2004   9:01 AM ]

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

 +2       ;

 +3        QUIT 

 +4       ;

POST      ; -- post init patch XU*8*218

 +1       ;

 +2       ;INSTITUTION

 +3        NEW STA,IEN,IENS,FDA,FTYP,XUMF

 +4       ;

 +5        SET XUMF=1

 +6       ;

 +7        SET STA=""

 +8        FOR 

               SET STA=$ORDER(^DIC(4,"D",STA))

               IF STA=""

                   QUIT 

               Begin DoDot:1

 +9                SET IEN=$ORDER(^DIC(4,"D",STA,0))

 +10               SET IENS="?+1,"_IEN_","

 +11               KILL FDA

 +12               SET FDA(4.9999,IENS,.01)="VASTANUM"

 +13               SET FDA(4.9999,IENS,.02)=STA

 +14               Begin DoDot:2

 +15                   NEW IEN,STA

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

                   End DoDot:2

               End DoDot:1

 +17      ;

 +18       QUIT 

 +19      ;

 +20      ;FACILITY TYPE

 +21       SET FTYP=""

 +22       FOR 

               SET FTYP=$ORDER(^DIC(4.1,"B",FTYP))

               IF FTYP=""

                   QUIT 

               Begin DoDot:1

 +23               SET IEN=$ORDER(^DIC(4.1,"B",FTYP,0))

 +24               SET IENS="?+1,"_IEN_","

 +25               KILL FDA

 +26               SET FDA(4.19999,IENS,.01)="VAFACTYP"

 +27               SET FDA(4.19999,IENS,.02)=FTYP

 +28               Begin DoDot:2

 +29                   NEW IEN,STA

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

                   End DoDot:2

               End DoDot:1

 +31      ;

 +32       QUIT 

 +33      ;