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 | ICR | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^NURSA(214.6

Package: Nursing Service

Global: ^NURSA(214.6

Information

FileMan FileNo	FileMan Filename	Package
214.6	NURS CLASSIFICATION	Nursing Service

Description

This file contains classification information in a flat file format.

Directly Accessed By Routines, Total: 20

Package	Total	Routines
Nursing Service	19	NURAAU1 NURAAU3 NURACE0 NURACE7 NURACEW0 NURACHDC NURAMB1 NURARCR0 NURARCR1 NURARCRW NURARNCT NURARWL2 NURCAS0 NURCES01 NURSADEL NURSCPLC NURSCUTL ^NURSA(214.6 ^NURSF(219.7
DSS Extracts	1	ECXNURS

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Nursing Service	1	NURACHDC

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Nursing Service	1	NURS REVIEW CLASSIFICATION(#214.7)[.04, 2]

Pointer To FileMan Files, Total: 4

Package	Total	FileMan Files
Nursing Service	2	NURS LOCATION(#211.4)[6] NURS AMIS WARD(#213.3)[7]
Kernel	1	NEW PERSON(#200)[4]
Registration	1	PATIENT(#2)[.02]

Fields, Total: 11

Field #	Name	Loc	Type	Details
.01	CLASSIFICATION DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:($P(Y,".")>DT)!(Y<1) X` LAST EDITED: `NOV 22, 1991` DESCRIPTION: `This field indicates the date and time of a patient's classification.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `214.6^B` `1)= S ^NURSA(214.6,"B",$E(X,1,30),DA)=""` `2)= K ^NURSA(214.6,"B",$E(X,1,30),DA)` `This is the main index on the 'Classification Date/Time' field of the NURS Classification file.` CROSS-REFERENCE: `214.6^AZ1^MUMPS` `1)= S NURSD=$S('$D(^NURSA(214.6,DA,0)):"",1:$P(^(0),U,2)) S:NURSD'="" ^NURSA(214.6,"AA",NURSD,9999999-X,DA)="" K NURSD` `2)= S NURSD=$S('$D(^NURSA(214.6,DA,0)):"",1:$P(^(0),U,2)) K:NURSD'="" ^NURSA(214.6,"AA",NURSD,9999999-X,DA) K NURSD` `This mumps index is an inverted time/date index which make the latest classification the first one accessed by sorting through this index.` CROSS-REFERENCE: `214.6^AZ2^MUMPS` `1)= S NUR=$S($D(^NURSA(214.6,DA,0)):^(0),1:"") S:$P(NUR,"^",8)'=""&($P(NUR,"^",10)'="") ^NURSA(214.6,"ACNT",X\1,+$P(NUR,"^",8),$P(NUR,"^",10),DA)="" K NUR` `2)= S NUR=$S($D(^NURSA(214.6,DA,0)):^(0),1:"") K:$P(NUR,"^",8)'=""&($P(NUR,"^",10)'="") ^NURSA(214.6,"ACNT",X\1,+$P(NUR,"^",8),$P(NUR,"^",10),DA) K NUR` `This index separates true classification entries from DOM, hemodialysis, and recovery room counts.`
.02	NAME	0;2	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `NOV 18, 1987` DESCRIPTION: `Name of the patient being classified. Pointer to the Patient File (#2).` CROSS-REFERENCE: `214.6^C` `1)= S ^NURSA(214.6,"C",$E(X,1,30),DA)=""` `2)= K ^NURSA(214.6,"C",$E(X,1,30),DA)` `This index is on the 'Name' field in the NURS Classification file.` CROSS-REFERENCE: `214.6^AA^MUMPS` `1)= S NURSDT=$S('$D(^NURSA(214.6,DA,0)):"",1:$P(^(0),U,1)) S:NURSDT'="" ^NURSA(214.6,"AA",X,9999999-NURSDT,DA)="" K NURSDT` `2)= S NURSDT=$S('$D(^NURSA(214.6,DA,0)):"",1:$P(^(0),U,1)) K:NURSDT'="" ^NURSA(214.6,"AA",X,9999999-NURSDT,DA) K NURSDT` `This mumps index identifies the latest patient classification by name and date/time.`
1	CATEGORY	0;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 22, 1989` HELP-PROMPT: `Type a Number between 1 and 5, 0 Decimal Digits` DESCRIPTION: `The patient's current nursing AMIS classification or acuity rating. Entered as a whole number between 1 and 5.`
2	FACTORS	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1)!(X'="N/A"&(X'?.AN)) X I $D(X) X:$D(^%ZOSF("UPPERCASE")) "N Y X ^%ZOSF(""UPPERCASE"") S X=Y Q"` LAST EDITED: `MAR 30, 1994` HELP-PROMPT: `ANSWER MUST BE 1-9 CHARACTERS IN LENGTH` DESCRIPTION: `The factors (elements) selected by an RN in classifying the patient.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	ENTERED BY	0;5	SET	**********************REQUIRED FIELD********************** 'C' FOR COMPUTER; 'U' FOR USER; DESCRIPTION: `This field identifies how the classification was finally determined, (i.e., by the computer or RN user). Identified by a set of codes. C=Computer U=User.`
4	CLASSIFIER	0;6	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JAN 13, 1992` DESCRIPTION: `The person entered the classification. Points to the NEW PERSON file (#200).`
5	COMMENTS	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-50 CHARACTERS IN LENGTH` DESCRIPTION: `The circumstances or factors for altering the computer's classification of the patient.`
6	NURS LOCATION	0;8	POINTER TO NURS LOCATION FILE (#211.4)	**********************REQUIRED FIELD********************** NURS LOCATION(#211.4) LAST EDITED: `FEB 26, 1992` DESCRIPTION: `Ward on which the patient is classified. Points to the NURS LOCATION (#211.4) file.` CROSS-REFERENCE: `214.6^E` `1)= S ^NURSA(214.6,"E",$E(X,1,30),DA)=""` `2)= K ^NURSA(214.6,"E",$E(X,1,30),DA)` `This index is on the 'NURS Location' field in the NURS Classification file.` CROSS-REFERENCE: `214.6^AZ4^MUMPS` `1)= S NUR=$S($D(^NURSA(214.6,DA,0)):^(0),1:"") S:$P(NUR,"^",10)'="" ^NURSA(214.6,"ACNT",$P(NUR,"^")\1,X,$P(NUR,"^",10),DA)="" K NUR` `2)= S NUR=$S($D(^NURSA(214.6,DA,0)):^(0),1:"") K:$P(NUR,"^",10)'="" ^NURSA(214.6,"ACNT",$P(NUR,"^")\1,X,$P(NUR,"^",10),DA) K NUR` `This mumps index separates DOM, Hemodialysis, and Recovery Room counts, from regular classification entries.`
7	NURSING BED SECTION	0;9	POINTER TO NURS AMIS WARD FILE (#213.3)	**********************REQUIRED FIELD********************** NURS AMIS WARD(#213.3) DESCRIPTION: `Nursing bed section associated with the patient's classification. Points to the NURS AMIS WARD (213.3) file.`
8	COUNT	0;10	SET	'H' FOR HEMODIALYSIS; 'R' FOR RECOVERY ROOM; INPUT TRANSFORM: `S NUR=$S($D(^NURSA(214.6,DA,0)):$P(^(0),U,9),1:""),NUR=$S($D(^NURSF(213.3,+NUR,0)):$P(^(0),U),1:"") K:$S(NUR="HEMODIALYSIS"&(X="H"):0,NUR="RECOVERY ROOM"&(X="R"):0,1:1) X` LAST EDITED: `NOV 09, 1991` DESCRIPTION: `This field indicates whether this data is an actual patient classification or a hemodialysis or recovery room count. If this field is left blank then it indicates that this record is a normal classification. If this` `field has an "H" then it indicates that this is part of the daily hemodialysis count, and an "R" indicates that it is part of the daily recovery room count.` DELETE TEST: `1,0)= I 1 D EN^DDIOL($C(7)_"Required",,"!?2")` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `214.6^AZ3^MUMPS` `1)= S NUR=$S($D(^NURSA(214.6,DA,0)):^(0),1:"") S:+NUR&(+$P(NUR,"^",8)) ^NURSA(214.6,"ACNT",$P(NUR,"^")\1,$P(NUR,"^",8),X,DA)="" K NUR` `2)= S NUR=$S($D(^NURSA(214.6,DA,0)):^(0),1:"") K:+NUR&(+$P(NUR,"^",8)) ^NURSA(214.6,"ACNT",$P(NUR,"^")\1,$P(NUR,"^",8),X,DA) K NUR` `This mumps index separates the Hemodialysis and Recovery Room counts from regular classification entries.`
9	ROOM-BED	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3)!'(X?.UN1"-"1UN.UN!(X?.UN1"-".UN1"-"1UN.UN)) X` LAST EDITED: `JAN 23, 1996` HELP-PROMPT: `Answer must be 3-15 characters in length.` DESCRIPTION: `This field contains the patient's room-bed at time of classification, if appropriate.`

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #62	DSS - DECISION SUPPORT SYSTEM EXTRACTS	CLASSIFICATION DATE/TIME (.01). Access: Read w/Fileman NAME (.02). Access: Read w/Fileman CATEGORY (1). Access: Read w/Fileman ENTERED BY (3). Access: Read w/Fileman CLASSIFIER (4). Access: Read w/Fileman NURS LOCATION (6). Access: Read w/Fileman NURSING BED SECTION (7). Access: Read w/Fileman

External References

Name	Field # of Occurrence
^%DT	.01+1
EN^DDIOL	8DEL1+1
Y^DIQ	ID.02+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UPPERCASE"	2+1
^DD(2	ID.02+1
^DPT - [#2]	ID.02+1
^NURSA(214.6 - [#214.6]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K) , 6(XREF 1S), 6(XREF 1K), 6(XREF 2S), 6(XREF 2K), 8(XREF 1S), 8(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	ID.02+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 2S), .02(XREF 2K), 6(XREF 2S), 6(XREF 2K), 8(XREF 1S) , 8(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1*
%I	ID.02+1*!
>> C	ID.02+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K) , 6(XREF 1S), 6(XREF 1K), 6(XREF 2S), 6(XREF 2K), 8(XREF 1S), 8(XREF 1K)
>> DIC	ID.02+1
DT	.01+1
NUR	.01(XREF 3S), .01(XREF 3K), 6(XREF 2S), 6(XREF 2K), 8(XREF 1S), 8(XREF 1K)
NURSD	.01(XREF 2S), .01(XREF 2K)
NURSDT	.02(XREF 2S), .02(XREF 2K)
U	ID.02+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K)
X	.01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S) , .02(XREF 2K), 1+1!, 2+1!, 5+1!, 6(XREF 1S), 6(XREF 1K), 6(XREF 2S), 6(XREF 2K), 8(XREF 1S), 8(XREF 1K) , 9+1!
>> Y	ID.02+1*, .01+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All