Last change
on this file since 1757 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
870 bytes
|
Line | |
---|
1 | EAS136P ;ALB/ERC - Combat Vet Pre-Install ;7/23/03
|
---|
2 | ;;1.0;ENROLLMENT APPLICATION SYSTEM;**36**;Mar 15, 2001
|
---|
3 | ;
|
---|
4 | ;This pre-install routine will add one entry into the LTC CO-PAY
|
---|
5 | ;EXEMPTION file (#714.1) to support the Combat Vet project
|
---|
6 | ;associated patches - DG*5.3*528, SD*5.3*305
|
---|
7 | ;
|
---|
8 | EN ;
|
---|
9 | N DGERR,DGFDA,DGT
|
---|
10 | D BMES^XPDUTL(" ** Adding a new entry to LTC CO-PAY EXEMPTION file (#714.1).")
|
---|
11 | S DGT="LTC IS SERVICE RELATED - COMBAT VET ELIGIBLE"
|
---|
12 | I $$FIND1^DIC(714.1,"","X",DGT) D BMES^XPDUTL(" ** "_DGT_" already exists in file #714.1.") Q
|
---|
13 | S DGFDA(714.1,"+1,",.01)="LTC IS SERVICE RELATED - COMBAT VET ELIGIBLE"
|
---|
14 | S DGFDA(714.1,"+1,",.02)=1
|
---|
15 | D UPDATE^DIE("","DGFDA","","DGERR")
|
---|
16 | I $D(DGERR) D BMES^XPDUTL(" **** ERROR! "_DGT_" not added to file #714.1"),MES^XPDUTL(DGERR("DIERR",1)_": "_DGERR("DIERR",1,"TEXT",1)) Q
|
---|
17 | D BMES^XPDUTL(" "_DGT_" successfully added.")
|
---|
18 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.