GMRVED2 ;HIOFO/RM,YH,FT-VITAL SIGNS EDIT SHORT FORM ;11/15/04 10:30
;;5.0;GEN. MED. REC. - VITALS;**2**;Oct 31, 2002
;
; This routine uses the following IAs:
; #10035 - ^DPT( references (supported)
; #10061 - ^VADPT calls (supported)
; #10103 - ^XLFDT calls (supported)
; #10104 - ^XLFSTR calls (supported)
;
EN1 ; SORT PATIENTS ON WARD
K ^TMP($J)
WSA1 ; SET ^TMP($J, FOR SORT
D DEM^VADPT,INP^VADPT S GMRRMBD=$S(VAIN(5)'="":VAIN(5),1:" BLANK"),GMRNAM=$S(VADM(1)'="":VADM(1),1:" BLANK") D KVAR^VADPT K VA
S:$S("Aa"[GMREDB:1,$D(GMRROOM($P(GMRRMBD,"-"))):1,1:0) ^TMP($J,GMRRMBD,GMRNAM,DFN)=""
S DFN=$O(^DPT("CN",GMRWARD(1),DFN))
Q:DFN="" G WSA1
EN2 ; BEGIN EDITING WARD VITALS
I $O(^TMP($J,0))="" S GMROUT=1 Q
W !,"Begin entering patient vitals." S GMRDT0=GMRVIDT
S GMRRMBD="" F GMRI=0:0 S GMRRMBD=$O(^TMP($J,GMRRMBD)) Q:GMRRMBD=""!GMROUT S GMRNAM="" F GMRI=0:0 S GMRNAM=$O(^TMP($J,GMRRMBD,GMRNAM)) Q:GMRNAM=""!GMROUT F DFN=0:0 S DFN=$O(^TMP($J,GMRRMBD,GMRNAM,DFN)) Q:DFN'>0 D V1 Q:GMROUT
W !,"Enter return to continue" R X:DTIME Q
V1 ;
W !!,$S(GMRNAM'=" BLANK":GMRNAM,1:DFN),?$X+10,$S(GMRRMBD'=" BLANK":GMRRMBD,1:"")," OK? YES// " R GMRX:DTIME
I GMRX="^"!('$T) S GMROUT=1 Q
S GMRX=$$UP^XLFSTR(GMRX) I ((GMRX="")!($E(GMRX)="Y")) K GMRTO S GDT=GMRVIDT D EN1^GMRVADM G:GMROUT&'$D(GMRTO) V2 D EN2^GMRVED3 G:GMROUT&'$D(GMRTO) V2 Q
G:GMRX?1"N".E V2
W !,"ANSWER YES OR NO" G V1
V2 ;
W !!,"Do you wish to stop looping through names? YES//" R GMRX:DTIME
S GMRX=$$UP^XLFSTR(GMRX) I (('$T)!(GMRX="")!($E(GMRX)="Y")!(GMRX="^")) S GMROUT=1 Q
I GMRX?1"N".E S GMROUT=0 Q
W !,"ANSWER YES OR NO" G V2
EN4 ; ENTRY FROM GMRVED0 TO ADD THE PATIENT DATA TO THE 120.5 FILE
D NOW^%DTC S GMRDATE=%
F GMRX=2:1:$L(GMRSTR(0),";")-1 S GMRVITY=$P(GMRSTR(0),";",GMRX) D
. S GMRVIT=$S(GMRVITY="T":"TEMPERATURE",GMRVITY="P":"PULSE",GMRVITY="R":"RESPIRATION",GMRVITY="BP":"BLOOD PRESSURE",GMRVITY="HT":"HEIGHT",GMRVITY="CG":"CIRCUMFERENCE/GIRTH",1:"")
. S:GMRVIT="" GMRVIT=$S(GMRVITY="WT":"WEIGHT",GMRVITY="CVP":"CENTRAL VENOUS PRESSURE",GMRVITY="PO2":"PULSE OXIMETRY",GMRVITY="PN":"PAIN",1:"")
. D:$G(GMRDAT(GMRVITY))'=""&(GMRVIT'="") ADDNODE
Q
ADDNODE ; add data to the 120.5 file
N GMVDTDUN,GMVFDA,GMVIEN
S GMVDTDUN=GMRVIDT
S GMRVIT(1)=$O(^GMRD(120.51,"B",GMRVIT,0))
S GMVDTDUN=$$CHKDT(GMRVIDT,GMRVIT(1))
S GMVFDA(120.5,"+1,",.01)=GMVDTDUN ;Date/Time
S GMVFDA(120.5,"+1,",.02)=DFN ;Patient
S GMVFDA(120.5,"+1,",.03)=GMRVIT(1) ;Vital Type
S GMVFDA(120.5,"+1,",.04)=GMRDATE ;Date Time entered
S GMVFDA(120.5,"+1,",.05)=GMRVHLOC ;Hospital
S GMVFDA(120.5,"+1,",.06)=DUZ ;Entered by (DUZ)
S GMVFDA(120.5,"+1,",1.2)=GMRDAT(GMRVITY) ;Rate
S GMVFDA(120.5,"+1,",1.4)=$G(GMRO2(GMRVITY)) ;Sup 02
S GMVIEN=""
D UPDATE^DIE("","GMVFDA","GMVIEN")
;file any qualifiers
I $D(GMRSITE(GMRVITY))!$D(GMRINF(GMRVITY)) D
.I $G(GMRSITE(GMRVITY))'="" D
..S GDATA=+$P(GMRSITE(GMRVITY),U,2)
..Q:'GDATA
..D ADDQUAL(GMVIEN(1)_"^"_GDATA)
..Q
.I $D(GMRINF(GMRVITY)) D
..S I=0
..F S I=$O(GMRINF(GMRVITY,I)) Q:I'>0 D
...S I(1)=""
...F S I(1)=$O(GMRINF(GMRVITY,I,I(1))) Q:I(1)="" D
....S GDATA=+$P(GMRINF(GMRVITY,I,I(1)),"^")
....Q:'GDATA
....D ADDQUAL(GMVIEN(1)_"^"_GDATA)
....Q
...Q
..Q
.Q
S DA=+GMVIEN(1)
I GMREDB="P1" S GMRVIEN(GMRVITY)=DA_"^"_GMRDAT(GMRVITY)_"^"_$G(GMRSITE(GMRVITY))
S:GMRENTY>4 GLAST=GMRVIDT,GLAST(1)=$G(GLAST(1))+1
Q
XREF(DA) ; Set cross-references for FILE 120.5 entry
; Execute SET logic only. Set's all cross-references for this entry.
; DA is the record number
N DIC,DIK,X,Y
Q:'DA
S DIK="^GMR(120.5,"
D IX1^DIK
Q
XREF1(DA) ; Set cross-references for FILE 120.5 entry
; Execute SET logic only. Set's all cross-references for this entry.
; DA is the record number
N DIC,DIK,GMRVDA,GMRVIEN,X,Y
Q:'DA
S GMRVIEN=0,GMRVDA=DA
F S GMRVIEN=$O(^GMR(120.5,GMRVDA,5,GMRVIEN)) Q:'GMRVIEN D
.S DA(1)=GMRVDA,DA=GMRVIEN
.S DIK="^GMR(120.5,DA(1),5,"
.D IX1^DIK
.Q
Q
SETPRMT ; SET VITAL TYPE PATTERN MATCH
S G=$P(GMRSTR(0),";",GMRX)
S GMRHELP=GMRHELP_$S(G="P":"PPP",G="WT":"WWW.WW",G="R":"RR",G="CG":"NNN.NN",G="CVP":"NN",G="PO2":"NNN",G="HT":"HH",G="BP":"BBB/BBB/BBB (or BBB/BBB)",G="T":"TTT.T",G="PN":"NN",1:"")_$S(GMRX'=($L(GMRSTR(0),";")-1):"-",1:"")
S GMRHELP(1)=GMRHELP(1)_$S(GMRHELP(1)'="":",",1:"")_$P(GMRSTR(0),";",GMRX)_"^GMRVUT1"
S GMRPRMT=GMRPRMT_$S(G="T":"Temp",G="P":"Pulse",G="WT":"Wt.",G="R":"Resp",G="HT":"Ht.",G="BP":"BP",G="CG":"Circumference/Girth",G="CVP":"CVP",G="PO2":"PO2",G="PN":"Pain",1:"")_$S(GMRX'=($L(GMRSTR(0),";")-1):"-",1:"")
Q
CHKDT(GMVDT,GMVSAV) ;Check if there is an entry for that date & time
N GMVA,GMVTY
S GMVA=0
F S GMVA=$O(^GMR(120.5,"B",GMVDT,GMVA)) Q:'GMVA D
.I DFN'=$P($G(^GMR(120.5,GMVA,0)),U,2) Q
.S GMVTY=$P($G(^GMR(120.5,GMVA,0)),"^",3)
.I GMVTY=GMVSAV D
..S GMVDT=$$FMADD^XLFDT(GMVDT,"","","",1)
..Q
.Q
Q GMVDT
;
ADDQUAL(GMRVDATA) ; Add qualifiers to FILE 120.5 entry
; ADD QUALIFIER TO 120.505 SUBFILE
; Input:
; GMRVDATA=120.5 IEN^QUALIFIER (120.52) IEN
;
N GMVCNT,GMVERR,GMVFDA,GMVOKAY,GMRVIEN,GMRVQUAL
S GMRVIEN=+$P(GMRVDATA,"^",1) ;File 120.5 ien
S GMRVQUAL=+$P(GMRVDATA,"^",2) ;File 120.52 ien
; Does File 120.5 entry exist?
I '$D(^GMR(120.5,GMRVIEN,0)) Q
; Is the qualifier already stored?
I $O(^GMR(120.5,GMRVIEN,5,"B",GMRVQUAL,0))>0 Q
; Legitimate Qualifier?
I '$D(^GMRD(120.52,GMRVQUAL,0)) Q
S GMVCNT=0 ;counter for number of tries to lock an entry
B2 ; Lock the entry
I GMVCNT>3 Q ;4 strikes and you're out
L +^GMR(120.5,GMRVIEN,0):1
S GMVCNT=GMVCNT+1
I '$T L -^GMR(120.5,GMRVIEN,0) G B2
; Store the qualifier
S GMVFDA(120.505,"+1,"_GMRVIEN_",",.01)=GMRVQUAL
D UPDATE^DIE("","GMVFDA","GMVOKAY","GMVERR")
L -^GMR(120.5,GMRVIEN,0)
Q
GMRVED2 ;HIOFO/RM,YH,FT-VITAL SIGNS EDIT SHORT FORM ;11/15/04 10:30
+1 ;;5.0;GEN. MED. REC. - VITALS;**2**;Oct 31, 2002
+2 ;
+3 ; This routine uses the following IAs:
+4 ; #10035 - ^DPT( references (supported)
+5 ; #10061 - ^VADPT calls (supported)
+6 ; #10103 - ^XLFDT calls (supported)
+7 ; #10104 - ^XLFSTR calls (supported)
+8 ;
EN1 ; SORT PATIENTS ON WARD
+1 KILL ^TMP($JOB)
WSA1 ; SET ^TMP($J, FOR SORT
+1 DO DEM^VADPT
DO INP^VADPT
SET GMRRMBD=$SELECT(VAIN(5)'="":VAIN(5),1:" BLANK")
SET GMRNAM=$SELECT(VADM(1)'="":VADM(1),1:" BLANK")
DO KVAR^VADPT
KILL VA
+2 IF $SELECT("Aa"[GMREDB
SET ^TMP($JOB,GMRRMBD,GMRNAM,DFN)=""
+3 SET DFN=$ORDER(^DPT("CN",GMRWARD(1),DFN))
+4 IF DFN=""
QUIT
GOTO WSA1
EN2 ; BEGIN EDITING WARD VITALS
+1 IF $ORDER(^TMP($JOB,0))=""
SET GMROUT=1
QUIT
+2 WRITE !,"Begin entering patient vitals."
SET GMRDT0=GMRVIDT
+3 SET GMRRMBD=""
FOR GMRI=0:0
SET GMRRMBD=$ORDER(^TMP($JOB,GMRRMBD))
IF GMRRMBD=""!GMROUT
QUIT
SET GMRNAM=""
FOR GMRI=0:0
SET GMRNAM=$ORDER(^TMP($JOB,GMRRMBD,GMRNAM))
IF GMRNAM=""!GMROUT
QUIT
FOR DFN=0:0
SET DFN=$ORDER(^TMP($JOB,GMRRMBD,GMRNAM,DFN))
IF DFN'>0
QUIT
DO V1
IF GMROUT
QUIT
+4 WRITE !,"Enter return to continue"
READ X:DTIME
QUIT
V1 ;
+1 WRITE !!,$SELECT(GMRNAM'=" BLANK":GMRNAM,1:DFN),?$X+10,$SELECT(GMRRMBD'=" BLANK":GMRRMBD,1:"")," OK? YES// "
READ GMRX:DTIME
+2 IF GMRX="^"!('$TEST)
SET GMROUT=1
QUIT
+3 SET GMRX=$$UP^XLFSTR(GMRX)
IF ((GMRX="")!($EXTRACT(GMRX)="Y"))
KILL GMRTO
SET GDT=GMRVIDT
DO EN1^GMRVADM
IF GMROUT&'$DATA(GMRTO)
GOTO V2
DO EN2^GMRVED3
IF GMROUT&'$DATA(GMRTO)
GOTO V2
QUIT
+4 IF GMRX?1"N".E
GOTO V2
+5 WRITE !,"ANSWER YES OR NO"
GOTO V1
V2 ;
+1 WRITE !!,"Do you wish to stop looping through names? YES//"
READ GMRX:DTIME
+2 SET GMRX=$$UP^XLFSTR(GMRX)
IF (('$TEST)!(GMRX="")!($EXTRACT(GMRX)="Y")!(GMRX="^"))
SET GMROUT=1
QUIT
+3 IF GMRX?1"N".E
SET GMROUT=0
QUIT
+4 WRITE !,"ANSWER YES OR NO"
GOTO V2
EN4 ; ENTRY FROM GMRVED0 TO ADD THE PATIENT DATA TO THE 120.5 FILE
+1 DO NOW^%DTC
SET GMRDATE=%
+2 FOR GMRX=2:1:$LENGTH(GMRSTR(0),";")-1
SET GMRVITY=$PIECE(GMRSTR(0),";",GMRX)
Begin DoDot:1
+3 SET GMRVIT=$SELECT(GMRVITY="T":"TEMPERATURE",GMRVITY="P":"PULSE",GMRVITY="R":"RESPIRATION",GMRVITY="BP":"BLOOD PRESSURE",GMRVITY="HT":"HEIGHT",GMRVITY="CG":"CIRCUMFERENCE/GIRTH",1:"")
+4 IF GMRVIT=""
SET GMRVIT=$SELECT(GMRVITY="WT":"WEIGHT",GMRVITY="CVP":"CENTRAL VENOUS PRESSURE",GMRVITY="PO2":"PULSE OXIMETRY",GMRVITY="PN":"PAIN",1:"")
+5 IF $GET(GMRDAT(GMRVITY))'=""&(GMRVIT'="")
DO ADDNODE
End DoDot:1
+6 QUIT
ADDNODE ; add data to the 120.5 file
+1 NEW GMVDTDUN,GMVFDA,GMVIEN
+2 SET GMVDTDUN=GMRVIDT
+3 SET GMRVIT(1)=$ORDER(^GMRD(120.51,"B",GMRVIT,0))
+4 SET GMVDTDUN=$$CHKDT(GMRVIDT,GMRVIT(1))
+5 ;Date/Time
SET GMVFDA(120.5,"+1,",.01)=GMVDTDUN
+6 ;Patient
SET GMVFDA(120.5,"+1,",.02)=DFN
+7 ;Vital Type
SET GMVFDA(120.5,"+1,",.03)=GMRVIT(1)
+8 ;Date Time entered
SET GMVFDA(120.5,"+1,",.04)=GMRDATE
+9 ;Hospital
SET GMVFDA(120.5,"+1,",.05)=GMRVHLOC
+10 ;Entered by (DUZ)
SET GMVFDA(120.5,"+1,",.06)=DUZ
+11 ;Rate
SET GMVFDA(120.5,"+1,",1.2)=GMRDAT(GMRVITY)
+12 ;Sup 02
SET GMVFDA(120.5,"+1,",1.4)=$GET(GMRO2(GMRVITY))
+13 SET GMVIEN=""
+14 DO UPDATE^DIE("","GMVFDA","GMVIEN")
+15 ;file any qualifiers
+16 IF $DATA(GMRSITE(GMRVITY))!$DATA(GMRINF(GMRVITY))
Begin DoDot:1
+17 IF $GET(GMRSITE(GMRVITY))'=""
Begin DoDot:2
+18 SET GDATA=+$PIECE(GMRSITE(GMRVITY),U,2)
+19 IF 'GDATA
QUIT
+20 DO ADDQUAL(GMVIEN(1)_"^"_GDATA)
+21 QUIT
End DoDot:2
+22 IF $DATA(GMRINF(GMRVITY))
Begin DoDot:2
+23 SET I=0
+24 FOR
SET I=$ORDER(GMRINF(GMRVITY,I))
IF I'>0
QUIT
Begin DoDot:3
+25 SET I(1)=""
+26 FOR
SET I(1)=$ORDER(GMRINF(GMRVITY,I,I(1)))
IF I(1)=""
QUIT
Begin DoDot:4
+27 SET GDATA=+$PIECE(GMRINF(GMRVITY,I,I(1)),"^")
+28 IF 'GDATA
QUIT
+29 DO ADDQUAL(GMVIEN(1)_"^"_GDATA)
+30 QUIT
End DoDot:4
+31 QUIT
End DoDot:3
+32 QUIT
End DoDot:2
+33 QUIT
End DoDot:1
+34 SET DA=+GMVIEN(1)
+35 IF GMREDB="P1"
SET GMRVIEN(GMRVITY)=DA_"^"_GMRDAT(GMRVITY)_"^"_$GET(GMRSITE(GMRVITY))
+36 IF GMRENTY>4
SET GLAST=GMRVIDT
SET GLAST(1)=$GET(GLAST(1))+1
+37 QUIT
XREF(DA) ; Set cross-references for FILE 120.5 entry
+1 ; Execute SET logic only. Set's all cross-references for this entry.
+2 ; DA is the record number
+3 NEW DIC,DIK,X,Y
+4 IF 'DA
QUIT
+5 SET DIK="^GMR(120.5,"
+6 DO IX1^DIK
+7 QUIT
XREF1(DA) ; Set cross-references for FILE 120.5 entry
+1 ; Execute SET logic only. Set's all cross-references for this entry.
+2 ; DA is the record number
+3 NEW DIC,DIK,GMRVDA,GMRVIEN,X,Y
+4 IF 'DA
QUIT
+5 SET GMRVIEN=0
SET GMRVDA=DA
+6 FOR
SET GMRVIEN=$ORDER(^GMR(120.5,GMRVDA,5,GMRVIEN))
IF 'GMRVIEN
QUIT
Begin DoDot:1
+7 SET DA(1)=GMRVDA
SET DA=GMRVIEN
+8 SET DIK="^GMR(120.5,DA(1),5,"
+9 DO IX1^DIK
+10 QUIT
End DoDot:1
+11 QUIT
SETPRMT ; SET VITAL TYPE PATTERN MATCH
+1 SET G=$PIECE(GMRSTR(0),";",GMRX)
+2 SET GMRHELP=GMRHELP_$SELECT(G="P":"PPP",G="WT":"WWW.WW",G="R":"RR",G="CG":"NNN.NN",G="CVP":"NN",G="PO2":"NNN",G="HT":"HH",G="BP":"BBB/BBB/BBB (or BBB/BBB)",G="T":"TTT.T",G="PN":"NN",1:"")_$SELECT(GMRX'=($LENGTH(GMRSTR(0),";")-1):"-",1:"")
+3 SET GMRHELP(1)=GMRHELP(1)_$SELECT(GMRHELP(1)'="":",",1:"")_$PIECE(GMRSTR(0),";",GMRX)_"^GMRVUT1"
+4 SET GMRPRMT=GMRPRMT_$SELECT(G="T":"Temp",G="P":"Pulse",G="WT":"Wt.",G="R":"Resp",G="HT":"Ht.",G="BP":"BP",G="CG":"Circumference/Girth",G="CVP":"CVP",G="PO2":"PO2",G="PN":"Pain",1:"")_$SELECT(GMRX'=($LENGTH(GMRSTR(0),";")-1):"-",1:"")
+5 QUIT
CHKDT(GMVDT,GMVSAV) ;Check if there is an entry for that date & time
+1 NEW GMVA,GMVTY
+2 SET GMVA=0
+3 FOR
SET GMVA=$ORDER(^GMR(120.5,"B",GMVDT,GMVA))
IF 'GMVA
QUIT
Begin DoDot:1
+4 IF DFN'=$PIECE($GET(^GMR(120.5,GMVA,0)),U,2)
QUIT
+5 SET GMVTY=$PIECE($GET(^GMR(120.5,GMVA,0)),"^",3)
+6 IF GMVTY=GMVSAV
Begin DoDot:2
+7 SET GMVDT=$$FMADD^XLFDT(GMVDT,"","","",1)
+8 QUIT
End DoDot:2
+9 QUIT
End DoDot:1
+10 QUIT GMVDT
+11 ;
ADDQUAL(GMRVDATA) ; Add qualifiers to FILE 120.5 entry
+1 ; ADD QUALIFIER TO 120.505 SUBFILE
+2 ; Input:
+3 ; GMRVDATA=120.5 IEN^QUALIFIER (120.52) IEN
+4 ;
+5 NEW GMVCNT,GMVERR,GMVFDA,GMVOKAY,GMRVIEN,GMRVQUAL
+6 ;File 120.5 ien
SET GMRVIEN=+$PIECE(GMRVDATA,"^",1)
+7 ;File 120.52 ien
SET GMRVQUAL=+$PIECE(GMRVDATA,"^",2)
+8 ; Does File 120.5 entry exist?
+9 IF '$DATA(^GMR(120.5,GMRVIEN,0))
QUIT
+10 ; Is the qualifier already stored?
+11 IF $ORDER(^GMR(120.5,GMRVIEN,5,"B",GMRVQUAL,0))>0
QUIT
+12 ; Legitimate Qualifier?
+13 IF '$DATA(^GMRD(120.52,GMRVQUAL,0))
QUIT
+14 ;counter for number of tries to lock an entry
SET GMVCNT=0
B2 ; Lock the entry
+1 ;4 strikes and you're out
IF GMVCNT>3
QUIT
+2 LOCK +^GMR(120.5,GMRVIEN,0):1
+3 SET GMVCNT=GMVCNT+1
+4 IF '$TEST
LOCK -^GMR(120.5,GMRVIEN,0)
GOTO B2
+5 ; Store the qualifier
+6 SET GMVFDA(120.505,"+1,"_GMRVIEN_",",.01)=GMRVQUAL
+7 DO UPDATE^DIE("","GMVFDA","GMVOKAY","GMVERR")
+8 LOCK -^GMR(120.5,GMRVIEN,0)
+9 QUIT
