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: 44.003

Package: Scheduling

HOSPITAL LOCATION(#44)-->44.001-->44.003

Sub-Field: 44.003


Information

Parent File Name Number Package
44.001 PATIENT 44.003 Scheduling

Details

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO VA PATIENT FILE (#2) VA PATIENT(#2)

  • LAST EDITED:  JUL 30, 1986
  • DESCRIPTION:  
    Patient for whom appointment data relates.
  • CROSS-REFERENCE:  44.003^ASDPSD^MUMPS
    1)= S SC=DA(2),DFN=X,SD=DA(1) D EN1^SDM3 K SC,SD
    2)= D EN1K^SDM3 K SDY,SDIV
.09 SSN COMPUTED

  • MUMPS CODE:  X ^DD(44.003,.09,9.2) S X=$P(Y(.09,101),U,9) S D0=Y(.09,2)
    9.2 = S Y(.09,2)=$S($D(D0):D0,1:""),Y(.09,1)=$S($D(^SC(D0,"S",D1,1,D2,0)):^(0),1:""),D0=$P(Y(.09,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(.09,101)=$S($D(^DPT(D0,0)):^(0),1:"")
  • ALGORITHM:  PATIENT:SSN
  • DESCRIPTION:  
    Social Security number of the patient for whom appointment data relates.
.099 TERMINAL DIGITS COMPUTED

  • MUMPS CODE:  X $P(^DD(44.003,.09,0),U,5,99) S Y(.099,1)=X S X=Y(.099,1),Y(.099,2)=X S X=6,Y(.099,3)=X S X=9,X=$E(Y(.099,2),Y(.099,3),X)
  • ALGORITHM:  $E(SSN,6,9)
  • DESCRIPTION:  
    Computed field which determines the last four digits of the SSN.
.11 STREET COMPUTED

  • MUMPS CODE:  X ^DD(44.003,.11,9.2) S X=$P(Y(.11,101),U,1) S D0=Y(.11,2)
    9.2 = S Y(.11,2)=$S($D(D0):D0,1:""),Y(.11,1)=$S($D(^SC(D0,"S",D1,1,D2,0)):^(0),1:""),D0=$P(Y(.11,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(.11,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")
  • ALGORITHM:  PATIENT:STREET ADDRESS
  • DESCRIPTION:  
    First line street address of the patient.
1 LENGTH OF APP'T 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>360)!(X<5)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 25, 2016
  • HELP-PROMPT:  Type a number between 5 and 360, 0 decimal digits.
  • DESCRIPTION:  
    Length of appointment in minutes (i.e. 15-60).
1.6 ENROLLMENT CODE COMPUTED

  • MUMPS CODE:  S I=$S($D(^SC(D0,"SL")):+$P(^("SL"),U,5),1:0),X="",Y=+^("S",D1,1,D2,0) X "F %=0:0 S %=$N(^DPT(Y,""DE"",%)) Q:'$D(^(%,0)) I +^(0)=Y&Y!(+^(0)=D0) S X=$P(^(0),U,3) Q"
  • ALGORITHM:  S I=$S($D(^SC(D0,"SL")):+$P(^("SL"),U,5),1:0),X="",Y=+^("S",D1,1,D2,0) X "F %=0:0 S %=$N(^DPT(Y,""DE"",%)) Q:'$D(^(%,0)) I +^(0)=Y&Y!(+^(0)=D0) S X=$P(^(0),U,3) Q"
  • DESCRIPTION:  
    Computed enrollment code assigned a patient for outpatient care.
1.7 ENROLLMENT DATE COMPUTED DATE

  • MUMPS CODE:  S I=$S($D(^SC(D0,"SL")):+$P(^("SL"),U,5),1:0),X="",Y=+^("S",D1,1,D2,0) X "F %=0:0 S %=$N(^DPT(Y,""DE"",%)) Q:'$D(^(%,0)) I +^(0)=Y&Y!(+^(0)=D0) S X=$P(^(0),U,2) Q"
  • ALGORITHM:  S I=$S($D(^SC(D0,"SL")):+$P(^("SL"),U,5),1:0),X="",Y=+^("S",D1,1,D2,0) X "F %=0:0 S %=$N(^DPT(Y,""DE"",%)) Q:'$D(^(%,0)) I +^(0)=Y&Y!(+^(0)=D0) S X=$P(^(0),U,2) Q"
  • DESCRIPTION:  
    Date patient was enrolled in a clinic.
2 XRAY 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    X-ray  ordered in association with an appointment.
3 OTHER 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>150!($L(X)<1) X
  • LAST EDITED:  MAY 24, 2007
  • HELP-PROMPT:  Answer must be 1-150 characters in length.
  • DESCRIPTION:  
    Any other tests ordered in association with an appointment
4 WARD LOC 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Ward location of patient if an inpatient at the time of appointment.
5 STATUS COMPUTED

  • MUMPS CODE:  S Y(5,1)=$S($D(^SC(D0,"S",D1,1,D2,0)):^(0),1:"") S X=$P(Y(5,1),U,5) X "F Y=0:0 S Y=$N(^DPT(+Y(5,1),""DE"",Y)),X=$S(X]"""":X,'$D(^(Y,0)):X,^(0)-D0:X,1:$P(^(0),U,3)) Q:Y'>0" K Y
  • ALGORITHM:  WARD LOC_0
  • LAST EDITED:  APR 01, 1983
  • DESCRIPTION:  
    Status of appointment, i.e. scheduled, unscheduled, cancelled, etc.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 OTHER, TRAVEL COMPUTED

  • MUMPS CODE:  S Y(6,1)=$S($D(^SC(D0,"S",D1,1,D2,0)):^(0),1:"") S X=$P(Y(6,1),U,3)_" "_$P(Y(6,1),U,4)
  • ALGORITHM:  XRAY_" "_OTHER
  • DESCRIPTION:  
    Other information, i.e. travel in association with this appointment.
7 DATA ENTRY CLERK 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 17, 1990
  • DESCRIPTION:  
    Clerk who entered the appointment.
8 DATE APPOINTMENT MADE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 09, 1992
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    Date/time appointment was placed into the package.
  • CROSS-REFERENCE:  44^AIHSDAM^MUMPS
    1)= Q
    2)= Q
    3)= SEE DOCUMENTATION
    Data is hard set in VA routines which is where I added a call to XREFC^BSDDAM to set cross-reference.  Added to file for documentation purposes.
    XREFC(CLIN,DATE,PAT) ;EP; -- updates AIHSDAM xref when data is hard set
    ; Called by SDM1A and SDMM1
    NEW MADE
    S MADE=$P($G(^SC(CLIN,"S",DATE,1,PAT,0)),U,7)
    I MADE]"" S ^SC("AIHSDAM",CLIN,MADE,DATE,PAT)=""
    Q
    IHS/ANMC/LJF 1/18/2002





9
OVERBOOK
OB;1
SET

  • 'O' FOR OVERBOOK;
  • DESCRIPTION:  
    Was this appointment an overbook, or scheduled over the maximum number of appointments allowed for that day/slot.





10
PRIOR X-RAY RESULTS TO CLINIC?
0;8
SET

  • 'Y' FOR YES;
  • LAST EDITED:  AUG 01, 1986
  • HELP-PROMPT:  Enter a "Y" if the patient's prior x-ray results should be sent to the clinic on the day of the patient's appointment.
  • DESCRIPTION:  
    Are prior x-ray results required to be sent to clinic at time of appointment?
  • CROSS-REFERENCE:  44^ARAD^MUMPS
    1)= S:X["Y" ^SC("ARAD",DA(2),DA(1),DA)=""
    2)= K ^SC("ARAD",DA(2),DA(1),DA)





10.5
CURRENT ELIGIBILITY CODE

COMPUTED

  • MUMPS CODE:  X ^DD(44.003,10.5,9.2) S Y(44.003,10.5,101)=$S($D(^DPT(D0,.36)):^(.36),1:"") S X=$S('$D(^DIC(8,+$P(Y(44.003,10.5,101),U,1),0)):"",1:$P(^(0),U,1)) S D0=Y(44.003,10.5,2)
    9.2 = S Y(44.003,10.5,2)=$S($D(D0):D0,1:""),Y(44.003,10.5,1)=$S($D(^SC(D0,"S",D1,1,D2,0)):^(0),1:""),D0=$P(Y(44.003,10.5,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1
  • ALGORITHM:  PATIENT:ELIGIBILITY
  • DESCRIPTION:  
    Patient's current eligibility code as assigned in the Registration portion of ADT.





11
COLLATERAL

COMPUTED

  • MUMPS CODE:  X ^DD(44.003,11,9.2) S X=$S(Y(44.003,11,2):Y(44.003,11,3),Y(44.003,11,4):X)
    9.2 = X $P(^DD(44.003,10.5,0),U,5,99) S Y(44.003,11,1)=X S X=Y(44.003,11,1)["COLLATERAL",Y(44.003,11,2)=X S X="COLLATERAL",Y(44.003,11,3)=X S X=1,Y(44.003,11,4)=X S X=""
  • ALGORITHM:  $S(#10.5["COLLATERAL":"COLLATERAL",1:"")
  • DESCRIPTION:  
    Is this appointment for a collateral of a veteran?





12
LAB TIME

COMPUTED

  • MUMPS CODE:  S X=$S($D(^SC(D0,"S",D1,1,D2,0)):^(0),1:""),Y=$P(X,"^",1) I X]"" S X=$S($P(^DPT(Y,"S",D1,0),"^",3)]"":$P(^(0),"^",3),1:"") Q:X=""  X ^DD("FUNC",2,1)
  • ALGORITHM:  S X=$S($D(^SC(D0,"S",D1,1,D2,0)):^(0),1:""),Y=$P(X,"^",1) I X]"" S X=$S($P(^DPT(Y,"S",D1,0),"^",3)]"":$P(^(0),"^",3),1:"") Q:X=""  X ^DD("FUNC",2,1)
  • DESCRIPTION:  
    Date/time lab work scheduled.





13
XRAY TIME

COMPUTED

  • MUMPS CODE:  S X=$S($D(^SC(D0,"S",D1,1,D2,0)):^(0),1:""),Y=$P(X,"^",1) I X]"" S X=$S($P(^DPT(Y,"S",D1,0),"^",4)]"":$P(^(0),"^",4),1:"") Q:X=""  X ^DD("FUNC",2,1)
  • ALGORITHM:  S X=$S($D(^SC(D0,"S",D1,1,D2,0)):^(0),1:""),Y=$P(X,"^",1) I X]"" S X=$S($P(^DPT(Y,"S",D1,0),"^",4)]"":$P(^(0),"^",4),1:"") Q:X=""  X ^DD("FUNC",2,1)
  • DESCRIPTION:  
    Date/time x-ray scheduled.





14
EKG TIME

COMPUTED

  • MUMPS CODE:  S X=$S($D(^SC(D0,"S",D1,1,D2,0)):^(0),1:""),Y=$P(X,"^",1) I X]"" S X=$S($P(^DPT(Y,"S",D1,0),"^",5)]"":$P(^(0),"^",5),1:"") Q:X=""  X ^DD("FUNC",2,1)
  • ALGORITHM:  S X=$S($D(^SC(D0,"S",D1,1,D2,0)):^(0),1:""),Y=$P(X,"^",1) I X]"" S X=$S($P(^DPT(Y,"S",D1,0),"^",5)]"":$P(^(0),"^",5),1:"") Q:X=""  X ^DD("FUNC",2,1)
  • DESCRIPTION:  
    Date/time EKG procedure scheduled.





30
ELIGIBILITY OF VISIT
0;10
POINTER TO ELIGIBILITY CODE FILE (#8)
ELIGIBILITY CODE(#8)
  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),""^"",7)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 15, 1989
  • DESCRIPTION:  This field was previously called NON-VETERAN VISIT ELIGIBILITY.  It now contains the eligibility being used at the time of the appointment.  If a patient has Other Entitled Eligibilities (replaces Dual Status), the
    appointment options will prompt for eligibility and be set here.
  • TECHNICAL DESCR:  
    This field is automatically filled in when the CHECKED-IN field(#309) is entered.  However, this will only occur if the the field is blank.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",5)=""N"""
  • EXPLANATION:  The eligibility code entered here must be non-veteran
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the CHECKED OUT field of the PATIENT sub-field of the APPOINTMENT sub-field of the HOSPITAL LOCATION File
    TRIGGERED by the CHECKED-IN field of the PATIENT sub-field of the APPOINTMENT sub-field of the HOSPITAL LOCATION File





200
PARENT RECORD REQUEST #
RTR;1
POINTER ** TO AN UNDEFINED FILE **

  • INPUT TRANSFORM:  S DIC("S")="I $D(DA),$D(DA(1)),$D(DA(2)),$D(^RT(+^(0),0)),$P(^(0),U)=+^SC(DA(2),""S"",DA(1),1,DA,0)_"";DPT(""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 17, 1986
  • DESCRIPTION:  This field contains the request number from the record tracking system.  It will only have a request number if the clinic requires records for an appointment and if the site is utilitizing the record tracking module.
    The request number represents the 'parent' request for records. This parent request may then, in turn, indicate that more than one record request is associated with this appointment. For example, if the patient's
    medical record has two volumes then there maybe a request issued for each volume.
    The request for volume 1 maybe the initial(parent) request and the request for the second volume would have volumes 1's request as its parent.
    Also, requests for x-ray film folders, dental records etc. maybe linked to this parent request.
  • SCREEN:  S DIC("S")="I $D(DA),$D(DA(1)),$D(DA(2)),$D(^RT(+^(0),0)),$P(^(0),U)=+^SC(DA(2),""S"",DA(1),1,DA,0)_"";DPT("""
  • EXPLANATION:  Allows only requests that belong to the current patient.





302
CHECK IN USER
C;2
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  OCT 31, 1991
  • DESCRIPTION:  
    This field contains the user who checked in the patient for the appointment.  It is automatically filled in when the CHECKED-IN field(#309) is entered.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the CHECKED-IN field of the PATIENT sub-field of the APPOINTMENT sub-field of the HOSPITAL LOCATION File





303
CHECKED OUT
C;3
DATE

  • INPUT TRANSFORM:  S %DT="ETXR",%DT(0)="-NOW" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),+$G(^SC(DA(2),"S",DA(1),1,DA,"C")),X<^("C") K X
  • LAST EDITED:  FEB 26, 2001
  • HELP-PROMPT:  Enter the date the patient was checked out. The date must be after the check in date.
  • DESCRIPTION:  
    This field contains the date and time the patient was checked out of the appointment.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^44.003^304
    1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0) I X S X=DIV S Y(1)=$S($D(^SC(D0,"S",D1,1,D2,"C")):^("C"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DUZ X ^
    DD(44.003,303,1,1,1.4)
    1.4)= S DIH=$S($D(^SC(DIV(0),"S",DIV(1),1,DIV(2),"C")):^("C"),1:""),DIV=X S $P(^("C"),U,4)=DIV,DIH=44.003,DIG=304 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0) I X S X=DIV S Y(1)=$S($D(^SC(D0,"S",D1,1,D2,"C")):^("C"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(44.003
    ,303,1,1,2.4)
    2.4)= S DIH=$S($D(^SC(DIV(0),"S",DIV(1),1,DIV(2),"C")):^("C"),1:""),DIV=X S $P(^("C"),U,4)=DIV,DIH=44.003,DIG=304 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= S X=$S('$D(DIU(0)):1,1:0)
    CREATE VALUE)= S X=DUZ
    DELETE CONDITION)= S X=$S('$D(DIU(0)):1,1:0)
    DELETE VALUE)= @
    FIELD)= CHECK OUT USER
  • CROSS-REFERENCE:  ^^TRIGGER^44.003^306
    1)= X ^DD(44.003,303,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^SC(D0,"S",D1,1,D2,"C")):^("C"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(44.003,303,1,2,1.1) X ^DD(44.003,303,1,2,1.4)
    1.1)= S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
    1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0)
    1.4)= S DIH=$S($D(^SC(DIV(0),"S",DIV(1),1,DIV(2),"C")):^("C"),1:""),DIV=X S $P(^("C"),U,6)=DIV,DIH=44.003,DIG=306 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0) I X S X=DIV S Y(1)=$S($D(^SC(D0,"S",D1,1,D2,"C")):^("C"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(44.003
    ,303,1,2,2.4)
    2.4)= S DIH=$S($D(^SC(DIV(0),"S",DIV(1),1,DIV(2),"C")):^("C"),1:""),DIV=X S $P(^("C"),U,6)=DIV,DIH=44.003,DIG=306 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= S X=$S('$D(DIU(0)):1,1:0)
    CREATE VALUE)= NOW
    DELETE CONDITION)= S X=$S('$D(DIU(0)):1,1:0)
    DELETE VALUE)= @
    FIELD)= #306
    This trigger records when the check out date/time was entered into the system.
  • CROSS-REFERENCE:  ^^TRIGGER^44.003^30
    1)= X ^DD(44.003,303,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^SC(D0,"S",D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(44.003,303,1,3,1.1) X ^DD(44.003,303,1,3,1.4)
    1.1)= S X=DIV S X=$S($D(^DPT(+^SC(DA(2),"S",DA(1),1,DA,0),.36)):+^(.36),1:0),X=$S('$D(^DIC(8,X,0)):"",$P(^(0),U,4)=6:"",1:X)
    1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=($P(^SC(DA(2),"S",DA(1),1,DA,0),U,10)="")
    1.4)= S DIH=$S($D(^SC(DIV(0),"S",DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=44.003,DIG=30 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= S X=($P(^SC(DA(2),"S",DA(1),1,DA,0),U,10)="")
    CREATE VALUE)= S X=$S($D(^DPT(+^SC(DA(2),"S",DA(1),1,DA,0),.36)):+^(.36),1:0),X=$S('$D(^DIC(8,X,0)):"",$P(^(0),U,4)=6:"",1:X)
    DELETE VALUE)= NO EFFECT
    FIELD)= ELIGIBILITY OF VISIT
    This trigger will stuff the patient's PRIMARY ELIGIBILITY CODE into the ELIGIBILITY OF VISIT field when the appointment is checked out.
    The only exceptions are the following:
    o if the ELIGIBILITY OF VISIT filed is already filled in
    o if the PRIMARY ELIGIBILITY CODE is DOM
  • CROSS-REFERENCE:  44.003^ANT1^MUMPS
    1)= D CO^SDM1A(DA(2),DA(1),DA,"SET")
    2)= D CO^SDM1A(DA(2),DA(1),DA,"KILL")
    This MUMPS cross reference updates the appointment status field in the patient file.





