DG53140P ;ALB/ABR - POST-INSTALL DG*5.3*140 EDR SHUTDOWN ; 8-Sep-97
;;5.3;Registration;**140**;Aug 13, 1993
;
EN ; post-install entry point
D HL7CLN
D MAILGR
D REMOVE
Q
;
;
REMOVE ; deletes file 391.51, both data and dd
N DIU
S DIU="^VAT(391.51,",DIU(0)="D"
D EN^DIU2
D BMES^XPDUTL(">>PIMS EDR EVENT file #391.51 deleted")
Q
;
HL7CLN ; remove EDR ENTRIES from HL7 NON-DHCP APPLICATION PARAMETER file #770
; and HL7 APPLICATION PARAMETER file (#771)
N DIK,DIC,X,Y,I
S (DIK,DIC)="^HL(770,",DIC(0)="X"
F X="EDR-MAS","EDR-PL" D ^DIC I Y>0 D
. S DA=+Y
. D MES^XPDUTL(">>Removing HL7 NON-DHCP APPLICATION PARAMETER - "_X)
. D ^DIK
S (DIK,DIC)="^HL(771,",DIC(0)="X"
F X="EDR-MAS","EDR-PL","EDR-MAS-DHCP","EDR-PL-DHCP" D ^DIC I Y>0 D
. S DA=+Y
. D MES^XPDUTL(">>Removing HL7 DHCP APPLICATION PARAMETER - "_X)
. D ^DIK
Q
;
MAILGR ; remove EDR mailgroups
N DIK,DIC,X,Y
S (DIK,DIC)="^XMB(3.8,",DIC(0)="X"
F X="EDR-PL MESSAGES","EDR-RCP","RCP-EDR REPORTS" D ^DIC I Y>0 D
. S DA=+Y
. D MES^XPDUTL(">>Removing EDR mailgroup "_X)
. D ^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53140P 1102 printed Dec 13, 2024@02:36:13 Page 2
DG53140P ;ALB/ABR - POST-INSTALL DG*5.3*140 EDR SHUTDOWN ; 8-Sep-97
+1 ;;5.3;Registration;**140**;Aug 13, 1993
+2 ;
EN ; post-install entry point
+1 DO HL7CLN
+2 DO MAILGR
+3 DO REMOVE
+4 QUIT
+5 ;
+6 ;
REMOVE ; deletes file 391.51, both data and dd
+1 NEW DIU
+2 SET DIU="^VAT(391.51,"
SET DIU(0)="D"
+3 DO EN^DIU2
+4 DO BMES^XPDUTL(">>PIMS EDR EVENT file #391.51 deleted")
+5 QUIT
+6 ;
HL7CLN ; remove EDR ENTRIES from HL7 NON-DHCP APPLICATION PARAMETER file #770
+1 ; and HL7 APPLICATION PARAMETER file (#771)
+2 NEW DIK,DIC,X,Y,I
+3 SET (DIK,DIC)="^HL(770,"
SET DIC(0)="X"
+4 FOR X="EDR-MAS","EDR-PL"
DO ^DIC
IF Y>0
Begin DoDot:1
+5 SET DA=+Y
+6 DO MES^XPDUTL(">>Removing HL7 NON-DHCP APPLICATION PARAMETER - "_X)
+7 DO ^DIK
End DoDot:1
+8 SET (DIK,DIC)="^HL(771,"
SET DIC(0)="X"
+9 FOR X="EDR-MAS","EDR-PL","EDR-MAS-DHCP","EDR-PL-DHCP"
DO ^DIC
IF Y>0
Begin DoDot:1
+10 SET DA=+Y
+11 DO MES^XPDUTL(">>Removing HL7 DHCP APPLICATION PARAMETER - "_X)
+12 DO ^DIK
End DoDot:1
+13 QUIT
+14 ;
MAILGR ; remove EDR mailgroups
+1 NEW DIK,DIC,X,Y
+2 SET (DIK,DIC)="^XMB(3.8,"
SET DIC(0)="X"
+3 FOR X="EDR-PL MESSAGES","EDR-RCP","RCP-EDR REPORTS"
DO ^DIC
IF Y>0
Begin DoDot:1
+4 SET DA=+Y
+5 DO MES^XPDUTL(">>Removing EDR mailgroup "_X)
+6 DO ^DIK
End DoDot:1
+7 QUIT
