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 ---[H[J[2J[HEAS1P24 581 printed Dec 13, 2024@01:53:32 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 ;
