Sub-Field: 801.9001

Parent File	Name	Number	Package
REMINDER RESOLUTION STATUS(#801.9)	SUB-STATUS	801.9001	Clinical Reminders

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SUB-STATUS	0;1	POINTER TO REMINDER RESOLUTION STATUS FILE (#801.9)	REMINDER RESOLUTION STATUS(#801.9) INPUT TRANSFORM: `S DIC("S")="I ($P(^(0),U,6)'=1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 08, 2000` SCREEN: `S DIC("S")="I ($P(^(0),U,6)'=1)"` EXPLANATION: `Substatus cannot itself be a national status.` CROSS-REFERENCE: `801.9001^B` `1)= S ^PXRMD(801.9,DA(1),10,"B",$E(X,1,30),DA)=""` `2)= K ^PXRMD(801.9,DA(1),10,"B",$E(X,1,30),DA)` FIELD INDEX: `AC (#284) REGULAR IR SORTING ONLY WHOLE FILE (#801.9)` `Short Descr: Local to National Status pointers` `Description: This index holds pointers from local resolution codes to national resolution codes. These pointers are created when a local code is added.` `Set Logic: S ^PXRMD(801.9,"AC",X,DA(1),DA)=""` `Kill Logic: K ^PXRMD(801.9,"AC",X,DA(1),DA)` `Whole Kill: K ^PXRMD(801.9,"AC")` `X(1): SUB-STATUS (801.9001,.01) (Subscr 1) (forwards)`

SUB-STATUS

0;1

POINTER TO REMINDER RESOLUTION STATUS FILE (#801.9)

INPUT TRANSFORM: S DIC("S")="I ($P(^(0),U,6)'=1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 08, 2000
SCREEN: S DIC("S")="I ($P(^(0),U,6)'=1)"
EXPLANATION: Substatus cannot itself be a national status.
CROSS-REFERENCE: 801.9001^B
1)= S ^PXRMD(801.9,DA(1),10,"B",$E(X,1,30),DA)=""
2)= K ^PXRMD(801.9,DA(1),10,"B",$E(X,1,30),DA)
FIELD INDEX: AC (#284) REGULAR IR SORTING ONLY WHOLE FILE (#801.9)
Short Descr: Local to National Status pointers
Description: This index holds pointers from local resolution codes to national resolution codes. These pointers are created when a local code is added.
Set Logic: S ^PXRMD(801.9,"AC",X,DA(1),DA)=""
Kill Logic: K ^PXRMD(801.9,"AC",X,DA(1),DA)
Whole Kill: K ^PXRMD(801.9,"AC")
X(1): SUB-STATUS (801.9001,.01) (Subscr 1) (forwards)