Global: ^SC

FileMan FileNo	FileMan Filename	Package
44	HOSPITAL LOCATION	Scheduling

Package	Total	Routines
Scheduling	250	SCDXUAPI SCENIA2 SCMCENCT SCMCMHE SCMSP SCMSP66 SCMSPX1 SCMSPX2 SCRPO SCRPU1 SCRPW10 SCRPW17 SCRPW2 SCRPW60 SCRPW72 SCRPW81 SD53793P SD5384NC SD5384PT SD53P491 SDAL0 SDAM3 SDAMCCKL SDAMEP1 SDAMEX SDAMO0 SDAMOCP1 SDAMODO SDAMVSC SDAMWI SDAMWI1 SDAPP SDB SDB1 SDBT SDBT1 SDBT2 SDBT3 SDBT4 SDCCRCOR SDCCRGAP SDCCRSEN SDCLAS SDCLK SDEC01 SDEC01A SDEC01B SDEC01C SDEC04 SDEC07 SDEC08 SDEC08A SDEC12 SDEC32 SDEC37 SDEC38 SDEC45 SDEC48 SDEC50 SDEC51 SDEC51A SDEC51B SDEC52 SDEC54A SDEC56 SDEC57 SDEC658 SDEC781P SDECAPI4 SDECAR1 SDECCLN SDECCONSJSON SDECDATA SDECDEV SDECEP SDECHL7 SDECINI1 SDECINI2 SDECRECREQ SDECRMG1 SDECRPT1 SDECRRCLEANUP SDECRT0 SDECRT1 SDECSTSR SDECU SDECUTL2 SDECV SDECVVS SDECWL SDECWL1 SDECWL3 SDES01C SDES2APPTCLNLST SDES2APPTUTIL SDES2APTLETTER SDES2BLDAPPT44 SDES2BLOCKANDMOV SDES2BLOCKMOVE SDES2CANCLNAVAIL SDES2CHECKIN SDES2CLINICLIST SDES2CLININFO SDES2CLINUT SDES2CLNSEARCH SDES2CONTACTS SDES2CREATEAPPT SDES2CRTCLNAVAIL SDES2EDITAPREQ SDES2EDITCLIN SDES2GETAPPTREQ SDES2GETCANSLOTS SDES2GETCLINAVL SDES2GETCLINSVC SDES2GETCLNSTA SDES2GETCONSULTS SDES2GETEXPENTRY SDES2GETPATSTAT SDES2GETRECALL SDES2GETRESGROUP SDES2GETSTATUS SDES2GETVISIT SDES2GETXPENTRY2 SDES2GREQSINST SDES2INACTCLIN SDES2PRVCLINSRC SDES2QRYAPREQSB SDES2REACTTCLIN SDES2RSTCAVAIL SDES2SEARCHCLNAT SDES2SEARCHRCLN SDES2SEARCHSLOTS SDES2SETCHECKOUT SDES2SRCHCLNBYSC SDES2UTIL SDES2UTIL1 SDES2VAL44 SDES2VAL44A SDES2VVSJSON SDES890P SDES893P SDESAPPT4 SDESAPPTLETTERS SDESAPPTLETTERSV SDESBLKANDMOVE SDESBLOCKANDMOVE SDESCANAPPT2 SDESCANCELAPPTS SDESCCAVAIL SDESCHECKIN SDESCHECKOUT SDESCLINDAILYSCH SDESCLINICAVAIL SDESCLINICDATA SDESCLINICSET SDESCLINICSET2 SDESCLNSEARCH SDESCLNSETAVAIL SDESCOMPPEN SDESCONSULTUPD SDESCONTACTS SDESCREATEAPPT SDESCREATEAPPT44 SDESEDITAPPTREQ SDESGETAPPTREQ SDESGETAPPTWRAP3 SDESGETAPPTWRAP5 SDESGETAREQINST2 SDESGETAVAILSC SDESGETCLNSCHEDS SDESGETCONSULTS SDESGETRECALL SDESGETRESOURCE SDESGETTIUDOC SDESHASHCLIN SDESINACTCLINIC SDESMISSIONAVL SDESMISSIONELG SDESPRINTPATAPPT SDESPROVCLINSRCH SDESREACTVTCLIN SDESRECALLREQ SDESRECCLINSRCH SDESRTNRG SDESRTVCLN SDESRTVCLN2 SDESRTVCLN3 SDESSEARCH SDESSEARCHRCLN SDESUTIL SDESVVC SDESVVS SDHL7CON SDM SDM1A SDM2A SDM4 SDMHAD SDMHAP SDMM1 SDMULT SDN SDNACT SDOQMP0 SDPBP SDPFSS2 SDREACT SDREV SDROUT SDRPA08 SDRR1 SDRR5 SDRRCLR SDRRCLR2 SDRRCRR SDRRCRR1 SDRRDEL SDRRINQ SDRRINQ1 SDRROR SDRRPXC SDRRRECL SDRRRECP SDRRREP SDRRSEG3 SDRRUTL SDRRUTL1 SDSCSSD SDST SDTMBUS SDTMP08 SDTMPHLB SDTMPUT0 SDTMPUT1 SDTMPUT2 SDWL120 SDWLBACC SDWLCU1 SDWLCU5 SDWLCU6 SDWLD SDWLE2 SDWLE7 SDWLI SDWLPE SDWLPL SDWLQSC SDWLQSC1 SDWLREB SDWLRP2
Lab Service	20	LR138PO LR7OFAO LR7OV5 LRACKL LRARC1A LRARCR1A LRCAPBV LRCAPES LRCAPPH LRCAPPH2 LRCAPR1A LRJSML4 LRLABLD0 LRMITSPE LRSORA1 LRSORC LRSORD LRUC LRVRPOC LRVRPOCU
DSS Extracts	17	ECX357PT ECXBCM ECXDVSN1 ECXECMDI ECXPHAA ECXPIVDN ECXRAD ECXSCLD ECXSCLD1 ECXSCRP ECXSCX3 ECXSCXN ECXSURG ECXUCBOC ECXUD ECXUTL5 ECXUTL6
Event Capture	16	EC2P152 ECCLIPRO ECEFPAT ECMDDSSU ECMDECS ECRDSSEC ECRECSIC ECSCPT1 ECSCRN ECUERPC ECUERPC1 ECUMRPC ECUMRPC1 ECUTL1 ECUTL3 ECV3RPC
Inpatient Medications	16	PSGCAP PSGL PSGMAR PSGMMAR PSGPER1 PSGPR PSGVBW PSJBCMA6 PSJCLOR PSJEXP PSJIMO1 PSJO1 PSJPAD50 PSJPADE PSJPADSI PSJPDAPP
General Medical Record - Vitals	15	GMRVBP1 GMRVDS1 GMRVGR1 GMRVLBP2 GMRVLPO2 GMRVLWT3 GMRVPCE1 GMRVSC0 GMRVUT2 GMRVVS2 GMRVWT1 GMVDCVAL GMVDS1 GMVHS GMVUTL1
Outpatient Pharmacy	15	PSO160DR PSOCST11 PSODEMSB PSOERPC0 PSOERUT5 PSOERX1F PSOERXD2 PSOLLL5 PSONVAR1 PSONVAVW PSOORFI3 PSOORFI6 PSORWRAP PSOSD PSOSDRAP
Radiology Nuclear Medicine	12	RAHLRU RAMAG02A RAMAG03A RAORD1 RAORD8 RAPCE2 RAPERR1 RARTST1 RARTST2 RARTST2A RASYS1 RAUTL6
Enterprise Health Management Platform	10	HMPD HMPDJ01 HMPDJ02 HMPDJ03 HMPDJ04 HMPDJ04A HMPDJ05 HMPDJ09 HMPDSDAM HMPDVSIT
Quasar	10	ACKQAS ACKQASU ACKQASU1 ACKQIPST ACKQPCE2 ACKQR1 ACKQR2 ACKQR3 ACKQR5 ACKQUTL2
Integrated Billing	9	IBCC1 IBECEAMH IBEMTSCU IBOHLS1 IBTRH1A IBTRH1B IBTRH5 IBTRH7 IBTUBO2
Order Entry Results Reporting	9	ORALEAPI ORAMX ORDEA ORFIMM1 ORFSKT ORMBLDSD ORWDPS11 ORWPCE2 ORY429
Clinical Procedures	8	MDCEVN MDCPHL7A MDHL7BH MDPCE2 MDPS2 MDRPCOT1 MDRPCOW MDWSETUP
Virtual Patient Record	8	VPRD VPRDJ02 VPRDJ04 VPRDSDAM VPRDVSIT VPRSDA VPRSDAM VPRSDAT
Clinical Case Registries	7	RORHL09 RORHLUT1 RORRP015 RORUTL05 RORUTL18 RORXU002 RORXU006
My HealtheVet	7	MHV1P11 MHV1P22 MHV1P5 MHVUMRPC MHVXCLN MHVXRXM MHVXRXM2
Consult Request Tracking	6	GMRCCD GMRCPSL2 GMRCPSL3 GMRCPSL4 GMRCSRVS GMRCYP70
Imaging	6	MAGDHLSV MAGDHOW4 MAGDHOWS MAGDRPCA MAGDTRDX MAGVIM10
Mental Health	6	YSBDD1 YSBWHIG2 YSCLTST5 YSGAF1 YTQHL7 YTQRIS
Mobile Scheduling Applications Suite	6	MBAAMDA1 MBAAMDA4 MBAAMRP1 MBAARPC1 MBAARPC3 MBAARPCL
Registration	6	DG53478I DGENA2 DGENACL2 DGFSMOUT DGMTUTL VAUTOMA
Automated Lab Instruments	5	LA7VHLU2 LA7VHLU4 LA7VORC LA7VORU LA7VORUB
Problem List	5	GMPLBLD3 GMPLMGR1 GMPLNTFT GMPLNTRT GMPLX1
Text Integration Utility	5	TIU144 TIUCCRHL7P2 TIUHL7P2 TIUP146P TIUTIUS
Automated Information Collection System	4	IBDF1B IBDFFT IBDFUTL IBDFUTL4
Barcode Medication Administration	4	PSBMMRB PSBO PSBOHDR PSBPOIV
Methicillin Resistant Staph Aurerus Initiative Reports	4	MMRSCDI MMRSCDI2 MMRSCRE2 MMRSCRE3
Nursing Service	4	NURSAFLL NURSALED NURSUT3 NURSUT5
PAID	4	PRSNUT01 PRSNUT02 PRSNUT03 PRSNUT04
Surgery	4	SROESX SROESXA SROESXP SROUTL
Clinical Reminders	3	PXRMGECO PXRMVSIT PXRMXSU
Record Tracking	3	RTQ3 RTRAD RTSM
Automated Medical Information Exchange	2	DVBCREPT DVBCULAP
Enrollment Application System	2	EASMTRP1 EASMTRP3
General Medical Record - IO	2	GMRYFLW2 GMRYRP3
Health Summary	2	GMTSCNB GMTSPL
Medicine	2	MCARP MCRPEC
National Health Information Network	2	NHINVAPT NHINVSIT
PCE Patient Care Encounter	2	PXRRLCSC PXRRPCE
Pharmacy Data Management	2	PSSEXLST PSSJXR29
VA Point of Service	2	VPSRPC10 VPSVTL01
VistA Integration Adapter	2	VIABRPC VIABRPC4
Adverse Reaction Tracking	1	GMRACMR1
Clinical Information Resource Network	1	RGHOUT
Controlled Substances	1	PSDDSOR1
Functional Independence	1	RMIMRP
Womens Health	1	WVLRLINK

