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

DG531044P.m

Go to the documentation of this file. 
  1. DG531044P ;ALB/ARF,KUM - DG*5.3*1044 INSTALL UTILITY;02/23/2021 15:21pm
  1.  ;;5.3;Registration;**1044**;Feb 23 2021;Build 13
  1.  ;
  1. QUIT ;No direct entry
  1.  ;
  1.  ;---------------------------------------------------------------------------
  1.  ;Patch DG*5.3*1044: Environment, Pre-Install, and Post-Install entry points.
  1.  ;---------------------------------------------------------------------------
  1.  ;
  1. ENV ;Main entry point for Environment check
  1.  Q
  1.  ;
  1. PRE ;Main entry point for Pre-Install items
  1.  Q
  1.  ;
  1. POST ;Main entry point for Post-Install items
  1.  D POST1  ;Recompile all compiled input templates
  1.  D POST2  ;Update PERIOD OF SERVICE (#21) File entry AIR FORCE--ACTIVE DUTY to USAF, USSF - ACTIVE DUTY
  1.  ;
  1.  D BMES^XPDUTL(">>> Patch DG*5.3*1044 - Post-install complete.")
  1.  Q
  1.  ;
  1. POST1 ;Recompile all compiled input templates
  1.  ;Recompile all compiled input templates that contain specific fields.
  1.  ;This is needed because the data dictionary definition of these fields
  1.  ;has changed and they are being exported via KIDS.
  1.  ;
  1.  ; Supported ICR's:
  1.  ;   10141: BMES^XPDUTL
  1.  ;        : MES^XPDUTL
  1.  ;    3352: DIEZ^DIKCUTL3
  1.  ;
  1.  N DGFLD
  1.  ;
  1.  D BMES^XPDUTL(">>> Recompile all compiled input templates that contain the following fields:")
  1.  ;
  1.  D BMES^XPDUTL(" o NUMBER (#.001) field in the BRANCH OF SERVICE (#23) file")
  1.  ;build array of file and field numbers for top-level file and fields being exported
  1.  ;array format: DGFLD(file#,field)=""
  1.  ;recompile all compiled input templates that contain the fields in the DGLFD array passed by reference 
  1.  S DGFLD(23,.001)=""  ;BRANCH OF SERVICE file - NUMBER field (.001)
  1.  D DIEZ^DIKCUTL3(23,.DGFLD)
  1.  K DGFLD
  1.  ;
  1.  D BMES^XPDUTL(">>> Re-compile completed.")
  1.  ;
  1.  Q
  1. POST2 ; Update entry in the PERIOD OF SERVICE File (#21)
  1.  ;
  1.  N DGIEN,DGERR,DGNAM,DGFDA,DGIEN1,DGNAM1
  1.  S DGERR=""
  1.  S DGNAM="AIR FORCE--ACTIVE DUTY"
  1.  ;
  1.  D BMES^XPDUTL(">>> Updating PERIOD OF SERVICE file (#21) entry - AIR FORCE--ACTIVE DUTY")
  1.  ; Check if entry exists, use it if it does
  1.  S DGIEN=$O(^DIC(21,"B",DGNAM,0))
  1.  I 'DGIEN D BMES^XPDUTL("    "_DGNAM_" does not exist, no action is taken.  ") Q
  1.  S DGIEN1=DGIEN
  1.  S DGIEN=DGIEN_","
  1.  ;
  1.  L +^DIC(21,0):10 I '$T D BMES^XPDUTL("     PERIOD OF SERVICE file (#21) is locked by another user. Please log CA SDM ticket. ") Q
  1.  S DGFDA(21,DGIEN,.01)="USAF, USSF - ACTIVE DUTY"
  1.  D UPDATE^DIE("E","DGFDA","","DGERR")
  1.  I $D(DGERR("DIERR")) D
  1.  . S DGERR=$G(DGERR("DIERR",1,"TEXT",1)) Q
  1.  . D BMES^XPDUTL("     *** An Error occurred during updating PERIOD OF SERVICE file (#21) entry - AIR FORCE--ACTIVE DUTY")
  1.  . D MES^XPDUTL("     Please log CA SDM ticket.")
  1.  . Q
  1.  ;
  1.  I DGERR="" D
  1.  . S DGNAM1=$P(^DIC(21,DGIEN1,0),"^",1)
  1.  . D BMES^XPDUTL(" o "_DGNAM_" entry's NAME field (#.01) is updated in PERIOD OF SERVICE file (#21) to "_DGNAM1_".")
  1.  L -^DIC(21,0)
  1.  D BMES^XPDUTL(">>> Update of PERIOD OF SERVICE file (#21) completed.")
  1.  Q
  1.  ;