Difference between revisions of "Ignacio Valdes Implementation Log/Episode45"

From VistApedia
Jump to: navigation, search
(Added glossary link to Application~)
(Added a glossary link to Verification~)
Line 203: Line 203:
 
 
 
Validation:
 
Validation:
For verification purposes please type the characters you see in the picture below or the numbers you hear by clicking the accessibility icon. Listen and type the numbers you hear
+
For [[verification~|Verification]] purposes please type the characters you see in the picture below or the numbers you hear by clicking the accessibility icon. Listen and type the numbers you hear
 
Send  Discard
 
Send  Discard
 
 

Revision as of 18:34, 26 April 2012

Original can be found at [http://groups.google.com/group/hardhats/browse_thread/thread/e69b24d061ed98f2/5d7820b9c582e138?hl=en& ] Hi All,

We are still in the half-paper and half electronic transition. There is a 10-13 pager admission nursing assessment printout that is in desperate need of page numbering in the header/footer. This is currently beyond my mumps capability. Can someone take some time to do this soon? I get asked for this nearly every day by the staff and have to start tap-dancing.

-- IV

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


kdtop View profile More options Mar 18, 3:51 pm From: kdtop <kdt...@gmail.com> Date: Wed, 18 Mar 2009 13:51:08 -0700 (PDT) Local: Wed, Mar 18 2009 3:51 pm Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author Are you saying that this is a note created in CPRS? How are you printing the notes out?

There is two different methods of printing out TIU notes. One is using a local windows printer from CPRS. The other is from servers defined on the printer. The former might require a modification to CPRS, while the latter is handled by the TIUPRPN* modules, if I remember correctly.

I might be able to help you if you are using the latter method.

Kevin

On Mar 18, 3:55 pm, Ignacio Valdes <ival...@hal-pc.org> wrote:

- Hide quoted text - - Show quoted text - > Hi All,

> We are still in the half-paper and half electronic transition. There > is a 10-13 pager admission nursing assessment printout that is in > desperate need of page numbering in the header/footer. This is > currently beyond my mumps capability. Can someone take some time to do > this soon? I get asked for this nearly every day by the staff and have > to start tap-dancing.

> -- IV


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


I, Valdes View profile More options Mar 18, 4:03 pm From: "I, Valdes" <ival...@hal-pc.org> Date: Wed, 18 Mar 2009 14:03:54 -0700 (PDT) Local: Wed, Mar 18 2009 4:03 pm Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author Yes, this would be for a note created in CPRS. Thanks! -- IV

On Mar 18, 3:51 pm, kdtop <kdt...@gmail.com> wrote:

- Hide quoted text - - Show quoted text - > Are you saying that this is a note created in CPRS? > How are you printing the notes out?

> There is two different methods of printing out TIU notes. One is > using a local windows printer from CPRS. The other is from servers > defined on the printer. The former might require a modification to > CPRS, while the latter is handled by the TIUPRPN* modules, if I > remember correctly.

> I might be able to help you if you are using the latter method.

> Kevin

> On Mar 18, 3:55 pm, Ignacio Valdes <ival...@hal-pc.org> wrote:

> > Hi All,

> > We are still in the half-paper and half electronic transition. There > > is a 10-13 pager admission nursing assessment printout that is in > > desperate need of page numbering in the header/footer. This is > > currently beyond my mumps capability. Can someone take some time to do > > this soon? I get asked for this nearly every day by the staff and have > > to start tap-dancing.

> > -- IV


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


kdtop View profile You didn't answer my question. Which way are you printing these notes out? With a windows-defined printer? Or with a server-defined printer? Kevin On Mar 18, 5:03 pm, "I, Valdes" <ival...@hal-pc.org> wrote: - Hide quoted text -- Show quoted text -> Yes, this would be for a note created in CPRS. Thanks! -- IV > On Mar 18, 3:51 pm, kdtop <kdt...@gmail.com> wrote: > > Are you saying that this is a note created in CPRS? > > How are you printing the notes out? > > There is two different methods of printing out TIU notes. One is > > using a local windows printer from CPRS. The other is from servers > > defined on the printer. The former might require a modification to > > CPRS, while the latter is handled by the TIUPRPN* modules, if I > > remember correctly. > > I might be able to help you if you are using the latter method. > > Kevin > > On Mar 18, 3:55 pm, Ignacio Valdes <ival...@hal-pc.org> wrote: > > > Hi All, > > > We are still in the half-paper and half electronic transition. There > > > is a 10-13 pager admission nursing assessment printout that is in > > > desperate need of page numbering in the header/footer. This is > > > currently beyond my mumps capability. Can someone take some time to do > > > this soon? I get asked for this nearly every day by the staff and have > > > to start tap-dancing. > > > -- IV More options Mar 18, 8:28 pm From: kdtop <kdt...@gmail.com> Date: Wed, 18 Mar 2009 18:28:31 -0700 (PDT) Local: Wed, Mar 18 2009 8:28 pm Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author You didn't answer my question. Which way are you printing these notes out? With a windows-defined printer? Or with a server-defined printer?

Kevin

On Mar 18, 5:03 pm, "I, Valdes" <ival...@hal-pc.org> wrote:

- Hide quoted text - - Show quoted text - > Yes, this would be for a note created in CPRS. Thanks! -- IV

> On Mar 18, 3:51 pm, kdtop <kdt...@gmail.com> wrote:

> > Are you saying that this is a note created in CPRS? > > How are you printing the notes out?

> > There is two different methods of printing out TIU notes. One is > > using a local windows printer from CPRS. The other is from servers > > defined on the printer. The former might require a modification to > > CPRS, while the latter is handled by the TIUPRPN* modules, if I > > remember correctly.

> > I might be able to help you if you are using the latter method.

> > Kevin

> > On Mar 18, 3:55 pm, Ignacio Valdes <ival...@hal-pc.org> wrote:

> > > Hi All,

> > > We are still in the half-paper and half electronic transition. There > > > is a 10-13 pager admission nursing assessment printout that is in > > > desperate need of page numbering in the header/footer. This is > > > currently beyond my mumps capability. Can someone take some time to do > > > this soon? I get asked for this nearly every day by the staff and have > > > to start tap-dancing.

> > > -- IV


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space

Cancel


Send Discard


From: ivaldes1@gmail.com <ivaldes1@gmail.com> To: Cc: Followup To:

Add Cc | Add Followup-to | Edit Subject Subject:

Validation: For Verification purposes please type the characters you see in the picture below or the numbers you hear by clicking the accessibility icon. Listen and type the numbers you hear Send Discard



You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


I, Valdes View profile More options Mar 18, 9:01 pm From: "I, Valdes" <ival...@hal-pc.org> Date: Wed, 18 Mar 2009 19:01:53 -0700 (PDT) Local: Wed, Mar 18 2009 9:01 pm Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author With a windows defined printer. -- IV

On Mar 18, 8:28 pm, kdtop <kdt...@gmail.com> wrote:

- Hide quoted text - - Show quoted text - > You didn't answer my question. Which way are you printing these notes > out? With a windows-defined printer? Or with a server-defined > printer?

> Kevin

> On Mar 18, 5:03 pm, "I, Valdes" <ival...@hal-pc.org> wrote:

> > Yes, this would be for a note created in CPRS. Thanks! -- IV

> > On Mar 18, 3:51 pm, kdtop <kdt...@gmail.com> wrote:

> > > Are you saying that this is a note created in CPRS? > > > How are you printing the notes out?

> > > There is two different methods of printing out TIU notes. One is > > > using a local windows printer from CPRS. The other is from servers > > > defined on the printer. The former might require a modification to > > > CPRS, while the latter is handled by the TIUPRPN* modules, if I > > > remember correctly.

> > > I might be able to help you if you are using the latter method.

> > > Kevin

> > > On Mar 18, 3:55 pm, Ignacio Valdes <ival...@hal-pc.org> wrote:

> > > > Hi All,

> > > > We are still in the half-paper and half electronic transition. There > > > > is a 10-13 pager admission nursing assessment printout that is in > > > > desperate need of page numbering in the header/footer. This is > > > > currently beyond my mumps capability. Can someone take some time to do > > > > this soon? I get asked for this nearly every day by the staff and have > > > > to start tap-dancing.

> > > > -- IV


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


I, Valdes View profile More options Mar 18, 9:07 pm From: "I, Valdes" <ival...@hal-pc.org> Date: Wed, 18 Mar 2009 19:07:09 -0700 (PDT) Local: Wed, Mar 18 2009 9:07 pm Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author Until you just said that, I didn't think you could print from CPRS to a non-Windows defined printer. So I checked CPRS and see the entries in Print Setup. -- IV

On Mar 18, 8:28 pm, kdtop <kdt...@gmail.com> wrote:

- Hide quoted text - - Show quoted text - > You didn't answer my question. Which way are you printing these notes > out? With a windows-defined printer? Or with a server-defined > printer?

> Kevin

> On Mar 18, 5:03 pm, "I, Valdes" <ival...@hal-pc.org> wrote:

> > Yes, this would be for a note created in CPRS. Thanks! -- IV

> > On Mar 18, 3:51 pm, kdtop <kdt...@gmail.com> wrote:

> > > Are you saying that this is a note created in CPRS? > > > How are you printing the notes out?

> > > There is two different methods of printing out TIU notes. One is > > > using a local windows printer from CPRS. The other is from servers > > > defined on the printer. The former might require a modification to > > > CPRS, while the latter is handled by the TIUPRPN* modules, if I > > > remember correctly.

> > > I might be able to help you if you are using the latter method.

> > > Kevin

> > > On Mar 18, 3:55 pm, Ignacio Valdes <ival...@hal-pc.org> wrote:

> > > > Hi All,

> > > > We are still in the half-paper and half electronic transition. There > > > > is a 10-13 pager admission nursing assessment printout that is in > > > > desperate need of page numbering in the header/footer. This is > > > > currently beyond my mumps capability. Can someone take some time to do > > > > this soon? I get asked for this nearly every day by the staff and have > > > > to start tap-dancing.

> > > > -- IV


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


kdtop View profile More options Mar 18, 9:55 pm From: kdtop <kdt...@gmail.com> Date: Wed, 18 Mar 2009 19:55:28 -0700 (PDT) Local: Wed, Mar 18 2009 9:55 pm Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author OK. Have you set up printers on the server-side? Can you print to them? I had to do some trickery to get mine working as I recall. Something like printing to a file and then passing the file to lpr in linux.

Kevin

On Mar 18, 10:07 pm, "I, Valdes" <ival...@hal-pc.org> wrote:

- Hide quoted text - - Show quoted text - > Until you just said that, I didn't think you could print from CPRS to > a non-Windows defined printer. So I checked CPRS and see the entries > in Print Setup. -- IV

> On Mar 18, 8:28 pm, kdtop <kdt...@gmail.com> wrote:

> > You didn't answer my question. Which way are you printing these notes > > out? With a windows-defined printer? Or with a server-defined > > printer?

> > Kevin

> > On Mar 18, 5:03 pm, "I, Valdes" <ival...@hal-pc.org> wrote:

> > > Yes, this would be for a note created in CPRS. Thanks! -- IV

> > > On Mar 18, 3:51 pm, kdtop <kdt...@gmail.com> wrote:

> > > > Are you saying that this is a note created in CPRS? > > > > How are you printing the notes out?

> > > > There is two different methods of printing out TIU notes. One is > > > > using a local windows printer from CPRS. The other is from servers > > > > defined on the printer. The former might require a modification to > > > > CPRS, while the latter is handled by the TIUPRPN* modules, if I > > > > remember correctly.

> > > > I might be able to help you if you are using the latter method.

> > > > Kevin

> > > > On Mar 18, 3:55 pm, Ignacio Valdes <ival...@hal-pc.org> wrote:

> > > > > Hi All,

> > > > > We are still in the half-paper and half electronic transition. There > > > > > is a 10-13 pager admission nursing assessment printout that is in > > > > > desperate need of page numbering in the header/footer. This is > > > > > currently beyond my mumps capability. Can someone take some time to do > > > > > this soon? I get asked for this nearly every day by the staff and have > > > > > to start tap-dancing.

> > > > > -- IV


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


I, Valdes View profile More options Mar 19, 8:50 am From: "I, Valdes" <ival...@hal-pc.org> Date: Thu, 19 Mar 2009 06:50:10 -0700 (PDT) Local: Thurs, Mar 19 2009 8:50 am Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author I had not tried getting that working yet because it has not been necessary so far. Do printers accessed through the VistA server print page numbers in the header/footer? -- IV

On Mar 18, 9:55 pm, kdtop <kdt...@gmail.com> wrote:

- Hide quoted text - - Show quoted text - > OK. Have you set up printers on the server-side? Can you print to > them? > I had to do some trickery to get mine working as I recall. Something > like printing to a file and then passing the file to lpr in linux.

> Kevin

> On Mar 18, 10:07 pm, "I, Valdes" <ival...@hal-pc.org> wrote:

> > Until you just said that, I didn't think you could print from CPRS to > > a non-Windows defined printer. So I checked CPRS and see the entries > > in Print Setup. -- IV

> > On Mar 18, 8:28 pm, kdtop <kdt...@gmail.com> wrote:

> > > You didn't answer my question. Which way are you printing these notes > > > out? With a windows-defined printer? Or with a server-defined > > > printer?

> > > Kevin

> > > On Mar 18, 5:03 pm, "I, Valdes" <ival...@hal-pc.org> wrote:

> > > > Yes, this would be for a note created in CPRS. Thanks! -- IV

> > > > On Mar 18, 3:51 pm, kdtop <kdt...@gmail.com> wrote:

> > > > > Are you saying that this is a note created in CPRS? > > > > > How are you printing the notes out?

> > > > > There is two different methods of printing out TIU notes. One is > > > > > using a local windows printer from CPRS. The other is from servers > > > > > defined on the printer. The former might require a modification to > > > > > CPRS, while the latter is handled by the TIUPRPN* modules, if I > > > > > remember correctly.

> > > > > I might be able to help you if you are using the latter method.

> > > > > Kevin

> > > > > On Mar 18, 3:55 pm, Ignacio Valdes <ival...@hal-pc.org> wrote:

> > > > > > Hi All,

> > > > > > We are still in the half-paper and half electronic transition. There > > > > > > is a 10-13 pager admission nursing assessment printout that is in > > > > > > desperate need of page numbering in the header/footer. This is > > > > > > currently beyond my mumps capability. Can someone take some time to do > > > > > > this soon? I get asked for this nearly every day by the staff and have > > > > > > to start tap-dancing.

> > > > > > -- IV


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


JohnLeo Zimmer View profile More options Mar 19, 12:26 pm From: JohnLeo Zimmer <johnleo...@gmail.com> Date: Thu, 19 Mar 2009 12:26:06 -0500 Local: Thurs, Mar 19 2009 12:26 pm Subject: Re: [Hardhats] Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author On Thu, Mar 19, 2009 at 8:50 AM, I, Valdes <ival...@hal-pc.org> wrote:

> Do printers accessed through the VistA server print > page numbers in the header/footer? -- IV

Yes, FileMan does, by default.

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


I, Valdes View profile More options Mar 19, 3:21 pm From: "I, Valdes" <ival...@hal-pc.org> Date: Thu, 19 Mar 2009 13:21:32 -0700 (PDT) Local: Thurs, Mar 19 2009 3:21 pm Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author I wonder why locally configured via Windows printers do get a header and footer added but does not contain page numbering? -- IV

On Mar 19, 12:26 pm, JohnLeo Zimmer <johnleo...@gmail.com> wrote:

- Hide quoted text - - Show quoted text - > On Thu, Mar 19, 2009 at 8:50 AM, I, Valdes <ival...@hal-pc.org> wrote:

> > Do printers accessed through the VistA server print > > page numbers in the header/footer? -- IV

> Yes, FileMan does, by default.


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


Steven McPhelan View profile More options Mar 19, 3:39 pm From: Steven McPhelan <smcphe...@alumni.uci.edu> Date: Thu, 19 Mar 2009 16:39:46 -0400 Local: Thurs, Mar 19 2009 3:39 pm Subject: Re: [Hardhats] Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author

VistA printouts do not natively have headers, footers, or page numbering. As John stated, a Fileman print request does include a header and page numbers. Any other printout from VistA will all depend upon whether the specific Application programmer for that specific report included headers and footers and page numbering. There is no generic utility in VistA to format a page for anything that may print from VistA.

On Thu, Mar 19, 2009 at 4:21 PM, I, Valdes <ival...@hal-pc.org> wrote:

> I wonder why locally configured via Windows printers do get a header > and footer added but does not contain page numbering? -- IV

> On Mar 19, 12:26 pm, JohnLeo Zimmer <johnleo...@gmail.com> wrote: > > On Thu, Mar 19, 2009 at 8:50 AM, I, Valdes <ival...@hal-pc.org> wrote:

> > > Do printers accessed through the VistA server print > > > page numbers in the header/footer? -- IV

> > Yes, FileMan does, by default.

-- Steve FREEDOM, freedom is never as valued as when lost.

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


Aylesworth, Marc CTR USAF AFMC AFRL/RISE View profile More options Mar 19, 3:39 pm From: "Aylesworth, Marc CTR USAF AFMC AFRL/RISE" <Marc.Aylesworth....@rl.af.mil> Date: Thu, 19 Mar 2009 16:39:59 -0400 Local: Thurs, Mar 19 2009 3:39 pm Subject: RE: [Hardhats] Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author

You could set up the printer to add page numbers to all printouts. The downside to this is that everything printed from the printer would have page numbers.

Marc Aylesworth

RRC C3I Group 525 Brooks Road Rome, NY 13440 PH: 315-330-2422

From: Steven McPhelan Sent: Thu 3/19/2009 4:39 PM To: Hardhats@googlegroups.com Subject: [Hardhats] Re: Intracare Implementation Log Episode 45: Page number printout revisited.

VistA printouts do not natively have headers, footers, or page numbering. As John stated, a Fileman print request does include a header and page numbers. Any other printout from VistA will all depend upon whether the specific Application programmer for that specific report included headers and footers and page numbering. There is no generic utility in VistA to format a page for anything that may print from VistA.

On Thu, Mar 19, 2009 at 4:21 PM, I, Valdes <ival...@hal-pc.org> wrote:

I wonder why locally configured via Windows printers do get a header and footer added but does not contain page numbering? -- IV

On Mar 19, 12:26 pm, JohnLeo Zimmer <johnleo...@gmail.com> wrote:

- Hide quoted text - - Show quoted text - > On Thu, Mar 19, 2009 at 8:50 AM, I, Valdes <ival...@hal-pc.org> wrote:

> > Do printers accessed through the VistA server print > > page numbers in the header/footer? -- IV

> Yes, FileMan does, by default.


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


I, Valdes View profile More options Mar 19, 3:50 pm From: "I, Valdes" <ival...@hal-pc.org> Date: Thu, 19 Mar 2009 13:50:42 -0700 (PDT) Local: Thurs, Mar 19 2009 3:50 pm Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author That would be desirable. The current windows native printer driver does not seem to have that so how could this be added to CPRS notes?

-- IV

On Mar 19, 3:39 pm, "Aylesworth, Marc CTR USAF AFMC AFRL/RISE"

- Hide quoted text - - Show quoted text - <Marc.Aylesworth....@rl.af.mil> wrote: > You could set up the printer to add page numbers to all printouts. The downside to this is that everything printed from the printer would have page numbers.

> Marc Aylesworth

> RRC C3I Group > 525 Brooks Road > Rome, NY 13440 > PH: 315-330-2422

> From: Steven McPhelan > Sent: Thu 3/19/2009 4:39 PM > To: Hardhats@googlegroups.com > Subject: [Hardhats] Re: Intracare Implementation Log Episode 45: Page number printout revisited.

> VistA printouts do not natively have headers, footers, or page numbering. As John stated, a Fileman print request does include a header and page numbers. Any other printout from VistA will all depend upon whether the specific Application programmer for that specific report included headers and footers and page numbering. There is no generic utility in VistA to format a page for anything that may print from VistA.

> On Thu, Mar 19, 2009 at 4:21 PM, I, Valdes <ival...@hal-pc.org> wrote:

> I wonder why locally configured via Windows printers do get a header > and footer added but does not contain page numbering? -- IV

> On Mar 19, 12:26 pm, JohnLeo Zimmer <johnleo...@gmail.com> wrote:

> > On Thu, Mar 19, 2009 at 8:50 AM, I, Valdes <ival...@hal-pc.org> wrote:

> > > Do printers accessed through the VistA server print > > > page numbers in the header/footer? -- IV

> > Yes, FileMan does, by default.


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


Nancy Anthracite View profile More options Mar 19, 4:41 pm From: Nancy Anthracite <nanthrac...@verizon.net> Date: Thu, 19 Mar 2009 17:41:45 -0400 Local: Thurs, Mar 19 2009 4:41 pm Subject: Re: [Hardhats] Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author Is this done using PCL? Is it sent as a DOS command to the printer?

On Thursday 19 March 2009, Aylesworth, Marc CTR USAF AFMC AFRL/RISE wrote:

- Hide quoted text - - Show quoted text - > You could set up the printer to add page numbers to all printouts. The > downside to this is that everything printed from the printer would have > page numbers.

> Marc Aylesworth

> RRC C3I Group > 525 Brooks Road > Rome, NY 13440 > PH: 315-330-2422

> From: Steven McPhelan > Sent: Thu 3/19/2009 4:39 PM > To: Hardhats@googlegroups.com > Subject: [Hardhats] Re: Intracare Implementation Log Episode 45: Page > number printout revisited.

> VistA printouts do not natively have headers, footers, or page numbering. > As John stated, a Fileman print request does include a header and page > numbers. Any other printout from VistA will all depend upon whether the > specific Application programmer for that specific report included headers > and footers and page numbering. There is no generic utility in VistA to > format a page for anything that may print from VistA.

> On Thu, Mar 19, 2009 at 4:21 PM, I, Valdes <ival...@hal-pc.org> wrote:

> I wonder why locally configured via Windows printers do get a header > and footer added but does not contain page numbering? -- IV

> On Mar 19, 12:26 pm, JohnLeo Zimmer <johnleo...@gmail.com> wrote: > > On Thu, Mar 19, 2009 at 8:50 AM, I, Valdes <ival...@hal-pc.org> wrote: > > > Do printers accessed through the VistA server print > > > page numbers in the header/footer? -- IV

> > Yes, FileMan does, by default.

-- Nancy Anthracite

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


kdtop View profile More options Mar 19, 9:43 pm From: kdtop <kdt...@gmail.com> Date: Thu, 19 Mar 2009 19:43:40 -0700 (PDT) Local: Thurs, Mar 19 2009 9:43 pm Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author I don't think they do. There is code that defines the headers and footers. For my site, I modified this code to make the header and footer look like what I wanted. But then someone else later posted that there was a "proper" way to do this, i.e. to make a custom footer for TIU printouts. Does anyone remember how to do this?

Kevin

On Mar 19, 9:50 am, "I, Valdes" <ival...@hal-pc.org> wrote:

- Hide quoted text - - Show quoted text - > I had not tried getting that working yet because it has not been > necessary so far. Do printers accessed through the VistA server print > page numbers in the header/footer? -- IV

> On Mar 18, 9:55 pm, kdtop <kdt...@gmail.com> wrote:

> > OK. Have you set up printers on the server-side? Can you print to > > them? > > I had to do some trickery to get mine working as I recall. Something > > like printing to a file and then passing the file to lpr in linux.

> > Kevin

> > On Mar 18, 10:07 pm, "I, Valdes" <ival...@hal-pc.org> wrote:

> > > Until you just said that, I didn't think you could print from CPRS to > > > a non-Windows defined printer. So I checked CPRS and see the entries > > > in Print Setup. -- IV

> > > On Mar 18, 8:28 pm, kdtop <kdt...@gmail.com> wrote:

> > > > You didn't answer my question. Which way are you printing these notes > > > > out? With a windows-defined printer? Or with a server-defined > > > > printer?

> > > > Kevin

> > > > On Mar 18, 5:03 pm, "I, Valdes" <ival...@hal-pc.org> wrote:

> > > > > Yes, this would be for a note created in CPRS. Thanks! -- IV

> > > > > On Mar 18, 3:51 pm, kdtop <kdt...@gmail.com> wrote:

> > > > > > Are you saying that this is a note created in CPRS? > > > > > > How are you printing the notes out?

> > > > > > There is two different methods of printing out TIU notes. One is > > > > > > using a local windows printer from CPRS. The other is from servers > > > > > > defined on the printer. The former might require a modification to > > > > > > CPRS, while the latter is handled by the TIUPRPN* modules, if I > > > > > > remember correctly.

> > > > > > I might be able to help you if you are using the latter method.

> > > > > > Kevin

> > > > > > On Mar 18, 3:55 pm, Ignacio Valdes <ival...@hal-pc.org> wrote:

> > > > > > > Hi All,

> > > > > > > We are still in the half-paper and half electronic transition. There > > > > > > > is a 10-13 pager admission nursing assessment printout that is in > > > > > > > desperate need of page numbering in the header/footer. This is > > > > > > > currently beyond my mumps capability. Can someone take some time to do > > > > > > > this soon? I get asked for this nearly every day by the staff and have > > > > > > > to start tap-dancing.

> > > > > > > -- IV


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


kdtop View profile More options Mar 19, 9:44 pm From: kdtop <kdt...@gmail.com> Date: Thu, 19 Mar 2009 19:44:41 -0700 (PDT) Local: Thurs, Mar 19 2009 9:44 pm Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author It has to do with the difference between having Delphi code to assemble a printout vs some server code creating the printout. The two bits of code seemed to have diverged.

Kevin

On Mar 19, 4:21 pm, "I, Valdes" <ival...@hal-pc.org> wrote:

- Hide quoted text - - Show quoted text - > I wonder why locally configured via Windows printers do get a header > and footer added but does not contain page numbering? -- IV

> On Mar 19, 12:26 pm, JohnLeo Zimmer <johnleo...@gmail.com> wrote:

> > On Thu, Mar 19, 2009 at 8:50 AM, I, Valdes <ival...@hal-pc.org> wrote:

> > > Do printers accessed through the VistA server print > > > page numbers in the header/footer? -- IV

> > Yes, FileMan does, by default.


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


kdtop View profile More options Mar 19, 9:45 pm From: kdtop <kdt...@gmail.com> Date: Thu, 19 Mar 2009 19:45:29 -0700 (PDT) Local: Thurs, Mar 19 2009 9:45 pm Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author I don't think it can when printing from Windows printers, without modifying the CPRS code.

Kevin

On Mar 19, 4:50 pm, "I, Valdes" <ival...@hal-pc.org> wrote:

- Hide quoted text - - Show quoted text - > That would be desirable. The current windows native printer driver > does not seem to have that so how could this be added to CPRS notes?

> -- IV

> On Mar 19, 3:39 pm, "Aylesworth, Marc CTR USAF AFMC AFRL/RISE"

> <Marc.Aylesworth....@rl.af.mil> wrote: > > You could set up the printer to add page numbers to all printouts. The downside to this is that everything printed from the printer would have page numbers.

> > Marc Aylesworth

> > RRC C3I Group > > 525 Brooks Road > > Rome, NY 13440 > > PH: 315-330-2422

> > From: Steven McPhelan > > Sent: Thu 3/19/2009 4:39 PM > > To: Hardhats@googlegroups.com > > Subject: [Hardhats] Re: Intracare Implementation Log Episode 45: Page number printout revisited.

> > VistA printouts do not natively have headers, footers, or page numbering. As John stated, a Fileman print request does include a header and page numbers. Any other printout from VistA will all depend upon whether the specific Application programmer for that specific report included headers and footers and page numbering. There is no generic utility in VistA to format a page for anything that may print from VistA.

> > On Thu, Mar 19, 2009 at 4:21 PM, I, Valdes <ival...@hal-pc.org> wrote:

> > I wonder why locally configured via Windows printers do get a header > > and footer added but does not contain page numbering? -- IV

> > On Mar 19, 12:26 pm, JohnLeo Zimmer <johnleo...@gmail.com> wrote:

> > > On Thu, Mar 19, 2009 at 8:50 AM, I, Valdes <ival...@hal-pc.org> wrote:

> > > > Do printers accessed through the VistA server print > > > > page numbers in the header/footer? -- IV

> > > Yes, FileMan does, by default.


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


kdtop View profile More options Mar 19, 9:46 pm From: kdtop <kdt...@gmail.com> Date: Thu, 19 Mar 2009 19:46:29 -0700 (PDT) Local: Thurs, Mar 19 2009 9:46 pm Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author No. Delphi has functionality for creating printed output. I think it involves writing onto a canvas, and then passing that canvas to the printout-output for passing to the printer. It is not text based.

Kevin

On Mar 19, 5:41 pm, Nancy Anthracite <nanthrac...@verizon.net> wrote:

- Hide quoted text - - Show quoted text - > Is this done using PCL? Is it sent as a DOS command to the printer?

> On Thursday 19 March 2009, Aylesworth, Marc CTR USAF AFMC AFRL/RISE wrote:

> > You could set up the printer to add page numbers to all printouts. The > > downside to this is that everything printed from the printer would have > > page numbers.

> > Marc Aylesworth

> > RRC C3I Group > > 525 Brooks Road > > Rome, NY 13440 > > PH: 315-330-2422

> > From: Steven McPhelan > > Sent: Thu 3/19/2009 4:39 PM > > To: Hardhats@googlegroups.com > > Subject: [Hardhats] Re: Intracare Implementation Log Episode 45: Page > > number printout revisited.

> > VistA printouts do not natively have headers, footers, or page numbering. > > As John stated, a Fileman print request does include a header and page > > numbers. Any other printout from VistA will all depend upon whether the > > specific Application programmer for that specific report included headers > > and footers and page numbering. There is no generic utility in VistA to > > format a page for anything that may print from VistA.

> > On Thu, Mar 19, 2009 at 4:21 PM, I, Valdes <ival...@hal-pc.org> wrote:

> > I wonder why locally configured via Windows printers do get a header > > and footer added but does not contain page numbering? -- IV

> > On Mar 19, 12:26 pm, JohnLeo Zimmer <johnleo...@gmail.com> wrote: > > > On Thu, Mar 19, 2009 at 8:50 AM, I, Valdes <ival...@hal-pc.org> wrote: > > > > Do printers accessed through the VistA server print > > > > page numbers in the header/footer? -- IV

> > > Yes, FileMan does, by default.

> -- > Nancy Anthracite


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


Nancy Anthracite View profile More options Mar 19, 10:07 pm From: Nancy Anthracite <nanthrac...@verizon.net> Date: Thu, 19 Mar 2009 23:07:21 -0400 Local: Thurs, Mar 19 2009 10:07 pm Subject: Re: [Hardhats] Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author I think it might be under the Clincal Coordinator's Menu, CPRS Configuration, Print Format menu, but I am not sure.

On Thursday 19 March 2009, kdtop wrote:

- Hide quoted text - - Show quoted text - > I don't think they do. There is code that defines the headers and > footers. > For my site, I modified this code to make the header and footer look > like what I wanted. > But then someone else later posted that there was a "proper" way to do > this, i.e. to make a custom footer for TIU printouts. Does anyone > remember how to do this?

> Kevin

> On Mar 19, 9:50 am, "I, Valdes" <ival...@hal-pc.org> wrote: > > I had not tried getting that working yet because it has not been > > necessary so far. Do printers accessed through the VistA server print > > page numbers in the header/footer? -- IV

> > On Mar 18, 9:55 pm, kdtop <kdt...@gmail.com> wrote: > > > OK. Have you set up printers on the server-side? Can you print to > > > them? > > > I had to do some trickery to get mine working as I recall. Something > > > like printing to a file and then passing the file to lpr in linux.

> > > Kevin

> > > On Mar 18, 10:07 pm, "I, Valdes" <ival...@hal-pc.org> wrote: > > > > Until you just said that, I didn't think you could print from CPRS to > > > > a non-Windows defined printer. So I checked CPRS and see the entries > > > > in Print Setup. -- IV

> > > > On Mar 18, 8:28 pm, kdtop <kdt...@gmail.com> wrote: > > > > > You didn't answer my question. Which way are you printing these > > > > > notes out? With a windows-defined printer? Or with a > > > > > server-defined printer?

> > > > > Kevin

> > > > > On Mar 18, 5:03 pm, "I, Valdes" <ival...@hal-pc.org> wrote: > > > > > > Yes, this would be for a note created in CPRS. Thanks! -- IV

> > > > > > On Mar 18, 3:51 pm, kdtop <kdt...@gmail.com> wrote: > > > > > > > Are you saying that this is a note created in CPRS? > > > > > > > How are you printing the notes out?

> > > > > > > There is two different methods of printing out TIU notes. One > > > > > > > is using a local windows printer from CPRS. The other is from > > > > > > > servers defined on the printer. The former might require a > > > > > > > modification to CPRS, while the latter is handled by the > > > > > > > TIUPRPN* modules, if I remember correctly.

> > > > > > > I might be able to help you if you are using the latter method.

> > > > > > > Kevin

> > > > > > > On Mar 18, 3:55 pm, Ignacio Valdes <ival...@hal-pc.org> wrote: > > > > > > > > Hi All,

> > > > > > > > We are still in the half-paper and half electronic > > > > > > > > transition. There is a 10-13 pager admission nursing > > > > > > > > assessment printout that is in desperate need of page > > > > > > > > numbering in the header/footer. This is currently beyond my > > > > > > > > mumps capability. Can someone take some time to do this soon? > > > > > > > > I get asked for this nearly every day by the staff and have > > > > > > > > to start tap-dancing.

> > > > > > > > -- IV

-- Nancy Anthracite

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


I, Valdes View profile More options Mar 19, 10:54 pm From: "I, Valdes" <ival...@hal-pc.org> Date: Thu, 19 Mar 2009 20:54:16 -0700 (PDT) Local: Thurs, Mar 19 2009 10:54 pm Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author There where some hints in the discussion on Intracare Implementation Log Episode 27: Suppressing WORK COPY -- NOT FOR MEDICAL RECORD  : http://groups.google.com/group/Hardhats/browse_frm/thread/899769c63c1...

The discussion then seems remarkably similar to this one. -- IV

On Mar 19, 9:43 pm, kdtop <kdt...@gmail.com> wrote:

- Hide quoted text - - Show quoted text - > I don't think they do. There is code that defines the headers and > footers. > For my site, I modified this code to make the header and footer look > like what I wanted. > But then someone else later posted that there was a "proper" way to do > this, i.e. to make a custom footer for TIU printouts. Does anyone > remember how to do this?

> Kevin

> On Mar 19, 9:50 am, "I, Valdes" <ival...@hal-pc.org> wrote:

> > I had not tried getting that working yet because it has not been > > necessary so far. Do printers accessed through the VistA server print > > page numbers in the header/footer? -- IV

> > On Mar 18, 9:55 pm, kdtop <kdt...@gmail.com> wrote:

> > > OK. Have you set up printers on the server-side? Can you print to > > > them? > > > I had to do some trickery to get mine working as I recall. Something > > > like printing to a file and then passing the file to lpr in linux.

> > > Kevin

> > > On Mar 18, 10:07 pm, "I, Valdes" <ival...@hal-pc.org> wrote:

> > > > Until you just said that, I didn't think you could print from CPRS to > > > > a non-Windows defined printer. So I checked CPRS and see the entries > > > > in Print Setup. -- IV

> > > > On Mar 18, 8:28 pm, kdtop <kdt...@gmail.com> wrote:

> > > > > You didn't answer my question. Which way are you printing these notes > > > > > out? With a windows-defined printer? Or with a server-defined > > > > > printer?

> > > > > Kevin

> > > > > On Mar 18, 5:03 pm, "I, Valdes" <ival...@hal-pc.org> wrote:

> > > > > > Yes, this would be for a note created in CPRS. Thanks! -- IV

> > > > > > On Mar 18, 3:51 pm, kdtop <kdt...@gmail.com> wrote:

> > > > > > > Are you saying that this is a note created in CPRS? > > > > > > > How are you printing the notes out?

> > > > > > > There is two different methods of printing out TIU notes. One is > > > > > > > using a local windows printer from CPRS. The other is from servers > > > > > > > defined on the printer. The former might require a modification to > > > > > > > CPRS, while the latter is handled by the TIUPRPN* modules, if I > > > > > > > remember correctly.

> > > > > > > I might be able to help you if you are using the latter method.

> > > > > > > Kevin

> > > > > > > On Mar 18, 3:55 pm, Ignacio Valdes <ival...@hal-pc.org> wrote:

> > > > > > > > Hi All,

> > > > > > > > We are still in the half-paper and half electronic transition. There > > > > > > > > is a 10-13 pager admission nursing assessment printout that is in > > > > > > > > desperate need of page numbering in the header/footer. This is > > > > > > > > currently beyond my mumps capability. Can someone take some time to do > > > > > > > > this soon? I get asked for this nearly every day by the staff and have > > > > > > > > to start tap-dancing.

> > > > > > > > -- IV


   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


Aylesworth, Marc CTR USAF AFMC AFRL/RISE View profile More options Mar 20, 7:40 am From: "Aylesworth, Marc CTR USAF AFMC AFRL/RISE" <Marc.Aylesworth....@rl.af.mil> Date: Fri, 20 Mar 2009 08:40:20 -0400 Local: Fri, Mar 20 2009 7:40 am Subject: RE: [Hardhats] Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author

In most HP printers anyways in the menu system for the printer there is an option to have the page number put on all printed pages.

Marc Aylesworth

RRC C3I Group 525 Brooks Road Rome, NY 13440 PH: 315-330-2422

From: Nancy Anthracite Sent: Thu 3/19/2009 5:41 PM To: Hardhats@googlegroups.com Subject: [Hardhats] Re: Intracare Implementation Log Episode 45: Page number printout revisited.

Is this done using PCL? Is it sent as a DOS command to the printer?

On Thursday 19 March 2009, Aylesworth, Marc CTR USAF AFMC AFRL/RISE wrote:

- Hide quoted text - - Show quoted text - > You could set up the printer to add page numbers to all printouts. The > downside to this is that everything printed from the printer would have > page numbers.

> Marc Aylesworth

> RRC C3I Group > 525 Brooks Road > Rome, NY 13440 > PH: 315-330-2422

> From: Steven McPhelan > Sent: Thu 3/19/2009 4:39 PM > To: Hardhats@googlegroups.com > Subject: [Hardhats] Re: Intracare Implementation Log Episode 45: Page > number printout revisited.

> VistA printouts do not natively have headers, footers, or page numbering. > As John stated, a Fileman print request does include a header and page > numbers. Any other printout from VistA will all depend upon whether the > specific Application programmer for that specific report included headers > and footers and page numbering. There is no generic utility in VistA to > format a page for anything that may print from VistA.

> On Thu, Mar 19, 2009 at 4:21 PM, I, Valdes <ival...@hal-pc.org> wrote:

> I wonder why locally configured via Windows printers do get a header > and footer added but does not contain page numbering? -- IV

> On Mar 19, 12:26 pm, JohnLeo Zimmer <johnleo...@gmail.com> wrote: > > On Thu, Mar 19, 2009 at 8:50 AM, I, Valdes <ival...@hal-pc.org> wrote: > > > Do printers accessed through the VistA server print > > > page numbers in the header/footer? -- IV

> > Yes, FileMan does, by default.

-- Nancy Anthracite

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


fred trotter View profile More options Mar 22, 6:46 pm From: fred trotter <fred.trot...@gmail.com> Date: Sun, 22 Mar 2009 18:46:04 -0500 Local: Sun, Mar 22 2009 6:46 pm Subject: Re: [Hardhats] Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author Could someone concisely explain why page numbers seems to be left to the outside printing engine?

Is it not possible to control what prints on what page on these reports, and if so, why can it not also support page breaks?

I know enough about printing to know that page breaks are more complex than they seem, I was just wondering if someone could explain the decision (I am sure there is a good reason here and it would help novices like me to understand why...)

-FT

-- Fred Trotter http://www.fredtrotter.com

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


I, Valdes View profile More options Mar 24, 11:32 pm From: "I, Valdes" <ival...@hal-pc.org> Date: Tue, 24 Mar 2009 21:32:18 -0700 (PDT) Local: Tues, Mar 24 2009 11:32 pm Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author Well, the day has finally come that I'm mutating into a mumps programmer.

I have hacked TIUPRPN1.m and TIUPRPN2.m to include page numbering in the header via a variable I created called ZTIUPAGE. ZTIUPAGE is initialized to 1, passed in to HEADER and is supposed to be incremented by 1 each time this is called. 'Medical Record Page 1' comes out on the header okay but it is never incremented on subsequent pages, I get my null value of 'IVTest instead. The code is below, any ideas as to why ZTIUPAGE is not incrementing?

TIUPRPN1:  ;SLC/JER - Print SF 509-Progress Notes ;11/23/07

       ;;1.0;TEXT INTEGRATION

UTILITIES;**45,52,87,100,162,182,211,222,234**;Jun 20, 1997;Build 6

       ; DBIA 908 ^SC(D0,0)

PRINT(TIUFLAG,TIUSPG)  ; Print Document

       ; ^TMP("TIUPR",$J) is array of records to be printed
       ; TIUFLAG=1 --> Chart Copy     TIUSPG=1 --> Contiguous
       ; TIUFLAG=0 --> Work Copy      TIUSPG=0 --> Fresh Page- each

note

       ; TIUCONT=1 --> Continue printing
       ; TIUCONT1=1 --> Write "Continue to next/from previous-page"

msgs

       ; TIUPFNBR ---> Print Form # like vice 509
       ; TIUMISC=TIUFLAG_U_TIUPFNBR_U_TIUDA
       N

CONT,TIUASK,TIUI,TIUJ,TIUKID,TIUFOOT,TIUK,TIUDA,TIUCONT,TIUPGRP,TIUTYP

       N TIUPFHDR,TIUPFNBR,TIUMISC,TIUCONT1,TIUIDONE,TMP
       S ZTIUPAGE=1
       S TIUFLAG=+$G(TIUFLAG),TIUSPG=+$G(TIUSPG)
       S (CONT,TIUCONT)=1,(TIUASK,TIUCONT1)=0
       S TIUI=0 F  S TIUI=$O(^TMP("TIUPR",$J,TIUI)) Q:TIUI=""  D

Q:'TIUCONT

       . N DFN,TIU
       . ; -- P182 TIUI has form PGRP$PFHDR;DFN with PGRP possibly 0,

and

       . ;    PFHDR possibly null (see TIURA):
       . S TIUPGRP=+$P(TIUI,"$"),TIUPFHDR=$P($P(TIUI,";"),"$",2)
       . I TIUPFHDR']"" S TIUPFHDR="Progress Notes"
       . S DFN=$P(TIUI,";",2)
       . I $G(TIUPGRP)>2 S TIUSPG=0
       . D PATPN^TIULV(.TIUFOOT,DFN)
       . I +$G(TIUSPG) D HEADER^TIUPRPN2

(.TIUFOOT,TIUFLAG,.TIUPFHDR,TIUCONT1,.S15967,.ZTIUPAGE) S ZTIUPAGE=$G (ZTIUPAGE)+1

       . ; Use TIUJ="" (not TIUJ=0), to print "complete" notes w/o sigdt:
       . S TIUJ="" F  S TIUJ=$O(^TMP("TIUPR",$J,TIUI,TIUJ)) Q:TIUJ=""  D

Q:'TIUCONT

       . . S TIUK=0 F  S TIUK=$O(^TMP("TIUPR",$J,TIUI,TIUJ,TIUK)) Q:'TIUK

D Q:'TIUCONT

       . . . S TIUCONT1=0 S TIUPFNBR=^TMP("TIUPR",$J,TIUI,TIUJ,TIUK)
       . . . ; Note: TIUPFNBR may be null
       . . . ;P182 Set TIUMISC BEFORE quitting if deleted
       . . . S TIUDA=TIUK,TIUMISC=TIUFLAG_U_TIUPFNBR_U_TIUDA
       . . . ; Quit docmt if deleted:
       . . . I '$D(^TIU(8925,+TIUDA,0)) D  Q
       . . . . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       . . . . W !!,"NOTE DATED:",!,"Document #",TIUDA," for ",$G(TIUFOOT

("PNMP")),!,"no longer exists in the TIU DOCUMENT file.",!!!

       . . . . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))
       . . . N TIUROOT
       . . . I '+$G(TIUSPG) D HEADER^TIUPRPN2

