source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUMF382.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1XUMF382 ;ISS/RAM - post-install routine ;04/15/02
2 ;;8.0;KERNEL;**382**;Jul 10, 1995
3 ;
4POST ; -- post init
5 ;
6 N X
7 S X=$$ATTREM()
8 ;
9 Q
10 ;
11ATTREM() ;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 ;
47REMMEM ;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
Note: See TracBrowser for help on using the repository browser.