XUMF382 ;ISS/RAM - post-install routine ;04/15/02
;;8.0;KERNEL;**382**;Jul 10, 1995
;
POST ; -- post init
;
N X
S X=$$ATTREM()
;
Q
;
ATTREM() ;Attach Remote Members to XUMF ERROR Mail Group
N XUMFERRF,XUMFFDA,XUMFGIEN,XUMFGNM,XUMFLNE,XUMFMSG,XUMFRNM,XUMFTXT
K XUMMSG
D BMES^XPDUTL("Attaching Remote Members to XUMF Mail Groups")
F XUMFLNE=1:1 S XUMFTXT=$P($T(REMMEM+XUMFLNE),";;",2) Q:XUMFTXT="END"!($G(XUMFERRF)) D
. S XUMFGNM=$P(XUMFTXT,"^",1)
. S XUMFGIEN=$$FIND1^DIC(3.8,"","X",XUMFGNM,"","","")
. S XUMFRNM=$P(XUMFTXT,"^",2)
. ;If Mail Group not found, error
. I XUMFGIEN'>0 D
. . S XUMMSG(1)="**"
. . S XUMMSG(2)="** Mail Group "_XUMFGNM_" not found"
. . D MES^XPDUTL(.XUMMSG) K XUMMSG
. . S XUMFERRF=1
. ELSE D
. . ;Attach Remote Member to Mail Group
. . N XUMFFDA,XUMFIEN,XUMFMSG
. . S XUMFFDA(3.812,"?+2,"_XUMFGIEN_",",.01)=XUMFRNM
. . D UPDATE^DIE("","XUMFFDA","XUMFIEN","XUMFMSG")
. . ;Check for error
. . I $D(XUMFMSG("DIERR")) D
. . . S XUMMSG(1)="**"
. . . S XUMMSG(2)="** Unable to attach "_XUMFRNM_" to "_XUMFGNM
. . . D MES^XPDUTL(.XUMMSG) K XUMMSG
. . . S XUMFERRF=1
. . ELSE D
. . . S XUMMSG(1)=" "
. . . S XUMMSG(2)=".."_XUMFRNM_$S($G(XUMFIEN(2,0))="?":" already",1:"")_" attached to "_XUMFGNM
. . . D MES^XPDUTL(.XUMMSG) K XUMMSG
;Check for error
I $G(XUMFERRF) D
. S XUMMSG(1)="** Post-installation will be halted"
. S XUMMSG(2)="**"
. D MES^XPDUTL(.XUMMSG) K XUMMSG
Q +$S($G(XUMFERRF):0,1:1)
;
REMMEM ;Mail Group Name^Remote Member
;;XUMF ERROR^G.XUMF ERROR@DOMAIN.EXT
;;XUMF ERROR^G.HDIS ERRORS@DOMAIN.EXT
;;XUMF ERROR^G.HDIS ERT NOTIFICATION@DOMAIN.EXT
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUMF382 1685 printed Apr 09, 2024@21:12:09 Page 2
XUMF382 ;ISS/RAM - post-install routine ;04/15/02
+1 ;;8.0;KERNEL;**382**;Jul 10, 1995
+2 ;
POST ; -- post init
+1 ;
+2 NEW X
+3 SET X=$$ATTREM()
+4 ;
+5 QUIT
+6 ;
ATTREM() ;Attach Remote Members to XUMF ERROR Mail Group
+1 NEW XUMFERRF,XUMFFDA,XUMFGIEN,XUMFGNM,XUMFLNE,XUMFMSG,XUMFRNM,XUMFTXT
+2 KILL XUMMSG
+3 DO BMES^XPDUTL("Attaching Remote Members to XUMF Mail Groups")
+4 FOR XUMFLNE=1:1
SET XUMFTXT=$PIECE($TEXT(REMMEM+XUMFLNE),";;",2)
if XUMFTXT="END"!($GET(XUMFERRF))
QUIT
Begin DoDot:1
+5 SET XUMFGNM=$PIECE(XUMFTXT,"^",1)
+6 SET XUMFGIEN=$$FIND1^DIC(3.8,"","X",XUMFGNM,"","","")
+7 SET XUMFRNM=$PIECE(XUMFTXT,"^",2)
+8 ;If Mail Group not found, error
+9 IF XUMFGIEN'>0
Begin DoDot:2
+10 SET XUMMSG(1)="**"
+11 SET XUMMSG(2)="** Mail Group "_XUMFGNM_" not found"
+12 DO MES^XPDUTL(.XUMMSG)
KILL XUMMSG
+13 SET XUMFERRF=1
End DoDot:2
+14 IF '$TEST
Begin DoDot:2
+15 ;Attach Remote Member to Mail Group
+16 NEW XUMFFDA,XUMFIEN,XUMFMSG
+17 SET XUMFFDA(3.812,"?+2,"_XUMFGIEN_",",.01)=XUMFRNM
+18 DO UPDATE^DIE("","XUMFFDA","XUMFIEN","XUMFMSG")
+19 ;Check for error
+20 IF $DATA(XUMFMSG("DIERR"))
Begin DoDot:3
+21 SET XUMMSG(1)="**"
+22 SET XUMMSG(2)="** Unable to attach "_XUMFRNM_" to "_XUMFGNM
+23 DO MES^XPDUTL(.XUMMSG)
KILL XUMMSG
+24 SET XUMFERRF=1
End DoDot:3
+25 IF '$TEST
Begin DoDot:3
+26 SET XUMMSG(1)=" "
+27 SET XUMMSG(2)=".."_XUMFRNM_$SELECT($GET(XUMFIEN(2,0))="?":" already",1:"")_" attached to "_XUMFGNM
+28 DO MES^XPDUTL(.XUMMSG)
KILL XUMMSG
End DoDot:3
End DoDot:2
End DoDot:1
+29 ;Check for error
+30 IF $GET(XUMFERRF)
Begin DoDot:1
+31 SET XUMMSG(1)="** Post-installation will be halted"
+32 SET XUMMSG(2)="**"
+33 DO MES^XPDUTL(.XUMMSG)
KILL XUMMSG
End DoDot:1
+34 QUIT +$SELECT($GET(XUMFERRF):0,1:1)
+35 ;
REMMEM ;Mail Group Name^Remote Member
+1 ;;XUMF ERROR^G.XUMF ERROR@DOMAIN.EXT
+2 ;;XUMF ERROR^G.HDIS ERRORS@DOMAIN.EXT
+3 ;;XUMF ERROR^G.HDIS ERT NOTIFICATION@DOMAIN.EXT
+4 ;;END
