Sub-Field: 57.81

Parent File	Name	Number	Package
CLINIC GROUP(#57.8)	CLINIC	57.81	Inpatient Medications

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CLINIC	0;1	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `MAY 01, 2004` HELP-PROMPT: `Enter the clinic you wish to add to this group.` DESCRIPTION: `Entry from the HOSPITAL LOCATION file (#44) that will be a part of this clinic group.` FIELD INDEX: `AC (#503) MUMPS IR SORTING ONLY WHOLE FILE (#57.8)` `Short Descr: Allow ability to find clinic group for a clinic.` `Set Logic: S ^PS(57.8,"AC",$E(X,1,20),DA(1))=""` `Kill Logic: K ^PS(57.8,"AC",$E(X,1,20),DA(1))` `Whole Kill: K ^PS(57.8,"AC")` `X(1): CLINIC (57.81,.01) (Subscr 1) (Len 20) (forwards)` FIELD INDEX: `AD (#504) MUMPS IR ACTION WHOLE FILE (#57.8)` `Short Descr: Cross-reference of clinic in this clinic group.` `Set Logic: S ^PS(57.8,"AD",DA(1),$E(X,1,20))=""` `Kill Logic: K ^PS(57.8,"AD",DA(1),$E(X,1,20))` `Whole Kill: K ^PS(57.8,"AD")` `X(1): CLINIC (57.81,.01) (forwards)`

CLINIC

0;1

POINTER TO HOSPITAL LOCATION FILE (#44)

LAST EDITED: MAY 01, 2004
HELP-PROMPT: Enter the clinic you wish to add to this group.
DESCRIPTION:
Entry from the HOSPITAL LOCATION file (#44) that will be a part of this clinic group.
FIELD INDEX: AC (#503) MUMPS IR SORTING ONLY WHOLE FILE (#57.8)
Short Descr: Allow ability to find clinic group for a clinic.
Set Logic: S ^PS(57.8,"AC",$E(X,1,20),DA(1))=""
Kill Logic: K ^PS(57.8,"AC",$E(X,1,20),DA(1))
Whole Kill: K ^PS(57.8,"AC")
X(1): CLINIC (57.81,.01) (Subscr 1) (Len 20) (forwards)
FIELD INDEX: AD (#504) MUMPS IR ACTION WHOLE FILE (#57.8)
Short Descr: Cross-reference of clinic in this clinic group.
Set Logic: S ^PS(57.8,"AD",DA(1),$E(X,1,20))=""
Kill Logic: K ^PS(57.8,"AD",DA(1),$E(X,1,20))
Whole Kill: K ^PS(57.8,"AD")
X(1): CLINIC (57.81,.01) (forwards)