- 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 Jan 18, 2025@03:36:55 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