Re: [Hardhats-members] A Bug in DICL2.m routine

[Steven McPhelan]

I just tried your example on my machine and got no errors or problems:

DSSAPPSOLDW $$FIND1^DIC(9.44,,14,,MX,SURGERY POSITION,,,ERR)9DSSAPPSOLDW $$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 Tasleem 

To: hardhats-members@lists.sourceforge.net
 
Sent: Thursday, June 15, 2006 1:45 AM
Subject: [Hardhats-members] A Bug in DICL2.m routine
Dear 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 routineS2 
; execute any screen on transformed lookup values;N DISKIP S DISKIP
=0I 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. QThe 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.mI have checked the code both on HuiVista GTM and Cache.RegardsAsif Tasleem


__Do You Yahoo!?Tired of spam? Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 








___Hardhats-members mailing listHardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members



___Hardhats-members mailing list
Hardhats-members@lists.sourceforge.nethttps://lists.sourceforge.net/lists/listinfo/hardhats-members
-- Steven McPhelanIf 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=lnkkid=120709bid=263057dat=121642
___
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members

[Hardhats-members] A Bug in DICL2.m routine

[Asif Tasleem]

Dear 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  . QThe 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.mI have checked the code both on HuiVista GTM and Cache.RegardsAsif 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

Re: [Hardhats-members] A Bug in DICL2.m routine

[James Gray]

I do not think your IENS should start with a 
comma. That may be the problem.

Jim Gray

  - Original Message - 
  From: 
  Asif 
  Tasleem 
  To: hardhats-members@lists.sourceforge.net 
  
  Sent: Thursday, June 15, 2006 1:45 
  AM
  Subject: [Hardhats-members] A Bug in 
  DICL2.m routine
  Dear 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 routineS2 
  ; execute any screen on transformed lookup 
  values;N 
  DISKIP S DISKIP=0I 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. QThe 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.mI have checked the code both on HuiVista GTM and 
  Cache.RegardsAsif Tasleem
  __Do You 
  Yahoo!?Tired of spam? Yahoo! Mail has the best spam protection around 
  http://mail.yahoo.com 
  
  

  
  
  

  ___Hardhats-members 
  mailing 
  listHardhats-members@lists.sourceforge.nethttps://lists.sourceforge.net/lists/listinfo/hardhats-members
___
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members