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 | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^NURSA(214.7

Package: Nursing Service

Global: ^NURSA(214.7

Information

FileMan FileNo	FileMan Filename	Package
214.7	NURS REVIEW CLASSIFICATION	Nursing Service

Description

This file contains an audit of classification reviews in a flat file format.

Directly Accessed By Routines, Total: 5

Package	Total	Routines
Nursing Service	5	^NURSA(214.7 NURACE7 ^NURSF(219.7 NURSADEL NURSCUTL

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[3]
Nursing Service	1	NURS CLASSIFICATION(#214.6)[.04, 2]
Registration	1	PATIENT(#2)[.02]

Fields, Total: 6

Field #	Name	Loc	Type	Details
.01	REVIEW 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: `JUN 18, 1987` DESCRIPTION: `Date/time of the review of a classification.` CROSS-REFERENCE: `214.7^B` `1)= S ^NURSA(214.7,"B",$E(X,1,30),DA)=""` `2)= K ^NURSA(214.7,"B",$E(X,1,30),DA)` `This is the main index on the 'Review Date/Time' field of the NURS Review Classification file.` CROSS-REFERENCE: `214.7^AZ1^MUMPS` `1)= I $D(^NURSA(214.7,DA,0)) S:$P(^(0),U,2)'=""&($P(^(0),U,3)'="") ^NURSA(214.7,"AA",$P(^NURSA(214.7,DA,0),U,2),$P(^NURSA(214.7,DA,0),U,3),9999999-X,DA)=""` `2)= I $D(^NURSA(214.7,DA,0)) K:$P(^(0),U,2)'=""&($P(^(0),U,3)'="") ^NURSA(214.7,"AA",$P(^NURSA(214.7,DA,0),U,2),$P(^NURSA(214.7,DA,0),U,3),9999999-X,DA)` `This mumps index is an inverted time/date index which make the latest entry reviewed the first entry accessed when using this index.`
.02	NAME	0;2	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `NOV 18, 1987` DESCRIPTION: `Name of patient whose classification is being reviewed. Points to the PATIENT (#2) File.` CROSS-REFERENCE: `214.7^C` `1)= S ^NURSA(214.7,"C",$E(X,1,30),DA)=""` `2)= K ^NURSA(214.7,"C",$E(X,1,30),DA)` `This index is on the 'Name' field in the NURS Review Classification file.` CROSS-REFERENCE: `214.7^AZ2^MUMPS` `1)= I $D(^NURSA(214.7,DA,0)) S:$P(^(0),U,1)'=""&($P(^(0),U,3)'="") ^NURSA(214.7,"AA",X,$P(^NURSA(214.7,DA,0),U,3),9999999-$P(^NURSA(214.7,DA,0),U,1),DA)=""` `2)= I $D(^NURSA(214.7,DA,0)) K:$P(^(0),U,1)'=""&($P(^(0),U,3)'="") ^NURSA(214.7,"AA",X,$P(^NURSA(214.7,DA,0),U,3),9999999-$P(^NURSA(214.7,DA,0),U,1),DA)` `This mumps index make the latest review entry available by patient name, NURS Location, and review date/time.`
.04	CLASSIFICATION REVIEWED	0;3	POINTER TO NURS CLASSIFICATION FILE (#214.6)	**********************REQUIRED FIELD********************** NURS CLASSIFICATION(#214.6) INPUT TRANSFORM: `S DIC("S")="D EN4^NURSCUTL" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 07, 1991` DESCRIPTION: `The classification being reviewed. Points to the NURS CLASSIFICATION (#214.6) file.` SCREEN: `S DIC("S")="D EN4^NURSCUTL"` EXPLANATION: `Screen to allow selection of only valid classification dates` CROSS-REFERENCE: `214.7^AA^MUMPS` `1)= D EN3^NURSCUTL S:(NURSDFN'="")&(NURSR'="") ^NURSA(214.7,"AA",NURSDFN,X,9999999-NURSR,DA)="" K NURSDFN,NURSR` `2)= D EN3^NURSCUTL K:(NURSDFN'="")&(NURSR'="") ^NURSA(214.7,"AA",NURSDFN,X,9999999-NURSR,DA) K NURSDFN,NURSR` `This mumps index indicates the review date/time of the latest classification for this patient.`
1	CLASSIFICATION CHANGED	0;4	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; DESCRIPTION: `This field indicates if the classification was changed. Answer Yes or No.`
2	NEW CLASSIFICATION DATE/TIME	0;5	POINTER TO NURS CLASSIFICATION FILE (#214.6)	NURS CLASSIFICATION(#214.6) INPUT TRANSFORM: `S DIC("S")="D EN4^NURSCUTL" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 07, 1991` DESCRIPTION: `This field contains the new classification for the patient if it was changed. Points to the NURS CLASSIfICATION (#214.6) file.` SCREEN: `S DIC("S")="D EN4^NURSCUTL"` EXPLANATION: `Only valid classifications for this patient`
3	REVIEWER	0;6	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JAN 13, 1992` DESCRIPTION: `Person who reviewed the classification. Points to the NEW PERSON (#200) file.`

External References

Name	Field # of Occurrence
^%DT	.01+1
^DIC	.04+1, 2+1
Y^DIQ	ID.02+1
EN3^NURSCUTL	.04(XREF 2S), .04(XREF 2K)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	ID.02+1
^DPT - [#2]	ID.02+1
^NURSA(214.7 - [#214.7]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .04(XREF 2S), .04(XREF 2K)

Naked Globals

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

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), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .04(XREF 2S), .04(XREF 2K)
DIC	ID.02+1, .04+1!, 2+1!
DIC("S"	.04+1, .04SCR+1, 2+1, 2SCR+1
>> DIE	.04+1, 2+1
DT	.01+1
NURSDFN	.04(XREF 2S), .04(XREF 2K)
NURSR	.04(XREF 2S), .04(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), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .04+1! , .04(XREF 2S), .04(XREF 2K), 2+1*!
>> Y	ID.02+1*, .01+1, .04+1, 2+1

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