source: FOIAVistA/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EAS1P7.m@ 1731

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

initial load of FOIAVistA 6/30/08 version

File size: 716 bytes
Line 
1EAS1P7 ;ALB/LBD - Post Init for EAS*1.0*7 ;12 MAR 2002
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**7**;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
9 ; Modify entry #2
10 D MES^XPDUTL(" - Modifying entry #2")
11 S FILE="^EAS(714.1,"
12 S DIC=FILE,DIC(0)="N",X=2 D ^DIC
13 I Y<0 D MES^XPDUTL(" ERROR: Entry #2 not updated")
14 E S DIE=FILE,DA=2,DR=".01///INCOME (LAST YEAR) BELOW LTC THRESHOLD" D ^DIE
15 ; Add entry #12
16 D MES^XPDUTL(" - Adding entry #12")
17 K DO
18 S DIC=FILE,DIC(0)="F",(DA,DINUM)=12
19 S X="INCOME (CURRENT YEAR) BELOW LTC THRESHOLD",DIC("DR")=".02////1"
20 D FILE^DICN
21 Q
Note: See TracBrowser for help on using the repository browser.