Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 2.98

Package: Registration

VA PATIENT(#2)-->2.98

Sub-Field: 2.98


Information

Parent File Name Number Package
VA 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.
  • GROUP:  IHS
.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"
  • GROUP:  IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2^AIHSCL
    1)= S ^DPT("AIHSCL",$E(X,1,30),DA(1),DA)=""
    2)= K ^DPT("AIHSCL",$E(X,1,30),DA(1),DA)
    This index was created by IHS to allow for quick lookup on the a patients appointment clinic.  It is used for IHS GUI Scheduling 4.0
.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.
  • GROUP:  IHS
  • CROSS-REFERENCE:  2^ASDCN^MUMPS
    1)= D:X["C" ^SDCAN
    2)= K ^DPT("ASDCN",$P(^(0),"^"),DA,DA(1))
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.
  • GROUP:  IHS
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.
  • GROUP:  IHS
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.
  • GROUP:  IHS
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.
  • GROUP:  IHS
8.5 ROUTING SLIP PRINT DATE 0;13 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  NOV 02, 2001
  • HELP-PROMPT:  (No range limit on date)
  • 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.
  • GROUP:  IHS
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.
  • GROUP:  IHS
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.
  • GROUP:  IHS
  • 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.
  • GROUP:  IHS
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.
  • GROUP:  IHS
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.
  • GROUP:  IHS
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
  • GROUP:  IHS
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 thsi appointment was cancelled, additional remarks as to the reason the appointment was cancelled can be entered.  This is optional.
  • GROUP:  IHS
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.
  • GROUP:  IHS
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.
  • GROUP:  IHS
20 DATE APPT. MADE 0;19 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 06, 2000
  • 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.
  • TECHNICAL DESCR:  IHS/ANMC/LJF 7/06/2000: added time to field to track when appointments are being made during the day. Also changed DATE APPOINTMENT MADE in file 44.
    WARNING: Be careful adding xrefs as these fields are hard set in VA code!!
    Mods to routines made in SDMAWI1, SDM1A, SDMM1,SDAUT2.
  • GROUP:  IHS
  • 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
  • GROUP:  IHS





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.
  • GROUP:  IHS





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.
  • GROUP:  IHS





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 (SD*5.3*211).
    The field is set to '1' after the appointment has been converted by the conversion software.
  • GROUP:  IHS





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 07, 2000
  • HELP-PROMPT:  This is the date the clinician or patient desired for the scheduling of this appointment.





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.





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
  • GROUP:  IHS







    



Info | 
Details | 
All