(.TIUFOOT,TIUFLAG,.TIUPFHDR,TIUCONT1,.S15967,.ZTIUPAGE) S ZTIUPAGE=$G (ZTIUPAGE)+1

       . . . K ^TMP("TIULQ",$J)
       . . . D EXTRACT^TIULQ(+TIUDA,"^TMP(""TIULQ"",$J)",.TIUERR,"","",1)
       . . . I +$G(TIUERR) W !,$P(TIUERR,U,2) Q
       . . . Q:'$D(^TMP("TIULQ",$J))
       . . . S TIUROOT="^TMP(""TIULQ"",$J,"_TIUDA_")"
       . . . D REPORT(TIUROOT,.TIUFOOT,TIUMISC,.TIUCONT) Q:'TIUCONT
       . . . D IDKIDS(TIUROOT,.TIUFOOT,TIUMISC,TIUCONT1,.TIUCONT) Q:'TIUCONT
       . . . I '+$G(TIUKID),'+$G(TIUSPG) S TIUCONT1=0 S TIUCONT=$$SETCONT

(.TIUFOOT,TIUMISC,TIUCONT1,1,$G(TIUROOT))

       . Q:'TIUCONT
       . I $E(IOST,1,2)="C-" S TIUCONT=$$STOP^TIUPRPN2() Q:'TIUCONT
       . I '+$G(TIUKID),+$G(TIUSPG),$E(IOST,1,2)'="C-" S TIUCONT1=0 S

TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,1,$G(TIUROOT))

       Q
       ;

REPORT(TIUROOT,TIUFOOT,TIUMISC,TIUCONT,TIUIDEND)  ; Report Text

       ; Requires array TIUFOOT, vars TIUMISC, TIUCONT
       ; Requires TIUROOT =
       ; ^TMP("TIULQ",$J,NOTEIFN) for parent/stand-alone note, or
       ; ^TMP("TIULQ",$J,NOTEIFN,"ZADD",ADDMIFN) for addendum, or
       ; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",KIDSEQ#,IDKIDIFN) for ID kid, or
       ; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",KIDSEQ#,IDKIDIFN,"ZADD",KIDADDMIFN)
       ;       for ID kid addm.
       N DIW,DIWF,DIWL,DIWR,DIWT,TIUERR,TIU,TIUI,X,Z,LOC
       N REFDT,TITLE,LOINCNM,ADT,HLOC,SUBJ
       N TIUDA,TIUCONT1,HASIDKID,HASIDDAD
       S TIUDA=$P(TIUMISC,U,3),TIUCONT1=0
       S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       S HASIDKID=$G(^TMP("TIULQ",$J,TIUDA,"ZZID",0)) ;how many ID kids
       S HASIDDAD=$S(TIUROOT["ZZID":1,1:0)
       I HASIDKID W "<< Interdisciplinary Note - Begin >>",!
       I HASIDDAD W "<< Interdisciplinary Note - Cont. >>",!
       W $S('HASIDKID&'HASIDDAD:"NOTE DATED: ",1:"ENTRY DATED: ")
       S REFDT=@TIUROOT@(1301,"I")
       W $$DATE^TIULS(REFDT,"MM/DD/CCYY HR:MIN")
       S TITLE=@TIUROOT@(.01,"E"),LOINCNM=@TIUROOT@(89261,"E")
       W !,"LOCAL TITLE: ",$$UP^XLFSTR(TITLE),!
       I $L(LOINCNM)>1 W "STANDARD TITLE: ",$$UP^XLFSTR(LOINCNM),!
       S LOC=$G(@TIUROOT@(1205,"I"))
       I +LOC D
       . W $S($P(^SC(LOC,0),U,3)="W":"ADMITTED: ",1:"VISIT: ")
       . S ADT=$G(@TIUROOT@(.07,"I"))
       . W $$DATE^TIULS(ADT,"MM/DD/CCYY HR:MIN")
       . S HLOC=$G(@TIUROOT@(1205,"E"))
       . W " ",HLOC
       S SUBJ=$G(@TIUROOT@(1701,"E"))
       I SUBJ]"" W !,"SUBJECT: ",^("E"),! ; @TIUROOT@(1701,"E")
       S TIUCONT1=1
       I $D(@TIUROOT@("PROBLEM")) D  Q:'TIUCONT
       . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       . W !,"ASSOCIATED PROBLEMS:"
       . N TIUI S TIUI=0
       . F  S TIUI=$O(@TIUROOT@("PROBLEM",TIUI)) Q:'TIUI  D  Q:'TIUCONT
       ..W !,^(TIUI,0) ; @TIUROOT@("PROBLEM",TIUI,0)
       ..S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       W !
       S TIUI=0,DIWF="WN",DIWL=1,DIWR=79 K ^UTILITY($J,"W")
       F  S TIUI=$O(@TIUROOT@("TEXT",TIUI)) Q:TIUI'>0  D  Q:'TIUCONT  ; D

