ORRCY7.m

ORRCY7 ;SLC/JMH - POST INSTALL FOR PATCH 7 ;  ; Compiled April 11, 2007 09:55:26

 ;;1.0;CARE MANAGEMENT;**7**;Jul 15, 2003;Build 32

 ;

PRE ; Creates 'XHD PRISM DESKTOP THEME' stub to avoid 'ERROR IN POINTER RESOLUTION OF DATA' on virgin install

 N DATA,ORPDTIEN,OUT

 S ORPDTIEN=0

 S ORPDTIEN=$O(^XTV(8989.51,"B","XHD PRISM DESKTOP THEME",ORPDTIEN))

 I '+ORPDTIEN D

 . S DATA(8989.51,"?+1,",.01)="XHD PRISM DESKTOP THEME"

 . D UPDATE^DIE("E","DATA","OUT")

 . D CLEAN^DILF

 Q

 ;

POST ;

 ; Remove existing entries due to duplicates

 N DA,DIK

 S DA=0,DA(1)=4,DA(2)=2,DIK="^XHD(8935.91,"_DA(1)_","_DA(2)_","

 F  S DA=$O(^XHD(8935.91,4,2,"B","Desktop Theme",DA)) Q:DA=""  D ^DIK

 K DA,DIK

 ; Install Desktop Theme

 D EN^XPAR("PKG","XHD PRISM DESKTOP THEME",,"HealtheVet Desktop Theme")

 N DATA,OUT

 S DATA(8935.912,"?+1,4,",.01)="Desktop Theme"

 S DATA(8935.912,"?+1,4,",.02)="XHD PRISM DESKTOP THEME"

 D UPDATE^DIE("E","DATA","OUT")

 D CLEAN^DILF

 Q

ORRCY7    ;SLC/JMH - POST INSTALL FOR PATCH 7 ;  ; Compiled April 11, 2007 09:55:26

 +1       ;;1.0;CARE MANAGEMENT;**7**;Jul 15, 2003;Build 32

 +2       ;

PRE       ; Creates 'XHD PRISM DESKTOP THEME' stub to avoid 'ERROR IN POINTER RESOLUTION OF DATA' on virgin install

 +1        NEW DATA,ORPDTIEN,OUT

 +2        SET ORPDTIEN=0

 +3        SET ORPDTIEN=$ORDER(^XTV(8989.51,"B","XHD PRISM DESKTOP THEME",ORPDTIEN))

 +4        IF '+ORPDTIEN

               Begin DoDot:1

 +5                SET DATA(8989.51,"?+1,",.01)="XHD PRISM DESKTOP THEME"

 +6                DO UPDATE^DIE("E","DATA","OUT")

 +7                DO CLEAN^DILF

               End DoDot:1

 +8        QUIT 

 +9       ;

POST      ;

 +1       ; Remove existing entries due to duplicates

 +2        NEW DA,DIK

 +3        SET DA=0

           SET DA(1)=4

           SET DA(2)=2

           SET DIK="^XHD(8935.91,"_DA(1)_","_DA(2)_","

 +4        FOR 

               SET DA=$ORDER(^XHD(8935.91,4,2,"B","Desktop Theme",DA))

               IF DA=""

                   QUIT 

               DO ^DIK

 +5        KILL DA,DIK

 +6       ; Install Desktop Theme

 +7        DO EN^XPAR("PKG","XHD PRISM DESKTOP THEME",,"HealtheVet Desktop Theme")

 +8        NEW DATA,OUT

 +9        SET DATA(8935.912,"?+1,4,",.01)="Desktop Theme"

 +10       SET DATA(8935.912,"?+1,4,",.02)="XHD PRISM DESKTOP THEME"

 +11       DO UPDATE^DIE("E","DATA","OUT")

 +12       DO CLEAN^DILF

 +13       QUIT