Maybe that is when he got IN!

On Thursday 27 January 2005 01:31 pm, [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: hardhats-members@lists.sourceforge.net
> 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: hardhats-members@lists.sourceforge.net
> > > 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
> > > > > Hardhats-members@lists.sourceforge.net
> > >
> > > 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
> > > > Hardhats-members@lists.sourceforge.net
> > >
> > > 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
> > > Hardhats-members@lists.sourceforge.net
> > > 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
> > Hardhats-members@lists.sourceforge.net
> > 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
> Hardhats-members@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/hardhats-members

-- 
Nancy Anthracite


-------------------------------------------------------
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
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members

Reply via email to