Global: ^DGS(41.1

FileMan FileNo	FileMan Filename	Package
41.1	SCHEDULED ADMISSION	Registration

Package	Total	Routines
Registration	20	DG1010PA DGBLRV DGDEATH DGDIS1 DGFFP03 DGPMRB DGPMV22 DGPMV31 DGPMVBUL DGPMVDL DGQESC3 DGRPD DGSCHAD DGSCHAD1 DGSCHAD2 DGSCHAD3 DGV53PT5 DGYPREG1 ^DGS(41.1 DGYPREG
Surgery	8	SRSCD SRSCDS SRSCDS1 SRSCDW1 SRSCHAP SRSRBS SRSRBS1 SRSRBW1
Integrated Billing	6	IB20PT81 IBTOSA IBTRE20 IBTRKR2 IBTRPR01 IBTUTL2
Scheduling	3	SCMSPX1 SCMSPX2 SDM
Health Summary	1	GMTSDGA2
IHS Changes To ADT	1	ADGRPD
IHS Electronic Health Record	1	BEHOPTC1
Local Area Programs	1	AZAXDPM2
Order Entry Results Reporting	1	OR3CONV

Package	Total	Routines
Registration	7	DGDIS1 DGPMV31 DGPMVDL DGSCHAD DGSCHAD1 DGSCHAD3 DGV53PT5

Package	Total	FileMan Files
Integrated Billing	1	CLAIMS TRACKING(#356)[.32]

Package	Total	FileMan Files
Registration	5	MEDICAL CENTER DIVISION(#40.8)[12] PATIENT MOVEMENT(#405)[17] WARD LOCATION(#42)[8] FACILITY TREATING SPECIALTY(#45.7)[9] VA PATIENT(#2)[.01]
Kernel	1	NEW PERSON(#200)[5, 11, 14]

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA PATIENT(#2) LAST EDITED: `MAY 05, 1987` DESCRIPTION: Enter the name of the patient that is scheduled for a future admission at this facility. UNEDITABLE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `41.1^B` 1)= S ^DGS(41.1,"B",$E(X,1,30),DA)="" 2)= K ^DGS(41.1,"B",$E(X,1,30),DA)
2	RESERVATION DATE/TIME	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ERTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 06, 1987` DESCRIPTION: Enter the date/time this patient is scheduled to appear at your facility for this admission. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `41.1^C` 1)= S ^DGS(41.1,"C",$E(X,1,30),DA)="" 2)= K ^DGS(41.1,"C",$E(X,1,30),DA)
3	LENGTH OF STAY EXPECTED	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999` DESCRIPTION: Enter the length of time it is expected this patient will have to remain at your facility until inpatient treatment is complete.
4	ADMITTING DIAGNOSIS	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAY 09, 1991` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: Enter the diagnosis of the illness or injury for which this patient will be treated.
5	PROVIDER	0;5	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 07, 1994` HELP-PROMPT: `Allow only active providers.` DESCRIPTION: Enter the name of the provider who has ordered this admission. SCREEN: `S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)"` EXPLANATION: `Only select active providers` EXECUTABLE HELP: `D HELP^DGPMDD(DA,DT)`
6	SURGERY	0;6	SET	'Y' FOR YES; 'N' FOR NO; DESCRIPTION: Answer YES if surgery will be required as part of the treatement this patient is scheduled for.
7	OPT/NSC STATUS	0;7	SET	'1' FOR YES; '0' FOR NO; DESCRIPTION: Enter yes if this patient will be admitted under the movement type OPT-NSC. Otherwise, answer no.
8	WARD	0;8	POINTER TO WARD LOCATION FILE (#42)	**********************REQUIRED FIELD********************** WARD LOCATION(#42) INPUT TRANSFORM: `S DIC("S")="I $S($D(^(""I"")):^(""I"")="""",1:1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 02, 1999` DESCRIPTION: Enter the name of the ward this patient will be admitted to. SCREEN: `S DIC("S")="I $S($D(^(""I"")):^(""I"")="""",1:1)"` EXPLANATION: `Only select active wards.` NOTES: `TRIGGERED by the WARD OR TREATING SPECIALTY field of the SCHEDULED ADMISSION File` CROSS-REFERENCE: `41.1^ARSV` 1)= S ^DGS(41.1,"ARSV",$E(X,1,30),DA)="" 2)= K ^DGS(41.1,"ARSV",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^41.1^12` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(41.1,8,1,2,1.1) X ^DD(41.1,8,1,2,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(42,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=X,D0=DIU S:'$D(^DG(40.8,+D0,0)) D0=-1 S X=$S('$D(D0):"",D0<0:"",1:D0) S D0=I(0,0) 1.4)= S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=41.1,DIG=12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" X ^DD(41.1,8,1,2,2.4) 2.4)= S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=41.1,DIG=12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= WARD:DIVISION:NUMBER DELETE VALUE)= @ FIELD)= DIVISION
9	TREATING SPECIALTY	0;9	POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)	**********************REQUIRED FIELD********************** FACILITY TREATING SPECIALTY(#45.7) INPUT TRANSFORM: `S DIC("S")="I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGS(41.1,DA,0)),U,2))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 28, 1995` HELP-PROMPT: `Enter treating specialty. This must be an active treating specialty.` DESCRIPTION: Enter the name of the treating specialty under which this patient will be treated. SCREEN: `S DIC("S")="I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGS(41.1,DA,0)),U,2))"` EXPLANATION: `Allows only active treating specialties.` NOTES: `TRIGGERED by the WARD OR TREATING SPECIALTY field of the SCHEDULED ADMISSION File`
10	WARD OR TREATING SPECIALTY	0;10	SET	**********************REQUIRED FIELD********************** 'W' FOR WARD; 'T' FOR TREATING SPECIALTY; LAST EDITED: `APR 17, 2000` DESCRIPTION: Respond W if this patient is being scheduled for an admission to a particular ward or T if the sheduled admission is for a particular treating specialty. CROSS-REFERENCE: `^^TRIGGER^41.1^8` 1)= X ^DD(41.1,10,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(41.1,10,1,1,1.4) 1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(41.1,10,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'="WARD" 1.4)= S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=41.1,DIG=8 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE CONDITION)= WARD OR TREATING SPECIALTY'="WARD" CREATE VALUE)= @ DELETE VALUE)= NO EFFECT FIELD)= WARD CROSS-REFERENCE: `^^TRIGGER^41.1^9` 1)= X ^DD(41.1,10,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(41.1,10,1,2,1.4) 1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(41.1,10,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'="TREATING SPECIALTY" 1.4)= S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=41.1,DIG=9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE CONDITION)= WARD OR TREATING SPECIALTY'="TREATING SPECIALTY" CREATE VALUE)= @ DELETE VALUE)= NO EFFECT FIELD)= TREATING SPECIALTY
11	PERSON SCHEDULING ADMIT	0;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 06, 1990` DESCRIPTION: The name of the user entering the scheduled admission will be stored here.
12	DIVISION	0;12	POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)	MEDICAL CENTER DIVISION(#40.8) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 03, 1986` DESCRIPTION: Enter the name of the division to which this patient should report. SCREEN: `S DIC("S")="I '$P(^(0),U,3)"` EXPLANATION: `Not Outpatient Divisions` NOTES: `TRIGGERED by the WARD field of the SCHEDULED ADMISSION File`
13	DATE/TIME CANCELLED	0;13	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 06, 1987` DESCRIPTION: If this scheduled admission was cancelled, enter the date/time it was cancelled.
14	CANCELLED BY	0;14	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 06, 1990` DESCRIPTION: If this scheduled admission was cancelled, this field will contain the name of the user that cancelled it.
15	REASON CANCELLED	0;15	SET	'1' FOR EXPIRED; '2' FOR OVERDUE; '3' FOR REFUSED ADMISSION; '4' FOR NO AVAILABLE BEDS; '5' FOR OTHER; LAST EDITED: `MAY 07, 1987` DESCRIPTION: Choose from the available list the reason this scheduled admission was cancelled.
16	WAS PATIENT NOTIFIED	0;16	SET	'0' FOR YES; '1' FOR NO; '2' FOR NOT APPLICABLE; LAST EDITED: `JUL 31, 1987` DESCRIPTION: If the scheduled admission was cancelled, enter YES here if the patient was notified of the cancellation. Otherwise answer NO.
17	ADMITTED	0;17	POINTER TO PATIENT MOVEMENT FILE (#405)	PATIENT MOVEMENT(#405) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),""^"",2)=1,($P(^(0),""^"",3)=+^DGS(41.1,DA,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 23, 1990` HELP-PROMPT: `If the patient was actually admitted, enter the admission movement` DESCRIPTION: This field will contain the admission entry in the PATIENT MOVEMENT file. If this field is not filled in, the patient was not admitted for this scheduled admission. SCREEN: `S DIC("S")="I $P(^(0),""^"",2)=1,($P(^(0),""^"",3)=+^DGS(41.1,DA,0))"` EXPLANATION: `Must be an admission movement and for the same patient` CROSS-REFERENCE: `41.1^AMVT` 1)= S ^DGS(41.1,"AMVT",$E(X,1,30),DA)="" 2)= K ^DGS(41.1,"AMVT",$E(X,1,30),DA)

Field #

Name

Loc

Type

Details

.01

PATIENT

0;1

POINTER TO VA PATIENT FILE (#2)

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

VA PATIENT(#2)

LAST EDITED: MAY 05, 1987

DESCRIPTION:

Enter the name of the patient that is scheduled for a future admission at this facility.

UNEDITABLE

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 41.1^B

1)= S ^DGS(41.1,"B",$E(X,1,30),DA)=""

2)= K ^DGS(41.1,"B",$E(X,1,30),DA)

2

RESERVATION DATE/TIME

0;2

DATE

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

INPUT TRANSFORM: S %DT="ERTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 06, 1987

DESCRIPTION:

Enter the date/time this patient is scheduled to appear at your facility for this admission.

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 41.1^C

1)= S ^DGS(41.1,"C",$E(X,1,30),DA)=""

2)= K ^DGS(41.1,"C",$E(X,1,30),DA)

3

LENGTH OF STAY EXPECTED

0;3

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999

DESCRIPTION:

Enter the length of time it is expected this patient will have to remain at your facility until inpatient treatment is complete.

4

ADMITTING DIAGNOSIS

0;4

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: MAY 09, 1991
HELP-PROMPT: Answer must be 2-30 characters in length.

DESCRIPTION:

Enter the diagnosis of the illness or injury for which this patient will be treated.

5

PROVIDER

0;5

POINTER TO NEW PERSON FILE (#200)

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

NEW PERSON(#200)

INPUT TRANSFORM: S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 07, 1994
HELP-PROMPT: Allow only active providers.

DESCRIPTION:

Enter the name of the provider who has ordered this admission.

SCREEN: S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)"
EXPLANATION: Only select active providers
EXECUTABLE HELP: D HELP^DGPMDD(DA,DT)

6

SURGERY

0;6

SET

'Y' FOR YES;
'N' FOR NO;

DESCRIPTION:

Answer YES if surgery will be required as part of the treatement this patient is scheduled for.

7

OPT/NSC STATUS

0;7

SET

'1' FOR YES;
'0' FOR NO;

DESCRIPTION:

Enter yes if this patient will be admitted under the movement type OPT-NSC.  Otherwise, answer no.

8

WARD

0;8

POINTER TO WARD LOCATION FILE (#42)

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

WARD LOCATION(#42)

INPUT TRANSFORM: S DIC("S")="I $S($D(^(""I"")):^(""I"")="""",1:1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 02, 1999

DESCRIPTION:

Enter the name of the ward this patient will be admitted to.

SCREEN: S DIC("S")="I $S($D(^(""I"")):^(""I"")="""",1:1)"
EXPLANATION: Only select active wards.
NOTES: TRIGGERED by the WARD OR TREATING SPECIALTY field of the SCHEDULED ADMISSION File

CROSS-REFERENCE: 41.1^ARSV

1)= S ^DGS(41.1,"ARSV",$E(X,1,30),DA)=""

2)= K ^DGS(41.1,"ARSV",$E(X,1,30),DA)

CROSS-REFERENCE: ^^TRIGGER^41.1^12

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(41.1,8,1,2,1.1) X ^DD(41.1,8,1,2,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(42,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=X,D0=DIU S:'$D(^DG(40.8,+D0,0)) D0=-1 S X=$S('$D(D0):"",D0<0:"",1:D0) S D0=I(0,0)

1.4)= S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=41.1,DIG=12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" X ^DD(41.1,8,1,2,2.4)

2.4)= S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=41.1,DIG=12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

CREATE VALUE)= WARD:DIVISION:NUMBER

DELETE VALUE)= @

