Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: HDI1020A

HDI1020A.m

Go to the documentation of this file.
  1. HDI1020A ;DAL/JCH - PATCH 20 POST INSTALL;06/15/2017
  1. ;;1.0;HEALTH DATA & INFORMATICS;**20**;Feb 22, 2005;Build 3
  1. ;
  1. POST ;
  1. N DOMAIN,HDIDOM,HDIERROR,HDIMSG
  1. ;
  1. S HDIMSG(1)="Post-Installation (POST^HDI1020A) will now be run."
  1. S HDIMSG(2)=" "
  1. D MES^XPDUTL(.HDIMSG) K HDIMSG
  1. ;
  1. S DOMAIN="PAYERS" ; domain to be added to HDIS DOMAIN File #7115.1
  1. ;
  1. ; add domain
  1. I '+$$UPDTDOM^HDISVCUT(DOMAIN) D Q
  1. . D MES^XPDUTL("***** Error adding the "_DOMAIN_" domain to the HDIS DOMAIN FILE #7115.1."),PSTHALT("")
  1. ;
  1. ; get domain IEN
  1. I '+$$GETIEN^HDISVF09(DOMAIN,.HDIDOM) D Q
  1. . D MES^XPDUTL("***** Error retrieving the IEN for the "_DOMAIN_" domain."),PSTHALT("")
  1. ;
  1. ; verify domain IEN
  1. I '+HDIDOM D Q
  1. . D MES^XPDUTL("***** Error verifying the IEN for the "_DOMAIN_" domain."),PSTHALT("")
  1. ;
  1. ; get files & fields to be added to File #7115.6
  1. N DATA,LINE F LINE=1:1 S DATA=$P($T(DATA+LINE),";;",2) Q:DATA="" D
  1. . N FILE,FIELD,HDIDATA,HDIERMSG
  1. . S FILE=$P(DATA,U),FIELD=$P(DATA,U,2)
  1. . I +$$GETIEN^HDISVF05(FILE,FIELD) Q ; quit if entry already exists
  1. . S HDIDATA(FILE)=FIELD
  1. . ; add entry to HDIS FILE/FIELD File #7115.6
  1. . I '+$$ADDDFFS^HDISVF09(HDIDOM,.HDIDATA,.HDIERMSG) D
  1. . . I '$D(HDIERROR) D MES^XPDUTL("***** "_"Error updating File #7115.6")
  1. . . S HDIERROR=1
  1. . . D MES^XPDUTL("***** "_HDIERMSG)
  1. ;
  1. I +$D(HDIERROR) D PSTHALT("") Q
  1. ;
  1. S HDIMSG(1)="Post-Installation complete."
  1. S HDIMSG(2)=""
  1. D MES^XPDUTL(.HDIMSG)
  1. Q
  1. PSTHALT(MSG) ; display error message
  1. S HDIMSG(1)=""
  1. S HDIMSG(2)=MSG
  1. S HDIMSG(3)="***** Post-installation has been halted."
  1. S HDIMSG(4)="***** Please contact Enterprise VistA Support."
  1. S HDIMSG(5)=""
  1. D MES^XPDUTL(.HDIMSG)
  1. Q
  1. DATA ;
  1. ;;355.99^.01
  1. ;;
  1. Q