Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^ANSR

Package: Nursing Acuity

Global: ^ANSR

Information

FileMan FileNo	FileMan Filename	Package
9009052	ANS NURSE ACUITY RECORD	Nursing Acuity

Description

The ANS NURSE ACUITY RECORD file is used to store the acuity assessment for each patient on each shift. As the acuity assessment is completed on each patient, this file contains the fields for the date, patient name, assess- ment for each category, etc. This data is then used for all the calcula- tions of individual patient acuity and for the unit staffing and efficiency.

Directly Accessed By Routines, Total: 19

Package	Total	Routines
Nursing Acuity	18	ANSEA ANSEA1 ANSEA2 ANSEAD ANSEAD1 ANSEAD2 ANSEAD3 ANSEAF ANSEAV ANSQPAA ANSQPAS ANSQPP ANSQPS ANSQRS ANSQSS ANSUCK ANSUPT ANSUWR
Local Area Programs	1	AZAXDPM1

Accessed By FileMan Db Calls, Total: 6

Package	Total	Routines
Nursing Acuity	6	ANSEA1 ANSEA2 ANSEAD2 ANSEAD3 ANSUAD ANSUEU

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Nursing Acuity	1	ANS NURSE ACUITY RECORD(#9009052)[.06, 6]

Pointer To FileMan Files, Total: 6

Package	Total	FileMan Files
Nursing Acuity	4	ANS NURSING CARE AREA(#9009059)[#9009052.1(.01)] ANS NURSING UNIT(#9009059.1)[.03, 3] ANS NURSING CARE ADJUSTMENTS(#9009059.3)[#9009052.01(.01)] ANS NURSE ACUITY RECORD(#9009052)[.06, 6]
IHS Patient	1	PATIENT(#9000001)[.04]
Kernel	1	NEW PERSON(#200)[.07]

Fields, Total: 15

Field #	Name	Loc	Type	Details
.01	DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 13, 1996` HELP-PROMPT: `Enter the date for which this record was made.` DESCRIPTION: Enter the date for which this record was made. CROSS-REFERENCE: `9009052^B` 1)= S ^ANSR("B",$E(X,1,30),DA)="" 2)= K ^ANSR("B",$E(X,1,30),DA) CROSS-REFERENCE: `9009052^AB^MUMPS` 1)= I X]"" S ANSX=$G(^ANSR(+$G(DA),0)) S:$P(ANSX,U,2)&$P(ANSX,U,3) ^ANSR("AB",X,$P(ANSX,U,3),$P(ANSX,U,2),DA)="" 2)= I X]"" S ANSX=$G(^ANSR(+$G(DA),0)) K:$P(ANSX,U,2)&$P(ANSX,U,3) ^ANSR("AB",X,$P(ANSX,U,3),$P(ANSX,U,2),DA)
.02	SHIFT	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 13, 1996` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 3` DESCRIPTION: Enter the shift for which this record was entered. CROSS-REFERENCE: `9009052^AB02^MUMPS` 1)= I X]"" S ANSX=$G(^ANSR(+$G(DA),0)) S:+ANSX&$P(ANSX,U,3) ^ANSR("AB",+ANSX,$P(ANSX,U,3),X,DA)="" 2)= I X]"" S ANSX=$G(^ANSR(+$G(DA),0)) K:+ANSX&$P(ANSX,U,3) ^ANSR("AB",+ANSX,$P(ANSX,U,3),X,DA)
.03	UNIT	0;3	POINTER TO ANS NURSING UNIT FILE (#9009059.1)	ANS NURSING UNIT(#9009059.1) LAST EDITED: `MAY 13, 1996` HELP-PROMPT: `Select the appropriate unit from the list.` DESCRIPTION: Enter the UNIT to which the patient was admitted for this record. CROSS-REFERENCE: `9009052^AB03^MUMPS` 1)= I X]"" S ANSX=$G(^ANSR(+$G(DA),0)) S:+ANSX&$P(ANSX,U,2) ^ANSR("AB",+ANSX,X,$P(ANSX,U,2),DA)="" 2)= I X]"" S ANSX=$G(^ANSR(+$G(DA),0)) K:+ANSX&$P(ANSX,U,2) ^ANSR("AM",+ANSX,X,$P(ANSX,U,2),DA)
.04	PATIENT	0;4	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) LAST EDITED: `MAY 13, 1996` HELP-PROMPT: `Select the appropriate patient from the list.` DESCRIPTION: Enter the PATIENT for whom this record was entered. CROSS-REFERENCE: `9009052^PA^MUMPS` 1)= I X="A" S ^ANSR("PA",$P(^DPT(+$P(^ANSR(DA,0),"^",4),0),U,1),DA)="" 2)= I X'="A" K ^ANSR("PA",$P(^DPT(+$P(^ANSR(DA,0),"^",4),0),U,1),DA) CROSS-REFERENCE: `9009052^C` 1)= S ^ANSR("C",$E(X,1,30),DA)="" 2)= K ^ANSR("C",$E(X,1,30),DA)
.05	ENTRY TYPE	0;5	SET	'A' FOR ADMISSION; 'D' FOR DISCHARGE; 'O' FOR OBSERVATION; LAST EDITED: `NOV 13, 1996` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: Enter the type of record. CROSS-REFERENCE: `9009052^PT^MUMPS` 1)= I X="A" S ^ANSR("PT",+$P(^ANSR(DA,0),"^",4),DA)="" 2)= I X="A" K ^ANSR("PT",+$P(^ANSR(DA,0),"^",4),DA) CROSS-REFERENCE: `9009052^PS^MUMPS` 1)= I X="D" K ^ANSR("PT",+$P(^ANSR(DA,0),"^",4)) 2)= I X="D" S ^ANSR("PT",+$P(^ANSR(DA,0),"^",4),+$P(^(0),"^",6))="" CROSS-REFERENCE: `9009052^AD^MUMPS` 1)= I X="A" S ^ANSR("AA",+$P(^ANSR(DA,0),"^",4),9999999-^(0),DA)="" 2)= I X="A" K ^ANSR("AA",+$P(^ANSR(DA,0),"^",4),9999999-^(0),DA)
.06	CORRESPONDING ADMISSION	0;6	POINTER TO ANS NURSE ACUITY RECORD FILE (#9009052)	ANS NURSE ACUITY RECORD(#9009052) LAST EDITED: `MAY 13, 1996` HELP-PROMPT: `Select the appropriate admission from the list.` DESCRIPTION: Enter the admission to which this record relates. CROSS-REFERENCE: `9009052^AT^MUMPS` 1)= S ^ANSR(X,"AT",+^ANSR(DA,0)_"."_$P(^(0),"^",2),DA)="" 2)= K ^ANSR(X,"AT",+^ANSR(DA,0)_"."_$P(^(0),"^",2),DA)
.07	USER	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 13, 1996` HELP-PROMPT: `Select the appropriate individual from the list.` DESCRIPTION: Enter the name of the computer user who entered this record.
1	CARE AREA	L;0	POINTER Multiple #9009052.1	9009052.1 DESCRIPTION: This multiple contains the care area and assessment level for each care area for each patient on each shift.
2	DIAGNOSIS	DX;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<2) X` LAST EDITED: `MAY 13, 1996` HELP-PROMPT: `ANSWER MUST BE 2-40 CHARACTERS IN LENGTH` DESCRIPTION: Enter the patient's current primary diagnosis.
3	CURRENT LOCATION	DX;2	POINTER TO ANS NURSING UNIT FILE (#9009059.1)	ANS NURSING UNIT(#9009059.1) LAST EDITED: `MAY 13, 1996` HELP-PROMPT: `Select the appropriate unit from the list.` DESCRIPTION: Enter the patient's current location. CROSS-REFERENCE: `9009052^PU^MUMPS` 1)= S ^ANSR("PU",DA,$E(X,1,30))="" 2)= K ^ANSR("PU",DA,$E(X,1,30))
4	CURRENT ROOM	DX;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `MAY 14, 1996` HELP-PROMPT: `Answer must be 1-12 characters in length.` DESCRIPTION: Enter the patient's current room number.
5	CURRENT BED	DX;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1) X` LAST EDITED: `MAY 13, 1996` HELP-PROMPT: `ANSWER MUST BE 1-4 CHARACTERS IN LENGTH` DESCRIPTION: Enter the patient's current bed assignment.
6	CORRESPONDING DISCHARGE	DX;5	POINTER TO ANS NURSE ACUITY RECORD FILE (#9009052)	ANS NURSE ACUITY RECORD(#9009052) LAST EDITED: `MAY 13, 1996` HELP-PROMPT: `Select the corresponding discharge from the list.` DESCRIPTION: Enter the corresponding discharge for this record.
10	ADJUSTMENT FACTORS	F;0	POINTER Multiple #9009052.01	9009052.01 DESCRIPTION: This is a multiple field used to list all adjustment factors which affect the acuity level of the patient.
20	LASTEST ASSESSMENT	0;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 13, 1996` HELP-PROMPT: `Enter the date of the latest assessment.` DESCRIPTION: Enter the latest assessment for this patient.

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All