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 ---[H[J[2J[HKMPSPOST 698 printed Nov 22, 2024@16:52:03 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
