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

Print Page as PDF

Sub-Field: 216.82

Package: Nursing Service

NURS CARE PLAN(#216.8)-->216.82

Sub-Field: 216.82

Information

Parent File	Name	Number	Package
NURS CARE PLAN(#216.8)	EVALUATION DATE	216.82	Nursing Service

Details

Field #	Name	Loc	Type	Details
.01	DATE/TIME ENTERED	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 05, 1996` DESCRIPTION: `Date/time this evaluation information was entered.` CROSS-REFERENCE: `216.82^B` `1)= S ^NURSC(216.8,DA(1),"EVAL","B",$E(X,1,30),DA)=""` `2)= K ^NURSC(216.8,DA(1),"EVAL","B",$E(X,1,30),DA)` `This is the main cross-reference evaluation date field.` CROSS-REFERENCE: `216.82^AA^MUMPS` `1)= S NURS=$S($D(^NURSC(216.8,DA(1),"EVAL",DA,0)):$P(^(0),U,2),1:"") S:NURS'="" ^NURSC(216.8,DA(1),"EVAL","AA",NURS,9999999-X,DA)="" K NURS` `2)= S NURS=$S($D(^NURSC(216.8,DA(1),"EVAL",DA,0)):$P(^(0),U,2),1:"") K:NURS'="" ^NURSC(216.8,DA(1),"EVAL","AA",NURS,9999999-X,DA) K NURS` `This is an inverted time/date mumps cross-reference on the date field.` CROSS-REFERENCE: `^^TRIGGER^216.82^1` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^NURSC(216.8,D0,"EVAL",D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(216.82,.01,1,3,1.1) X ^DD(216.82,.01,1,3,1.4)` `1.1)= S X=DIV S X=$P($G(^NURSC(216.8,DA(1),"EVAL",DA,0)),"^",3),X=$S(X]"":X,1:DUZ)` `1.4)= S DIH=$S($D(^NURSC(216.8,DIV(0),"EVAL",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=216.82,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `2.4)= S DIH=$S($D(^NURSC(216.8,DIV(0),"EVAL",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=216.82,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= S X=$P($G(^NURSC(216.8,DA(1),"EVAL",DA,0)),"^",3),X=$S(X]"":X,1:DUZ)` `DELETE VALUE)= NO EFFECT` `FIELD)= USER WHO EVALUATED` `This cross-reference triggers an entry into the User Who Evaluated field of the Evaluation Date sub-file in the NURS Care Plan (#216.8) file when the evaluation date is edited.`
.02	PROBLEM	0;2	POINTER TO AGGREGATE TERM FILE (#124.2)	**********************REQUIRED FIELD********************** AGGREGATE TERM(#124.2) INPUT TRANSFORM: `S DIC("S")="I $D(^NURSC(216.8,DA(1),""PROB"",""B"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 27, 1989` DESCRIPTION: `The problem associated with this evaluation date.` SCREEN: `S DIC("S")="I $D(^NURSC(216.8,DA(1),""PROB"",""B"",+Y))"` EXPLANATION: `Only select problems that are in the problem list of this nursing care plan or patient plan of care.` CROSS-REFERENCE: `216.82^AA1^MUMPS` `1)= S NURS=$S($D(^NURSC(216.8,DA(1),"EVAL",DA,0)):$P(^(0),U),1:"") S:NURS'="" ^NURSC(216.8,DA(1),"EVAL","AA",X,9999999-NURS,DA)="" K NURS` `2)= S NURS=$S($D(^NURSC(216.8,DA(1),"EVAL",DA,0)):$P(^(0),U),1:"") K:NURS'="" ^NURSC(216.8,DA(1),"EVAL","AA",X,9999999-NURS,DA) K NURS` `This is an inverted time/date mumps cross-reference on the Problem field.`
1	USER WHO EVALUATED	0;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JAN 13, 1992` DESCRIPTION: `User who made this evaluation.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the DATE/TIME ENTERED field of the EVALUATION DATE sub-field of the NURS CARE PLAN File`
2	PROBLEM STATUS	0;4	SET	**********************REQUIRED FIELD********************** '0' FOR EVALUATE; '1' FOR RESOLVED; '2' FOR UNRESOLVED @ DC; '3' FOR SUSPENDED; LAST EDITED: `DEC 08, 1993` DESCRIPTION: `The status of the problem associated with this evaluation.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	EVALUATION DATE	0;5	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 27, 1989` DESCRIPTION: `This is the date/time of the follow up evaluation when a problem had been evaluated.`