Global: ^SC

Name given by user to any ward, clinic, fileroom, operating room or other location within a VA facility.

1900,0)= I $N(^SC(DA,"S",DT))+1 W !?10,*7,"FUTURE APP'TS IN CLINIC!"

1)= S ^SC("B",$E(X,1,30),DA)=""

2)= K ^SC("B",$E(X,1,30),DA)

1)= X ^DD(44,.01,1,2,1.3) I X S X=DIV X ^DD(44,.01,1,2,89.2) S X=$P(Y(101),U,1),X=X S X=X S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIV X ^DD(44,.01,1,2,1.4)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^SC(D0,42)):^(42),1:"") S X=Y(0)'=$S('$D(^DIC(42,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1))

1.4)= S DIH=$S($D(^DIC(42,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(0)=DIV_$S(%]"":U_%,1:""),DIH=42,DIG=.01 D ^DICR:$N(^DD(DIH,DIG,1,0))>0

2)= Q

89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^SC(D0,42)):^(42),1:""),D0=$P(Y(1),U,1) S:'$D(^DIC(42,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DIC(42,D0,0)):^(0),1:"")

CREATE CONDITION)= NAME'=WARD LOCATION FILE POINTER

CREATE VALUE)= NAME

DELETE VALUE)= NO EFFECT

FIELD)= WARD LOCATION FILE POINTER:NAME

1)= Q

2)= Q

The 'TEAM' cross reference of this file is created & modified through changes to the ASSOCIATED CLINIC (#.09) Field of the TEAM POSITION (#404.57) File and the NAME (#.01) Field of the TEAM (#404.51) File.  This results in

a whole-file cross-reference with which a clinic can be looked-up for a team that has a team position with an associated clinic.  The 'ATEAM' cross-reference does not do anything - it is here for documentation purposes.

1)= Q

2)= S RTPL=X,X="RTP6" X ^%ZOSF("TEST") S X=RTPL K RTPL I $T D ^RTP6

1)= X ^DD(44,.01,1,12,1.3) I X S X=DIV X ^DD(44,.01,1,12,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIV X ^DD(44,.01,1,12,1.4)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^SC(D0,0)):^(0),1:"") S X=Y(0)'=$S('$D(^SCRS(403.12,+$P(Y(1),U,29),0)):"",1:$P(^(0),U,1))

1.4)= S DIH=$S($D(^SCRS(403.12,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=403.12,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^SC(D0,0)):^(0),1:""),D0=$P(Y(1),U,29) S:'$D(^SCRS(403.12,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^SCRS(403.12,D0,0)):^(0),1:"")

CREATE CONDITION)= NAME'=CLINIC SERVICES RESOURCE

CREATE VALUE)= NAME

DELETE VALUE)= NO EFFECT

FIELD)= CLINIC SERVICES RESOURCE:NAME

This trigger cross-reference is used to update the Name field (#.01) of the Clinic Services Resource file (#403.12).

Abbreviation given by user to any ward, clinic, fileroom, operating room or other location associated with the NAME.

1)= S ^SC("C",$E(X,1,30),DA)=""

2)= K ^SC("C",$E(X,1,30),DA)

Type of location assigned to entries into this file, i.e. Ward, Clinic, Fileroom, Operating Room, Other.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SC(D0,0)):^(0),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y X ^DD(44,2,1,1,1.1) X ^DD(44,2,1,1,1.4)

1.1)= S X=DIV S SDX=$N(^DIC(40.9,"C",X,0)) S:SDX'>0 SDX=0 S X=$S('SDX:"",$D(^DIC(40.9,+SDX,0)):+SDX,1:"") K SDX

1.4)= S DIH=$S($D(^SC(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,21,99))  S DIH=DIH_U" S %=$P(DIH,U,23,999),DIU=$P(DIH,U,22),^(0)=$P(DIH,U,1,21)_U_DIV_$S(%]"":U_%,1:""),DIH=44,DIG=2.1 D ^DICR:$N(^DD(DIH,DIG,1,0))

>0

2)= Q

CREATE VALUE)= S SDX=$N(^DIC(40.9,"C",X,0)) S:SDX'>0 SDX=0 S X=$S('SDX:"",$D(^DIC(40.9,+SDX,0)):+SDX,1:"") K SDX

DELETE VALUE)= NO EFFECT

FIELD)= TYPE E

