Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DG53456P

DG53456P.m

Go to the documentation of this file.
  1. DG53456P ;ALB/CKN - Post Install for DG*5.3*454; 16 AUG 2002
  1. ;;5.3;Registration;**456**; Aug 13,1993
  1. ;
  1. POST ; Entry point for post init
  1. ; Update MEANS TEST STATUS file (#408.32)
  1. D MES^XPDUTL("*** Updating MEANS TEST STATUS file(#408.32)***")
  1. N DIC,DA,DIE,X,Y,FILE,DATA,UPD,DGENDA
  1. ; Modify entry #4
  1. D MES^XPDUTL(" - Modifying entry #4")
  1. S FILE="^DG(408.32,"
  1. S DIC=FILE,DIC(0)="N",X=4 D ^DIC
  1. I Y<0 D MES^XPDUTL(" ERROR: Entry #4 not updated")
  1. E D
  1. . S DATA(.01)="MT COPAY EXEMPT",DGENDA=4
  1. . S UPD=$$UPD^DGENDBS(408.32,DGENDA,.DATA)
  1. ; Modify entry #6
  1. D MES^XPDUTL(" - Modifying entry #6")
  1. S X=6 D ^DIC
  1. I Y<0 D MES^XPDUTL(" ERROR: Entry #6 not updated")
  1. E D
  1. . S DATA(.01)="MT COPAY REQUIRED",DGENDA=6
  1. . S UPD=$$UPD^DGENDBS(408.32,DGENDA,.DATA)
  1. Q