EAS1P24.m

EAS1P24 ;ALB/TCK - Post Init for EAS*1.0*24 ;18 DEC 2002

 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**24**;MAR 15, 2001

 ;

POST ; Entry point for post init

 ;

 ; Update LTC COPAY EXEMPTION file (#714.1)

 D MES^XPDUTL("*** Updating LTC COPAY EXEMPTION (File #714.1) ***")

 N DIC,DA,DIE,X,Y,FILE,DR

 ; Modify entry #11

 D MES^XPDUTL("  - Modifying entry #11")

 S FILE="^EAS(714.1,"

 S DIC=FILE,X=11 D ^DIC

 I Y<0 D MES^XPDUTL("    ERROR: Entry #11 not updated") Q

 S DIE=FILE,DA=11,DR=".01///LTC RELATED TO HOSPICE CARE"

 D ^DIE,MES^XPDUTL("  - Entry #11 Modified")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EAS1P24   581     printed  Apr 09, 2024@21:00:05                                                                                                                                                                                                      Page 2

EAS1P24   ;ALB/TCK - Post Init for EAS*1.0*24 ;18 DEC 2002

 +1       ;;1.0;ENROLLMENT APPLICATION SYSTEM;**24**;MAR 15, 2001

 +2       ;

POST      ; Entry point for post init

 +1       ;

 +2       ; Update LTC COPAY EXEMPTION file (#714.1)

 +3        DO MES^XPDUTL("*** Updating LTC COPAY EXEMPTION (File #714.1) ***")

 +4        NEW DIC,DA,DIE,X,Y,FILE,DR

 +5       ; Modify entry #11

 +6        DO MES^XPDUTL("  - Modifying entry #11")

 +7        SET FILE="^EAS(714.1,"

 +8        SET DIC=FILE

           SET X=11

           DO ^DIC

 +9        IF Y<0

               DO MES^XPDUTL("    ERROR: Entry #11 not updated")

               QUIT 

 +10       SET DIE=FILE

           SET DA=11

           SET DR=".01///LTC RELATED TO HOSPICE CARE"

 +11       DO ^DIE

           DO MES^XPDUTL("  - Entry #11 Modified")

 +12       QUIT 

 +13      ;