^DIWW

       . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       . S X=@TIUROOT@("TEXT",TIUI,0) S:X="" X=" " D ^DIWP
       D ^DIWW K ^UTILITY($J,"W")
       Q:'TIUCONT
       D GETSIG(TIUROOT,.TIUSIG)
       S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       W !
       D SIGBLK^TIUPRPN8(.TIUFOOT,TIUMISC,TIUCONT1,.TIUCONT,.TIUSIG,TIUROOT)
       Q:'TIUCONT

ADDENDA ; Fall through and do Addenda of docmt TIUDA

       N DIW,DIWF,DIWL,DIWR,DIWT,X,Z,TIUI,TIUADD,ADDMRDT
       S TIUADD=0,DIWF="WN",DIWL=1,DIWR=79 K ^UTILITY($J,"W")
       F  S TIUADD=$O(@TIUROOT@("ZADD",TIUADD)) Q:TIUADD'>0  D  Q:'TIUCONT
       . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       . S ADDMRDT=@TIUROOT@("ZADD",TIUADD,1301,"I")
       . W !!,$$DATE^TIULS(ADDMRDT,"MM/DD/CCYY HR:MIN"),?21,"ADDENDUM"
       . W ?39,"STATUS: ",@TIUROOT@("ZADD",TIUADD,.05,"E") ;P162
       . S TIUI=0
       . F  S TIUI=$O(@TIUROOT@("ZADD",TIUADD,"TEXT",TIUI)) Q:TIUI'>0  D

Q:'TIUCONT

       . . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       . . S X=@TIUROOT@("ZADD",TIUADD,"TEXT",TIUI,0) S:X="" X=" " D ^DIWP
       . D ^DIWW
       . Q:'TIUCONT
       . N TIUADRT
       . S TIUADRT=$P(TIUROOT,")")_",""ZADD"","_TIUADD_")"
       . D GETSIG(TIUADRT,.TIUSIG)
       . D SIGBLK^TIUPRPN8

