Global: ^AMERVSIT

FileMan FileNo	FileMan Filename	Package
9009080	ER VISIT	Emergency Room

Package	Total	Routines
Emergency Room	23	AMER0 AMERD AMEREDDX AMEREDDY AMEREDIT AMEREDPC AMEREDTA AMEREDTD AMEREDTE AMEREDTT AMEREDTU AMERERS AMERFIX AMEROUT4 AMERP AMERPCC AMERPCC1 AMERPCC2 AMERPCC3 AMERSAV AMERSAV1 AMERTIME AMERVSIT
Patient Care Component Table Maintiance	5	APCM11E6 APCM13E6 APCM14E6 APCM24E6 APCM25E6
IHS Emergency Dept Dashboard	3	BEDDUTID BEDDUTIS BEDDUTIU
IHS GPRA Information System	3	BGPMUH01 BGPMUH05 BGPMUH06
iCare	3	BQICMUTL BQIDCERV BQIDCEUA
IHS Mods To Text Integration Utilities	1	BTIUPCC5
Local Area Programs	1	AZAXDPM1

Package	Total	Routines
Emergency Room	27	AMER0 AMER2A AMER2B AMERD AMEREDDX AMEREDIT AMEREDPC AMEREDTA AMEREDTD AMEREDTE AMEREDTI AMEREDTT AMERERS AMERFIX AMEROUT AMEROUT1 AMERPCC AMERPCC2 AMERPCC3 AMERPOV AMERREP1 AMERREP2 AMERREP3 AMERSAV1 AMERTIME AMERVER AMERVSIT
IHS Emergency Dept Dashboard	4	BEDDSYNC BEDDUTIS BEDDUTIU BEDDUTW
Patient Care Component Reports	2	APCLSMU APCLSMU2
IHS Mods To Text Integration Utilities	1	BTIUPCC7
IHS View Patient Record	1	BVPRP
Patient Care Component	1	APCDK
iCare	1	BQIDCEUA

