BTIUPRE.m

BTIUPRE ; IHS/ITSC/LJF - PRE-INSTALL ROUTINE FOR TIU ;

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

 ;

PRGNOT ; make sure if have Progress Notes class, name is correct

 ; VA Health Summary routine ^GMTSPN expects an S on end of name

 NEW NAME

 S NAME=$$GET1^DIQ(8925.1,3,.01)

 I NAME="PROGRESS NOTE" D

 . NEW DIE,DA,DR

 . S DIE="^TIU(8925.1,",DA=3,DR=".01///PROGRESS NOTES"

 . D ^DIE

 ;

CLEAN ; clean out BTIU OBJECT DESCRIPTION file before restoring data

 NEW X

 S X=0 F  S X=$O(^BTIUOD(X)) Q:'X  K ^BTIUOD(X)

 K ^BTIUOD("B")

 Q

BTIUPRE   ; IHS/ITSC/LJF - PRE-INSTALL ROUTINE FOR TIU ;

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

 +2       ;

PRGNOT    ; make sure if have Progress Notes class, name is correct

 +1       ; VA Health Summary routine ^GMTSPN expects an S on end of name

 +2        NEW NAME

 +3        SET NAME=$$GET1^DIQ(8925.1,3,.01)

 +4        IF NAME="PROGRESS NOTE"

               Begin DoDot:1

 +5                NEW DIE,DA,DR

 +6                SET DIE="^TIU(8925.1,"

                   SET DA=3

                   SET DR=".01///PROGRESS NOTES"

 +7                DO ^DIE

               End DoDot:1

 +8       ;

CLEAN     ; clean out BTIU OBJECT DESCRIPTION file before restoring data

 +1        NEW X

 +2        SET X=0

           FOR 

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

               IF 'X

                   QUIT 

               KILL ^BTIUOD(X)

 +3        KILL ^BTIUOD("B")

 +4        QUIT