DG53P941.m

DG53P941 ;ALB/DJS - DG*5.3*941 POST INSTALL ;10/30/17  9:18am

 ;;5.3;Registration;**941**;Aug 13, 1993;Build 73

 ;Per VHA Directive 2004-038, this routine should not be modified.

 ;

 ; DG*5.3*941 Post Install routine to correct Veteran Plan - VC Unusual and Excessive Burden

 ;  Integration Agreements:

 ;        10141 : BMES^XPDUTL

 ;              : MES^XPDUTL

 ;        2053  : FILE^DIE

 ;        2051  : FIND1^DIC

 ;

 Q

 ;

POST ;Update Health Benefit Plan

 ;

 D BMES^XPDUTL("    Checking Entry in HEALTH BENEFIT PLAN File - Veteran Plan - VC Unusual and Excessive Burden   ")

 D UPDREQ

 Q

 ;

UPDREQ ; Update entry in the HEALTH BENEFIT PLAN File (25.11)

 ;

 N IEN,ERR,NAME,FDA,IEN1,NAME1

 S ERR=""

 S NAME="Veteran Plan - VC Unusual and Excessive Burden"

 ; Check if entry exists, use it if it does

 S IEN=$$FIND1^DIC(25.11,,"B",NAME)

 I 'IEN D BMES^XPDUTL("    "_NAME_" does not exist, no action is taken.  ") Q

 L +^DGHBP(25.11,IEN):10 I '$T D BMES^XPDUTL("    "_NAME_" is locked by another user. Try later.   ") Q

 S IEN1=IEN

 S IEN=IEN_","

 ;

 S FDA(25.11,IEN,.01)="Veteran Plan - VC Unusual or Excessive Burden"

  ; file new Health Benefit Plan name

 ;

 D FILE^DIE("E","FDA","ERR")

 L -^DGHBP(25.11,IEN1)

 I ERR'="" D

 . D BMES^XPDUTL("     *** An Error occurred during updating Plan: Veteran Plan - VC Unusual and Excessive Burden")

 . D MES^XPDUTL("     Please log CA SDM ticket.")

 . Q

 ;

 I ERR="" D

 . S NAME1=$P(^DGHBP(25.11,IEN1,0),"^",1)

 . D BMES^XPDUTL("    "_NAME_" is corrected in HEALTH BENEFIT PLAN File to "_NAME1_".")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53P941   1594     printed  Apr 09, 2024@21:57:37                                                                                                                                                                                                    Page 2

DG53P941  ;ALB/DJS - DG*5.3*941 POST INSTALL ;10/30/17  9:18am

 +1       ;;5.3;Registration;**941**;Aug 13, 1993;Build 73

 +2       ;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

 +4       ; DG*5.3*941 Post Install routine to correct Veteran Plan - VC Unusual and Excessive Burden

 +5       ;  Integration Agreements:

 +6       ;        10141 : BMES^XPDUTL

 +7       ;              : MES^XPDUTL

 +8       ;        2053  : FILE^DIE

 +9       ;        2051  : FIND1^DIC

 +10      ;

 +11       QUIT 

 +12      ;

POST      ;Update Health Benefit Plan

 +1       ;

 +2        DO BMES^XPDUTL("    Checking Entry in HEALTH BENEFIT PLAN File - Veteran Plan - VC Unusual and Excessive Burden   ")

 +3        DO UPDREQ

 +4        QUIT 

 +5       ;

UPDREQ    ; Update entry in the HEALTH BENEFIT PLAN File (25.11)

 +1       ;

 +2        NEW IEN,ERR,NAME,FDA,IEN1,NAME1

 +3        SET ERR=""

 +4        SET NAME="Veteran Plan - VC Unusual and Excessive Burden"

 +5       ; Check if entry exists, use it if it does

 +6        SET IEN=$$FIND1^DIC(25.11,,"B",NAME)

 +7        IF 'IEN

               DO BMES^XPDUTL("    "_NAME_" does not exist, no action is taken.  ")

               QUIT 

 +8        LOCK +^DGHBP(25.11,IEN):10

           IF '$TEST

               DO BMES^XPDUTL("    "_NAME_" is locked by another user. Try later.   ")

               QUIT 

 +9        SET IEN1=IEN

 +10       SET IEN=IEN_","

 +11      ;

 +12       SET FDA(25.11,IEN,.01)="Veteran Plan - VC Unusual or Excessive Burden"

 +13      ; file new Health Benefit Plan name

 +14      ;

 +15       DO FILE^DIE("E","FDA","ERR")

 +16       LOCK -^DGHBP(25.11,IEN1)

 +17       IF ERR'=""

               Begin DoDot:1

 +18               DO BMES^XPDUTL("     *** An Error occurred during updating Plan: Veteran Plan - VC Unusual and Excessive Burden")

 +19               DO MES^XPDUTL("     Please log CA SDM ticket.")

 +20               QUIT 

               End DoDot:1

 +21      ;

 +22       IF ERR=""

               Begin DoDot:1

 +23               SET NAME1=$PIECE(^DGHBP(25.11,IEN1,0),"^",1)

 +24               DO BMES^XPDUTL("    "_NAME_" is corrected in HEALTH BENEFIT PLAN File to "_NAME1_".")

               End DoDot:1

 +25       QUIT 

 +26      ;