I have tried to puttng the code patch for Fileman put
up by George Timson. I could just use a fresh copy,
but it would be better if I could learn the source of
the error.
So I have done some studying of GT.M's debugging
tools, and I have applied them to the drop-out I am
getting.
I wonder if someone could look at this screen log and
suggest the next step to discovering the problem:
OUTPUT FROM WHAT FILE: TIU DOCUMENT//
-A- SEARCH FOR TIU DOCUMENT FIELD: enterED BY
-A- CONDITION: = EQUALS
-A- EQUALS NEW PERSON: kst TOPPENBERG,KEVIN S
kst PHYSICIAN
-B- SEARCH FOR TIU DOCUMENT FIELD:
IF: A// ENTERED BY EQUALS 73 (TOPPENBERG,KEVIN S)
STORE RESULTS OF SEARCH IN TEMPLATE:
SORT BY: NUMBER//
START WITH NUMBER: FIRST//
FIRST PRINT FIELD: .01 DOCUMENT TYPE
THEN PRINT FIELD:
Heading (S/C): TIU DOCUMENT SEARCH//
DEVICE: home TELNET
<---------** Notice dropout
GTM>w $ECODE
,Z150372458,
GTM>w $ZSTATUS
150372458,SCR+1^DIO2,%GTM-E-CMD, Command expected but
not found
GTM>ZPRINT SCR+1^DIO2
X DIS(0) Q:'$T G PASS:'$D(DIS(1))
GTM>W DIS(0)
X DIS("SCR") I $P($G(^TIU(8925,D0,13)),U,2)=73
GTM>W DIS("SCR")
S Y=D0 I $D(^TIU(8925,Y,0)) I 1 S TIUFPRIV=1
GTM>
What would be causing the dropout?
Thanks, Kevin
p.s. Here is the variable table:
GTM>zwrite
%="SEARCH"
A=1
C=","
D0=3
DC=","
DCC="^TIU(8925,"
DD=1
DE=0
DHT=0
DI=0
DIJ=0
DILCT=0
DIO=0
DIO("SCR")=1
DIOSL=24
DIPCRIT=0
DIS(0)="X DIS(""SCR"") I
$P($G(^TIU(8925,D0,13)),U,2)=73"
DIS("SCR")="S Y=D0 I $D(^TIU(8925,Y,0)) I 1 S
TIUFPRIV=1"
DIS0=1
DISEARCH=1
DISTP=0
DISUPNO=0
DISYS=19
DIWL=0
DJ=0
DJK=1
DN=1
DP=8925
DQI=4
DT=3050324
DTIME=3600
DUZ=73
DUZ(0)="@"
DUZ(1)=""
DUZ(2)=69
DUZ("AG")="O"
DUZ("AUTO")=1
DUZ("BUF")=1
DUZ("LANG")=1
DX=2
DX(0)="I DC["","" X ^UTILITY($J,1)"
DXS="Y"
DY(1)="S D0=$O(^TIU(8925,D0)),DN=2,DI=0 I D0'>0 S
DN=0,D0=-1"
DY(2)="S DN=1 D SEARCH"
I(0)="^TIU(8925,"
IO="/dev/pts/2"
IO(0)="/dev/pts/2"
IO(1,"/dev/pts/2")=""
IO("ERROR")=""
IO("HOME")="38^/dev/pts/2"
IO("ZIO")="/dev/pts/2"
IOBS="$C(8)"
IOF="#,$C(27,91,50,74,27,91,72)"
IOHG=""
IOM=80
ION="GTM-UNIX-TELNET"
IOPAR=""
IOS=38
IOSL=24
IOST="C-VT100"
IOST(0)=9
IOT="VTRM"
IOUPAR=""
IOX=0
IOXY="W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(72)"
IOY=0
J(0)=8925
L=1
P=""
U="^"
X=1
XMDUZ=73
XQCH="SEAR"
XQDIC=1337
XQJMP=0
XQPSM="P10025"
XQSV="1337^10025^DIUSER^FM VA
Filename^^M^^^^^^^^^n^1^^"
XQT="A"
XQUSER="KEVIN S TOPPENBERG"
XQVOL="VOL"
XQXFLG="0^0^XUP"
XQY=1330
XQY0="DISEARCH^Search File Entries^^A^^^^^^^y^^n^1^^"
I'll post my version of DIS1.m if needed, but it would
be difficult to read with wordwrapping...
Kevin
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
-------------------------------------------------------
This SF.net email is sponsored by Microsoft Mobile & Embedded DevCon 2005
Attend MEDC 2005 May 9-12 in Vegas. Learn more about the latest Windows
Embedded(r) & Windows Mobile(tm) platforms, applications & content. Register
by 3/29 & save $300 http://ads.osdn.com/?ad_id=6883&alloc_id=15149&op=click
_______________________________________________
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members
