XOBUPOST.m

XOBUPOST ;; ld,mjk/alb - Foundations Post-Init ; 07/27/2002  13:00

 ;;1.5;Foundations;;Sep 09, 2005

 ;;Foundations Toolbox Release v1.5 [Build: 1.5.0.026]

 ;

 QUIT

 ;

EN ; -- add post-init code here

 DO PARMS

 QUIT

 ;

 ;

PARMS ; -- add parameter entry

 NEW DIC,X,Y,DIE,DA,DR,XOBBOX,XOBDA,XOBMULI,XOBNEW

 ;

 ; -- box-pair name, no ien

 SET XOBBOX=$PIECE($$GETENV(),U,4)

 ;

 ; -- Top-Level Parameters --

 SET DIC="^XOB(18.01,",DIC(0)="LX",X=$$DOMAIN() DO ^DIC

 ;

 QUIT

 ;

 ;

DOMAIN() ; -- get account's domain entry

 ;

 QUIT $$KSP^XUPARAM("WHERE")

 ;

 ;

GETENV() ; -- get environment variable

 ;-- Get environment of current system i.e. Y=UCI^VOL/DIR^NODE^BOX LOOKUP

 NEW Y

 DO GETENV^%ZOSV

 QUIT Y

 ;

XOBUPOST  ;; ld,mjk/alb - Foundations Post-Init ; 07/27/2002  13:00

 +1       ;;1.5;Foundations;;Sep 09, 2005

 +2       ;;Foundations Toolbox Release v1.5 [Build: 1.5.0.026]

 +3       ;

 +4        QUIT 

 +5       ;

EN        ; -- add post-init code here

 +1        DO PARMS

 +2        QUIT 

 +3       ;

 +4       ;

PARMS     ; -- add parameter entry

 +1        NEW DIC,X,Y,DIE,DA,DR,XOBBOX,XOBDA,XOBMULI,XOBNEW

 +2       ;

 +3       ; -- box-pair name, no ien

 +4        SET XOBBOX=$PIECE($$GETENV(),U,4)

 +5       ;

 +6       ; -- Top-Level Parameters --

 +7        SET DIC="^XOB(18.01,"

           SET DIC(0)="LX"

           SET X=$$DOMAIN()

           DO ^DIC

 +8       ;

 +9        QUIT 

 +10      ;

 +11      ;

DOMAIN()  ; -- get account's domain entry

 +1       ;

 +2        QUIT $$KSP^XUPARAM("WHERE")

 +3       ;

 +4       ;

GETENV()  ; -- get environment variable

 +1       ;-- Get environment of current system i.e. Y=UCI^VOL/DIR^NODE^BOX LOOKUP

 +2        NEW Y

 +3        DO GETENV^%ZOSV

 +4        QUIT Y

 +5       ;