source: WorldVistAEHR/trunk/r/HEALTH_DATA_AND_INFORMATICS-HDI/HDI1004A.m@ 861

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

initial load of WorldVistAEHR
File size: 1.2 KB
RevLine 
[613]1HDI1004A ;BPFO/GRR,ALB/RMO - PATCH 4 POST INSTALL;2/08/2006
2 ;;1.0;HEALTH DATA & INFORMATICS;**4**;Feb 22, 2005
3 ;
4POST ;Main entry point for post-install routine
5 ; Input: None
6 ; All variables set by Kernel for KIDS post-installs
7 ;Output: None
8 N HDIMSG,HDISERR,HDDOM,HDISDFFS
9 S HDDOM="TIU"
10 S HDISDFFS(8925.6)=""
11 S HDISDFFS(8926.1)=""
12 S HDISDFFS(8926.2)=""
13 S HDISDFFS(8926.3)=""
14 S HDISDFFS(8926.4)=""
15 S HDISDFFS(8926.5)=""
16 S HDISDFFS(8926.6)=""
17 S HDISERR=0
18 S HDIMSG(1)=" "
19 S HDIMSG(2)="~~~~~~~~~~~~~~~~~~~~"
20 S HDIMSG(3)="Post-Installation (POST^HDI1004A) will now be run"
21 S HDIMSG(4)=" "
22 D MES^XPDUTL(.HDIMSG) K HDIMSG
23 ;Updates HDIS DOMAIN file and HDIS FILE/FIELD file
24 I '$$UPDTDOM^HDISVCUT(HDDOM,.HDISDFFS) D PSTHALT Q
25 ;Updates Sets of Codes
26 I '$$VUID^HDISVCUT(HDDOM,"HDI1004B") D PSTHALT Q
27 S HDIMSG(1)=" "
28 S HDIMSG(2)="Post-Installation ran to completion"
29 S HDIMSG(3)="~~~~~~~~~~~~~~~~~~~~"
30 S HDIMSG(4)=" "
31 D MES^XPDUTL(.HDIMSG) K HDIMSG
32 Q
33 ;
34PSTHALT ;Print post-install halted text
35 N HDIMSG
36 S HDIMSG(1)=" "
37 S HDIMSG(2)="*****"
38 S HDIMSG(3)="***** Post-installation has been halted"
39 S HDIMSG(4)="***** Please contact Enterprise VistA Support"
40 S HDIMSG(5)="*****"
41 S HDIMSG(6)=" "
42 D MES^XPDUTL(.HDIMSG)
43 Q
Note: See TracBrowser for help on using the repository browser.