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

DG53P417.m

Go to the documentation of this file.
  1. DG53P417 ;ALB/GPM - Patch DG*5.3*417 Install Utility Routine ; 10/25/01 10:09am
  1. ;;5.3;Registration;**417**;AUG 13, 1993
  1. ;
  1. ;
  1. ;
  1. EN D STATUS ;Add new entry to ENROLLMENT STATUS file (#27.15)
  1. Q
  1. ;
  1. ;
  1. STATUS ; Add new entry to ENROLLMENT STATUS file (#27.15)
  1. N FDA,ERR
  1. D BMES^XPDUTL("Add New Rejected Enrollment Status.")
  1. I $$FIND1^DIC(27.15,"","X","REJECTED; BELOW ENROLLMENT GROUP THRESHOLD") D BMES^XPDUTL("*** New Rejected Status entry already exists!") Q
  1. S FDA(27.15,"+1,",.01)="REJECTED; BELOW ENROLLMENT GROUP THRESHOLD"
  1. S FDA(27.15,"+1,",.02)="N"
  1. D UPDATE^DIE("","FDA","","ERR")
  1. I $D(ERR) D BMES^XPDUTL("ERROR! New Rejected Status not added!"),MES^XPDUTL(ERR("DIERR",1)_": "_ERR("DIERR",1,"TEXT",1)) Q
  1. D MES^XPDUTL("New Rejected Status successfully added.")
  1. Q