DG53456P ;ALB/CKN - Post Install for DG*5.3*454; 16 AUG 2002
;;5.3;Registration;**456**; Aug 13,1993
;
POST ; Entry point for post init
; Update MEANS TEST STATUS file (#408.32)
D MES^XPDUTL("*** Updating MEANS TEST STATUS file(#408.32)***")
N DIC,DA,DIE,X,Y,FILE,DATA,UPD,DGENDA
; Modify entry #4
D MES^XPDUTL(" - Modifying entry #4")
S FILE="^DG(408.32,"
S DIC=FILE,DIC(0)="N",X=4 D ^DIC
I Y<0 D MES^XPDUTL(" ERROR: Entry #4 not updated")
E D
. S DATA(.01)="MT COPAY EXEMPT",DGENDA=4
. S UPD=$$UPD^DGENDBS(408.32,DGENDA,.DATA)
; Modify entry #6
D MES^XPDUTL(" - Modifying entry #6")
S X=6 D ^DIC
I Y<0 D MES^XPDUTL(" ERROR: Entry #6 not updated")
E D
. S DATA(.01)="MT COPAY REQUIRED",DGENDA=6
. S UPD=$$UPD^DGENDBS(408.32,DGENDA,.DATA)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53456P 795 printed Dec 13, 2024@02:37:31 Page 2
DG53456P ;ALB/CKN - Post Install for DG*5.3*454; 16 AUG 2002
+1 ;;5.3;Registration;**456**; Aug 13,1993
+2 ;
POST ; Entry point for post init
+1 ; Update MEANS TEST STATUS file (#408.32)
+2 DO MES^XPDUTL("*** Updating MEANS TEST STATUS file(#408.32)***")
+3 NEW DIC,DA,DIE,X,Y,FILE,DATA,UPD,DGENDA
+4 ; Modify entry #4
+5 DO MES^XPDUTL(" - Modifying entry #4")
+6 SET FILE="^DG(408.32,"
+7 SET DIC=FILE
SET DIC(0)="N"
SET X=4
DO ^DIC
+8 IF Y<0
DO MES^XPDUTL(" ERROR: Entry #4 not updated")
+9 IF '$TEST
Begin DoDot:1
+10 SET DATA(.01)="MT COPAY EXEMPT"
SET DGENDA=4
+11 SET UPD=$$UPD^DGENDBS(408.32,DGENDA,.DATA)
End DoDot:1
+12 ; Modify entry #6
+13 DO MES^XPDUTL(" - Modifying entry #6")
+14 SET X=6
DO ^DIC
+15 IF Y<0
DO MES^XPDUTL(" ERROR: Entry #6 not updated")
+16 IF '$TEST
Begin DoDot:1
+17 SET DATA(.01)="MT COPAY REQUIRED"
SET DGENDA=6
+18 SET UPD=$$UPD^DGENDBS(408.32,DGENDA,.DATA)
End DoDot:1
+19 QUIT
