Global: ^SDD(409.44

FileMan FileNo	FileMan Filename	Package
409.44	OUTPATIENT PROVIDER	Scheduling

Directly Accessed By Routines, Total: 5

Package	Total	Routines
Scheduling	5	SCMCTSK9 ^SDD(409.44 SCMCTSK1 SDOEPRV TEAM POSITIONS

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
Kernel	2	PERSON CLASS(#8932.1)[.03] NEW PERSON(#200)[.01]
Scheduling	1	OUTPATIENT ENCOUNTER(#409.68)[.02]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PROVIDER	0;1	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $$SCREEN^SDUTL2(Y,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 29, 1996` HELP-PROMPT: `This field contains the outpatient encounter associated with this outpatient provider.` DESCRIPTION: `This field contains the outpatient provider.` SCREEN: `S DIC("S")="I $$SCREEN^SDUTL2(Y,DT)"` EXPLANATION: `Provider must be active and have an active entry in the NEW PERSON file for PERSON CLASS.` EXECUTABLE HELP: `D HELP^SDUTL2(DT)` DELETE TEST: `1,0)= IF 0` CROSS-REFERENCE: `409.44^B` `1)= S ^SDD(409.44,"B",$E(X,1,30),DA)=""` `2)= K ^SDD(409.44,"B",$E(X,1,30),DA)` `This cross-reference allows look-up by provider.` CROSS-REFERENCE: `409.44^AO1^MUMPS` `1)= S:$P(^SDD(409.44,DA,0),U,2) ^SDD(409.44,"AO",+$P(^(0),U,2),X,DA)=""` `2)= K ^SDD(409.44,"AO",+$P(^SDD(409.44,DA,0),U,2),X,DA)` `This cross-reference can be used to sort by outpatient encounter by provider 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 provider.` DESCRIPTION: `This field contains the outpatient encounter associated with this outpatient provider.` `UNEDITABLE` CROSS-REFERENCE: `409.44^AO^MUMPS` `1)= S ^SDD(409.44,"AO",X,$P(^SDD(409.44,DA,0),U),DA)=""` `2)= K ^SDD(409.44,"AO",X,$P(^SDD(409.44,DA,0),U),DA)` `This cross-reference can be used to sort by outpatient encounter by provider by internal entry number.` CROSS-REFERENCE: `409.44^OE` `1)= S ^SDD(409.44,"OE",$E(X,1,30),DA)=""` `2)= K ^SDD(409.44,"OE",$E(X,1,30),DA)` `Cross-reference to look up provider by outpatient encounter and to allow backwards navigation.`
.03	PROVIDER TYPE CODE	0;3	POINTER TO PERSON CLASS FILE (#8932.1)	PERSON CLASS(#8932.1) LAST EDITED: `JUL 18, 1996` DESCRIPTION: `This field contains the provider type code associated with the provider at the time of the outpatient encounter.`

.01

PROVIDER

0;1

POINTER TO NEW PERSON FILE (#200)

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

NEW PERSON(#200)

INPUT TRANSFORM: S DIC("S")="I $$SCREEN^SDUTL2(Y,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 29, 1996
HELP-PROMPT: This field contains the outpatient encounter associated with this outpatient provider.
DESCRIPTION:
This field contains the outpatient provider.
SCREEN: S DIC("S")="I $$SCREEN^SDUTL2(Y,DT)"
EXPLANATION: Provider must be active and have an active entry in the NEW PERSON file for PERSON CLASS.
EXECUTABLE HELP: D HELP^SDUTL2(DT)
DELETE TEST: 1,0)= IF 0
CROSS-REFERENCE: 409.44^B
1)= S ^SDD(409.44,"B",$E(X,1,30),DA)=""
2)= K ^SDD(409.44,"B",$E(X,1,30),DA)
This cross-reference allows look-up by provider.
CROSS-REFERENCE: 409.44^AO1^MUMPS
1)= S:$P(^SDD(409.44,DA,0),U,2) ^SDD(409.44,"AO",+$P(^(0),U,2),X,DA)=""
2)= K ^SDD(409.44,"AO",+$P(^SDD(409.44,DA,0),U,2),X,DA)
This cross-reference can be used to sort by outpatient encounter by provider 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 provider.
DESCRIPTION:
This field contains the outpatient encounter associated with this outpatient provider.
UNEDITABLE
CROSS-REFERENCE: 409.44^AO^MUMPS
1)= S ^SDD(409.44,"AO",X,$P(^SDD(409.44,DA,0),U),DA)=""
2)= K ^SDD(409.44,"AO",X,$P(^SDD(409.44,DA,0),U),DA)
This cross-reference can be used to sort by outpatient encounter by provider by internal entry number.
CROSS-REFERENCE: 409.44^OE
1)= S ^SDD(409.44,"OE",$E(X,1,30),DA)=""
2)= K ^SDD(409.44,"OE",$E(X,1,30),DA)
Cross-reference to look up provider by outpatient encounter and to allow backwards navigation.

.03

PROVIDER TYPE CODE

0;3

POINTER TO PERSON CLASS FILE (#8932.1)

PERSON CLASS(#8932.1)

LAST EDITED: JUL 18, 1996
DESCRIPTION:
This field contains the provider type code associated with the provider at the time of the outpatient encounter.

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #2046	HOME BASED PRIMARY CARE	PROVIDER (.01). 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
HELP^SDUTL2	.01(HELP )

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(409.68	ID.02+1
^SCE - [#409.68]	ID.02+1
^SDD(409.44 - [#409.44]	.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
DT	.01(HELP )
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)
>> Y	ID.02+1*, .01+1

Customize PDF page

Package: Scheduling