FIELD)= DIVISION

9

TREATING SPECIALTY

0;9

POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)

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

FACILITY TREATING SPECIALTY(#45.7)

INPUT TRANSFORM: S DIC("S")="I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGS(41.1,DA,0)),U,2))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 28, 1995
HELP-PROMPT: Enter treating specialty. This must be an active treating specialty.

DESCRIPTION:

Enter the name of the treating specialty under which this patient will be treated.

SCREEN: S DIC("S")="I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGS(41.1,DA,0)),U,2))"
EXPLANATION: Allows only active treating specialties.
NOTES: TRIGGERED by the WARD OR TREATING SPECIALTY field of the SCHEDULED ADMISSION File

10

WARD OR TREATING SPECIALTY

0;10

SET

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

'W' FOR WARD;
'T' FOR TREATING SPECIALTY;

LAST EDITED: APR 17, 2000

DESCRIPTION:

Respond W if this patient is being scheduled for an admission to a particular ward or T if the sheduled admission is for a particular treating specialty.

CROSS-REFERENCE: ^^TRIGGER^41.1^8

1)= X ^DD(41.1,10,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(41.1,10,1,1,1.4)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(41.1,10,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'="WARD"

1.4)= S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=41.1,DIG=8 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= WARD OR TREATING SPECIALTY'="WARD"

CREATE VALUE)= @