(.TIUFOOT,TIUMISC,TIUCONT1,.TIUCONT,.TIUSIG,TIUADRT)

       ; Need ! in front for amended notes:
       I $G(TIUIDEND) W !,"<< Interdisciplinary Note - End >>",!
       K ^UTILITY($J,"W")
       ; Write 2 linefeeds between records
       S:$E(IOST,1,2)="C-" TIUCONT=$$STOP^TIUFLP1,TIUASK=1
       W:TIUCONT !!
       Q
       ;

IDKIDS(TIUROOT,TIUFOOT,TIUMISC,TIUCONT1,TIUCONT)  ; Print ID kids

       ;of docmt TIUDA (each kid does its own addenda)
       N TIUL,KIDDA,TIUDA,TIUSORT,TIUIDRT,TIUIDEND
       S TIUDA=$P(TIUMISC,U,3),TIUIDEND=0
       S TIUL=0
       F  S TIUL=$O(^TMP("TIULQ",$J,TIUDA,"ZZID",TIUL)) Q:'TIUL  D

Q:'TIUCONT

       . S KIDDA=$O(^TMP("TIULQ",$J,TIUDA,"ZZID",TIUL,0))
       . I +$$MEMBEROF^TIUPR222(+$G(^TIU(8925,+KIDDA,0)),"FORM LETTERS") D

Q  ; hand off to TIUFLP1 (Form Letter Print)

       . . I '+$G(TIUKID),'+$G(TIUSPG) S TIUCONT1=0 S TIUCONT=$$SETCONT

(.TIUFOOT,TIUMISC,TIUCONT1,1,$G(TIUROOT))

       . . I 'TIUCONT!'CONT Q
       . . I $E(IOST,1,2)="C-",'+TIUASK S CONT=$$STOP^TIUFLP1,TIUCONT=CONT

Q:'+CONT

       . . S TIUASK=0,TIUKID=1 D IDKID^TIUFLP1(TIUDA,KIDDA)
       . S TIUMISC=TIUFLAG_U_TIUPFNBR_U_KIDDA
       . S TIUIDRT="^TMP(""TIULQ"",

$J,"_TIUDA_",""ZZID"","_TIUL_","_KIDDA_")"

       . I '$O(^TMP("TIULQ",$J,TIUDA,"ZZID",TIUL)) S TIUIDEND=1
       . D REPORT(TIUIDRT,.TIUFOOT,TIUMISC,.TIUCONT,TIUIDEND)
       Q
       ;

GETSIG(TIUROOT,TIUSIG)  ; Get signature info from TIULQ global;

       ; Set info into TIUSIG array **100**
       ; Requires array name TIUROOT; passes back array TIUSIG
       ; TIUROOT = ^TMP("TIULQ",$J,NOTEIFN) for parent note, or
       ;           ^TMP("TIULQ",$J,NOTEIFN,"ZADD",ADDMIFN) for addendum, or
       ;           ^TMP("TIULQ",$J,NOTEIFN,"ZZID",IDKIDIFN) for ID kid.
       ; Signature should be on bottom of form, Addenda on Subsequent pages
       N TIULINE S $P(TIULINE,"-",81)=""
       S TIUSIG("AUTHOR")=$G(@TIUROOT@(1202,"I"))_";"_$G(^("E"))
       S TIUSIG("EXPSIGNR")=$G(@TIUROOT@(1204,"I"))_";"_$G(^("E"))
       S TIUSIG("EXPCOSNR")=$G(@TIUROOT@(1208,"I"))_";"_$G(^("E"))
       S TIUSIG("SIGNDATE")=$G(@TIUROOT@(1501,"I"))
       S TIUSIG("SIGNEDBY")=$G(@TIUROOT@(1502,"I"))_";"_$G(^("E"))
       S TIUSIG("SIGNNAME")=$G(@TIUROOT@(1503,"E"))
       S TIUSIG("SIGTITL")=$G(@TIUROOT@(1504,"E"))
       S TIUSIG("SIGNMODE")=$G(@TIUROOT@(1505,"I"))_";"_$G(^("E"))
       S TIUSIG("COSGDATE")=$G(@TIUROOT@(1507,"I"))
       S TIUSIG("COSGEDBY")=$G(@TIUROOT@(1508,"I"))_";"_$G(^("E"))
       S TIUSIG("COSGNAME")=$G(@TIUROOT@(1509,"E"))
       S TIUSIG("COSGTITL")=$G(@TIUROOT@(1510,"E"))
       S TIUSIG("COSGMODE")=$G(@TIUROOT@(1511,"I"))_";"_$G(^("E"))
       S TIUSIG("SIGCHRT")=$G(@TIUROOT@(1512,"I"))_";"_$G(^("E"))
       S TIUSIG("COSCHRT")=$G(@TIUROOT@(1513,"I"))_";"_$G(^("E"))
       ; -- P182 Set Admin Clos Date:
       S TIUSIG("ADMINCDT")=$G(@TIUROOT@(1606,"I"))_";"_$G(^("E"))
       Q
       ;

SETCONT(TIUFOOT,TIUMISC,TIUCONT1,TIUHEAD,TIUROOT)  ;Does footer

       ;and returns TIUCONT
       ; Requires array TIUFOOT, vars TIUMISC,TIUCONT1; optional TIUHEAD
       ; Optional TIUROOT
       Q $$FOOTER^TIUPRPN2(.TIUFOOT,TIUMISC,TIUCONT1,TIUHEAD,$G(TIUROOT))

TIUPRPN2 ;SLC/MJC - Header/Footer for Progress Notes ;25-JAN-2001 08:50:35

;;1.0;TEXT INTEGRATION UTILITIES;**44,45,52,100,222**;Jun 20, 1997

FOOTER(TIUFOOT,TIUMISC,TIUCONT1,TIUHDR,TIUROOT) ; ...

read more »

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


John McCormack View profile More options Mar 25, 12:42 am From: John McCormack <johnm...@ix.netcom.com> Date: Wed, 25 Mar 2009 00:42:08 -0500 Local: Wed, Mar 25 2009 12:42 am Subject: Re: [Hardhats] Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author Your passing the variable by value, not by reference therefore each time it's passed as a parameter it's has a value of 1. Passing by value effectively "NEWs" the variable in the "HEADER" block and doesn't change the variable outside of your call..

P.S. Naming your variable starting with "ZT" effectively puts in the Kernel namespace. The VA convention would be TIUZPAGE (package namespace_Z_...).

- Hide quoted text - - Show quoted text - I, Valdes wrote: > Well, the day has finally come that I'm mutating into a mumps > programmer.

> I have hacked TIUPRPN1.m and TIUPRPN2.m to include page numbering in > the header via a variable I created called ZTIUPAGE. ZTIUPAGE is > initialized to 1, passed in to HEADER and is supposed to be > incremented by 1 each time this is called. 'Medical Record Page 1' > comes out on the header okay but it is never incremented on subsequent > pages, I get my null value of 'IVTest instead. The code is below, any > ideas as to why ZTIUPAGE is not incrementing?

