GMVGETVT ;HOIFO/FT-GET VITAL TYPE INFORMATION ;2/26/07 15:35
;;5.0;GEN. MED. REC. - VITALS;**23**;Oct 31, 2002;Build 25
;
; This routine uses the following IAs:
; #10104 - ^XLFSTR calls (supported)
;
; This routine supports the following IAs:
; #5047 - FIELD, GETIEN, LIST, TYPES entry points (supported)
;
FIELD(GMVIEN,GMVFIELD,GMVFMT) ; Returns the vital type (FILE 120.51) values
; Input: GMVIEN = File 120.51 internal entry number (required)
; GMVFIELD = field you want (required)
; 1 = Name (.01)
; 2 = Abbreviation (1)
; 3 = PCE Abbreviation (7)
; 4 = VUID (99.99)
; 5 = Master Entry For VUID (99.98)
; GMVFMT = return internal or external value (optional)
; I for Internal, E for External
; default is E
; Output: field value or -1 if there is an error
;
I $G(GMVIEN)="" Q -1
I $G(GMVFIELD)="" Q -1
S GMVFMT=$G(GMVFMT)
S GMVFMT=$$UPPER(GMVFMT)
S GMVFMT=$S(GMVFMT="I":"I",1:"E")
I GMVFIELD=1 Q $$GET1^DIQ(120.51,+GMVIEN,.01,GMVFMT)
I GMVFIELD=2 Q $$GET1^DIQ(120.51,+GMVIEN,1,GMVFMT)
I GMVFIELD=3 Q $$GET1^DIQ(120.51,+GMVIEN,7,GMVFMT)
I GMVFIELD=4 Q $$GET1^DIQ(120.51,+GMVIEN,99.99,GMVFMT)
I GMVFIELD=5 Q $$GET1^DIQ(120.51,+GMVIEN,99.98,GMVFMT)
Q -1
;
GETIEN(GMVX,GMVY) ; Returns the vital type IEN
; Input: GMVX - File 120.51 look up value (required)
; GMVY - index type (required)
; 1 - Name (.01)
; 2 - Abbreviation (1)
; 3 - PCE Abbreviation (7)
; 4 - VUID (99.99)
; Output: File 120.51 internal entry number,
; or null if not found,
; or -1 if there is an error
I $G(GMVX)="" Q -1
I $G(GMVY)="" Q -1
;S GMVX=$$UP^XLFSTR(GMVX) ;make this an input parameter?
I GMVY=1 Q $O(^GMRD(120.51,"B",GMVX,0))
I GMVY=2 Q $O(^GMRD(120.51,"C",GMVX,0))
I GMVY=3 Q $O(^GMRD(120.51,"APCE",GMVX,0))
I GMVY=4 Q $O(^GMRD(120.51,"AVUID",GMVX,0))
Q -1
;
LIST(GMVARRAY,GMVFMT) ; Return list of supported vital types
; Input: GMVARRAY - Array name to return data in (required)
; GMVFMT - return internal or external value (optional)
; I for Internal or E for External
; default is I
; Output: GMVARRAY(0)=piece1
; GMVARRAY(n)=piece2^piece3^piece4^piece5^piece6^piece7
;
; where: piece1 = number of entries found
; piece2 = FILE 120.51 internal entry number (.001)
; piece3 = Name (.01)
; piece4 = Abbreviation (1)
; piece5 = PCE Abbreviation (7)
; piece6 = VUID (99.99)
; piece7 = Master Entry for VUID (99.98)
; n = a sequential number starting with 1
;
N GMVCNT,GMVFLD,GMVIEN,GMVLOOP,GMVNAME,GMVNODE,GMVTYPES
; check if GMVARRAY is defined?
S GMVFMT=$G(GMVFMT)
S GMVFMT=$$UPPER(GMVFMT)
S GMVFMT=$S(GMVFMT="I":"I",1:"E")
S GMVCNT=0,GMVNAME=""
S GMVTYPES=$$TYPES()
F S GMVNAME=$O(^GMRD(120.51,"B",GMVNAME)) Q:GMVNAME="" D
.S GMVIEN=0
.F S GMVIEN=$O(^GMRD(120.51,"B",GMVNAME,GMVIEN)) Q:'GMVIEN D
..S GMVNODE=$G(^GMRD(120.51,GMVIEN,0))
..Q:GMVNODE=""
..Q:GMVTYPES'[$P(GMVNODE,U,2)
..F GMVLOOP=1:1:5 D
...S GMVFLD(GMVLOOP)=$$FIELD(GMVIEN,GMVLOOP,GMVFMT)
..S GMVCNT=GMVCNT+1
..;GMVARRAY(n)=ien^name^abbrev^pce abbrev^vuid^master entry for vuid
..S GMVARRAY(GMVCNT)=GMVIEN_U_GMVFLD(1)_U_GMVFLD(2)_U_GMVFLD(3)_U_GMVFLD(4)_U_GMVFLD(5)
..Q
.Q
S GMVARRAY(0)=GMVCNT
Q
TYPES() ; Returns list of abbreviations for the vitals types currently
; tracked
; Input: none
; Output: string of vital type abbreviations (File 120.51, Field 1
; values) separated by up-arrows
;
Q "BP^CG^CVP^HT^P^PN^PO2^R^T^WT"
;
UPPER(GMVX) ; Change text to uppercase
; Input: GMVX - string
; Output: string converted to uppercase
S GMVX=$G(GMVX)
Q $$UP^XLFSTR(GMVX)
;
GMVGETVT ;HOIFO/FT-GET VITAL TYPE INFORMATION ;2/26/07 15:35
+1 ;;5.0;GEN. MED. REC. - VITALS;**23**;Oct 31, 2002;Build 25
+2 ;
+3 ; This routine uses the following IAs:
+4 ; #10104 - ^XLFSTR calls (supported)
+5 ;
+6 ; This routine supports the following IAs:
+7 ; #5047 - FIELD, GETIEN, LIST, TYPES entry points (supported)
+8 ;
FIELD(GMVIEN,GMVFIELD,GMVFMT) ; Returns the vital type (FILE 120.51) values
+1 ; Input: GMVIEN = File 120.51 internal entry number (required)
+2 ; GMVFIELD = field you want (required)
+3 ; 1 = Name (.01)
+4 ; 2 = Abbreviation (1)
+5 ; 3 = PCE Abbreviation (7)
+6 ; 4 = VUID (99.99)
+7 ; 5 = Master Entry For VUID (99.98)
+8 ; GMVFMT = return internal or external value (optional)
+9 ; I for Internal, E for External
+10 ; default is E
+11 ; Output: field value or -1 if there is an error
+12 ;
+13 IF $GET(GMVIEN)=""
QUIT -1
+14 IF $GET(GMVFIELD)=""
QUIT -1
+15 SET GMVFMT=$GET(GMVFMT)
+16 SET GMVFMT=$$UPPER(GMVFMT)
+17 SET GMVFMT=$SELECT(GMVFMT="I":"I",1:"E")
+18 IF GMVFIELD=1
QUIT $$GET1^DIQ(120.51,+GMVIEN,.01,GMVFMT)
+19 IF GMVFIELD=2
QUIT $$GET1^DIQ(120.51,+GMVIEN,1,GMVFMT)
+20 IF GMVFIELD=3
QUIT $$GET1^DIQ(120.51,+GMVIEN,7,GMVFMT)
+21 IF GMVFIELD=4
QUIT $$GET1^DIQ(120.51,+GMVIEN,99.99,GMVFMT)
+22 IF GMVFIELD=5
QUIT $$GET1^DIQ(120.51,+GMVIEN,99.98,GMVFMT)
+23 QUIT -1
+24 ;
GETIEN(GMVX,GMVY) ; Returns the vital type IEN
+1 ; Input: GMVX - File 120.51 look up value (required)
+2 ; GMVY - index type (required)
+3 ; 1 - Name (.01)
+4 ; 2 - Abbreviation (1)
+5 ; 3 - PCE Abbreviation (7)
+6 ; 4 - VUID (99.99)
+7 ; Output: File 120.51 internal entry number,
+8 ; or null if not found,
+9 ; or -1 if there is an error
+10 IF $GET(GMVX)=""
QUIT -1
+11 IF $GET(GMVY)=""
QUIT -1
+12 ;S GMVX=$$UP^XLFSTR(GMVX) ;make this an input parameter?
+13 IF GMVY=1
QUIT $ORDER(^GMRD(120.51,"B",GMVX,0))
+14 IF GMVY=2
QUIT $ORDER(^GMRD(120.51,"C",GMVX,0))
+15 IF GMVY=3
QUIT $ORDER(^GMRD(120.51,"APCE",GMVX,0))
+16 IF GMVY=4
QUIT $ORDER(^GMRD(120.51,"AVUID",GMVX,0))
+17 QUIT -1
+18 ;
LIST(GMVARRAY,GMVFMT) ; Return list of supported vital types
+1 ; Input: GMVARRAY - Array name to return data in (required)
+2 ; GMVFMT - return internal or external value (optional)
+3 ; I for Internal or E for External
+4 ; default is I
+5 ; Output: GMVARRAY(0)=piece1
+6 ; GMVARRAY(n)=piece2^piece3^piece4^piece5^piece6^piece7
+7 ;
+8 ; where: piece1 = number of entries found
+9 ; piece2 = FILE 120.51 internal entry number (.001)
+10 ; piece3 = Name (.01)
+11 ; piece4 = Abbreviation (1)
+12 ; piece5 = PCE Abbreviation (7)
+13 ; piece6 = VUID (99.99)
+14 ; piece7 = Master Entry for VUID (99.98)
+15 ; n = a sequential number starting with 1
+16 ;
+17 NEW GMVCNT,GMVFLD,GMVIEN,GMVLOOP,GMVNAME,GMVNODE,GMVTYPES
+18 ; check if GMVARRAY is defined?
+19 SET GMVFMT=$GET(GMVFMT)
+20 SET GMVFMT=$$UPPER(GMVFMT)
+21 SET GMVFMT=$SELECT(GMVFMT="I":"I",1:"E")
+22 SET GMVCNT=0
SET GMVNAME=""
+23 SET GMVTYPES=$$TYPES()
+24 FOR
SET GMVNAME=$ORDER(^GMRD(120.51,"B",GMVNAME))
IF GMVNAME=""
QUIT
Begin DoDot:1
+25 SET GMVIEN=0
+26 FOR
SET GMVIEN=$ORDER(^GMRD(120.51,"B",GMVNAME,GMVIEN))
IF 'GMVIEN
QUIT
Begin DoDot:2
+27 SET GMVNODE=$GET(^GMRD(120.51,GMVIEN,0))
+28 IF GMVNODE=""
QUIT
+29 IF GMVTYPES'[$PIECE(GMVNODE,U,2)
QUIT
+30 FOR GMVLOOP=1:1:5
Begin DoDot:3
+31 SET GMVFLD(GMVLOOP)=$$FIELD(GMVIEN,GMVLOOP,GMVFMT)
End DoDot:3
+32 SET GMVCNT=GMVCNT+1
+33 ;GMVARRAY(n)=ien^name^abbrev^pce abbrev^vuid^master entry for vuid
+34 SET GMVARRAY(GMVCNT)=GMVIEN_U_GMVFLD(1)_U_GMVFLD(2)_U_GMVFLD(3)_U_GMVFLD(4)_U_GMVFLD(5)
+35 QUIT
End DoDot:2
+36 QUIT
End DoDot:1
+37 SET GMVARRAY(0)=GMVCNT
+38 QUIT
TYPES() ; Returns list of abbreviations for the vitals types currently
+1 ; tracked
+2 ; Input: none
+3 ; Output: string of vital type abbreviations (File 120.51, Field 1
+4 ; values) separated by up-arrows
+5 ;
+6 QUIT "BP^CG^CVP^HT^P^PN^PO2^R^T^WT"
+7 ;
UPPER(GMVX) ; Change text to uppercase
+1 ; Input: GMVX - string
+2 ; Output: string converted to uppercase
+3 SET GMVX=$GET(GMVX)
+4 QUIT $$UP^XLFSTR(GMVX)
+5 ;
