source: BMXNET_RPMS_dotNET_UTILITIES-BMX/trunk/m/BMXUTL6.m@ 1589

Last change on this file since 1589 was 1209, checked in by Sam Habiel, 13 years ago

BMXMON fix; updated all routines to v 2.31

File size: 979 bytes
Line 
1BMXUTL6 ; IHS/OIT/HMW - BMXNET INSTALLATION CALLS ;
2 ;;2.31;BMX;;Jul 25, 2011
3 ;
4 ;
5POST ;EP - Called from BMX Installation postinit
6 ;
7 ;Add BMX AV CODE to XUS SIGNON broker option
8 N BMXFDA,BMXIEN,BMXMSG,BMXIENS,BMXMENN,BMXAVI
9 S BMXAVI=$O(^XWB(8994,"B","BMX AV CODE",0))
10 Q:'+BMXAVI
11 S BMXIENS=$O(^DIC(19,"B","XUS SIGNON",0))
12 Q:'+BMXIENS
13 ;
14 S BMXIENS="?+2,"_BMXIENS_","
15 S BMXFDA(19.05,BMXIENS,.01)=BMXAVI
16 K BMXIEN,BMXMSG
17 S DIC(0)=""
18 D UPDATE^DIE("","BMXFDA","BMXIEN","BMXMSG")
19 Q
20 ;
21 ;
22 ;
23 ;Create BMXNET,APPLICATION user and set attributes
24 ;
25 ;N BMXFDA,BMXIEN,BMXMSG,BMXIENS,BMXMENN
26 ;S BMXIENS = "?+1,"
27 ;S BMXFDA(200,BMXIENS,.01)="BMXNET,APPLICATION"
28 ;S BMXFDA(200,BMXIENS,2)="1_(a>yr}:3x3ja9\8vbH"
29 ;S BMXFDA(200,BMXIENS,11)="$;HOSs|:3w25lLD}Be="
30 ;S BMXFDA(200,BMXIENS,11.2)="88888,88888"
31 ;S BMXMENN=$O(^DIC(19,"B","BMXRPC",0))
32 ;I +BMXMENN S BMXFDA(200.03,"?+2,?+1,",.01)=BMXMENN
33 ;K BMXIEN,BMXMSG
34 ;S DIC(0)=""
35 ;D UPDATE^DIE("","BMXFDA","BMXIEN","BMXMSG")
36 Q
Note: See TracBrowser for help on using the repository browser.