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

DG53140P.m

Go to the documentation of this file.
  1. DG53140P ;ALB/ABR - POST-INSTALL DG*5.3*140 EDR SHUTDOWN ; 8-Sep-97
  1. ;;5.3;Registration;**140**;Aug 13, 1993
  1. ;
  1. EN ; post-install entry point
  1. D HL7CLN
  1. D MAILGR
  1. D REMOVE
  1. Q
  1. ;
  1. ;
  1. REMOVE ; deletes file 391.51, both data and dd
  1. N DIU
  1. S DIU="^VAT(391.51,",DIU(0)="D"
  1. D EN^DIU2
  1. D BMES^XPDUTL(">>PIMS EDR EVENT file #391.51 deleted")
  1. Q
  1. ;
  1. HL7CLN ; remove EDR ENTRIES from HL7 NON-DHCP APPLICATION PARAMETER file #770
  1. ; and HL7 APPLICATION PARAMETER file (#771)
  1. N DIK,DIC,X,Y,I
  1. S (DIK,DIC)="^HL(770,",DIC(0)="X"
  1. F X="EDR-MAS","EDR-PL" D ^DIC I Y>0 D
  1. . S DA=+Y
  1. . D MES^XPDUTL(">>Removing HL7 NON-DHCP APPLICATION PARAMETER - "_X)
  1. . D ^DIK
  1. S (DIK,DIC)="^HL(771,",DIC(0)="X"
  1. F X="EDR-MAS","EDR-PL","EDR-MAS-DHCP","EDR-PL-DHCP" D ^DIC I Y>0 D
  1. . S DA=+Y
  1. . D MES^XPDUTL(">>Removing HL7 DHCP APPLICATION PARAMETER - "_X)
  1. . D ^DIK
  1. Q
  1. ;
  1. MAILGR ; remove EDR mailgroups
  1. N DIK,DIC,X,Y
  1. S (DIK,DIC)="^XMB(3.8,",DIC(0)="X"
  1. F X="EDR-PL MESSAGES","EDR-RCP","RCP-EDR REPORTS" D ^DIC I Y>0 D
  1. . S DA=+Y
  1. . D MES^XPDUTL(">>Removing EDR mailgroup "_X)
  1. . D ^DIK
  1. Q