28 lines
945 B
Mathematica
28 lines
945 B
Mathematica
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
|