STANDARD DATA DICTIONARY #44 -- HOSPITAL LOCATION FILE 3/24/25 PAGE 1
STORED IN ^SC( (2 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains locations found in the hospital (ie. Wards, Clinics)
*********DO NOT RE-INDEX THIS FILE**********
DD ACCESS: @
RD ACCESS: d
WR ACCESS: D
DEL ACCESS: @
LAYGO ACCESS: D
APPLICATION GROUP(S): SD, LR, RA, QAP
IDENTIFIED BY: TYPE (#2)[R], TYPE EXTENSION (#2.1)[R]
"WRITE": I $P(^(0),U,3)="C" N SCMSG S SCMSG=" "_$$PRDEF^SDCO31(+Y) D EN^DDIOL(SCMSG,"","?5")
POINTED TO BY: ENROLLMENT CLINIC field (#.01) of the ENROLLMENT CLINIC sub-field (#2.001) of the PATIENT File (#2)
CLINIC field (#.01) of the APPOINTMENT sub-field (#2.98) of the PATIENT File (#2)
APPT. CANCELLED field (#18) of the APPOINTMENT sub-field (#2.98) of the PATIENT File (#2)
AREA field (#.02) of the CONTACT sub-field (#4.03) of the INSTITUTION File (#4)
APPT CLINIC field (#5) of the PRE-REGISTRATION CALL LIST File (#41.42)
HOSPITAL LOCATION FILE POINTER field (#44) of the WARD LOCATION File (#42)
PATIENT OR CLINIC field (#213) of the MAS PARAMETERS File (#43)
CLINIC EXCLUSION field (#.01) of the CLINIC EXCLUSION sub-field (#43.04) of the MAS PARAMETERS File (#43)
MODULE field (#4) of the HOSPITAL LOCATION File (#44)
PRINCIPAL CLINIC field (#1916) of the HOSPITAL LOCATION File (#44)
*RT AT HOME RETREIVER field (#2009) of the HOSPITAL LOCATION File (#44)
*RT NOT AT HOME RETREIVER field (#2010) of the HOSPITAL LOCATION File (#44)
RENDERING LOCATION field (#.05) of the CPT RECORD DATE/TIME sub-field (#45.06) of the PTF File (#45)
CLINIC field (#.01) of the CLINIC DATA sub-field (#50.9008) of the DRUG COST File (#50.9)
HOSPITAL LOCATION field (#.01) of the HOSPITAL LOCATION sub-field (#51.153) of the ADMINISTRATION SHIFT File
(#51.15)
HOSPITAL LOCATION field (#.01) of the HOSPITAL LOCATION sub-field (#51.17) of the ADMINISTRATION SCHEDULE File
(#51.1)
CLINIC field (#5) of the PRESCRIPTION File (#52)
PATIENT LOCATION field (#1.1) of the PENDING OUTPATIENT ORDERS File (#52.41)
VISTA CLINIC field (#20.6) of the ERX HOLDING QUEUE File (#52.49)
WARD IEN field (#7) of the IV MEDICATION ORDERS DC'D File (#52.75)
CLINIC field (#113) of the NON-VERIFIED ORDERS File (#53.1)
CLINIC field (#.01) of the CLINIC DEFINITION File (#53.46)
CLINIC field (#1) of the BCMA MISSING DOSE REQUEST File (#53.68)
CLINIC TO PRINT field (#5) of the BCMA REPORT REQUEST File (#53.69)
CLINIC field (#136) of the IV sub-field (#55.01) of the PHARMACY PATIENT File (#55)
CLINIC field (#13) of the NON-VA MEDS sub-field (#55.05) of the PHARMACY PATIENT File (#55)
CLINIC field (#130) of the UNIT DOSE sub-field (#55.06) of the PHARMACY PATIENT File (#55)
CLINIC field (#.01) of the CLINIC sub-field (#57.81) of the CLINIC GROUP File (#57.8)
CRASH CART LOCATION field (#7) of the PHARMACY AOU STOCK File (#58.1)
WARD/LOCATION (FOR PERCENTAGE) field (#.01) of the WARD/LOCATION (FOR PERCENTAGE) sub-field (#58.14) of the PHARMACY
AOU STOCK File (#58.1)
DWO MESSAGE ENTITY field (#.01) of the DWO MESSAGE ENTITY sub-field (#58.6014) of the PADE INVENTORY SYSTEM File
(#58.601)
CLINIC LOCATION field (#.01) of the CLINIC LOCATION sub-field (#58.638) of the PADE DISPENSING DEVICE File (#58.63)
CLINIC/OR field (#8) of the PADE OUTBOUND MESSAGES File (#58.72)
OPERATING ROOM field (#.01) of the OPERATING ROOM sub-field (#58.7413) of the DIVISION sub-field (#58.74) of the
PADE SYSTEM SETUP File (#58.7)
PADE CLINIC field (#.01) of the PADE CLINIC sub-field (#58.7481) of the PADE CLINIC GROUP sub-field (#58.748) of the
DIVISION sub-field (#58.74) of the PADE SYSTEM SETUP File (#58.7)
CLINIC field (#.01) of the CLINIC sub-field (#58.749) of the DIVISION sub-field (#58.74) of the PADE SYSTEM SETUP
File (#58.7)
DEFAULT ERX CLINIC field (#10) of the OUTPATIENT SITE File (#59)
CHARGE LOCATION field (#1007) of the OUTPATIENT SITE File (#59)
SORT GROUPS field (#.01) of the SORT GROUP sub-field (#59.81) of the OUTPATIENT CLINIC SORT GROUP File (#59.8)
SUPPORTED WARD field (#.01) of the SUPPORTED WARD sub-field (#62.4871) of the FOREIGN INTERFACE File (#62.487)
ORDERING LOCATION field (#.01) of the ORDERING LOCATION sub-field (#62.9003) of the LAB SHIPPING CONFIGURATION File
(#62.9)
REQUESTING LOC/DIV field (#.111) of the CHEM, HEM, TOX, RIA, SER, etc. sub-field (#63.04) of the LAB DATA File (#63)
REQUESTING LOC/DIV field (#.111) of the MICROBIOLOGY sub-field (#63.05) of the LAB DATA File (#63)
HOSPITAL LOCATION field (#14) of the WKLD LOG FILE File (#64.03)
ORDERING LOCATION field (#20) of the ACCESSION WKLD CODE TIME sub-field (#64.1111) of the WKLD CODE sub-field
(#64.111) of the DATE sub-field (#64.11) of the WKLD DATA File (#64.1)
SEPARATE REPORT LOCATION field (#.01) of the SEPARATE REPORT LOCATION sub-field (#64.57) of the LAB REPORTS File
(#64.5)
LOCATION field (#.01) of the INTERIM REPORTS File (#64.6)
LAB OOS LOCATION field (#.8) of the ACCESSION File (#68)
ORDERING LOCATION field (#94) of the ACCESSION NUMBER sub-field (#68.02) of the DATE sub-field (#68.01) of the
ACCESSION File (#68)
REPORT ROUTING LOCATION field (#8) of the SPECIMEN # sub-field (#69.01) of the LAB ORDER ENTRY File (#69)
ORDERING LOCATION field (#23) of the SPECIMEN # sub-field (#69.01) of the LAB ORDER ENTRY File (#69)
ORDERING LOCATION field (#11) of the TEST sub-field (#69.11) of the COLLECTION LIST File (#69.1)
EXCLUDE CLINICS field (#.01) of the EXCLUDE CLINICS sub-field (#69.8616) of the HOWDY SITE FILE File (#69.86)
DEFAULT LAB OOS LOCATION field (#.8) of the LABORATORY SITE File (#69.9)
EXCEPTED LOCATIONS field (#.01) of the EXCEPTED LOCATIONS sub-field (#69.9004) of the LABORATORY SITE File (#69.9)
HOSPITAL SITE field (#.01) of the HOSPITAL SITE sub-field (#69.99) of the LABORATORY SITE File (#69.9)
PRINCIPAL CLINIC field (#8) of the EXAMINATIONS sub-field (#70.03) of the REGISTERED EXAMS sub-field (#70.02) of the
RAD/NUC MED PATIENT File (#70)
REQUESTING LOCATION field (#22) of the EXAMINATIONS sub-field (#70.03) of the REGISTERED EXAMS sub-field (#70.02) of
the RAD/NUC MED PATIENT File (#70)
PRINCIPAL CLINIC field (#8) of the REPORT DISTRIBUTION File (#74.4)
REQUESTING LOCATION field (#22) of the RAD/NUC MED ORDERS File (#75.1)
LOCATION field (#.01) of the IMAGING LOCATIONS File (#79.1)
ALTERNATE PRT REQUESTING LOC field (#.01) of the ALTERNATE PRT REQUESTING LOC sub-field (#79.188) of the IMAGING
LOCATIONS File (#79.1)
PATIENT LOCATION field (#6) of the ORDER File (#100)
AUTOLINK field (#.01) of the AUTOLINK sub-field (#100.213) of the OE/RR LIST File (#100.21)
COMBINATION ITEM field (#.01) of the COMBINATION ITEM sub-field (#100.241) of the OE/RR PT SEL COMBO File (#100.24)
HOSPITAL LOCATION field (#.04) of the CANCELLED ORDERS AND ORDER CHECKS File (#100.3)
ORDERING PARAMETERS LOCATION field (#9) of the OE/RR RELEASE EVENTS File (#100.5)
FROM LOCATION field (#2) of the INCLUDED LOCATIONS sub-field (#100.62) of the OE/RR AUTO-DC RULES File (#100.6)
TO LOCATION field (#4) of the INCLUDED LOCATIONS sub-field (#100.62) of the OE/RR AUTO-DC RULES File (#100.6)
LOCATION field (#6) of the QUICK ORDER AUDIT File (#100.95)
HOSPITAL SITE field (#.01) of the HOSPITAL SITE sub-field (#100.99011) of the PACKAGE SITE PARAMETERS sub-field
(#100.9901) of the ORDER PARAMETERS File (#100.99)
HOSPITAL SITE field (#.01) of the HOSPITAL SITE sub-field (#100.9925) of the ORDER PARAMETERS File (#100.99)
CLINIC field (#101) of the ORAM FLOWSHEET File (#103)
EVENT LOCATION field (#4) of the DIETETIC ENCOUNTERS File (#115.7)
LOCATION field (#1) of the PATIENT sub-field (#115.701) of the DIETETIC ENCOUNTERS File (#115.7)
OUTPATIENT LOCATION field (#102) of the NUTRITION LOCATION File (#119.6)
ASSOCIATED HOSPITAL LOCATION field (#.01) of the ASSOCIATED HOSPITAL LOCATION sub-field (#119.64) of the NUTRITION
LOCATION File (#119.6)
HOSPITAL LOCATION field (#.05) of the GMRV VITAL MEASUREMENT File (#120.5)
PATIENT LOCATION field (#.04) of the REQUEST/CONSULTATION File (#123)
FROM field (#2) of the REQUEST/CONSULTATION File (#123)
CLINICS field (#.01) of the CLINICS sub-field (#123.0335) of the GMRC CONSULT MAPPING File (#123.033)
NOTIFICATION BY PT LOCATION field (#.01) of the NOTIFICATION BY PT LOCATION sub-field (#123.54) of the REQUEST
SERVICES File (#123.5)
RELATED HOSPITAL LOCATION field (#.01) of the RELATED HOSPITAL LOCATION sub-field (#123.56) of the REQUEST SERVICES
File (#123.5)
CLINIC field (#.03) of the PROBLEM SELECTION LIST File (#125)
HOSPITAL LOCATION field (#7) of the INTAKE sub-field (#126.01) of the GMRY PATIENT I/O FILE File (#126)
HOSPITAL LOCATION field (#6) of the OUTPUT sub-field (#126.02) of the GMRY PATIENT I/O FILE File (#126)
HOSPITAL LOCATION field (#7) of the IV sub-field (#126.03) of the GMRY PATIENT I/O FILE File (#126)
HOSPITAL LOCATION field (#4) of the IV INTAKE sub-field (#126.313) of the IV sub-field (#126.03) of the GMRY PATIENT
I/O FILE File (#126)
HOSPITAL LOCATION field (#3) of the D/T TITER ADJUSTED sub-field (#126.316) of the IV sub-field (#126.03) of the
GMRY PATIENT I/O FILE File (#126)
ASSOCIATED CLINIC field (#.021) of the SURGERY File (#130)
NON-OR LOCATION field (#119) of the SURGERY File (#130)
NAME field (#.01) of the OPERATING ROOM File (#131.7)
DEFAULT CLINIC FOR DOCUMENTS field (#42) of the SURGERY SITE PARAMETERS File (#133)
ASSOCIATED CLINIC field (#2) of the LOCAL SURGICAL SPECIALTY File (#137.45)
LOCATION(S) USING THE SUMMARY field (#.01) of the LOCATION(S) USING THE SUMMARY sub-field (#142.2) of the HEALTH
SUMMARY TYPE File (#142)
NAME field (#.01) of the CRHD HANDOFF PARAMETERS File (#183)
NAME field (#.01) of the BORROWERS/FILE AREAS File (#195.9)
HOSPITAL LOCATION FILE POINTER field (#2) of the BORROWERS/FILE AREAS File (#195.9)
NAME field (#.01) of the NURS LOCATION File (#211.4)
LOCATION field (#.01) of the NURS POSITION CONTROL File (#211.8)
LOCATION field (#.01) of the LOCATION sub-field (#217.04) of the NURQ QI SUMMARY File (#217)
CLINIC field (#.14) of the ED LOG File (#230)
CLINIC field (#.14) of the ED LOG HISTORY File (#230.1)
NAME field (#.01) of the HCSR CLINIC LIST sub-field (#350.963) of the IB SITE PARAMETERS File (#350.9)
CLINIC field (#.01) of the NON-BILLABLE CLINICS File (#352.4)
CLINIC field (#.06) of the HCS REVIEW TRANSMISSION File (#356.22)
CLINICS USING THIS FORM field (#.01) of the CLINICS USING THIS FORM sub-field (#357.9501) of the FORM DEFINITION
File (#357.95)
CLINIC field (#.1) of the ENCOUNTER FORM TRACKING File (#357.96)
CLINICS field (#.01) of the CLINICS sub-field (#357.9901) of the PRINT MANAGER CLINIC GROUPS File (#357.99)
ASSIGNED PATIENT LOCATION field (#6.16) of the PFSS CHARGE CACHE File (#373)
PATIENT LOCATION field (#1.03) of the PFSS ACCOUNT File (#375)
LOCATION field (#.05) of the INCOMPLETE RECORDS File (#393)
C&P ROUTING LOCATION field (#.01) of the C&P ROUTING LOCATION sub-field (#396.115) of the AMIE SITE PARAMETER File
(#396.1)
ASSOCIATED CLINIC field (#6) of the PROCEDURES sub-field (#399.0304) of the BILL/CLAIMS File (#399)
CLINIC field (#4.5) of the RECALL REMINDERS File (#403.5)
CLINIC field (#.01) of the RECALL REMINDERS LETTERS File (#403.52)
CLINIC field (#4.5) of the RECALL REMINDERS REMOVED File (#403.56)
APPT CLINIC field (#102) of the RECALL REMINDERS REMOVED File (#403.56)
AUTOLINK field (#.02) of the TEAM AUTOLINK File (#404.56)
ASSOCIATED CLINIC field (#.09) of the TEAM POSITION File (#404.57)
ASSOCIATED CLINICS field (#.01) of the ASSOCIATED CLINICS sub-field (#404.575) of the TEAM POSITION File (#404.57)
CONVERSION DEFAULT DISP CLINIC field (#902) of the SCHEDULING PARAMETER File (#404.91)
SELECTIONS field (#40) of the SCHEDULING REPORT QUERY TEMPLATE File (#404.95)
SELECTIONS field (#.01) of the SELECTIONS sub-field (#404.9503) of the SCHEDULING REPORT QUERY TEMPLATE File
(#404.95)
WL SPECIFIC HOSPITAL LOCATION field (#8.5) of the SD WAIT LIST File (#409.3)
APPT CLINIC field (#13.2) of the SD WAIT LIST File (#409.3)
CLINIC field (#.01) of the SD WL CLINIC LOCATION File (#409.32)
WL SPECIFIC HOSPITAL LOCATION field (#3) of the VS AUDIT sub-field (#409.345) of the SD WAIT LIST File (#409.3)
ASSOCIATED CLINIC field (#3) of the CLINIC STOP CODE sub-field (#409.51) of the SCHEDULING VISITS File (#409.5)
CLINIC field (#.03) of the APPOINTMENT PFSS ACCOUNT REFERENCE File (#409.55)
LOCATION field (#.04) of the OUTPATIENT ENCOUNTER File (#409.68)
CLINIC field (#9) of the PATIENT sub-field (#409.69) of the PATIENT APPOINTMENT INFO LOG File (#409.6)
LOCATION field (#.04) of the ACRP TRANSMISSION HISTORY File (#409.77)
RESOURCE TYPE field (#.012) of the SDEC RESOURCE File (#409.831)
HOSPITAL LOCATION field (#.04) of the SDEC RESOURCE File (#409.831)
ASSOCIATED VISTA CLINICS field (#.01) of the ASSOCIATED VISTA CLINICS sub-field (#409.8312001) of the SDEC RESOURCE
File (#409.831)
REQ SPECIFIC CLINIC field (#8) of the SDEC APPT REQUEST File (#409.85)
APPT CLINIC field (#13.2) of the SDEC APPT REQUEST File (#409.85)
REQ SPECIFIC CLINIC field (#2) of the VS AUDIT sub-field (#409.8545) of the SDEC APPT REQUEST File (#409.85)
CLINIC field (#1) of the SDEC CONTACT File (#409.86)
CLINIC field (#.01) of the PRINT MANAGER CLINIC SETUP File (#409.95)
LOCATION field (#13) of the MH ADMINISTRATIONS File (#601.84)
WARD field (#.04) of the SECLUSION/RESTRAINT File (#615.2)
NAME field (#.01) of the HBHC CLINIC File (#631.6)
CLINIC NUMBER field (#2) of the HBHC VISIT File (#632)
CLINIC NUMBER field (#6) of the HBHC VISIT ERROR(S) File (#634.2)
CLINIC field (#8) of the PROSTHETIC APPOINTMENT WORKSHEET File (#663.4)
PCE HOSPITAL LOCATION field (#52) of the PROSTHETICS SITE PARAMETERS File (#669.9)
PROSTHETICS CLINIC field (#.01) of the PROSTHETICS CLINIC sub-field (#669.922) of the PROSTHETICS SITE PARAMETERS
File (#669.9)
WARD/CLINIC field (#40) of the ECHO File (#691)
WARD/CLINIC field (#5) of the CARDIAC CATHETERIZATION File (#691.1)
WARD/CLINIC field (#18) of the ELECTROCARDIOGRAM (EKG) File (#691.5)
WARD/CLINIC field (#17) of the HOLTER File (#691.6)
WARD/CLINIC field (#69) of the EXERCISE TOLERANCE TEST File (#691.7)
WARD/CLINIC field (#18) of the ELECTROPHYSIOLOGY (EP) File (#691.8)
WARD/CLINIC field (#3) of the HEMATOLOGY File (#694)
WHERE PERFORMED field (#8) of the ENDOSCOPY/CONSULT File (#699)
WARD/CLINIC field (#9) of the ENDOSCOPY/CONSULT File (#699)
WARD/CLINIC field (#9) of the PULMONARY FUNCTION TESTS File (#700)
HOSPITAL LOCATION field (#.05) of the CP DEFINITION File (#702.01)
HOSPITAL_LOCATION_ID field (#.04) of the OBS File (#704.117)
ASSOCIATED CLINIC field (#55) of the EC EVENT CODE SCREENS File (#720.3)
ASSOCIATED CLINIC field (#26) of the EVENT CAPTURE PATIENT File (#721)
WARD field (#27) of the ADMISSION EXTRACT File (#727.802)
CLINIC NAME field (#52) of the CLINIC NOSHOW EXTRACT File (#727.804)
LOSING WARD field (#14) of the PHYSICAL MOVEMENT EXTRACT File (#727.808)
GAINING WARD field (#20) of the PHYSICAL MOVEMENT EXTRACT File (#727.808)
WARD field (#11) of the UNIT DOSE LOCAL EXTRACT File (#727.809)
CLINIC POINTER field (#82) of the SURGERY EXTRACT File (#727.811)
LOCATION (WARD OR CLINIC) field (#12) of the RADIOLOGY EXTRACT File (#727.814)
PLACEHOLDER field (#120) of the EVENT CAPTURE LOCAL EXTRACT File (#727.815)
CLINIC IEN field (#128) of the EVENT CAPTURE LOCAL EXTRACT File (#727.815)
CLINIC field (#18) of the CLINIC I EXTRACT File (#727.816)
WARD field (#11) of the IV DETAIL EXTRACT File (#727.819)
WARD field (#27) of the ADMISSION SETUP EXTRACT File (#727.82)
LOSING WARD field (#14) of the PHYSICAL MOVEMENT SETUP EXTRACT File (#727.821)
GAINING WARD field (#20) of the PHYSICAL MOVEMENT SETUP EXTRACT File (#727.821)
GAINING WARD field (#14) of the TREATING SPECIALTY CHANGE SETUP EXTRACT File (#727.822)
PLACEHOLDER field (#120) of the QUASAR EXTRACT File (#727.825)
CLINIC IEN field (#128) of the QUASAR EXTRACT File (#727.825)
*PLACEHOLDER field (#11) of the CLINIC EXTRACT File (#727.827)
CLINIC IEN field (#130) of the CLINIC EXTRACT File (#727.827)
WARD field (#15) of the BCMA EXTRACT File (#727.833)
CLINIC field (#13) of the IV EXTRACT DATA File (#728.113)
CLINIC NAME field (#.01) of the CLINICS AND STOP CODES File (#728.44)
SCHEDULED ADMISSION CLINIC field (#.01) of the SCHEDULED ADMISSION CLINIC sub-field (#740.01) of the QUALITY
ASSURANCE SITE PARAMETERS File (#740)
WARD/CLINIC field (#4) of the QA OCCURRENCE SCREEN File (#741)
PEER ATTRIBUTION (HOSP LOC) field (#.01) of the PEER ATTRIBUTION (HOSP LOC) sub-field (#741.026) of the QA
OCCURRENCE SCREEN File (#741)
WARD/CLINIC/LOCATION field (#.11) of the WV LAB TESTS File (#790.08)
WARD/CLINIC/LOCATION field (#.11) of the WV PROCEDURE File (#790.1)
LOCATION field (#.01) of the LOCATION sub-field (#810.11) of the REMINDER REPORT TEMPLATE File (#810.1)
HOSPITAL LOCATION field (#.01) of the HOSPITAL LOCATION LIST sub-field (#810.944) of the REMINDER LOCATION LIST File
(#810.9)
PATIENT, CLINIC OR WARD field (#201) of the PCE PARAMETERS File (#815)
DISPOSITION HOSPITAL LOCATIONS field (#.01) of the DISPOSITION HOSPITAL LOCATIONS sub-field (#815.0401) of the PCE
PARAMETERS File (#815)
ER CLINIC NAME field (#.01) of the REPORT ER CLINIC NAMES sub-field (#815.0801) of the PCE PARAMETERS File (#815)
CLINIC field (#.02) of the VPS CONFIG HISTORY File (#853)
ENCOUNTER CLINIC field (#.04) of the MRAR INSTANCE sub-field (#853.51) of the VPS MRAR PDO File (#853.5)
CLINIC field (#.01) of the APPOINTMENTS sub-field (#853.91) of the VPS APPOINTMENTS QUEUE File (#853.9)
WARD field (#19) of the NUPA CARE PLANS File (#1927.4)
CLINIC field (#101) of the IMAGE File (#2005)
CLINIC field (#101) of the IMAGE AUDIT File (#2005.1)
LOCATION field (#2) of the ACQUISITION DEVICE File (#2006.04)
IMPORTER ORDER LOCATION field (#117) of the DICOM GATEWAY PARAMETER File (#2006.563)
HOSPITAL LOCATION IEN field (#8) of the DICOM RADIOLOGY PROCEDURES File (#2006.5758)
HOSPITAL LOCATION field (#3) of the OUTSIDE IMAGING LOCATION File (#2006.5759)
CLINIC field (#.01) of the CLINIC sub-field (#2006.58311) of the CLINICAL SPECIALTY DICOM & HL7 File (#2006.5831)
HOSPITAL LOCATION field (#1205) of the TIU DOCUMENT File (#8925)
VISIT LOCATION field (#1211) of the TIU DOCUMENT File (#8925)
INITIAL VISIT LOCATION field (#1.07) of the TIU AUDIT TRAIL File (#8925.5)
FINAL VISIT LOCATION field (#1.08) of the TIU AUDIT TRAIL File (#8925.5)
VISIT LOCATION field (#.01) of the VISIT LOCATION sub-field (#8925.715) of the TIU TEXT EVENTS File (#8925.71)
HOSPITAL LOCATION field (#.01) of the TIU PRINT PARAMETERS File (#8925.93)
DEFAULT LOCATION field (#.02) of the TIU PERSONAL PREFERENCES File (#8926)
HOSPITAL LOCATION field (#.02) of the LOCATION BY DAY OF WEEK sub-field (#8926.01) of the TIU PERSONAL PREFERENCES
File (#8926)
ENTITY field (#.01) of the PARAMETERS File (#8989.5)
CLINIC LOCATION field (#2.6) of the A&SP CLINIC VISIT File (#509850.6)
*CLINIC LOCATION field (#.01) of the *CLINIC LOCATION sub-field (#509850.81) of the A&SP SITE PARAMETERS File
(#509850.8)
CLINIC LOCATION field (#.01) of the CLINIC sub-field (#509850.831) of the DIVISION sub-field (#509850.83) of the
A&SP SITE PARAMETERS File (#509850.8)
REFERRAL SOURCE field (#.04) of the AUDIOMETRIC EXAM DATA File (#509850.9)
SOURCE field (#.02) of the SOURCES sub-field (#800001.21) of the HMP ROSTER File (#800001.2)
HOSPITAL LOCATION field (#.22) of the VISIT File (#9000010)
ORDERING LOCATION field (#1215) of the V IMMUNIZATION File (#9000010.11)
CLINIC field (#1.08) of the PROBLEM File (#9000011)
ORDERING LOCATION field (#1215) of the V IMMUNIZATION DELETED File (#9000080.11)
CROSS
REFERENCED BY: TYPE EXTENSION(AC), NAME(AD), DEFAULT PROVIDER(ADPR), ADMINISTER INPATIENT MEDS?(AE), ABBREVIATION(AF), NAME(AH),
CONSULT LINK(AHST1), APPT. CANCELLATION LETTER(ALTA), CLINIC CANCELLATION LETTER(ALTC), NO SHOW LETTER(ALTN),
PRE-APPOINTMENT LETTER(ALTP), OCCASION OF SERVICE CLINIC?(AOOS), PRIOR X-RAY RESULTS TO CLINIC?(ARAD),
PRIVILEGED USER(ARU), CLINIC GROUP (REPORTS)(ASCRPW), NAME(ATEAM), PROVIDER(AVADPR), CONSULT LINK(AWAS1),
NAME(B), ABBREVIATION(C), TEAM(D)
INDEXED BY: CREDIT STOP CODE (ACST), TYPE & NAME (AG), STOP CODE NUMBER (AST), NAME & STOP CODE NUMBER & CREDIT STOP CODE &
TREATING SPECIALTY & SERVICE & DEFAULT PROVIDER & OVERBOOKS/DAY MAXIMUM & INACTIVATE DATE & REACTIVATE DATE (ATMP1),
PBSP ID (PBSP)
LAST MODIFIED: JAN 20,2025@15:57:08
44,.01 NAME 0;1 FREE TEXT (Required) (audited)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: NOV 04, 2024
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION: Name given by user to any ward, clinic, fileroom, operating room or other location within a VA
facility.
AUDIT: YES, ALWAYS
PRE-LOOKUP: S:X?1"%".N1"$" X=$TR(X,"%$","`")
DELETE TEST: .01,0)= I $P(^SC(D0,0),"^",3)["C" W !,*7,"No deletion of clinics allowed - you must inactivate them
!!!"
1900,0)= I $O(^SC(DA,"S",DT))'="" W !?10,*7,"FUTURE APP'TS IN CLINIC!"
1922,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
1923,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
1924,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
1925,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
1926,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
1927,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
1928,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
NOTES: TRIGGERED by the NAME field of the WARD LOCATION File
CROSS-REFERENCE: 44^B
1)= S ^SC("B",$E(X,1,30),DA)=""
2)= K ^SC("B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^42^.01
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:$O(^DD(DIH,DIG,1,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
This TRIGGER updates the WARD LOCATION FILE POINTER field with a matching WARD LOCATION when the
name is changed for this HOSPITAL LOCATION. If there is not a matching WARD LOCATION with the new
name, a new WARD LOCATION is added and that new entry is pointed to by the WARD LOCATION FILE
POINTER field.
CROSS-REFERENCE: 44^ATEAM^MUMPS
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.
CROSS-REFERENCE: 44^AH^MUMPS
1)= D N44S^SDEC03(DA,$E(X,1,30))
2)= Q
This cross reference maintains the name of the associated clinic resource in the SDEC RESOURCE
file.
CROSS-REFERENCE: 44^AD^MUMPS
1)= Q
2)= S RTPL=X,X="RTP6" X ^%ZOSF("TEST") S X=RTPL K RTPL I $T D ^RTP6
CROSS-REFERENCE: ^^TRIGGER^403.12^.01
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(^S
CRS(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(40
3.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).
RECORD INDEXES: AG (#1353), ATMP1 (#1552)
44,1 ABBREVIATION 0;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1) X
LAST EDITED: MAR 13, 2017
HELP-PROMPT: ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
DESCRIPTION: Abbreviation given by user to any ward, clinic, fileroom, operating room or other location
associated with the NAME.
CROSS-REFERENCE: 44^C
1)= S ^SC("C",$E(X,1,30),DA)=""
2)= K ^SC("C",$E(X,1,30),DA)
CROSS-REFERENCE: 44^AF^MUMPS
1)= D A44S^SDEC03(DA,$E(X,1,7))
2)= Q
This cross reference maintains the abbreviation of the associated clinic resource in the
ABBREVIATION field (#.011) of the SDEC RESOURCE file (#409.831).
44,2 TYPE 0;3 SET (Required) (audited)
'C' FOR CLINIC;
'M' FOR MODULE;
'W' FOR WARD;
'Z' FOR OTHER LOCATION;
'N' FOR NON-CLINIC STOP;
'F' FOR FILE AREA;
'I' FOR IMAGING;
'OR' FOR OPERATING ROOM;
INPUT TRANSFORM: K:'$D(^DIC(40.9,"C",X)) X I $D(X) S SDX=$O(^DIC(40.9,"C",X,0)) K:SDX'>0 X K SDX
LAST EDITED: AUG 18, 2015
DESCRIPTION: Type of location assigned to entries into this file, i.e. Ward, Clinic, Fileroom, Operating Room,
Other.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^44^2.1
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=$O(^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 ^D
ICR:$O(^DD(DIH,DIG,1,0))'=""
2)= Q
CREATE VALUE)= S SDX=$O(^DIC(40.9,"C",X,0)) S:SDX'>0 SDX=0 S X=$S('SDX:"",$D(^DIC(40.9,+SDX,0)):+SD
X,1:"") K SDX
DELETE VALUE)= NO EFFECT
FIELD)= TYPE E
This TRIGGER updates the TYPE EXTENSION field 2.1 with an entry from the LOCATION TYPE file that
has the same name. This update to the TYPE EXTENSION field happens when the TYPE field 2 is
defined or modified.
RECORD INDEXES: AG (#1353)
44,2.1 TYPE EXTENSION 0;22 POINTER TO LOCATION TYPE FILE (#40.9) (Required)
INPUT TRANSFORM: I $P(^SC(DA,0),"^",3)'["Z",$D(^DIC(40.9,+X,0)),$P(^(0),"^",2)]"",$P(^SC(DA,0),"^",3)'=$P(^DIC(40.9,
+X,0),"^",2) K X
LAST EDITED: JUL 31, 1986
DESCRIPTION: 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.
EXECUTABLE HELP: I $P(^SC(DA,0),"^",3)'["Z" S DIC("S")="I $P(^DIC(40.9,Y,0),""^"",2)=$P(^SC(DA,0),""^"",3)"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the TYPE field of the HOSPITAL LOCATION File
CROSS-REFERENCE: 44^AC^MUMPS
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)
44,3 INSTITUTION 0;4 POINTER TO INSTITUTION FILE (#4) (audited)
LAST EDITED: APR 05, 2023
DESCRIPTION: This field has been deprecated and should no longer be used. Institution name assigned to each
entry in this file to identify where the specific location is.
AUDIT: YES, ALWAYS
44,3.5 DIVISION 0;15 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) (Required) (audited)
LAST EDITED: JUN 14, 2022
HELP-PROMPT: Please enter a MEDICAL CENTER DIVISION.
DESCRIPTION: Division name assigned to each entry in this file to identify where the specific location is.
There can be multiple divisions assigned to an Institution, but only one division per location.
AUDIT: YES, ALWAYS
44,4 MODULE 0;5 POINTER TO HOSPITAL LOCATION FILE (#44)
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 9
DESCRIPTION:
Module or name of hospital location.
44,5 DEFAULT DEVICE 99;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-3 CHARACTERS IN LENGTH
DESCRIPTION: Default device to which information should print for a specific location. This field is not
currently being utilized.
44,6 DISPOSITION ACTION 0;10 SET
'0' FOR NONE;
'1' FOR APPOINTMENT REC REQ;
'2' FOR SCHEDULING;
DESCRIPTION: A disposition action associated with specific location, i.e. '0'= none; '1'=appointment record
request; '2'=scheduling.
44,7 VISIT LOCATION 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
DESCRIPTION:
Location of visit for specified entry.
44,8 STOP CODE NUMBER 0;7 POINTER TO CLINIC STOP FILE (#40.7) (Required) (audited)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)'=900&$S('$P(^(0),U,3):1,$P(^(0),U,3)>DT:1,1:0),""PE""[$P(^(0),U,6),$S('$
P(^(0),U,7):1,$P(^(0),U,7)'>DT:1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 11, 2010
DESCRIPTION: Three digit stop code number assigned to specific location. Each stop code number represents a
type of care or Service/treating specialty (clinics only).
SCREEN: S DIC("S")="I $P(^(0),U,2)'=900&$S('$P(^(0),U,3):1,$P(^(0),U,3)>DT:1,1:0),""PE""[$P(^(0),U,6),$S('$
P(^(0),U,7):1,$P(^(0),U,7)'>DT:1,1:0)"
EXPLANATION: Inactive stop codes are invalid. Stop code 900 can not be used for a clinic. Stop code must have
a restriction type of "Primary" or "Either" and not have a future restriction date.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FIELD INDEX: AST (#458) REGULAR IR SORTING ONLY
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)
RECORD INDEXES: ATMP1 (#1552)
44,8.1 PRV. YEAR STOP CODE OC;1 POINTER TO CLINIC STOP FILE (#40.7)
INPUT TRANSFORM: K:X X
LAST EDITED: AUG 01, 1988
HELP-PROMPT: PREVIOUS YEAR STOP CODE
DESCRIPTION:
Previous year's three digit stop code number that was assigned to specific location (clinics only).
WRITE AUTHORITY: ^
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44,9 SERVICE 0;8 SET (Required)
'M' FOR MEDICINE;
'S' FOR SURGERY;
'P' FOR PSYCHIATRY;
'R' FOR REHAB MEDICINE;
'N' FOR NEUROLOGY;
'0' FOR NONE;
'D' FOR DENTAL;
LAST EDITED: SEP 30, 2024
DESCRIPTION:
Service assigned to specific location, i.e. Medicine, Surgery, Psychiatry, etc.
RECORD INDEXES: ATMP1 (#1552)
44,9.1 IS THIS A PBSP CLINIC? 0;28 SET (BOOLEAN Data Type)
PROVIDER BASED SCHEDULING PROFILE CLINIC
LAST EDITED: NOV 04, 2022
HELP-PROMPT: Please answer (Y or N) to is this a PROVIDER BASED SCHEDULING CLINIC?
DESCRIPTION:
This field indicates whether a clinic is a PROVIDER BASED SCHEDULING PROFILE CLINIC.
44,9.5 TREATING SPECIALTY 0;20 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) (Required)
LAST EDITED: FEB 28, 1986
DESCRIPTION: Treating specialty assigned a specific location, i.e. neurosurgery, alcohol/drug rehabilitation,
dermatology (specialties within Services usually).
RECORD INDEXES: ATMP1 (#1552)
44,10 PHYSICAL LOCATION 0;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: NOV 08, 1983
HELP-PROMPT: ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
DESCRIPTION:
Physical location of a specific ward or clinic, etc., i.e. 3rd floor, Wing A.
44,11 *OKC A .901;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1) X
LAST EDITED: FEB 08, 1984
HELP-PROMPT: ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
44,12 *OKC B .901;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
44,13 SYNONYM .01;0 Multiple #44.01 (Add New Entry without Asking)
DESCRIPTION:
Synonym or shortened name associated with a specific location.
44.01,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
Synonym or shortened name associated with a specific location.
44,14 SPECIAL AMIS STOP 0;12 SET
'10' FOR MENTAL HYGEINE;
'11' FOR DAY TREATMENT;
'12' FOR DAY HOSPITAL;
'13' FOR DRUG DEPENDANCE;
'14' FOR ALCOHOL TREATMENT;
'15' FOR EMERGENCY UNIT;
'16' FOR EMPLOYEE HEALTH;
DESCRIPTION:
Special AMIS stop associated with a specific location based on the Service assigned.
44,15 CATEGORY OF VISIT 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
DESCRIPTION:
Category of visit associated with a specific location.
44,16 DEFAULT PROVIDER 0;13 POINTER TO NEW PERSON FILE (#200) (audited)
INPUT TRANSFORM: S DIC("S")="I $$SCREEN^SDUTL2(Y,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 21, 2023
HELP-PROMPT: Select a default provider.
DESCRIPTION:
Default provider or physician that is assigned to specific clinic.
SCREEN: S DIC("S")="I $$SCREEN^SDUTL2(Y,DT)"
EXPLANATION: Provider must be active and have an active entry in the NEW PERSON file for PERSON CLASS.
EXECUTABLE HELP: D HELP^SDUTL2(DT)
AUDIT: YES, ALWAYS
RECORD INDEXES: ATMP1 (#1552)
44,19 PROHIBITED TERMINAL 9;0 Multiple #44.02
DESCRIPTION:
Terminals that cannot be utilized from specific location.
44.02,.01 PROHIBITED TERMINAL 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>3!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-3 CHARACTERS IN LENGTH
DESCRIPTION:
Terminal that cannot be utilized from a specific location.
44,20 E-CHECKIN ALLOWED 0;26 SET (Required)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 01, 2021
HELP-PROMPT: 1 stands for E-Checkin Allowed and 0 stands for E-Checkin not allowed.
DESCRIPTION:
This field will determine if E-Checkin is allowed for the clinic.
44,21 PRE-CHECKIN ALLOWED 0;27 SET (Required)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 01, 2021
HELP-PROMPT: 1 stands for PRE-Checkin allowed and 0 stands for PRE-Checkin not allowed.
DESCRIPTION:
This field will determine if PRE-Checkin is allowed for this clinic.
44,23 AGENCY 0;23 POINTER TO AGENCY FILE (#4.11)
LAST EDITED: JAN 04, 1990
DESCRIPTION:
Agency associated with specific location, i.e. Veterans Affairs, Department of Defense, etc.
44,24 ASK FOR CHECK IN/OUT TIME 0;24 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 11, 1993
DESCRIPTION: When checking in/out a patient for an appointment, should the user be prompted for date and time?
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.
44,29 *CLINIC SERVICES RESOURCE 0;29 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: AUG 25, 2014
HELP-PROMPT: Answer must be 1-10 characters in length.
DESCRIPTION:
This field is used to associate the clinic with a Clinic Services Resource.
TECHNICAL DESCR: This field is no longer used. It was a pointer to the CLINIC SERVICES RESOURCE File (#403.12) which
no longer exists.
UNEDITABLE
44,30 WORKLOAD VALIDATION AT CHK OUT 0;30 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 15, 1997
DESCRIPTION: Yes or 1 will result in a validation being performed on each checked out encounter for this clinic.
No or zero will stop the validation of the encounters as they are checked out for this clinic.
This validation is to help ensure that the workload data is acceptable to the Austin National
Patient Care Database.
44,31 CLINIC GROUP (REPORTS) 0;31 POINTER TO CLINIC GROUP FILE (#409.67)
INPUT TRANSFORM: S DIC("S")="I $D(^SD(409.67,Y,1,""B"",1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 21, 1997
HELP-PROMPT: Specify the CLINIC GROUP that will be used to group clinic reports.
SCREEN: S DIC("S")="I $D(^SD(409.67,Y,1,""B"",1))"
EXPLANATION: Allows only the selection of CLINIC GROUP records that have a TYPE of 'REPORT'.
CROSS-REFERENCE: 44^ASCRPW
1)= S ^SC("ASCRPW",$E(X,1,30),DA)=""
2)= K ^SC("ASCRPW",$E(X,1,30),DA)
44,42 WARD LOCATION FILE POINTER 42;1 POINTER TO WARD LOCATION FILE (#42)
INPUT TRANSFORM: I $D(^DIC(42,+X,44)),+^(44),+^(44)'=DA W !?20,"This Ward location points to ",$P(^SC(+^DIC(42,+X,44
),0),"^",1) K X
LAST EDITED: JAN 29, 1986
DESCRIPTION: If location is a ward, this is the file pointer to the Ward Location File, File 42 in which this
location is also stored.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the HOSPITAL LOCATION FILE POINTER field of the WARD LOCATION File
CROSS-REFERENCE: ^^TRIGGER^42^44
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,42,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
44,50.01 OCCASION OF SERVICE CLINIC? OOS;1 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: OCT 09, 1996
HELP-PROMPT: Do not edit...this is controlled by a scheduling API call.
DESCRIPTION: This field is non-editable. It is created automatically by a scheduling API and must NOT be edited
by the site. It designates clinic locations added by ancillary packages for occasions of service.
These clinics can not be edited through Scheduling options. They can only be altered using the
API.
WRITE AUTHORITY: ^
CROSS-REFERENCE: 44^AOOS
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.
44,50.02 OOS CALLING PACKAGE OOS;2 POINTER TO PACKAGE FILE (#9.4)
LAST EDITED: OCT 16, 1996
HELP-PROMPT: This is the package which created this occasion of service location
DESCRIPTION: 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: ^
44,60 PATIENT FRIENDLY NAME PA;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<3) X
LAST EDITED: FEB 11, 2015
HELP-PROMPT: Enter a clinic description (3-80 chars) that's meaningful to patients.
DESCRIPTION: Populate this field with a description of the clinic that will be meaningful to patients. Do not
enter any sensitive patient information in this field such as HIV CLINIC as an example.
44,61 DIRECT PATIENT SCHEDULING? PA;2 SET (Required) (audited)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: FEB 11, 2016
HELP-PROMPT: Enter 'Yes' if patients can self-schedule into this clinic.
DESCRIPTION: This field will determine if patients can self-schedule into this clinic. A "Yes" in this field
will enable patients to directly schedule appointments into this clinic.
AUDIT: YES, ALWAYS
44,62 DISPLAY CLIN APPT TO PATIENTS? PA;3 SET (Required) (audited)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: FEB 11, 2016
HELP-PROMPT: Enter 'Yes' if clinic appointment will be displayed to patients.
DESCRIPTION: This field will determine if the clinic appointment information will be displayed to patients. A
"Yes" in this field will enable patients to see their appointments in this clinic. If DIRECT
PATIENT SCHEDULING? (#61) is set to YES, this field defaults to YES and is not editable.
AUDIT: YES, ALWAYS
44,63 VETERAN SELF-CANCEL? PA;4 SET (BOOLEAN Data Type)
LAST EDITED: JUL 12, 2024
HELP-PROMPT: Can the Veteran self-cancel for this clinic? Enter 'Y' for Yes or 'N' for No.
DESCRIPTION:
This field indicates if a patient can self-cancel for the clinic.
44,99 TELEPHONE 99;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>13!($L(X)<3) X
LAST EDITED: MAR 22, 1984
HELP-PROMPT: ANSWER MUST BE 3-13 CHARACTERS IN LENGTH
DESCRIPTION:
Telephone number for specific location.
44,99.1 TELEPHONE EXTENSION 99.1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>26!($L(X)<1) X
LAST EDITED: SEP 08, 2014
HELP-PROMPT: Answer must be 1-26 characters in length.
DESCRIPTION:
Clinic telephone extension number where patients can call directly.
44,101 ASSOCIATED LOCATION TYPES LOC;0 POINTER Multiple #44.101
44.101,.01 ASSOCIATED LOCATION TYPES 0;1 POINTER TO LOCATION TYPE FILE (#40.9) (Multiply asked)
LAST EDITED: DEC 01, 1994
CROSS-REFERENCE: 44.101^B
1)= S ^SC(DA(1),"LOC","B",$E(X,1,30),DA)=""
2)= K ^SC(DA(1),"LOC","B",$E(X,1,30),DA)
44,200 PBSP ID PBSP;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>100!($L(X)<1) X
MAXIMUM LENGTH: 100
LAST EDITED: FEB 27, 2024
HELP-PROMPT: Enter 1-100 characters.
DESCRIPTION: This Provider Based Scheduling Profile ID uniquely identifies that this clinic supports Provider
Based Scheduling Profile and the ID of the primary Provider associated with this clinic.
FIELD INDEX: PBSP (#1720) REGULAR IR LOOKUP & SORTING
Short Descr: PBSP is indexed on the PBSP ID and the Clinic IEN.
Description: The Provider Based Scheduling Profile (PBSP) cross reference is based on the PBSP ID which uniquely
identifies the clinics that are associated with the Provider.
Set Logic: S ^SC("PBSP",$E(X,1,100),DA)=""
Kill Logic: K ^SC("PBSP",$E(X,1,100),DA)
Whole Kill: K ^SC("PBSP")
X(1): PBSP ID (44,200) (Subscr 1) (Len 100) (forwards)
44,301 SECONDARY SUBSPECIALTY 301;0 POINTER Multiple #44.0301 (Add New Entry without Asking)
LAST EDITED: NOV 04, 2024
TECHNICAL DESCR: Records in this subfile will only be added via calls to either the SDES2 CREATE CLINIC or SDES2
EDIT CLINIC RPC. Direct additions or edits to this subfile are not permitted.
44.0301,.01 SECONDARY SUBSPECIALTY 0;1 POINTER TO SDEC SUBSPECIALTY FILE (#409.94)
LAST EDITED: NOV 04, 2024
HELP-PROMPT: Add a new secondary subspecialty for this clinic.
DESCRIPTION: This multiple field will contain a list of secondary subspecialties from the SDEC SUBSPECIALTY
(#409.94) file that apply to this clinic.
CROSS-REFERENCE: 44.0301^B
1)= S ^SC(DA(1),301,"B",$E(X,1,30),DA)=""
2)= K ^SC(DA(1),301,"B",$E(X,1,30),DA)
44,302 TERTIARY SUBSPECIALTY 302;0 POINTER Multiple #44.0302 (Add New Entry without Asking)
TECHNICAL DESCR: Records in this subfile will only be added via calls to either the SDES2 CREATE CLINIC or SDES2
EDIT CLINIC RPC. Direct additions or edits to this subfile are not permitted.
44.0302,.01 TERTIARY SUBSPECIALTY 0;1 POINTER TO SDEC SUBSPECIALTY FILE (#409.94)
LAST EDITED: NOV 04, 2024
HELP-PROMPT: Add a new tertiary subspecialty for this clinic.
DESCRIPTION: This multiple field will contain a list of tertiary subspecialties from the SDEC SUBSPECIALTY
(#409.94) file that apply to this clinic.
CROSS-REFERENCE: 44.0302^B
1)= S ^SC(DA(1),302,"B",$E(X,1,30),DA)=""
2)= K ^SC(DA(1),302,"B",$E(X,1,30),DA)
44,1900 APPOINTMENT S;0 DATE Multiple #44.001 (Add New Entry without Asking)
DESCRIPTION: 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: ^
44.001,.01 APPOINTMENT DATE/TIME 0;1 DATE (Multiply asked)
INPUT TRANSFORM:I X K X W !,"This node may not be set through fileman!!" I $D(X) S %DT="ETX" D ^%DT S X=Y,DINUM=Y K
:DT+20000X) X,DINUM
LAST EDITED: AUG 01, 1986
HELP-PROMPT: TYPE A DATE BETWEEN DT AND DT+2000
DESCRIPTION:
Date/time of a veteran's appointment to an outpatient clinic.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44.001,2 PATIENT 1;0 POINTER Multiple #44.003 (Add New Entry without Asking)
DESCRIPTION:
Patient for whom this data relates.
44.003,.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2) (Multiply asked) (audited)
LAST EDITED: JAN 31, 2024
DESCRIPTION:
Patient for whom appointment data relates.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I 1
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
44.003,.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.
44.003,.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.
44.003,.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.
44.003,1 LENGTH OF APP'T 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>120)!(X<5)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 5 AND 120
DESCRIPTION:
Length of appointment in minutes (i.e. 15-60).
44.003,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,""D
E"",%)) 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,""D
E"",%)) 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.
44.003,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,""D
E"",%)) 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,""D
E"",%)) Q:'$D(^(%,0)) I +^(0)=Y&Y!(+^(0)=D0) S X=$P(^(0),U,2) Q"
DESCRIPTION:
Date patient was enrolled in a clinic.
44.003,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.
44.003,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
44.003,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.
44.003,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
44.003,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.
44.003,7 DATA ENTRY CLERK 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 17, 1990
DESCRIPTION:
Clerk who entered the appointment.
44.003,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
DESCRIPTION:
Date/time appointment was placed into the package.
44.003,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.
44.003,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)
44.003,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.
44.003,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,1
1,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?
44.003,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.
44.003,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.
44.003,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.
44.003,30 ELIGIBILITY OF VISIT 0;10 POINTER TO ELIGIBILITY CODE FILE (#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
44.003,200 PARENT RECORD REQUEST # RTR;1 POINTER TO REQUESTED RECORDS FILE (#190.1)
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.
44.003,302 CHECK IN USER C;2 POINTER TO NEW PERSON FILE (#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
44.003,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.00
3,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.
44.003,304 CHECK OUT USER C;4 POINTER TO NEW PERSON FILE (#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
44.003,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
44.003,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
44.003,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.00
3,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.
44.003,310 APPOINTMENT CANCELLED? 0;9 SET
'C' FOR CANCELLED;
LAST EDITED: OCT 25, 1984
DESCRIPTION:
Was appointment cancelled?
44.003,400 VETERAN VIDEO CALL URL URL;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>200!($L(X)<3) X
MAXIMUM LENGTH: 200
LAST EDITED: OCT 30, 2018
HELP-PROMPT: Answer must be 3-200 characters in length.
44.003,688 CONSULT LINK CONS;1 POINTER TO REQUEST/CONSULTATION FILE (#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.
44.003,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?
44.001,309 CHECKED-IN C;1 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 29, 1983
44.001,1400 MESSAGE MES;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION: Message generated when clerk attempting to make appointment and patient has appointment same day in
another or same clinic to alert them of same.
44,1901 CANCEL DATE/TIME BEGIN SDCAN;0 DATE Multiple #44.05
DESCRIPTION:
Cancellation date/time beginning for a clinic.
44.05,.01 CANCEL DATE/TIME BEGIN 0;1 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X
LAST EDITED: FEB 08, 1985
DESCRIPTION:
Date/time a clinic started cancellation period.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44.05,1 CANCEL ENDING TIME 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<4)!'(X?4N&(X<2000)&(X>600)&(X#100<60)) X
LAST EDITED: FEB 08, 1985
HELP-PROMPT: ANSWER MUST BE 4 CHARACTERS IN LENGTH
DESCRIPTION:
Date/time a clinic ended cancellation period.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44,1902 FULL DAY CANCEL FULL DAY CANCEL;0 DATE Multiple #44.1902
44.1902,.01 DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 18, 2024
HELP-PROMPT: Enter the date the full day cancellation is to occur.
DESCRIPTION:
This subfile stores dates that represent full day cancellations.
CROSS-REFERENCE: 44.1902^B
1)= S ^SC(DA(1),"FULL DAY CANCEL","B",$E(X,1,30),DA)=""
2)= K ^SC(DA(1),"FULL DAY CANCEL","B",$E(X,1,30),DA)
44.1902,.02 REMARKS 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>255!($L(X)<1) X
MAXIMUM LENGTH: 255
LAST EDITED: OCT 18, 2024
HELP-PROMPT: Answer must be 1-255 characters in length.
DESCRIPTION:
This field stores the remarks associated with the full day cancellation.
44,1906 CHART CHECK C;0 DATE Multiple #44.006 (Add New Entry without Asking)
DESCRIPTION:
Does user want the chart checked for availability for this clinic.
44.006,.01 DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y,DINUM=Y K:X80!($L(X)<1) X
LAST EDITED: JAN 24, 1984
(ENTER FROM 1 TO 80 CHARACTERS OF FREE TEXT)
DESCRIPTION:
Special instructions (free text) entered by clerk at time of making the appointment.
44,1912 LENGTH OF APP'T SL;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>240)!(X<10)!(X?.E1"."1N.N)!($S('(X#10):0,'(X#15):0,1:1)) X I $D(X) S SDLA=X I $D(^SC(DA,
"SL")),+$P(^("SL"),U,6) S SDZ0=$P(^("SL"),U,6),SDZ1=60\SDZ0 I X#SDZ1 D LAPPT^SDUTL
LAST EDITED: JAN 04, 2024
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 10 AND 240 -- MUST BE A MULTIPLE OF 10 OR 15
DESCRIPTION:
Length of appointment designated for clinic.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44,1913 VARIABLE APP'NTMENT LENGTH SL;2 SET
'V' FOR YES, VARIABLE LENGTH;
DESCRIPTION: 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?
44,1914 HOUR CLINIC DISPLAY BEGINS SL;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>16)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: (0-16), IF OTHER THAN 8AM
DESCRIPTION:
The hour clinic will begin displaying availability (i.e. 8AM).
44,1915 HOLD SC SLOTS UNTIL # OF DAYS SL;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>365)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 365
DESCRIPTION: Should service connected slots be held open for a set number of days? Service connected veterans
have priority over NSC veterans when scheduling appointments.
44,1916 PRINCIPAL CLINIC SL;5 POINTER TO HOSPITAL LOCATION FILE (#44)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",3)=""C"",'$G(^(""OOS""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 03, 1996
DESCRIPTION:
Principal clinic or main clinic assigned to a specific location.
SCREEN: S DIC("S")="I $P(^(0),""^"",3)=""C"",'$G(^(""OOS""))"
EXPLANATION: PRINCIPAL CLINIC MUST BE A CLINIC
EXECUTABLE HELP: W !,"IF ENROLLMENT IN THIS CLINIC IS EQUIVALENT TO ENROLLMENT IN A LARGER ONE,",!,"ENTER THAT LARGE
R CLINIC'S NAME",!
44,1917 DISPLAY INCREMENTS PER HOUR SL;6 SET (Required)
'1' FOR 60-MIN ;
'2' FOR 30-MIN ;
'4' FOR 15-MIN ;
'3' FOR 20-MIN ;
'6' FOR 10-MIN ;
INPUT TRANSFORM: S ZSI=$S(X=1!(X=2)!(X=3)!(X=4)!(X=6):60/X,1:0),SDLA=$S('$D(^SC(DA,"SL")):0,1:+^("SL")) K:('SDLA)!('
ZSI) SDLA,ZSI,X Q:'$D(X) I SDLA#ZSI>0 X ^DD(44,1917,9.2) Q
9.2 = I SDLA#ZSI>0 W !,"INCREMENTS PER HOUR INCONSISTENT WITH ",SDLA,"-MINUTE APPOINTMENT LENGTH" K
X,ZSI,SDLA Q
LAST EDITED: MAY 24, 1989
HELP-PROMPT: THIS FIELD ***SHOULD NOT BE EDITED*** ONCE AVAILABILITY HAS BEEN CREATED!!
DESCRIPTION: This field SHOULD NOT BE EDITED when patterns have been established using another increment
per hour. Editing this field will cause existing patterns to be erroneous and scheduling conflicts
may also occur if the increments are changed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44,1918 OVERBOOKS/DAY MAXIMUM SL;7 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 29, 1989
HELP-PROMPT: ENTER THE NUMBER OF ALLOWABLE OVERBOOKS PER DAY. IF OVERBOOKS ARE NOT ALLOWED, ENTER ZERO.
DESCRIPTION: Number of allowable overbooks per day. If overbooks are not allowed, the number should be set to
zero.
RECORD INDEXES: ATMP1 (#1552)
44,1918.5 SCHEDULE ON HOLIDAYS? SL;8 SET
'Y' FOR YES;
LAST EDITED: MAR 17, 1986
HELP-PROMPT: RESPOND YES IF SCHEDULING IS ALLOWED FOR THIS CLINIC ON ALL HOLIDAYS
DESCRIPTION:
Should the user be able to schedule appointments on holiday's for specific location?
44,1919 COPIES 0;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
How many copies of appointment lists should be generated for this clinic?
44,1920 AVAILABILITY T;0 DATE Multiple #44.002 (Add New Entry without Asking)
DESCRIPTION:
Multiple that stores clinic availability information.
44.002,.01 AVAILABILITY 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y,DINUM=Y K:YDT) X,DINUM
HELP-PROMPT: NOT LESS THAN TODAY OR GREATER THAN 1 YEAR FROM NOW
DESCRIPTION:
Clinic availability information.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44.002,2 SCHEDULE TIME 2;0 Multiple #44.004 (Add New Entry without Asking)
DESCRIPTION:
Time slots or pattern scheduled for a specific clinic.
44.004,.01 SCHEDULE TIME 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>4!($L(X)<4)!'(X?4N&(X<1700)&(X>700)&(X#100<60)) X
HELP-PROMPT: ANSWER MUST BE 4 CHARACTERS IN LENGTH
DESCRIPTION:
Time slots or pattern scheduled for a specific clinic.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44.004,1 NUMBER OF PATIENTS 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
Number of patients allowed to be booked for time slots.
44.002,3 DAY OF WEEK ; COMPUTED
MUMPS CODE: S Y(44.002,3,1)=$S($D(^SC(D0,"T",D1,0)):^(0),1:"") S X=$P(Y(44.002,3,1),U,1) D DW^%DTC S X=X
ALGORITHM: DAYOFWEEK(AVAILABILITY)
DESCRIPTION:
Day(s) of week clinic is scheduled to meet.
44.002,4 NUMBEROFDAY ; COMPUTED
MUMPS CODE: S Y(44.002,4,1)=$S($D(^SC(D0,"T",D1,0)):^(0),1:"") S X=$P(Y(44.002,4,1),U,1) D H^%DTC S X=%Y S X=X
ALGORITHM: SDNUMBEROFDAY(AVAILABILITY)
LAST EDITED: APR 17, 1984
DESCRIPTION:
Number of days per week clinic is scheduled to meet.
44,1920.9 AVAILABILITY FLAG STT;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date/time set up for clinic availability.
44,1921 PATTERN ST;0 DATE Multiple #44.005 (Add New Entry without Asking)
DESCRIPTION:
Pattern for clinic availability information.
WRITE AUTHORITY: ^
44.005,.01 PATTERN DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X
DESCRIPTION:
Date/time this particular clinic pattern was set up by user.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44.005,1 CURRENT AVAILABILITY 1;E1,90 FREE TEXT
INPUT TRANSFORM: K:$L(X)>90!($L(X)<2) X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ANSWER MUST BE 2-90 CHARACTERS IN LENGTH
DESCRIPTION:
Current clinic availability. What slots are and are not available for specified clinic days.
44.005,2 MAINTENANCE ; COMPUTED
MUMPS CODE: S Y(2,1)=$S($D(^SC(D0,"ST",D1,1)):^(1),1:"") S X=$E(Y(2,1),1,70),X=$S(X["*":1,X["$":1,X["A":1,X["B"
:1,1:"")
ALGORITHM: #1
DESCRIPTION:
Computed to update when slots are taken/restored when reviewing clinic pattern availability.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44.005,3 SPECIAL AVAILABILITY FLAG 9;1 DATE
LAST EDITED: AUG 01, 1986
DESCRIPTION: This node's existence indicates there is a 'special' availability set up for this date and the
master pattern for this date should be taken from the "OST" node with the same date, not the
"T0"-"T6" master pattern nodes.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44,1921.5 SPECIAL PATTERN OST;0 DATE Multiple #44.0002 (Add New Entry without Asking)
DESCRIPTION:
Special pattern information (storage of previous clinic patterns and current one).
WRITE AUTHORITY: ^
44.0002,.01 PATTERN DATE 0;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X
LAST EDITED: AUG 01, 1986
DESCRIPTION:
Date a particular pattern was established by user.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44.0002,1 ORIGINAL AVAILABILITY 1;E1,90 FREE TEXT
INPUT TRANSFORM: K:$L(X)>90!($L(X)<2)!'(X?.E1"[".E!(X="")) X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ANSWER MUST BE 2-90 CHARACTERS IN LENGTH
DESCRIPTION:
First or original availability pattern set up for a clinic.
44,1922 SUNDAY TEMPLATE T0;0 Multiple #44.06 (Add New Entry without Asking)
DESCRIPTION: 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.
DELETE TEST: .01,0)= I '$D(SDSCHED) W !,"ZZZ",!,*7,"You cannot delete this field using fileman!!!"
WRITE AUTHORITY: ^
44.06,.01 LIMIT DATE 0;1 NUMBER
INPUT TRANSFORM:W:'$D(SDSCHED) *7,!,"No editting of this field allowed through fileman" K:'$D(SDSCHED) X I $D(X) S
%DT="EX",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER
DESCRIPTION: The pattern stored at this date is applicable for Sundays from the previous entry's date up to but
not including this date. If there is no previous entry date, this date is the first Sunday when
appointments may be made to this clinic. If the date equals 9999999, this pattern is effective
indefinitely for Sundays from the previous entry date.
DELETE TEST: 1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44.06,1 MASTER PATTERN 1;E1,80 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<3)!'(X?.E1"[".E!(X="")) X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH
DESCRIPTION:
Master pattern set up by user on specified date for Sundays. All patterns stored.
DELETE TEST: 1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
44,1923 MONDAY TEMPLATE T1;0 Multiple #44.07 (Add New Entry without Asking)
DESCRIPTION: 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.
DELETE TEST: .01,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
WRITE AUTHORITY: ^
44.07,.01 LIMIT DATE 0;1 NUMBER
INPUT TRANSFORM:W:'$D(SDSCHED) *7,!,"No editting of this field allowed through fileman" K:'$D(SDSCHED) X I $D(X) S
%DT="EX",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER
DESCRIPTION: The pattern stored at this date is applicable for Mondays from the previous entry's date up to but
not including this date. If there is no previous entry date, this date is the first Monday when
appointments may be made to this clinic. If the date equals 9999999, this pattern is effective
indefinitely for Mondays from the previous entry date.
DELETE TEST: 1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44.07,1 MASTER PATTERN 1;E1,80 FREE TEXT (audited)
INPUT TRANSFORM:K:$L(X)>80!($L(X)<3)!'(X?.E1"[".E!(X="")) X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH
DESCRIPTION:
Master pattern set up by user for clinic for Mondays.
AUDIT: YES, ALWAYS
DELETE TEST: 1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
44,1924 TUESDAY TEMPLATE T2;0 Multiple #44.08 (Add New Entry without Asking)
DESCRIPTION: 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.
DELETE TEST: .01,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
WRITE AUTHORITY: ^
44.08,.01 LIMIT DATE 0;1 NUMBER
INPUT TRANSFORM:W:'$D(SDSCHED) *7,!,"No editting of this field allowed through fileman" K:'$D(SDSCHED) X I $D(X) S
%DT="EX",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER
DESCRIPTION: The pattern stored at this date is applicable for Tuesdays from the previous entry's date up to but
not including this date. If there is no previous entry date, this date is the first Tuesday when
appointments may be made to this clinic. If the date equals 9999999, this pattern is effective
indefinitely for Tuesdays from the previous entry date.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44.08,1 MASTER PATTERN 1;E1,80 FREE TEXT (audited)
INPUT TRANSFORM:K:$L(X)>80!($L(X)<3)!'(X?.E1"[".E!(X="")) X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH
DESCRIPTION:
Master Pattern set up for clinic for Tuesdays.
AUDIT: YES, ALWAYS
DELETE TEST: 1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
44,1925 WEDNESDAY TEMPLATE T3;0 Multiple #44.09 (Add New Entry without Asking)
DESCRIPTION: 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.
DELETE TEST: .01,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
WRITE AUTHORITY: ^
44.09,.01 LIMIT DATE 0;1 NUMBER
INPUT TRANSFORM:W:'$D(SDSCHED) *7,!,"No editting of this field allowed through fileman" K:'$D(SDSCHED) X I $D(X) S
%DT="EX",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER
DESCRIPTION: The pattern stored at this date is applicable for Wednesdays from the previous entry's date up to
but not including this date. If there is no previous entry date, this date is the first Wednesday
when appointments may be made to this clinic. If the date equals 9999999, this pattern is
effective indefinitely for Wednesdays from the previous entry date.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44.09,1 MASTER PATTERN 1;1 FREE TEXT (audited)
INPUT TRANSFORM:K:$L(X)>80!($L(X)<3)!'(X?.E1"[".E!(X="")) X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH
DESCRIPTION:
Master pattern set up for clinic for wednesdays.
AUDIT: YES, ALWAYS
DELETE TEST: 1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
44,1926 THURSDAY TEMPLATE T4;0 Multiple #44.008 (Add New Entry without Asking)
DESCRIPTION: 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.
DELETE TEST: .01,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
WRITE AUTHORITY: ^
44.008,.01 LIMIT DATE 0;1 NUMBER
INPUT TRANSFORM:W:'$D(SDSCHED) *7,!,"No editting of this field allowed through fileman" K:'$D(SDSCHED) X I $D(X) S
%DT="EX",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER
DESCRIPTION: The pattern stored at this date is applicable for Thursdays from the previous entry's date up to
but not including this date. If there is no previous entry date, this date is the first Thursday
when appointments may be made to this clinic. If the date equals 9999999, this pattern is
effective indefinitely for Thursdays from the previous entry date.
DELETE TEST: 1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44.008,1 MASTER PATTERN 1;E1,80 FREE TEXT (audited)
INPUT TRANSFORM:K:$L(X)>80!($L(X)<3)!'(X?.E1"[".E) X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH
DESCRIPTION:
Master pattern set up for clinic for thursdays.
AUDIT: YES, ALWAYS
DELETE TEST: 1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
44,1927 FRIDAY TEMPLATE T5;0 Multiple #44.009 (Add New Entry without Asking)
DESCRIPTION: 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.
DELETE TEST: .01,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
WRITE AUTHORITY: ^
44.009,.01 LIMIT DATE 0;1 NUMBER
INPUT TRANSFORM:W:'$D(SDSCHED) *7,!,"No editting of this field allowed through fileman" K:'$D(SDSCHED) X I $D(X) S
%DT="EX",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER
DESCRIPTION: The pattern stored at this date is applicable for Fridays from the previous entry's date up to but
not including this date. If there is no previous entry date, this date is the first Friday when
appointments may be made to this clinic. If the date equals 9999999, this pattern is effective
indefinitely for Fridays from the previous entry date.
DELETE TEST: 1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44.009,1 MASTER PATTERN 1;E1,80 FREE TEXT (audited)
INPUT TRANSFORM:K:$L(X)>80!($L(X)<3)!'(X?.E1"[".E!(X="")) X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH
DESCRIPTION:
Master pattern set up for clinic for fridays.
AUDIT: YES, ALWAYS
DELETE TEST: 1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
44,1928 SATURDAY TEMPLATE T6;0 Multiple #44.0001 (Add New Entry without Asking)
DESCRIPTION: 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.
DELETE TEST: .01,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
WRITE AUTHORITY: ^
44.0001,.01 LIMIT DATE 0;1 NUMBER
INPUT TRANSFORM:W:'$D(SDSCHED) *7,!,"No editting of this field allowed through fileman" K:'$D(SDSCHED) X I $D(X) S
%DT="EX",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER
DESCRIPTION: The pattern stored at this date is applicable for Saturdays from the previous entry's date up to
but not including this date. If there is no previous entry date, this date is the first Saturday
when appointments may be made to this clinic. If the date equals 9999999, this pattern is
effective indefinitely for Saturdays from the previous entry date.
DELETE TEST: 1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44.0001,1 MASTER PATTERN 1;E1,80 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<3)!'(X?.E1"[".E!(X="")) X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH
DESCRIPTION:
Master pattern set up for clinic for saturdays.
DELETE TEST: 1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
44,2000 REQUIRE X-RAY FILMS? RAD;1 SET
'Y' FOR YES;
LAST EDITED: SEP 16, 1983
DESCRIPTION:
Will x-ray films be required for patients scheduled in this clinic?
44,2000.5 REQUIRE ACTION PROFILES? PS;1 SET (Required)
'0' FOR YES;
'1' FOR NO;
LAST EDITED: JUL 22, 1986
DESCRIPTION:
Will pharmacy action profiles be required for patients scheduled in this clinic?
44,2001 ALLOWABLE CONSECUTIVE NO-SHOWS SDP;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 16, 1983
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999
DESCRIPTION: 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.
44,2002 MAX # DAYS FOR FUTURE BOOKING SDP;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<11)!(X?.E1"."1N.N) X
LAST EDITED: DEC 16, 1983
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 11 AND 999
DESCRIPTION: Maximum number of days that can be available when clerk searching for open clinic slots in the
future.
44,2003 START TIME FOR AUTO REBOOK SDP;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>16)!(X<0)!(X?.E1"."1N.N) X I $D(X),$D(^SC(DA,"SL")) I X<$S('$P(^("SL"),"^",3):8,1:$P(^("
SL"),"^",3)) W !,*7,"MUST NOT BE EARLIER THAN CLINIC START TIME" K X
LAST EDITED: OCT 08, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 16, ONLY IF REBOOKING IS NOT TO BEGIN AT EARLIEST TIME
DESCRIPTION: Start time (hour of day) that should be searched for when user auto rebooking an appointment. For
example, if the clinic regularly starts at 8am, user may wish to set this parameter to 9am so that
the next available slot at 9am or later will be stuffed with new appointment.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44,2004 COLLATERAL VISITS? (Y OR N) 0;16 SET (Required)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: FEB 28, 1984
DESCRIPTION:
Are collateral visits allowed to this clinic? Yes or No
44,2005 MAX # DAYS FOR AUTO-REBOOK SDP;4 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>365)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 07, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 365
DESCRIPTION: Maximum number of days the system can be set to search up to when auto rebooking appointments. For
instance, if an appointment to this clinic is cancelled and the latest time that should be allowed
for rescheduling is a period of two weeks (set parameter), then auto rebook function will quit
after searching a two week period in future for available slots.
44,2006 *RECORD TRACKING COMMUNICATION R;1 SET
'M' FOR MESSAGE;
'N' FOR NOTICE;
LAST EDITED: JUN 11, 1984
44,2007 *COMMUNICATION FORMAT R;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: SEP 18, 2014
HELP-PROMPT: Answer must be 1-10 characters in length.
TECHNICAL DESCR:
This field is no longer used. It was a pointer to File (#44.8) which no longer exists.
44,2008 *RECORD REQUEST DEVICE R;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<2) X
LAST EDITED: JUN 11, 1984
HELP-PROMPT: ANSWER MUST BE 2-20 CHARACTERS IN LENGTH
44,2009 *RT AT HOME RETREIVER R;4 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: JUN 11, 1984
44,2010 *RT NOT AT HOME RETREIVER R;5 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: JUN 11, 1984
44,2011 *RECORD REQUEST PRIORITY DT;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 11, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99
44,2012 *RECORD APPOINTMENT STATUS DT;2 SET
'1' FOR ASK APPOINTMENT DATE;
'0' FOR DON'T ASK APPOINTMENT DATE;
LAST EDITED: JUN 11, 1984
44,2500 PROHIBIT ACCESS TO CLINIC? SDPROT;1 SET
'Y' FOR YES;
LAST EDITED: JUN 12, 1984
DESCRIPTION:
Should only privileged users have access to book to this clinic?
44,2501 PRIVILEGED USER SDPRIV;0 POINTER Multiple #44.04 (Add New Entry without Asking)
DESCRIPTION: Privileged users set up to have access to book to clinic. Once one privileged user is entered into
this multiple, no other user will have access to book to the clinic. Each individual who should
have access to clinic must be entered one at a time.
44.04,.01 PRIVILEGED USER 0;1 POINTER TO NEW PERSON FILE (#200) (Multiply asked)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: APR 24, 2015
DESCRIPTION:
Privileged users set up to have access to book to clinic.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 44^ARU^MUMPS
1)= D ADDRUXR^SDEC18(DA(1),DA)
2)= D DELRUXR^SDEC18(DA(1),DA)
This MUMPS cross references is used to maintain the SDEC RESOURCE USER file along with the
resource link to the SDEC RESOURCE file based on 'this' HOSPITAL LOCATION.
44,2502 NON-COUNT CLINIC? (Y OR N) 0;17 SET (Required) (audited)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAR 11, 2010
HELP-PROMPT: If appointments to this clinic should not impact MAS AMIS statistics, answer 'Y'.
DESCRIPTION: Is this clinic to be a non-count clinic for workload purposes? OR Are visits to this clinic to be
included in workload statistics?
AUDIT: YES, ALWAYS
CROSS-REFERENCE: ^^TRIGGER^44^2502.5
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
44,2502.5 INCLUDE ON FILE ROOM LISTS? 0;21 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: OCT 01, 1986
DESCRIPTION: This field should contain a Yes if this is a non-count clinic that should be included on the file
room lists.
NOTES: TRIGGERED by the NON-COUNT CLINIC? (Y OR N) field of the HOSPITAL LOCATION File
44,2503 CREDIT STOP CODE 0;18 POINTER TO CLINIC STOP FILE (#40.7) (audited)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)'=900&$S('$P(^(0),U,3):1,$P(^(0),U,3)>DT:1,1:0),""SE""[$P(^(0),U,6),$S('$
P(^(0),U,7):1,$P(^(0),U,7)'>DT:1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 11, 2010
HELP-PROMPT: Enter the Stop Code which should be credited for an appointment to this clinic (only if Code
different than the one assigned to this clinic).
DESCRIPTION: 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.
SCREEN: S DIC("S")="I $P(^(0),U,2)'=900&$S('$P(^(0),U,3):1,$P(^(0),U,3)>DT:1,1:0),""SE""[$P(^(0),U,6),$S('$
P(^(0),U,7):1,$P(^(0),U,7)'>DT:1,1:0)"
EXPLANATION: Inactive stop codes are invalid. Stop code 900 can not be used for a clinic. Stop code must have
a restriction type of "Secondary" or "Either" and not have a future restriction date.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FIELD INDEX: ACST (#457) REGULAR IR SORTING ONLY
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)
RECORD INDEXES: ATMP1 (#1552)
44,2503.1 PRV. YEAR CREDIT STOP CODE OC;2 POINTER TO CLINIC STOP FILE (#40.7)
INPUT TRANSFORM: K:X X
LAST EDITED: AUG 01, 1988
DESCRIPTION:
Previous year's credit stop code assigned to clinic.
WRITE AUTHORITY: ^
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
44,2504 CLINIC MEETS AT THIS FACILITY? 0;19 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JUN 06, 2022
DESCRIPTION:
Does clinic meet at designated facility?
44,2505 INACTIVATE DATE I;1 DATE (audited)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 11, 2010
HELP-PROMPT: This date will be the date from which this clinic is considered inactive
DESCRIPTION:
Date clinic was inactivated.
AUDIT: YES, ALWAYS
RECORD INDEXES: ATMP1 (#1552)
44,2506 REACTIVATE DATE I;2 DATE (audited)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 11, 2010
HELP-PROMPT: This date will be the date from which this clinic is considered active again. It must have been
previously inactivated.
DESCRIPTION:
Date clinic was reactivated.
AUDIT: YES, ALWAYS
RECORD INDEXES: ATMP1 (#1552)
44,2507 DEFAULT APPOINTMENT TYPE AT;1 POINTER TO APPOINTMENT TYPE FILE (#409.1)
INPUT TRANSFORM: S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 05, 1988
DESCRIPTION:
The default or usual appointment type to be associated with this clinic.
SCREEN: S DIC("S")="I '$P(^(0),U,3)"
EXPLANATION: Choose from active appointment types.
44,2508 NO SHOW LETTER LTR;1 POINTER TO LETTER FILE (#407.5)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",2)=""N""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 27, 1990
DESCRIPTION: 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.
SCREEN: S DIC("S")="I $P(^(0),""^"",2)=""N"""
EXPLANATION: LETTER MUST BE NO-SHOW TYPE
CROSS-REFERENCE: 44^ALTN
1)= S ^SC("ALTN",$E(X,1,30),DA)=""
2)= K ^SC("ALTN",$E(X,1,30),DA)
44,2509 PRE-APPOINTMENT LETTER LTR;2 POINTER TO LETTER FILE (#407.5)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",2)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 27, 1990
DESCRIPTION: 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.
SCREEN: S DIC("S")="I $P(^(0),""^"",2)=""P"""
EXPLANATION: LETTER MUST BE PRE-APPOINTMENT TYPE
CROSS-REFERENCE: 44^ALTP
1)= S ^SC("ALTP",$E(X,1,30),DA)=""
2)= K ^SC("ALTP",$E(X,1,30),DA)
44,2510 CLINIC CANCELLATION LETTER LTR;3 POINTER TO LETTER FILE (#407.5)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",2)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 27, 1990
DESCRIPTION: 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.
SCREEN: S DIC("S")="I $P(^(0),""^"",2)=""C"""
EXPLANATION: LETTER MUST BE CLINIC CANCELLATION TYPE
CROSS-REFERENCE: 44^ALTC
1)= S ^SC("ALTC",$E(X,1,30),DA)=""
2)= K ^SC("ALTC",$E(X,1,30),DA)
44,2511 APPT. CANCELLATION LETTER LTR;4 POINTER TO LETTER FILE (#407.5)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",2)=""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 27, 1990
DESCRIPTION: Enter appointment cancellation letter to be associated with this clinic, so if veteran cancels
appointment, this letter will print as opposed to generic appointment cancellation letter.
SCREEN: S DIC("S")="I $P(^(0),""^"",2)=""A"""
EXPLANATION: LETTER MUST BE PATIENT CANCELLATION TYPE
CROSS-REFERENCE: 44^ALTA
1)= S ^SC("ALTA",$E(X,1,30),DA)=""
2)= K ^SC("ALTA",$E(X,1,30),DA)
44,2600 PROVIDER PR;0 POINTER Multiple #44.1
DESCRIPTION: Enter in this field the providers associated with this clinic. These providers will then be
displayed when updating the provider through Appointment Management or Check Out to assist the user
in entering the correct provider.
44.1,.01 PROVIDER 0;1 POINTER TO NEW PERSON FILE (#200) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $$SCREEN^SDUTL2(Y,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 10, 2014
DESCRIPTION: Enter in this field the providers associated with this clinic. These providers will then be
displayed when updating the provider through Appointment Management or Check Out to assist the
user in entering the correct provider.
SCREEN: S DIC("S")="I $$SCREEN^SDUTL2(Y,DT)"
EXPLANATION: Provider must be active and have an active entry in the NEW PERSON file for PERSON CLASS.
EXECUTABLE HELP: D HELP^SDUTL2(DT)
CROSS-REFERENCE: 44.1^B
1)= S ^SC(DA(1),"PR","B",$E(X,1,30),DA)=""
2)= K ^SC(DA(1),"PR","B",$E(X,1,30),DA)
CROSS-REFERENCE: 44^AVADPR^MUMPS
1)= S ^SC("AVADPR",X,DA(1),DA)=$P(^SC(DA(1),"PR",DA,0),U,2)
2)= K ^SC("AVADPR",X,DA(1),DA)
FINDS A PROVIDER'S CLINICS Cross-reference to easily find all clinics for a particular provider
and if that provider is listed as default.
44.1,.02 DEFAULT PROVIDER 0;2 SET
'0' FOR NO;
'1' FOR YES;
INPUT TRANSFORM:I X,$D(^SC("ADPR",DA(1))),'$D(^(DA(1),DA)) W !?5,"A default provider has already been assigned for
this clinic." K X
LAST EDITED: MAR 26, 1993
DESCRIPTION:
Enter 'YES' in this field if the provider is the default for this clinic. Otherwise, enter 'NO'.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:44^ADPR^MUMPS
1)= S:X ^SC("ADPR",DA(1),DA)=""
2)= K ^SC("ADPR",DA(1),DA)
44,2700 DIAGNOSIS DX;0 POINTER Multiple #44.11
DESCRIPTION: These are the diagnoses associated with this clinic. These diagnoses will be displayed when
updating the diagnosis through Appointment Management or Check Out to assist the user in entering
the correct diagnosis.
44.11,.01 DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $$F44SCRN1^SDAMICD(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 04, 2013
HELP-PROMPT: Enter an active ICD code.
DESCRIPTION: This is a diagnosis associated with this clinic. This diagnosis will be displayed when updating
the diagnosis through Appointment Management or Check Out to assist the user in entering the
correct diagnosis.
TECHNICAL DESCR:
The Screen on this field allows active ICD codes.
SCREEN: S DIC("S")="I $$F44SCRN1^SDAMICD(Y)"
EXPLANATION: Diagnosis must be active.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 44.11^B
1)= S ^SC(DA(1),"DX","B",$E(X,1,30),DA)=""
2)= K ^SC(DA(1),"DX","B",$E(X,1,30),DA)
44.11,.02 DEFAULT DIAGNOSIS 0;2 SET
'0' FOR NO;
'1' FOR YES;
INPUT TRANSFORM:I X,$$F44SCRN2^SDAMICD(DA(1),DA) D EN^DDIOL("A default diagnosis ("_$$DEFLTICD^SDAMICD(DA(1),DA)_")
has already been assigned to this clinic for this ICD version.","","!?5") K X
LAST EDITED: MAR 20, 2012
HELP-PROMPT: Is this the default diagnosis?
DESCRIPTION: This field indicates whether or not this ICD code is this clinic's default diagnosis for an ICD
version. Only one ICD code for an ICD version may be the default code for a clinic.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:44.11^ADDX^MUMPS
1)= S:X ^SC("ADDX",DA(1),DA)=""
2)= K ^SC("ADDX",DA(1),DA)
44,2800 TEAM POSITIONS PCMM;0 POINTER Multiple #44.40457 (Add New Entry without Asking)
DESCRIPTION: This contains one or more team positions that have this clinic as an 'ASSOCIATE CLINIC' - defined
in the TEAM POSITION (#404.57) File.
SCREEN: S DIC("S")="I $D(^SC(Y))#2"
EXPLANATION: This ensures that only clinics that are 'associated
44.40457,.01 TEAM POSITIONS 0;1 POINTER TO TEAM POSITION FILE (#404.57)
INPUT TRANSFORM: S DIC("S")="I $P($G(^(0)),U,9)=DA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 29, 1996
HELP-PROMPT: This should not be edited via FileMan
DESCRIPTION: This is populated via a trigger on the ASSOCIATED CLINIC (#.09) Field of the TEAM POSITION
(#404.57) File.
SCREEN: S DIC("S")="I $P($G(^(0)),U,9)=DA"
EXPLANATION: ASDF
CROSS-REFERENCE: 44.40457^B
1)= S ^SC(DA(1),"PCMM","B",$E(X,1,30),DA)=""
2)= K ^SC(DA(1),"PCMM","B",$E(X,1,30),DA)
44.40457,.02 TEAM 0;2 POINTER TO TEAM FILE (#404.51)
INPUT TRANSFORM:S DIC("S")="I $P($G(^SCTM(404.57,+$G(^SC(+$G(DA(1)),""PCMM"",+$G(DA),0)),0)),U,2)=Y" D ^DIC K DIC S
DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 29, 1996
HELP-PROMPT: ASDF
TECHNICAL DESCR:
SCREEN: S DIC("S")="I $P($G(^SCTM(404.57,+$G(^SC(+$G(DA(1)),""PCMM"",+$G(DA),0)),0)),U,2)=Y"
EXPLANATION: ASDF
CROSS-REFERENCE:44^D
1)= S ^SC("D",$E(X,1,30),DA(1),DA)=""
2)= K ^SC("D",$E(X,1,30),DA(1),DA)
44,2801 DEFAULT TO PC PRACTITIONER? PC;1 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 29, 1996
HELP-PROMPT: Should PC Practitioner be default if no default provider?
DESCRIPTION: 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.
44,2802 ADMINISTER INPATIENT MEDS? 0;25 SET
'1' FOR YES;
LAST EDITED: APR 24, 2003
HELP-PROMPT: Respond YES only if the clinic is authorized to dispense inpatient medications to outpatients.
DESCRIPTION: This field should contain a YES only if the clinic location is authorized to dispense inpatient
medications to outpatients.
CROSS-REFERENCE: 44^AE
1)= S ^SC("AE",$E(X,1,30),DA)=""
2)= K ^SC("AE",$E(X,1,30),DA)
44,2900 CLINIC HASH HASH;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>120!($L(X)<1) X
MAXIMUM LENGTH: 120
LAST EDITED: AUG 16, 2022
HELP-PROMPT: Answer must be 1-120 characters in length.
DESCRIPTION: This field stores a SHA-1 hash of the RPC, SDES GET CLINIC INFO, output. Hash is calculated by
calling the SDES HASH ALL CLINIC option.
TECHNICAL DESCR:
Free text field 1-120 characters - stores hash value of the clinic entry.
UNEDITABLE
44,2901 CLINIC HASH DATE/TIME HASH;2 DATE
INPUT TRANSFORM: S %DT="ESTR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 24, 2022
HELP-PROMPT: Enter the Date/time CLINIC HASH was updated.
DESCRIPTION:
Date/time SHA-1 hash was created via option SDES HASH ALL CLINICS.
TECHNICAL DESCR:
Date/time hash was calculated.
UNEDITABLE
44,22900 AUTOFINISH RX SITE AFRXSITE;1 POINTER TO OUTPATIENT SITE FILE (#59)
LAST EDITED: MAY 02, 2007
HELP-PROMPT: Enter outpatient site this location is associated with.
DESCRIPTION: 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.
44,22901 AUTOFINISH CLINIC PRINTER AFRXCLINPRNT;1 POINTER TO DEVICE FILE (#3.5)
LAST EDITED: MAY 02, 2007
HELP-PROMPT: Enter printer where autofinished Rx's for this clinic will be printed.
DESCRIPTION:
Printer where autofinished Rx's will print for a particular clinic.
44,648009 EXCLUDE ON INELIGIBLE SCREEN? 648009;1 SET
'1' FOR YES;
LAST EDITED: FEB 20, 1992
44,999999 ON MUMPS TALK SYSTEM? 0;30 SET
'Y' FOR YES;
LAST EDITED: OCT 10, 1996
FILES POINTED TO FIELDS
AGENCY (#4.11) AGENCY (#23)
APPOINTMENT TYPE (#409.1) DEFAULT APPOINTMENT TYPE (#2507)
CLINIC GROUP (#409.67) CLINIC GROUP (REPORTS) (#31)
CLINIC STOP (#40.7) STOP CODE NUMBER (#8)
PRV. YEAR STOP CODE (#8.1)
CREDIT STOP CODE (#2503)
PRV. YEAR CREDIT STOP CODE (#2503.1)
DEVICE (#3.5) AUTOFINISH CLINIC PRINTER (#22901)
ELIGIBILITY CODE (#8) PATIENT:ELIGIBILITY OF VISIT (#30)
FACILITY TREATING SPECIALTY
(#45.7) TREATING SPECIALTY (#9.5)
HOSPITAL LOCATION (#44) MODULE (#4)
PRINCIPAL CLINIC (#1916)
*RT AT HOME RETREIVER (#2009)
*RT NOT AT HOME RETREIVER (#2010)
ICD DIAGNOSIS (#80) DIAGNOSIS:DIAGNOSIS (#.01)
INSTITUTION (#4) INSTITUTION (#3)
LETTER (#407.5) NO SHOW LETTER (#2508)
PRE-APPOINTMENT LETTER (#2509)
CLINIC CANCELLATION LETTER (#2510)
APPT. CANCELLATION LETTER (#2511)
LOCATION TYPE (#40.9) TYPE EXTENSION (#2.1)
ASSOCIATED LOCATION TYPES:ASSOCIATED LOCATION TYPES (#.01)
MEDICAL CENTER DIVISION (#40.8) DIVISION (#3.5)
NEW PERSON (#200) DEFAULT PROVIDER (#16)
PATIENT:DATA ENTRY CLERK (#7)
CHECK IN USER (#302)
CHECK OUT USER (#304)
PRIVILEGED USER:PRIVILEGED USER (#.01)
PROVIDER:PROVIDER (#.01)
OUTPATIENT SITE (#59) AUTOFINISH RX SITE (#22900)
PACKAGE (#9.4) OOS CALLING PACKAGE (#50.02)
PATIENT (#2) PATIENT:PATIENT (#.01)
PATIENT:PATIENT (#.01)
REQUEST/CONSULTATION (#123) PATIENT:CONSULT LINK (#688)
REQUESTED RECORDS (#190.1) PATIENT:PARENT RECORD REQUEST # (#200)
SDEC SUBSPECIALTY (#409.94) SECONDARY SUBSPECIALTY:SECONDARY SUBSPECIALTY (#.01)
TERTIARY SUBSPECIALTY:TERTIARY SUBSPECIALTY (#.01)
TEAM (#404.51) TEAM POSITIONS:TEAM (#.02)
TEAM POSITION (#404.57) TEAM POSITIONS:TEAM POSITIONS (#.01)
WARD LOCATION (#42) NAME (#.01)
WARD LOCATION FILE POINTER (#42)
File #44
Record Indexes:
AG (#1353) RECORD REGULAR IR SORTING ONLY
Short Descr: Index by TYPE and NAME.
Description: This cross reference is used to sort by TYPE and NAME.
Set Logic: S ^SC("AG",X(1),X(2),DA)=""
Kill Logic: K ^SC("AG",X(1),X(2),DA)
Whole Kill: K ^SC("AG")
X(1): TYPE (44,2) (Subscr 1) (forwards)
X(2): NAME (44,.01) (Subscr 2) (forwards)
ATMP1 (#1552) RECORD MUMPS IR ACTION
Short Descr: Used to trigger clinic update HL7 message to Tele Health Management Platform.
Description: The Tele Health Management Platform (TMP) application allows users to schedule and cancel appointments in
VistA. TMP needs to be kept up to date with specific clinic information in order to be able to accurately
display clinic information.
This index will trigger an update to be sent to the TMP platform via HL7 when one of the fields below is edited
for a tele health clinic or if a new tele health clinic is added. Tele health clinics are identified by either
the Stop Code Number (primary stop code) or the Credit Stop Code (secondary stop code).
Name (#.01) Stop Code Number (#8) Credit Stop Code (#2504) Service (#9) Treating Specialty (#9.5) Overbooks/Day
Maximum (#1918) Inactivate Date (#2505) Reactivate Date (#2506).
Set Logic: D EN^SDTMPHLB(DA)
Set Cond: S X=X1(1)'=""!X1(2)'=""!X1(3)'=""!X1(4)'=""!X1(5)'=""!X1(6)'=""!X1(7)'=""!X1(8)'=""!X1(9)'=""
Kill Logic: Q
X(1): NAME (44,.01)
X(2): STOP CODE NUMBER (44,8)
X(3): CREDIT STOP CODE (44,2503)
X(4): TREATING SPECIALTY (44,9.5)
X(5): SERVICE (44,9)
X(6): DEFAULT PROVIDER (44,16)
X(7): OVERBOOKS/DAY MAXIMUM (44,1918)
X(8): INACTIVATE DATE (44,2505)
X(9): REACTIVATE DATE (44,2506)
NO RE-INDEXING ALLOWED!
INPUT TEMPLATE(S):
SD IMO APR 18, 2003@13:41 USER #0
SDB JUL 01, 2024@11:56 USER #0 ^SDBT
PRINT TEMPLATE(S):
CAPTIONED USER #0
PSO ACTION PROFILE MAR 27, 1996@09:19 USER #0 @
PSO ACTION PROFILE #2 AUG 15, 1997@09:10 USER #0 ^PSOXX @
SDEC MISSING RESOURCE MAY 07, 2019@10:14 USER #0 HOSPITAL LOCATION Search
SORT TEMPLATE(S):
SDEC MISSING RESOURCE MAY 21, 2019@11:37 USER #0 TYPE EQUALS "C"^CLINIC
Search template that, when used with the print template of the same name,
lists all clinics that do not have a corresponding resource (#409.831) of
the same name.
FORM(S)/BLOCK(S):