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

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

@@ -1 @@
-PXRMTMED ; SLC/PKR/PJH - Edit a reminder term. ;04/18/2007
- ;;2.0;CLINICAL REMINDERS;**1,4,6**;Feb 04, 2005;Build 123
+PXRMTMED ; SLC/PKR/PJH - Edit a reminder term. ;01/30/2006
+ ;;2.0;CLINICAL REMINDERS;**1,4**;Feb 04, 2005;Build 21
  ;
  ;=======================================================
@@ -62 +62 @@
  N CFIEN,GLOB,IEN,LIST,NODE,TERMSTAT,VF,WPIEN
  N DEF,DEF1,DEF2,STATUS
- S DIE("NO^")="OUTOK"
  S STATUS=0
  D DEF^PXRMRUTL("811.52",.DEF,.DEF1,.DEF2)
@@ -77 +76 @@
  S DA=+Y,GLOB=$P($P(Y,U,2),";",2) Q:GLOB=""
  I GLOB="PXRMD(811.4," S CFIEN=$P($P(Y,U,2),";",1) D
- . I $D(^PXRMD(811.4,CFIEN,1))>0 D
- .. W !!,"Computed Finding Description:" S WPIEN=0
- .. F  S WPIEN=$O(^PXRMD(811.4,CFIEN,1,WPIEN)) Q:+WPIEN'>0  D
- ... W !,$G(^PXRMD(811.4,CFIEN,1,WPIEN,0))
- . E  W !!,"No description defined for this computed finding"
- . W !
- I GLOB="YTT(601.71," D WARN^PXRMMH
+ .I $D(^PXRMD(811.4,CFIEN,1))>0 D
+ ..W !!,"Computed Finding Description:" S WPIEN=0
+ ..F  S WPIEN=$O(^PXRMD(811.4,CFIEN,1,WPIEN)) Q:+WPIEN'>0  D
+ ...W !,$G(^PXRMD(811.4,CFIEN,1,WPIEN,0))
+ .E  W !!,"No description defined for this computed finding"
+ .W !
  W !,"Editing Finding Number: "_$G(DA)
  ;Finding record fields
@@ -99 +97 @@
  I VF S DR=DR_";28"
  ;Mental Health - scale
- I GLOB="YTT(601.71," S DR=DR_";13"
+ I GLOB="YTT(601," S DR=DR_";13"
  ;Radiology procedure
  I GLOB="RAMIS(71," S STATUS=1
@@ -111 +109 @@
  ;Edit finding record
  D ^DIE
- I STATUS=1,$D(DA)>0,$D(Y)=0 D STATUS^PXRMSTA1(.DA,"T")
+ I STATUS=1,$D(DA)>0 D STATUS^PXRMSTA1(.DA,"T")
  S $P(^PXRMD(811.5,IEN,20,0),U,3)=0
  Q