Sub-Field: 44.11

Parent File	Name	Number	Package
HOSPITAL LOCATION(#44)	DIAGNOSIS	44.11	Scheduling

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DIAGNOSIS	0;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),U,9)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 29, 1993` DESCRIPTION: `Enter in this field the diagnoses associated with this clinic. These diagnoses will then be displayed when updating the diagnosis through Appointment Management or Check Out to assist the user in entering the correct` diagnosis. SCREEN: `S DIC("S")="I '$P(^(0),U,9)"` EXPLANATION: `Diagnosis must be active.` CROSS-REFERENCE: `44.11^B` 1)= S ^SC(DA(1),"DX","B",$E(X,1,30),DA)="" 2)= K ^SC(DA(1),"DX","B",$E(X,1,30),DA)
.02	DEFAULT DIAGNOSIS	0;2	SET	'0' FOR NO; '1' FOR YES; INPUT TRANSFORM: `I X,$D(^SC("ADDX",DA(1))),'$D(^(DA(1),DA)) W !?5,"A default diagnosis has already been assigned for this clinic." K X` LAST EDITED: `MAR 26, 1993` DESCRIPTION: Enter 'YES' in this field if the diagnosis is the default for this clinic. Otherwise, enter 'NO'. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `44^ADDX^MUMPS` 1)= S:X ^SC("ADDX",DA(1),DA)="" 2)= K ^SC("ADDX",DA(1),DA)

DIAGNOSIS

0;1

POINTER TO ICD DIAGNOSIS FILE (#80)

INPUT TRANSFORM: S DIC("S")="I '$P(^(0),U,9)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 29, 1993
DESCRIPTION: Enter in this field the diagnoses associated with this clinic. These diagnoses will then be displayed when updating the diagnosis through Appointment Management or Check Out to assist the user in entering the correct
```
diagnosis.
```
SCREEN: S DIC("S")="I '$P(^(0),U,9)"
EXPLANATION: Diagnosis must be active.

CROSS-REFERENCE: 44.11^B

1)= S ^SC(DA(1),"DX","B",$E(X,1,30),DA)=""

2)= K ^SC(DA(1),"DX","B",$E(X,1,30),DA)

DEFAULT DIAGNOSIS

0;2

SET

INPUT TRANSFORM: I X,$D(^SC("ADDX",DA(1))),'$D(^(DA(1),DA)) W !?5,"A default diagnosis has already been assigned for this clinic." K X
LAST EDITED: MAR 26, 1993

DESCRIPTION:

Enter 'YES' in this field if the diagnosis is the default for this clinic.  Otherwise, enter 'NO'.

CROSS-REFERENCE: 44^ADDX^MUMPS

1)= S:X ^SC("ADDX",DA(1),DA)=""

2)= K ^SC("ADDX",DA(1),DA)