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

GMVLAT0.m

Go to the documentation of this file. 
  1. GMVLAT0 ;HOIFO/YH,FT-DISPLAY LATEST VITALS/MEASUREMENTS FOR A PATIENT ;9/27/07
  1.  ;;5.0;GEN. MED. REC. - VITALS;**1,3,23**;Oct 31, 2002;Build 25
  1.  ;
  1.  ; This routine uses the following IAs:
  1.  ;  #4290 - ^PXRMINDX global       (controlled)
  1.  ; #10104 - ^XLFSTR calls          (supported)
  1.  ;
  1. EN1(DFN) ; Entry to extract the latest vitals/measurements for a patient
  1.  ;called by GETLAT^GMVGETD
  1.  N G,GJ,GBLANK,GMVCLIO,GMVLOOP,GMVQARRY,GMVQLIST,GMVQNAME,GMVUSER,GMVNUMBR,X,Y
  1.  S GJ=0,GBLANK=""
  1.  F X="T","P","R","PO2","BP","HT","WT","CVP","CG","PN" I $D(^GMRD(120.51,"C",X))  S GMR(X)=$O(^GMRD(120.51,"C",X,"")),Y=$P($G(^GMRD(120.51,GMR(X),0)),"^") Q:Y=""
  1.  K GMRDT,GMRVWT,GMRVHT
  1.  S X=""
  1.  F  S X=$O(GMR(X)) Q:X=""  S GMRDATS="",GMRDAT=9999999 I GMR(X)>0 F  S GMRDAT=$O(^PXRMINDX(120.5,"PI",DFN,+GMR(X),GMRDAT),-1) Q:$S(GMRDAT'>0:1,GMRDATS>0:1,1:0)  D SETDATAR
  1.  I '($D(GMRDATA)\10) S GJ=GJ+1,^TMP($J,"GRPC",GJ)="There are no results to report " G Q
  1.  F X="T","P","R","PO2","BP","HT","WT","CVP","CG","PN" I $D(GMRDATA(X)) S GMRVDT="",(GMRVDT(1),GMVD)=0 F  S GMVD=$O(GMRDATA(X,GMVD)) Q:GMVD'>0  D WRTDT S GMVD(1)=0 F  S GMVD(1)=$O(GMRDATA(X,GMVD,GMVD(1))) Q:$L(GMVD(1))'>0  D
  1.  . S GMVNUMBR=$P(GMRDATA(X,GMVD,GMVD(1)),U,8)
  1.  . Q:GMVNUMBR=""  ;RATE cannot be null
  1.  .; set flag to indicate RATE is a numeric reading
  1.  . S GMVNUMBR=$$NUMBER(GMVNUMBR)
  1.  . S GMVUSER=$P(GMRDATA(X,GMVD,GMVD(1)),U,6) ;user ien
  1.  . S GMVUSER=$$PERSON^GMVUTL1(GMVUSER) ;user name
  1.  . S GJ=GJ+1,^TMP($J,"GRPC",GJ)="",GMRVX(0)=$P(GMRDATA(X,GMVD,GMVD(1)),U,8) S GMRVX=X D:GMVNUMBR EN1^GMVSAS0
  1.   .S:GMRVDT(1)=0 ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_$S(X="BP":"B/P",X="P":"Pulse",X="R":"Resp.",X="T":"Temp.",X="HT":"Ht.",X="CG":"Circ/Girth",X="WT":"Wt.",X="PO2":"Pulse Ox",X="PN":"Pain",1:X)_":"
  1.  .I GMRVDT(1)=0 S GBLANK=$$REPEAT^XLFSTR(" ",13-$L(^TMP($J,"GRPC",GJ))),^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_GBLANK_"("_GMRVDT_") " S GMRVDT(1)=1
  1.  .S GBLANK=$$REPEAT^XLFSTR(" ",31-$L(^TMP($J,"GRPC",GJ))),^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_GBLANK
  1.  . I X="T" S ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_GMRVX(0)_$S(GMVNUMBR=1:" F  ("_$J(+GMRVX(0)-32*5/9,0,1)_" C)",1:"")
  1.  .I X="WT" S ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_GMRVX(0)_$S(GMVNUMBR=1:" lb  ("_$J(GMRVX(0)*.45359237,0,2)_" kg)",1:"") S GMRVWT=GMRVX(0)/2.2
  1.  .I X="HT" D
  1.  ..S GMRVHT=(GMRVX(0)*2.54)/100
  1.  ..I GMVNUMBR=0 S ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_GMRVX(0) Q
  1.  ..S ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_$S(GMRVX(0)\12:GMRVX(0)\12_" ft ",1:"")_$S(GMRVX(0)#12:GMRVX(0)#12_" in",1:"")_$S(GMVNUMBR=1:" ("_$J(GMRVX(0)*2.54,0,2)_" cm)",1:"")
  1.  ..Q
  1.  .I X="CG" S ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_GMRVX(0)_$S(GMVNUMBR=1:" in ("_$J(+GMRVX(0)/.3937,0,2)_" cm)",1:"")
  1.  .I X="CVP" S ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_GMRVX(0)_$S(GMVNUMBR=1:" cmH2O ("_$J(GMRVX(0)/1.36,0,1)_" mmHg)",1:"")
  1.  .I X="PO2" S ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_GMRVX(0)_$S(GMVNUMBR=1:"% ",1:"")
  1.  .I X="P"!(X="R")!(X="BP") S ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_GMRVX(0)
  1.  .I X="PN" D  S ^TMP($J,"GRPC",GJ)=^(GJ)_GMRVX(0)
  1.  ..Q:'GMVNUMBR  ;not a number
  1.  ..I GMRVX(0)=0 S GMRVX(0)="0 - No pain" Q
  1.  ..I GMRVX(0)=99 S GMRVX(0)="99 - Unable to respond" Q
  1.  ..I GMRVX(0)=10 S GMRVX(0)="Pain class - 10 Worst imaginable pain" Q
  1.  ..Q
  1.  .S ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_$S('$D(GMRVX(1)):"",'GMRVX(1):"",1:"*") K GMRVX
  1.  .D CHAR
  1.  .I X="WT",$G(GMRVWT)>0,$G(GMRVHT)>0 D
  1.  ..S ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_"  _"_GMVUSER
  1.  ..S GJ=GJ+1,GMRVHT(1)=$J(GMRVWT/(GMRVHT*GMRVHT),0,2),^TMP($J,"GRPC",GJ)="Body Mass Index:",GMVUSER="" D
  1.  ...S GBLANK=$$REPEAT^XLFSTR(" ",29-$L(^TMP($J,"GRPC",GJ))),^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_GBLANK_GMRVHT(1)_$S(GMRVHT(1)>27:"*",1:"")
  1.  ...Q
  1.  ..Q
  1.  .S ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_"  "_$S(GMVUSER]"":"_",1:"")_GMVUSER_"_"_$S(GMVD(1)=+GMVD(1):"Vitals",1:"CLIO")
  1.  .Q
  1. Q ; kill variables and quit
  1.  K GMRVWT,GMRVHT,GMR,GMVD,GBP,GMRVARY,GMRVDA,GMRDATA,GMVDM,GLIN,GMRZZ
  1.  K GMRVDT,GMROUT,%Y,GMRL,GMRDT,DIC,GMRDAT,GMRDATS,GMRSTR,GMRX,GMRVX,POP
  1.  Q
  1. SETDATAR ; get record IEN if not marked as entered-in-error
  1.  S Y=""
  1.  F  S Y=$O(^PXRMINDX(120.5,"PI",DFN,GMR(X),GMRDAT,Y)) Q:$L(Y)'>0!GMRDATS  D
  1.  .I Y=+Y D
  1.  ..D F1205^GMVUTL(.GMVCLIO,Y)
  1.  .I Y'=+Y D
  1.  ..D CLIO^GMVUTL(.GMVCLIO,Y)
  1.  .S GMVCLIO(0)=$G(GMVCLIO(0)),GMVCLIO(5)=$G(GMVCLIO(5))
  1.  .I GMVCLIO(0)=""!($P(GMVCLIO(0),U,8)="") Q
  1.  .S GMRL=GMVCLIO(0)
  1.  .S GMVQLIST=""
  1.  .F GMVLOOP=1:1 Q:$P(GMVCLIO(5),U,GMVLOOP)=""  D
  1.  ..S GMVQNAME=$$FIELD^GMVGETQL($P(GMVCLIO(5),U,GMVLOOP),1,"E")
  1.  ..I GMVQNAME=""!(GMVQNAME=-1) Q
  1.  ..S GMVQLIST=GMVQLIST_$S(GMVQLIST'="":",",1:"")_GMVQNAME
  1.  ..Q
  1.  .D SETNODE
  1.  .Q
  1.  Q
  1. SETNODE ; Set record node
  1.  S GMRL1=$P(GMRL,"^") ;adding trailing zeros to time if necessary
  1.  S $P(GMRL1,".",2)=$P(GMRL1,".",2)_"0000"
  1.  S $P(GMRL1,".",2)=$E($P(GMRL1,".",2),1,4)
  1.  S $P(GMRL,"^")=GMRL1
  1.  K GMRL1
  1.  S GMRDATA(X,$P(GMRL,U,1),Y)=GMRL,GMRDATS=1
  1.  S GMVQARRY(X,$P(GMRL,U,1),Y)=GMVQLIST
  1.  Q
  1. WRTDT ;
  1.  S GMRVDT=$E(GMVD,4,5)_"/"_$E(GMVD,6,7)_"/"_$E(GMVD,2,3)_"@"_$E($P(GMVD,".",2),1,2)_$S($E($P(GMVD,".",2),3,4)'="":":"_$E($P(GMVD,".",2),3,4),1:"")
  1.  Q
  1. CHAR ;
  1.  ;S GMRZZ=$$WRITECH(GMVD(1),.GMRVARY,5)
  1.  S GMRZZ=GMVQARRY(X,GMVD,GMVD(1))
  1.  S:GMRZZ'=""&(X'="PO2") GMRZZ="("_GMRZZ_")"
  1.  I X="PO2",$P(GMRDATA(X,GMVD,GMVD(1)),U,10)'="" S ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_"with supplemental O2" D
  1.  . S GPO2=$P(GMRDATA(X,GMVD,GMVD(1)),U,10)
  1.  . S ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_" "_$S(GPO2["l/min":$P(GPO2," l/min")_" L/min",1:"")_$S(GPO2["l/min":$P(GPO2," l/min",2),1:GPO2)
  1.  . K GPO2
  1.  S:GMRZZ'="" ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_" "_GMRZZ K GMRZZ Q
  1.  S:$G(GMRZZ)'="" ^TMP($J,"GRPC",GJ)=^TMP($J,"GRPC",GJ)_"  "_GMRZZ K GMRZZ
  1.  Q
  1.  ;SETBP ;
  1.  ;D SETBP^GMVLATS
  1.  ;Q
  1.  ;WRITECH(GDA,GARRY,GN);
  1.  ; Input data:
  1.  ; GDA - Pointer to the patient vitals/measurements data file #120.5
  1.  ; GARRY - qualifier data array for a measurement
  1.  ;         GARRY(GDA,Print order,qualifier data)
  1.  ; GN - Number of print order to print
  1.  ;N GMRVDA,GDATA
  1.  ;S GDATA="",GMRVDA(1)=0
  1.  ;F  S GMRVDA(1)=$O(GARRY(GDA,GMRVDA(1))) Q:GMRVDA(1)'>0!(GMRVDA(1)>GN)  S GMRVDA(2)="" F  S GMRVDA(2)=$O(GARRY(GDA,GMRVDA(1),GMRVDA(2))) Q:GMRVDA(2)=""  D
  1.  ;. S GDATA=GDATA_","_GMRVDA(2)
  1.  ;. Q
  1.  ;I $E(GDATA,1)="," S GDATA=$E(GDATA,2,$L(GDATA)) ;strip off leading comma
  1.  ;Q GDATA
  1.  ;
  1. NUMBER(GMVRATE) ; Function determines if the RATE has a numeric reading or one
  1.  ; of the text codes (e.g. REFUSED).
  1.  ; Returns 0 if GMVRATE has a text code
  1.  ;         1 if a numeric reading
  1.  N GMVYES
  1.  S GMVRATE=$G(GMVRATE)
  1.  S GMVYES=1
  1.  I "REFUSEDPASSUNAVAILABLE"[$$UP^XLFSTR(GMVRATE) S GMVYES=0
  1.  Q GMVYES
  1.  ;