Global: ^SDD(409.43

FileMan FileNo	FileMan Filename	Package
409.43	OUTPATIENT DIAGNOSIS	Scheduling

Directly Accessed By Routines, Total: 3

Package	Total	Routines
Scheduling	3	SDOEDX TEAM POSITIONS ^SDD(409.43

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
DRG Grouper	1	ICD DIAGNOSIS(#80)[.01]
Scheduling	1	OUTPATIENT ENCOUNTER(#409.68)[.02]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DIAGNOSIS	0;1	POINTER TO ICD DIAGNOSIS FILE (#80)	**********************REQUIRED FIELD********************** 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: `FEB 17, 1993` HELP-PROMPT: `This field contains the outpatient diagnosis.` DESCRIPTION: `This field contains the outpatient diagnosis.` SCREEN: `S DIC("S")="I '$P(^(0),U,9)"` EXPLANATION: `Diagnosis must be active.` DELETE TEST: `1,0)= IF 0` CROSS-REFERENCE: `409.43^B` `1)= S ^SDD(409.43,"B",$E(X,1,30),DA)=""` `2)= K ^SDD(409.43,"B",$E(X,1,30),DA)` `This cross-reference allow look-up by diagnosis.` CROSS-REFERENCE: `409.43^AO1^MUMPS` `1)= S:$P(^SDD(409.43,DA,0),U,2) ^SDD(409.43,"AO",+$P(^(0),U,2),X,DA)=""` `2)= K ^SDD(409.43,"AO",+$P(^SDD(409.43,DA,0),U,2),X,DA)` `This cross-reference can be used to sort by outpatient encounter by diagnosis by internal entry number.`
.02	OUTPATIENT ENCOUNTER	0;2	POINTER TO OUTPATIENT ENCOUNTER FILE (#409.68)	**********************REQUIRED FIELD********************** OUTPATIENT ENCOUNTER(#409.68) LAST EDITED: `JUL 22, 1993` HELP-PROMPT: `This field contains the outpatient encounter associated with this outpatient diagnosis.` DESCRIPTION: `This field contains the outpatient encounter associated with this outpatient diagnosis.` `UNEDITABLE` CROSS-REFERENCE: `409.43^AO^MUMPS` `1)= S ^SDD(409.43,"AO",X,$P(^SDD(409.43,DA,0),U),DA)=""` `2)= K ^SDD(409.43,"AO",X,$P(^SDD(409.43,DA,0),U),DA)` `This cross-reference can be used to sort by outpatient encounter by diagnosis by internal entry number.` CROSS-REFERENCE: `409.43^OE` `1)= S ^SDD(409.43,"OE",$E(X,1,30),DA)=""` `2)= K ^SDD(409.43,"OE",$E(X,1,30),DA)` `Cross-reference to look up diagnosis by outpatient encounter and to allow backwards navigation.`
.03	DIAGNOSIS RANKING	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `MAY 03, 1996` HELP-PROMPT: `Answer must be 1-3 characters in length.` DESCRIPTION: `This field is to hold the ranking of the particular diagnosis related to the encounter. Currently a number one will indicate the primary diagnosis.`

.01

DIAGNOSIS

0;1

POINTER TO ICD DIAGNOSIS FILE (#80)

************************REQUIRED FIELD************************

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: FEB 17, 1993
HELP-PROMPT: This field contains the outpatient diagnosis.
DESCRIPTION:
This field contains the outpatient diagnosis.
SCREEN: S DIC("S")="I '$P(^(0),U,9)"
EXPLANATION: Diagnosis must be active.
DELETE TEST: 1,0)= IF 0
CROSS-REFERENCE: 409.43^B
1)= S ^SDD(409.43,"B",$E(X,1,30),DA)=""
2)= K ^SDD(409.43,"B",$E(X,1,30),DA)
This cross-reference allow look-up by diagnosis.
CROSS-REFERENCE: 409.43^AO1^MUMPS
1)= S:$P(^SDD(409.43,DA,0),U,2) ^SDD(409.43,"AO",+$P(^(0),U,2),X,DA)=""
2)= K ^SDD(409.43,"AO",+$P(^SDD(409.43,DA,0),U,2),X,DA)
This cross-reference can be used to sort by outpatient encounter by diagnosis by internal entry number.

.02

OUTPATIENT ENCOUNTER

0;2

POINTER TO OUTPATIENT ENCOUNTER FILE (#409.68)

************************REQUIRED FIELD************************

OUTPATIENT ENCOUNTER(#409.68)

LAST EDITED: JUL 22, 1993
HELP-PROMPT: This field contains the outpatient encounter associated with this outpatient diagnosis.
DESCRIPTION:
This field contains the outpatient encounter associated with this outpatient diagnosis.
UNEDITABLE
CROSS-REFERENCE: 409.43^AO^MUMPS
1)= S ^SDD(409.43,"AO",X,$P(^SDD(409.43,DA,0),U),DA)=""
2)= K ^SDD(409.43,"AO",X,$P(^SDD(409.43,DA,0),U),DA)
This cross-reference can be used to sort by outpatient encounter by diagnosis by internal entry number.
CROSS-REFERENCE: 409.43^OE
1)= S ^SDD(409.43,"OE",$E(X,1,30),DA)=""
2)= K ^SDD(409.43,"OE",$E(X,1,30),DA)
Cross-reference to look up diagnosis by outpatient encounter and to allow backwards navigation.

.03

DIAGNOSIS RANKING

0;3

FREE TEXT

INPUT TRANSFORM: K:$L(X)>3!($L(X)<1) X
LAST EDITED: MAY 03, 1996
HELP-PROMPT: Answer must be 1-3 characters in length.
DESCRIPTION:
This field is to hold the ranking of the particular diagnosis related to the encounter. Currently a number one will indicate the primary diagnosis.

ICR, Total: 2

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #411	Integrated Billing		Request to directly reference the "AO" cross referenceof the OUTPATIENT DIAGNOSIS (#409.43) file. The cross reference is used tofind all diagnoses associated with an outpatient encounter. The diagnoses arethen added to bills.
ICR #2047	HOME BASED PRIMARY CARE Mental Health	DIAGNOSIS (.01). Access: Direct Global Read & w/Fileman DIAGNOSIS RANKING (.03). Access: Direct Global Read & w/Fileman	This cross-reference will be used to look up the ifn ofthe record associated with the OUTPATIENT ENCOUNTER.

External References

Name	Field # of Occurrence
^DIC	.01+1
Y^DIQ	ID.02+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(409.68	ID.02+1
^SCE - [#409.68]	ID.02+1
^SDD(409.43 - [#409.43]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 3S), .02(XREF 3K)

Naked Globals

Name	Field # of Occurrence
^(0	ID.02+1, .01(XREF 2S)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%I	ID.02+1*!
>> C	ID.02+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 3S), .02(XREF 3K)
DIC	ID.02+1, .01+1!*
DIC("S"	.01+1, .01SCR+1
>> DIE	.01+1
U	ID.02+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)
X	.01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 3S), .02(XREF 3K), .03+1!
>> Y	ID.02+1*, .01+1

Customize PDF page

Package: Scheduling