BTIUPOS3.m

BTIUPOS3 ; IHS/ITSC/LJF - Continuation of post install process ;

 ;;1.0;TEXT INTEGRATION UTILITIES;;NOV 04, 2004

 ;

 Q

 ;

OBJCHK ;EP; clean up object description file .01 pointers

 NEW IEN,DIE,PNAME,SNAME,PTR,DR,DA

 S DIE="^BTIUOD("

 S IEN=0 F  S IEN=$O(^BTIUOD(IEN)) Q:'IEN  D

 . S PNAME=$$GET1^DIQ(9003130.1,IEN,.01)     ;name based on pointer

 . S SNAME=$$GET1^DIQ(9003130.1,IEN,.02)     ;name as stored in .02 field

 . I PNAME=SNAME Q                           ;skip if names match - installed ok

 . ;

 . S PTR=$O(^TIU(8925.1,"B",SNAME,0)) I PTR D   ;find correct pointer

 . . I $$GET1^DIQ(8925.1,PTR,.04)'="OBJECT" Q   ;make sure it is an object

 . . S DR=".01///`"_PTR,DA=IEN

 . . D ^DIE                                     ;then fix it

 Q

BTIUPOS3  ; IHS/ITSC/LJF - Continuation of post install process ;

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;;NOV 04, 2004

 +2       ;

 +3        QUIT 

 +4       ;

OBJCHK    ;EP; clean up object description file .01 pointers

 +1        NEW IEN,DIE,PNAME,SNAME,PTR,DR,DA

 +2        SET DIE="^BTIUOD("

 +3        SET IEN=0

           FOR 

               SET IEN=$ORDER(^BTIUOD(IEN))

               IF 'IEN

                   QUIT 

               Begin DoDot:1

 +4       ;name based on pointer

                   SET PNAME=$$GET1^DIQ(9003130.1,IEN,.01)

 +5       ;name as stored in .02 field

                   SET SNAME=$$GET1^DIQ(9003130.1,IEN,.02)

 +6       ;skip if names match - installed ok

                   IF PNAME=SNAME

                       QUIT 

 +7       ;

 +8       ;find correct pointer

                   SET PTR=$ORDER(^TIU(8925.1,"B",SNAME,0))

                   IF PTR

                       Begin DoDot:2

 +9       ;make sure it is an object

                           IF $$GET1^DIQ(8925.1,PTR,.04)'="OBJECT"

                               QUIT 

 +10                       SET DR=".01///`"_PTR

                           SET DA=IEN

 +11      ;then fix it

                           DO ^DIE

                       End DoDot:2

               End DoDot:1

 +12       QUIT