DELETE VALUE)= NO EFFECT

FIELD)= WARD

CROSS-REFERENCE: ^^TRIGGER^41.1^9

1)= X ^DD(41.1,10,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(41.1,10,1,2,1.4)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(41.1,10,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'="TREATING SPECIALTY"

1.4)= S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=41.1,DIG=9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= WARD OR TREATING SPECIALTY'="TREATING SPECIALTY"

CREATE VALUE)= @

DELETE VALUE)= NO EFFECT

FIELD)= TREATING SPECIALTY

11

PERSON SCHEDULING ADMIT

0;11

POINTER TO NEW PERSON FILE (#200)

NEW PERSON(#200)

LAST EDITED: OCT 06, 1990

DESCRIPTION:

The name of the user entering the scheduled admission will be stored here.

12

DIVISION

0;12

POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)

MEDICAL CENTER DIVISION(#40.8)

INPUT TRANSFORM: S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 03, 1986

DESCRIPTION:

Enter the name of the division to which this patient should report.

SCREEN: S DIC("S")="I '$P(^(0),U,3)"
EXPLANATION: Not Outpatient Divisions
NOTES: TRIGGERED by the WARD field of the SCHEDULED ADMISSION File

13

DATE/TIME CANCELLED

0;13

DATE

INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 06, 1987

DESCRIPTION:

If this scheduled admission was cancelled, enter the date/time it was cancelled.

14

CANCELLED BY

0;14

POINTER TO NEW PERSON FILE (#200)

NEW PERSON(#200)

LAST EDITED: OCT 06, 1990

DESCRIPTION:

If this scheduled admission was cancelled, this field will contain the name of the user that cancelled it.

15

REASON CANCELLED

0;15

SET

'1' FOR EXPIRED;
'2' FOR OVERDUE;
'3' FOR REFUSED ADMISSION;
'4' FOR NO AVAILABLE BEDS;
'5' FOR OTHER;

LAST EDITED: MAY 07, 1987

DESCRIPTION:

Choose from the available list the reason this scheduled admission was cancelled.

16

WAS PATIENT NOTIFIED

0;16

SET

'0' FOR YES;
'1' FOR NO;
'2' FOR NOT APPLICABLE;

LAST EDITED: JUL 31, 1987

DESCRIPTION:

If the scheduled admission was cancelled, enter YES here if the patient was notified of the cancellation.  Otherwise answer NO.

17

ADMITTED

0;17

POINTER TO PATIENT MOVEMENT FILE (#405)

PATIENT MOVEMENT(#405)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",2)=1,($P(^(0),""^"",3)=+^DGS(41.1,DA,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 23, 1990
HELP-PROMPT: If the patient was actually admitted, enter the admission movement

DESCRIPTION:

This field will contain the admission entry in the PATIENT MOVEMENT file.  If this field is not filled in, the patient was not admitted for this scheduled admission.

SCREEN: S DIC("S")="I $P(^(0),""^"",2)=1,($P(^(0),""^"",3)=+^DGS(41.1,DA,0))"
EXPLANATION: Must be an admission movement and for the same patient

CROSS-REFERENCE: 41.1^AMVT

1)= S ^DGS(41.1,"AMVT",$E(X,1,30),DA)=""

2)= K ^DGS(41.1,"AMVT",$E(X,1,30),DA)

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #87	MENTAL HEALTH
ICR #429	INTEGRATED BILLING	PATIENT (.01). Access: Direct Global Read & w/Fileman RESERVATION DATE/TIME (2). Access: Direct Global Read & w/Fileman DATE/TIME CANCELLED (13). Access: Direct Global Read & w/Fileman ADMITTED (17). Access: Direct Global Read & w/Fileman PROVIDER (5). Access: Read w/Fileman	The "C" cross-reference is used to find all scheduledadmissions within a specified date range.The 'B' cross-reference is used to find all scheduledadmissions associated with a patient.
ICR #691	SURGERY
ICR #1003	HEALTH SUMMARY	Reservation Date/Time (2). Access: Read w/Fileman Length of Stay Expected (3). Access: Read w/Fileman Admitting Diagnosis (4). Access: Read w/Fileman Provider (5). Access: Read w/Fileman Surgery (6). Access: Read w/Fileman Ward (8). Access: Read w/Fileman Treating Specialty (9). Access: Read w/Fileman Ward or Treating Specialty (10). Access: Read w/Fileman Date/Time Cancelled (13). Access: Read w/Fileman Admitted (17). Access: Read w/Fileman
ICR #1265	ORDER ENTRY/RESULTS REPORTING	PATIENT (.01). Access: Direct Global Read & w/Fileman	Uses C cross-reference to get future scheduledadmissions.
ICR #3796	ORDER ENTRY/RESULTS REPORTING VIRTUAL PATIENT RECORD Enterprise Health Management Platform	PATIENT (.01). Access: Direct Global Read & w/Fileman RESERVATION DATE/TIME (2). Access: Direct Global Read & w/Fileman WARD (8). Access: Direct Global Read & w/Fileman TREATING SPECIALTY (9). Access: Direct Global Read & w/Fileman DATE/TIME CANCELLED (13). Access: Direct Global Read & w/Fileman ADMITTED (17). Access: Direct Global Read & w/Fileman PROVIDER (5). Access: Direct Global Read & w/Fileman	The 'B' cross-reference is used to find all scheduledadmissions associated with a patient.
ICR #6611	VistA Integration Adapter	PATIENT (.01). Access: Read w/Fileman RESERVATION DATE/TIME (2). Access: Read w/Fileman LENGTH OF STAY EXPECTED (3). Access: Read w/Fileman ADMITTING DIAGNOSIS (4). Access: Read w/Fileman PROVIDER (5). Access: Read w/Fileman SURGERY (6). Access: Read w/Fileman WARD (8). Access: Read w/Fileman TREATING SPECIALTY (9). Access: Read w/Fileman PERSON SCHEDULING ADMIT (11). Access: Read w/Fileman DIVISION (12). Access: Read w/Fileman DATE/TIME CANCELLED (13). Access: Read w/Fileman CANCELLED BY (14). Access: Read w/Fileman

Name	Line Occurrences (* Changed, ! Killed)
^DD(	8(XREF 2n1.4), 8(XREF 2n2.4), 10(XREF 1n1.4), 10(XREF 2n1.4)
^DD(41.1	8(XREF 2S), 8(XREF 2K), 10(XREF 1S), 10(XREF 1n1.3), 10(XREF 2S), 10(XREF 2n1.3)
^DG(40.8 - [#40.8]	8(XREF 2n1.1)
^DGS(41.1 - [#41.1]	.01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2n1.4), 8(XREF 2K), 8(XREF 2n2.4) , 10(XREF 1S), 10(XREF 1n1.4), 10(XREF 2S), 10(XREF 2n1.4), 17(XREF 1S), 17(XREF 1K)
^DIC(42 - [#42]	8(XREF 2n1.1)

Name	Field # of Occurrence
^("0"	ID2+1
^(0	8(XREF 2S), 8(XREF 2n1.4), 8(XREF 2K), 8(XREF 2n2.4), 10(XREF 1S), 10(XREF 1n1.3), 10(XREF 1n1.4), 10(XREF 2S), 10(XREF 2n1.3), 10(XREF 2n1.4)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	2+1, 13+1
>> D0	8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2K), 10(XREF 1S), 10(XREF 1n1.3), 10(XREF 2S), 10(XREF 2n1.3)
>> DA	.01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 5(HELP ), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 10(XREF 1n1.3) , 10(XREF 2n1.3), 17(XREF 1S), 17(XREF 1K)
DIC	5+1!, 8+1!, 9+1!, 12+1!, 17+1!*
DIC("S"	5+1, 5SCR+1, 8+1, 8SCR+1, 9+1, 9SCR+1, 12+1, 12SCR+1, 17+1, 17SCR+1
>> DIE	5+1, 8+1, 9+1, 12+1, 17+1
>> DIG	8(XREF 2n1.4), 8(XREF 2n2.4), 10(XREF 1n1.4), 10(XREF 2n1.4)
>> DIH	8(XREF 2n1.4), 8(XREF 2n2.4), 10(XREF 1n1.4), 10(XREF 2n1.4)
>> DIU	8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2K), 10(XREF 1S), 10(XREF 2S)
DIV	8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2n1.4), 8(XREF 2K), 8(XREF 2n2.4), 10(XREF 1S), 10(XREF 1n1.3), 10(XREF 1n1.4), 10(XREF 2S), 10(XREF 2n1.3) , 10(XREF 2n1.4)
DIV(0	8(XREF 2S), 8(XREF 2n1.4), 8(XREF 2K), 8(XREF 2n2.4), 10(XREF 1n1.3), 10(XREF 1n1.4), 10(XREF 2n1.3), 10(XREF 2n1.4)
DT	5(HELP )
>> I(0	8(XREF 2n1.1)
>> I(100	8(XREF 2n1.1)
U	ID2+1, 8(XREF 2S), 8(XREF 2n1.4), 8(XREF 2K), 8(XREF 2n2.4), 10(XREF 1S), 10(XREF 1n1.3), 10(XREF 1n1.4), 10(XREF 2S), 10(XREF 2n1.3) , 10(XREF 2n1.4)
X	.01(XREF 1S), .01(XREF 1K), 2+1!, 2(XREF 1S), 2(XREF 1K), 3+1!, 4+1!, 5+1!, 8+1!, 8(XREF 1S) , 8(XREF 1K), 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2n1.4), 8(XREF 2K), 8(XREF 2n2.4), 9+1!, 10(XREF 1S), 10(XREF 1n1.3), 10(XREF 1n1.4) , 10(XREF 2S), 10(XREF 2n1.3), 10(XREF 2n1.4), 12+1!, 13+1!, 17+1*!, 17(XREF 1S), 17(XREF 1K)
Y	2+1, 5+1, 8+1, 8(XREF 2S), 8(XREF 2K), 9+1, 10(XREF 1S), 10(XREF 2S), 12+1, 13+1 , 17+1
Y(0	10(XREF 1n1.3), 10(XREF 2n1.3)
Y(1	8(XREF 2S), 8(XREF 2K), 10(XREF 1S), 10(XREF 1n1.3), 10(XREF 2S), 10(XREF 2n1.3)
Y(101	8(XREF 2n1.1)

Customize PDF page

Package: Registration

Global: ^DGS(41.1

Information

Description

Directly Accessed By Routines, Total: 42

Accessed By FileMan Db Calls, Total: 7

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 6

Fields, Total: 17

ICR, Total: 7

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	2+1, 13+1
HELP^DGPMDD	5(HELP )
^DIC	5+1, 8+1, 9+1, 12+1, 17+1
^DICR	8(XREF 2n1.4), 8(XREF 2n2.4), 10(XREF 1n1.4), 10(XREF 2n1.4)