304
CHECK OUT USER
C;4
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  OCT 31, 1991
  • DESCRIPTION:  
    This field contains the user who checked out the patient for the appointment.  It is automatically entered when the CHECKED OUT field(#303) is entered.
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the CHECKED OUT field of the PATIENT sub-field of the APPOINTMENT sub-field of the HOSPITAL LOCATION File





305
CHECK IN ENTERED
C;5
DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 26, 1992
  • DESCRIPTION:  
    Date and time that the 'check in' was entered into the system.  This field is automatically filled in when the CHECKED-IN(#309) field is entered.
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the CHECKED-IN field of the PATIENT sub-field of the APPOINTMENT sub-field of the HOSPITAL LOCATION File





306
CHECK OUT ENTERED
C;6
DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 26, 1992
  • DESCRIPTION:  
    Date and time that the 'check out' was entered into the system.  This field is automatically filled in when the CHECKED-OUT(#303) field is entered.
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the CHECKED OUT field of the PATIENT sub-field of the APPOINTMENT sub-field of the HOSPITAL LOCATION File





309
CHECKED-IN
C;1
DATE

  • INPUT TRANSFORM:  S %DT="ETXR",%DT(0)=$S($P($G(^SC(DA(2),"S",DA(1),1,DA,"C")),U,3):-$P(^("C"),U,3),1:"-NOW") D ^%DT K %DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 26, 2001
  • HELP-PROMPT:  Enter a date/time before the check-out date, if one exists.
  • DESCRIPTION:  
    This field contains the date and time the patient was checked in for the appointment.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^44.003^302
    1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0) I X S X=DIV S Y(1)=$S($D(^SC(D0,"S",D1,1,D2,"C")):^("C"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^
    DD(44.003,309,1,1,1.4)
    1.4)= S DIH=$S($D(^SC(DIV(0),"S",DIV(1),1,DIV(2),"C")):^("C"),1:""),DIV=X S $P(^("C"),U,2)=DIV,DIH=44.003,DIG=302 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0) I X S X=DIV S Y(1)=$S($D(^SC(D0,"S",D1,1,D2,"C")):^("C"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(44.003
    ,309,1,1,2.4)
    2.4)= S DIH=$S($D(^SC(DIV(0),"S",DIV(1),1,DIV(2),"C")):^("C"),1:""),DIV=X S $P(^("C"),U,2)=DIV,DIH=44.003,DIG=302 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= S X=$S('$D(DIU(0)):1,1:0)
    CREATE VALUE)= S X=DUZ
    DELETE CONDITION)= S X=$S('$D(DIU(0)):1,1:0)
    DELETE VALUE)= @
    FIELD)= #302
  • CROSS-REFERENCE:  44.001^ANT^MUMPS
    1)= D CI^SDM1A(DA(2),DA(1),DA,"SET")
    2)= D CI^SDM1A(DA(2),DA(1),DA,"KILL")
    This MUMPS cross reference updates the appointment status field in the patient file.
  • CROSS-REFERENCE:  ^^TRIGGER^44.003^30
    1)= X ^DD(44.003,309,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^SC(D0,"S",D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(44.003,309,1,3,1.1) X ^DD(44.003,309,1,3,1.4)
    1.1)= S X=DIV S X=$S($D(^DPT(+^SC(DA(2),"S",DA(1),1,DA,0),.36)):+^(.36),1:0),X=$S('$D(^DIC(8,X,0)):"",$P(^(0),U,4)=6:"",1:X)
    1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=($P(^SC(DA(2),"S",DA(1),1,DA,0),U,10)="")
    1.4)= S DIH=$S($D(^SC(DIV(0),"S",DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=44.003,DIG=30 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= S X=($P(^SC(DA(2),"S",DA(1),1,DA,0),U,10)="")
    CREATE VALUE)= S X=$S($D(^DPT(+^SC(DA(2),"S",DA(1),1,DA,0),.36)):+^(.36),1:0),X=$S('$D(^DIC(8,X,0)):"",$P(^(0),U,4)=6:"",1:X)
    DELETE VALUE)= NO EFFECT
    FIELD)= ELIGIBILITY OF VISIT
    This trigger will stuff the patient's PRIMARY ELIGIBILITY CODE into the ELIGIBILITY OF VISIT field when the appointment is checked in.
    The only exceptions are the following:
    o if the ELIGIBILITY OF VISIT filed is already filled in
    o if the PRIMARY ELIGIBILITY CODE is DOM
  • CROSS-REFERENCE:  ^^TRIGGER^44.003^305
    1)= X ^DD(44.003,309,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^SC(D0,"S",D1,1,D2,"C")):^("C"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(44.003,309,1,4,1.1) X ^DD(44.003,309,1,4,1.4)
    1.1)= S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)
    1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0)
    1.4)= S DIH=$S($D(^SC(DIV(0),"S",DIV(1),1,DIV(2),"C")):^("C"),1:""),DIV=X S $P(^("C"),U,5)=DIV,DIH=44.003,DIG=305 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0) I X S X=DIV S Y(1)=$S($D(^SC(D0,"S",D1,1,D2,"C")):^("C"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(44.003
    ,309,1,4,2.4)
    2.4)= S DIH=$S($D(^SC(DIV(0),"S",DIV(1),1,DIV(2),"C")):^("C"),1:""),DIV=X S $P(^("C"),U,5)=DIV,DIH=44.003,DIG=305 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= S X=$S('$D(DIU(0)):1,1:0)
    CREATE VALUE)= NOW
    DELETE CONDITION)= S X=$S('$D(DIU(0)):1,1:0)
    DELETE VALUE)= @
    FIELD)= #305
    This trigger records when the check in date/time was entered into the system.





