UCI/VOL: [EHR,EHR]

$ZA:   0

Current $IO: /dev/null                  Current $ZIO: /dev/null^0^0^0

$ZE= CAPI+10^XWBPRS, Routine name expected here,150373650,-%GTM-E-RTNNAME

 D @XWBCALL S XWBCALL2=XWBCALL ;Save call for debug

Last Global Ref: ^XUSEC("XUPROGMODE",1)

**************************************************************

Last Global Ref: ^XUSEC("XUPROGMODE",1)

Which symbol? > ^L


$DEVICE=
$ECODE=,Z150373650,
$ESTACK=8
$ETRAP=D ^%ZTER,EXIT^XWBTCPM HALT
$QUIT=0
$STACK=8
$STACK(000)=-run GTMLNX^XWBTCPM
$STACK(000,"ECODE")=
$STACK(000,"PLACE")=RESTART+3^XWBTCPM
$STACK(000,"MCODE")= U XWBTDEV D MAIN
$STACK(001)=DO
$STACK(001,"ECODE")=
$STACK(001,"PLACE")=MAIN+1^XWBTCPM
$STACK(001,"MCODE")= F  D  Q:XWBTBUF="#BYE#"
$STACK(002)=DO
$STACK(002,"ECODE")=
$STACK(002,"PLACE")=MAIN+14^XWBTCPM
$STACK(002,"MCODE")= . D CALLP^XWBPRS(.XWBR,$G(XWBDEBUG)) ;Read the NEW Msg para
meters and call RPC
$STACK(003)=DO
     Enter '^' to quit listing, <RETURN> to continue...:

$STACK(003,"ECODE")=
$STACK(003,"PLACE")=CALLP+10^XWBPRS
$STACK(003,"MCODE")= I '+ERR D
$STACK(004)=DO
$STACK(004,"ECODE")=
$STACK(004,"PLACE")=CALLP+11^XWBPRS
$STACK(004,"MCODE")= . D CAPI(.XWBP,XWB("PARAM"))
$STACK(005)=DO
$STACK(005,"ECODE")=,Z150373650,
$STACK(005,"PLACE")=CAPI+10^XWBPRS
$STACK(005,"MCODE")= D @XWBCALL S XWBCALL2=XWBCALL ;Save call for debug
$STACK(006)=DO
$STACK(006,"ECODE")=
$STACK(006,"PLACE")=ETRAP+6^XWBTCPM
$STACK(006,"MCODE")= D ^%ZTER ;%ZTER clears $ZE and $ZCODE
$X $Y=0 0
$ZV=GT.M V5.3-003 Linux x86
%ZT("^XUTL(""XQ"",$J)")=
%ZTER11I=EHR,EHR
%ZTER11N=4
     Enter '^' to quit listing, <RETURN> to continue...:

%ZTER11S=
%ZTER11Z=0
%ZTER12A=0
%ZTER12B=
%ZTERCNT=44
%ZTERH1=61951
%ZTERROR=
%ZTERRT=^%ZTER(1,61951,1,4)
%ZTERSUB=%ZTER11S)
%ZTERVAP=%ZT(
%ZTERVAR=%ZTERVAR
%ZTERZE=CAPI+10^XWBPRS, Routine name expected here,150373650,-%GTM-E-RTNNAME
DISYS=19
DT=3100813
DTIME=30
DUZ=1
DUZ(0)=@
DUZ(1)=
DUZ(2)=2
DUZ("AG")=E
     Enter '^' to quit listing, <RETURN> to continue...:

DUZ("AUTO")=0
DUZ("BUF")=1
DUZ("LANG")=
ERR=0
IO=/dev/null
IO(0)=/dev/null
IO(1,"/dev/null")=
IO("CLNM")=dsk115-p1.quinnox.corp
IO("ERROR")=
IO("GTM-IP")=::ffff:10.40.4.43
IO("HOME")=47^/dev/null
IO("IP")=10.40.4.43
IO("ZIO")=/dev/null
IOBS=$C(8)
IOF=#
IOM=132
ION=
IOS=0
IOSL=64
IOST=P-OTHER
     Enter '^' to quit listing, <RETURN> to continue...:

IOST(0)=16
IOT=TRM
IOXY=
TYPE=1
U=^
XQVOL=EHR
XQXFLG=0^0
XQXFLG("LLOG")=3100813.123706
XQY=8552
XQY0=OR CPRS GUI CHART
XR=[XWB]
XWB(0,"LENV")=3
XWB(0,"RT")=0
XWB(0,"TYPE")=1
XWB(0,"VER")=1
XWB(2,"RNAM")=
XWB(2,"RPC")=TMG CHANNEL
XWB(2,"RTAG")=
XWB(2,"VER")=0
XWB(5,"P",0)=.XWBS1
     Enter '^' to quit listing, <RETURN> to continue...:

XWB("ARRAY")=1
XWB("PARAM")=.XWBS1
XWBAPVER=0
XWBARY=XWBS1
XWBCALL=^(.XWBY,.XWBS1)
XWBCALL2=
XWBCLMAN=dsk115-p1.quinnox.corp
XWBDEBUG=0
XWBENVL=3
XWBERC=CAPI+10^XWBPRS, Routine name expected here,150373650,-%GTM-E-RTNNAME
XWBERR=M  ERROR=CAPI+10^XWBPRS, Routine name expected here,150373650,-%GTM-E-RTN
NAME\013\010LAST REF=^XUSEC("XUPROGMODE",1)
XWBNULL=/dev/null
XWBOS=MSM
XWBPRT=0
XWBPTYPE=
XWBRBUF=
XWBS1=
XWBS1("REQUEST")=FILE ENTRY SUBSET^200^MANAGEQ~^1
XWBSEC=
XWBT("BF")=!
     Enter '^' to quit listing, <RETURN> to continue...:

XWBT("PCNT")=0
XWBTBUF=
XWBTCMD=
XWBTDEV=0
XWBTIME=800
XWBTIME(1)=5
XWBTIP=10.40.4.43
XWBTSKT=0
XWBVER=1.108
XWBWRAP=0
^XUTL("XQ",$J,0)=3100813.182621
^XUTL("XQ",$J,"DUZ")=1
^XUTL("XQ",$J,"DUZ(0)")=@
^XUTL("XQ",$J,"DUZ(1)")=
^XUTL("XQ",$J,"DUZ(2)")=1
^XUTL("XQ",$J,"DUZ(AG)")=E
^XUTL("XQ",$J,"DUZ(AUTO)")=0
^XUTL("XQ",$J,"DUZ(BUF)")=1
^XUTL("XQ",$J,"DUZ(LANG)")=
^XUTL("XQ",$J,"IO")=/dev/null
     Enter '^' to quit listing, <RETURN> to continue...:

^XUTL("XQ",$J,"IO(""CLNM"")")=dsk115-p1.quinnox.corp
^XUTL("XQ",$J,"IO(""IP"")")=10.40.4.43
^XUTL("XQ",$J,"IOBS")=$C(8)
^XUTL("XQ",$J,"IOF")=#
^XUTL("XQ",$J,"IOM")=132
^XUTL("XQ",$J,"ION")=
^XUTL("XQ",$J,"IOS")=0
^XUTL("XQ",$J,"IOSL")=64
^XUTL("XQ",$J,"IOST")=P-OTHER
^XUTL("XQ",$J,"IOST(0)")=16
^XUTL("XQ",$J,"IOT")=TRM
^XUTL("XQ",$J,"IOXY")=
^XUTL("XQ",$J,"XQVOL")=EHR

$ZE= CAPI+10^XWBPRS, Routine name expected here,150373650,-%GTM-E-RTNNAME

 D @XWBCALL S XWBCALL2=XWBCALL ;Save call for debug

Last Global Ref: ^XUSEC("XUPROGMODE",1)

Which symbol? >

Which error? >

Which date? >