Type extension of a location assigned to entries into this file to insure user is not allowed to use a previously designated Ward Location as a Clinic Location for example.

TRIGGERED by the TYPE field of the HOSPITAL LOCATION File

1)= I $D(^DIC(40.9,+X,0)),$P(^(0),"^",2)]"" S ^SC("AC",$P(^(0),"^",2),DA)=""

2)= I $D(^DIC(40.9,+X,0)),$P(^(0),"^",2)]"" K ^SC("AC",$P(^(0),"^",2),DA)

Institution name assigned to each entry in this file to identify where the specific location is.

Division name assigned to each entry in this file to identify wehre the specific location is.  There can be multiple divisions assigned to an Institution, but only one division per location.

Module or name of hospital location.

Default device to which information should print for a specific location.  This field is not currently being utilized.

A disposition action associated with specific location, i.e.  '0'= none; '1'=appointment record request; '2'=scheduling.

Location of visit for specified entry.

Three digit stop code number assigned to specific location.  Each stop code number represents a type of care or Service/treating specialty (clinics only).

1)= S ^SC("ASTOP",$E(X,1,30),DA)=""

2)= K ^SC("ASTOP",$E(X,1,30),DA)

Aid in accessing historic visits

Short Descr:  Index stop codes

Description:  This index can be used to find all hospital locations in a stop code.

Set Logic:  S ^SC("AST",X,DA)=""

Kill Logic:  K ^SC("AST",X,DA)

Whole Kill:  K ^SC("AST")

X(1):  STOP CODE NUMBER  (44,8)  (Subscr 1)  (forwards)

Previous year's three digit stop code number that was assigned to specific location (clinics only).

WRITE AUTHORITY:  ^

UNEDITABLE

Service assigned to specific location, i.e. Medicine, Surgery, Psychiatry, etc.

Treating specialty assigned a specific location, i.e. neurosurgery, alcohol/drug rehabilitation, dermatology (specialties within Services usually).

Physical location of a specific ward or clinic, etc., i.e.  3rd floor,  Wing A.

Synonym or shortened name associated with a specific location.

Special AMIS stop associated with a specific location based on the Service assigned.

Category of visit associated with a specific location.

Default provider or physician that is assigned to specific clinic.

Terminals that cannot be utilized from specific location.

Agency associated with specific location, i.e. Veterans Affairs, Department of Defense, etc.

If this field is set to 'YES', the user will be prompted for the date and time.  The current date and time will be the default.

If this field is set to 'NO' or is not entered, the user will not be prompted and the current date and time will automatically be entered.

If an appointment is scheduled retroactively then the system will use the date and time of the appointment as the check in/out time.  This date/time will either be entered automatically or used as a default, depending upon

how this parameter is set.

This field is used to associate the clinic with a Clinic Services Resource.

UNEDITABLE

help ensure that the workload data is acceptable to the Austin National Patient Care Database.

1)= S ^SC("ASCRPW",$E(X,1,30),DA)=""

2)= K ^SC("ASCRPW",$E(X,1,30),DA)

If location is a ward, this is the file pointer to the Ward Location File, File 42 in which this location is also stored.

TRIGGERED by the HOSPITAL LOCATION FILE POINTER field of the WARD LOCATION File

1)= X ^DD(44,42,1,1,1.3) I X S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(42,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DIC(42,D0,44)):^(44),1:"") S X=$P(Y(101),U,1),X=X S X=X S D0=I(0,0) S DIU=X K Y X ^DD(44,42,1,

1,1.1) X ^DD(44,42,1,1,1.4)

1.1)= S X=DIV S X=$S('$D(D0):"",D0<0:"",1:D0)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(44,42,1,1,69.2) S X=X S Y=X,X=Y(1),X=X S X=X'=Y S D0=I(0,0)

1.4)= S DIH=$S($D(^DIC(42,DIV(0),44)):^(44),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(44)=DIV_$S(%]"":U_%,1:""),DIH=42,DIG=44 D ^DICR:$N(^DD(DIH,DIG,1,0))>0

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(42,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DIC(42,D0,44)):^(44),1:"") S X=$P(Y(101),U,1),X=X S X=X S D0=I(0,0) S DIU=X K Y S X="" X ^DD(44,4

2,1,1,2.4)

