source: FOIAVistA/trunk/r/HEALTH_DATA_AND_INFORMATICS-HDI/HDI1005A.m@ 1540

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

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1HDI1005A ;BPFO/GRR - PATCH 5 POST INSTALL;12/12/2005
2 ;;1.0;HEALTH DATA & INFORMATICS;**5**;Feb 22, 2005;Build 2
3 ;
4POST ;Main entry point for post-install routine
5 ;
6 N HDIMSG,HDISERR,HDDOM,HDISDFFS
7 S HDDOM="ORDERS"
8 S HDISDFFS(100.01)=""
9 S HDISDFFS(100.02)=""
10 S HDISERR=0
11 S HDIMSG(1)=" "
12 S HDIMSG(2)="~~~~~~~~~~~~~~~~~~~~"
13 S HDIMSG(3)="Post-Installation (POST^HDI1005A) will now be run"
14 S HDIMSG(4)=" "
15 D MES^XPDUTL(.HDIMSG) K HDIMSG
16 I '$$UPDTDOM^HDISVCUT(HDDOM,.HDISDFFS) D PSTHALT Q ;Updates HDIS DOMAIN file and HDIS FILE/FIELD file
17 I '$$VUID^HDISVCUT(HDDOM,"HDI1005B") D PSTHALT Q
18 S HDIMSG(1)=" "
19 S HDIMSG(2)="Post-Installation ran to completion"
20 S HDIMSG(3)="~~~~~~~~~~~~~~~~~~~~"
21 S HDIMSG(4)=" "
22 D MES^XPDUTL(.HDIMSG) K HDIMSG
23 Q
24 ;
25PSTHALT ;Print post-install halted text
26 N HDIMSG
27 S HDIMSG(1)=" "
28 S HDIMSG(2)="*****"
29 S HDIMSG(3)="***** Post-installation has been halted"
30 S HDIMSG(4)="***** Please contact Enterprise VistA Support"
31 S HDIMSG(5)="*****"
32 S HDIMSG(6)=" "
33 D MES^XPDUTL(.HDIMSG)
34 Q
35 ;
Note: See TracBrowser for help on using the repository browser.