HDI1016A ;BPINES/CLT - PATCH 16 POST INSTALL ; 19 May 2016 9:58 AM
;;1.0;HEALTH DATA & INFORMATICS;**16**;Feb 22, 2005;Build 4
;
POST ;
N DOMAIN,HDIDOM,HDIERROR,HDIMSG
;
S HDIMSG(1)="Post-Installation (POST^HDI1016A) will now be run."
S HDIMSG(2)=" "
D MES^XPDUTL(.HDIMSG) K HDIMSG
;
S DOMAIN="RADIOLOGY" ; domain to be added to HDIS DOMAIN File #7115.1
;
; add domain
I '+$$UPDTDOM^HDISVCUT(DOMAIN) D Q
. D MES^XPDUTL("***** Error adding the "_DOMAIN_" domain to the HDIS DOMAIN FILE #7115.1."),PSTHALT("")
;
; get domain IEN
I '+$$GETIEN^HDISVF09(DOMAIN,.HDIDOM) D Q
. D MES^XPDUTL("***** Error retrieving the IEN for the "_DOMAIN_" domain."),PSTHALT("")
;
; verify domain IEN
I '+HDIDOM D Q
. D MES^XPDUTL("***** Error verifying the IEN for the "_DOMAIN_" domain."),PSTHALT("")
;
; get files & fields to be added to File #7115.6
N DATA,LINE F LINE=1:1 S DATA=$P($T(DATA+LINE),";;",2) Q:DATA="" D
. N FILE,FIELD,HDIDATA,HDIERMSG
. S FILE=$P(DATA,U),FIELD=$P(DATA,U,2)
. I +$$GETIEN^HDISVF05(FILE,FIELD) Q ; quit if entry already exists
. S HDIDATA(FILE)=FIELD
. ; add entry to HDIS FILE/FIELD File #7115.6
. I '+$$ADDDFFS^HDISVF09(HDIDOM,.HDIDATA,.HDIERMSG) D
. . I '$D(HDIERROR) D MES^XPDUTL("***** "_"Error updating File #7115.6")
. . S HDIERROR=1
. . D MES^XPDUTL("***** "_HDIERMSG)
;
I +$D(HDIERROR) D PSTHALT("") Q
;
S HDIMSG(1)="Post-Installation complete."
S HDIMSG(2)=""
D MES^XPDUTL(.HDIMSG)
Q
PSTHALT(MSG) ; display error message
S HDIMSG(1)=""
S HDIMSG(2)=MSG
S HDIMSG(3)="***** Post-installation has been halted."
S HDIMSG(4)="***** Please contact Enterprise VistA Support."
S HDIMSG(5)=""
D MES^XPDUTL(.HDIMSG)
Q
DATA ;
;;71.99^.01
;;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHDI1016A 1762 printed Dec 13, 2024@01:56:23 Page 2
HDI1016A ;BPINES/CLT - PATCH 16 POST INSTALL ; 19 May 2016 9:58 AM
+1 ;;1.0;HEALTH DATA & INFORMATICS;**16**;Feb 22, 2005;Build 4
+2 ;
POST ;
+1 NEW DOMAIN,HDIDOM,HDIERROR,HDIMSG
+2 ;
+3 SET HDIMSG(1)="Post-Installation (POST^HDI1016A) will now be run."
+4 SET HDIMSG(2)=" "
+5 DO MES^XPDUTL(.HDIMSG)
KILL HDIMSG
+6 ;
+7 ; domain to be added to HDIS DOMAIN File #7115.1
SET DOMAIN="RADIOLOGY"
+8 ;
+9 ; add domain
+10 IF '+$$UPDTDOM^HDISVCUT(DOMAIN)
Begin DoDot:1
+11 DO MES^XPDUTL("***** Error adding the "_DOMAIN_" domain to the HDIS DOMAIN FILE #7115.1.")
DO PSTHALT("")
End DoDot:1
QUIT
+12 ;
+13 ; get domain IEN
+14 IF '+$$GETIEN^HDISVF09(DOMAIN,.HDIDOM)
Begin DoDot:1
+15 DO MES^XPDUTL("***** Error retrieving the IEN for the "_DOMAIN_" domain.")
DO PSTHALT("")
End DoDot:1
QUIT
+16 ;
+17 ; verify domain IEN
+18 IF '+HDIDOM
Begin DoDot:1
+19 DO MES^XPDUTL("***** Error verifying the IEN for the "_DOMAIN_" domain.")
DO PSTHALT("")
End DoDot:1
QUIT
+20 ;
+21 ; get files & fields to be added to File #7115.6
+22 NEW DATA,LINE
FOR LINE=1:1
SET DATA=$PIECE($TEXT(DATA+LINE),";;",2)
if DATA=""
QUIT
Begin DoDot:1
+23 NEW FILE,FIELD,HDIDATA,HDIERMSG
+24 SET FILE=$PIECE(DATA,U)
SET FIELD=$PIECE(DATA,U,2)
+25 ; quit if entry already exists
IF +$$GETIEN^HDISVF05(FILE,FIELD)
QUIT
+26 SET HDIDATA(FILE)=FIELD
+27 ; add entry to HDIS FILE/FIELD File #7115.6
+28 IF '+$$ADDDFFS^HDISVF09(HDIDOM,.HDIDATA,.HDIERMSG)
Begin DoDot:2
+29 IF '$DATA(HDIERROR)
DO MES^XPDUTL("***** "_"Error updating File #7115.6")
+30 SET HDIERROR=1
+31 DO MES^XPDUTL("***** "_HDIERMSG)
End DoDot:2
End DoDot:1
+32 ;
+33 IF +$DATA(HDIERROR)
DO PSTHALT("")
QUIT
+34 ;
+35 SET HDIMSG(1)="Post-Installation complete."
+36 SET HDIMSG(2)=""
+37 DO MES^XPDUTL(.HDIMSG)
+38 QUIT
PSTHALT(MSG) ; display error message
+1 SET HDIMSG(1)=""
+2 SET HDIMSG(2)=MSG
+3 SET HDIMSG(3)="***** Post-installation has been halted."
+4 SET HDIMSG(4)="***** Please contact Enterprise VistA Support."
+5 SET HDIMSG(5)=""
+6 DO MES^XPDUTL(.HDIMSG)
+7 QUIT
DATA ;
+1 ;;71.99^.01
+2 ;;
+3 QUIT
