KMPSPOST.m

KMPSPOST ;OAK/RAK - SAGG Post Install Routine ;9/1/2015

 ;;2.0;SAGG PROJECT;**1**;Jul 02, 2007;Build 67

 ;

EN ;-- entry point for post-install

 ;

 D BMES^XPDUTL(" Begin Post-Install...")

 D GROUP

 D MES^XPDUTL(" Post-Install complete!")

 ;

 Q

 ;

GROUP ;-- delete entry REMOTE MEMBER 'G.A1B5@FO-BIRM.DOMAIN.EXT' or 'G.A1B5@ISC-BIRM.DOMAIN.EXT' from KMP-CAPMAN mail group

 N ERROR,FDA,GROUP,IEN,IEN1

 S IEN=$O(^XMB(3.8,"B","KMP-CAPMAN",0))

 Q:'IEN

 F GROUP="G.A1B5@FO-BIRM.DOMAIN.EXT","G.A1B5@ISC-BIRM.DOMAIN.EXT" D 

 .K FDA,IEN1

 .S IEN1=$O(^XMB(3.8,IEN,6,"B",GROUP,0))

 .; MEMBER - REMOTE field

 .S FDA($J,3.812,IEN1_","_IEN_",",.01)="@"

 .D FILE^DIE("","FDA($J)","ERROR")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---KMPSPOST   698     printed  Apr 09, 2024@20:47:02                                                                                                                                                                                                     Page 2

KMPSPOST  ;OAK/RAK - SAGG Post Install Routine ;9/1/2015

 +1       ;;2.0;SAGG PROJECT;**1**;Jul 02, 2007;Build 67

 +2       ;

EN        ;-- entry point for post-install

 +1       ;

 +2        DO BMES^XPDUTL(" Begin Post-Install...")

 +3        DO GROUP

 +4        DO MES^XPDUTL(" Post-Install complete!")

 +5       ;

 +6        QUIT 

 +7       ;

GROUP     ;-- delete entry REMOTE MEMBER 'G.A1B5@FO-BIRM.DOMAIN.EXT' or 'G.A1B5@ISC-BIRM.DOMAIN.EXT' from KMP-CAPMAN mail group

 +1        NEW ERROR,FDA,GROUP,IEN,IEN1

 +2        SET IEN=$ORDER(^XMB(3.8,"B","KMP-CAPMAN",0))

 +3        if 'IEN

               QUIT 

 +4        FOR GROUP="G.A1B5@FO-BIRM.DOMAIN.EXT","G.A1B5@ISC-BIRM.DOMAIN.EXT"

               Begin DoDot:1

 +5                KILL FDA,IEN1

 +6                SET IEN1=$ORDER(^XMB(3.8,IEN,6,"B",GROUP,0))

 +7       ; MEMBER - REMOTE field

 +8                SET FDA($JOB,3.812,IEN1_","_IEN_",",.01)="@"

 +9                DO FILE^DIE("","FDA($J)","ERROR")

               End DoDot:1

 +10       QUIT