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

DG53P941.m

Go to the documentation of this file.
  1. DG53P941 ;ALB/DJS - DG*5.3*941 POST INSTALL ;10/30/17 9:18am
  1. ;;5.3;Registration;**941**;Aug 13, 1993;Build 73
  1. ;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. ; DG*5.3*941 Post Install routine to correct Veteran Plan - VC Unusual and Excessive Burden
  1. ; Integration Agreements:
  1. ; 10141 : BMES^XPDUTL
  1. ; : MES^XPDUTL
  1. ; 2053 : FILE^DIE
  1. ; 2051 : FIND1^DIC
  1. ;
  1. Q
  1. ;
  1. POST ;Update Health Benefit Plan
  1. ;
  1. D BMES^XPDUTL(" Checking Entry in HEALTH BENEFIT PLAN File - Veteran Plan - VC Unusual and Excessive Burden ")
  1. D UPDREQ
  1. Q
  1. ;
  1. UPDREQ ; Update entry in the HEALTH BENEFIT PLAN File (25.11)
  1. ;
  1. N IEN,ERR,NAME,FDA,IEN1,NAME1
  1. S ERR=""
  1. S NAME="Veteran Plan - VC Unusual and Excessive Burden"
  1. ; Check if entry exists, use it if it does
  1. S IEN=$$FIND1^DIC(25.11,,"B",NAME)
  1. I 'IEN D BMES^XPDUTL(" "_NAME_" does not exist, no action is taken. ") Q
  1. L +^DGHBP(25.11,IEN):10 I '$T D BMES^XPDUTL(" "_NAME_" is locked by another user. Try later. ") Q
  1. S IEN1=IEN
  1. S IEN=IEN_","
  1. ;
  1. S FDA(25.11,IEN,.01)="Veteran Plan - VC Unusual or Excessive Burden"
  1. ; file new Health Benefit Plan name
  1. ;
  1. D FILE^DIE("E","FDA","ERR")
  1. L -^DGHBP(25.11,IEN1)
  1. I ERR'="" D
  1. . D BMES^XPDUTL(" *** An Error occurred during updating Plan: Veteran Plan - VC Unusual and Excessive Burden")
  1. . D MES^XPDUTL(" Please log CA SDM ticket.")
  1. . Q
  1. ;
  1. I ERR="" D
  1. . S NAME1=$P(^DGHBP(25.11,IEN1,0),"^",1)
  1. . D BMES^XPDUTL(" "_NAME_" is corrected in HEALTH BENEFIT PLAN File to "_NAME1_".")
  1. Q
  1. ;