310
APPOINTMENT CANCELLED?
0;9
SET

  • 'C' FOR CANCELLED;
  • LAST EDITED:  OCT 25, 1984
  • DESCRIPTION:  
    Was appointment cancelled?





688
CONSULT LINK
CONS;1
POINTER TO REQUEST/CONSULTATION FILE (#123)
REQUEST/CONSULTATION(#123)
  • LAST EDITED:  MAY 24, 2006
  • HELP-PROMPT:  Enter the consult associated with this appointment.
  • DESCRIPTION:  
    This field links the appointment to a consult.
  • CROSS-REFERENCE:  44^AWAS1
    1)= S ^SC("AWAS1",$E(X,1,30),DA(2),DA(1),DA)=""
    2)= K ^SC("AWAS1",$E(X,1,30),DA(2),DA(1),DA)
    This is used as a backward pointer.
  • CROSS-REFERENCE:  44^AHST1^MUMPS
    1)= Q:$G(SDSEED)  S XX=X,%DT="ST",X="NOW" D ^%DT S X=XX,^SC("AHST1",$E(X,1,30),Y,DA(2),DA(1),DA)=""
    2)= Q
    This x-ref is used to track historical data.





999
DUPLICATE APP'TS SAME DAY

COMPUTED

  • MUMPS CODE:  S X="",Y=+^SC(D0,"S",D1,1,0) F %=D1\1:0 S %=$N(^DPT(Y,"S",%)) Q:%'>0  I %-D1,$D(^(%,0)),^(0)'["C" S X=X+1
  • ALGORITHM:  S X="",Y=+^SC(D0,"S",D1,1,0) F %=D1\1:0 S %=$N(^DPT(Y,"S",%)) Q:%'>0  I %-D1,$D(^(%,0)),^(0)'["C" S X=X+1
  • DESCRIPTION:  
    Did the patient have duplicate appointments on the same day?







    



Info | 
Details | 
All