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

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

@@ -1 @@
-PXRMREDF ; SLC/PJH - Edit PXRM reminder findings. ;01/09/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMREDF ; SLC/PJH - Edit PXRM reminder findings. ;02/09/2006
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
  ; Called by PXRMREDT which newes and initialized DEF, DEF1, DEF2.
@@ -37 +37 @@
  D ^DIC I Y=-1 S DTOUT=1 Q
  S DIE=DIC K DIC
- S DIE("NO^")="OUTOK"
  S DA=+Y,GLOB=$P($P(Y,U,2),";",2) Q:GLOB=""
  S TYPE=$G(DEF1(GLOB))
@@ -43 +42 @@
  ;Save term IEN
  S STATUS=0
+ I TYPE="RT" S TIEN=$P($P(Y,U,2),";",1)
  I TYPE="CF" S CFIEN=$P($P(Y,U,2),";",1) D
  .I $D(^PXRMD(811.4,CFIEN,1))>0 D
@@ -49 +49 @@
  ...W !,$G(^PXRMD(811.4,CFIEN,1,WPIEN,0))
  .E  W !!,"No description defined for this computed finding"
- I TYPE="MH" D WARN^PXRMMH
- I TYPE="RT" S TIEN=$P($P(Y,U,2),";",1)
  ;Finding record fields
  W !!,"Editing Finding Number: "_$G(DA)
@@ -99 +97 @@
  ;Check if deleted
  I '$D(DA) Q
- I STATUS=1,$D(Y)=0 D STATUS^PXRMSTA1(.DA,"D")
+ I STATUS=1 D STATUS^PXRMSTA1(.DA,"D")
  ;
  S ETYPE=$P(^PXD(811.9,IEN,20,SDA(1),0),U,1)