Last change
on this file since 952 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
870 bytes
|
Rev | Line | |
---|
[628] | 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.