Hey all. Couple of points
1. Here is the version info:
DIS1 ;SFISC/GFT-BUILD DIS-ARRAY ;09:04 AM 21 Aug
2002
;;22.0;VA FileMan;**6,77,97,113**;Mar 30, 1999
2. That error has disappeared. And all I did, as far
as I can remember, was to take out a commented version
of the original line. And while I would love to
figure out how that caused this bug, I'm not going to
persue it.
3. The search still doesn't seem to work. Here is a
screen log:
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: TELNET
TIU DOCUMENT SEARCH MAR
24,2005 15:58 PAGE 1
DOCUMENT TYPE
--------------------------------------------------------------------------------
0 MATCHES FOUND.
But the method of using INTERNAL(ENTERED BY) EQUALS 73
does work. Here is a screen log:
OUTPUT FROM WHAT FILE: TIU DOCUMENT//
-A- SEARCH FOR TIU DOCUMENT FIELD: INTERNAL(ENTERED
BY)
-A- CONDITION: = EQUALS
-A- EQUALS: 73
-B- SEARCH FOR TIU DOCUMENT FIELD:
IF: A// INTERNAL(ENTERED BY) EQUALS "73"
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: TELNET
TIU DOCUMENT SEARCH MAR
24,2005 16:22 PAGE 1
DOCUMENT TYPE
--------------------------------------------------------------------------------
NUMBER: 6453
OFFICE VISIT
NUMBER: 6466
OFFICE VISIT
NUMBER: 6470
OFFICE VISIT
NUMBER: 6488
OFFICE VISIT
NUMBER: 6489
OFFICE VISIT
NUMBER: 6490
OFFICE VISIT
NUMBER: 6492
OFFICE VISIT
NUMBER: 6495
OFFICE VISIT
NUMBER: 6501
Addendum
Someone asked for the data dictionary info, with
output transform, on the field ENTERED BY, so here it
is:
--------------------------------------------------------------------------------
FIELD NAME: ENTERED BY
FLD NUMBER: 1302 FLD TITLE:
NODE;PIECE: 13;2 HELP FRAME:
ACCESS: RD: DEL: WR:
DATA TYPE: Pointer,LAYGO to 'pointed to' file
not allowed
Has output transform
POINTS TO: NEW PERSON file - ^VA(200,
INPUT TRANSFORM: Q
OUTPUT TRANSFORM: S Y(0)=Y S
Y=$S(+$G(TIUINI):$$LOWER^TIULS($P($G(^VA(200,+Y(
0),0)),U,2)),1:$P($G(^VA(200,+Y(0),0)),U,2))
PROMPT MESSAGE: This is the person who entered the
document into the
computer.
OLD-STYLE INDEXES
INDEX: TC
Type: REGULAR
Node: 1 S ^TIU(8925,"TC",$E(X,1,30),DA)=""
Node: 2 K ^TIU(8925,"TC",$E(X,1,30),DA)
Index Desc:
This REGULAR, FileMan type
cross-reference is used for
sorting by the person who entered
the original document.
Node: DT 2940207
INDEX: ATC
Type: MUMPS
Node: 1 I
+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),
+$P($G(^TIU(8925,+DA,0)),U,5) S
^TIU(8925,"ATC",+X,+$P($G(^
TIU(8925,+DA,0)),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($
G(^TIU(8925,+DA,13)),U)),DA)=""
Node: 2 I
+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),
+$P($G(^TIU(8925,+DA,0)),U,5) K
^TIU(8925,"ATC",+X,+$P($G(^
TIU(8925,+DA,0)),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($
G(^TIU(8925,+DA,13)),U)),DA)
Index Desc: This MUMPS-type, multi-field
cross-reference is used for
searching by entry person,
document type, status, and date
range.
Node: DT 2940323
INDEX: ACLAU103
Type: MUMPS
Node: 1 D SACLAU1^TIUDD0(1302,X)
Node: 2 D KACLAU1^TIUDD01(1302,X)
Index Desc: This multi-field, MUMPS-type
cross-reference on CLASS,
AUTHOR (or ENTERED BY), PATIENT,
INVERSE REFERENCE
DATE/TIME, and RECORD # is
designed to facilitate rapid
access to the current users
unsigned notes about a patient.
Node: DT 2970617
Thanks for your help everyone.
Kevin
--- Greg Kreis <[EMAIL PROTECTED]> wrote:
> Right. I answered too soon as well.. ;-)
>
> The question is how did the DIS(0) code get
> generated that way... The
> mod George sent is in the routine that generates DIS
> array members, so
> we are in the right neck of the woods... ;-) Now,
> Kevin, how many
> patches are in the routine that you modified and
> what is the last
> number? (See the second line of the routine.) The
> one that Jim worked
> on was at 113.
>
-snip-
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
_______________________________________________
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members
