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

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

@@ -1 @@
-PXRMVITL ; SLC/PKR - Handle vitals findings. ;09/20/2007
- ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
+PXRMVITL ; SLC/PKR - Handle vitals findings. ;10/21/2004
+ ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
  ;
  ;===========================================================
@@ -20 +20 @@
  ;
  ;===========================================================
-GETDATA(DAS,FIEVT) ;Return data for a GMRV Vital Measurement entry.
- N EM,IND,GMRVDATA,STOP,TEMP,TYPE
+GETDATA(DAS,FIEVT) ;Return the value, which is Rate, for a specified
+ ;GMRV Vital Measurement entry.
+ N IND,GMRVDATA,TEMP
  ;DBIA #3647
  D EN^GMVPXRM(.GMRVDATA,DAS,"I")
  I $P(GMRVDATA(1),U,1)=-1 D  Q
- . S ^TMP("PXRMXMZ",$J,1,0)="Found GMRV entry "_DAS_" in the index, but it does not exist in ^GMR(120.5"
+ . S ^TMP("PXRMXMZ",$J,1,0)="Found GMRV entry "_DAS_" in the index, but it does not exist in ^GMRV(120.5"
  . D SEND^PXRMMSG("Bad entry in Vitals index.")
- S FIEVT("TYPE")=$$EXTERNAL^DILFD(120.5,.03,"",GMRVDATA(3),.EM)
- ;DBIA #10040
- S TEMP=$S(+GMRVDATA(5)'=0:^SC(GMRVDATA(5),0),1:"")
- S FIEVT("HOSPITAL LOCATION")=$P(TEMP,U,1)
- S FIEVT("LOCATION TYPE")=$P(TEMP,U,3)
- S STOP=$P(TEMP,U,7)
- S FIEVT("ENTERED BY")=$P(^VA(200,GMRVDATA(6),0),U,1)
+ S FIEVT("TYPE")=$P(GMRVDATA(3),U,1)
  S (FIEVT("RATE"),FIEVT("VALUE"))=$P(GMRVDATA(7),U,1)
  S IND=0
@@ -41 +36 @@
  .;DBIA #4504
  . I TEMP'="" S FIEVT("QUALIFIER",IND)=$P($G(^GMRD(120.52,+TEMP,0)),U,1)
- ;DBIA #557
- I STOP'="" S FIEVT("STOP CODE")=$P(^DIC(40.7,STOP,0),U,1,2)
- E  S FIEVT("STOP CODE")=""
  Q
  ;
@@ -66 +58 @@
  ;maintenance output.
  N DATE,EM,IND,JND,NOUT,RATE,TEMP,TEXTOUT,TYPE
+ S TYPE=$$EXTERNAL^DILFD(120.5,.03,"",IFIEVAL("TYPE"),.EM)
  S NLINES=NLINES+1
- S TEXT(NLINES)=$$INSCHR^PXRMEXLC(INDENT," ")_"Vital Measurement: "_IFIEVAL("TYPE")
+ S TEXT(NLINES)=$$INSCHR^PXRMEXLC(INDENT," ")_"Vital Measurement: "_TYPE
  S IND=0
  F  S IND=+$O(IFIEVAL(IND)) Q:IND=0  D