I didn't send it at 3:35 am, it was much more like 3:35 pm the
preceding day!

--- [EMAIL PROTECTED] wrote:

> Greg Woodhouse, 3:35am?? You need to get out more!
> 
> 
> John Clemens
> IT Specialist, Software
> IRMS
> Veterans Affairs Medical Center (662)
> 4150 Clement Street
> San Francisco, CA  94121
> Phone:  415.221.4810 x4540 (Tu,Wed,Thu)
> Digital Pager:415.303.0388 ( Mon,Fri)
> Fax: 415.750.2177
>  
> [EMAIL PROTECTED]
>  
>  
> 
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of
> Greg
> Woodhouse
> Sent: Wednesday, January 26, 2005 4:23 PM
> To: [email protected]
> Subject: RE: [Hardhats-members] Where is the data structure for WP
> fields
> documented?
> 
> Calling the following code from the set logic of a new style
> cross-reference
> (on .01) should do the job:
> 
> 
> XREF    ;
>         S ^TMP($J,"WP",1)="LINE ONE"
>         S ^TMP($J,"WP",2)="LINE TWO"
>         D WP^DIE(file#,DA_",",field#,,$NA(^TMP($J,"WP")))
>         K ^TMP($J,"WP")
>         Q
> --- Thurman Pedigo <[EMAIL PROTECTED]> wrote:
> 
> > Kevin,
> > 
> > Guess that's because I don't understand it either. However, I find 
> > trigger one of the most tools I have in FileMan. It has been around
> 
> > for over 20 years (think MS SQL implemented it around 5-6 yr ago - 
> > with much fanfare).
> > Just by using the change of value of a field as an event, one can 
> > populate almost any other field with whatever data appropriate - 
> > stored or free text.
> > I say "almost" because I still can't trigger to WP. I need to 
> > investigate the cross-reference that calls WP^DIE a little further.
> > 
> > I worked on this problem a few years ago and gave up on it because
> of 
> > inability to trigger a WP field. I'm not sure what it is you feel
> you 
> > don't understand, as you sure know this code better than I. Below,
> I 
> > present a couple of examples, just to see if we are in the same
> book. 
> > Sorry to chew up so much bandwidth. Just like to be sure we are on 
> > same sheet..
> > 
> > 
> > 1. Example 1: I created two fields to test WPTEST (WP field) and
> > (WPCODETRGTEST)  a SET OF CODES FIELD.
> > ================================================================
> > Select Utility Functions Option: cross-Reference A Field
> > 
> > What type of cross-reference (Traditional or New)? Traditional// 
> > TRADITIONAL
> > 
> > MODIFY WHAT FILE: ENCOUNTERS FILE//
> > Select FIELD: wpcODETRGTEST
> > 
> > NO CURRENT CROSS-REFERENCE
> > WANT TO CREATE A NEW CROSS-REFERENCE FOR THIS FIELD? No// y  (Yes) 
> > CROSS-REFERENCE NUMBER: 1// Select TYPE OF INDEXING: REGULAR//
> tRIGGER
> > 
> > WHEN THE WPCODETRGTEST field (#2021) of the ENCOUNTERS FILE File
> > (#20036) IS
> > CHA
> > NGED,
> > WHAT FIELD SHOULD BE 'TRIGGERED': WPTEST
> >   ...WPTEST
> > YOU MUST IDENTIFY SOME FIELD, EITHER WITHIN THE 'ENCOUNTERS FILE'
> FILE 
> > OR IN SOME OTHER
> > 
> > WHEN THE WPCODETRGTEST field (#2021) of the ENCOUNTERS FILE File
> > (#20036) IS
> > CHA
> > NGED,
> > WHAT FIELD SHOULD BE 'TRIGGERED':
> > 
> > As you see, nothing happens here when I try to fire trigger at
> WPTEST.
> > 
> > Now look at the inelegant, though powerful, one that works. As you
> can 
> > see, I lack programming proficiency. However, if I can make this
> thing 
> > work, think of the possibilities for general population.....tx/t
> > 
> >   
> > Example 2: Two fields (both date fields - though anything except WP
> > works)
> >
>
=======================================================================
> > MODIFY WHAT FILE: ENCOUNTERS FILE//
> > Select FIELD: DATETRG
> > 
> > NO CURRENT CROSS-REFERENCE
> > WANT TO CREATE A NEW CROSS-REFERENCE FOR THIS FIELD? No// Y  (Yes) 
> > CROSS-REFERENCE NUMBER: 1// Select TYPE OF INDEXING: REGULAR//
> TRIGGER
> > 
> > WHEN THE DATETRG field (#2025) of the ENCOUNTERS FILE File (#20036)
> IS 
> > CHANGED, WHAT FIELD SHOULD BE 'TRIGGERED': TRGDA
> >    By 'TRGDA', do you mean ENCOUNTERS FILE 'TRGDATERESULT'? Yes//
> > (Yes)
> > ...OK
> > 
> > 
> > ---SET LOGIC---
> > 
> > IN ANSWERING THE FOLLOWING QUESTION, 'TRGDATERESULT'
> >   CAN BE USED TO REFER TO THE EXISTING TRIGGERED FIELD VALUE.
> > PLEASE ENTER AN EXPRESSION WHICH WILL BECOME THE VALUE OF THE 
> > TRGDATERESULT field (#2026) of the ENCOUNTERS FILE File (#20036)  
> > WHENEVER THE 'DATETRG' FIELD IS ENTERED OR CHANGED: DATETRG
> > 
> > DO YOU WANT TO MAKE THE SETTING OF 'TRGDATERESULT' CONDITIONAL?
> No// Y
> > (Yes)
> > ENTER AN EXPRESSION FOR THE CONDITION: TRGDATERESULT=""
> > ---KILL LOGIC---
> > 
> > IN ANSWERING THE FOLLOWING QUESTION, 'TRGDATERESULT'
> >   CAN BE USED TO REFER TO THE EXISTING TRIGGERED FIELD VALUE.
> >   NOTE: 'OLD DATETRG' CAN BE USED TO REFER TO THE VALUE OF THE
> >   DATETRG FIELD BEFORE ITS CHANGE OR DELETION.
> > PLEASE ENTER AN EXPRESSION WHICH WILL BECOME THE VALUE OF THE 
> > TRGDATERESULT field (#2026) of the ENCOUNTERS FILE File (#20036)  
> > WHENEVER THE 'DATETRG' FIELD IS CHANGED OR DELETED: DATETRG
> > 
> > DO YOU WANT TO MAKE THE SETTING OF 'TRGDATERESULT' CONDITIONAL?
> No// Y
> > (Yes)
> >   NOTE: 'OLD DATETRG' CAN BE USED TO REFER TO THE VALUE OF THE
> >   DATETRG FIELD BEFORE ITS CHANGE OR DELETION.
> > 
> > ENTER AN EXPRESSION FOR THE CONDITION: TRGDATERESULT=""//
> > 
> > WANT TO PROTECT THE 'TRGDATERESULT' FIELD, SO THAT
> > IT CAN'T BE CHANGED BY THE 'ENTER & EDIT' ROUTINE? No//   (No)
> > 
> > ...CROSS-REFERENCE IS SET
> > 
> > DO YOU WANT TO RUN THE CROSS-REFERENCE FOR EXISTING ENTRIES NOW?
> No//
> >   (No)
> >
>
==========================================================================
> > 
> > > -----Original Message-----
> > > From: [EMAIL PROTECTED]
> > [mailto:hardhats-
> > > [EMAIL PROTECTED] On Behalf Of Kevin
> Toppenberg
> > > Sent: Tuesday, January 25, 2005 7:33 PM
> > > To: [email protected]
> > > Subject: RE: [Hardhats-members] Where is the data structure for
> WP
> > fields
> > > documented?
> > > 
> > > Thurman,
> > > 
> > > I understand a full 10% of what you just said.
> > > But having said that, I think I saw that one can work with WP
> fields 
> > > when making computed fields.  Does that relate at all?
> > > 
> > > Kevin
> > > 
> > > 
> > > --- Thurman Pedigo <[EMAIL PROTECTED]> wrote:
> > > 
> > > > This has the potential of being a powerful addition to VistA.
> For 
> > > > some time I have wondered if one could "trigger" text into the
> WP 
> > > > field. If so, an entire new array of "macro's" can be
> "triggered"
> > > > into this field, creating a
> > > > nice narrative historical (or physical) entry. I tried the
> concept 
> > > > a few time and never got it to work.
> > > >
> > > > Is the trigger to WP possible as the product now exists? It
> needs 
> > > > to allow repeating triggers for it to be of much value.
> > > >
> > > > Thank,
> > > >
> > > > thurman
> > > >
> > > > > -----Original Message-----
> > > > > From: [EMAIL PROTECTED]
> > > > [mailto:hardhats-
> > > > > [EMAIL PROTECTED] On Behalf Of
> > > > Kevin Toppenberg
> > > > > Sent: Tuesday, January 25, 2005 6:54 PM
> > > > > To: Hardhats Sourceforge
> > > > > Subject: [Hardhats-members] Where is the data
> > > > structure for WP fields
> > > > > documented?
> > > > >
> > > > > Hello all,
> > > > >
> > > > > I am wondering where i get get information about
> > > > how
> > > > > WP fields are stored.
> > > > >
> > > > > Here is an example WP field:
> > > > >
> > > > > ^TIU(8925.2,0)="TIU UPLOAD BUFFER^8925.2^240^2"
> > > > > ^TIU(8925.2,238,0)="19062^90^3050121.162059"
> > > > > ^TIU(8925.2,238,"ERR",0)="^8925.22PA^1^1"
> > > > > ^TIU(8925.2,238,"ERR",1,0)=3119
> > > > > ^TIU(8925.2,238,"ERR","B",3119,1)=""
> > > > > ^TIU(8925.2,238,"TEXT",0)="^^31^31^3050125^"
> > > > > ^TIU(8925.2,238,"TEXT",1,0)="[NewDict]: NOTE"
> > > > > ^TIU(8925.2,238,"TEXT",2,0)="Patient Name: XXX,X"
> > > > > ^TIU(8925.2,238,"TEXT",3,0)="Date Of Birth:
> > > > 00/00/00"
> > > > > ^TIU(8925.2,238,"TEXT",4,0)="Social Sec. Number:
> > > > P"
> > > > > ^TIU(8925.2,238,"TEXT",5,0)="Chart Number: 1"
> > > > > ^TIU(8925.2,238,"TEXT",6,0)="DOB: 00/00/00"
> > > > > ^TIU(8925.2,238,"TEXT",7,0)="Provider: Topp,Kevin"
> > > > > ^TIU(8925.2,238,"TEXT",8,0)="Location:
> > > > > Laughlin_Office"
> > > > > ^TIU(8925.2,238,"TEXT",9,0)="[TEXT]"
> > > > > ^TIU(8925.2,238,"TEXT",10,0)=" "
> > > > > ^TIU(8925.2,238,"TEXT",11,0)="Name: MEDIC,TEST ,
> > > > DOB:
> > > > > 12:00:00 AM"
> > > > > ^TIU(8925.2,238,"TEXT",12,0)=" "
> > > > > -snip-
> > > > >
> > > > > ^TIU(8925.2,238,"TEXT",28,0)="         2. Benign
> > > > > appearing lesion on the ear sta
> > > > > tus post cryotherapy today"
> > > > > ^TIU(8925.2,238,"TEXT",29,0)="         Follow up
> > > > > routinely."
> > > > > ^TIU(8925.2,238,"TEXT",30,0)="         Kevin
> > > > > Toppenberg MD"
> > > > > ^TIU(8925.2,238,"TEXT",31,0)="         KT/nlh"
> > > > >
> > > > >
> > > > >
> > > > > So it looks like the field is stored as:
> > > > > (...,"TEXT",x,0), with x being the subsequent
> > > > lines of
> > > > > the document.
> > > > >
> > > > > ^TIU(8925.2,238,"TEXT",0)="^^31^31^3050125^"
> > > > >
> > > > > The line I really want to understand is the line above. 
> Those 
> > > > > 31's refer to the number of lines in
> > > > the
> > > > > document.  I want to be able to insert text into a
> > > > WP
> > > > > field programatically.  So I will need to changed
> > > > the
> > > > > Maxline property etc.
> > > > >
> > > > > So does anyone know where I can find the
> > > > documentation
> > > > > for these field/pieces?
> > > > >
> > > > > Thanks
> > > > > 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: IntelliVIEW --
> > > > Interactive Reporting
> > > > > Tool for open source databases. Create drag-&-drop
> > > > reports. Save time
> > > > > by over 75%! Publish reports on the web. Export to
> > > > DOC, XLS, RTF, etc.
> > > > > Download a FREE copy at
> > > > http://www.intelliview.com/go/osdn_nl
> > > > > _______________________________________________
> > > > > Hardhats-members mailing list
> > > > > [email protected]
> > > > >
> > > >
> > > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> > > >
> > > >
> > > >
> > > >
> > > -------------------------------------------------------
> > > > This SF.Net email is sponsored by: IntelliVIEW -- Interactive 
> > > > Reporting Tool for open source databases. Create drag-&-drop 
> > > > reports. Save time by over 75%! Publish reports on the web.
> Export 
> > > > to DOC, XLS, RTF, etc.
> > > > Download a FREE copy at
> > > > http://www.intelliview.com/go/osdn_nl
> > > > _______________________________________________
> > > > Hardhats-members mailing list
> > > > [email protected]
> > > >
> > > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> > > >
> > > 
> > > 
> > > 
> > > 
> > > 
> > > __________________________________
> > > Do you Yahoo!?
> > > Yahoo! Mail - You care about security. So do we.
> > > http://promotions.yahoo.com/new_mail
> > > 
> > > 
> > > -------------------------------------------------------
> > > This SF.Net email is sponsored by: IntelliVIEW -- Interactive
> > Reporting
> > > Tool for open source databases. Create drag-&-drop reports. Save
> > time
> > > by over 75%! Publish reports on the web. Export to DOC, XLS, RTF,
> > etc.
> > > Download a FREE copy at http://www.intelliview.com/go/osdn_nl
> > > _______________________________________________
> > > Hardhats-members mailing list
> > > [email protected]
> > > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> > 
> > 
> > 
> > -------------------------------------------------------
> > This SF.Net email is sponsored by: IntelliVIEW -- Interactive 
> > Reporting Tool for open source databases. Create drag-&-drop
> reports. 
> > Save time by over 75%! Publish reports on the web. Export to DOC,
> XLS, 
> > RTF, etc.
> > Download a FREE copy at http://www.intelliview.com/go/osdn_nl
> > _______________________________________________
> > Hardhats-members mailing list
> > [email protected]
> > https://lists.sourceforge.net/lists/listinfo/hardhats-members
> > 
> 
> 
> =====
> A practical man is a man who practices the errors of his forefathers.
> --Benjamin Disraeli ==== Greg Woodhouse [EMAIL PROTECTED]
> [EMAIL PROTECTED] 
> 
> 
> 
> 
> 
> -------------------------------------------------------
> This SF.Net email is sponsored by: IntelliVIEW -- Interactive
> Reporting Tool
> for open source databases. Create drag-&-drop reports. Save time by
> over
> 75%! Publish reports on the web. Export to DOC, XLS, RTF, etc.
> Download a FREE copy at http://www.intelliview.com/go/osdn_nl
> _______________________________________________
> Hardhats-members mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
> 

> ATTACHMENT part 2 application/x-pkcs7-signature name=smime.p7s



=====
A practical man is a man who practices the errors of his forefathers. 
--Benjamin Disraeli
====
Greg Woodhouse 
[EMAIL PROTECTED] 
[EMAIL PROTECTED] 





-------------------------------------------------------
This SF.Net email is sponsored by: IntelliVIEW -- Interactive Reporting
Tool for open source databases. Create drag-&-drop reports. Save time
by over 75%! Publish reports on the web. Export to DOC, XLS, RTF, etc.
Download a FREE copy at http://www.intelliview.com/go/osdn_nl
_______________________________________________
Hardhats-members mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members

Reply via email to