source: FOIAVistA/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EAS136P.m@ 1757

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 
1EAS136P ;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 ;
8EN ;
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.