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 (#456) 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 (#457) 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)

DESCRIPTION:

Entry from the HOSPITAL LOCATION file (#44) that will be a part of this clinic group.

FIELD INDEX: AC (#456) 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 (#457) 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)