XOBUPOST ;; ld,mjk/alb - Foundations Post-Init ; 07/27/2002 13:00
;;1.6;Foundations;;May 08, 2009;Build 15
;Per VHA directive 2004-038, this routine should not be modified.
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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXOBUPOST 751 printed Oct 16, 2024@17:55:46 Page 2
XOBUPOST ;; ld,mjk/alb - Foundations Post-Init ; 07/27/2002 13:00
+1 ;;1.6;Foundations;;May 08, 2009;Build 15
+2 ;Per VHA directive 2004-038, this routine should not be modified.
+3 QUIT
+4 ;
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 ;
