Routine: GMVGETVT

Information

GMVGETVT ;HOIFO/FT-GET VITAL TYPE INFORMATION ;2/26/07 15:35

Source file <GMVGETVT.m>

Package	Total	Call Graph
Kernel	1	$$UP^XLFSTR
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
General Medical Record - Vitals	4	GMVGETC GMVGETD GMVGETQL GMVUTL

Name	Comments	DBIA/ICR reference
UPPER(GMVX)	; Change text to uppercase ; Input: GMVX - string ; Output: string converted to uppercase
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
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
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
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

Name	Field # of Occurrence
$$GET1^DIQ	FIELD+18, FIELD+19, FIELD+20, FIELD+21, FIELD+22
$$UP^XLFSTR	UPPER+4

FileNo	Call Tags
^GMRD(120.51 - [#120.51]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^GMRD(120.51 - [#120.51]	GETIEN+13, GETIEN+14, GETIEN+15, GETIEN+16, LIST+24, LIST+26, LIST+27

Name	Field # of Occurrence
GMVARRAY	LIST~
GMVARRAY(	LIST+34*
GMVARRAY(0	LIST+37*
GMVCNT	LIST+17~, LIST+22, LIST+32, LIST+34, LIST+37
GMVFIELD	FIELD~, FIELD+14, FIELD+18, FIELD+19, FIELD+20, FIELD+21, FIELD+22
GMVFLD	LIST+17~
GMVFLD(	LIST+31*
GMVFLD(1	LIST+34
GMVFLD(2	LIST+34
GMVFLD(3	LIST+34
GMVFLD(4	LIST+34
GMVFLD(5	LIST+34
GMVFMT	FIELD~, FIELD+15, FIELD+16, FIELD+17, FIELD+18, FIELD+19, FIELD+20, FIELD+21, FIELD+22, LIST~ , LIST+19, LIST+20, LIST+21, LIST+31
GMVIEN	FIELD~, FIELD+13, FIELD+18, FIELD+19, FIELD+20, FIELD+21, FIELD+22, LIST+17~, LIST+25, LIST+26 , LIST+27, LIST+31, LIST+34
GMVLOOP	LIST+17~, LIST+30*, LIST+31
GMVNAME	LIST+17~, LIST+22, LIST+24, LIST+26
GMVNODE	LIST+17~, LIST+27*, LIST+28, LIST+29
GMVTYPES	LIST+17~, LIST+23*, LIST+29
GMVX	GETIEN~, GETIEN+10, GETIEN+13, GETIEN+14, GETIEN+15, GETIEN+16, UPPER~, UPPER+3*, UPPER+4
GMVY	GETIEN~, GETIEN+11, GETIEN+13, GETIEN+14, GETIEN+15, GETIEN+16
U	LIST+29, LIST+34