Summary Table
Categories |
Total Count |
PII |
3 |
URL |
0 |
DNS |
0 |
EKL |
0 |
IP |
0 |
PORT |
0 |
VsID |
0 |
CF |
0 |
AI |
0 |
VPD |
0 |
PL |
0 |
Other |
0 |
File Content
unit uGMV_VitalTypes;
interface
type
TVitalType = (
vtUnknown,
vtTemp,
vtPulse,
vtResp,
vtBP,
vtHeight,
vtWeight,
vtPain,
vtPO2,
vtCVP,
vtCircum);
TGMV_ImageIndex = (
iiFolderOpen,
iiFolderClosed,
iiTemplate,
iiDefaultTemplate,
iiSave,
iiDelete,
iiVital,
iiAbnormal);
function VitalTypeByString(aType:String): TVitalType;
function VitalTypeByABBR(aType:String): TVitalType;
function ErrorAbbByString(aCode:String):String;
function VitalAbbByString(aType:String): String;
var
GMVVitalTypeIEN: array[TVItalType] of string = ('-1', '2', '5', '3', '1', '8', '9', '22', '21', '19', '20');
GMVVitalHiRange: array[TVitalType] of Double;
GMVVitalLoRange: array[TVitalType] of Double;
GMVVitalTypeAbbv: array[TVItalType] of string = ('xx', 'T', 'P', 'R', 'BP', 'HT', 'WT', 'PN', 'PO2', 'CVP', 'CG');
implementation
function VitalTypeByABBR(aType:String): TVitalType;
begin
if aType = GMVVitalTypeAbbv[vtTemp] then result := vtTemp
else if aType = GMVVitalTypeAbbv[vtPulse] then result := vtPulse
else if aType = GMVVitalTypeAbbv[vtResp] then result := vtResp
else if aType = GMVVitalTypeAbbv[vtBP] then result := vtBP
else if aType = GMVVitalTypeAbbv[vtHeight] then result := vtHeight
else if aType = GMVVitalTypeAbbv[vtWeight] then result := vtWeight
else if aType = GMVVitalTypeAbbv[vtPain] then result := vtPain
else if aType = GMVVitalTypeAbbv[vtPO2] then result := vtPO2
else if aType = GMVVitalTypeAbbv[vtCVP] then result := vtCVP
else if aType = GMVVitalTypeAbbv[vtCircum] then result := vtCircum
// else if aType = 'BMI' then result := vtBMI //
PII
060913 BMI
else result := vtUnknown;
end;
function VitalTypeByString(aType:String): TVitalType;
begin
if aType = GMVVitalTypeIEN[vtTemp] then result := vtTemp
else if aType = GMVVitalTypeIEN[vtPulse] then result := vtPulse
else if aType = GMVVitalTypeIEN[vtResp] then result := vtResp
else if aType = GMVVitalTypeIEN[vtBP] then result := vtBP
else if aType = GMVVitalTypeIEN[vtHeight] then result := vtHeight
else if aType = GMVVitalTypeIEN[vtWeight] then result := vtWeight
else if aType = GMVVitalTypeIEN[vtPain] then result := vtPain
else if aType = GMVVitalTypeIEN[vtPO2] then result := vtPO2
else if aType = GMVVitalTypeIEN[vtCVP] then result := vtCVP
else if aType = GMVVitalTypeIEN[vtCircum] then result := vtCircum
else result := vtUnknown;
end;
function VitalAbbByString(aType:String): String;
begin
if aType = GMVVitalTypeIEN[vtTemp] then result := 'T'
else if aType = GMVVitalTypeIEN[vtPulse] then result := 'P'
else if aType = GMVVitalTypeIEN[vtResp] then result := 'R'
else if aType = GMVVitalTypeIEN[vtBP] then result := 'BP'
else if aType = GMVVitalTypeIEN[vtHeight] then result := 'HT'
else if aType = GMVVitalTypeIEN[vtWeight] then result := 'WT'
else if aType = GMVVitalTypeIEN[vtPain] then result := 'PN'
else if aType = GMVVitalTypeIEN[vtPO2] then result := 'PO2'
else if aType = GMVVitalTypeIEN[vtCVP] then result := 'CVP'
else if aType = GMVVitalTypeIEN[vtCircum] then result := 'CG'
else result := 'Unk';
end;
function ErrorAbbByString(aCode:String):String;
begin
if aCode = '1' then result := 'Date/Time'
else if aCode = '2' then result := 'Reading'
else if aCode = '3' then result := 'Patient'
else if aCode = '4' then result := 'Record'
else
result := '';
end;
initialization
begin
{GMVVitalHiRange[Vital] all values are US Standard}
GMVVitalHiRange[vtUnknown] := 0;
GMVVitalHiRange[vtTemp] := 120;
GMVVitalHiRange[vtPulse] := 300;
GMVVitalHiRange[vtResp] := 100;
GMVVitalHiRange[vtBP] := 300;
GMVVitalHiRange[vtHeight] := 100;//AAN 07/03/2002 was 300
GMVVitalHiRange[vtWeight] := 1500;//AAN 07/03/2002 was 500
GMVVitalHiRange[vtPain] := 10;
GMVVitalHiRange[vtPO2] := 100;
GMVVitalHiRange[vtCVP] := 136;//AAN 07/03/2002
GMVVitalHiRange[vtCircum] := 200;//AAN 07/03/2002 was 300;
GMVVitalLoRange[vtUnknown] := 0;
GMVVitalLoRange[vtTemp] := 45;
GMVVitalLoRange[vtPulse] := 0;
GMVVitalLoRange[vtResp] := 0;
GMVVitalLoRange[vtBP] := 0;
GMVVitalLoRange[vtHeight] := 10; //
PII
050321. was 0. See Remedy HD0000000068371
GMVVitalLoRange[vtWeight] := 0;
GMVVitalLoRange[vtPain] := 0;
GMVVitalLoRange[vtPO2] := 0;
GMVVitalLoRange[vtCVP] := -13.6;//AAN 07/03/2002 was -10;
GMVVitalLoRange[vtCircum] := 1;//
PII
050706 was 0
end;
end.