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

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

@@ -1 @@
-PXRMREDT ; SLC/PKR,PJH - Edit PXRM reminder definition. ;10/04/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMREDT ; SLC/PKR,PJH - Edit PXRM reminder definition. ;02/09/2006
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
  ;=======================================================
@@ -17 +17 @@
  D SETSTART^PXRMCOPY(DIC)
  W !
- S DIC("W")="W $$LUDISP^PXRMREDT(Y)"
  D ^DIC
  I ($D(DTOUT))!($D(DUOUT)) Q
@@ -288 +287 @@
  ;
  ;-------------------------------------
-LUDISP(IEN) ;Use for DIC("W") to augment look-up display.
- N CLASS,EM,INACTIVE,TEXT
- S INACTIVE=$P(^PXD(811.9,IEN,0),U,6)
- S CLASS=$P(^PXD(811.9,IEN,100),U,1)
- I INACTIVE'="" S INACTIVE="("_$$EXTERNAL^DILFD(811.9,1.6,"",INACTIVE,.EM)_")"
- S CLASS=$$EXTERNAL^DILFD(811.9,100,"",CLASS,.EM)
- S TEXT="  "_CLASS_" "_INACTIVE
- Q TEXT
- ;
- ;-------------------------------------
 TFIND(DA,LIST) ;Allow edit of term findings for national reminders.
- N DIR,IENLIST,IND,JND,NAME,NAMELIST,SUB,X,Y
+ N DIR,IENLIST,IND,NAME,NAMELIST,SUB,X,Y
  S IND=0,NAME=""
  F  S NAME=$O(LIST("RT",NAME)) Q:NAME=""  D
@@ -313 +302 @@
  I $D(DIROUT)!$D(DIRUT) S LIST="" Q
  I $D(DUOUT)!$D(DTOUT) S LIST="" Q
+ S LIST=Y
  F IND=1:1:$L(Y,",")-1 D
- . S JND=$P(Y,",",IND)
- . S NAME=$P(NAMELIST(JND),JND,2)
+ . S NAME=$P(NAMELIST(IND),IND,2)
  . W !!,"Reminder Term:",NAME
- . D TMAP^PXRMREDF(DA,IENLIST(JND))
- Q
- ;
+ . D TMAP^PXRMREDF(DA,IENLIST(IND))
+ Q
+ ;