source: FOIAVistA/tag/r/FOUNDATIONS-XOBU/XOBUPOST.m@ 719

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

initial load of FOIAVistA 6/30/08 version

File size: 700 bytes
Line 
1XOBUPOST ;; ld,mjk/alb - Foundations Post-Init ; 07/27/2002 13:00
2 ;;1.5;Foundations;;Sep 09, 2005
3 ;;Foundations Toolbox Release v1.5 [Build: 1.5.0.026]
4 ;
5 QUIT
6 ;
7EN ; -- add post-init code here
8 DO PARMS
9 QUIT
10 ;
11 ;
12PARMS ; -- add parameter entry
13 NEW DIC,X,Y,DIE,DA,DR,XOBBOX,XOBDA,XOBMULI,XOBNEW
14 ;
15 ; -- box-pair name, no ien
16 SET XOBBOX=$PIECE($$GETENV(),U,4)
17 ;
18 ; -- Top-Level Parameters --
19 SET DIC="^XOB(18.01,",DIC(0)="LX",X=$$DOMAIN() DO ^DIC
20 ;
21 QUIT
22 ;
23 ;
24DOMAIN() ; -- get account's domain entry
25 ;
26 QUIT $$KSP^XUPARAM("WHERE")
27 ;
28 ;
29GETENV() ; -- get environment variable
30 ;-- Get environment of current system i.e. Y=UCI^VOL/DIR^NODE^BOX LOOKUP
31 NEW Y
32 DO GETENV^%ZOSV
33 QUIT Y
34 ;
Note: See TracBrowser for help on using the repository browser.