source: FOIAVistA/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EAS1P24.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: 564 bytes
Line 
1EAS1P24 ;ALB/TCK - Post Init for EAS*1.0*24 ;18 DEC 2002
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**24**;MAR 15, 2001
3 ;
4POST ; Entry point for post init
5 ;
6 ; Update LTC COPAY EXEMPTION file (#714.1)
7 D MES^XPDUTL("*** Updating LTC COPAY EXEMPTION (File #714.1) ***")
8 N DIC,DA,DIE,X,Y,FILE,DR
9 ; Modify entry #11
10 D MES^XPDUTL(" - Modifying entry #11")
11 S FILE="^EAS(714.1,"
12 S DIC=FILE,X=11 D ^DIC
13 I Y<0 D MES^XPDUTL(" ERROR: Entry #11 not updated") Q
14 S DIE=FILE,DA=11,DR=".01///LTC RELATED TO HOSPICE CARE"
15 D ^DIE,MES^XPDUTL(" - Entry #11 Modified")
16 Q
17 ;
Note: See TracBrowser for help on using the repository browser.