- HDI1014A ;SLC/AJB - PATCH 14 POST INSTALL;04/28/2015
- ;;1.0;HEALTH DATA & INFORMATICS;**14**;Feb 22, 2005;Build 22
- ;
- POST ;
- N DOMAIN,HDIDOM,HDIERROR,HDIMSG
- ;
- S HDIMSG(1)="Post-Installation (POST^HDI1014A) will now be run."
- S HDIMSG(2)=" "
- D MES^XPDUTL(.HDIMSG) K HDIMSG
- ;
- S DOMAIN="IMMUNIZATIONS" ; 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
- ;
- ; Initiate VUIDs for set of code fields
- I '$$VUID^HDISVCUT("IMM","HDI1014B") D Q
- . D MES^XPDUTL("***** VUIDs for set of code fields update failed."),PSTHALT("")
- ;
- 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 ;
- ;;920^.01
- ;;920.1^.01
- ;;920.2^.01
- ;;920.3^.01
- ;;920.4^.01
- ;;920.5^.01
- ;;9999999.04^.01
- ;;9999999.14^.01
- ;;9999999.28^.01
- ;;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHDI1014A 2049 printed Feb 18, 2025@23:22:43 Page 2
- HDI1014A ;SLC/AJB - PATCH 14 POST INSTALL;04/28/2015
- +1 ;;1.0;HEALTH DATA & INFORMATICS;**14**;Feb 22, 2005;Build 22
- +2 ;
- POST ;
- +1 NEW DOMAIN,HDIDOM,HDIERROR,HDIMSG
- +2 ;
- +3 SET HDIMSG(1)="Post-Installation (POST^HDI1014A) 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="IMMUNIZATIONS"
- +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 ; Initiate VUIDs for set of code fields
- +36 IF '$$VUID^HDISVCUT("IMM","HDI1014B")
- Begin DoDot:1
- +37 DO MES^XPDUTL("***** VUIDs for set of code fields update failed.")
- DO PSTHALT("")
- End DoDot:1
- QUIT
- +38 ;
- +39 SET HDIMSG(1)="Post-Installation complete."
- +40 SET HDIMSG(2)=""
- +41 DO MES^XPDUTL(.HDIMSG)
- +42 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 ;;920^.01
- +2 ;;920.1^.01
- +3 ;;920.2^.01
- +4 ;;920.3^.01
- +5 ;;920.4^.01
- +6 ;;920.5^.01
- +7 ;;9999999.04^.01
- +8 ;;9999999.14^.01
- +9 ;;9999999.28^.01
- +10 ;;
- +11 QUIT