2.4)= S DIH=$S($D(^DIC(42,DIV(0),44)):^(44),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(44)=DIV_$S(%]"":U_%,1:""),DIH=42,DIG=44 D ^DICR:$N(^DD(DIH,DIG,1,0))>0

69.2)= S I(0,0)=$S($D(D0):D0,1:"") S X=$S('$D(D0):"",D0<0:"",1:D0),Y(1)=X,D0=Y(0) S:'$D(^DIC(42,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(42,D0,44)):^(44),1:"") S X=$P(Y(101),U,1)

CREATE CONDITION)= NUMBER'=INTERNAL(WARD LOCATION FILE POINTER:HOSPITAL LOCATION FILE POINTER)

CREATE VALUE)= NUMBER

DELETE VALUE)= @

FIELD)= WARD LOCATION FILE POINTER:HOSPITAL LOCATION FILE POINTER

be edited through Scheduling options.  They can only be altered using the API.

WRITE AUTHORITY:  ^

1)= S ^SC("AOOS",$E(X,1,30),DA)=""

2)= K ^SC("AOOS",$E(X,1,30),DA)

3)= This cross-reference stores only occasion of service clinics

This cross-reference will show those clinics which are flagged as occasions of service.  These clinics are not editable through scheduling software.  They are created with APIs contained the routine SCDXUAPI.

This field stores the package which created the occasion of service location.  This field should NOT be altered by the site.  It is uneditable through FileMan.

WRITE AUTHORITY:  ^

Telephone number for specific location.

Appointment multiple stores all data related to outpatient visits including basic demographic data on a patient, appointment data, lab, x-ray and EKG appointment dates/times.

WRITE AUTHORITY:  ^

Cancellation date/time beginning for a clinic.

Does user want the chart checked for availability for this clinic.

Special instructions (free text) entered by clerk at time of making the appointment.

Length of appointment designated for clinic.

Does the clinic have variable appointment lengths?  Can, if length of appointment is 10 minutes, user make longer appointments in increments of 10 at time of making appointment?

The hour clinic will begin displaying availability (i.e. 8AM).

Should service connected slots be held open for a set number of days?  Service connected veterans have priority over NSC veterans when scheduling appointments.

Principal clinic or main clinic assigned to a specific location.

1)= S ^SC("AIHSPC",$E(X,1,30),DA)=""

2)= K ^SC("AIHSPC",$E(X,1,30),DA)

3)= USED TO FIND PRINCIPAL CLINICS

Used to identify which clinics are principal clinics and which individual clinics are attached to them.  IHS/ANMC/LJF 6/29/2000

9.2 = I SDLA#ZSI>0 W !,"INCREMENTS PER HOUR INCONSISTENT WITH ",SDLA,"-MINUTE APPOINTMENT LENGTH" K X,ZSI,SDLA Q

increments are changed.

Number of allowable overbooks per day.  If overbooks are not allowed, the number should be set to zero.

Should the user be able to schedule appointments on holiday's for specific location?

How many copies of appointment lists should be generated for this clinic?

Multiple that stores clinic availability information.

Date/time set up for clinic availability.

Pattern for clinic availability information.

WRITE AUTHORITY:  ^

Special pattern information (storage of previous clinic patterns and current one).

WRITE AUTHORITY:  ^

This field contains the patterns and limit dates applicable to scheduling appointments on Sundays.  These fields are overridden by patterns entered for a specific (Sunday) date and stored on the "OST" nodes.

WRITE AUTHORITY:  ^

This field contains the patterns and limit dates applicable to scheduling appointments on Mondays.  These fields are overridden by patterns entered for a specific (Monday) date and stored on the "OST" nodes.

WRITE AUTHORITY:  ^

This field contains the patterns and limit dates applicable to scheduling appointments on Tuesdays.  These fields are overridden by patterns entered for a specific (Tuesday) date and stored on the "OST" nodes.

WRITE AUTHORITY:  ^

This field contains the patterns and limit dates applicable to scheduling appointments on Wednesdays.  These fields are overridden by patterns entered for a specific (Wednesday) date and stored on the "OST" nodes.

WRITE AUTHORITY:  ^

This field contains the patterns and limit dates applicable to scheduling appointments on Thursdays.  These fields are overridden by patterns entered for a specific (Thursday) date and stored on the "OST" nodes.

WRITE AUTHORITY:  ^