Package	Total	FileMan Files
Scheduling	19	HOSPITAL LOCATION(#44)[4, 1916, 2009, 2010] OUTPATIENT ENCOUNTER(#409.68)[.04] TEAM AUTOLINK(#404.56)[.02] TEAM POSITION(#404.57)[.09, #404.575(.01)] RECALL REMINDERS(#403.5)[4.5] RECALL REMINDERS LETTERS(#403.52)[.01] RECALL REMINDERS REMOVED(#403.56)[4.5, 102] SCHEDULING PARAMETER(#404.91)[902] SCHEDULING REPORT QUERY TEMPLATE(#404.95)[40, #404.9503(.01)] APPOINTMENT PFSS ACCOUNT REFERENCE(#409.55)[.03] ACRP TRANSMISSION HISTORY(#409.77)[.04] PRINT MANAGER CLINIC SETUP(#409.95)[.01] SDEC RESOURCE(#409.831)[.012, .04, #409.8312001(.01)] SDEC APPT REQUEST(#409.85)[8, 13.2, #409.8545(2)] SDEC CONTACT(#409.86)[1] SCHEDULING VISITS(#409.5)[#409.51(3)] SD WAIT LIST(#409.3)[8.5, 13.2, #409.345(3)] SD WL CLINIC LOCATION(#409.32)[.01] PATIENT APPOINTMENT INFO LOG(#409.6)[#409.69(9)]
DSS Extracts	17	ADMISSION EXTRACT(#727.802)[27] CLINIC NOSHOW EXTRACT(#727.804)[52] PHYSICAL MOVEMENT EXTRACT(#727.808)[14, 20] UNIT DOSE LOCAL EXTRACT(#727.809)[11] SURGERY EXTRACT(#727.811)[82] RADIOLOGY EXTRACT(#727.814)[12] EVENT CAPTURE LOCAL EXTRACT(#727.815)[120, 128] CLINIC I EXTRACT(#727.816)[18] IV DETAIL EXTRACT(#727.819)[11] ADMISSION SETUP EXTRACT(#727.82)[27] PHYSICAL MOVEMENT SETUP EXTRACT(#727.821)[14, 20] TREATING SPECIALTY CHANGE SETUP EXTRACT(#727.822)[14] QUASAR EXTRACT(#727.825)[120, 128] CLINIC EXTRACT(#727.827)[11, 130] BCMA EXTRACT(#727.833)[15] IV EXTRACT DATA(#728.113)[13] CLINICS AND STOP CODES(#728.44)[.01]
Lab Service	10	LAB REPORTS(#64.5)[#64.57(.01)] INTERIM REPORTS(#64.6)[.01] LABORATORY SITE(#69.9)[.8, #69.9004(.01), #69.99(.01)] LAB DATA(#63)[#63.04(.111), #63.05(.111)] HOWDY SITE FILE(#69.86)[#69.8616(.01)] WKLD LOG FILE(#64.03)[14] WKLD DATA(#64.1)[#64.1111(20)] ACCESSION(#68)[.8, #68.02(94)] LAB ORDER ENTRY(#69)[#69.01(8), #69.01(23)] COLLECTION LIST(#69.1)[#69.11(11)]
Medicine	9	ECHO(#691)[40] CARDIAC CATHETERIZATION(#691.1)[5] ELECTROCARDIOGRAM (EKG)(#691.5)[18] HOLTER(#691.6)[17] EXERCISE TOLERANCE TEST(#691.7)[69] ELECTROPHYSIOLOGY (EP)(#691.8)[18] HEMATOLOGY(#694)[3] ENDOSCOPY/CONSULT(#699)[8, 9] PULMONARY FUNCTION TESTS(#700)[9]
Order Entry Results Reporting	9	ORDER(#100)[6] OE/RR LIST(#100.21)[#100.213(.01)] OE/RR PT SEL COMBO(#100.24)[#100.241(.01)] CANCELLED ORDERS AND ORDER CHECKS(#100.3)[.04] QUICK ORDER AUDIT(#100.95)[6] ORAM FLOWSHEET(#103)[101] OE/RR RELEASE EVENTS(#100.5)[9] OE/RR AUTO-DC RULES(#100.6)[#100.62(2), #100.62(4)] ORDER PARAMETERS(#100.99)[#100.99011(.01), #100.9925(.01)]
Outpatient Pharmacy	8	ADMINISTRATION SCHEDULE(#51.1)[#51.17(.01)] PENDING OUTPATIENT ORDERS(#52.41)[1.1] ERX HOLDING QUEUE(#52.49)[20.6] IV MEDICATION ORDERS DC'D(#52.75)[7] OUTPATIENT SITE(#59)[10, 1007] OUTPATIENT CLINIC SORT GROUP(#59.8)[#59.81(.01)] DRUG COST(#50.9)[#50.9008(.01)] PRESCRIPTION(#52)[5]
Imaging	7	IMAGE(#2005)[101] IMAGE AUDIT(#2005.1)[101] ACQUISITION DEVICE(#2006.04)[2] CLINICAL SPECIALTY DICOM & HL7(#2006.5831)[#2006.58311(.01)] OUTSIDE IMAGING LOCATION(#2006.5759)[3] DICOM GATEWAY PARAMETER(#2006.563)[117] DICOM RADIOLOGY PROCEDURES(#2006.5758)[8]
Integrated Billing	6	BILL/CLAIMS(#399)[#399.0304(6)] PFSS ACCOUNT(#375)[1.03] PFSS CHARGE CACHE(#373)[6.16] IB SITE PARAMETERS(#350.9)[#350.963(.01)] NON-BILLABLE CLINICS(#352.4)[.01] HCS REVIEW TRANSMISSION(#356.22)[.06]
Auto Replenishment Ward Stock	5	PADE INVENTORY SYSTEM(#58.601)[#58.6014(.01)] PADE DISPENSING DEVICE(#58.63)[#58.638(.01)] PADE SYSTEM SETUP(#58.7)[#58.7413(.01), #58.7481(.01), #58.749(.01)] PADE OUTBOUND MESSAGES(#58.72)[8] PHARMACY AOU STOCK(#58.1)[7, #58.14(.01)]
Registration	5	MAS PARAMETERS(#43)[213, #43.04(.01)] PTF(#45)[#45.06(.05)] PRE-REGISTRATION CALL LIST(#41.42)[5] WARD LOCATION(#42)[44] PATIENT(#2)[#2.001(.01), #2.98(.01), #2.98(18)]
Text Integration Utility	5	TIU DOCUMENT(#8925)[1205, 1211] TIU AUDIT TRAIL(#8925.5)[1.07, 1.08] TIU TEXT EVENTS(#8925.71)[#8925.715(.01)] TIU PRINT PARAMETERS(#8925.93)[.01] TIU PERSONAL PREFERENCES(#8926)[.02, #8926.01(.02)]
Inpatient Medications	4	ADMINISTRATION SHIFT(#51.15)[#51.153(.01)] NON-VERIFIED ORDERS(#53.1)[113] CLINIC DEFINITION(#53.46)[.01] CLINIC GROUP(#57.8)[#57.81(.01)]
PCE Patient Care Encounter	4	V IMMUNIZATION DELETED(#9000080.11)[1215] V IMMUNIZATION(#9000010.11)[1215] VISIT(#9000010)[.22] PCE PARAMETERS(#815)[201, #815.0401(.01), #815.0801(.01)]
Radiology Nuclear Medicine	4	IMAGING LOCATIONS(#79.1)[.01, #79.188(.01)] REPORT DISTRIBUTION(#74.4)[8] RAD/NUC MED PATIENT(#70)[#70.03(8), #70.03(22)] RAD/NUC MED ORDERS(#75.1)[22]
Surgery	4	SURGERY(#130)[.021, 119] SURGERY SITE PARAMETERS(#133)[42] LOCAL SURGICAL SPECIALTY(#137.45)[2] OPERATING ROOM(#131.7)[.01]
Automated Information Collection System	3	FORM DEFINITION(#357.95)[#357.9501(.01)] ENCOUNTER FORM TRACKING(#357.96)[.1] PRINT MANAGER CLINIC GROUPS(#357.99)[#357.9901(.01)]
Consult Request Tracking	3	REQUEST/CONSULTATION(#123)[.04, 2] GMRC CONSULT MAPPING(#123.033)[#123.0335(.01)] REQUEST SERVICES(#123.5)[#123.54(.01), #123.56(.01)]
Hospital Based Home Care	3	HBHC CLINIC(#631.6)[.01] HBHC VISIT(#632)[2] HBHC VISIT ERROR(S)(#634.2)[6]
Nursing Service	3	NURQ QI SUMMARY(#217)[#217.04(.01)] NURS LOCATION(#211.4)[.01] NURS POSITION CONTROL(#211.8)[.01]
Quasar	3	A&SP CLINIC VISIT(#509850.6)[2.6] A&SP SITE PARAMETERS(#509850.8)[#509850.81(.01), #509850.831(.01)] AUDIOMETRIC EXAM DATA(#509850.9)[.04]
VA Point of Service	3	VPS CONFIG HISTORY(#853)[.02] VPS MRAR PDO(#853.5)[#853.51(.04)] VPS APPOINTMENTS QUEUE(#853.9)[#853.91(.01)]
Automated Lab Instruments	2	FOREIGN INTERFACE(#62.487)[#62.4871(.01)] LAB SHIPPING CONFIGURATION(#62.9)[#62.9003(.01)]
Barcode Medication Administration	2	BCMA MISSING DOSE REQUEST(#53.68)[1] BCMA REPORT REQUEST(#53.69)[5]
Clinical Procedures	2	OBS(#704.117)[.04] CP DEFINITION(#702.01)[.05]
Clinical Reminders	2	REMINDER LOCATION LIST(#810.9)[#810.944(.01)] REMINDER REPORT TEMPLATE(#810.1)[#810.11(.01)]
Dietetics	2	NUTRITION LOCATION(#119.6)[102, #119.64(.01)] DIETETIC ENCOUNTERS(#115.7)[4, #115.701(1)]
Emergency Department Integration Software	2	ED LOG(#230)[.14] ED LOG HISTORY(#230.1)[.14]
Event Capture	2	EVENT CAPTURE PATIENT(#721)[26] EC EVENT CODE SCREENS(#720.3)[55]
Mental Health	2	SECLUSION/RESTRAINT(#615.2)[.04] MH ADMINISTRATIONS(#601.84)[13]
Problem List	2	PROBLEM(#9000011)[1.08] PROBLEM SELECTION LIST(#125)[.03]
Prosthetics	2	PROSTHETICS SITE PARAMETERS(#669.9)[52, #669.922(.01)] PROSTHETIC APPOINTMENT WORKSHEET(#663.4)[8]
Womens Health	2	WV LAB TESTS(#790.08)[.11] WV PROCEDURE(#790.1)[.11]
Automated Medical Information Exchange	1	AMIE SITE PARAMETER(#396.1)[#396.115(.01)]
Enterprise Health Management Platform	1	HMP ROSTER(#800001.2)[#800001.21(.02)]
General Medical Record - IO	1	GMRY PATIENT I/O FILE(#126)[#126.01(7), #126.02(6), #126.03(7), #126.313(4), #126.316(3)]
General Medical Record - Vitals	1	GMRV VITAL MEASUREMENT(#120.5)[.05]
Health Summary	1	HEALTH SUMMARY TYPE(#142)[#142.2(.01)]
Incomplete Records Tracking	1	INCOMPLETE RECORDS(#393)[.05]
Kernel	1	INSTITUTION(#4)[#4.03(.02)]
Occurrence Screen	1	QA OCCURRENCE SCREEN(#741)[4, #741.026(.01)]
Patient Assessment Documentation	1	NUPA CARE PLANS(#1927.4)[19]
Pharmacy Data Management	1	PHARMACY PATIENT(#55)[#55.01(136), #55.05(13), #55.06(130)]
Quality Assurance Integration	1	QUALITY ASSURANCE SITE PARAMETERS(#740)[#740.01(.01)]
Record Tracking	1	BORROWERS/FILE AREAS(#195.9)[.01, 2]
Shift Handoff Tool	1	CRHD HANDOFF PARAMETERS(#183)[.01]
Toolkit	1	PARAMETERS(#8989.5)[.01]

Package	Total	FileMan Files
Scheduling	9	CLINIC STOP(#40.7)[8, 8.1, 2503, 2503.1] LOCATION TYPE(#40.9)[2.1, #44.101(.01)] HOSPITAL LOCATION(#44)[4, 1916, 2009, 2010] TEAM(#404.51)[#44.40457(.02)] TEAM POSITION(#404.57)[#44.40457(.01)] APPOINTMENT TYPE(#409.1)[2507] CLINIC GROUP(#409.67)[31] SDEC SUBSPECIALTY(#409.94)[#44.0301(.01), #44.0302(.01)] LETTER(#407.5)[2508, 2509, 2510, 2511]
Kernel	5	DEVICE(#3.5)[22901] INSTITUTION(#4)[3] AGENCY(#4.11)[23] PACKAGE(#9.4)[50.02] NEW PERSON(#200)[16, #44.003(7), #44.003(302), #44.003(304), #44.04(.01), #44.1(.01)]
Registration	5	MEDICAL CENTER DIVISION(#40.8)[3.5] WARD LOCATION(#42)[42] FACILITY TREATING SPECIALTY(#45.7)[9.5] ELIGIBILITY CODE(#8)[#44.003(30)] PATIENT(#2)[#44.003(.01), #44.007(.01)]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[#44.003(688)]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#44.11(.01)]
Outpatient Pharmacy	1	OUTPATIENT SITE(#59)[22900]
Record Tracking	1	REQUESTED RECORDS(#190.1)[#44.003(200)]

Fields, Total: 107

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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(^SCRS(403.12,+$P(Y(1),U,29),0)):"",1:$P(^(0),U,1))` `1.4)= S DIH=$S($D(^SCRS(403.12,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=403.12,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^SC(D0,0)):^(0),1:""),D0=$P(Y(1),U,29) S:'$D(^SCRS(403.12,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^SCRS(403.12,D0,0)):^(0),1:"")` `CREATE CONDITION)= NAME'=CLINIC SERVICES RESOURCE` `CREATE VALUE)= NAME` `DELETE VALUE)= NO EFFECT` `FIELD)= CLINIC SERVICES RESOURCE:NAME` `This trigger cross-reference is used to update the Name field (#.01) of the Clinic Services Resource file (#403.12).` RECORD INDEXES: `AG (#1353), ATMP1 (#1552)`
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).`
2	TYPE	0;3	SET	**********************REQUIRED FIELD********************** '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 ^DICR:$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)):+SDX,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)`
2.1	TYPE EXTENSION	0;22	POINTER TO LOCATION TYPE FILE (#40.9)	**********************REQUIRED FIELD********************** LOCATION TYPE(#40.9) 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)`
3	INSTITUTION	0;4	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) 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`
3.5	DIVISION	0;15	POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)	**********************REQUIRED FIELD********************** MEDICAL CENTER DIVISION(#40.8) 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`
4	MODULE	0;5	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 9` DESCRIPTION: `Module or name of hospital location.`
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.`
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.`
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.`
8	STOP CODE NUMBER	0;7	POINTER TO CLINIC STOP FILE (#40.7)	**********************REQUIRED FIELD********************** CLINIC STOP(#40.7) 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)`
8.1	PRV. YEAR STOP CODE	OC;1	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#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`
9	SERVICE	0;8	SET	**********************REQUIRED FIELD********************** '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)`
9.1	IS THIS A PBSP CLINIC?	0;28	SET (BOOLEAN Data Type)	This field indicates whether a clinic is a 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.`
9.5	TREATING SPECIALTY	0;20	POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)	**********************REQUIRED FIELD********************** FACILITY TREATING SPECIALTY(#45.7) 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)`
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.`
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`
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`
13	SYNONYM	.01;0	Multiple #44.01	44.01 DESCRIPTION: `Synonym or shortened name associated with a specific location.`
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.`
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.`
16	DEFAULT PROVIDER	0;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) 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)`
19	PROHIBITED TERMINAL	9;0	Multiple #44.02	44.02 DESCRIPTION: `Terminals that cannot be utilized from specific location.`
20	E-CHECKIN ALLOWED	0;26	SET	**********************REQUIRED FIELD********************** '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.`
21	PRE-CHECKIN ALLOWED	0;27	SET	**********************REQUIRED FIELD********************** '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.`
23	AGENCY	0;23	POINTER TO AGENCY FILE (#4.11)	AGENCY(#4.11) LAST EDITED: `JAN 04, 1990` DESCRIPTION: `Agency associated with specific location, i.e. Veterans Affairs, Department of Defense, etc.`
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.`
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`
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.`
31	CLINIC GROUP (REPORTS)	0;31	POINTER TO CLINIC GROUP FILE (#409.67)	CLINIC GROUP(#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)`
42	WARD LOCATION FILE POINTER	42;1	POINTER TO WARD LOCATION FILE (#42)	WARD LOCATION(#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,4` `2,1,1,2.4)` `2.4)= S DIH=$S($D(^DIC(42,DIV(0),44)):^(44),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(44)=DIV_$S(%]"":U_%,1:""),DIH=42,DIG=44 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `69.2)= S I(0,0)=$S($D(D0):D0,1:"") S X=$S('$D(D0):"",D0<0:"",1:D0),Y(1)=X,D0=Y(0) S:'$D(^DIC(42,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(42,D0,44)):^(44),1:"") S X=$P(Y(101),U,1)` `CREATE CONDITION)= NUMBER'=INTERNAL(WARD LOCATION FILE POINTER:HOSPITAL LOCATION FILE POINTER)` `CREATE VALUE)= NUMBER` `DELETE VALUE)= @` `FIELD)= WARD LOCATION FILE POINTER:HOSPITAL LOCATION FILE POINTER`
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.`
50.02	OOS CALLING PACKAGE	OOS;2	POINTER TO PACKAGE FILE (#9.4)	PACKAGE(#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: ^`
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.`
61	DIRECT PATIENT SCHEDULING?	PA;2	SET	**********************REQUIRED FIELD********************** '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`
62	DISPLAY CLIN APPT TO PATIENTS?	PA;3	SET	**********************REQUIRED FIELD********************** '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`
63	VETERAN SELF-CANCEL?	PA;4	SET (BOOLEAN Data Type)	This field indicates if a patient can self-cancel for the clinic. 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.`
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.`
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.`
101	ASSOCIATED LOCATION TYPES	LOC;0	POINTER Multiple #44.101	44.101
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 (#1739) 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)`
301	SECONDARY SUBSPECIALTY	301;0	POINTER Multiple #44.0301	44.0301 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.`
302	TERTIARY SUBSPECIALTY	302;0	POINTER Multiple #44.0302	44.0302 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.`
1900	APPOINTMENT	S;0	DATE Multiple #44.001	44.001 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: ^`
1901	CANCEL DATE/TIME BEGIN	SDCAN;0	DATE Multiple #44.05	44.05 DESCRIPTION: `Cancellation date/time beginning for a clinic.`
1902	FULL DAY CANCEL FULL DAY	CANCEL;0	DATE Multiple #44.1902	44.1902
1906	CHART CHECK	C;0	DATE Multiple #44.006	44.006 DESCRIPTION: `Does user want the chart checked for availability for this clinic.`
1910	SPECIAL INSTRUCTIONS	SI;0	Multiple #44.03	44.03 DESCRIPTION: `Special instructions (free text) entered by clerk at time of making the appointment.`
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`
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?`
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).`
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.`
1916	PRINCIPAL CLINIC	SL;5	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#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 LARGER CLINIC'S NAME",!`
1917	DISPLAY INCREMENTS PER HOUR	SL;6	SET	**********************REQUIRED FIELD******************** '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`
1918	OVERBOOKS/DAY MAXIMUM	SL;7	NUMBER	**********************REQUIRED FIELD********************** 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)`
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?`
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?`
1920	AVAILABILITY	T;0	DATE Multiple #44.002	44.002 DESCRIPTION: `Multiple that stores clinic availability information.`
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.`
1921	PATTERN	ST;0	DATE Multiple #44.005	44.005 DESCRIPTION: `Pattern for clinic availability information.` `WRITE AUTHORITY: ^`
1921.5	SPECIAL PATTERN	OST;0	DATE Multiple #44.0002	44.0002 DESCRIPTION: `Special pattern information (storage of previous clinic patterns and current one).` `WRITE AUTHORITY: ^`
1922	SUNDAY TEMPLATE	T0;0	Multiple #44.06	44.06 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: ^`
1923	MONDAY TEMPLATE	T1;0	Multiple #44.07	44.07 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: ^`
1924	TUESDAY TEMPLATE	T2;0	Multiple #44.08	44.08 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: ^`
1925	WEDNESDAY TEMPLATE	T3;0	Multiple #44.09	44.09 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: ^`
1926	THURSDAY TEMPLATE	T4;0	Multiple #44.008	44.008 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: ^`
1927	FRIDAY TEMPLATE	T5;0	Multiple #44.009	44.009 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: ^`
1928	SATURDAY TEMPLATE	T6;0	Multiple #44.0001	44.0001 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: ^`
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?`
2000.5	REQUIRE ACTION PROFILES?	PS;1	SET	**********************REQUIRED FIELD********************** '0' FOR YES; '1' FOR NO; LAST EDITED: `JUL 22, 1986` DESCRIPTION: `Will pharmacy action profiles be required for patients scheduled in this clinic?`
2001	ALLOWABLE CONSECUTIVE NO-SHOWS	SDP;1	NUMBER	**********************REQUIRED FIELD********************** 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.`
2002	MAX # DAYS FOR FUTURE BOOKING	SDP;2	NUMBER	**********************REQUIRED FIELD********************** 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.`
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`
2004	COLLATERAL VISITS? (Y OR N)	0;16	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 28, 1984` DESCRIPTION: `Are collateral visits allowed to this clinic? Yes or No`
2005	MAX # DAYS FOR AUTO-REBOOK	SDP;4	NUMBER	**********************REQUIRED FIELD********************** 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.`
2006	*RECORD TRACKING COMMUNICATION	R;1	SET	'M' FOR MESSAGE; 'N' FOR NOTICE; LAST EDITED: `JUN 11, 1984`
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.`
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`
2009	*RT AT HOME RETREIVER	R;4	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `JUN 11, 1984`
2010	*RT NOT AT HOME RETREIVER	R;5	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `JUN 11, 1984`
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`
2012	*RECORD APPOINTMENT STATUS	DT;2	SET	'1' FOR ASK APPOINTMENT DATE; '0' FOR DON'T ASK APPOINTMENT DATE; LAST EDITED: `JUN 11, 1984`
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?`
2501	PRIVILEGED USER	SDPRIV;0	POINTER Multiple #44.04	44.04 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.`
2502	NON-COUNT CLINIC? (Y OR N)	0;17	SET	**********************REQUIRED FIELD********************** '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`
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`
2503	CREDIT STOP CODE	0;18	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) 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)`
2503.1	PRV. YEAR CREDIT STOP CODE	OC;2	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#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`
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?`
2505	INACTIVATE DATE	I;1	DATE	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)`
2506	REACTIVATE DATE	I;2	DATE	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)`
2507	DEFAULT APPOINTMENT TYPE	AT;1	POINTER TO APPOINTMENT TYPE FILE (#409.1)	APPOINTMENT TYPE(#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.`
2508	NO SHOW LETTER	LTR;1	POINTER TO LETTER FILE (#407.5)	LETTER(#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)`
2509	PRE-APPOINTMENT LETTER	LTR;2	POINTER TO LETTER FILE (#407.5)	LETTER(#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)`
2510	CLINIC CANCELLATION LETTER	LTR;3	POINTER TO LETTER FILE (#407.5)	LETTER(#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)`
2511	APPT. CANCELLATION LETTER	LTR;4	POINTER TO LETTER FILE (#407.5)	LETTER(#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)`
2600	PROVIDER	PR;0	POINTER Multiple #44.1	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.`
2700	DIAGNOSIS	DX;0	POINTER Multiple #44.11	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.`
2800	TEAM POSITIONS	PCMM;0	POINTER Multiple #44.40457	44.40457 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`
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.`
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)`
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`
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`
22900	AUTOFINISH RX SITE	AFRXSITE;1	POINTER TO OUTPATIENT SITE FILE (#59)	OUTPATIENT SITE(#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.`
22901	AUTOFINISH CLINIC PRINTER	AFRXCLINPRNT;1	POINTER TO DEVICE FILE (#3.5)	DEVICE(#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.`
648009	EXCLUDE ON INELIGIBLE SCREEN?	648009;1	SET	'1' FOR YES; LAST EDITED: `FEB 20, 1992`
999999	ON MUMPS TALK SYSTEM?	0;30	SET	'Y' FOR YES; LAST EDITED: `OCT 10, 1996`

Customize PDF page

Package: Scheduling

Global: ^SC

Information

Description

Accessed By FileMan Db Calls, Total: 529

Pointed To By FileMan Files, Total: 170

Pointer To FileMan Files, Total: 23

Fields, Total: 107

Found Entries, Total: 2