Sub-Field: 216.81

Parent File	Name	Number	Package
NURS CARE PLAN(#216.8)	NURSING PROBLEM LIST	216.81	Nursing Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PROBLEM	0;1	POINTER TO AGGREGATE TERM FILE (#124.2)	AGGREGATE TERM(#124.2) INPUT TRANSFORM: `S DIC("S")="I $P(^GMRD(124.2,+Y,0),U,4)=$O(^GMRD(124.25,""B"",""NURSING PROBLEM"",0)),$D(^GMR(124.3,$P(^NURSC(216.8,D0,0),U),1,""B"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 27, 1989` DESCRIPTION: `A particular problem for this nursing care plan or patient plan of care.` SCREEN: `S DIC("S")="I $P(^GMRD(124.2,+Y,0),U,4)=$O(^GMRD(124.25,""B"",""NURSING PROBLEM"",0)),$D(^GMR(124.3,$P(^NURSC(216.8,D0,0),U),1,""B"",+Y))"` EXPLANATION: `Select only patient problems that have been chosen for this nursing care plan or patient plan of care.` CROSS-REFERENCE: `216.81^B` `1)= S ^NURSC(216.8,DA(1),"PROB","B",$E(X,1,30),DA)=""` `2)= K ^NURSC(216.8,DA(1),"PROB","B",$E(X,1,30),DA)` `This is the main cross-reference on the problem field.`

PROBLEM

0;1

POINTER TO AGGREGATE TERM FILE (#124.2)

INPUT TRANSFORM: S DIC("S")="I $P(^GMRD(124.2,+Y,0),U,4)=$O(^GMRD(124.25,""B"",""NURSING PROBLEM"",0)),$D(^GMR(124.3,$P(^NURSC(216.8,D0,0),U),1,""B"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 27, 1989
DESCRIPTION:
A particular problem for this nursing care plan or patient plan of care.
SCREEN: S DIC("S")="I $P(^GMRD(124.2,+Y,0),U,4)=$O(^GMRD(124.25,""B"",""NURSING PROBLEM"",0)),$D(^GMR(124.3,$P(^NURSC(216.8,D0,0),U),1,""B"",+Y))"
EXPLANATION: Select only patient problems that have been chosen for this nursing care plan or patient plan of care.
CROSS-REFERENCE: 216.81^B
1)= S ^NURSC(216.8,DA(1),"PROB","B",$E(X,1,30),DA)=""
2)= K ^NURSC(216.8,DA(1),"PROB","B",$E(X,1,30),DA)
This is the main cross-reference on the problem field.