Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMLPAU.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/PXRMLPAU.m (modified) (6 diffs)

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

@@ -1 @@
-PXRMLPAU ; SLC/AGP - Reminder Patient List ;09/06/2007
- ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
+PXRMLPAU ; SLC/AGP - Reminder Patient List ;07/29/2004
+ ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
  ;
  ;Main entry point for PXRM PATIENT LIST
@@ -83 +83 @@
  Q
  ;
-ADD ;add a user
+ADD ;add a users
  N CREAT,CNT,DIC,DIE,FDA,MSG,USER,Y
  S CREAT=$P($G(^PXRMXP(810.5,IEN,0)),U,7)
@@ -105 +105 @@
  I $D(DIROUT) S DTOUT=1
  I $D(DTOUT)!($D(DUOUT)) Q
- I $G(Y)="" W !,"A level of control must be entered." H 2 Q
+ I $G(Y)="" W !,"A status must be enter" H 2 Q
  S YESNO=$E(Y(0))
  S FDA(810.54,"+2,"_IEN_",",.01)=USER
@@ -146 +146 @@
 HELP(CALL) ;General help text routine
  N HTEXT
+ ;
  I CALL=1 D
- .S HTEXT(1)="Select CO to copy the patient list.\\"
- .S HTEXT(2)="Select COE to copy the patient list to an OE/RR Team.\\"
- .S HTEXT(3)="Select DE to delete the patient list.\\"
- .S HTEXT(4)="Select DSP to display the patient list.\\"
+ .S HTEXT(1)="Select CO to copy patient list."
+ .S HTEXT(2)="Select COE to copy patient list to OE/RR Team."
+ .S HTEXT(3)="Select CR to delete patient list."
+ .S HTEXT(4)="Select DSP to display patient list."
+ ;
  D HELP^PXRMEUT(.HTEXT)
  Q
@@ -161 +163 @@
  N CREAT,IND,LISTIEN,NODE
  I DUZ'=$P($G(^PXRMXP(810.5,IEN,0)),U,7) D  G PDELEX
- .W !,"Only the creator of this list can delete it." H 2
+ .W !,"Only the creator of this list can delete an user." H 2
  D EN^VALM2(XQORNOD(0))
  ;If there is no list quit.
@@ -170 +172 @@
  .S LISTIEN=^TMP("PXRMLPAU",$J,"IDX",IND,IND)
  .S DA(1)=IEN,DA=LISTIEN,DIK="^PXRMXP(810.5,"_DA(1)_",40," D ^DIK
- .W !,"Patient list deleted"
+ .W !,"PATIENT DELETED"
  ;
 PDELEX ;