Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMLCR.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• CLINICAL_REMINDERS-PXRM/PXRMLCR.m (modified) (5 diffs)

FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMLCR.m

@@ -1 @@
-PXRMLCR ; SLC/PJH - Create Patient List from individual finding rule; 10/18/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMLCR ; SLC/PJH - Create Patient List from individual finding rule; 08/03/2006
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ; 
  ; Called from PXRM PATIENT LIST CREATE protocol
@@ -37 +37 @@
 TPAT S PXRMTPAT=$$ASKYN^PXRMEUT("N","Include test patients on the list")
  Q:$D(DTOUT)  G:$D(DUOUT) DPAT
- I $G(PXRMDEBG) D RUN^PXRMLCR(PXRMRULE,PXRMLIST,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) Q
  ;Build patient list in background
  N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
@@ -85 +84 @@
  ;
  I CALL=4 D
- .S HTEXT(1)="Enter Y to turn on debug output."
- .S HTEXT(2)="The debug output will send a series of MailMan messages to the requestor of the report"
- .S HTEXT(3)="-**WARNING**- the reminder report will take longer to run if you turn on this option!"
+ .S HTEXT(1)="Enter Y to turn on Debug output."
+ .S HTEXT(2)="The debug output will send a series of mailman message to the requestor of the report"
+ .S HTEXT(3)="**WARNING** the reminder report will take longer to run if you turn on this option!"
  D HELP^PXRMEUT(.HTEXT)
  Q
@@ -96 +95 @@
  S DIC("A")=TEXT
  S DIC("S")="I $P($G(^(100)),U)'=""N"""
- ;If this is a new entry save the creator, make the TYPE public and
- ;CLASS local.
- S DIC("DR")=".07///`"_DUZ_";.08///PUB;100///L"
+ S DIC("DR")="100///L"
  W !
  D ^DIC
@@ -158 +155 @@
 RUN(PXRMRULE,PXRMLIST,PXRMNODE,BEG,END,PXRMDPAT,PXRMTPAT) ;
  ;Process rule set and update final patient list
- D START^PXRMRULE(PXRMRULE,PXRMLIST,PXRMNODE,BEG,END,"","","",PXRMDPAT,PXRMTPAT,"")
+ D START^PXRMRULE(PXRMRULE,PXRMLIST,PXRMNODE,BEG,END,"","","",PXRMDPAT,PXRMTPAT)
  ;Clear ^TMP lists created for rule
  D CLEAR^PXRMRULE(PXRMRULE,PXRMNODE)