Global: ^SDWL(409.3

FileMan FileNo	FileMan Filename	Package
409.3	SD WAIT LIST	Scheduling

Package	Total	Routines
Scheduling	81	DATE OF TRANSMISSION PATIENT CONTACT ^SDWL(409.3 AUDIT POINTER SCMCTSK SCMCWAIT SD53769P SD53793P SD53P491 SD686PST SDAMC SDEC07 SDEC50 SDEC54 SDEC54A SDECAR3 SDECAUD SDECINI2 SDECWL SDECWL1 SDECWL2 SDECWL3 SDESAPPTREQ40984 SDESCREATEAPPT SDM1A SDM2A SDTMP08 SDWL NON-REMOVAL REASON RPT SDWL30DAY SDWLAHRC SDWLBACC SDWLCU1 SDWLCU5 SDWLCU6 SDWLD SDWLDISP SDWLDNR SDWLE SDWLE1 SDWLE10 SDWLE11 SDWLE110 SDWLE111 SDWLE112 SDWLE113 SDWLE2 SDWLE3 SDWLE4 SDWLE5 SDWLE6 SDWLE7 SDWLEC SDWLEVAL SDWLFUL1 SDWLFULU SDWLI SDWLIFT3 SDWLMR SDWLPE SDWLPL SDWLQSC SDWLQSC1 SDWLR31 SDWLREB SDWLRO SDWLROF SDWLROIS SDWLROS SDWLRP1 SDWLRP4 SDWLRPS1 SDWLRPS2 SDWLRPT1 SDWLRPT2 SDWLRSRS SDWLSC SDWLSCPE SDWLTR SDWLWTR TEAM POSITIONS VS AUDIT
Mobile Scheduling Applications Suite	4	MBAARPC1 MBAARPC2 MBAARPCL MBAAWLDA
Consult Request Tracking	1	GMRCONS1
Electronic Health Modernization	1	EHMAPTRQ
Kernel	1	^DIC(19

Package	Total	Routines
Scheduling	71	SCMCWAIT SD53769P SD53793P SD53P491 SDEC07 SDEC26 SDECAR1A SDECAR3 SDECIDX SDECINI1 SDECINI2 SDECUTL SDECWL SDECWL3 SDESAPPTREQ40984 SDESCREATEAPPT SDM1A SDM2A SDTMP08 SDWL120 SDWLAHRC SDWLAHRP SDWLAPI SDWLBACC SDWLCU3 SDWLCU5 SDWLCU6 SDWLD SDWLDISP SDWLE1 SDWLE11 SDWLE110 SDWLE111 SDWLE112 SDWLE113 SDWLE2 SDWLE3 SDWLE4 SDWLE5 SDWLE6 SDWLE7 SDWLEC SDWLEVAL SDWLFUL2 SDWLFULU SDWLI SDWLIFT SDWLIFT2 SDWLIFT3 SDWLIFT5 SDWLIFT6 SDWLMR SDWLPL SDWLQSC SDWLQSC1 SDWLR31 SDWLREB SDWLROF SDWLROI SDWLROIS SDWLRP1 SDWLRP3 SDWLRP4 SDWLRPS2 SDWLRPT1 SDWLRPT2 SDWLRSR SDWLRSRS SDWLSCPE SDWLTR SDWLTR1
Mobile Scheduling Applications Suite	4	MBAARPC1 MBAARPC2 MBAARPCL MBAAWLDA

Package	Total	FileMan Files
Scheduling	4	SDEC APPOINTMENT(#409.84)[.22] SD WAIT LIST(#409.3)[37] SDWL TRANSFER REQUEST(#409.35)[.01] SDWL TRANSFER ACCEPT(#409.36)[409.3]

Package	Total	FileMan Files
Scheduling	8	CLINIC STOP(#40.7)[13.4, 13.5] HOSPITAL LOCATION(#44)[8.5, 13.2, #409.345(3)] TEAM(#404.51)[5] TEAM POSITION(#404.57)[6] APPOINTMENT TYPE(#409.1)[8.7] SD WAIT LIST(#409.3)[37] SD WL SERVICE/SPECIALTY(#409.31)[7, #409.345(4)] SD WL CLINIC LOCATION(#409.32)[8, #409.345(2)]
Kernel	2	INSTITUTION(#4)[2, 13.3] NEW PERSON(#200)[9, 12, 13.7, 17, 20, 28, #409.344(2), #409.345(1)]
Registration	1	PATIENT(#2)[.01]

Fields, Total: 56

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `OCT 22, 2002` HELP-PROMPT: `Enter the name of the patient from the Patient file #2 that is to be on the Sch/PCMM Wait List.` DESCRIPTION: `Enter the name of the patient from the Patient file #2 that is to be on the Sch/PCMM Wait List.` CROSS-REFERENCE: `409.3^B` `1)= S ^SDWL(409.3,"B",$E(X,1,30),DA)=""` `2)= K ^SDWL(409.3,"B",$E(X,1,30),DA)` RECORD INDEXES: `AD (#1357)`
1	ORIGINATING DATE	0;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 03, 2015` DESCRIPTION: `Date the patient was placed on the Wait List (Sch/PCMM)` CROSS-REFERENCE: `409.3^ETOO^MUMPS` `1)= S:$P(^SDWL(409.3,DA,0),U,17)'="" ^SDWL(409.3,"E",$P(^SDWL(409.3,DA,0),U,17),X,DA)=""` `2)= K:$P(^SDWL(409.3,DA,0),U,17)'="" ^SDWL(409.3,"E",$P(^SDWL(409.3,DA,0),U,17),X,DA)` `This xref actually updates the "E" xref for CURRENT STATUS in the event that the ORIGINATING DATE is changed. This xref is used to speed up the lookup of open or closed wait list entries for a given time range.` FIELD INDEX: `GC (#1446) REGULAR IR LOOKUP & SORTING` `Short Descr: SORT BY CLINIC AND ORIGINATING DATE` `Description: This xref is used to sort Wait List entries by the Clinic ID and the ORIGINATING DATE field (#1). The Clinic ID comes from the CLINIC field (#.01) of the SD WL CLINIC LOCATION file (#409.32). The SD WL CLINIC LOCATION` `pointer is in the WL SPECIFIC CLINIC field (#8) of the SD WAIT LIST file (#409.3).` `Set Logic: S ^SDWL(409.3,"GC",X(1),X(2),DA)=""` `Kill Logic: K ^SDWL(409.3,"GC",X(1),X(2),DA)` `Whole Kill: K ^SDWL(409.3,"GC")` `X(1): Computed Code: S X=$P($G(^SDWL(409.32,+$P($G(^SDWL(409.3,DA,0)),U,9),0)),U,1)` `(Subscr 1) (forwards)` `X(2): ORIGINATING DATE (409.3,1) (Subscr 2) (forwards)` RECORD INDEXES: `GS (#1441), GSA (#1444), GSB (#1445), GSP (#1443)`
2	INSTITUTION	0;3	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,11)=""N"",$$TF^XUAF4(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 04, 2003` HELP-PROMPT: `Enter the INSTITUTION that the patient is to be placed for the waiting list. INSTITUTION must be NATIONAL and a treating facility.` DESCRIPTION: `The Institution the patient is on the Wait List (Sch/PCMM)` SCREEN: `S DIC("S")="I $P(^(0),U,11)=""N"",$$TF^XUAF4(+Y)"` EXPLANATION: `Enter a National/Medical Institution` AUDIT: CROSS-REFERENCE: `409.3^C` `1)= S ^SDWL(409.3,"C",$E(X,1,30),DA)=""` `2)= K ^SDWL(409.3,"C",$E(X,1,30),DA)`
3	TRANMISSION STATUS TO ACC	0;4	SET	'0' FOR NOT TRANSMITTED; '1' FOR TRANSMITTED; LAST EDITED: `AUG 08, 2002` DESCRIPTION: `Reflects the current transmission status (transmitted/not transmitted) of the wait list entry`
3.1	DATE OF TRANSMISSION	ACCDATE;0	DATE Multiple #409.33	409.33 DESCRIPTION: `Wait List Transmission date information - multiple`
4	WAIT LIST TYPE	0;5	SET	**********************REQUIRED FIELD********************** '1' FOR PCMM TEAM ASSIGNMENT; '2' FOR PCMM POSITION ASSIGNMENT; '3' FOR SERVICE/SPECIALITY; '4' FOR SPECIFIC CLINIC; LAST EDITED: `OCT 12, 2004` HELP-PROMPT: `Select one Wait List Type.` DESCRIPTION: `The type of wait list the patient is assigned.` `UNEDITABLE`
5	WL SPECIFIC TEAM	0;6	POINTER TO TEAM FILE (#404.51)	TEAM(#404.51) INPUT TRANSFORM: `S DIC("S")="I $D(SDWLIN),$P(^SCTM(404.51,+Y,0),U,7)=SDWLIN" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 30, 2002` HELP-PROMPT: `Enter the team that the patient is waiting to be assigned. The team must be an active team at the selected institution and must be over capacity. Patient can be assigned to multiple Teams.` DESCRIPTION: `If the patient is waiting for a PCMM Team Assignment, the team that the patient is waiting to be assigned is to be entered here. The team must be active at the designated institution, must be above capacity.Patients can` `be assigned to multiple PCMM Teams.` SCREEN: `S DIC("S")="I $D(SDWLIN),$P(^SCTM(404.51,+Y,0),U,7)=SDWLIN"` EXPLANATION: `Entry's for this Institution.` CROSS-REFERENCE: `409.3^D` `1)= S ^SDWL(409.3,"D",$E(X,1,30),DA)=""` `2)= K ^SDWL(409.3,"D",$E(X,1,30),DA)` CROSS-REFERENCE: `409.3^ST^MUMPS` `1)= I $D(X) S ^SDWL(409.3,"ST",DA,X)=""` `2)= K ^SDWL(409.3,"ST",DA,X)`
6	WL SPECIFIC POSITION	0;7	POINTER TO TEAM POSITION FILE (#404.57)	TEAM POSITION(#404.57) LAST EDITED: `SEP 30, 2002` HELP-PROMPT: `Enter the position the patient is waiting to be assigned. Only active, over capacity positions assigned to the patient's primary care team are selectable.` DESCRIPTION: `If the patient is waiting for a PCMM Position, the position that the patient is waiting to be assigned is entered here. The position must be active, assigned to the team the patient is currently assigned and the position` `must be above capacity. The patient can have multiple open Position Wait List assignments.` CROSS-REFERENCE: `409.3^SP^MUMPS` `1)= I $D(X) S ^SDWL(409.3,"SP",DA,X)=""` `2)= K ^SDWL(409.3,"SP",DA,X)`
7	WL SERVICE/SPECIALTY	0;8	POINTER TO SD WL SERVICE/SPECIALTY FILE (#409.31)	SD WL SERVICE/SPECIALTY(#409.31) LAST EDITED: `FEB 05, 2007` HELP-PROMPT: `Enter the Service/Specialty (DSS ID) allowed by this institution in the wait list parameters, that this patient is waiting for an appointment.` DESCRIPTION: `If the patient has been assigned to the Service/Specialty Wait List, enter the DSS ID that represents the service/specialty the patient is waiting for an appointment. This DSS ID must be active in file 409.31.` CROSS-REFERENCE: `409.3^SS^MUMPS` `1)= I $D(X) S ^SDWL(409.3,"SS",$P(^SDWL(409.3,DA,0),U,1),$P(^SDWL(409.31,X,0),U,1),DA)=""` `2)= I $D(^SDWL(409.31,X,0)) K ^SDWL(409.3,"SS",$P(^SDWL(409.3,DA,0),U,1),$P(^SDWL(409.31,X,0),U,1),DA)`
8	WL SPECIFIC CLINIC	0;9	POINTER TO SD WL CLINIC LOCATION FILE (#409.32)	**********************REQUIRED FIELD********************** SD WL CLINIC LOCATION(#409.32) LAST EDITED: `SEP 30, 2002` HELP-PROMPT: `Select clinic from approved wait list clinics` DESCRIPTION: `If the patient has been assigned to the Specific Clinic Wait List, enter the clinic that the patient is waiting for an appointment. The clinic must be active and must be assigned to the institution designated. It must be` `an active clinic in file 409.32.` CROSS-REFERENCE: `409.3^SC^MUMPS` `1)= I $D(X) S ^SDWL(409.3,"SC",$P(^SDWL(409.32,X,0),U,1),DA)=""` `2)= K ^SDWL(409.3,"SC",$P(^SDWL(409.32,X,0),U,1),DA)` CROSS-REFERENCE: `409.3^SCC^MUMPS` `1)= I $D(X) S ^SDWL(409.3,"SCC",$P(^SDWL(409.3,DA,0),U,1),X,DA)=""` `2)= K ^SDWL(409.3,"SCC",$P(^SDWL(409.3,DA,0),U,1),X,DA)`
8.5	WL SPECIFIC HOSPITAL LOCATION	0;24	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `APR 30, 2015` HELP-PROMPT: `Select a hospital location` DESCRIPTION: `This is the HOSPITAL LOCATION in which the WL SPECIFIC CLINIC points to.` CROSS-REFERENCE: `409.3^AE` `1)= S ^SDWL(409.3,"AE",$E(X,1,30),DA)=""` `2)= K ^SDWL(409.3,"AE",$E(X,1,30),DA)` `This xref is used to find entries associated with a particular HOSPITAL LOCATION.` RECORD INDEXES: `AD (#1357)`
8.7	WL APPOINTMENT TYPE	0;26	POINTER TO APPOINTMENT TYPE FILE (#409.1)	APPOINTMENT TYPE(#409.1) LAST EDITED: `NOV 02, 2016` HELP-PROMPT: `Select an appointment type.` DESCRIPTION: `This field represents the appointment type for the appointment that is to be associated with this wait list request.` AUDIT: `YES, ALWAYS`
9	ORIGINATING USER	0;10	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 03, 2015` DESCRIPTION: `User that enters the patient to the wait list.` RECORD INDEXES: `AC (#1356)`
9.5	DATE/TIME ENTERED	3;4	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 27, 2014` HELP-PROMPT: `Enter a date. Time is optional.` DESCRIPTION: `This is the Date and optional Time that this Wait List entry was entered.` RECORD INDEXES: `AC (#1356)`
10	PRIORITY	0;11	SET	**********************REQUIRED FIELD********************** 'A' FOR ASAP; 'F' FOR FUTURE; LAST EDITED: `AUG 05, 2002` HELP-PROMPT: `Select either ASAP which will set the desired date for the appointment as the current date or select Future which will allow you to enter a desired date (example: T+6M)` DESCRIPTION: `If the patient is assigned to either the Service/Specialty or Specific Clinic Wait List, a priority of Future or ASAP (as soon as possible) must be entered. Future indicates that the patient needs an appointment in the` `future and a desired will be entered by the user. ASAP indicates that the patient needs an appointment before the currently next available appointment (as soon as a slot opens). The desired date for ASAP will be set by` `the system as the current date.`
10.5	ENROLLMENT PRIORITY	0;25	SET	'1' FOR GROUP 1; '2' FOR GROUP 2; '3' FOR GROUP 3; '4' FOR GROUP 4; '5' FOR GROUP 5; '6' FOR GROUP 6; '7' FOR GROUP 7; '8' FOR GROUP 8; LAST EDITED: `SEP 23, 2014` HELP-PROMPT: `Select an enrollment priority` DESCRIPTION: `The ENROLLMENT PRIORITY field represents the Wait List Enrollment Priority.`
11	REQUEST BY	0;12	SET	**********************REQUIRED FIELD********************** '1' FOR PROVIDER; '2' FOR PATIENT; LAST EDITED: `NOV 02, 2016` HELP-PROMPT: `Enter who requested the appointment - the patient or a provider` DESCRIPTION: `If the patient is placed on a Service/Specialty or Specific Clinic Wait List type, the user must enter who requested the appointment - the patient or a provider.` AUDIT: `YES, ALWAYS`
12	PROVIDER	0;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 02, 2016` HELP-PROMPT: `This is the provider that requested the patient's appointment. Must be an active provider in file 200.` DESCRIPTION: `If the patient's appointment was requested by a provider, this is the provider that requested the patient's appointment. Must be an active provider in file 200.` AUDIT: `YES, ALWAYS`
13	SCHEDULED DATE OF APPT	0;23	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 26, 2005` HELP-PROMPT: `Enter date/time of the scheduled appointment for this request` DESCRIPTION: `The Appointment date scheduled for a patient. This appointment may be used as a reason for closing Electronic Wait List entry.` TECHNICAL DESCR: `This is a date/time of the scheduled appointment related to this entry.`
13.1	DATE APPT. MADE	SDAPT;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 05, 2005` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `This is the date the appointment was created.` TECHNICAL DESCR: `The Appointment Creation Date. It corresponds to the DATE APPT. MADE field (#20) of the APPOINTMENT multiple (#1900) in the Patient file (#2).`
13.2	APPT CLINIC	SDAPT;2	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `JAN 04, 2005` HELP-PROMPT: `Hospital Location the appointment is scheduled for.` DESCRIPTION: `This is a clinic the appointment was created for.` TECHNICAL DESCR: `Pointer to the HOSPITAL LOCATION file (#44) of the related appointment.`
13.3	APPT INSTITUTION	SDAPT;3	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `JAN 04, 2005` DESCRIPTION: `The institution the clinic appointment belongs to.` TECHNICAL DESCR: `A pointer from the Hospital Location file of the scheduled appointment to the Institution file (#4).`
13.4	APPT STOP CODE	SDAPT;4	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `MAY 06, 2005` DESCRIPTION: `The stop code/specialty of a clinic associated with the patient appointment.` TECHNICAL DESCR: `This is the primary Stop Code Number pointer to the Stop Code file (#40.7).`
13.5	APPT CREDIT STOP CODE	SDAPT;5	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `JAN 04, 2005` DESCRIPTION: `The credit stop code optionally assigned to the Hospital Location file associated with the scheduled appointment.` TECHNICAL DESCR: `This is the secondary (optional) Stop Code Number pointer to the Stop Code file (#40.7). This stop code is assigned to the Hospital Location file associated with the scheduled appointment.`
13.6	APPT STATION NUMBER	SDAPT;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<3)!'(X?3N.E) X` LAST EDITED: `APR 28, 2005` HELP-PROMPT: `Answer must be 3-6 characters in length.` DESCRIPTION: `This is the 3 digit station number assigned to the facility plus optional modifiers.` TECHNICAL DESCR: `This is the Station Number field (#99) of the Institution file (#4) associated with the scheduled appointment.`
13.7	APPT CLERK	SDAPT;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 04, 2005` DESCRIPTION: `This is a person who assigned the appointment to the EWL entry.` TECHNICAL DESCR: `This is a pointer to the New Person file and it represents a person who entered the scheduled appointment into the EWL.`
13.8	APPT STATUS	SDAPT;8	SET	'R' FOR Scheduled/Kept; 'I' FOR Inpatient; 'NS' FOR No-Show; 'NSR' FOR No_Show, Rescheduled; 'CP' FOR Canceled by Patient; 'CPR' FOR Canceled by Patient, Rescheduled; 'CC' FOR Canceled by Clinic; 'CCR' FOR Canceled by Clinic, Rescheduled; 'NT' FOR No Action Taken; LAST EDITED: `JAN 12, 2005` DESCRIPTION: `This is an appointment status.`
14	SERVICE CONNECTED PERCENTAGE	SC;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 27, 2005` HELP-PROMPT: `Type a Number between 0 and 100, 0 Decimal Digits`
15	SERVICE CONNECTED PRIORITY	SC;2	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 27, 2005` RECORD INDEXES: `GSB (#1445)`
16	DO NOT REMOVE DATE	0;14	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 18, 2002` DESCRIPTION: `If the patient has met the criteria that should remove him/her from the wait list but the user does not want the patient removed`
17	USER ENTERING NO REMOVE	0;15	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 18, 2002` DESCRIPTION: `User entering 'Do Not Remove'`
18	DO NOT REMOVE REASON	DNR;1	SET	'A' FOR Appointment Criteria Not Met; 'P' FOR Patient wants another appointment; 'PR' FOR Provider wants another appointment; 'O' FOR Other; LAST EDITED: `OCT 09, 2002` HELP-PROMPT: `Enter the reason for NOT removing the patient from the wait list.` DESCRIPTION: `Reason why the patient is not removed from Waiting List(Sch/PCMM)`
18.1	DO NOT REMOVE COMMENT	DNR;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `AUG 21, 2002` HELP-PROMPT: `Answer must be 1-50 characters in length.` DESCRIPTION: `Free Text comment (1-50 characters) for why wait list entry should not be removed when an appointment has met the wait list criteria.`
19	DATE DISPOSITIONED	DIS;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 18, 2002` DESCRIPTION: `Date patient is dispositioned from the Wait List(Sch/PCMM)`
20	DISPOSITIONED BY	DIS;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 18, 2002` DESCRIPTION: `User who dispositioned patient from Wait List(Sch/PCMM)`
21	DISPOSITION	DIS;3	SET	'D' FOR DEATH; 'NC' FOR REMOVED/NON-VA CARE; 'SA' FOR REMOVED/SCHEDULED-ASSIGNED; 'CC' FOR REMOVED/VA CONTRACT CARE; 'NN' FOR REMOVED/NO LONGER NECESSARY; 'ER' FOR ENTERED IN ERROR; 'TR' FOR TRANSFERRED; 'CL' FOR CHANGED CLINIC; 'EA' FOR REMOVED/EXTERNAL APP; LAST EDITED: `MAY 08, 2020` HELP-PROMPT: `Select a reason for removing the patient the wait list.` DESCRIPTION: `Reason patient has been dispositioned from Wait List(Sch/PCMM)`
22	DESIRED DATE OF APPOINTMENT	0;16	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 16, 2015` HELP-PROMPT: `Enter the desired date for the appointment. The date can be imprecise.` DESCRIPTION: `If a patient is placed on a Service/Specialty or Clinic Specific Wait List type, the date the appointment is needed/desired. If the priority is ASAP, this is the date the patient is placed on the Wait List(Sch/PCMM). If` `the priority is Future, the user enters the date that the patient/provider needs an appointment scheduled. The field title contains 'CID/PREFERRED DATE', where 'CID' stands for Clinically Indicated Date. This is an` `alternate name for the field name used for reports and to present to users when adding and displaying appointment information in the Scheduling package.` FIELD INDEX: `GCC (#1447) REGULAR IR LOOKUP & SORTING` `Short Descr: SORT BY CLINIC ID AND CID/PREFERRED DATE` `Description: This xref is used to sort Wait List entries by the Clinic ID and the CID/PREFERRED DATE field (#22). The Clinic ID comes from the CLINIC field (#.01) of the SD WL CLINIC LOCATION file (#409.32). The SD WL CLINIC LOCATION` `pointer is in the WL SPECIFIC CLINIC field (#8) of the SD WAIT LIST file (#409.3).` `Set Logic: S ^SDWL(409.3,"GCC",X(1),X(2),DA)=""` `Kill Logic: K ^SDWL(409.3,"GCC",X(1),X(2),DA)` `Whole Kill: K ^SDWL(409.3,"GCC")` `X(1): Computed Code: S X=$P($G(^SDWL(409.32,+$P($G(^SDWL(409.3,DA,0)),U,9),0)),U,1)` `(Subscr 1) (forwards)` `X(2): DESIRED DATE OF APPOINTMENT (409.3,22) (Subscr 2) (forwards)` RECORD INDEXES: `GSC (#1442)`
23	CURRENT STATUS	0;17	SET	'O' FOR OPEN; 'C' FOR CLOSED; LAST EDITED: `DEC 02, 2014` HELP-PROMPT: `Enter O or OPEN if the wait list entry is open. Enter C or CLOSED if the wait list entry is closed.` DESCRIPTION: `If the Wait List(Sch/PCMM) entry is dispositioned the status = CLOSED, otherwise the Wait List(Sch/PCMM) entry status = OPEN` CROSS-REFERENCE: `409.3^E^MUMPS` `1)= S:$P(^SDWL(409.3,DA,0),U,2)'="" ^SDWL(409.3,"E",X,$P(^SDWL(409.3,DA,0),U,2),DA)=""` `2)= K:$P(^SDWL(409.3,DA,0),U,2)'="" ^SDWL(409.3,"E",X,$P(^SDWL(409.3,DA,0),U,2),DA)` `This xref is used to speed up the lookup of open or closed wait list entries for a given time range.`
24	AUDIT POINTER	AU;0	Multiple #409.324	409.324
25	COMMENTS	0;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `NOV 02, 2016` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: `Free Text field to enter information related to the appointment that needs to be made. example: see progress note date 5/01/02 this would direct the scheduling clerk to a note that may contain lab,xray orders that need to` `be completed prior to the appointment.` AUDIT: `YES, ALWAYS`
26	PACKAGE ORIGINATING	0;19	SET	'SD' FOR SCHEDULING; 'PCMM' FOR PCMM; LAST EDITED: `JUN 28, 2002`
27	EWL ENROLLEE STATUS	0;20	SET	'N' FOR NEW; 'E' FOR ESTABLISHED; 'P' FOR PRIOR; 'U' FOR UNDETERMINED; LAST EDITED: `AUG 15, 2002` DESCRIPTION: `A set of code that is determined by a formula looking at date patient last seen (file #391.91 and enrollment date from file #27.11)`
27.1	EWL ENROLLEE DATE USED	1;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 09, 2006` DESCRIPTION: `This field contains the actual date used to calculate the number of days between the current date and the last treatment or enrollment date.`
27.2	EWL ENROLLEE DATABASE FILE	1;4	SET	'0' FOR NONE; '1' FOR TREATING FACILITY; '2' FOR PATIENT ENROLLMENT; '3' FOR OUTPATIENT ENCOUNTER; '4' FOR KLF DOWNLOAD; LAST EDITED: `MAY 22, 2006` DESCRIPTION: `This field is used to track the file used to obtain either the last treatment date (TREATING FACILITY file #391.52) or the enrollment date (PATIENT ENROLLMENT file #27.11). It is used internally only for audit purposes.`
28	EDITING USER	0;21	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 30, 2002`
29	REOPEN REASON	1;1	SET	'CC' FOR INACTIVATED CLINIC; 'CA' FOR CANCELED APPOINTMENT; 'DE' FOR DATE OF DEATH ERROR; 'O' FOR OTHER; LAST EDITED: `APR 26, 2005` DESCRIPTION: `The reason why the closed EWL entry was open.` TECHNICAL DESCR: `This field has been added with patch SD5.3327. It is populated by the EWL background job.`
30	REOPEN COMMENT	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>72!($L(X)<3) X` LAST EDITED: `MAR 11, 2005` HELP-PROMPT: `Answer must be 3-72 characters in length` DESCRIPTION: `The comment used optionally with the Reopen Reason if applicable,`
32	REJECTION FLAG	FLAGS;2	SET	'1' FOR REJECTED; LAST EDITED: `MAY 13, 2006`
33	SCHEDULING REMINDER FLAG	FLAGS;3	SET	'Y' FOR TICKLER FLAG; LAST EDITED: `JUN 05, 2006`
34	INTRA TRANSFER FLAG	FLAGS;4	SET	'1' FOR INTRA TRANSFER FLAG; LAST EDITED: `APR 27, 2006`
36	120 DAYS FIELD	FLAGS;6	SET	'1' FOR NO APPOINTMENT; '2' FOR WITH APPOINTMENT; LAST EDITED: `APR 27, 2006`
37	CHANGED CLINIC PARENT POINTER	0;22	POINTER TO SD WAIT LIST FILE (#409.3)	SD WAIT LIST(#409.3) LAST EDITED: `MAY 25, 2006` DESCRIPTION: `When an EWL entry is closed with a disposition code of CL: CLINIC CHANGE, the process involves the creation of a new EWL entry with details copied from the parent. This is a pointer back to that parent entry.`
38	MULTI TEAM FLAG	FLAGS;5	SET	'1' FOR MULTI TEAM LOCATION; '0' FOR SINGL TEAM LOCATION; LAST EDITED: `MAY 24, 2006`
39	120 DAY APPT CREATED	FLAGS;1	SET	'1' FOR APPT CREATED; LAST EDITED: `MAY 29, 2006`
44	PATIENT CONTACT	4;0	DATE Multiple #409.344	409.344 DESCRIPTION: `This multiple records the patient contact events.`
45	VS AUDIT	6;0	DATE Multiple #409.345	409.345 DESCRIPTION: `This multiple is used as an audit trail of specific fields for VistA Scheduling GUI.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #4842	Consult Request Tracking	ORIGINATING DATE (1). Access: Direct Global Read & w/Fileman WL SERVICE/SPECIALTY (7). Access: Direct Global Read & w/Fileman WL SPECIFIC CLINIC (8). Access: Direct Global Read & w/Fileman CURRENT STATUS (23). Access: Direct Global Read & w/Fileman	Also, direct read on "B" xref.
ICR #6046	Mobile Scheduling Applications Suite	NAME (.01). Access: Both R/W w/Fileman CURRENT STATUS (23). Access: Both R/W w/Fileman ORIGINATING DATE (1). Access: Read w/Fileman DESIRED DATE OF APPOINTMENT (22). Access: Both R/W w/Fileman WL SPECIFIC CLINIC (8). Access: Read w/Fileman PRIORITY (10). Access: Both R/W w/Fileman EWL ENROLLEE STATUS (27). Access: Both R/W w/Fileman SCHEDULED DATE OF APPT (13). Access: Write w/Fileman INSTITUTION (2). Access: Both R/W w/Fileman WAIT LIST TYPE (4). Access: Both R/W w/Fileman REQUEST BY (11). Access: Both R/W w/Fileman PROVIDER (12). Access: Both R/W w/Fileman COMMENTS (25). Access: Both R/W w/Fileman CHANGED CLINIC PARENT POINTER (37). Access: Both R/W w/Fileman DATE APPT MADE (13.1). Access: Both R/W w/Fileman APPT CLINIC (13.2). Access: Both R/W w/Fileman APPT INSTITUTION (13.3). Access: Both R/W w/Fileman APPT STOP CODE (13.4). Access: Both R/W w/Fileman APPT CREDIT STOP CODE (13.5). Access: Both R/W w/Fileman APPT STATION NUMBER (13.6). Access: Both R/W w/Fileman APPT CLERK (13.7). Access: Both R/W w/Fileman APPT STATUS (13.8). Access: Both R/W w/Fileman WL SPECIFIC CLINIC (8). Access: Direct Global Read & w/Fileman DATE DISPOSITIONED (19). Access: Both R/W w/Fileman DISPOSITIONED BY (20). Access: Both R/W w/Fileman DISPOSITION (21). Access: Both R/W w/Fileman PATIENT (.01). Access: Direct Global Read & w/Fileman EWL ENROLLEE DATE USED (27.1). Access: Both R/W w/Fileman EWL ENROLLEE DATABASE FILE (27.2). Access: Both R/W w/Fileman SERVICE CONNECTED PERCENTAGE (14). Access: Both R/W w/Fileman SERVICE CONNECTED PRIORITY (15). Access: Both R/W w/Fileman

Name	Field # of Occurrence
^%DT	1+1, 9.5+1, 13+1, 13.1+1, 16+1, 19+1, 22+1, 27.1+1
^DIC	2+1, 5+1
Y^DIQ	ID2+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(4	ID2+1
^DGEN(27.11 - [#27.11]	IXGSPP2CC+1
^DIC(4 - [#4]	ID2+1
^DPT - [#2]	IXGSAP2CC+1, IXGSPP2CC+1
^SDWL(409.3 - [#409.3]	IXACSL+1, IXACKL+1!, IXACKEIC+1!, IXADSL+1, IXADKL+1!, IXADKEIC+1!, IXAFSL+1, IXAFKL+1!, IXAFKEIC+1!, IXGCSL+1 , IXGCKL+1!, IXGCKEIC+1!, IXGCP1CC+1, IXGCCSL+1, IXGCCKL+1!, IXGCCKEIC+1!, IXGCCP1CC+1, IXGSSL+1, IXGSKL+1!, IXGSKEIC+1! , IXGSP1CC+1, IXGSASL+1, IXGSAKL+1!, IXGSAKEIC+1!, IXGSAP1CC+1, IXGSAP2CC+1, IXGSBSL+1, IXGSBKL+1!, IXGSBKEIC+1!, IXGSBP1CC+1 , IXGSCSL+1, IXGSCKL+1!, IXGSCKEIC+1!, IXGSCP1CC+1, IXGSPSL+1, IXGSPKL+1!, IXGSPKEIC+1!, IXGSPP1CC+1, IXGSPP2CC+1, .01(XREF 1S) , .01(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K), 6(XREF 1S) , 6(XREF 1K), 7(XREF 1S), 7(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 8.5(XREF 1S), 8.5(XREF 1K), 23(XREF 1S) , 23(XREF 1K)
^SDWL(409.31 - [#409.31]	IXGSP1CC+1, IXGSAP1CC+1, IXGSBP1CC+1, IXGSCP1CC+1, IXGSPP1CC+1, 7(XREF 1S), 7(XREF 1K)
^SDWL(409.32 - [#409.32]	IXGCP1CC+1, IXGCCP1CC+1, 8(XREF 1S), 8(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	1+1, 9.5+1, 13+1, 13.1+1, 16+1, 19+1, 22+1, 27.1+1
%I	ID2+1*!
>> C	ID2+1*
>> DA	IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, IXAFSL+1, IXAFKL+1, IXGCSL+1, IXGCKL+1, IXGCP1CC+1, IXGCCSL+1 , IXGCCKL+1, IXGCCP1CC+1, IXGSSL+1, IXGSKL+1, IXGSP1CC+1, IXGSASL+1, IXGSAKL+1, IXGSAP1CC+1, IXGSAP2CC+1, IXGSBSL+1 , IXGSBKL+1, IXGSBP1CC+1, IXGSCSL+1, IXGSCKL+1, IXGSCP1CC+1, IXGSPSL+1, IXGSPKL+1, IXGSPP1CC+1, IXGSPP2CC+1, .01(XREF 1S) , .01(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K), 6(XREF 1S) , 6(XREF 1K), 7(XREF 1S), 7(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 8.5(XREF 1S), 8.5(XREF 1K), 23(XREF 1S) , 23(XREF 1K)
>> DA(1	IXAFSL+1, IXAFKL+1
DIC	ID2+1, ID4+1, ID23+1, 2+1!, 5+1!
DIC("S"	2+1, 2SCR+1, 5+1, 5SCR+1
>> DIE	2+1, 5+1
U	ID2+1, IXGCP1CC+1, IXGCCP1CC+1, IXGSP1CC+1, IXGSAP1CC+1, IXGSAP2CC+1, IXGSBP1CC+1, IXGSCP1CC+1, IXGSPP1CC+1, IXGSPP2CC+1 , 1(XREF 2S), 1(XREF 2K), 7(XREF 1S), 7(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 23(XREF 1S), 23(XREF 1K)
X	IXGCP1CC+1, IXGCCP1CC+1, IXGSP1CC+1, IXGSAP1CC+1, IXGSAP2CC+1, IXGSBP1CC+1, IXGSBP2TS+1, IXGSCP1CC+1, IXGSPP1CC+1, IXGSPP2CC+1 , .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 2S), 1(XREF 2K), 2+1!, 2(XREF 1S), 2(XREF 1K), 5+1!, 5(XREF 1S) , 5(XREF 1K), 5(XREF 2S), 5(XREF 2K), 6(XREF 1S), 6(XREF 1K), 7(XREF 1S), 7(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S) , 8(XREF 2K), 8.5(XREF 1S), 8.5(XREF 1K), 9.5+1!, 13+1!, 13.1+1!, 13.6+1!, 14+1!, 16+1!, 18.1+1! , 19+1!, 22+1!, 23(XREF 1S), 23(XREF 1K), 25+1!, 27.1+1!, 30+1!
X(1	IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, IXAFSL+1, IXAFKL+1, IXGCSL+1, IXGCKL+1, IXGCCSL+1, IXGCCKL+1 , IXGSSL+1, IXGSKL+1, IXGSASL+1, IXGSAKL+1, IXGSBSL+1, IXGSBKL+1, IXGSCSL+1, IXGSCKL+1, IXGSPSL+1, IXGSPKL+1
X(2	IXACSL+1, IXACKL+1, IXADSL+1, IXADKL+1, IXAFSL+1, IXAFKL+1, IXGCSL+1, IXGCKL+1, IXGCCSL+1, IXGCCKL+1 , IXGSSL+1, IXGSKL+1, IXGSASL+1, IXGSAKL+1, IXGSBSL+1, IXGSBKL+1, IXGSCSL+1, IXGSCKL+1, IXGSPSL+1, IXGSPKL+1
X(3	IXGSASL+1, IXGSAKL+1, IXGSBSL+1, IXGSBKL+1, IXGSPSL+1, IXGSPKL+1
>> Y	ID2+1*, 1+1, 2+1, 5+1, 9.5+1, 13+1, 13.1+1, 16+1, 19+1, 22+1 , 27.1+1

Customize PDF page

Package: Scheduling

Global: ^SDWL(409.3

Information

Description

Directly Accessed By Routines, Total: 100

Accessed By FileMan Db Calls, Total: 75

Pointed To By FileMan Files, Total: 4

Pointer To FileMan Files, Total: 11

Fields, Total: 56

ICR, Total: 2

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: