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

DG53121P.m

Go to the documentation of this file.
  1. DG53121P ;ALB/CJM - LOCAL ENROLLMENT ENHANCEMENT POST INSTALL UPDATES; 7/23/97
  1. ;;5.3;Registration;**121**;Aug 13, 1993
  1. ;
  1. EN ;
  1. ;-- update Eligibility file #8
  1. D ELIG
  1. Q
  1. ;
  1. ELIG ;-- This function will add a CATASTROPHICALLY DISABLED eligibility to file #8
  1. ;
  1. N X,Y,DGE,DIC,DIE,DR,DA,D0
  1. ;
  1. D BMES^XPDUTL(">>> Adding 'CATASTROPHICALLY DISABLED' to the Eligibility file #8.")
  1. S X=$O(^DIC(8,"B","CATASTROPHICALLY DISABLED",0))
  1. I X D BMES^XPDUTL(" --- Entry Already exists! --- ") G ELIGQ
  1. ;
  1. ; else add entry to file
  1. S DGE=$O(^DIC(8.1,"B","CATASTROPHICALLY DISABLED",0))
  1. S DIC="^DIC(8,",X="CATASTROPHICALLY DISABLED"
  1. S DIC("DR")="1///^S X=""BLUE"";2///^S X=""CD"";4///^S X=""Y"";5///^S X=""CATASTROP. DISAB."";7///1;3///10;9///^S X=""VA STANDARD"";11///^S X=""VA"";8////"_DGE,DIC(0)="LS"
  1. D FILE^DICN
  1. I ((+Y)>0) D BMES^XPDUTL(" Entry Successfully Added. ")
  1. I Y=-1 D BMES^XPDUTL(" Entry was NOT successfully added. ")
  1. ;
  1. ELIGQ ;
  1. D BMES^XPDUTL("Done.")
  1. Q