source: FOIAVistA/trunk/r/CARE_MANAGEMENT-ORRC/ORRCY7.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 945 bytes
Line 
1ORRCY7 ;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 ;
4PRE ; 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 ;
14POST ;
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
Note: See TracBrowser for help on using the repository browser.