Package	Total	FileMan Files
Emergency Room	1	ER AUDIT(#9009080.1)[.02]

Package	Total	FileMan Files
Emergency Room	4	ER LOCAL FACILITY(#9009082.1)[6.6, 17.2] ER CONSULTANT TYPE(#9009082.9)[#9009080.019(.01)] ER OPTIONS(#9009083)[.04, .05, .08, .21, .25, 3.3, 3.5, 5.1, 6.1, 7, 17.3, #9009080.02(.01), #9009080.04(.01)] ER INSTRUCTIONS(#9009084)[#9009080.09(.01)]
IHS Patient	2	PATIENT(#9000001)[.02] VISIT(#9000010)[.03]
Kernel	2	INSTITUTION(#4)[6.5] NEW PERSON(#200)[.06, .07, .19, 6.3, 6.4, #9009080.019(.03)]
DRG Grouper	1	ICD DIAGNOSIS(#80)[3.2, 5.2, #9009080.05(.01)]
Utility Tables	1	LOCATION(#9999999.06)[.11]

Fields, Total: 89

Field #	Name	Loc	Type	Details
.01	ADMISSION TIMESTAMP	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 07, 1996` CROSS-REFERENCE: `9009080^B` 1)= S ^AMERVSIT("B",$E(X,1,30),DA)="" 2)= K ^AMERVSIT("B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9009080^.16` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMERVSIT(D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=9999999.9999-DIV X ^DD(9009080,.01,1,2,1.4) 1.1)= S X=DIV S X=9999999.9999,Y(1)=X S X=DIV,X=X S Y=X,X=Y(1),X=X S X=X-Y 1.4)= S DIH=$S($D(^AMERVSIT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,16)=DIV,DIH=9009080,DIG=.16 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= 9999999.9999-ADMISSION TIMESTAMP DELETE VALUE)= NO EFFECT FIELD)= INVER
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) LAST EDITED: `AUG 07, 1996` CROSS-REFERENCE: `9009080^AC` 1)= S ^AMERVSIT("AC",$E(X,1,30),DA)="" 2)= K ^AMERVSIT("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9009080^AE^MUMPS` 1)= S $P(^AMERVSIT(DA,0),U,18)=$P(^DPT(X,0),U,2) 2)= S $P(^AMERVSIT(DA,0),U,18)="" SEX CROSS-REFERENCE: `9009080^AF^MUMPS` 1)= S $P(^AMERVSIT(DA,0),U,19)=$P(^DPT(X,0),U,3) 2)= S $P(^AMERVSIT(DA,0),U,19)="" CROSS-REFERENCE: `9009080^AG^MUMPS` 1)= I $D(DUZ(2)),$D(^AUPNPAT(X,41,DUZ(2))) S $P(^AMERVSIT(DA,0),U,20)=$P(^AUPNPAT(X,41,DUZ(2),0),U,2) 2)= S $P(^AMERVSIT(DA,0),U,20)="" LOCAL CHART NUMBER CROSS-REFERENCE: `9009080^AH^MUMPS` 1)= D REV^AMERD 2)= D KREV^AMERD
.03	VISIT	0;3	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `JAN 07, 1996` CROSS-REFERENCE: `9009080^AD` 1)= S ^AMERVSIT("AD",$E(X,1,30),DA)="" 2)= K ^AMERVSIT("AD",$E(X,1,30),DA)
.04	CLINIC TYPE	0;4	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `JAN 07, 1996`
.05	VISIT TYPE	0;5	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `JAN 07, 1996`
.06	ED PROVIDER	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 01, 2014` HELP-PROMPT: `Type a Number between 0 and 9999999, 4 Decimal Digits` NOTES: `TRIGGERED by the ADMISSION TIMESTAMP field of the ER VISIT File` CROSS-REFERENCE: `9009080^AP` 1)= S ^AMERVSIT("AP",$E(X,1,30),DA)="" 2)= K ^AMERVSIT("AP",$E(X,1,30),DA)
.07	TRIAGE NURSE	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 07, 1996`
.08	INITIAL TRIAGE CATEGORY (OLD)	0;8	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `MAR 07, 2000`
.09	ARRIVE BY AMBULANCE (OLD)	0;9	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 07, 2000`
.11	TRANSFERRED FROM (OLD)	0;11	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `FEB 28, 2000`
.12	DOB	0;12	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 12, 1996` CROSS-REFERENCE: `^^TRIGGER^9009080^.17` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMERVSIT(D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(9009080,.12,1,1,1.1) X ^DD(9009080,.12,1,1,1.4) 1.1)= S X=DIV S X=DT S X=X,X1=X,X2=DIV,X="" D:X2 ^%DTC:X1 S X=X\365.25 1.4)= S DIH=$S($D(^AMERVSIT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=9009080,DIG=.17 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= TODAY-DOB\365.25 DELETE VALUE)= NO EFFECT FIELD)= AGE
.13	LOCAL CHART NUMBER	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `JAN 07, 1996` HELP-PROMPT: `Answer must be 1-9 characters in length.`
.14	AMBULANCE NUMBER	0;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 07, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.`
.15	AMBULANCE INVOICE NUMBER	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 07, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.`
.16	INVERSE TIMESTAMP	0;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."5N.N) X` LAST EDITED: `JAN 07, 1996` HELP-PROMPT: `Type a Number between 0 and 99999999, 4 Decimal Digits` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the ADMISSION TIMESTAMP field of the ER VISIT File` CROSS-REFERENCE: `9009080^AP` 1)= S ^AMERVSIT("AP",$E(X,1,30),DA)="" 2)= K ^AMERVSIT("AP",$E(X,1,30),DA)
.17	AGE ON DAY OF VISIT	0;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 07, 1996` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the DOB field of the ER VISIT File`
.18	SEX	0;18	SET	'F' FOR FEMALE; 'M' FOR MALE; LAST EDITED: `JAN 07, 1996`
.19	DATA ENTERER	0;19	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 07, 1996`
.21	AMBULANCE COMPANY	0;21	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `DEC 30, 1996` DESCRIPTION: Points to the name of a local ambulance company in the options file.
.22	ER CONSULTANT NOTIFIED	0;22	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 01, 2006` HELP-PROMPT: `Enter YES or NO` DESCRIPTION: Was the trauma surgeon notidfied?
.24	INITIAL ACUITY	0;24	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 29, 2000` HELP-PROMPT: `Type a Number between 1 and 5, 0 Decimal Digits`
.25	MODE OF TRANSPORT	0;25	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `FEB 29, 2000`
1	PRESENTING COMPLAINT	1;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `JAN 07, 1996` HELP-PROMPT: `Answer must be 1-240 characters in length.`
2	ALCOHOL OR DRUGS	2;0	POINTER Multiple #9009080.02	9009080.02 LAST EDITED: `MAR 25, 1988` SCREEN: `S DIC("S")="I $P(^(0),U,2)=4"` EXPLANATION: `Limits choices to EER options`
2.1	OCCUPATION RELATED	2.1;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 07, 1996`
2.2	SUBSTANCE SCREEN	2.1;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 16, 1996`
2.3	OCCUPATION	2.1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `MAR 02, 2000` HELP-PROMPT: `Answer must be 1-40 characters in length.`
2.4	INDUSTRY	2.1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `MAR 02, 2000` HELP-PROMPT: `Answer must be 1-40 characters in length.`
3.1	INJURED	3;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 07, 1996`
3.2	CAUSE OF INJURY	3;2	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `JAN 07, 1996`
3.3	SCENE OF INJURY	3;3	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `JAN 07, 1996`
3.4	TIME OF INJURY	3;4	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 07, 1996`
3.5	SAFETY EQUIPMENT	3;5	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `JAN 07, 1996`
3.6	TOWN OF INJURY	3;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAR 02, 2000` HELP-PROMPT: `Answer must be 1-30 characters in length.`
4	PROCEDURES	4;0	POINTER Multiple #9009080.04	9009080.04 LAST EDITED: `MAR 25, 1988`
5	DIAGNOSIS	5;0	POINTER Multiple #9009080.05	9009080.05 LAST EDITED: `JAN 12, 1996`
5.1	FINAL TRIAGE CATEGORY (OLD)	5.1;1	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `MAR 07, 2000`
5.2	PRIMARY DIAGNOSIS	5.1;2	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `FEB 08, 1996`
5.3	PRIMARY DX NARRATIVE	5.1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `AUG 23, 1996` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: Provider narrative of the primary diagnosis.
5.4	FINAL ACUITY	5.1;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 29, 2000` HELP-PROMPT: `Type a Number between 1 and 5, 0 Decimal Digits`
6.1	DISPOSITION	6;1	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `JAN 07, 1996`
6.2	DEPARTURE TIME	6;2	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 07, 1996`
6.3	DISCHARGE PROVIDER	6;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `AUG 14, 1996`
6.4	DISCHARGE NURSE	6;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 07, 1996`
6.5	TRANSFER TO (OLD)	6;5	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `FEB 28, 2000`
6.6	TRANSFER TO (NEW)	6;6	POINTER TO ER LOCAL FACILITY FILE (#9009082.1)	ER LOCAL FACILITY(#9009082.1) LAST EDITED: `FEB 28, 2000`
7	DISCHARGE INSTRUCTIONS	7;E1,245	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `FEB 06, 1996`
8.1	INJURY TRANSPORT LAG (min)	8;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 06, 2000` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
8.2	REVOLVING DOOR	8;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 07, 1996` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
9	PATIENT EDUCATION MATERIALS	9;0	POINTER Multiple #9009080.09	9009080.09 LAST EDITED: `JAN 12, 1996`
10.1	DATA EXPORT STATUS	HER;1	SET	'1' FOR EXPORT PENDING; '0' FOR EXPORT COMPLETED; '2' FOR EXPORT FAILED; LAST EDITED: `AUG 23, 1996` CROSS-REFERENCE: `9009080^AHER` 1)= S ^AMERVSIT("AHER",$E(X,1,30),DA)="" 2)= K ^AMERVSIT("AHER",$E(X,1,30),DA)
10.2	REASON FOR DATA EXPORT FAILURE	HER;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `JAN 17, 1996` HELP-PROMPT: `Answer must be 1-80 characters in length.`
11.1	ALCOHOL RELATED VISIT	11;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 12, 1996`
11.2	DRUG RELATED VISIT	11;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 12, 1996`
11.3	SUBSTANCE RELATED VISIT	11;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 12, 1996`
11.4	DOA	11;4	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 12, 1996`
11.5	BLOOD ALCOHOL LEVEL (MG/DCL)	11;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 16, 1996` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
12.1	ED PROVIDER TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 01, 2014`
12.2	TRIAGE NURSE TIME	12;2	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 06, 1996`
12.3	WAITING TIME FOR PROV	12;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 14, 1996` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits`
12.4	WAITING TIME FOR TRIAGE	12;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 06, 1996` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits`
12.5	TOTAL VISIT DURATION	12;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 28, 1996` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` DESCRIPTION: Interval in minutes from admission to discharge.
12.6	DATE LAST MODIFIED	12;6	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 29, 2008` DESCRIPTION: Time when trauma surgeon first saw patient.
12.7	WAITING TIME FOR SURGEON	12;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 31, 1996` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: Duration in minutes between patient admision and time he/she was first seen by the trauma surgeon.
12.8	DECISION TO ADMIT DT	12;8	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 14, 2014`
13.1	EXACT MVC LOCATION	13;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-100 characters in length.` DESCRIPTION: Free text description of MVC.
13.2	DRIVER INSURANCE COMPANY	13;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Name of driver's insurance company.
13.3	DRIVER POLICY NUMBER	13;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: Driver's policy number.
13.4	OWNER NAME	13;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Owner's name (if different than driver).
13.5	OWNER INSURANCE CO	13;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Owner insurance company (if different than driver).
13.6	OWNER POLICY NUMBER	13;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: Policy number of the vehicle's owner.
14.1	SECOND VEHICLE INVOLVED	14;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 30, 1996` DESCRIPTION: Was a second vehicle involved?
14.2	SV DRIVER NAME	14;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Name of the driver of the second vehicle.
14.3	SV DRIVER INSURANCE CO	14;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Insurance company of the driver of the second vehicle.
14.4	SV DRIVER POLICY NUMBER	14;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: Policy number of the driver of the second vehicle.
14.5	SV OWNER NAME	14;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Name of owner of the second vehicle (if different than driver).
14.6	SV OWNER INSURANCE CO	14;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Insurance company of the owner of the second vehicle.
14.7	SV OWNER POLICY NUMBER	14;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: Policy number of the second vehicle's owner.
15.1	ANOTHER PARTY RESPONSIBLE	15;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 30, 1996` DESCRIPTION: Was another party responsible for the injury?
15.2	RP NAME	15;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Name of responsible party or business/company.
15.3	RP ADDRESS	15;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-100 characters in length.` DESCRIPTION: Mailing address of the responsible party.
15.4	RP PHONE	15;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: Phone number of the responsible party.
16	DESCRIPTION OF WHAT HAPPENED	16;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Answer must be 1-240 characters in length.` DESCRIPTION: Brief description of hiow the patient was injured.
17.1	TRANSFERRED	17;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 01, 2000`
17.2	TRANSFERRED FROM (NEW)	17;2	POINTER TO ER LOCAL FACILITY FILE (#9009082.1)	ER LOCAL FACILITY(#9009082.1) LAST EDITED: `MAR 01, 2000`
17.3	ARRIVED BY	17;3	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `MAR 01, 2000`
17.4	TRANSFER ATTENDANT	17;4	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 01, 2000`
18	HER TRANSFER FACILITY	18;0	Multiple #9009080.018	9009080.018
19	ER CONSULTANTS	19;0	POINTER Multiple #9009080.019	9009080.019 DESCRIPTION: Sub-record to record type, person and time of each ER CONSULTANT associated to this visit

Customize PDF page

Package: Emergency Room

Global: ^AMERVSIT

Information

Description

Directly Accessed By Routines, Total: 41

Accessed By FileMan Db Calls, Total: 37

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 10

Fields, Total: 89