Sub-Field: 2.98

Parent File	Name	Number	Package
PATIENT(#2)	APPOINTMENT	2.98	Registration

Details

Field #	Name	Loc	Type	Details
.001	APPOINTMENT DATE/TIME		DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 05, 1987` DESCRIPTION: `This displays date/time function as defined in file manager. The date/time of the appointment.`
.01	CLINIC	0;1	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `MAR 23, 1987` DELETE TEST: `1,0)= I '$D(SDSCHED) W !,*7,"No deletion of this node allowed through fileman"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` RECORD INDEXES: `AX (#1549) (WHOLE FILE #2)`
.02	TELEPHONE OF CLINIC		COMPUTED	MUMPS CODE: `X ^DD(2.98,.02,9.2) S X=$P(Y(.02,101),U,1) S D0=Y(.02,2)` `9.2 = S Y(.02,2)=$S($D(D0):D0,1:""),Y(.02,1)=$S($D(^DPT(D0,"S",D1,0)):^(0),1:""),D0=$P(Y(.02,1),U,1) S:'$D(^SC(+D0,0)) D0=-1 S Y(.02,101)=$S($D(^SC(D0,99)):^(99),1:"")` ALGORITHM: `#.01:TELEPHONE` LAST EDITED: `APR 06, 1983` DESCRIPTION: `This is a computed field which returns the telephone number for the clinic at which this patient has an appointment. This information is stored in the HOSPITAL LOCATION file.`
3	STATUS	0;2	SET	'N' FOR NO-SHOW; 'C' FOR CANCELLED BY CLINIC; 'NA' FOR NO-SHOW & AUTO RE-BOOK; 'CA' FOR CANCELLED BY CLINIC & AUTO RE-BOOK; 'I' FOR INPATIENT APPOINTMENT; 'PC' FOR CANCELLED BY PATIENT; 'PCA' FOR CANCELLED BY PATIENT & AUTO-REBOOK; 'NT' FOR NO ACTION TAKEN; LAST EDITED: `NOV 27, 1991` DESCRIPTION: `This field contains the current status of the patient's appointment. If the field is blank, it means the appointment has not been no-showed or cancelled and the patient was not an inpatient at the time of the` `appointment. This field is set automatically by the scheduling module and must NOT be edited.` CROSS-REFERENCE: `2^ASDCN^MUMPS` `1)= D:X["C" ^SDCAN` `2)= K ^DPT("ASDCN",$P(^(0),"^"),DA,DA(1))` FIELD INDEX: `AY (#1550) MUMPS IR ACTION WHOLE FILE (#2)` `Short Descr: Action cross reference to send an HL7 notification when an appt is cancelled.` `Description: The Tele Health Management Platform (TMP) application allows users to schedule and cancel tele health appointments in VistA. TMP needs to be kept up to date with appointments are cancelled by other applications in order` `to be able to accurately display open appointment slots. This index will trigger an HL7 message sent to TMP that will update the clinic's and patient's appointments in the TMP database system to reflect the cancellation.` `Set Logic: D EN^SDTMPHLA(DA(1),DA)` `Set Cond: S X=X1(1)=""` `Kill Logic: Q` `X(1): STATUS (2.98,3)` `NO RE-INDEXING ALLOWED!`
4	REAL APPOINTMENT		BOOLEAN COMPUTED	MUMPS CODE: `S Y(4,1)=$S($D(^DPT(D0,"S",D1,0)):^(0),1:"") S X=$P(Y(4,1),U,2)=""` ALGORITHM: `STATUS=""` DESCRIPTION: `This is a computed field which determines whether the appointment is considered real (kept). This field checks to see that the status is null (this means the appointment is not no-showed or cancelled and the patient was` `not an inpatient at the time of the appointment).`
5	LAB DATE/TIME	0;3	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 05, 1987` DESCRIPTION: `If this patient is scheduled for laboratory tests in conjunction with this appointment, enter the date/time the patient should report to the lab for these tests.`
6	X-RAY DATE/TIME	0;4	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 05, 1987` DESCRIPTION: `If this patient is scheduled for x-rays in conjunction with this appointment, enter the date/time the patient should report to radiology for these x-rays.`
7	EKG DATE/TIME	0;5	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 05, 1987` DESCRIPTION: `If this patient is scheduled for EKG tests in conjuction with this clinic appointment, enter the date/time the patient should report for these tests.`
8	ROUTING SLIP PRINTED	0;6	SET	'Y' FOR YES; LAST EDITED: `DEC 30, 1983` DESCRIPTION: `If a routing sheet was printed for this appointment, this field will contain a yes. Otherwise this field will contain a no. This is created automatically by the scheduling module.`
8.5	ROUTING SLIP PRINT DATE	0;13	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 17, 1986` HELP-PROMPT: `The date the routing slip was printed.` DESCRIPTION: `If a routing sheet was printed for this visit, the date it was printed will be stored here. This is stored automatically by the MAS module.`
9	PURPOSE OF VISIT	0;7	SET	**********************REQUIRED FIELD********************** '1' FOR C&P; '2' FOR 10-10; '3' FOR SCHEDULED VISIT; '4' FOR UNSCHED. VISIT; LAST EDITED: `OCT 30, 1984` HELP-PROMPT: `Enter the reason for this appointment. Choose from the available choices.` DESCRIPTION: `Choose from the list of available choices the reason this patient has this clinic appointment. Enter 1010 if this patient was sent to the clinic after a 1010 application (registration). Enter C&P if this patient is` `being seen for a comp and pension exam. Enter scheduled visit if this patient is being seen for a previously scheduled appointment or unsched. visit if the patient is a walk-in.`
9.5	APPOINTMENT TYPE	0;16	POINTER TO APPOINTMENT TYPE FILE (#409.1)	APPOINTMENT TYPE(#409.1) LAST EDITED: `APR 07, 1993` HELP-PROMPT: `Enter from the available choices the type of appointment this patient has.` DESCRIPTION: `Enter from the available choices the type of appointment this patient is scheduled for. This is a pointer to the APPOINTMENT TYPE file.` CROSS-REFERENCE: `^^TRIGGER^409.68^.1` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(2.98,9.5,1,1,89.2) S Y(101)=$S($D(^SCE(D0,0)):^(0),1:"") S X=$S('$D(^SD(409.1,+$P(Y(101),U,10),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=X X ^DD` `(2.98,9.5,1,1,1.4)` `1.4)= S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=409.68,DIG=.1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(2.98,9.5,1,1,89.2) S Y(101)=$S($D(^SCE(D0,0)):^(0),1:"") S X=$S('$D(^SD(409.1,+$P(Y(101),U,10),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X="" X ^DD(2.98,9` `.5,1,1,2.4)` `2.4)= S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=409.68,DIG=.1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `89.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DPT(D0,"S",D1,0)):^(0),1:""),D0=$P(Y(1),U,20) S:'$D(^SCE(+D0,0)) D0=-1 S DIV(0)=D0` `CREATE VALUE)= S X=X` `DELETE VALUE)= @` `FIELD)= OUTPATIENT ENCOUNTER:#.1`
10	SPECIAL SURVEY DISPOSITION	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 24, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 9` DESCRIPTION: `If this patinet is claiming exposure to agent orange or ionizing radiation, enter the special survey disposition, indicating whether his treatment was related to that exposure, here.`
11	NUMBER OF COLLATERAL SEEN	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 28, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 9` DESCRIPTION: `If this patient is a collateral, enter the number assigned to that collateral.`
12	AUTO-REBOOKED APPT. DATE/TIME	0;10	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 05, 1987` DESCRIPTION: `If this appointment was cancelled and automatically rebooked for a future date, this field will contain the date/time for which this appointment was rescheduled. This field is created automatically by the scheduling` `module and should not be edited.`
13	COLLATERAL VISIT	0;11	SET	'1' FOR YES; LAST EDITED: `SEP 13, 1984` DESCRIPTION: `If this patient was seen as a collateral for another patient, enter YES in this field. Otherwise, enter NO.`
14	NO-SHOW/CANCELLED BY	0;12	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 17, 1990` DESCRIPTION: `If this appointment was listed as a no-show and was that no-show was subsequently cancelled, this field will contain the user that cancelled the no-show. This field is set automatically by the MAS module and should not be` `edited.`
15	NO-SHOW/CANCEL DATE/TIME	0;14	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 09, 1986` DESCRIPTION: `If this appointment was listed as a no-show and that no-show was subsequently cancelled, this field will contain the date/time the no-show was cancelled. This field is set automatically by the scheduling module and should` `not be edited.`
16	CANCELLATION REASON	0;15	POINTER TO CANCELLATION REASONS FILE (#409.2)	**********************REQUIRED FIELD********************** CANCELLATION REASONS(#409.2) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),U,4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 12, 1988` DESCRIPTION: `If this appointment was cancelled, this field will contain the reason the appointment was cancelled. Choose from the available entries in the CANCELLATION REASONS file.` SCREEN: `S DIC("S")="I '$P(^(0),U,4)"` EXPLANATION: `CHOOSE FROM ACTIVE REASONS ONLY`
17	CANCELLATION REMARKS	R;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>160!($L(X)<3) X` LAST EDITED: `MAR 29, 1988` HELP-PROMPT: `Answer must be 3-160 characters in length.` DESCRIPTION: `If this appointment was cancelled, additional remarks as to the reason the appointment was cancelled can be entered. This is optional.`
18	APPT. CANCELLED	0;17	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `APR 01, 1988` DESCRIPTION: `Field is set when user cancels another appointment set at the same time in another clinic for the same patient. This field reflects the clinic in which the patient had a scheduled appointment which was cancelled to set` `this appointment.`
19	DATA ENTRY CLERK	0;18	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 17, 1990` DESCRIPTION: `This field contains the name of the user that entered the appointment into the scheduling system. This field is created automatically by the scheduling module and should not be edited.`
20	DATE APPT. MADE	0;19	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 05, 1999` DESCRIPTION: `This field contains the date the appointment was entered into sheduling system. This field is creatd automatically by the scheduling module and should not be edited.` CROSS-REFERENCE: `2^ASADM^MUMPS` `1)= S ^DPT("ASADM",$E(X,1,30),DA(1),DA)=""` `2)= K ^DPT("ASADM",$E(X,1,30),DA(1),DA)`
21	OUTPATIENT ENCOUNTER	0;20	POINTER TO OUTPATIENT ENCOUNTER FILE (#409.68)	OUTPATIENT ENCOUNTER(#409.68) LAST EDITED: `FEB 09, 1993`
22	ENCOUNTER FORMS PRINTED	0;21	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 22, 1993` HELP-PROMPT: `Enter YES if the required encounter forms and reports have been printed for the appointment.` DESCRIPTION: `Used by the Print Manager to indicate that it has printed the encounter forms and other reports required by the division and clinic for the appointment.` TECHNICAL DESCR: `Used by IB to indicate whether or not encounter forms have been printed for the patient.`
23	ENCOUNTER FORMS AS ADD-ONS	0;22	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 22, 1993` HELP-PROMPT: `Enter YES if the required encounter forms and reports have been printed for the appointment as an add-on.` DESCRIPTION: `Used by the Print Manager to indicate that it has printed the encounter forms and other reports required by the division and clinic for the appointment and they were printed as an add-on.` TECHNICAL DESCR: `Used by IB to indicate that encounter forms & reports were printed as an add-on.`
23.1	ENCOUNTER CONVERSION STATUS	0;23	SET	'0' FOR NOT CONVERTED; '1' FOR CONVERTED; LAST EDITED: `JAN 14, 1998` DESCRIPTION: `This field indicates whether or not this appointment was converted during the ACRP Database Conversion (SD5.3211).` `The field is set to '1' after the appointment has been converted by the conversion software.`
24	APPOINTMENT TYPE SUB-CATEGORY	0;24	POINTER TO SHARING AGREEMENT SUB-CATEGORY FILE (#35.2)	SHARING AGREEMENT SUB-CATEGORY(#35.2) LAST EDITED: `MAR 05, 1997` HELP-PROMPT: `Please enter the sub-category associated with this appointment.` DESCRIPTION: `This field contains the sub-category associated with this appoitment.`
25	SCHEDULING REQUEST TYPE	0;25	SET	**********************REQUIRED FIELD********************** 'N' FOR 'NEXT AVAILABLE' APPT.; 'C' FOR OTHER THAN 'NEXT AVA.' (CLINICIAN REQ.); 'P' FOR OTHER THAN 'NEXT AVA.' (PATIENT REQ.); 'W' FOR WALKIN APPT.; 'M' FOR MULTIPLE APPT. BOOKING; 'A' FOR AUTO REBOOK; 'O' FOR OTHER THAN 'NEXT AVA.' APPT.; LAST EDITED: `NOV 07, 2000` HELP-PROMPT: `Enter the type of request that initiated the scheduling of this appointment.`
26	NEXT AVA. APPT. INDICATOR	0;26	SET	**********************REQUIRED FIELD********************** '0' FOR NOT INDICATED TO BE A 'NEXT AVA.' APPT.; '1' FOR 'NEXT AVA.' APPT. INDICATED BY USER; '2' FOR 'NEXT AVA.' APPT. INDICATED BY CALCULATION; '3' FOR 'NEXT AVA.' APPT. INDICATED BY USER & CALCULATION; LAST EDITED: `NOV 05, 1999` HELP-PROMPT: `Specify if this appointment was indicated by the user or by calculation to be a 'next available' appointment scheduling request.`
27	DESIRED DATE OF APPOINTMENT	1;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 12, 2015` HELP-PROMPT: `Enter the clinician or patient desired date for this appointment.` DESCRIPTION: `This is the desired date for the appointment. 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.`
28	FOLLOW-UP VISIT	1;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 07, 2000` HELP-PROMPT: `Indicate if this is a follow-up visit for conditions already being treated by this clinician or clinic.`
29	SCHEDULING APPLICATION	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` `MAXIMUM LENGTH: 30` LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `Name of the application that was used to schedule this appointment.`
30	SCHEDULER NAME	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<3) X` `MAXIMUM LENGTH: 35` LAST EDITED: `OCT 18, 2018` HELP-PROMPT: `Answer must be 3-35 characters in length.` DESCRIPTION: `The name of the person who scheduled this appointment. This is mainly for CCRA integration, as the CCRA user may not be an active user on the local VistA system.`
100	CURRENT STATUS		COMPUTED	MUMPS CODE: `D CURRENT^SDAMU` ALGORITHM: `D CURRENT^SDAMU` LAST EDITED: `FEB 12, 1992` DESCRIPTION: `This computed field determines the current status for the appointment. The difference between this field and the STATUS field is that appointments with a blank STATUS are further defined in this CURRENT STATUS field.` `Appointments with a blank STATUS may have a CURRENT STATUS of any one of the following:` `o FUTURE` `o NO ACTION TAKEN` `o CHECKED IN` `o CHECKED OUT` `o NON-COUNT`

Customize PDF page

Package: Registration

PATIENT(#2)-->2.98

Sub-Field: 2.98

Information

Details