Global: ^AUPNVER

FileMan FileNo	FileMan Filename	Package
9000010.29	V EMERGENCY VISIT RECORD	IHS Patient

Package	Total	Routines
IHS GPRA Information System	20	BGP0D83 BGP0D84 BGP1D83 BGP1D84 BGP2D83 BGP2D84 BGP3D83 BGP3D84 BGP4D83 BGP4D84 BGP5D83 BGP5D84 BGP6D83 BGP6D84 BGP7D83 BGP7D84 BGP8D83 BGP8D84 BGP9D83 BGP9D84
Patient Care Component Table Maintiance	5	APCM11E6 APCM13E6 APCM14E6 APCM24E6 APCM25E6
IHS Emergency Dept Dashboard	1	BEDDUTIS
Local Area Programs	1	AZAXDPM1
Patient Care Component	1	BJPC2P20

Package	Total	Routines
Patient Care Component Table Maintiance	3	APCM14E9 APCM24E9 APCM25E9
Emergency Room	1	AMERVER
IHS Emergency Dept Dashboard	1	BEDDUTIS
Patient Care Component	1	BJPC2P20
Patient Care Component Reports	1	APCLSMU2

Package	Total	FileMan Files
IHS Patient	1	V EMERGENCY VISIT RECORD(#9000010.29)[1208]

Package	Total	FileMan Files
IHS Patient	3	PATIENT(#9000001)[.02] V EMERGENCY VISIT RECORD(#9000010.29)[1208] VISIT(#9000010)[.03]
Scheduling	2	CLINIC STOP(#40.7)[1203] HOSPITAL LOCATION(#44)[1215]
Utility Tables	2	LOCATION(#9999999.06)[.16] VENDOR(#9999999.11)[.16]
Kernel	1	NEW PERSON(#200)[1202, 1204, 1217, 1219, #9000010.2913(.01), #9000010.2914(.01), #9000010.2916(.01)]

Fields, Total: 57

Field #	Name	Loc	Type	Details
.01	FORM ID	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<10)!'(X?1"IHS-114 ER") X` LAST EDITED: `SEP 26, 1996` HELP-PROMPT: `Answer must be 10 characters in length.` DESCRIPTION: This is the entry in the Exam file that represents what type of exam was done at the encounter. TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTEX") CROSS-REFERENCE: `9000010.29^B` 1)= S ^AUPNVER("B",$E(X,1,30),DA)="" 2)= K ^AUPNVER("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.29^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `APR 05, 1988` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDPAT") UNEDITABLE CROSS-REFERENCE: `9000010.29^AC` 1)= S ^AUPNVER("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVER("AC",$E(X,1,30),DA)
.03	VISIT	0;3	POINTER TO VISIT FILE (#9000010)	**********************REQUIRED FIELD********************** VISIT(#9000010) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVER(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 11, 1986` HELP-PROMPT: `Enter the visit date/time for the encounter where the exam was done.` DESCRIPTION: This is the encounter in the Visit file that represents when and where the exam was done. TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDVSIT") SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVER(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` UNEDITABLE CROSS-REFERENCE: `9000010.29^AD` 1)= S ^AUPNVER("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVER("AD",$E(X,1,30),DA) This cross-reference is used for searches by the visit pointer and internal entry number. "AD",VISIT,DA CROSS-REFERENCE: `9000010.29^AV10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT This cross-reference adds and subtracts from the dependent entry count in the VISIT file.
.04	INITIAL ACUITY	0;4	SET	'R' FOR RESUSCITATION (1); 'E' FOR EMERGENT (2); 'U' FOR URGENT (3); 'L' FOR LESS URGENT (4); 'N' FOR ROUTINE (5); LAST EDITED: `JAN 17, 2017` HELP-PROMPT: `This is a site-specified value that indicates severity of visit.`
.05	MEANS OF ARRIVAL	0;5	SET	'A' FOR AMBULANCE; 'P' FOR POLICE; 'POV' FOR POV; 'T' FOR TAXI; 'W' FOR WALKED; 'O' FOR OTHER; 'R' FOR AIR; 'M' FOR MEDIVAC FROM VILLAGE; LAST EDITED: `SEP 27, 2001`
.06	OTHER MEANS OF ARRIVAL	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `SEP 26, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.`
.07	ENTERED ER BY	0;7	SET	'A' FOR AMBULATORY; 'W' FOR WHEEL CHAIR; 'S' FOR STRETCHER; 'C' FOR CARRIED; LAST EDITED: `SEP 26, 1996`
.08	INFORMANT	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 17, 2017` HELP-PROMPT: `Answer must be 1-30 characters in length.`
.09	NOTIFIED	0;9	SET	'R' FOR RELATIVE; 'P' FOR POLICE; 'C' FOR CORONER; LAST EDITED: `SEP 26, 1996`
.11	DISPOSITION OF CARE	0;11	SET	'A' FOR ADMIT; 'T' FOR TRANSFER; 'D' FOR DISCHARGE; 'O' FOR OTHER; 'M' FOR MEDIVAC TRANSFER; 'L' FOR LIFEGUARD; 'E' FOR DIED/EXPIRED; '1' FOR LEFT AMA; LAST EDITED: `SEP 27, 2001`
.12	DISPOSITION IF OTHER	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `SEP 26, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.`
.13	DEPARTURE DATE&TIME	0;13	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 11, 1999`
.14	LEFT AREA	0;14	DATE	INPUT TRANSFORM: `S %DT="ETR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 26, 1996`
.15	CONDITION ON DEPARTURE	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` LAST EDITED: `MAY 04, 1998` HELP-PROMPT: `Answer must be 3-50 characters in length.`
.16	*TRANSFERRED TO	0;16	VARIABLE POINTER	LOCATION(#9999999.06) VENDOR(#9999999.11) LAST EDITED: `JAN 17, 2017`
.17	TRAUMA LEVEL	0;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 19, 2008` HELP-PROMPT: `Type a Number between 1 and 5, 0 Decimal Digits`
.18	FINAL ACUITY	0;18	SET	'1' FOR 1; '2' FOR 2; '3' FOR 3; '4' FOR 4; '5' FOR 5; LAST EDITED: `JAN 17, 2017`
.19	CODE BLUE	0;19	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 17, 2017`
1.01	TRANSFERRED TO	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `JAN 17, 2017` HELP-PROMPT: `Answer must be 1-40 characters in length.`
1.02	TRANSFERRED FROM	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `JAN 17, 2017` HELP-PROMPT: `Answer must be 1-40 characters in length.`
1.03	INJURY	1;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 17, 2017`
1.04	MODE OF TRANSPORT	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 17, 2017` HELP-PROMPT: `Answer must be 1-30 characters in length.`
1.05	TRANSFER ARRIVED BY	1;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `JAN 17, 2017` HELP-PROMPT: `Answer must be 1-40 characters in length.`
1.06	TIME OF DISCHARGE ORDER	1;6	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 17, 2017`
1101	BP AT ARRIVAL	11;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X D:$D(X) BP^AUPNVMSR` LAST EDITED: `FEB 11, 1999` HELP-PROMPT: `Answer must be 1-7 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1102	BP AT FIRST HOUR	11;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X D:$D(X) BP^AUPNVMSR` LAST EDITED: `FEB 11, 1999` HELP-PROMPT: `Answer must be 1-7 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1103	BP AT SECOND HOUR	11;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X D:$D(X) BP^AUPNVMSR` LAST EDITED: `FEB 11, 1999` HELP-PROMPT: `Answer must be 1-7 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1104	BP AT THIRD HOUR	11;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X D:$D(X) BP^AUPNVMSR` LAST EDITED: `FEB 11, 1999` HELP-PROMPT: `Answer must be 1-7 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1105	PULSE ON ARRIVAL	11;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 10, 1999` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
1106	PULSE AT FIRST HOUR	11;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 10, 1999` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
1107	PULSE AT SECOND HOUR	11;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 10, 1999` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
1108	PULSE AT THIRD HOUR	11;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 10, 1999` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits`
1109	RESPIRATION AT ARRIVAL	11;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 11, 1999` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
1110	RESPIRATION AT FIRST HOUR	11;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 11, 1999` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
1111	RESPIRATION AT SECOND HOUR	11;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 11, 1999` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
1112	RESPIRATION AT THIRD HOUR	11;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 11, 1999` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
1113	GCS SCORE ARRIVAL	11;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<3)!(X?.E1"."1N.N)!(X>15&(X<98)) X` LAST EDITED: `FEB 11, 1999` HELP-PROMPT: `Type a Number between 3 and 15 or 99, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1114	GCS AT 1ST HOUR	11;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<3)!(X?.E1"."1N.N)!(X>15&(X<98)) X` LAST EDITED: `MAR 03, 1999` HELP-PROMPT: `Type a Number between 3 and 15 or 99, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1115	GCS AT 2ND HOUR	11;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<3)!(X?.E1"."1N.N)!(X>15&(X<98)) X` LAST EDITED: `MAR 03, 1999` HELP-PROMPT: `Type a Number between 3 and 15 or 99, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1116	GCS AT 3RD HOUR	11;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<3)!(X?.E1"."1N.N)!(X>15&(X<98)) X` LAST EDITED: `MAR 03, 1999` HELP-PROMPT: `Type a Number between 3 and 15 or 99, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1201	EVENT DATE AND TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 08, 1994` HELP-PROMPT: `Enter the date and time the exam was given.` DESCRIPTION: `This is the date and time the exam was given by the provider. This date and time may be different from the visit date and time. For example, for clinic appointment visits, the visit date and time is the date and time of` the appointment, not the time the provider performed the clinical event. The date may be an imprecise date. Date and time may be within 30 days before or after the visit date, with the restriction the date cannot be a future date. TECHNICAL DESCR: `The PCE User Interface, which allows manual entry of data, will be the primary source of the event date and time. The event date prompt defaults to the visit date, and the time is entered to reflect the actual time the` measurement was done. The event date does not have to be the visit date, future date. If a user wants to enter a historical measurement, the user should use the Historical Encounter entry action to document the historical measurement. Historical entries will not be eligible for credit. PCE Data Sources for automatic (scanning) data capture will be blank unless the event date and time are passed to PCE for filing. APCDALVR Variable = APCDALVR("APCDTCDT")
1202	ORDERING PROVIDER	12;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 08, 1994` HELP-PROMPT: `Enter the provider who ordered this exam.` DESCRIPTION: This field can be used to document the provider who ordered the exam. TECHNICAL DESCR: The person entered here must hold the "AK.PROVIDER" security key. APCDALVR Variable = APCDALVR("APCDTPRV") SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"` EXPLANATION: `Select ordering provider` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1203	CLINIC	12;3	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `JUL 09, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTCLN")
1204	ENCOUNTER PROVIDER	12;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 19, 1994` HELP-PROMPT: `Enter the provider who gave the exam.` DESCRIPTION: This is the provider who gave the exam. TECHNICAL DESCR: This person can be any person in the new person file. The person does not have to hold the "AK.PROVIDER" security key. APCDALVR Variable = APCDALVR("APCDTEPR")
1208	PARENT	12;8	POINTER TO V EMERGENCY VISIT RECORD FILE (#9000010.29)	V EMERGENCY VISIT RECORD(#9000010.29) LAST EDITED: `JUL 09, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTPNT")
1209	EXTERNAL KEY	12;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `SEP 25, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTEXK")
1210	OUTSIDE PROVIDER NAME	12;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `SEP 25, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTOPR")
1215	ORDERING LOCATION	12;15	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `FEB 19, 2008`
1216	DATE/TIME ENTERED	12;16	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 23, 2012` CROSS-REFERENCE: `^^TRIGGER^9000010.29^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVER(D0,12)):^(12),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.29,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVER(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.29,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.29^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVER(D0,12)):^(12),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=$$NOW^XLFDT X ^DD(9000010.29,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVER(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.29,DIG=1218 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=$$NOW^XLFDT DELETE VALUE)= NO EFFECT FIELD)= #1218
1217	ENTERED BY	12;17	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 01, 2012` NOTES: `TRIGGERED by the DATE/TIME ENTERED field of the V EMERGENCY VISIT RECORD File`
1218	DATE/TIME LAST MODIFIED	12;18	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 23, 2012` NOTES: `TRIGGERED by the DATE/TIME ENTERED field of the V EMERGENCY VISIT RECORD File` CROSS-REFERENCE: `^^TRIGGER^9000010.29^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVER(D0,12)):^(12),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.29,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVER(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.29,DIG=1219 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1219
1219	LAST MODIFIED BY	12;19	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 01, 2012` NOTES: `TRIGGERED by the DATE/TIME LAST MODIFIED field of the V EMERGENCY VISIT RECORD File`
1300	PROVIDERS	13;0	POINTER Multiple #9000010.2913	9000010.2913
1400	NURSES	14;0	POINTER Multiple #9000010.2914	9000010.2914
1501	COMMENTS	15;0	WORD-PROCESSING #9000010.2915
1600	CONSULTANT	16;0	POINTER Multiple #9000010.2916	9000010.2916
1700	ROOM ASSIGNMENT	17;0	Multiple #9000010.2917	9000010.2917

Customize PDF page

Package: IHS Patient

Global: ^AUPNVER

Information

Description

Directly Accessed By Routines, Total: 28

Accessed By FileMan Db Calls, Total: 7

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 8

Fields, Total: 57