1 | UCI/VOL: [EHR,EHR]
|
---|
2 |
|
---|
3 | $ZA: 0
|
---|
4 |
|
---|
5 | Current $IO: /dev/null Current $ZIO: /dev/null^0^0^0
|
---|
6 |
|
---|
7 | $ZE= CAPI+10^XWBPRS, Routine name expected here,150373650,-%GTM-E-RTNNAME
|
---|
8 |
|
---|
9 | D @XWBCALL S XWBCALL2=XWBCALL ;Save call for debug
|
---|
10 |
|
---|
11 | Last Global Ref: ^XUSEC("XUPROGMODE",1)
|
---|
12 |
|
---|
13 | **************************************************************
|
---|
14 |
|
---|
15 | Last Global Ref: ^XUSEC("XUPROGMODE",1)
|
---|
16 |
|
---|
17 | Which symbol? > ^L
|
---|
18 |
|
---|
19 |
|
---|
20 | $DEVICE=
|
---|
21 | $ECODE=,Z150373650,
|
---|
22 | $ESTACK=8
|
---|
23 | $ETRAP=D ^%ZTER,EXIT^XWBTCPM HALT
|
---|
24 | $QUIT=0
|
---|
25 | $STACK=8
|
---|
26 | $STACK(000)=-run GTMLNX^XWBTCPM
|
---|
27 | $STACK(000,"ECODE")=
|
---|
28 | $STACK(000,"PLACE")=RESTART+3^XWBTCPM
|
---|
29 | $STACK(000,"MCODE")= U XWBTDEV D MAIN
|
---|
30 | $STACK(001)=DO
|
---|
31 | $STACK(001,"ECODE")=
|
---|
32 | $STACK(001,"PLACE")=MAIN+1^XWBTCPM
|
---|
33 | $STACK(001,"MCODE")= F D Q:XWBTBUF="#BYE#"
|
---|
34 | $STACK(002)=DO
|
---|
35 | $STACK(002,"ECODE")=
|
---|
36 | $STACK(002,"PLACE")=MAIN+14^XWBTCPM
|
---|
37 | $STACK(002,"MCODE")= . D CALLP^XWBPRS(.XWBR,$G(XWBDEBUG)) ;Read the NEW Msg para
|
---|
38 | meters and call RPC
|
---|
39 | $STACK(003)=DO
|
---|
40 | Enter '^' to quit listing, <RETURN> to continue...:
|
---|
41 |
|
---|
42 | $STACK(003,"ECODE")=
|
---|
43 | $STACK(003,"PLACE")=CALLP+10^XWBPRS
|
---|
44 | $STACK(003,"MCODE")= I '+ERR D
|
---|
45 | $STACK(004)=DO
|
---|
46 | $STACK(004,"ECODE")=
|
---|
47 | $STACK(004,"PLACE")=CALLP+11^XWBPRS
|
---|
48 | $STACK(004,"MCODE")= . D CAPI(.XWBP,XWB("PARAM"))
|
---|
49 | $STACK(005)=DO
|
---|
50 | $STACK(005,"ECODE")=,Z150373650,
|
---|
51 | $STACK(005,"PLACE")=CAPI+10^XWBPRS
|
---|
52 | $STACK(005,"MCODE")= D @XWBCALL S XWBCALL2=XWBCALL ;Save call for debug
|
---|
53 | $STACK(006)=DO
|
---|
54 | $STACK(006,"ECODE")=
|
---|
55 | $STACK(006,"PLACE")=ETRAP+6^XWBTCPM
|
---|
56 | $STACK(006,"MCODE")= D ^%ZTER ;%ZTER clears $ZE and $ZCODE
|
---|
57 | $X $Y=0 0
|
---|
58 | $ZV=GT.M V5.3-003 Linux x86
|
---|
59 | %ZT("^XUTL(""XQ"",$J)")=
|
---|
60 | %ZTER11I=EHR,EHR
|
---|
61 | %ZTER11N=4
|
---|
62 | Enter '^' to quit listing, <RETURN> to continue...:
|
---|
63 |
|
---|
64 | %ZTER11S=
|
---|
65 | %ZTER11Z=0
|
---|
66 | %ZTER12A=0
|
---|
67 | %ZTER12B=
|
---|
68 | %ZTERCNT=44
|
---|
69 | %ZTERH1=61951
|
---|
70 | %ZTERROR=
|
---|
71 | %ZTERRT=^%ZTER(1,61951,1,4)
|
---|
72 | %ZTERSUB=%ZTER11S)
|
---|
73 | %ZTERVAP=%ZT(
|
---|
74 | %ZTERVAR=%ZTERVAR
|
---|
75 | %ZTERZE=CAPI+10^XWBPRS, Routine name expected here,150373650,-%GTM-E-RTNNAME
|
---|
76 | DISYS=19
|
---|
77 | DT=3100813
|
---|
78 | DTIME=30
|
---|
79 | DUZ=1
|
---|
80 | DUZ(0)=@
|
---|
81 | DUZ(1)=
|
---|
82 | DUZ(2)=2
|
---|
83 | DUZ("AG")=E
|
---|
84 | Enter '^' to quit listing, <RETURN> to continue...:
|
---|
85 |
|
---|
86 | DUZ("AUTO")=0
|
---|
87 | DUZ("BUF")=1
|
---|
88 | DUZ("LANG")=
|
---|
89 | ERR=0
|
---|
90 | IO=/dev/null
|
---|
91 | IO(0)=/dev/null
|
---|
92 | IO(1,"/dev/null")=
|
---|
93 | IO("CLNM")=dsk115-p1.quinnox.corp
|
---|
94 | IO("ERROR")=
|
---|
95 | IO("GTM-IP")=::ffff:10.40.4.43
|
---|
96 | IO("HOME")=47^/dev/null
|
---|
97 | IO("IP")=10.40.4.43
|
---|
98 | IO("ZIO")=/dev/null
|
---|
99 | IOBS=$C(8)
|
---|
100 | IOF=#
|
---|
101 | IOM=132
|
---|
102 | ION=
|
---|
103 | IOS=0
|
---|
104 | IOSL=64
|
---|
105 | IOST=P-OTHER
|
---|
106 | Enter '^' to quit listing, <RETURN> to continue...:
|
---|
107 |
|
---|
108 | IOST(0)=16
|
---|
109 | IOT=TRM
|
---|
110 | IOXY=
|
---|
111 | TYPE=1
|
---|
112 | U=^
|
---|
113 | XQVOL=EHR
|
---|
114 | XQXFLG=0^0
|
---|
115 | XQXFLG("LLOG")=3100813.123706
|
---|
116 | XQY=8552
|
---|
117 | XQY0=OR CPRS GUI CHART
|
---|
118 | XR=[XWB]
|
---|
119 | XWB(0,"LENV")=3
|
---|
120 | XWB(0,"RT")=0
|
---|
121 | XWB(0,"TYPE")=1
|
---|
122 | XWB(0,"VER")=1
|
---|
123 | XWB(2,"RNAM")=
|
---|
124 | XWB(2,"RPC")=TMG CHANNEL
|
---|
125 | XWB(2,"RTAG")=
|
---|
126 | XWB(2,"VER")=0
|
---|
127 | XWB(5,"P",0)=.XWBS1
|
---|
128 | Enter '^' to quit listing, <RETURN> to continue...:
|
---|
129 |
|
---|
130 | XWB("ARRAY")=1
|
---|
131 | XWB("PARAM")=.XWBS1
|
---|
132 | XWBAPVER=0
|
---|
133 | XWBARY=XWBS1
|
---|
134 | XWBCALL=^(.XWBY,.XWBS1)
|
---|
135 | XWBCALL2=
|
---|
136 | XWBCLMAN=dsk115-p1.quinnox.corp
|
---|
137 | XWBDEBUG=0
|
---|
138 | XWBENVL=3
|
---|
139 | XWBERC=CAPI+10^XWBPRS, Routine name expected here,150373650,-%GTM-E-RTNNAME
|
---|
140 | XWBERR=M ERROR=CAPI+10^XWBPRS, Routine name expected here,150373650,-%GTM-E-RTN
|
---|
141 | NAME\013\010LAST REF=^XUSEC("XUPROGMODE",1)
|
---|
142 | XWBNULL=/dev/null
|
---|
143 | XWBOS=MSM
|
---|
144 | XWBPRT=0
|
---|
145 | XWBPTYPE=
|
---|
146 | XWBRBUF=
|
---|
147 | XWBS1=
|
---|
148 | XWBS1("REQUEST")=FILE ENTRY SUBSET^200^MANAGEQ~^1
|
---|
149 | XWBSEC=
|
---|
150 | XWBT("BF")=!
|
---|
151 | Enter '^' to quit listing, <RETURN> to continue...:
|
---|
152 |
|
---|
153 | XWBT("PCNT")=0
|
---|
154 | XWBTBUF=
|
---|
155 | XWBTCMD=
|
---|
156 | XWBTDEV=0
|
---|
157 | XWBTIME=800
|
---|
158 | XWBTIME(1)=5
|
---|
159 | XWBTIP=10.40.4.43
|
---|
160 | XWBTSKT=0
|
---|
161 | XWBVER=1.108
|
---|
162 | XWBWRAP=0
|
---|
163 | ^XUTL("XQ",$J,0)=3100813.182621
|
---|
164 | ^XUTL("XQ",$J,"DUZ")=1
|
---|
165 | ^XUTL("XQ",$J,"DUZ(0)")=@
|
---|
166 | ^XUTL("XQ",$J,"DUZ(1)")=
|
---|
167 | ^XUTL("XQ",$J,"DUZ(2)")=1
|
---|
168 | ^XUTL("XQ",$J,"DUZ(AG)")=E
|
---|
169 | ^XUTL("XQ",$J,"DUZ(AUTO)")=0
|
---|
170 | ^XUTL("XQ",$J,"DUZ(BUF)")=1
|
---|
171 | ^XUTL("XQ",$J,"DUZ(LANG)")=
|
---|
172 | ^XUTL("XQ",$J,"IO")=/dev/null
|
---|
173 | Enter '^' to quit listing, <RETURN> to continue...:
|
---|
174 |
|
---|
175 | ^XUTL("XQ",$J,"IO(""CLNM"")")=dsk115-p1.quinnox.corp
|
---|
176 | ^XUTL("XQ",$J,"IO(""IP"")")=10.40.4.43
|
---|
177 | ^XUTL("XQ",$J,"IOBS")=$C(8)
|
---|
178 | ^XUTL("XQ",$J,"IOF")=#
|
---|
179 | ^XUTL("XQ",$J,"IOM")=132
|
---|
180 | ^XUTL("XQ",$J,"ION")=
|
---|
181 | ^XUTL("XQ",$J,"IOS")=0
|
---|
182 | ^XUTL("XQ",$J,"IOSL")=64
|
---|
183 | ^XUTL("XQ",$J,"IOST")=P-OTHER
|
---|
184 | ^XUTL("XQ",$J,"IOST(0)")=16
|
---|
185 | ^XUTL("XQ",$J,"IOT")=TRM
|
---|
186 | ^XUTL("XQ",$J,"IOXY")=
|
---|
187 | ^XUTL("XQ",$J,"XQVOL")=EHR
|
---|
188 |
|
---|
189 | $ZE= CAPI+10^XWBPRS, Routine name expected here,150373650,-%GTM-E-RTNNAME
|
---|
190 |
|
---|
191 | D @XWBCALL S XWBCALL2=XWBCALL ;Save call for debug
|
---|
192 |
|
---|
193 | Last Global Ref: ^XUSEC("XUPROGMODE",1)
|
---|
194 |
|
---|
195 | Which symbol? >
|
---|
196 |
|
---|
197 | Which error? >
|
---|
198 |
|
---|
199 | Which date? >
|
---|