Global: ^DGS(41.1

FileMan FileNo	FileMan Filename	Package
41.1	SCHEDULED ADMISSION	Registration

Package	Total	Routines
Registration	23	DG1010PA DGBLRV DGDEATH DGDIS1 DGFFP03 DGPMRB DGPMRBA1 DGPMV22 DGPMV31 DGPMVBUL DGPMVDL DGRPD DGSATX DGSATX1 DGSCHAD DGSCHAD1 DGSCHAD2 DGSCHAD3 DGSCHADMIT DGSHARESUB ^DGS(41.1 DGYPREG DGYPREG1
Integrated Billing	13	IB20PT81 IBATOP IBJDI11 IBJDI21 IBTOSA IBTRE20 IBTRH5H IBTRH7 IBTRHDE IBTRKR2 IBTRPR01 IBTUTL2 IBYZ20R
Surgery	8	SRSCD SRSCDS SRSCDS1 SRSCDW1 SRSCHAP SRSRBS SRSRBS1 SRSRBW1
Virtual Patient Record	4	VPRDJ04 VPRDSDAM VPRP20 VPRSDAM
Scheduling	3	SCMSPX1 SCMSPX2 SDM
Enterprise Health Management Platform	2	HMPDJ04 HMPDSDAM
VA FileMan	2	^DDE YEAR
Health Summary	1	GMTSDGA2
Occurrence Screen	1	QAOC0
PCE Patient Care Encounter	1	PXVWCCH
Record Tracking	1	RTSM61

Package	Total	Routines
Registration	7	DGDIS1 DGPMV31 DGPMVDL DGSATX DGSCHAD DGSCHAD1 DGSCHAD3
Integrated Billing	3	IBTRH5H IBTRH7 IBTRHDE

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] PATIENT(#2)[.01]
Kernel	1	NEW PERSON(#200)[5, 11, 14]

Fields, Total: 17

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** 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)` RECORD INDEXES: `AC (#837)`
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)` RECORD INDEXES: `AC (#837)`
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.` RECORD INDEXES: `AC (#837)`
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.` RECORD INDEXES: `AC (#837)`
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)` RECORD INDEXES: `AC (#837)`
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.` RECORD INDEXES: `AC (#837)`
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.` RECORD INDEXES: `AC (#837)`
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` `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` `CREATE VALUE)= WARD:DIVISION:NUMBER` `DELETE VALUE)= @` `FIELD)= DIVISION` RECORD INDEXES: `AC (#837)`
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` RECORD INDEXES: `AC (#837)`
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` `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` `2)= Q` `CREATE CONDITION)= WARD OR TREATING SPECIALTY'="TREATING SPECIALTY"` `CREATE VALUE)= @` `DELETE VALUE)= NO EFFECT` `FIELD)= TREATING SPECIALTY` RECORD INDEXES: `AC (#837)`
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.` RECORD INDEXES: `AC (#837)`
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` RECORD INDEXES: `AC (#837)`
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.` RECORD INDEXES: `AC (#837)`
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.` RECORD INDEXES: `AC (#837)`
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.` RECORD INDEXES: `AC (#837)`
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.` RECORD INDEXES: `AC (#837)`
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)` RECORD INDEXES: `AC (#837)`

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	Field # of Occurrence
^%DT	2+1, 13+1
HELP^DGPMDD	5(HELP )
NOTIFY^DGSCHAD	IXACSL+1, IXACKL+1
^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)

Name	Line Occurrences (* Changed, ! Killed)
^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

Customize PDF page

Package: Registration

Global: ^DGS(41.1

Information

Description

Directly Accessed By Routines, Total: 59

Accessed By FileMan Db Calls, Total: 10

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
>> 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	IXACSL+1, IXACKL+1, .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)
>> X1	IXACSL+1, IXACKL+1
>> X2	IXACSL+1, IXACKL+1
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)