> TIUPRPN1:  ;SLC/JER - Print SF 509-Progress Notes ;11/23/07 >  ;;1.0;TEXT INTEGRATION > UTILITIES;**45,52,87,100,162,182,211,222,234**;Jun 20, 1997;Build 6 >  ; DBIA 908 ^SC(D0,0) > PRINT(TIUFLAG,TIUSPG)  ; Print Document >  ; ^TMP("TIUPR",$J) is array of records to be printed >  ; TIUFLAG=1 --> Chart Copy TIUSPG=1 --> Contiguous >  ; TIUFLAG=0 --> Work Copy TIUSPG=0 --> Fresh Page- each > note >  ; TIUCONT=1 --> Continue printing >  ; TIUCONT1=1 --> Write "Continue to next/from previous-page" > msgs >  ; TIUPFNBR ---> Print Form # like vice 509 >  ; TIUMISC=TIUFLAG_U_TIUPFNBR_U_TIUDA > N > CONT,TIUASK,TIUI,TIUJ,TIUKID,TIUFOOT,TIUK,TIUDA,TIUCONT,TIUPGRP,TIUTYP > N TIUPFHDR,TIUPFNBR,TIUMISC,TIUCONT1,TIUIDONE,TMP > S ZTIUPAGE=1 > S TIUFLAG=+$G(TIUFLAG),TIUSPG=+$G(TIUSPG) > S (CONT,TIUCONT)=1,(TIUASK,TIUCONT1)=0 > S TIUI=0 F S TIUI=$O(^TMP("TIUPR",$J,TIUI)) Q:TIUI="" D > Q:'TIUCONT > . N DFN,TIU > . ; -- P182 TIUI has form PGRP$PFHDR;DFN with PGRP possibly 0, > and > . ; PFHDR possibly null (see TIURA): > . S TIUPGRP=+$P(TIUI,"$"),TIUPFHDR=$P($P(TIUI,";"),"$",2) > . I TIUPFHDR']"" S TIUPFHDR="Progress Notes" > . S DFN=$P(TIUI,";",2) > . I $G(TIUPGRP)>2 S TIUSPG=0 > . D PATPN^TIULV(.TIUFOOT,DFN) > . I +$G(TIUSPG) D HEADER^TIUPRPN2 > (.TIUFOOT,TIUFLAG,.TIUPFHDR,TIUCONT1,.S15967,.ZTIUPAGE) S ZTIUPAGE=$G > (ZTIUPAGE)+1 > . ; Use TIUJ="" (not TIUJ=0), to print "complete" notes w/o sigdt: > . S TIUJ="" F S TIUJ=$O(^TMP("TIUPR",$J,TIUI,TIUJ)) Q:TIUJ="" D > Q:'TIUCONT > . . S TIUK=0 F S TIUK=$O(^TMP("TIUPR",$J,TIUI,TIUJ,TIUK)) Q:'TIUK > D Q:'TIUCONT > . . . S TIUCONT1=0 S TIUPFNBR=^TMP("TIUPR",$J,TIUI,TIUJ,TIUK) > . . . ; Note: TIUPFNBR may be null > . . . ;P182 Set TIUMISC BEFORE quitting if deleted > . . . S TIUDA=TIUK,TIUMISC=TIUFLAG_U_TIUPFNBR_U_TIUDA > . . . ; Quit docmt if deleted: > . . . I '$D(^TIU(8925,+TIUDA,0)) D Q > . . . . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > . . . . W !!,"NOTE DATED:",!,"Document #",TIUDA," for ",$G(TIUFOOT > ("PNMP")),!,"no longer exists in the TIU DOCUMENT file.",!!! > . . . . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > . . . N TIUROOT > . . . I '+$G(TIUSPG) D HEADER^TIUPRPN2 > (.TIUFOOT,TIUFLAG,.TIUPFHDR,TIUCONT1,.S15967,.ZTIUPAGE) S ZTIUPAGE=$G > (ZTIUPAGE)+1 > . . . K ^TMP("TIULQ",$J) > . . . D EXTRACT^TIULQ(+TIUDA,"^TMP(""TIULQ"",$J)",.TIUERR,"","",1) > . . . I +$G(TIUERR) W !,$P(TIUERR,U,2) Q > . . . Q:'$D(^TMP("TIULQ",$J)) > . . . S TIUROOT="^TMP(""TIULQ"",$J,"_TIUDA_")" > . . . D REPORT(TIUROOT,.TIUFOOT,TIUMISC,.TIUCONT) Q:'TIUCONT > . . . D IDKIDS(TIUROOT,.TIUFOOT,TIUMISC,TIUCONT1,.TIUCONT) Q:'TIUCONT > . . . I '+$G(TIUKID),'+$G(TIUSPG) S TIUCONT1=0 S TIUCONT=$$SETCONT > (.TIUFOOT,TIUMISC,TIUCONT1,1,$G(TIUROOT)) > . Q:'TIUCONT > . I $E(IOST,1,2)="C-" S TIUCONT=$$STOP^TIUPRPN2() Q:'TIUCONT > . I '+$G(TIUKID),+$G(TIUSPG),$E(IOST,1,2)'="C-" S TIUCONT1=0 S > TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,1,$G(TIUROOT)) > Q >  ; > REPORT(TIUROOT,TIUFOOT,TIUMISC,TIUCONT,TIUIDEND)  ; Report Text >  ; Requires array TIUFOOT, vars TIUMISC, TIUCONT >  ; Requires TIUROOT = >  ; ^TMP("TIULQ",$J,NOTEIFN) for parent/stand-alone note, or >  ; ^TMP("TIULQ",$J,NOTEIFN,"ZADD",ADDMIFN) for addendum, or >  ; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",KIDSEQ#,IDKIDIFN) for ID kid, or >  ; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",KIDSEQ#,IDKIDIFN,"ZADD",KIDADDMIFN) >  ; for ID kid addm. > N DIW,DIWF,DIWL,DIWR,DIWT,TIUERR,TIU,TIUI,X,Z,LOC > N REFDT,TITLE,LOINCNM,ADT,HLOC,SUBJ > N TIUDA,TIUCONT1,HASIDKID,HASIDDAD > S TIUDA=$P(TIUMISC,U,3),TIUCONT1=0 > S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > S HASIDKID=$G(^TMP("TIULQ",$J,TIUDA,"ZZID",0)) ;how many ID kids > S HASIDDAD=$S(TIUROOT["ZZID":1,1:0) > I HASIDKID W "<< Interdisciplinary Note - Begin >>",! > I HASIDDAD W "<< Interdisciplinary Note - Cont. >>",! > W $S('HASIDKID&'HASIDDAD:"NOTE DATED: ",1:"ENTRY DATED: ") > S REFDT=@TIUROOT@(1301,"I") > W $$DATE^TIULS(REFDT,"MM/DD/CCYY HR:MIN") > S TITLE=@TIUROOT@(.01,"E"),LOINCNM=@TIUROOT@(89261,"E") > W !,"LOCAL TITLE: ",$$UP^XLFSTR(TITLE),! > I $L(LOINCNM)>1 W "STANDARD TITLE: ",$$UP^XLFSTR(LOINCNM),! > S LOC=$G(@TIUROOT@(1205,"I")) > I +LOC D > . W $S($P(^SC(LOC,0),U,3)="W":"ADMITTED: ",1:"VISIT: ") > . S ADT=$G(@TIUROOT@(.07,"I")) > . W $$DATE^TIULS(ADT,"MM/DD/CCYY HR:MIN") > . S HLOC=$G(@TIUROOT@(1205,"E")) > . W " ",HLOC > S SUBJ=$G(@TIUROOT@(1701,"E")) > I SUBJ]"" W !,"SUBJECT: ",^("E"),! ; @TIUROOT@(1701,"E") > S TIUCONT1=1 > I $D(@TIUROOT@("PROBLEM")) D Q:'TIUCONT > . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > . W !,"ASSOCIATED PROBLEMS:" > . N TIUI S TIUI=0 > . F S TIUI=$O(@TIUROOT@("PROBLEM",TIUI)) Q:'TIUI D Q:'TIUCONT > ..W !,^(TIUI,0) ; @TIUROOT@("PROBLEM",TIUI,0) > ..S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > W ! > S TIUI=0,DIWF="WN",DIWL=1,DIWR=79 K ^UTILITY($J,"W") > F S TIUI=$O(@TIUROOT@("TEXT",TIUI)) Q:TIUI'>0 D Q:'TIUCONT  ; D > ^DIWW > . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > . S X=@TIUROOT@("TEXT",TIUI,0) S:X="" X=" " D ^DIWP > D ^DIWW K ^UTILITY($J,"W") > Q:'TIUCONT > D GETSIG(TIUROOT,.TIUSIG) > S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > W ! > D SIGBLK^TIUPRPN8(.TIUFOOT,TIUMISC,TIUCONT1,.TIUCONT,.TIUSIG,TIUROOT) > Q:'TIUCONT > ADDENDA  ; Fall through and do Addenda of docmt TIUDA > N DIW,DIWF,DIWL,DIWR,DIWT,X,Z,TIUI,TIUADD,ADDMRDT > S TIUADD=0,DIWF="WN",DIWL=1,DIWR=79 K ^UTILITY($J,"W") > F S TIUADD=$O(@TIUROOT@("ZADD",TIUADD)) Q:TIUADD'>0 D Q:'TIUCONT > . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > . S ADDMRDT=@TIUROOT@("ZADD",TIUADD,1301,"I") > . W !!,$$DATE^TIULS(ADDMRDT,"MM/DD/CCYY HR:MIN"),?21,"ADDENDUM" > . W ?39,"STATUS: ",@TIUROOT@("ZADD",TIUADD,.05,"E") ;P162 > . S TIUI=0 > . F S TIUI=$O(@TIUROOT@("ZADD",TIUADD,"TEXT",TIUI)) Q:TIUI'>0 D > Q:'TIUCONT > . . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > . . S X=@TIUROOT@("ZADD",TIUADD,"TEXT",TIUI,0) S:X="" X=" " D ^DIWP > . D ^DIWW > . Q:'TIUCONT > . N TIUADRT > . S TIUADRT=$P(TIUROOT,")")_",""ZADD"","_TIUADD_")" > . D GETSIG(TIUADRT,.TIUSIG) > . D SIGBLK^TIUPRPN8 > (.TIUFOOT,TIUMISC,TIUCONT1,.TIUCONT,.TIUSIG,TIUADRT) >  ; Need ! in front for amended notes: > I $G(TIUIDEND) W !,"<< Interdisciplinary Note - End >>",! > K ^UTILITY($J,"W") >  ; Write 2 linefeeds between records > S:$E(IOST,1,2)="C-" TIUCONT=$$STOP^TIUFLP1,TIUASK=1 > W:TIUCONT !! > Q >  ; > IDKIDS(TIUROOT,TIUFOOT,TIUMISC,TIUCONT1,TIUCONT)  ; Print ID kids >  ;of docmt TIUDA (each kid does its own addenda) > N TIUL,KIDDA,TIUDA,TIUSORT,TIUIDRT,TIUIDEND > S TIUDA=$P(TIUMISC,U,3),TIUIDEND=0 > S TIUL=0 > F S TIUL=$O(^TMP("TIULQ",$J,TIUDA,"ZZID",TIUL)) Q:'TIUL D > Q:'TIUCONT > . S KIDDA=$O(^TMP("TIULQ",$J,TIUDA,"ZZID",TIUL,0)) > . I +$$MEMBEROF^TIUPR222(+$G(^TIU(8925,+KIDDA,0)),"FORM LETTERS") D > Q  ; hand off to TIUFLP1 (Form Letter Print) > . . I '+$G(TIUKID),'+$G(TIUSPG) S TIUCONT1=0 S TIUCONT=$$SETCONT > (.TIUFOOT,TIUMISC,TIUCONT1,1,$G(TIUROOT)) > . . I 'TIUCONT!'CONT Q > . . I $E(IOST,1,2)="C-",'+TIUASK S CONT=$$STOP^TIUFLP1,TIUCONT=CONT > Q:'+CONT > . . S TIUASK=0,TIUKID=1 D IDKID^TIUFLP1(TIUDA,KIDDA) > . S TIUMISC=TIUFLAG_U_TIUPFNBR_U_KIDDA > . S TIUIDRT="^TMP(""TIULQ"", > $J,"_TIUDA_",""ZZID"","_TIUL_","_KIDDA_")" > . I '$O(^TMP("TIULQ",$J,TIUDA,"ZZID",TIUL)) S TIUIDEND=1 > . D REPORT(TIUIDRT,.TIUFOOT,TIUMISC,.TIUCONT,TIUIDEND) > Q >  ; > GETSIG(TIUROOT,TIUSIG)  ; Get signature info from TIULQ global; >  ; Set info into TIUSIG array **100** >  ; Requires array name TIUROOT; passes back array TIUSIG >  ; TIUROOT = ^TMP("TIULQ",$J,NOTEIFN) for parent note, or >  ; ^TMP("TIULQ",$J,NOTEIFN,"ZADD",ADDMIFN) for addendum, or >  ; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",IDKIDIFN) for ID kid. >  ; Signature should be on bottom of form, Addenda on Subsequent pages > N TIULINE S $P(TIULINE,"-",81)="" > S TIUSIG("AUTHOR")=$G(@TIUROOT@(1202,"I"))_";"_$G(^("E")) > S TIUSIG("EXPSIGNR")=$G(@TIUROOT@(1204,"I"))_";"_$G(^("E")) > S TIUSIG("EXPCOSNR")=$G(@TIUROOT@(1208,"I"))_";"_$G(^("E")) > S TIUSIG("SIGNDATE")=$G(@TIUROOT@(1501,"I")) > S TIUSIG("SIGNEDBY")=$G(@TIUROOT@(1502,"I"))_";"_$G(^("E")) > S TIUSIG("SIGNNAME")=$G(@TIUROOT@(1503,"E")) > S TIUSIG("SIGTITL")=$G(@TIUROOT@(1504,"E")) > S TIUSIG("SIGNMODE")=$G(@TIUROOT@(1505,"I"))_";"_$G(^("E")) > S TIUSIG("COSGDATE")=$G(@TIUROOT@(1507,"I")) > S

...

read more »

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


I, Valdes View profile More options Mar 25, 8:41 am From: "I, Valdes" <ival...@hal-pc.org> Date: Wed, 25 Mar 2009 06:41:43 -0700 (PDT) Local: Wed, Mar 25 2009 8:41 am Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author It turns out that HEADER was being called somehow from somewhere else. Thanks!

-- IV

I'm traveling with very limited & intermittent access to e-mail, so excuse me if this response is off base - I have not followed the thread.

Rather than formatting the page yourself, shouldn't you just pipe the output to a command (e.g., lpr) that knows how to format & print pages and spool to printers?

Regards -- Bhaskar


Sent from my BlackBerry Wireless Handheld

- Hide quoted text - - Show quoted text -


Original Message -----

From: Hardhats@googlegroups.com <Hardhats@googlegroups.com> To: Hardhats <Hardhats@googlegroups.com> Sent: Tue Mar 24 23:32:18 2009 Subject: [Hardhats] Re: Intracare Implementation Log Episode 45: Page number printout revisited.

Well, the day has finally come that I'm mutating into a mumps programmer.

I have hacked TIUPRPN1.m and TIUPRPN2.m to include page numbering in the header via a variable I created called ZTIUPAGE. ZTIUPAGE is initialized to 1, passed in to HEADER and is supposed to be incremented by 1 each time this is called. 'Medical Record Page 1' comes out on the header okay but it is never incremented on subsequent pages, I get my null value of 'IVTest instead. The code is below, any ideas as to why ZTIUPAGE is not incrementing?

TIUPRPN1:  ;SLC/JER - Print SF 509-Progress Notes ;11/23/07

       ;;1.0;TEXT INTEGRATION

UTILITIES;**45,52,87,100,162,182,211,222,234**;Jun 20, 1997;Build 6

       ; DBIA 908 ^SC(D0,0)

PRINT(TIUFLAG,TIUSPG)  ; Print Document

       ; ^TMP("TIUPR",$J) is array of records to be printed
       ; TIUFLAG=1 --> Chart Copy     TIUSPG=1 --> Contiguous
       ; TIUFLAG=0 --> Work Copy      TIUSPG=0 --> Fresh Page- each

note

       ; TIUCONT=1 --> Continue printing
       ; TIUCONT1=1 --> Write "Continue to next/from previous-page"

msgs

       ; TIUPFNBR ---> Print Form # like vice 509
       ; TIUMISC=TIUFLAG_U_TIUPFNBR_U_TIUDA
       N

CONT,TIUASK,TIUI,TIUJ,TIUKID,TIUFOOT,TIUK,TIUDA,TIUCONT,TIUPGRP,TIUTYP

       N TIUPFHDR,TIUPFNBR,TIUMISC,TIUCONT1,TIUIDONE,TMP
       S ZTIUPAGE=1
       S TIUFLAG=+$G(TIUFLAG),TIUSPG=+$G(TIUSPG)
       S (CONT,TIUCONT)=1,(TIUASK,TIUCONT1)=0
       S TIUI=0 F  S TIUI=$O(^TMP("TIUPR",$J,TIUI)) Q:TIUI=""  D

Q:'TIUCONT

       . N DFN,TIU
       . ; -- P182 TIUI has form PGRP$PFHDR;DFN with PGRP possibly 0,

and

       . ;    PFHDR possibly null (see TIURA):
       . S TIUPGRP=+$P(TIUI,"$"),TIUPFHDR=$P($P(TIUI,";"),"$",2)
       . I TIUPFHDR']"" S TIUPFHDR="Progress Notes"
       . S DFN=$P(TIUI,";",2)
       . I $G(TIUPGRP)>2 S TIUSPG=0
       . D PATPN^TIULV(.TIUFOOT,DFN)
       . I +$G(TIUSPG) D HEADER^TIUPRPN2

(.TIUFOOT,TIUFLAG,.TIUPFHDR,TIUCONT1,.S15967,.ZTIUPAGE) S ZTIUPAGE=$G (ZTIUPAGE)+1

       . ; Use TIUJ="" (not TIUJ=0), to print "complete" notes w/o sigdt:
       . S TIUJ="" F  S TIUJ=$O(^TMP("TIUPR",$J,TIUI,TIUJ)) Q:TIUJ=""  D

Q:'TIUCONT

       . . S TIUK=0 F  S TIUK=$O(^TMP("TIUPR",$J,TIUI,TIUJ,TIUK)) Q:'TIUK

D Q:'TIUCONT

       . . . S TIUCONT1=0 S TIUPFNBR=^TMP("TIUPR",$J,TIUI,TIUJ,TIUK)
       . . . ; Note: TIUPFNBR may be null
       . . . ;P182 Set TIUMISC BEFORE quitting if deleted
       . . . S TIUDA=TIUK,TIUMISC=TIUFLAG_U_TIUPFNBR_U_TIUDA
       . . . ; Quit docmt if deleted:
       . . . I '$D(^TIU(8925,+TIUDA,0)) D  Q
       . . . . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       . . . . W !!,"NOTE DATED:",!,"Document #",TIUDA," for ",$G(TIUFOOT

("PNMP")),!,"no longer exists in the TIU DOCUMENT file.",!!!

       . . . . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))
       . . . N TIUROOT
       . . . I '+$G(TIUSPG) D HEADER^TIUPRPN2

