source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53P417.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 777 bytes
RevLine 
[613]1DG53P417 ;ALB/GPM - Patch DG*5.3*417 Install Utility Routine ; 10/25/01 10:09am
2 ;;5.3;Registration;**417**;AUG 13, 1993
3 ;
4 ;
5 ;
6EN D STATUS ;Add new entry to ENROLLMENT STATUS file (#27.15)
7 Q
8 ;
9 ;
10STATUS ; Add new entry to ENROLLMENT STATUS file (#27.15)
11 N FDA,ERR
12 D BMES^XPDUTL("Add New Rejected Enrollment Status.")
13 I $$FIND1^DIC(27.15,"","X","REJECTED; BELOW ENROLLMENT GROUP THRESHOLD") D BMES^XPDUTL("*** New Rejected Status entry already exists!") Q
14 S FDA(27.15,"+1,",.01)="REJECTED; BELOW ENROLLMENT GROUP THRESHOLD"
15 S FDA(27.15,"+1,",.02)="N"
16 D UPDATE^DIE("","FDA","","ERR")
17 I $D(ERR) D BMES^XPDUTL("ERROR! New Rejected Status not added!"),MES^XPDUTL(ERR("DIERR",1)_": "_ERR("DIERR",1,"TEXT",1)) Q
18 D MES^XPDUTL("New Rejected Status successfully added.")
19 Q
Note: See TracBrowser for help on using the repository browser.