Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMVHDR

GMVHDR.m

Go to the documentation of this file.
  1. GMVHDR ;HIOFO/FT-HEALTH DATA REPOSITORY API ;10/21/04 13:03
  1. ;;5.0;GEN. MED. REC. - VITALS;**2,17**;Oct 31, 2002
  1. ;11/30/2005 KAM/BAY Remedy Call 121661 changes for HL7 message
  1. ;
  1. ; This routine uses the following IAs:
  1. ; <None>
  1. ;
  1. ; This routine supports the following IAs:
  1. ; EN - #4583 (Private)
  1. ;
  1. EN(GMVIEN) ; This function returns a string containing the values
  1. ; for the record number provided.
  1. ;
  1. ; Input: GMVIEN - FILE 120.5 Internal Entry Number (IEN)
  1. ; Output: A string of data where:
  1. ; piece 1 = (#.01) DATE/TIME VITALS TAKEN (internal)
  1. ; piece 2 = (#.02) PATIENT (internal)
  1. ; piece 3 = (#.03) VITAL TYPE (external)
  1. ; piece 4 = (#.04) DATE/TIME VITALS ENTERED (internal)
  1. ; piece 5 = (#.05) HOSPITAL LOCATION (internal)
  1. ; piece 6 = (#.06) ENTERED BY (internal)
  1. ; piece 7 = (#.03) VITAL TYPE (internal)
  1. ; piece 8 = (#1.2) RATE
  1. ; piece 9 = UNITS (value is computed by this routine)
  1. ; piece 10 = (#1.4) SUPPLEMENTAL O2 (internal)
  1. ; piece 11 = (#2) ENTERED IN ERROR (internal)
  1. ; piece 12 = (#3) ERROR ENTERED BY (internal)
  1. ; piece 13 = (#4) REASON ENTERED IN ERROR (multiple) (external)
  1. ; Values are separated by a tilde (~).
  1. ; piece 14 = (#5) QUALIFIER (multiple) (external)
  1. ; Values are separated by a tilde (~).
  1. ;
  1. ; Returns a null value if the entry does not exist.
  1. ;
  1. I '$G(GMVIEN) Q ""
  1. N GMVA,GMVLIST,GMVLOOP,GMVNODE,GMVNODE2,GMVQUALE,GMVQUALI,GMVUNIT,GMVVTE,GMVVTI,GMVX
  1. S GMVNODE=$G(^GMR(120.5,+GMVIEN,0)) ; zero node of patient record
  1. ; check if record is complete
  1. F GMVLOOP=1,2,3,4,5,6,8 I $P(GMVNODE,U,GMVLOOP)="" D
  1. .H 1
  1. .S GMVNODE=$G(^GMR(120.5,+GMVIEN,0)) ;get zero node again
  1. .Q
  1. I GMVNODE="" Q ""
  1. I $P(GMVNODE,U,1)'>0 Q "" ;date/time vitals taken
  1. I $P(GMVNODE,U,2)'>0 Q "" ;dfn
  1. S GMVVTI=+$P(GMVNODE,U,3) ;vital type ien
  1. S GMVVTE=$P($G(^GMRD(120.51,GMVVTI,0)),U,1) ;vital type name
  1. I GMVVTE="" Q ""
  1. I $$ACTIVE^GMVUID(120.51,"",GMVVTI_",","") Q "" ; not active vuid
  1. S GMVA=$P($G(^GMRD(120.51,GMVVTI,0)),U,2) ;vital abbreviation
  1. S $P(GMVNODE,U,3)=GMVVTE,$P(GMVNODE,U,7)=GMVVTI
  1. S GMVUNIT=$S(GMVA="BP":"mmHg",GMVA="T":"F",GMVA="R":"/min",GMVA="P":"/min",GMVA="HT":"in",GMVA="WT":"lb",GMVA="CVP":"cmH2O",GMVA="CG":"in",GMVA="PO2":"%SpO2",1:"")
  1. S $P(GMVNODE,U,9)=GMVUNIT
  1. S:+$P(GMVNODE,U,5)'>0 $P(GMVNODE,U,5)="" ;hospital location
  1. S:+$P(GMVNODE,U,6)'>0 $P(GMVNODE,U,6)="" ;entered by
  1. S GMVNODE2=$G(^GMR(120.5,GMVIEN,2))
  1. S $P(GMVNODE,U,11)=$S($P(GMVNODE2,U,1)=1:"YES",1:"")
  1. S $P(GMVNODE,U,12)=$S($P(GMVNODE2,U,2)>0:$P(GMVNODE2,U,2),1:"")
  1. ; reason (multiple)
  1. S GMVLOOP=0,GMVLIST=""
  1. F S GMVLOOP=$O(^GMR(120.5,GMVIEN,2.1,GMVLOOP)) Q:'GMVLOOP D
  1. .S GMVX=$P($G(^GMR(120.5,GMVIEN,2.1,GMVLOOP,0)),U,1)
  1. .Q:GMVX=""
  1. .S GMVX=GMVX_"-"_$S(GMVX=1:"INCORRECT DATE/TIME",GMVX=2:"INCORRECT READING",GMVX=3:"INCORRECT PATIENT",GMVX=4:"INVALID RECORD",1:"")
  1. .S GMVLIST=GMVLIST_GMVX_"~"
  1. .Q
  1. I $E(GMVLIST,$L(GMVLIST))="~" S GMVLIST=$E(GMVLIST,1,($L(GMVLIST)-1))
  1. S $P(GMVNODE,U,13)=GMVLIST
  1. ;qualifiers (multiple)
  1. S GMVLOOP=0,GMVLIST=""
  1. F S GMVLOOP=$O(^GMR(120.5,GMVIEN,5,GMVLOOP)) Q:'GMVLOOP D
  1. .S GMVQUALI=$P($G(^GMR(120.5,GMVIEN,5,GMVLOOP,0)),U,1)
  1. .S GMVQUALE=$P($G(^GMRD(120.52,+GMVQUALI,0)),U,1)
  1. .Q:GMVQUALE=""
  1. .S GMVLIST=GMVLIST_GMVQUALE_"~"
  1. .Q
  1. I $E(GMVLIST,$L(GMVLIST))="~" S GMVLIST=$E(GMVLIST,1,($L(GMVLIST)-1))
  1. S $P(GMVNODE,U,14)=GMVLIST
  1. Q GMVNODE
  1. ;