(.TIUFOOT,TIUFLAG,.TIUPFHDR,TIUCONT1,.S15967,.ZTIUPAGE) S ZTIUPAGE=$G (ZTIUPAGE)+1

       . . . K ^TMP("TIULQ",$J)
       . . . D EXTRACT^TIULQ(+TIUDA,"^TMP(""TIULQ"",$J)",.TIUERR,"","",1)
       . . . I +$G(TIUERR) W !,$P(TIUERR,U,2) Q
       . . . Q:'$D(^TMP("TIULQ",$J))
       . . . S TIUROOT="^TMP(""TIULQ"",$J,"_TIUDA_")"
       . . . D REPORT(TIUROOT,.TIUFOOT,TIUMISC,.TIUCONT) Q:'TIUCONT
       . . . D IDKIDS(TIUROOT,.TIUFOOT,TIUMISC,TIUCONT1,.TIUCONT) Q:'TIUCONT
       . . . I '+$G(TIUKID),'+$G(TIUSPG) S TIUCONT1=0 S TIUCONT=$$SETCONT

(.TIUFOOT,TIUMISC,TIUCONT1,1,$G(TIUROOT))

       . Q:'TIUCONT
       . I $E(IOST,1,2)="C-" S TIUCONT=$$STOP^TIUPRPN2() Q:'TIUCONT
       . I '+$G(TIUKID),+$G(TIUSPG),$E(IOST,1,2)'="C-" S TIUCONT1=0 S

TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,1,$G(TIUROOT))

       Q
       ;

REPORT(TIUROOT,TIUFOOT,TIUMISC,TIUCONT,TIUIDEND)  ; Report Text

       ; Requires array TIUFOOT, vars TIUMISC, TIUCONT
       ; Requires TIUROOT =
       ; ^TMP("TIULQ",$J,NOTEIFN) for parent/stand-alone note, or
       ; ^TMP("TIULQ",$J,NOTEIFN,"ZADD",ADDMIFN) for addendum, or
       ; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",KIDSEQ#,IDKIDIFN) for ID kid, or
       ; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",KIDSEQ#,IDKIDIFN,"ZADD",KIDADDMIFN)
       ;       for ID kid addm.
       N DIW,DIWF,DIWL,DIWR,DIWT,TIUERR,TIU,TIUI,X,Z,LOC
       N REFDT,TITLE,LOINCNM,ADT,HLOC,SUBJ
       N TIUDA,TIUCONT1,HASIDKID,HASIDDAD
       S TIUDA=$P(TIUMISC,U,3),TIUCONT1=0
       S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       S HASIDKID=$G(^TMP("TIULQ",$J,TIUDA,"ZZID",0)) ;how many ID kids
       S HASIDDAD=$S(TIUROOT["ZZID":1,1:0)
       I HASIDKID W "<< Interdisciplinary Note - Begin >>",!
       I HASIDDAD W "<< Interdisciplinary Note - Cont. >>",!
       W $S('HASIDKID&'HASIDDAD:"NOTE DATED: ",1:"ENTRY DATED: ")
       S REFDT=@TIUROOT@(1301,"I")
       W $$DATE^TIULS(REFDT,"MM/DD/CCYY HR:MIN")
       S TITLE=@TIUROOT@(.01,"E"),LOINCNM=@TIUROOT@(89261,"E")
       W !,"LOCAL TITLE: ",$$UP^XLFSTR(TITLE),!
       I $L(LOINCNM)>1 W "STANDARD TITLE: ",$$UP^XLFSTR(LOINCNM),!
       S LOC=$G(@TIUROOT@(1205,"I"))
       I +LOC D
       . W $S($P(^SC(LOC,0),U,3)="W":"ADMITTED: ",1:"VISIT: ")
       . S ADT=$G(@TIUROOT@(.07,"I"))
       . W $$DATE^TIULS(ADT,"MM/DD/CCYY HR:MIN")
       . S HLOC=$G(@TIUROOT@(1205,"E"))
       . W " ",HLOC
       S SUBJ=$G(@TIUROOT@(1701,"E"))
       I SUBJ]"" W !,"SUBJECT: ",^("E"),! ; @TIUROOT@(1701,"E")
       S TIUCONT1=1
       I $D(@TIUROOT@("PROBLEM")) D  Q:'TIUCONT
       . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       . W !,"ASSOCIATED PROBLEMS:"
       . N TIUI S TIUI=0
       . F  S TIUI=$O(@TIUROOT@("PROBLEM",TIUI)) Q:'TIUI  D  Q:'TIUCONT
       ..W !,^(TIUI,0) ; @TIUROOT@("PROBLEM",TIUI,0)
       ..S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       W !
       S TIUI=0,DIWF="WN",DIWL=1,DIWR=79 K ^UTILITY($J,"W")
       F  S TIUI=$O(@TIUROOT@("TEXT",TIUI)) Q:TIUI'>0  D  Q:'TIUCONT  ; D

^DIWW

       . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       . S X=@TIUROOT@("TEXT",TIUI,0) S:X="" X=" " D ^DIWP
       D ^DIWW K ^UTILITY($J,"W")
       Q:'TIUCONT
       D GETSIG(TIUROOT,.TIUSIG)
       S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       W !
       D SIGBLK^TIUPRPN8(.TIUFOOT,TIUMISC,TIUCONT1,.TIUCONT,.TIUSIG,TIUROOT)
       Q:'TIUCONT

ADDENDA ; Fall through and do Addenda of docmt TIUDA

       N DIW,DIWF,DIWL,DIWR,DIWT,X,Z,TIUI,TIUADD,ADDMRDT
       S TIUADD=0,DIWF="WN",DIWL=1,DIWR=79 K ^UTILITY($J,"W")
       F  S TIUADD=$O(@TIUROOT@("ZADD",TIUADD)) Q:TIUADD'>0  D  Q:'TIUCONT
       . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       . S ADDMRDT=@TIUROOT@("ZADD",TIUADD,1301,"I")
       . W !!,$$DATE^TIULS(ADDMRDT,"MM/DD/CCYY HR:MIN"),?21,"ADDENDUM"
       . W ?39,"STATUS: ",@TIUROOT@("ZADD",TIUADD,.05,"E") ;P162
       . S TIUI=0
       . F  S TIUI=$O(@TIUROOT@("ZADD",TIUADD,"TEXT",TIUI)) Q:TIUI'>0  D

Q:'TIUCONT

       . . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT))

Q:'TIUCONT

       . . S X=@TIUROOT@("ZADD",TIUADD,"TEXT",TIUI,0) S:X="" X=" " D ^DIWP
       . D ^DIWW
       . Q:'TIUCONT
       . N TIUADRT
       . S TIUADRT=$P(TIUROOT,")")_",""ZADD"","_TIUADD_")"
       . D GETSIG(TIUADRT,.TIUSIG)
       . D SIGBLK^TIUPRPN8

(.TIUFOOT,TIUMISC,TIUCONT1,.TIUCONT,.TIUSIG,TIUADRT)

       ; Need ! in front for amended notes:
       I $G(TIUIDEND) W !,"<< Interdisciplinary Note - End >>",!
       K ^UTILITY($J,"W")
       ; Write 2 linefeeds between records
       S:$E(IOST,1,2)="C-" TIUCONT=$$STOP^TIUFLP1,TIUASK=1
       W:TIUCONT !!
       Q
       ;

IDKIDS(TIUROOT,TIUFOOT,TIUMISC,TIUCONT1,TIUCONT)  ; Print ID kids

       ;of docmt TIUDA (each kid does its own addenda)
       N TIUL,KIDDA,TIUDA,TIUSORT,TIUIDRT,TIUIDEND
       S TIUDA=$P(TIUMISC,U,3),TIUIDEND=0
       S TIUL=0
       F  S TIUL=$O(^TMP("TIULQ",$J,TIUDA,"ZZID",TIUL)) Q:'TIUL  D

Q:'TIUCONT

       . S KIDDA=$O(^TMP("TIULQ",$J,TIUDA,"ZZID",TIUL,0))
       . I +$$MEMBEROF^TIUPR222(+$G(^TIU(8925,+KIDDA,0)),"FORM LETTERS") D

Q  ; hand off to TIUFLP1 (Form Letter Print)

       . . I '+$G(TIUKID),'+$G(TIUSPG) S TIUCONT1=0 S TIUCONT=$$SETCONT

(.TIUFOOT,TIUMISC,TIUCONT1,1,$G(TIUROOT))

       . . I 'TIUCONT!'CONT Q
       . . I $E(IOST,1,2)="C-",'+TIUASK S CONT=$$STOP^TIUFLP1,TIUCONT=CONT

Q:'+CONT

       . . S TIUASK=0,TIUKID=1 D IDKID^TIUFLP1(TIUDA,KIDDA)
       . S TIUMISC=TIUFLAG_U_TIUPFNBR_U_KIDDA
       . S TIUIDRT="^TMP(""TIULQ"",

$J,"_TIUDA_",""ZZID"","_TIUL_","_KIDDA_")"

       . I '$O(^TMP("TIULQ",$J,TIUDA,"ZZID",TIUL)) S TIUIDEND=1
       . D REPORT(TIUIDRT,.TIUFOOT,TIUMISC,.TIUCONT,TIUIDEND)
       Q
       ;

GETSIG(TIUROOT,TIUSIG)  ; Get signature info from TIULQ global;

       ; Set info into TIUSIG array **100**
       ; Requires array name TIUROOT; passes back array TIUSIG
       ; TIUROOT = ^TMP("TIULQ",$J,NOTEIFN) for parent note, or
       ;           ^TMP("TIULQ",$J,NOTEIFN,"ZADD",ADDMIFN) for addendum, or
       ;           ^TMP("TIULQ",$J,NOTEIFN,"ZZID",IDKIDIFN) for ID kid.
       ; Signature should be on bottom of form, Addenda on Subsequent pages
       N TIULINE S $P(TIULINE,"-",81)=""
       S TIUSIG("AUTHOR")=$G(@TIUROOT@(1202,"I"))_";"_$G(^("E"))
       S TIUSIG("EXPSIGNR")=$G(@TIUROOT@(1204,"I"))_";"_$G(^("E"))
       S TIUSIG("EXPCOSNR")=$G(@TIUROOT@(1208,"I"))_";"_$G(^("E"))
       S TIUSIG("SIGNDATE")=$G(@TIUROOT@(1501,"I"))
       S TIUSIG("SIGNEDBY")=$G(@TIUROOT@(1502,"I"))_";"_$G(^("E"))
       S TIUSIG("SIGNNAME")=$G(@TIUROOT@(1503,"E"))
       S TIUSIG("SIGTITL")=$G(@TIUROOT@(1504,"E"))
       S TIUSIG("SIGNMODE")=$G(@TIUROOT@(1505,"I"))_";"_$G(^("E"))
       S TIUSIG("COSGDATE")=$G(@TIUROOT@(1507,"I"))
       S TIUSIG("COSGEDBY")=$G(@TIUROOT@(1508,"I"))_";"_$G(^("E"))
       S TIUSIG("COSGNAME")=$G(@TIUROOT@(1509,"E"))
       S TIUSIG("COSGTITL")=$G(@TIUROOT@(1510,"E"))
       S TIUSIG("COSGMODE")=$G(@TIUROOT@(1511,"I"))_";"_$G(^("E"))
       S

...

read more »

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


David Whitten View profile More options Mar 25, 8:59 am From: David Whitten <whit...@worldvista.org> Date: Wed, 25 Mar 2009 08:59:50 -0500 Local: Wed, Mar 25 2009 8:59 am Subject: Re: [Hardhats] Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author

On Wed, Mar 25, 2009 at 8:52 AM, Bhaskar, KS <KS.Bhas...@fnis.com> wrote: > I'm traveling with very limited & intermittent access to e-mail, so > excuse me if this response is off base - I have not followed the thread.

> Rather than formatting the page yourself, shouldn't you just pipe the > output to a command (e.g., lpr) that knows how to format & print pages and > spool to printers?

> Regards > -- Bhaskar

The complexity is that he is already sending it to a pipe (network connection) back to the CPRS client who then sends it to the actual printer.

In general, I agree that having reports deal with pagination issues is a very server specific method, but since VistA Kernel is a virtual operating system, it already has facilities to know terminal type, device characteristics etc.

A good abstraction might be to have the header and footer code as callbacks, and the main code as a driver of the content between the header and footer. To my knowledge, that is not currently done in any VistA Applications. Of course, as big as VistA is, there is no guarantee of that.

