STANDARD DATA DICTIONARY #853.9 -- VPS APPOINTMENTS QUEUE FILE 3/24/25 PAGE 1
STORED IN ^VPS(853.9, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is a temporary file containing appointments for a given date range in which initialy populated by "VPS GETALL
APPOINTMENTS" RPC. This temporary file represents appointment queue displayed in Vecna's VPS Patient Appointment Queue application.
This temporary file will be updated periodically by Vecna's VPS Patient Appointment Queue by calling "VPS GET UPDATED APPOINTMENTS"
RPC.
The main purpose of this file is to minimize number of records returned to the Vecna application. The "VPS GET UPDATED
APPOINTMENTS" RPC will use this file to filter out the non-modified appointments displayed in the Vecna's VPS Patient Appointment
Queue.
DD ACCESS:
RD ACCESS:
WR ACCESS:
DEL ACCESS:
LAYGO ACCESS:
AUDIT ACCESS:
PRIMARY KEY: A (#115)
Uniqueness Index: CLINIC (#1219)
File, Field: 1) QUEUE ID (853.9,.01)
CROSS
REFERENCED BY: QUEUE ID(B)
INDEXED BY: QUEUE ID (CLINIC)
853.9,.01 QUEUE ID 0;1 NUMBER (Required) (Key field)
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X S:$D(X) DINUM=X
LAST EDITED: JUL 19, 2013
HELP-PROMPT: Type a number between 1 and 9999999999, 0 decimal digits.
DESCRIPTION: This field contains a sequential number generated at the time a record is stored in the file. It
only serves to create an entry in the file and has no other special meaning.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 853.9^B
1)= S ^VPS(853.9,"B",$E(X,1,30),DA)=""
2)= K ^VPS(853.9,"B",$E(X,1,30),DA)
This cross reference is utilized for identification.
FIELD INDEX: CLINIC (#1219) REGULAR IR LOOKUP & SORTING
Unique for: Key A (#115), File #853.9
Short Descr: Uniqueness Index for Key 'A' of File #853.9
Set Logic: S ^VPS(853.9,"CLINIC",X,DA)=""
Kill Logic: K ^VPS(853.9,"CLINIC",X,DA)
Whole Kill: K ^VPS(853.9,"CLINIC")
X(1): QUEUE ID (853.9,.01) (Subscr 1)
853.9,1 APPOINTMENT FROM DATE 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 13, 2014
HELP-PROMPT: Enter Appointment From Date or Date/Time.
DESCRIPTION:
This is the Appointment From Date in which the appointments for the queue was retrieved.
853.9,2 APPOINTMENT THROUGH DATE 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 13, 2014
HELP-PROMPT: Enter Appointment Through Date or Date/Time.
DESCRIPTION:
This is the Appointment Through Date in which the appointments for the queue was retrieved.
853.9,10 APPOINTMENTS 1;0 POINTER Multiple #853.91
DESCRIPTION:
A list of appointments for the given queue.
INDEXED BY: CLINIC & APPOINTMENT DATE/TIME & PATIENT (C)
853.91,.01 CLINIC 0;1 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: JUL 19, 2013
HELP-PROMPT: Select the Clinic for this appointment.
DESCRIPTION:
This is the clinic associated with the appointment.
CROSS-REFERENCE: 853.91^B
1)= S ^VPS(853.9,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^VPS(853.9,DA(1),1,"B",$E(X,1,30),DA)
This cross refernce is utilized for look ups.
RECORD INDEXES: C (#1220)
853.91,1 APPOINTMENT DATE/TIME 0;2 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
LAST EDITED: NOV 13, 2014
HELP-PROMPT: Enter Appointment Date/Time.
DESCRIPTION:
This is the Date/Time of a patient's appointment in the clinic.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: C (#1220)
853.91,2 PATIENT 0;3 POINTER TO PATIENT FILE (#2)
LAST EDITED: JUL 19, 2013
HELP-PROMPT: Select the patient.
DESCRIPTION:
This is the patient for whom the appointment data relates.
RECORD INDEXES: C (#1220)
853.91,3 APPOINTMENT TYPE 0;4 POINTER TO APPOINTMENT TYPE FILE (#409.1)
LAST EDITED: JUL 19, 2013
HELP-PROMPT: Select the Appointment Type.
DESCRIPTION: This is the type of appointment the patient is scheduled for at the time the field being
populated.
This time-sensitive (As-Of) version is essential to filter the non-changed appointments thus
minimize number of records returned to the VPS Appointment Queue.
853.91,4 PRINTED APPOINTMENT STATUS 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: JUL 19, 2013
HELP-PROMPT: Answer must be 1-50 characters in length.
DESCRIPTION: This field contains what the user will see in the VPS Appointment Queue at the time this field is
being populated. This printed version is an extention of Appointment Status Name and Status
indicator such as "NON-COUNT", "ACT REQ", "FUTURE", "CHECK IN", or "CHECK OUT".
This time-sensitive (As-Of) version is essential to filter the non-changed appointments thus
minimize number of records returned to the VPS Appointment Queue.
FILES POINTED TO FIELDS
APPOINTMENT TYPE (#409.1) APPOINTMENTS:APPOINTMENT TYPE (#3)
HOSPITAL LOCATION (#44) APPOINTMENTS:CLINIC (#.01)
PATIENT (#2) APPOINTMENTS:PATIENT (#2)
Subfile #853.91
Record Indexes:
C (#1220) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Index of Sub File 853.91 on CLINIC, APPOINTMET DT, PATIENT
Description: Given Clinic, Appointment Date/Time, and Patient, user can use this index to retrieve appointment record in the
vps appointment queue.
Set Logic: S ^VPS(853.9,DA(1),1,"C",X(1),X(2),X(3),DA)=""
Kill Logic: K ^VPS(853.9,DA(1),1,"C",X(1),X(2),X(3),DA)
Whole Kill: K ^VPS(853.9,DA(1),1,"C")
X(1): CLINIC (853.91,.01) (Subscr 1) (forwards)
X(2): APPOINTMENT DATE/TIME (853.91,1) (Subscr 2) (forwards)
X(3): PATIENT (853.91,2) (Subscr 3) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):