| 1 | XUMF382 ;ISS/RAM - post-install routine ;04/15/02
|
|---|
| 2 | ;;8.0;KERNEL;**382**;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | POST ; -- post init
|
|---|
| 5 | ;
|
|---|
| 6 | N X
|
|---|
| 7 | S X=$$ATTREM()
|
|---|
| 8 | ;
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | ATTREM() ;Attach Remote Members to XUMF ERROR Mail Group
|
|---|
| 12 | N XUMFERRF,XUMFFDA,XUMFGIEN,XUMFGNM,XUMFLNE,XUMFMSG,XUMFRNM,XUMFTXT
|
|---|
| 13 | K XUMMSG
|
|---|
| 14 | D BMES^XPDUTL("Attaching Remote Members to XUMF Mail Groups")
|
|---|
| 15 | F XUMFLNE=1:1 S XUMFTXT=$P($T(REMMEM+XUMFLNE),";;",2) Q:XUMFTXT="END"!($G(XUMFERRF)) D
|
|---|
| 16 | . S XUMFGNM=$P(XUMFTXT,"^",1)
|
|---|
| 17 | . S XUMFGIEN=$$FIND1^DIC(3.8,"","X",XUMFGNM,"","","")
|
|---|
| 18 | . S XUMFRNM=$P(XUMFTXT,"^",2)
|
|---|
| 19 | . ;If Mail Group not found, error
|
|---|
| 20 | . I XUMFGIEN'>0 D
|
|---|
| 21 | . . S XUMMSG(1)="**"
|
|---|
| 22 | . . S XUMMSG(2)="** Mail Group "_XUMFGNM_" not found"
|
|---|
| 23 | . . D MES^XPDUTL(.XUMMSG) K XUMMSG
|
|---|
| 24 | . . S XUMFERRF=1
|
|---|
| 25 | . ELSE D
|
|---|
| 26 | . . ;Attach Remote Member to Mail Group
|
|---|
| 27 | . . N XUMFFDA,XUMFIEN,XUMFMSG
|
|---|
| 28 | . . S XUMFFDA(3.812,"?+2,"_XUMFGIEN_",",.01)=XUMFRNM
|
|---|
| 29 | . . D UPDATE^DIE("","XUMFFDA","XUMFIEN","XUMFMSG")
|
|---|
| 30 | . . ;Check for error
|
|---|
| 31 | . . I $D(XUMFMSG("DIERR")) D
|
|---|
| 32 | . . . S XUMMSG(1)="**"
|
|---|
| 33 | . . . S XUMMSG(2)="** Unable to attach "_XUMFRNM_" to "_XUMFGNM
|
|---|
| 34 | . . . D MES^XPDUTL(.XUMMSG) K XUMMSG
|
|---|
| 35 | . . . S XUMFERRF=1
|
|---|
| 36 | . . ELSE D
|
|---|
| 37 | . . . S XUMMSG(1)=" "
|
|---|
| 38 | . . . S XUMMSG(2)=".."_XUMFRNM_$S($G(XUMFIEN(2,0))="?":" already",1:"")_" attached to "_XUMFGNM
|
|---|
| 39 | . . . D MES^XPDUTL(.XUMMSG) K XUMMSG
|
|---|
| 40 | ;Check for error
|
|---|
| 41 | I $G(XUMFERRF) D
|
|---|
| 42 | . S XUMMSG(1)="** Post-installation will be halted"
|
|---|
| 43 | . S XUMMSG(2)="**"
|
|---|
| 44 | . D MES^XPDUTL(.XUMMSG) K XUMMSG
|
|---|
| 45 | Q +$S($G(XUMFERRF):0,1:1)
|
|---|
| 46 | ;
|
|---|
| 47 | REMMEM ;Mail Group Name^Remote Member
|
|---|
| 48 | ;;XUMF ERROR^G.XUMF ERROR@FORUM.VA.GOV
|
|---|
| 49 | ;;XUMF ERROR^G.HDIS ERRORS@FORUM.VA.GOV
|
|---|
| 50 | ;;XUMF ERROR^G.HDIS ERT NOTIFICATION@FORUM.VA.GOV
|
|---|
| 51 | ;;END
|
|---|
