Global: ^AMERADM

FileMan FileNo	FileMan Filename	Package
9009081	ER ADMISSION	Emergency Room

Package	Total	Routines
Emergency Room	6	AMER AMER0 AMER1A AMER3P08 AMERPCC AMERSAV
IHS Emergency Dept Dashboard	3	BEDDADM BEDDUTIL BEDDUTIS
iCare	3	BQICMUTL BQIDCERV BQIDCEUA
IHS Mods To Text Integration Utilities	1	BTIUPCC7
Local Area Programs	1	AZAXDPM1

Package	Total	Routines
Emergency Room	14	AMER AMER0 AMER2 AMER2A AMER2B AMER31 AMER3P08 AMER4 AMERBEDD AMERD AMERPCC AMERSAV AMERUTIL AMERVER
IHS Emergency Dept Dashboard	6	BEDDADM BEDDGET BEDDPRT BEDDTRPT BEDDUTID BEDDUTIU
iCare	2	BQICMUTL BQIDCEUA
IHS Mods To Text Integration Utilities	1	BTIUPCC7

Package	Total	FileMan Files
Emergency Room	2	ER LOCAL FACILITY(#9009082.1)[2.2, 14] ER OPTIONS(#9009083)[2.3, 3, 6, 15]
IHS Patient	2	PATIENT(#9000001)[.01] VISIT(#9000010)[1.1]
Kernel	1	NEW PERSON(#200)[10, 18, 19]

Fields, Total: 25

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) INPUT TRANSFORM: `S:$D(X) DINUM=X Q` LAST EDITED: `AUG 15, 1996` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9009081^B` 1)= S ^AMERADM("B",$E(X,1,30),DA)="" 2)= K ^AMERADM("B",$E(X,1,30),DA)
.02	DOB	0;8	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 09, 1988`
.03	LOCAL CHART NUMBER	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 09, 1988` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits`
.05	SEX	0;5	SET	'M' FOR MALE; 'F' FOR FEMALE; LAST EDITED: `JAN 07, 1996`
1	ER ADMISSION TIMESTAMP	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 07, 1996`
1.1	VISIT	0;3	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `AUG 18, 2006` DESCRIPTION: This is a pointer to the VISIT that is created and updated with the ER VISIT that is pointing to it
2.1	TRANSFERRED	2;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 01, 2000`
2.2	TRANSFERRED FROM	2;2	POINTER TO ER LOCAL FACILITY FILE (#9009082.1)	ER LOCAL FACILITY(#9009082.1) LAST EDITED: `JUN 11, 2003` HELP-PROMPT: `Enter the facility the patient was transferred from`
2.3	MODE OF TRANSPORT	2;3	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `MAR 01, 2000`
2.4	TRANSPORT ATTENDANT	2;4	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 01, 2000`
3	VISIT TYPE	0;4	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `JAN 07, 1996`
4	SAVE SEQUENCE	SAVESEQ;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `MAR 15, 1988` HELP-PROMPT: `ANSWER MUST BE 1-240 CHARACTERS IN LENGTH`
6	MODE OF TRANSPORT	0;6	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `FEB 29, 2000`
8	*PRESENTING COMPLAINT	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `MAY 03, 2016` HELP-PROMPT: `Answer must be 1-60 characters in length.` CROSS-REFERENCE: `^^TRIGGER^9009081^23` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMERADM(D0,23)):^(23),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=X S DIH=$G(^AMERADM(DIV(0),23)),DIV=X S $P(^(23),U,1)=DIV,DIH=9009081,DIG=23 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMERADM(D0,23)):^(23),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=X S DIH=$G(^AMERADM(DIV(0),23)),DIV=X S $P(^(23),U,1)=DIV,DIH=9009081,DIG=23 D ^DICR CREATE VALUE)= S X=X DELETE VALUE)= S X=X FIELD)= PRES
10	DATA ENTRER	0;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 07, 1996`
12	AMBULANCE NUMBER	0;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 03, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: Registration number of ambulance
13	AMBULANCE BILLING NUMBER	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 03, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: Billing number of ambulance
14	TRANSFERED FROM	0;16	POINTER TO ER LOCAL FACILITY FILE (#9009082.1)	ER LOCAL FACILITY(#9009082.1) LAST EDITED: `FEB 29, 2000` DESCRIPTION: Transfer facility
15	AMBULANCE COMPANY	0;17	POINTER TO ER OPTIONS FILE (#9009083)	ER OPTIONS(#9009083) LAST EDITED: `DEC 30, 1996` DESCRIPTION: Name of local ambulance company
18	ADMITTING PROVIDER	0;18	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 08, 2003` HELP-PROMPT: `Please enter the admitting Provider`
19	TRIAGE NURSE	0;19	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 08, 2003` HELP-PROMPT: `Enter the Triage Nurse.`
20	INITIAL ACUITY	0;20	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 08, 2003` HELP-PROMPT: `Type a Number between 1 and 5, 0 Decimal Digits`
21	TRIAGE NURSE TIME	0;21	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 10, 2003`
22	ADMITTING PROV TIME	0;22	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 10, 2003`
23	PRESENTING COMPLAINT	23;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `MAY 03, 2016` HELP-PROMPT: `Answer must be 1-240 characters in length.` NOTES: `TRIGGERED by the *PRESENTING COMPLAINT field of the ER ADMISSION File`

Customize PDF page

Package: Emergency Room

Global: ^AMERADM

Information

Description

Directly Accessed By Routines, Total: 14

Accessed By FileMan Db Calls, Total: 23

Pointer To FileMan Files, Total: 5

Fields, Total: 25