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 ---[H[J[2J[HDG53P941 1594 printed Dec 13, 2024@02:40:24 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 ;