This field contains the patterns and limit dates applicable to scheduling appointments on Fridays.  These fields are overridden by patterns entered for a specific (Friday) date and stored on the "OST" nodes.

WRITE AUTHORITY:  ^

This field contains the patterns and limit dates applicable to scheduling appointments on Saturdays.  These fields are overridden by patterns entered for a specific (Saturday) date and stored on the "OST" nodes.

WRITE AUTHORITY:  ^

Will x-ray films be required for patients scheduled in this clinic?

Will pharmacy action profiles be required for patients scheduled in this clinic?

This is the number of times in a row that a patient can be a no-show in a clinic before he/she is flagged for possible discharge from the clinic.

Maximum number of days that can be available when clerk searching for open clinic slots in the future.

at 9am or later will be stuffed with new appointment.

Are collateral visits allowed to this clinic? Yes or No

period of two weeks (set parameter), then auto rebook function will quit after searching a two week period in future for available slots.

Should only privileged users have access to book to this clinic?

must be entered one at a time.

Is this clinic to be a non-count clinic for workload purposes? OR Are visits to this clinic to be included in workload statistics?

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X="" X ^DD(44,2502,1,1,1.4)

1.4)= S DIH=$S($D(^SC(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,20,99))  S DIH=DIH_U" S %=$P(DIH,U,22,999),DIU=$P(DIH,U,21),^(0)=$P(DIH,U,1,20)_U_DIV_$S(%]"":U_%,1:""),DIH=44,DIG=2502.5 D ^DICR:$N(^DD(DIH,DIG,1,

0))>0

2)= Q

CREATE VALUE)= @

DELETE VALUE)= NO EFFECT

FIELD)= INCL

This field should contain a Yes if this is a non-count clinic that should be included on the file room lists.

Appointments to this clinic will receive this stop code credit in addition to the 'normal' stop code credit if a stop code different from the 'normal' stop code for this clinic is entered here.

Short Descr:  Index credit stop codes

Description:  This index can be used to find all hospital locations in a credit stop code.

Set Logic:  S ^SC("ACST",X,DA)=""

Kill Logic:  K ^SC("ACST",X,DA)

Whole Kill:  K ^SC("ACST")

X(1):  CREDIT STOP CODE  (44,2503)  (Subscr 1)  (forwards)

Previous year's credit stop code assigned to clinic.

WRITE AUTHORITY:  ^

UNEDITABLE

Does clinic meet at designated facility?

Date clinic was inactivated.

Date clinic was reactivated.

The default or usual appointment type to be associated with this clinic.

Enter the no-show letter to be associated with this clinic, so if patient does not show for appointment, this specific no-show letter will print as opposed to the generic no-show letter.

1)= S ^SC("ALTN",$E(X,1,30),DA)=""

2)= K ^SC("ALTN",$E(X,1,30),DA)

Enter the pre-appointment letter to be associated with this clinic, so if letters are generated, this specific pre-appointment letter will print as opposed to the generic pre-appointment letter.

1)= S ^SC("ALTP",$E(X,1,30),DA)=""

2)= K ^SC("ALTP",$E(X,1,30),DA)

Enter the clinic cancellation letter to be associated with this clinic, so if clinic is cancelled, this letter will print as opposed to generic clinic cancellation letter.

1)= S ^SC("ALTC",$E(X,1,30),DA)=""

2)= K ^SC("ALTC",$E(X,1,30),DA)

Enter appointment cancellation letter to be associated with this clinic, so if patient cancels appointment, this letter will print as opposed to generic appointment cancellation letter.

1)= S ^SC("ALTA",$E(X,1,30),DA)=""

2)= K ^SC("ALTA",$E(X,1,30),DA)

provider.

diagnosis.

This contains one or more team positions that have this clinic as an 'ASSOCIATE CLINIC' - defined in the TEAM POSITION (#404.57) File.

This only is relevant if there is no default provider.  If so, if there is a current primary care practitioner for the patient - it will be provided as the default provider.

This field should contain a YES only if the clinic location is authorized to dispense inpatient medications to outpatients.

1)= S ^SC("AE",$E(X,1,30),DA)=""

2)= K ^SC("AE",$E(X,1,30),DA)

This field is a pointer to File#59, Outpatient Site, that this hospital location is associated with.  If this field is not set autofinishing of Rx's for this hospital location will not take place.

Printer where autofinished Rx's will print for a particular clinic.