By the way, I agree with John, the variable ZTIUPAGE should be called TIUZPAGE. I can only confess that when Ignacio asked me, that I was tired.

Dave

- Hide quoted text - - Show quoted text -

> ----- Original Message ----- > From: Hardhats@googlegroups.com <Hardhats@googlegroups.com> > To: Hardhats <Hardhats@googlegroups.com> > Sent: Tue Mar 24 23:32:18 2009 > Subject: [Hardhats] Re: Intracare Implementation Log Episode 45: Page > number printout revisited.

> Well, the day has finally come that I'm mutating into a mumps > programmer.

> I have hacked TIUPRPN1.m and TIUPRPN2.m to include page numbering in > the header via a variable I created called ZTIUPAGE. ZTIUPAGE is > initialized to 1, passed in to HEADER and is supposed to be > incremented by 1 each time this is called. 'Medical Record Page 1' > comes out on the header okay but it is never incremented on subsequent > pages, I get my null value of 'IVTest instead. The code is below, any > ideas as to why ZTIUPAGE is not incrementing?

> TIUPRPN1:  ;SLC/JER - Print SF 509-Progress Notes ;11/23/07 >  ;;1.0;TEXT INTEGRATION > UTILITIES;**45,52,87,100,162,182,211,222,234**;Jun 20, 1997;Build 6 >  ; DBIA 908 ^SC(D0,0) > PRINT(TIUFLAG,TIUSPG)  ; Print Document >  ; ^TMP("TIUPR",$J) is array of records to be printed >  ; TIUFLAG=1 --> Chart Copy TIUSPG=1 --> Contiguous >  ; TIUFLAG=0 --> Work Copy TIUSPG=0 --> Fresh Page- each > note >  ; TIUCONT=1 --> Continue printing >  ; TIUCONT1=1 --> Write "Continue to next/from previous-page" > msgs >  ; TIUPFNBR ---> Print Form # like vice 509 >  ; TIUMISC=TIUFLAG_U_TIUPFNBR_U_TIUDA > N > CONT,TIUASK,TIUI,TIUJ,TIUKID,TIUFOOT,TIUK,TIUDA,TIUCONT,TIUPGRP,TIUTYP > N TIUPFHDR,TIUPFNBR,TIUMISC,TIUCONT1,TIUIDONE,TMP > S ZTIUPAGE=1 > S TIUFLAG=+$G(TIUFLAG),TIUSPG=+$G(TIUSPG) > S (CONT,TIUCONT)=1,(TIUASK,TIUCONT1)=0 > S TIUI=0 F S TIUI=$O(^TMP("TIUPR",$J,TIUI)) Q:TIUI="" D > Q:'TIUCONT > . N DFN,TIU > . ; -- P182 TIUI has form PGRP$PFHDR;DFN with PGRP possibly 0, > and > . ; PFHDR possibly null (see TIURA): > . S TIUPGRP=+$P(TIUI,"$"),TIUPFHDR=$P($P(TIUI,";"),"$",2) > . I TIUPFHDR']"" S TIUPFHDR="Progress Notes" > . S DFN=$P(TIUI,";",2) > . I $G(TIUPGRP)>2 S TIUSPG=0 > . D PATPN^TIULV(.TIUFOOT,DFN) > . I +$G(TIUSPG) D HEADER^TIUPRPN2 > (.TIUFOOT,TIUFLAG,.TIUPFHDR,TIUCONT1,.S15967,.ZTIUPAGE) S ZTIUPAGE=$G > (ZTIUPAGE)+1 > . ; Use TIUJ="" (not TIUJ=0), to print "complete" notes w/o sigdt: > . S TIUJ="" F S TIUJ=$O(^TMP("TIUPR",$J,TIUI,TIUJ)) Q:TIUJ="" D > Q:'TIUCONT > . . S TIUK=0 F S TIUK=$O(^TMP("TIUPR",$J,TIUI,TIUJ,TIUK)) Q:'TIUK > D Q:'TIUCONT > . . . S TIUCONT1=0 S TIUPFNBR=^TMP("TIUPR",$J,TIUI,TIUJ,TIUK) > . . . ; Note: TIUPFNBR may be null > . . . ;P182 Set TIUMISC BEFORE quitting if deleted > . . . S TIUDA=TIUK,TIUMISC=TIUFLAG_U_TIUPFNBR_U_TIUDA > . . . ; Quit docmt if deleted: > . . . I '$D(^TIU(8925,+TIUDA,0)) D Q > . . . . S > TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > . . . . W !!,"NOTE DATED:",!,"Document #",TIUDA," for ",$G(TIUFOOT > ("PNMP")),!,"no longer exists in the TIU DOCUMENT file.",!!! > . . . . S > TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > . . . N TIUROOT > . . . I '+$G(TIUSPG) D HEADER^TIUPRPN2 > (.TIUFOOT,TIUFLAG,.TIUPFHDR,TIUCONT1,.S15967,.ZTIUPAGE) S ZTIUPAGE=$G > (ZTIUPAGE)+1 > . . . K ^TMP("TIULQ",$J) > . . . D EXTRACT^TIULQ(+TIUDA,"^TMP(""TIULQ"",$J)",.TIUERR,"","",1) > . . . I +$G(TIUERR) W !,$P(TIUERR,U,2) Q > . . . Q:'$D(^TMP("TIULQ",$J)) > . . . S TIUROOT="^TMP(""TIULQ"",$J,"_TIUDA_")" > . . . D REPORT(TIUROOT,.TIUFOOT,TIUMISC,.TIUCONT) Q:'TIUCONT > . . . D IDKIDS(TIUROOT,.TIUFOOT,TIUMISC,TIUCONT1,.TIUCONT) > Q:'TIUCONT > . . . I '+$G(TIUKID),'+$G(TIUSPG) S TIUCONT1=0 S TIUCONT=$$SETCONT > (.TIUFOOT,TIUMISC,TIUCONT1,1,$G(TIUROOT)) > . Q:'TIUCONT > . I $E(IOST,1,2)="C-" S TIUCONT=$$STOP^TIUPRPN2() Q:'TIUCONT > . I '+$G(TIUKID),+$G(TIUSPG),$E(IOST,1,2)'="C-" S TIUCONT1=0 S > TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,1,$G(TIUROOT)) > Q >  ; > REPORT(TIUROOT,TIUFOOT,TIUMISC,TIUCONT,TIUIDEND)  ; Report Text >  ; Requires array TIUFOOT, vars TIUMISC, TIUCONT >  ; Requires TIUROOT = >  ; ^TMP("TIULQ",$J,NOTEIFN) for parent/stand-alone note, or >  ; ^TMP("TIULQ",$J,NOTEIFN,"ZADD",ADDMIFN) for addendum, or >  ; ^TMP("TIULQ",$J,NOTEIFN,"ZZID",KIDSEQ#,IDKIDIFN) for ID kid, or >  ; > ^TMP("TIULQ",$J,NOTEIFN,"ZZID",KIDSEQ#,IDKIDIFN,"ZADD",KIDADDMIFN) >  ; for ID kid addm. > N DIW,DIWF,DIWL,DIWR,DIWT,TIUERR,TIU,TIUI,X,Z,LOC > N REFDT,TITLE,LOINCNM,ADT,HLOC,SUBJ > N TIUDA,TIUCONT1,HASIDKID,HASIDDAD > S TIUDA=$P(TIUMISC,U,3),TIUCONT1=0 > S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > S HASIDKID=$G(^TMP("TIULQ",$J,TIUDA,"ZZID",0)) ;how many ID kids > S HASIDDAD=$S(TIUROOT["ZZID":1,1:0) > I HASIDKID W "<< Interdisciplinary Note - Begin >>",! > I HASIDDAD W "<< Interdisciplinary Note - Cont. >>",! > W $S('HASIDKID&'HASIDDAD:"NOTE DATED: ",1:"ENTRY DATED: ") > S REFDT=@TIUROOT@(1301,"I") > W $$DATE^TIULS(REFDT,"MM/DD/CCYY HR:MIN") > S TITLE=@TIUROOT@(.01,"E"),LOINCNM=@TIUROOT@(89261,"E") > W !,"LOCAL TITLE: ",$$UP^XLFSTR(TITLE),! > I $L(LOINCNM)>1 W "STANDARD TITLE: ",$$UP^XLFSTR(LOINCNM),! > S LOC=$G(@TIUROOT@(1205,"I")) > I +LOC D > . W $S($P(^SC(LOC,0),U,3)="W":"ADMITTED: ",1:"VISIT: ") > . S ADT=$G(@TIUROOT@(.07,"I")) > . W $$DATE^TIULS(ADT,"MM/DD/CCYY HR:MIN") > . S HLOC=$G(@TIUROOT@(1205,"E")) > . W " ",HLOC > S SUBJ=$G(@TIUROOT@(1701,"E")) > I SUBJ]"" W !,"SUBJECT: ",^("E"),! ; @TIUROOT@(1701,"E") > S TIUCONT1=1 > I $D(@TIUROOT@("PROBLEM")) D Q:'TIUCONT > . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > . W !,"ASSOCIATED PROBLEMS:" > . N TIUI S TIUI=0 > . F S TIUI=$O(@TIUROOT@("PROBLEM",TIUI)) Q:'TIUI D Q:'TIUCONT > ..W !,^(TIUI,0) ; @TIUROOT@("PROBLEM",TIUI,0) > ..S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > W ! > S TIUI=0,DIWF="WN",DIWL=1,DIWR=79 K ^UTILITY($J,"W") > F S TIUI=$O(@TIUROOT@("TEXT",TIUI)) Q:TIUI'>0 D Q:'TIUCONT  ; D > ^DIWW > . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > . S X=@TIUROOT@("TEXT",TIUI,0) S:X="" X=" " D ^DIWP > D ^DIWW K ^UTILITY($J,"W") > Q:'TIUCONT > D GETSIG(TIUROOT,.TIUSIG) > S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > W ! > D > SIGBLK^TIUPRPN8(.TIUFOOT,TIUMISC,TIUCONT1,.TIUCONT,.TIUSIG,TIUROOT) > Q:'TIUCONT > ADDENDA ; Fall through and do Addenda of docmt TIUDA > N DIW,DIWF,DIWL,DIWR,DIWT,X,Z,TIUI,TIUADD,ADDMRDT > S TIUADD=0,DIWF="WN",DIWL=1,DIWR=79 K ^UTILITY($J,"W") > F S TIUADD=$O(@TIUROOT@("ZADD",TIUADD)) Q:TIUADD'>0 D > Q:'TIUCONT > . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > . S ADDMRDT=@TIUROOT@("ZADD",TIUADD,1301,"I") > . W !!,$$DATE^TIULS(ADDMRDT,"MM/DD/CCYY HR:MIN"),?21,"ADDENDUM" > . W ?39,"STATUS: ",@TIUROOT@("ZADD",TIUADD,.05,"E") ;P162 > . S TIUI=0 > . F S TIUI=$O(@TIUROOT@("ZADD",TIUADD,"TEXT",TIUI)) Q:TIUI'>0 D > Q:'TIUCONT > . . S TIUCONT=$$SETCONT(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) > Q:'TIUCONT > . . S X=@TIUROOT@("ZADD",TIUADD,"TEXT",TIUI,0) S:X="" X=" " D > ^DIWP > . D ^DIWW > . Q:'TIUCONT > . N TIUADRT > . S TIUADRT=$P(TIUROOT,")")_",""ZADD"","_TIUADD_")" > . D GETSIG(TIUADRT,.TIUSIG) > . D SIGBLK^TIUPRPN8 > (.TIUFOOT,TIUMISC,TIUCONT1,.TIUCONT,.TIUSIG,TIUADRT) >  ; Need ! in front for amended notes: > I $G(TIUIDEND) W !,"<< Interdisciplinary Note - End >>",! > K ^UTILITY($J,"W") >  ; Write 2 linefeeds between records > S:$E(IOST,1,2)="C-" TIUCONT=$$STOP^TIUFLP1,TIUASK=1 > W:TIUCONT !! > Q >  ; > IDKIDS(TIUROOT,TIUFOOT,TIUMISC,TIUCONT1,TIUCONT)  ; Print ID kids >  ;of docmt TIUDA (each kid does its own addenda) > N

...

read more »

   Reply to author    Forward       

Report spam Reporting spam Message reported

   Rate this post: Text for clearing space


You must Sign in before you can post messages. To post a message you must first join this group. Please update your nickname on the subscription settings page before posting. You do not have the permission required to post.


I, Valdes View profile More options Mar 25, 11:25 am From: "I, Valdes" <ival...@hal-pc.org> Date: Wed, 25 Mar 2009 09:25:01 -0700 (PDT) Local: Wed, Mar 25 2009 11:25 am Subject: Re: Intracare Implementation Log Episode 45: Page number printout revisited. Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author Problem solved, see Intracare Implementation Log Episode 46: A (Very) brief Programming VistA with MUMPS page numbering example.

I guess my mumpster transformation has begun.

-- IV

All Rights Reserved - Ignacio Valdes