I just tried your example on my machine and got no errors or problems:
DSSAPPSOLD>W $$FIND1^DIC(9.44,",14,","MX","SURGERY POSITION",,,"ERR")
9
DSSAPPSOLD>W $$FIND1^DIC(9.44,",1,","MX","SURGERY POSITION",,,"ERR")
0
9
DSSAPPSOLD>W $$FIND1^DIC(9.44,",1,","MX","SURGERY POSITION",,,"ERR")
0
On 6/15/06, James Gray <[EMAIL PROTECTED]> wrote:
I do not think your IENS should start with a comma. That may be the problem.Jim Gray----- Original Message -----From: Asif TasleemSent: Thursday, June 15, 2006 1:45 AMSubject: [Hardhats-members] A Bug in DICL2.m routineDear All
There is a bug in DICL2.m routine.
When I call FIND1^DIC and FIND^DIC, these DBS API's internally call following label in DICL2.m routine
S2 ; execute any screen on transformed lookup values
;
N DISKIP S DISKIP =0
I DIFLAGS[4 N DISUB F DISUB=1:1 :DINDEX("#") D Q :DISKIP
. N DISCR2 S DISCR2 =+$G(DINDEX(DISUB, "FOUND"))
. Q:'$D (DISCREEN(DISUB,DISCR2))
. N DIVAL,D S @DINDEX (DISUB,"GET"),D =DINDEX
. X DISCREEN(DISUB ,DISCR2)
. S DISKIP=' $T
. Q
The bug lies in the " X DISCREEN(DISUB ,DISCR2)" statement. DISCREEN (DISUB,DISCR2 ) contains following command
"I $P(DIVAL,U)=DINDEX(1,0,1)" that is to be executed. But the DINDEX(1,0,1) does not exist. So the routine crashes.
I am running following code.
SET PIEN=4
SET PIEN=","_PIEN_","
SET FNAME="MAILMAN OUTSTANDING FTP TRANSACTIONS"
SET FIEN=$$FIND1^DIC(9.44,PIEN,"MX",FNAME,"","","ERR")
Can someone debug the code of VistA DICL2.m
I have checked the code both on HuiVista GTM and Cache.
Regards
Asif Tasleem__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
_______________________________________________
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members
_______________________________________________
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members
--
Steven McPhelan
"If you have any trouble sounding condescending, find a Unix user to show you how it's done." -- Scott Adams
Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________ Hardhats-members mailing list Hardhats-members@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/hardhats-members