GMTSVSS ;SLC/KER - Selected Vital Signs ;Feb 19, 2026@11:15
;;2.7;Health Summary;**8,20,28,35,49,78,107,147**;Oct 20, 1995;Build 5
;
; REFERENCE ICR NUMBER
; ========================
; EN1^GMVHS 4791
;
; Health Summary patch GMTS*2.7*35 will require
; Vitals version 4.0, patch GMRV*4.0*7
;
OUTPAT ; Outpatient Select Vitals Signs Main control
N CNT,COL,COLL,HDR,GMTSDA,GMTSDT,GMTSF,GMTSI,GMW,GMRVSTR,LOOP,MAX,ROW,WIDTH
N GMTSMVF
K ^UTILITY($J,"GMRVD") S MAX=$S(+($G(GMTSNDM))>0:+($G(GMTSNDM)),1:100)
S GMTSI=0 F S GMTSI=$O(GMTSEG(GMTSEGN,120.51,GMTSI)) Q:GMTSI'>0 S GMTSDA=GMTSEG(GMTSEGN,120.51,GMTSI) D BLDSTR
Q:'$D(GMRVSTR)
S GMRVSTR(0)=GMTSBEG_U_GMTSEND_U_MAX_U_1
; Set to only get Vital Sign for Clinics
S GMRVSTR("LT")="^C^"
D BLDHDR,EN1^GMVHS
S GMTSMVF=$$IMDSORD^GMTSVS
; If no data, display most recent inpatient measurements
I '$D(^UTILITY($J,"GMRVD")) D Q
. D CKP^GMTSUP Q:$D(GMTSQIT) W "*** No Outpatient measurements ***",!!
. S MAX=1 D ENVS
S ROW=1 D NXTROW
D WRTHDR,WRTHDR1
S GMTSDT="" F GMTSF=1:1:MAX S GMTSDT=$O(^UTILITY($J,"GMRVD",GMTSDT)) Q:GMTSDT'>0 D WRT Q:$D(GMTSQIT) D CKP^GMTSUP Q:$D(GMTSQIT) W !
I $O(COL(ROW)) F ROW=2:1 Q:'$D(COL(ROW))!($D(GMTSQIT)) D
. D NXTROW
. W !! D WRTHDR,WRTHDR1
. S GMTSDT="" F GMTSF=1:1:MAX S GMTSDT=$O(^UTILITY($J,"GMRVD",GMTSDT)) Q:GMTSDT'>0 D WRT Q:$D(GMTSQIT) D CKP^GMTSUP Q:$D(GMTSQIT) W !
K ^UTILITY($J,"GMRVD"),GMTSVMVR
Q
ENVS ; Set up for extraction routine
N CNT,COL,COLL,HDR,HDR1,GMTSDA,GMTSDT,GMTSF,GMTSI,GMW,LOOP,ROW,WIDTH,GMTSMVF
K ^UTILITY($J,"GMRVD"),GMRVSTR("LT")
S MAX=$S(+($G(MAX))>0:MAX,+($G(MAX))'>0&(+($G(GMTSNDM))>0):+($G(GMTSNDM)),1:100)
S GMTSI=0 F S GMTSI=$O(GMTSEG(GMTSEGN,120.51,GMTSI)) Q:GMTSI'>0 S GMTSDA=GMTSEG(GMTSEGN,120.51,GMTSI) D BLDSTR
Q:'$D(GMRVSTR)
S GMRVSTR(0)=GMTSBEG_U_GMTSEND_U_MAX_U_1
D BLDHDR,EN1^GMVHS
I '$D(^UTILITY($J,"GMRVD")) Q
S GMTSMVF=$$IMDSORD^GMTSVS
S ROW=1 D NXTROW
D WRTHDR,WRTHDR1
S GMTSDT="" F GMTSF=1:1:MAX S GMTSDT=$O(^UTILITY($J,"GMRVD",GMTSDT)) Q:GMTSDT'>0 D WRT Q:$D(GMTSQIT) D CKP^GMTSUP Q:$D(GMTSQIT) W !
I $O(COL(ROW)) F ROW=2:1 Q:'$D(COL(ROW))!($D(GMTSQIT)) D
. D NXTROW
. W !! D WRTHDR,WRTHDR1
. S GMTSDT="" F GMTSF=1:1:MAX S GMTSDT=$O(^UTILITY($J,"GMRVD",GMTSDT)) Q:GMTSDT'>0 D WRT Q:$D(GMTSQIT) D CKP^GMTSUP Q:$D(GMTSQIT) W !
K ^UTILITY($J,"GMRVD"),GMTSVMVR
Q
BLDSTR ; Builds GMRVSTR string for extract call
N VIT
S GMTSVMVR=+$$VERSION^XPDUTL("GMRV")
S VIT=$$FIELD^GMVGETVT(GMTSDA,2,"E")
S GMRVSTR=$S($D(GMRVSTR):GMRVSTR_";"_VIT,1:VIT)
Q
BLDHDR ; Builds the HDR array
N ABB,GMTSI S COL=18
F GMTSI=1:1:$L(GMRVSTR,";") D
. S (HDR(GMTSI-1),ABB)=$P(GMRVSTR,";",GMTSI)
. S HDR(GMTSI-1)=HDR(GMTSI-1)_U
. S HDR(GMTSI-1)=HDR(GMTSI-1)_$S(ABB="BP":"BP",ABB="PN":"PAIN",ABB="HT":"HEIGHT",ABB="WT":"WEIGHT",ABB="P":"PULSE",ABB="R":"RESP",ABB="T":"TEMP",ABB="PO2":"POx",1:ABB)
. ;p.107 added "PN" and set to 18 to accomodate "Unable to Respond"
. S WIDTH=HDR(GMTSI-1)
. S WIDTH=$S($P(WIDTH,U)="T":13,$P(WIDTH,U)="P":8,$P(WIDTH,U)="R":12,$P(WIDTH,U)="WT":20,$P(WIDTH,U)="CG":34,$P(WIDTH,U)="CVP":16,$P(WIDTH,U)="HT":13,$P(WIDTH,U)="PO2":13,$P(WIDTH,U)="PN":18,1:12)
. S COLL=$P(COL,U,GMTSI)+WIDTH
. S COL=COL_U
. S COL=COL_COLL
. S HDR(GMTSI-1)=HDR(GMTSI-1)_U_COLL_U_WIDTH
S ROW=1,COL(ROW)=18,COLL=18,CNT=0
F LOOP=0:1 Q:'$D(HDR(LOOP)) D
. I $P(HDR(LOOP),U,4)+COLL'>80 D Q
. . S COLL=$P(HDR(LOOP),U,4)+COLL
. . S COL(ROW)=COL(ROW)_U_COLL
. . S HDR1(ROW,CNT)=HDR(LOOP)
. . S CNT=CNT+1
. . K HDR(LOOP)
. S ROW=ROW+1,COL(ROW)=18,COLL=18,CNT=0
. S COLL=$P(HDR(LOOP),U,4)+COLL
. S COL(ROW)=COL(ROW)_U_COLL
. S HDR1(ROW,CNT)=HDR(LOOP)
. S CNT=CNT+1
. K HDR(LOOP)
Q
WRTHDR ; Writes Header
N GMI
D CKP^GMTSUP Q:$D(GMTSQIT) W "Measurement DT"
I GMTSVMVR'>3 F GMI=0:1:5 D CKP^GMTSUP Q:'$D(HDR(GMI))!($D(GMTSQIT)) D
. W ?$P(COL,U,GMI+1),$P(HDR(GMI),U,2)
I GMTSVMVR>3 S GMI="" F S GMI=$O(HDR(GMI)) Q:(GMI="") Q:('$D(HDR(GMI)))!($D(GMTSQIT)) D CKP^GMTSUP D
. W ?$P(COL,U,GMI+1),$P(HDR(GMI),U,2)
D CKP^GMTSUP Q:$D(GMTSQIT) W !
Q
WRTHDR1 ; Writes 2nd line of header
N GMI
I GMTSVMVR'>3 F GMI=0:1:5 D CKP^GMTSUP Q:'$D(HDR(GMI))!($D(GMTSQIT)) D
. I $P(HDR(GMI),U)="HT" W ?$P(COL,U,GMI+1),$S(GMTSMVF:"CM(IN)",1:"IN(CM)")
. I $P(HDR(GMI),U)="WT" W ?$P(COL,U,GMI+1),$S(GMTSMVF:"KG(LB)",1:"LB(KG)")
. I $P(HDR(GMI),U)="T" W ?$P(COL,U,GMI+1),$S(GMTSMVF:"C(F)",1:"F(C)")
I GMTSVMVR>3 S GMI="" F S GMI=$O(HDR(GMI)) Q:(GMI="") Q:('$D(HDR(GMI)))!($D(GMTSQIT)) D CKP^GMTSUP D
. I $P(HDR(GMI),U)="HT" W ?$P(COL,U,GMI+1),$S(GMTSMVF:"CM(IN)",1:"IN(CM)")
. I $P(HDR(GMI),U)="WT" W ?$P(COL,U,GMI+1),$S(GMTSMVF:"KG(LB)",1:"LB(KG)")_"[BMI]"
. I $P(HDR(GMI),U)="T" W ?$P(COL,U,GMI+1),$S(GMTSMVF:"C(F)",1:"F(C)")
. I $P(HDR(GMI),U)="CVP" W ?$P(COL,U,GMI+1),$S(GMTSMVF:"MMHG(CMH2O)",1:"CMH2O(MMHG)")
. I $P(HDR(GMI),U)="PO2" W ?$P(COL,U,GMI+1),"(L/MIN)(%)"
. I $P(HDR(GMI),U)="CG" W ?$P(COL,U,GMI+1),$S(GMTSMVF:"CM(IN)",1:"IN(CM)")
D CKP^GMTSUP Q:$D(GMTSQIT) W !!
Q
WRT ; Writes vitals record for one observation time
N GMLEN,GMTSBMI,GMTSI,GMTSVAL,GMTDT,GMTSVI,GMTSVT,GMTSMET,GMTSPERC,GMTSLMIN,GMTSQUAL,IEN,X
S GMTSVI="",X=9999999-GMTSDT D REGDTM4^GMTSU S GMTDT=X
D CKP^GMTSUP Q:$D(GMTSQIT) D:GMTSNPG WRTHDR,WRTHDR1 W GMTDT
I GMTSVMVR'>3 F GMTSI=0:1:5 S GMTSVI=$O(HDR(GMTSVI)) Q:GMTSVI=""!($D(GMTSQIT)) D
. S GMTSVT=$P(HDR(GMTSVI),U),IEN=$O(^UTILITY($J,"GMRVD",GMTSDT,GMTSVT,0))
. I +IEN D CKP^GMTSUP Q:$D(GMTSQIT) D
. . I GMTSMVF,("^HT^WT^T^CG^CVP^"[(U_GMTSVT_U)) S GMTSVAL=$P(^UTILITY($J,"GMRVD",GMTSDT,GMTSVT,+IEN),U,13)
. . E S GMTSVAL=$P(^UTILITY($J,"GMRVD",GMTSDT,GMTSVT,+IEN),U,8)
. . W ?$P(COL,U,GMTSI+1),GMTSVAL
. . I GMTSMVF,("^HT^WT^T^CG^CVP^"[(U_GMTSVT_U)) S GMTSMET=$P(^UTILITY($J,"GMRVD",GMTSDT,GMTSVT,+IEN),U,8)
. . E S GMTSMET=$P(^UTILITY($J,"GMRVD",GMTSDT,GMTSVT,+IEN),U,13)
. . I GMTSMET'="" W "("_GMTSMET_")"
. . Q
. Q
I GMTSVMVR>3 F GMTSI=0:1 S GMTSVI=$O(HDR(GMTSVI)) Q:GMTSVI=""!($D(GMTSQIT)) D
. S GMTSVT=$P(HDR(GMTSVI),U),IEN=$O(^UTILITY($J,"GMRVD",GMTSDT,GMTSVT,0))
. I +IEN D CKP^GMTSUP Q:$D(GMTSQIT) D
. . I GMTSMVF,("^HT^WT^T^CG^CVP^"[(U_GMTSVT_U)) S GMTSVAL=$P(^UTILITY($J,"GMRVD",GMTSDT,GMTSVT,+IEN),U,13)
. . E S GMTSVAL=$P(^UTILITY($J,"GMRVD",GMTSDT,GMTSVT,+IEN),U,8)
. . S:GMTSVT="PN"&(GMTSVAL=99) GMTSVAL="Unable to Respond" ;p.107 changed from "No Response" to "Unable to Respond"
. . S:GMTSVT="P"&(GMTSVAL?1A.E) GMTSVAL=$E(GMTSVAL,1,7)
. . W ?$P(COL,U,GMTSI+1),GMTSVAL
. . S GMTSMET=$P(^UTILITY($J,"GMRVD",GMTSDT,GMTSVT,+IEN),U,13,17)
. . S GMTSLMIN=$P(GMTSMET,U,3),GMTSPERC=$P(GMTSMET,U,4)
. . S GMTSQUAL=$P(GMTSMET,U,5) S:GMTSQUAL]"" GMTSQUAL=$E(GMTSQUAL,1,15)
. . S GMTSBMI=$P(GMTSMET,U,2)
. . I GMTSMVF,("^HT^WT^T^CG^CVP^"[(U_GMTSVT_U)) S GMTSMET=$P(^UTILITY($J,"GMRVD",GMTSDT,GMTSVT,+IEN),U,8)
. . E S GMTSMET=$P(GMTSMET,U,1)
. . I GMTSMET'="" W "("_GMTSMET_")" ; centigrade/kilos/centimeters
. . I GMTSBMI'="" W "["_GMTSBMI_"]" ; body mass index
. . I GMTSLMIN'=""!(GMTSPERC'="") W "["_GMTSLMIN_"]["_GMTSPERC_"]" ; [liters/min supplemental O2][% supplemental O2]
. . I GMTSVT="CG",GMTSQUAL]"" W "["_GMTSQUAL_"]" ; qualifiers
. . Q
. Q
Q
NXTROW ; Get the Next Row of Vital Signs
Q:$G(ROW)'>0 K HDR S %X="HDR1(ROW,",%Y="HDR(" D %XY^%RCR
S COL=COL(ROW) K %X,%Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSVSS 7426 printed Apr 22, 2026@13:57:38 Page 2
GMTSVSS ;SLC/KER - Selected Vital Signs ;Feb 19, 2026@11:15
+1 ;;2.7;Health Summary;**8,20,28,35,49,78,107,147**;Oct 20, 1995;Build 5
+2 ;
+3 ; REFERENCE ICR NUMBER
+4 ; ========================
+5 ; EN1^GMVHS 4791
+6 ;
+7 ; Health Summary patch GMTS*2.7*35 will require
+8 ; Vitals version 4.0, patch GMRV*4.0*7
+9 ;
OUTPAT ; Outpatient Select Vitals Signs Main control
+1 NEW CNT,COL,COLL,HDR,GMTSDA,GMTSDT,GMTSF,GMTSI,GMW,GMRVSTR,LOOP,MAX,ROW,WIDTH
+2 NEW GMTSMVF
+3 KILL ^UTILITY($JOB,"GMRVD")
SET MAX=$SELECT(+($GET(GMTSNDM))>0:+($GET(GMTSNDM)),1:100)
+4 SET GMTSI=0
FOR
SET GMTSI=$ORDER(GMTSEG(GMTSEGN,120.51,GMTSI))
if GMTSI'>0
QUIT
SET GMTSDA=GMTSEG(GMTSEGN,120.51,GMTSI)
DO BLDSTR
+5 if '$DATA(GMRVSTR)
QUIT
+6 SET GMRVSTR(0)=GMTSBEG_U_GMTSEND_U_MAX_U_1
+7 ; Set to only get Vital Sign for Clinics
+8 SET GMRVSTR("LT")="^C^"
+9 DO BLDHDR
DO EN1^GMVHS
+10 SET GMTSMVF=$$IMDSORD^GMTSVS
+11 ; If no data, display most recent inpatient measurements
+12 IF '$DATA(^UTILITY($JOB,"GMRVD"))
Begin DoDot:1
+13 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
WRITE "*** No Outpatient measurements ***",!!
+14 SET MAX=1
DO ENVS
End DoDot:1
QUIT
+15 SET ROW=1
DO NXTROW
+16 DO WRTHDR
DO WRTHDR1
+17 SET GMTSDT=""
FOR GMTSF=1:1:MAX
SET GMTSDT=$ORDER(^UTILITY($JOB,"GMRVD",GMTSDT))
if GMTSDT'>0
QUIT
DO WRT
if $DATA(GMTSQIT)
QUIT
DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
WRITE !
+18 IF $ORDER(COL(ROW))
FOR ROW=2:1
if '$DATA(COL(ROW))!($DATA(GMTSQIT))
QUIT
Begin DoDot:1
+19 DO NXTROW
+20 WRITE !!
DO WRTHDR
DO WRTHDR1
+21 SET GMTSDT=""
FOR GMTSF=1:1:MAX
SET GMTSDT=$ORDER(^UTILITY($JOB,"GMRVD",GMTSDT))
if GMTSDT'>0
QUIT
DO WRT
if $DATA(GMTSQIT)
QUIT
DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
WRITE !
End DoDot:1
+22 KILL ^UTILITY($JOB,"GMRVD"),GMTSVMVR
+23 QUIT
ENVS ; Set up for extraction routine
+1 NEW CNT,COL,COLL,HDR,HDR1,GMTSDA,GMTSDT,GMTSF,GMTSI,GMW,LOOP,ROW,WIDTH,GMTSMVF
+2 KILL ^UTILITY($JOB,"GMRVD"),GMRVSTR("LT")
+3 SET MAX=$SELECT(+($GET(MAX))>0:MAX,+($GET(MAX))'>0&(+($GET(GMTSNDM))>0):+($GET(GMTSNDM)),1:100)
+4 SET GMTSI=0
FOR
SET GMTSI=$ORDER(GMTSEG(GMTSEGN,120.51,GMTSI))
if GMTSI'>0
QUIT
SET GMTSDA=GMTSEG(GMTSEGN,120.51,GMTSI)
DO BLDSTR
+5 if '$DATA(GMRVSTR)
QUIT
+6 SET GMRVSTR(0)=GMTSBEG_U_GMTSEND_U_MAX_U_1
+7 DO BLDHDR
DO EN1^GMVHS
+8 IF '$DATA(^UTILITY($JOB,"GMRVD"))
QUIT
+9 SET GMTSMVF=$$IMDSORD^GMTSVS
+10 SET ROW=1
DO NXTROW
+11 DO WRTHDR
DO WRTHDR1
+12 SET GMTSDT=""
FOR GMTSF=1:1:MAX
SET GMTSDT=$ORDER(^UTILITY($JOB,"GMRVD",GMTSDT))
if GMTSDT'>0
QUIT
DO WRT
if $DATA(GMTSQIT)
QUIT
DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
WRITE !
+13 IF $ORDER(COL(ROW))
FOR ROW=2:1
if '$DATA(COL(ROW))!($DATA(GMTSQIT))
QUIT
Begin DoDot:1
+14 DO NXTROW
+15 WRITE !!
DO WRTHDR
DO WRTHDR1
+16 SET GMTSDT=""
FOR GMTSF=1:1:MAX
SET GMTSDT=$ORDER(^UTILITY($JOB,"GMRVD",GMTSDT))
if GMTSDT'>0
QUIT
DO WRT
if $DATA(GMTSQIT)
QUIT
DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
WRITE !
End DoDot:1
+17 KILL ^UTILITY($JOB,"GMRVD"),GMTSVMVR
+18 QUIT
BLDSTR ; Builds GMRVSTR string for extract call
+1 NEW VIT
+2 SET GMTSVMVR=+$$VERSION^XPDUTL("GMRV")
+3 SET VIT=$$FIELD^GMVGETVT(GMTSDA,2,"E")
+4 SET GMRVSTR=$SELECT($DATA(GMRVSTR):GMRVSTR_";"_VIT,1:VIT)
+5 QUIT
BLDHDR ; Builds the HDR array
+1 NEW ABB,GMTSI
SET COL=18
+2 FOR GMTSI=1:1:$LENGTH(GMRVSTR,";")
Begin DoDot:1
+3 SET (HDR(GMTSI-1),ABB)=$PIECE(GMRVSTR,";",GMTSI)
+4 SET HDR(GMTSI-1)=HDR(GMTSI-1)_U
+5 SET HDR(GMTSI-1)=HDR(GMTSI-1)_$SELECT(ABB="BP":"BP",ABB="PN":"PAIN",ABB="HT":"HEIGHT",ABB="WT":"WEIGHT",ABB="P":"PULSE",ABB="R":"RESP",ABB="T":"TEMP",ABB="PO2":"POx",1:ABB)
+6 ;p.107 added "PN" and set to 18 to accomodate "Unable to Respond"
+7 SET WIDTH=HDR(GMTSI-1)
+8 SET WIDTH=$SELECT($PIECE(WIDTH,U)="T":13,$PIECE(WIDTH,U)="P":8,$PIECE(WIDTH,U)="R":12,$PIECE(WIDTH,U)="WT":20,$PIECE(WIDTH,U)="CG":34,$PIECE(WIDTH,U)="CVP":16,$PIECE(WIDTH,U)="HT":13,$PIECE(WIDTH,U)="PO2":13,$PIECE(WIDTH,U)="PN":18,1:12
)
+9 SET COLL=$PIECE(COL,U,GMTSI)+WIDTH
+10 SET COL=COL_U
+11 SET COL=COL_COLL
+12 SET HDR(GMTSI-1)=HDR(GMTSI-1)_U_COLL_U_WIDTH
End DoDot:1
+13 SET ROW=1
SET COL(ROW)=18
SET COLL=18
SET CNT=0
+14 FOR LOOP=0:1
if '$DATA(HDR(LOOP))
QUIT
Begin DoDot:1
+15 IF $PIECE(HDR(LOOP),U,4)+COLL'>80
Begin DoDot:2
+16 SET COLL=$PIECE(HDR(LOOP),U,4)+COLL
+17 SET COL(ROW)=COL(ROW)_U_COLL
+18 SET HDR1(ROW,CNT)=HDR(LOOP)
+19 SET CNT=CNT+1
+20 KILL HDR(LOOP)
End DoDot:2
QUIT
+21 SET ROW=ROW+1
SET COL(ROW)=18
SET COLL=18
SET CNT=0
+22 SET COLL=$PIECE(HDR(LOOP),U,4)+COLL
+23 SET COL(ROW)=COL(ROW)_U_COLL
+24 SET HDR1(ROW,CNT)=HDR(LOOP)
+25 SET CNT=CNT+1
+26 KILL HDR(LOOP)
End DoDot:1
+27 QUIT
WRTHDR ; Writes Header
+1 NEW GMI
+2 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
WRITE "Measurement DT"
+3 IF GMTSVMVR'>3
FOR GMI=0:1:5
DO CKP^GMTSUP
if '$DATA(HDR(GMI))!($DATA(GMTSQIT))
QUIT
Begin DoDot:1
+4 WRITE ?$PIECE(COL,U,GMI+1),$PIECE(HDR(GMI),U,2)
End DoDot:1
+5 IF GMTSVMVR>3
SET GMI=""
FOR
SET GMI=$ORDER(HDR(GMI))
if (GMI="")
QUIT
if ('$DATA(HDR(GMI)))!($DATA(GMTSQIT))
QUIT
DO CKP^GMTSUP
Begin DoDot:1
+6 WRITE ?$PIECE(COL,U,GMI+1),$PIECE(HDR(GMI),U,2)
End DoDot:1
+7 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
WRITE !
+8 QUIT
WRTHDR1 ; Writes 2nd line of header
+1 NEW GMI
+2 IF GMTSVMVR'>3
FOR GMI=0:1:5
DO CKP^GMTSUP
if '$DATA(HDR(GMI))!($DATA(GMTSQIT))
QUIT
Begin DoDot:1
+3 IF $PIECE(HDR(GMI),U)="HT"
WRITE ?$PIECE(COL,U,GMI+1),$SELECT(GMTSMVF:"CM(IN)",1:"IN(CM)")
+4 IF $PIECE(HDR(GMI),U)="WT"
WRITE ?$PIECE(COL,U,GMI+1),$SELECT(GMTSMVF:"KG(LB)",1:"LB(KG)")
+5 IF $PIECE(HDR(GMI),U)="T"
WRITE ?$PIECE(COL,U,GMI+1),$SELECT(GMTSMVF:"C(F)",1:"F(C)")
End DoDot:1
+6 IF GMTSVMVR>3
SET GMI=""
FOR
SET GMI=$ORDER(HDR(GMI))
if (GMI="")
QUIT
if ('$DATA(HDR(GMI)))!($DATA(GMTSQIT))
QUIT
DO CKP^GMTSUP
Begin DoDot:1
+7 IF $PIECE(HDR(GMI),U)="HT"
WRITE ?$PIECE(COL,U,GMI+1),$SELECT(GMTSMVF:"CM(IN)",1:"IN(CM)")
+8 IF $PIECE(HDR(GMI),U)="WT"
WRITE ?$PIECE(COL,U,GMI+1),$SELECT(GMTSMVF:"KG(LB)",1:"LB(KG)")_"[BMI]"
+9 IF $PIECE(HDR(GMI),U)="T"
WRITE ?$PIECE(COL,U,GMI+1),$SELECT(GMTSMVF:"C(F)",1:"F(C)")
+10 IF $PIECE(HDR(GMI),U)="CVP"
WRITE ?$PIECE(COL,U,GMI+1),$SELECT(GMTSMVF:"MMHG(CMH2O)",1:"CMH2O(MMHG)")
+11 IF $PIECE(HDR(GMI),U)="PO2"
WRITE ?$PIECE(COL,U,GMI+1),"(L/MIN)(%)"
+12 IF $PIECE(HDR(GMI),U)="CG"
WRITE ?$PIECE(COL,U,GMI+1),$SELECT(GMTSMVF:"CM(IN)",1:"IN(CM)")
End DoDot:1
+13 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
WRITE !!
+14 QUIT
WRT ; Writes vitals record for one observation time
+1 NEW GMLEN,GMTSBMI,GMTSI,GMTSVAL,GMTDT,GMTSVI,GMTSVT,GMTSMET,GMTSPERC,GMTSLMIN,GMTSQUAL,IEN,X
+2 SET GMTSVI=""
SET X=9999999-GMTSDT
DO REGDTM4^GMTSU
SET GMTDT=X
+3 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
if GMTSNPG
DO WRTHDR
DO WRTHDR1
WRITE GMTDT
+4 IF GMTSVMVR'>3
FOR GMTSI=0:1:5
SET GMTSVI=$ORDER(HDR(GMTSVI))
if GMTSVI=""!($DATA(GMTSQIT))
QUIT
Begin DoDot:1
+5 SET GMTSVT=$PIECE(HDR(GMTSVI),U)
SET IEN=$ORDER(^UTILITY($JOB,"GMRVD",GMTSDT,GMTSVT,0))
+6 IF +IEN
DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
Begin DoDot:2
+7 IF GMTSMVF
IF ("^HT^WT^T^CG^CVP^"[(U_GMTSVT_U))
SET GMTSVAL=$PIECE(^UTILITY($JOB,"GMRVD",GMTSDT,GMTSVT,+IEN),U,13)
+8 IF '$TEST
SET GMTSVAL=$PIECE(^UTILITY($JOB,"GMRVD",GMTSDT,GMTSVT,+IEN),U,8)
+9 WRITE ?$PIECE(COL,U,GMTSI+1),GMTSVAL
+10 IF GMTSMVF
IF ("^HT^WT^T^CG^CVP^"[(U_GMTSVT_U))
SET GMTSMET=$PIECE(^UTILITY($JOB,"GMRVD",GMTSDT,GMTSVT,+IEN),U,8)
+11 IF '$TEST
SET GMTSMET=$PIECE(^UTILITY($JOB,"GMRVD",GMTSDT,GMTSVT,+IEN),U,13)
+12 IF GMTSMET'=""
WRITE "("_GMTSMET_")"
+13 QUIT
End DoDot:2
+14 QUIT
End DoDot:1
+15 IF GMTSVMVR>3
FOR GMTSI=0:1
SET GMTSVI=$ORDER(HDR(GMTSVI))
if GMTSVI=""!($DATA(GMTSQIT))
QUIT
Begin DoDot:1
+16 SET GMTSVT=$PIECE(HDR(GMTSVI),U)
SET IEN=$ORDER(^UTILITY($JOB,"GMRVD",GMTSDT,GMTSVT,0))
+17 IF +IEN
DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
Begin DoDot:2
+18 IF GMTSMVF
IF ("^HT^WT^T^CG^CVP^"[(U_GMTSVT_U))
SET GMTSVAL=$PIECE(^UTILITY($JOB,"GMRVD",GMTSDT,GMTSVT,+IEN),U,13)
+19 IF '$TEST
SET GMTSVAL=$PIECE(^UTILITY($JOB,"GMRVD",GMTSDT,GMTSVT,+IEN),U,8)
+20 ;p.107 changed from "No Response" to "Unable to Respond"
if GMTSVT="PN"&(GMTSVAL=99)
SET GMTSVAL="Unable to Respond"
+21 if GMTSVT="P"&(GMTSVAL?1A.E)
SET GMTSVAL=$EXTRACT(GMTSVAL,1,7)
+22 WRITE ?$PIECE(COL,U,GMTSI+1),GMTSVAL
+23 SET GMTSMET=$PIECE(^UTILITY($JOB,"GMRVD",GMTSDT,GMTSVT,+IEN),U,13,17)
+24 SET GMTSLMIN=$PIECE(GMTSMET,U,3)
SET GMTSPERC=$PIECE(GMTSMET,U,4)
+25 SET GMTSQUAL=$PIECE(GMTSMET,U,5)
if GMTSQUAL]""
SET GMTSQUAL=$EXTRACT(GMTSQUAL,1,15)
+26 SET GMTSBMI=$PIECE(GMTSMET,U,2)
+27 IF GMTSMVF
IF ("^HT^WT^T^CG^CVP^"[(U_GMTSVT_U))
SET GMTSMET=$PIECE(^UTILITY($JOB,"GMRVD",GMTSDT,GMTSVT,+IEN),U,8)
+28 IF '$TEST
SET GMTSMET=$PIECE(GMTSMET,U,1)
+29 ; centigrade/kilos/centimeters
IF GMTSMET'=""
WRITE "("_GMTSMET_")"
+30 ; body mass index
IF GMTSBMI'=""
WRITE "["_GMTSBMI_"]"
+31 ; [liters/min supplemental O2][% supplemental O2]
IF GMTSLMIN'=""!(GMTSPERC'="")
WRITE "["_GMTSLMIN_"]["_GMTSPERC_"]"
+32 ; qualifiers
IF GMTSVT="CG"
IF GMTSQUAL]""
WRITE "["_GMTSQUAL_"]"
+33 QUIT
End DoDot:2
+34 QUIT
End DoDot:1
+35 QUIT
NXTROW ; Get the Next Row of Vital Signs
+1 if $GET(ROW)'>0
QUIT
KILL HDR
SET %X="HDR1(ROW,"
SET %Y="HDR("
DO %XY^%RCR
+2 SET COL=COL(ROW)
KILL %X,%Y
+3 QUIT
