| 1 | ORRCY7 ;SLC/JMH - POST INSTALL FOR PATCH 7 ; ; Compiled April 11, 2007 09:55:26
|
|---|
| 2 | ;;1.0;CARE MANAGEMENT;**7**;Jul 15, 2003;Build 32
|
|---|
| 3 | ;
|
|---|
| 4 | PRE ; Creates 'XHD PRISM DESKTOP THEME' stub to avoid 'ERROR IN POINTER RESOLUTION OF DATA' on virgin install
|
|---|
| 5 | N DATA,ORPDTIEN,OUT
|
|---|
| 6 | S ORPDTIEN=0
|
|---|
| 7 | S ORPDTIEN=$O(^XTV(8989.51,"B","XHD PRISM DESKTOP THEME",ORPDTIEN))
|
|---|
| 8 | I '+ORPDTIEN D
|
|---|
| 9 | . S DATA(8989.51,"?+1,",.01)="XHD PRISM DESKTOP THEME"
|
|---|
| 10 | . D UPDATE^DIE("E","DATA","OUT")
|
|---|
| 11 | . D CLEAN^DILF
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | POST ;
|
|---|
| 15 | ; Remove existing entries due to duplicates
|
|---|
| 16 | N DA,DIK
|
|---|
| 17 | S DA=0,DA(1)=4,DA(2)=2,DIK="^XHD(8935.91,"_DA(1)_","_DA(2)_","
|
|---|
| 18 | F S DA=$O(^XHD(8935.91,4,2,"B","Desktop Theme",DA)) Q:DA="" D ^DIK
|
|---|
| 19 | K DA,DIK
|
|---|
| 20 | ; Install Desktop Theme
|
|---|
| 21 | D EN^XPAR("PKG","XHD PRISM DESKTOP THEME",,"HealtheVet Desktop Theme")
|
|---|
| 22 | N DATA,OUT
|
|---|
| 23 | S DATA(8935.912,"?+1,4,",.01)="Desktop Theme"
|
|---|
| 24 | S DATA(8935.912,"?+1,4,",.02)="XHD PRISM DESKTOP THEME"
|
|---|
| 25 | D UPDATE^DIE("E","DATA","OUT")
|
|---|
| 26 | D CLEAN^DILF
|
|---|
| 27 | Q
|
|---|
