- 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 Feb 19, 2025@00:06:27 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 ;