Global: ^SC

FileMan FileNo	FileMan Filename	Package
44	HOSPITAL LOCATION	Scheduling

Package	Total	Routines
Scheduling	477	AVAILABILITY DIAGNOSIS PATIENT SCAPMC28 SCAPMC30 SCCVEAE3 SCCVEAP1 SCDXFU11 SCMCPT6 SCMCQK2 SCMCTSK6 SCMSPX2 SCMSVDG1 SCRPRAC2 SCRPW10 SCRPW11 SCRPW18 SCRPW47 SCRPW54 SCRPW56 SCRPW61 SCRPW72 SCRPW76 SCRPW77 SD53167P SD5371PT SD53P317 SD53P567 SDAM2 SDAMA302 SDAMA304 SDAMBMR3 SDAMC SDAMEP SDAMEP1 SDAMOL1 SDAMWI1 SDBT3 SDCAN SDCCRCOR SDCCRGAP SDCD SDCED1 SDCIAL SDCLAS1 SDCLK SDCNP0 SDCNP1 SDCNP1A SDCNSLT SDCO1 SDCO31 SDCOU2 SDCP SDCWL SDD0 SDDSO SDEC25A SDEC26 SDEC27 SDEC56 SDEC781P SDEC820P SDEC826P SDECCON SDECLOC SDECWL SDECWL3 SDES2BLOCKANDMOV SDES2BLOCKPBSP SDES2CHECKIN SDES2CLINUT SDES2CLNSEARCH SDES2RSTCAVAIL SDES846P SDES846PENC SDES846PRE SDESAPPTLETTERSV SDESAPPTREQ40984 SDESAPPTUTIL SDESAPTREQSET SDESCREATEAPPT SDESEDITAPPT SDESGETAPPTWRAP5 SDESMISSIONAVL SDESRTVCLN2 SDESVVS SDF1 SDHLAPT1 SDLT SDM1 SDM1A SDM3 SDM4 SDMHNS1 SDMM1 SDN SDNOS0 SDOEOE SDPFSS SDPHARM1 SDPPADD1 SDPPAPP1 SDPURG1 SDRFC SDROUT0 SDROUT1 SDRPA05 SDRPA08 SDRRUTL1 SDSCCHK SDTMPPRC SDTMPUT0 SDTMPUT2 SDTMPUT3 SDVSIT0 SDWLBACC ^SC SDYCENR TEAM POSITIONS ^SCE PROVIDER SCAPMC18 SCAPMC27 SCAPMC9 SCCVEAE1 SCCVEAP SCCVLOG1 SCDXMSG2 SCDXPRN2 SCMCDD1 SCMCMU11 SCMCTPU SCMCTSK2 SCMSP SCMSP66 SCMSVUT2 SCRPI01 SCRPW15 SCRPW24 SCRPW28 SCRPW57 SCRPW59 SCRPW6 SCRPW70 SD44AUDI SD53120A SD53793P SD5384PT SD599PT SDAL0 SDAMA203 SDAMA300 SDAMA303 SDAMA305 SDAMA308 SDAMN SDAMOWB SDAPP SDC0 SDC3 SDCCRSEN SDCED SDCLAS SDCNP2 SDCOU SDD SDDPA SDEC12 SDEC25 SDEC25B SDEC29 SDEC32 SDEC48 SDEC52A SDEC57 SDEC665 SDECAPI SDECAR2 SDECCAP SDECDEV SDECEPT SDECINI1 SDECINI2 SDECINIT SDECRRCLEANUP SDECSTP SDECUTL SDECV SDECXML SDECXUTL SDES2APPTUTIL SDES2CREATEAPPT SDES2INACTCLIN SDES2REACTTCLIN SDES2RECLLREQ SDESAPPT4 SDESAPPTDATA SDESAPPTLETTERS SDESCANAPPT2 SDESCANCELAPPTS SDESCHECKIN SDESCLINDAILYSCH SDESCLINICSET2 SDESCLINICUTIL SDESCLNSEARCH SDESCOMPPEN SDESEDITAPREQVAL SDESGETAPPTWRAP SDESGETAPPTWRAP3 SDESGETCLNSCHEDS SDESHASHCLIN SDESLOC SDESREACTVTCLIN SDF SDHL7APT SDHL7APU SDM SDMEAN SDMM SDMULT SDN0 SDNACT SDNDIS SDNOS SDNP SDOQMP SDPMUT2 SDREACT SDROUT SDRPA07 SDRRISRU SDSCE SDSCUTL SDST SDTMP08 SDTMPHLC SDTMPSTN SDTMPUT1 SDUNC SDWLTR ^SDEC(409.85 ASSOCIATED LOCATION TYPES SCCVEAP2 SCCVEDI1 SCDXSUP SCDXSUP1 SCMCMU SCMCTSK3 SCMSPX1 SCRPI02 SCRPPAT2 SCRPW16 SCRPW58 SCRPW9 SD5357PT SD53P377 SDAMBMR SDAMCCKL SDAMICD SDAMOCP SDAMWI SDAPIAP SDB1 SDBT1 SDC4 SDCLAV SDCO41 SDCWL3 SDEC NULL RESOURCE SDEC07A SDEC07B SDEC07C SDEC08A SDEC40 SDEC45 SDEC50 SDEC55A SDEC57A SDECRT SDECUTL2 SDES2BLOCKMOVE SDES2VAL44A SDESAPPT SDESAPPTREQ2 SDESCANCELAPPT2 SDESCANCELAPPT44 SDESGETAVAILSC SDL1 SDM0 SDNEXT SDOQMP2 SDPFSS2 SDSCRP SDTMPHLA SDUTL1 ^SDEC(409.86 SCCVEAP3 SCDXUAPI SCENI01 SCENIA2 SCMCEV1 SCMCEV3 SCMCMU4 SCRPO1 SCRPW1 SCRPW41 SCRPW73 SCRPW8 SD132PT SD53430P SDAM1 SDAMA307 SDAMBMR1 SDAMODO2 SDAMQ3 SDAMU SDASO SDAUT2 SDB0 SDBT SDBT2 SDBT4 SDBT5 SDCI SDCLAV0 SDCLAV1 SDCLDOW SDEC01 SDEC07 SDEC38 SDEC658 SDECDATA SDECRMG SDECRT1 SDECVVC SDES25 SDES2UTIL SDES2VAL44 SDESAPTREQ44 SDESCLINICAVAIL SDESCONSULTUPD SDESGETRESOURCE SDESINPUTVALUTL SDESMISSIONELG SDESUPDRECREQ2 SDMHAD SDOQMP1 SDOQMPR SDPMUT1 SDRRPXC SDRRUTL SDSCEDT SDUTL ^SCTM(404.52 ^SD(409.77 PATTERN SCAPMC26 SCDXHLDR SCENI0 SCMCDD SCMCMU1 SCMCQK1 SCRPBK4 SCRPW51 SCRPW7 SCRPW78 SD53P780 SDAL SDAM3 SDAMA200 SDAMEX SDAMOC SDAMOCP1 SDAUT1 SDC SDC2 SDCO SDCWL2 SDEC MISSING RESOURCE SDEC01A SDEC01B SDEC02 SDEC04 SDEC08 SDEC37 SDECAR3 SDECELG SDECRT0 SDECU2 SDECXML2 SDES2BLDAPPTOBJ SDES2CANCELAPPT SDES2NOSHOW SDES2SEARCHCLNAT SDES2SETCHECKOUT SDESBLKANDMOVE SDESCCAVAIL SDESCCAVAIL2 SDESCHECKOUT SDESCONTACTS SDESCREATEAPPT44 SDESGETCLINAPPT SDESGETPATAPPT SDESRTVCLN SDESRTVCLN3 SDESUPDRECREQ SDESUTIL SDM2 SDMANA SDNACT1 SDTMPEDT ^SD(403.5 SDOQMP0 SDVSIT ^SDAM(44.3 SCCVCST5 SCDXUTL SCDXUTL2 SCENIA0 SCMCYPC SCRPBK1 SCRPW27 SCRPW3 SCRPW301 SCRPW63 SCRPW71 SD53103A SD53726P SD53P544 SDAMEVT SDAMOS SDAMOW1 SDAPI SDB SDC1 SDCCP SDCCRSEN1 SDCED2 SDCLAS0 SDCNL SDCO7 SDEC31 SDECUT1A SDECUTL1 SDES2CANCLNAVAIL SDES2CHKCAVAIL SDES2CLINICLIST SDES860P SDESAPPT3 SDESBLKANDMOVE1 SDESBLOCKANDMOVE SDESCLINICSET SDESCLNSETAVAIL SDESCREATEAPPT2 SDESCRTAPPREQVAL SDM2A SDMHAD1 SDMHAP SDMHPRO1 SDMULT0 SDMULT1 SDN1 SDNOS1A SDPBP SDPCE2 SDPPENR1 SDROUT2 SDSTAT SDTMPHLB SDUTL2 SDWARD SDWLD SDWLPE SDWLRP2 SDWLRPT1 SDWU
Order Entry Results Reporting	98	OCXOZ02 OCXOZ07 OCXOZ0B OR3C100 ORAMSET ORAMTTR ORCACT0 ORCDSD ORCDVBEC ORCMENU1 ORCSAVE2 ORCSEND1 ORDV06D ORFIMM1 ORKUTL ORLA1 ORLP01 ORLPSR ORMBLDSD ORMBLDVB ORMEVNT ORPR03 ORPRPM1 ORPRS06 ORPRS08 ORPRS12 ORQPT ORQPT1 ORQQVI1 ORQQVI2 ORS100 ORSRCHOR ORTSKLPS ORU1 ORUDPA ORUHDR ORVIMM ORWCV ORWDFH ORWDXA ORWORR ORWPS ORWPT ORWTPT ORWU ORWU1 ORWU16 PARAMETER ^ORD(100.22 OCXOZ03 OCXOZ05 OCXOZ0D OCXOZ0E ORAMX ORB31 ORB3FN ORB3U2 ORB3USER ORCDLR1 ORCDRA1 ORCHART ORCSEND3 ORCSIGN ORDV06B OREVNT OREVNT1 ORIMO ORM ORMEVNT1 ORMHLREC ORPDMPNT ORPRS05 ORQ11 ORQ2 ORQOAUIB ORQPTQ2 ORQPTQ5 ORQQPL1 ORQQPL3 ORRHCQ ORS100C ORUTL ORUTL1 ORWDPS2 ORWDPS32 ORWDRA32 ORWDSD1 ORWDX1 ORWDXM1 ORWDXVB ORWDXVB1 ORWDXVB2 ORWLR1 ORWLR3 ORWPCE ORWPCE1 ORWPCE3 ORWPT16
Radiology Nuclear Medicine	62	HL7 FIELD EXCEPTIONS RA CLINIC BY PRINT DATE RA EXAM ROOM LIST RA IMAGE LOC LIST RAACIPST RABUL RACDR RACTRG2 RADEM1 RADLQ1 RADLY RADLY1 RAEDCN RAEDCN1 RAESR RAHLQ1 RAHLR RAHLRPT RALIST RAO7NEW RAO7PC1 RAO7PC1A RAO7RON RAORD1 RAORD1A RAORD2 RAORD4 RAORD5 RAORD7A RAORD8 RAORDCP RAORDP RAORDS RAORDU RAORDU1 RAORR1 RAPERR1 RAPRINT1 RAPROD RAPROS RAPSET RAPSET1 RAPTLU RAREG RAREG2 RAREG3 RARTFLDS RARTST2 RASTAT RASTED RASTEXT RASTRPT2 RASYS1 RAUTL0 RAUTL1 RAUTL12 RAUTL13 RAUTL18 RAUTL19 RAUTL6 RAUTL7 RAUTL7A
Inpatient Medications	54	PSGAPP PSGCAP0 PSGLOI PSGMAR0 PSGMAR3 PSGMMAR0 PSGMMAR2 PSGMMAR4 PSGOE82 PSGOEE PSGOEF1 PSGPER0 PSGPER2 PSGPR PSGVBW PSGVBWU PSIVARH PSIVCAL PSIVHYPL PSIVHYPR PSIVLABL PSIVLABR PSIVORAL PSIVORC2 PSIVORFB PSIVORLB PSJ5P315 PSJCLOR PSJCLOR2 PSJCLOR3 PSJEEU PSJGMRA PSJHL2 PSJHL4A PSJHL7 PSJHL9 PSJIBAG PSJLIVFD PSJLIVMD PSJLMHED PSJLMUDE PSJOE1 PSJORRN PSJORRN1 PSJORRO PSJPAD50 PSJPADE PSJPADSI PSJPDAPP PSJPDCL PSJPDCLA PSJPDCLU PSJPDV0 PSJSV0
PCE Patient Care Encounter	46	^AUPNVSIT PXAIVSTV PXBAPI1 PXBAPI2 PXBDPOV PXBDPRV PXBGSTP PXBGVST PXBPSTP PXBUTL2 PXCA0 PXCAVST PXCAVST1 PXCE PXCEAE PXCEE800 PXCEEXP PXCEHLOC PXCENEW PXCEPAT PXCEVSIT PXEDIEL PXICLN9B PXKCO PXKVST PXPXRM PXPXRM1 PXQGVST PXRHS02 PXRRECSE PXRRFDSE PXRRLCSC PXRRPAPI PXRRPAPR PXRRPASA PXRRPCE PXRRPCR PXRRWLS2 PXRRWLSE PXUTLVST PXVRESP PXVRPC6 PXVUTIL PXVXR VSITCK1 VSITDEF
Outpatient Pharmacy	41	PSO ACTION PROFILE PSO ACTION PROFILE #2 PSO160DR PSOARCCV PSOARX PSOCST11 PSOCSTD PSOCSTM PSODRDU1 PSOERX1B PSOERX1F PSOHCPRS PSOHCSUM PSOHLDS1 PSOHLNE2 PSOHLNEW PSOHLSG1 PSOHLSG5 PSOLBL PSOLBLN PSOLLLI PSOORDER PSOORED1 PSOORFI1 PSOORFI3 PSOORFI6 PSOORNE1 PSOORNE2 PSOORNE3 PSOORNE4 PSOP288R PSORELD1 PSORENW3 PSORXPR PSORXVW PSOSD0 PSOSDRAP PSOTPCUL PSOVDF3 PSOXX SORT GROUP
Surgery	41	SRHLUO1 SRHLUO3 SRHLVUO1 SROANR SRODATE SROERR1 SROERR2 SROESPR1 SROESPR2 SRONOR2 SRONOR3 SRONOR4 SRONOR5 SRONOR7 SRONOR8 SRONP2 SRONRPT SROOPRM SROPACT SROPCEU0 SRORESV SRORHRS SRORHRS0 SRORIN SRORUT0 SRORUT1 SROSCH SROTRPT0 SROUTL SROUTL0 SROUTUP SRSAVL SRSBDEL SRSCAN1 SRSCD SRSCDS SRSCDS1 SRSCDW SRSCDW1 SRSCOR SRSDISP
Automated Information Collection System	39	IBDF14A IBDF18A IBDF18B IBDF18C IBDF1B1 IBDF1B1A IBDF1B1B IBDF1B3 IBDF1BA IBDF2F1 IBDFCG1 IBDFCNOF IBDFDE0 IBDFDE7 IBDFDE8 IBDFFSMP IBDFRPC3 ^SDAUDIT IBDF15A IBDF1B5 IBDF6 IBDFDE1 IBDFDE6 IBDFFRFT IBDFFT IBDFFT1 IBDFFT3 IBDFFV1 IBDFN1 IBDFN3 IBDFOSG1 IBDFSS IBDFU4 IBDFUTL1 IBDFUTL2 IBDFUTL5 ^IBD(357.96 ^IBD(359.3 IBDFUTL4
Lab Service	39	EXCEPTED LOCATIONS LR450PIR LR7OF0 LR7OU0 LRAC14 LRACKL1 LRACM LRAPED LRARCPTS LRARCR2 LRBLJL1 LRCAPES LRCAPES1 LRCAPPH LRCAPPH1 LRCAPPH2 LRCAPPHX LRCAPR2 LRCAPTS LRCE LRDPA1 LREPI3 LRJSML4 LRJSMLA LRJSMLA1 LRMISEZA LRMITSPE LRPHLIS1 LRRMM LRRS12 LRUMDP LRUMDS LRUTT LRUWLF LRWLST1 LRWU RELATED NAME ^LAB(64.6 TEST
Integrated Billing	36	IBAECO IBAMTBU2 IBAMTS1 IBATLM2A IBATLM3A IBCCPT IBCNEDE2 IBCNEDE4 IBCONS2 IBCOPV2 IBCSC4D IBCSCH1 IBCU IBCU71 IBCU74 IBEFUNC IBEMTF2 IBEMTSCU IBEPTC2 IBEPTC3 IBJDI11 IBJDIPR IBOCNC1 IBOUNP1 IBTRED ^IBE(399.6 IBJTBC IBNCPDP2 IBOUNP2 IBOVOP1 IBRBUL IBTOBI IBTOECT IBTRE20 IBTUBOU PROCEDURES
Text Integration Utility	35	GMRPNOR1 TIU144 TIUCCHL7UT TIUCCRHL7P2 TIUCOPR1 TIUEN113 TIUEPN TIULC1 TIULE TIULV TIUMED1 TIUP113 TIUPNCVX TIUPREF TIUPRPN1 TIUPRPN2 TIUPRPN4 TIUPRPN7 TIUPUTCN TIUPUTCP TIUPUTPF TIUPUTPN TIUPXAP1 TIUPXAP2 TIURD2 TIURD3 TIUSRVL TIUSRVL1 TIUSRVLC TIUSRVLO TIUSRVLV TIUSRVP TIUSRVP1 TIUSRVR TIUVSIT
Record Tracking	24	RT OVER BY DIV BY BOR RT OVER BY DIV BY NAME RT OVER BY DIV BY TD RTDEL RTDPA3 RTDPA31 RTNQ3 RTNQ41 RTP3 RTP6 RTPSET RTPSET1 RTQ2 RTQ3 RTQ5 RTSM SYNONYMS ^RTV(195.9 RTSM4 RTSM5 RTSM6 RTSYS RTUTL RTUTL5
Registration	24	DGAPI1 DGENRPD2 DGMTOFA DGMTREQB DGPAR DGPMEVT DGPMVBUR DGPTFM DGPTFM2 DGPTFM3 DGQPT DGQPT1 DGQPTQ2 DGQPTQ5 DGRP14 DGRPD DGRRLU3 DGYPSDE2 VADPT5 VAFCCOPT VAFHCOPT VAFHCPV VAFHLPV1 ^DIC(42
Event Capture	19	ECBEN1B ECBEN2U ECBENF ECBEP1B ECBEP2A ECED1 ECED2 ECED3 ECEDF ECEFPAT ECMUTL1 ECMXP1 ECMXP2 ECPCER ECPCEU ECSUM1 ECSUM2 ECUMRPC1 ECV5RPC
Virtual Patient Record	19	VPRD VPRDGMV VPRDJ01 VPRDJ02 VPRDJ03 VPRDJ04 VPRDJ04A VPRDJ05 VPRDJ09 VPRDMC VPRDPSI VPRDPSOR VPRDPXIM VPRDSDAM VPRDVSIT VPRHSX2 VPRSDAP VPRSDAT VPRSDAV
DSS Extracts	16	ECX3P120 ECX3P127 ECXEC ECXFEKEY ECXFELOC ECXOPRX ECXPIVDN ECXQSR ECXSCLD ECXSCLD1 ECXSCRP ECXSCX ECXSCX1 ECXSCX3 ECXSCXN ECXSCXN1
Enterprise Health Management Platform	16	HMPCRPC1 HMPD HMPDJ00 HMPDJ02 HMPDJ04E HMPDMC HMPDSDAM HMPDVSIT HMPEF HMPEF1 HMPLIST HMPPATS HMPROS8 HMPWB5 HMPWBSO HMPXGSD
Medicine	15	MCAROC1 MCAROE1 MCAROEP MCAROG MCAROGM MCAROH1 MCAROHB MCAROK MCAROP MCAROT MCBPFTP1 MCOETT1 MCPARC MCPFTP MCPFTP1
Nursing Service	15	NURACHDC NURQEDT0 NURQRPT0 NURQRPT1 NURQUTL NURSAFLL NURSAPE0 NURSAUTL NURSCEP NURSUT2 NURSUT3 ^NURSF(211.4 OCCUPANCY/TRANSFERRED DATE ^NURSF(219.7 NURSUT1
Consult Request Tracking	14	GMRCIUTL GMRCONS1 GMRCONS2 GMRCONS3 GMRCP5B GMRCP5D GMRCPOR GMRCQCST GMRCSLM GMRCSLM2 GMRCSRVS GMRCSTL2 GMRCT GMRCYP70
Clinical Reminders	12	PXRMCVTM PXRMDLLC PXRMEXFI PXRMGECV PXRMINPL PXRMLOCF PXRMVITL PXRMVSIT PXRMXAP PXRMXSL1 PXRMXSL2 PXRMXSU
Mental Health	11	YS TEST SORT YSBRPC YSBWHIG2 YSCPAL YSDGDEM0 YSGAF1 YSSR 10-2683 SORT YSSR NURSE MGT SORT YSSR WARD MGT SORT YTQRQAD4 YTQRQAD7
Occurrence Screen	10	QAOSPAD1 QAOSPCL0 QAOSPHDR QAOSPRS0 QAOSPSM0 QAOSPSS0 QAOSPWT0 QAOSSFR0 QAOSSFR1 QAOUTL0
General Medical Record - Vitals	9	GMRVED0 GMRVPCE1 GMVFIXHL GMVGGR1 GMVPXRM GMVRPCHL GMVRPCM GMVUTL1 GMVVDEF1
Adverse Reaction Tracking	8	GMRACMR1 GMRACMR3 GMRACMR4 GMRAEAB GMRAPL GMRAPNA GMRAPTB GMRAVAB
Barcode Medication Administration	8	ALPBIND ALPBINP PSBML PSBOMD PSBOSF PSBOST PSBPXFL PSBRPC
Dietetics	8	FHASE1A FHASE2 FHMASE1A FHOMIP FHOMUTL FHPRW FHPST2 FHWOR8
Health Summary	8	GMTS TASK LOCATIONS SORT ^GMT(142.99 GMTSDA GMTSPCD GMTSPD GMTSPL GMTSUIX GMTSULT4
Automated Medical Information Exchange	7	DVBAAPLK DVBAB1B DVBAB97 DVBAREN1 DVBCENQ2 DVBCMKL2 DVBCPRNT
Clinical Procedures	6	MDCLIO1 MDHL7BH MDPFTP1 MDRPCU MDWOR MDWORC
Incomplete Records Tracking	6	DGJOPRT2 DGJOTP2 DGJTEE3 DGJTVW2 DGJTVW3 DGJXE
Problem List	6	GMPLDISP GMPLMGR GMPLMGR1 GMPLPREF GMPLUTL1 GMPLUTL2
Hospital Based Home Care	5	HBHCRP1A HBHCRP24 HBHCXMV ^HBHC(632 ^HBHC(634.7
Imaging	5	MAGBRTE3 MAGDHLSV MAGDQR04 MAGJUTL1 MAGQE3
Incident Reporting	5	QANBENE0 QANQTOT QANRPT1 QANUTL1 QANUTL2
National Health Information Network	5	NHINV NHINVIT NHINVPSI NHINVPSO NHINVSIT
Pharmacy Data Management	5	PSSJEEU PSSJSV0 PSSMRRDG PSSP191A PSSUTLA1
Emergency Department Integration Software	4	EDPQDB EDPQLE EDPQLW EDPQPP
General Medical Record - IO	4	GMRYED0 GMRYRP5 GMRYUT4 GMRYUT9
Mobile Scheduling Applications Suite	4	MBAAMDA1 MBAAMDA2 MBAAMDA4 MBAARPC1
VBECS	4	VBECHLOR VBECLU3 VBECRPCD VBECRPT
Accounts Receivable	3	RCXVDC4 RCXVDC5 RCXVUTIL
Auto Replenishment Ward Stock	3	PSGWCCP PSGWCPA1 PSGWEXR2
VistA Integration Adapter	3	VIABMS2 VIABRPC3 VIABRPC4
Controlled Substances	2	PSDLBLB PSDLBLP
Quasar	2	ACKQAG06 ACKQTDS
VA Point of Service	2	VPSRPC10 VPSSEND
Womens Health	2	WVRALINK WVUTL6
Automated Lab Instruments	1	LA7DLOC
CMOP	1	PSXBLD
Clinical Case Registries	1	RORRP015
Clinical Monitoring System	1	QAMC17
Enrollment Application System	1	EASMTRP3
IFCAP	1	PRCPRPC2
Income Verification Match	1	IVMUFNC2
Kernel	1	^DIC(19
Lexicon Utility	1	LEXSET5
My HealtheVet	1	MHVUMRPC
Oncology	1	ONCFUNC
PAID	1	PRSNEE
Toolkit	1	^XTV(8989.51

Package	Total	Routines
Scheduling	237	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 SDES2BLDAPPT44 SDES2BLOCKANDMOV SDES2BLOCKMOVE SDES2CANCLNAVAIL SDES2CHECKIN SDES2CLINICLIST SDES2CLINUT SDES2CLNSEARCH SDES2CONTACTS SDES2CREATEAPPT SDES2EDITAPREQ SDES2EDITCLIN SDES2GETAPPTREQ SDES2GETCANSLOTS SDES2GETCONSULTS SDES2GETEXPENTRY SDES2GETPATSTAT SDES2GETRECALL SDES2GETRESGROUP SDES2GETSTATUS SDES2GETXPENTRY2 SDES2GREQSINST SDES2INACTCLIN SDES2QRYAPREQSB SDES2REACTTCLIN SDES2RSTCAVAIL SDES2SEARCHCLNAT SDES2SETCHECKOUT SDES2UTIL SDES2UTIL1 SDES2VAL44 SDES2VAL44A SDES2VVSJSON 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	18	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] 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)]
Automated Information Collection System	4	FORM DEFINITION(#357.95)[#357.9501(.01)] ENCOUNTER FORM TRACKING(#357.96)[.1] PRINT MANAGER CLINIC GROUPS(#357.99)[#357.9901(.01)] PRINT MANAGER CLINIC SETUP(#409.95)[.01]
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]
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)]
Incident Reporting	1	QA PATIENT INCIDENT REVIEW(#742)[.06]
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	8	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] 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: 101

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: `JUL 13, 2015` 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!"` 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: `SEP 30, 2013` DESCRIPTION: `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; LAST EDITED: `DEC 22, 1983` 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`
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)`
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.`
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	**********************REQUIRED FIELD********************** 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: `FEB 19, 1986` 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	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `SEP 19, 1984` 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.`

Name	Field # of Occurrence
^%DT	1920.9+1, 2505+1, 2506+1, 2901+1
EN^DDIOL	IDWRITE+1
^DIC	8+1, 16+1, 31+1, 1916+1, 2503+1, 2507+1, 2508+1, 2509+1, 2510+1, 2511+1
^DICR	.01(XREF 2n1.4), .01(XREF 12n1.4), 2(XREF 1n1.4), 42(XREF 1n1.4), 42(XREF 1n2.4), 2502(XREF 1n1.4)
^RTP6	.01(XREF 10K)
$$PRDEF^SDCO31	IDWRITE+1
A44S^SDEC03	1(XREF 2S)
N44S^SDEC03	.01(XREF 4S)
EN^SDTMPHLB	IXATMP1SL+1
LAPPT^SDUTL	1912+1
HELP^SDUTL2	16(HELP )

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	.01(XREF 10K)
^DD(	.01(XREF 2n1.4), .01(XREF 12n1.4), 2(XREF 1n1.4), 42(XREF 1n1.4), 42(XREF 1n2.4), 2502(XREF 1n1.4)
^DD(44	.01(XREF 2S), .01(XREF 12S), 2(XREF 1S), 42(XREF 1S), 42(XREF 1n1.3), 42(XREF 1K), 2502(XREF 1S)
^DIC(40.9 - [#40.9]	2(XREF 1n1.1), 2.1+1, 2.1(XREF 1S), 2.1(XREF 1K)
^DIC(42 - [#42]	.01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2n89.2), 42+1, 42(XREF 1S), 42(XREF 1n1.4), 42(XREF 1K), 42(XREF 1n2.4), 42(XREF 1n69.2)
^SC - [#44]	.01DEL.01+1, .01DEL1900+1, .01(XREF 2n1.3), .01(XREF 2n89.2), .01(XREF 12n1.3), .01(XREF 12n89.2), 2(XREF 1S), 2(XREF 1n1.4), 2.1+1, 2.1(HELP ) , 42+1, 1912+1, 2003+1, 2502(XREF 1S), 2502(XREF 1n1.4)
^SC("AC"	2.1(XREF 1S), 2.1(XREF 1K)
^SC("ACST"	IXACSTSL+1*, IXACSTKL+1!, IXACSTKEIC+1!
^SC("AE"	2802(XREF 1S), 2802(XREF 1K)
^SC("AG"	IXAGSL+1*, IXAGKL+1!, IXAGKEIC+1!
^SC("ALTA"	2511(XREF 1S), 2511(XREF 1K)
^SC("ALTC"	2510(XREF 1S), 2510(XREF 1K)
^SC("ALTN"	2508(XREF 1S), 2508(XREF 1K)
^SC("ALTP"	2509(XREF 1S), 2509(XREF 1K)
^SC("AOOS"	50.01(XREF 1S), 50.01(XREF 1K)
^SC("ASCRPW"	31(XREF 1S), 31(XREF 1K)
^SC("AST"	IXASTSL+1*, IXASTKL+1!, IXASTKEIC+1!
^SC("B"	.01(XREF 1S), .01(XREF 1K)
^SC("C"	1(XREF 1S), 1(XREF 1K)
^SC("PBSP"	IXPBSPSL+1*, IXPBSPKL+1!, IXPBSPKEIC+1!
^SCRS(403.12	.01(XREF 12n1.3), .01(XREF 12n1.4), .01(XREF 12n89.2)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	.01(XREF 2n1.4), 2(XREF 1n1.4), 42(XREF 1n1.4), 42(XREF 1n2.4), 2502(XREF 1n1.4)
>> %DT	1920.9+1, 2505+1, 2506+1, 2901+1
>> D0	.01DEL.01+1, .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n89.2), .01(XREF 12S), .01(XREF 12n1.3), .01(XREF 12n89.2), 2(XREF 1S), 42(XREF 1S), 42(XREF 1n1.1) , 42(XREF 1n1.3), 42(XREF 1K), 42(XREF 1n69.2), 2502(XREF 1S)
>> DA	IXACSTSL+1, IXACSTKL+1, IXAGSL+1, IXAGKL+1, IXASTSL+1, IXASTKL+1, IXATMP1SL+1, IXPBSPSL+1, IXPBSPKL+1, .01DEL1900+1 , .01(XREF 1S), .01(XREF 1K), .01(XREF 2n1.3), .01(XREF 4S), .01(XREF 12n1.3), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 2(XREF 1S), 2.1+1 , 2.1(HELP ), 2.1(XREF 1S), 2.1(XREF 1K), 31(XREF 1S), 31(XREF 1K), 42+1, 42(XREF 1n1.3), 42(XREF 1K), 50.01(XREF 1S), 50.01(XREF 1K) , 1912+1, 2003+1, 2502(XREF 1S), 2508(XREF 1S), 2508(XREF 1K), 2509(XREF 1S), 2509(XREF 1K), 2510(XREF 1S), 2510(XREF 1K), 2511(XREF 1S) , 2511(XREF 1K), 2802(XREF 1S), 2802(XREF 1K)
DIC	8+1!, 16+1!, 31+1!, 1916+1!, 2503+1!, 2507+1!, 2508+1!, 2509+1!, 2510+1!, 2511+1!
DIC("S"	2.1(HELP ), 8+1, 8SCR+1, 16+1, 16SCR+1, 31+1, 31SCR+1, 1916+1, 1916SCR+1, 2503+1* , 2503SCR+1, 2507+1, 2507SCR+1, 2508+1, 2508SCR+1, 2509+1, 2509SCR+1, 2510+1, 2510SCR+1, 2511+1 , 2511SCR+1*
>> DIE	8+1, 16+1, 31+1, 1916+1, 2503+1, 2507+1, 2508+1, 2509+1, 2510+1, 2511+1
>> DIG	.01(XREF 2n1.4), .01(XREF 12n1.4), 2(XREF 1n1.4), 42(XREF 1n1.4), 42(XREF 1n2.4), 2502(XREF 1n1.4)
>> DIH	.01(XREF 2n1.4), .01(XREF 12n1.4), 2(XREF 1n1.4), 42(XREF 1n1.4), 42(XREF 1n2.4), 2502(XREF 1n1.4)
>> DIU	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 12S), 2(XREF 1S), 2(XREF 1n1.4), 42(XREF 1S), 42(XREF 1n1.4), 42(XREF 1K), 42(XREF 1n2.4), 2502(XREF 1S) , 2502(XREF 1n1.4)
DIV	.01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 12S), .01(XREF 12n1.3), .01(XREF 12n1.4), 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 42(XREF 1S) , 42(XREF 1n1.1), 42(XREF 1n1.3), 42(XREF 1n1.4), 42(XREF 1K), 42(XREF 1n2.4), 2502(XREF 1S), 2502(XREF 1n1.4)
DIV(0	.01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2n89.2), .01(XREF 12n1.3), .01(XREF 12n1.4), .01(XREF 12n89.2), 2(XREF 1S), 2(XREF 1n1.4), 42(XREF 1S), 42(XREF 1n1.3) , 42(XREF 1n1.4), 42(XREF 1K), 42(XREF 1n2.4), 2502(XREF 1S), 2502(XREF 1n1.4)
DT	.01DEL1900+1, 16(HELP )
>> I(0	.01(XREF 2S), .01(XREF 2n89.2), .01(XREF 12S), .01(XREF 12n89.2), 42(XREF 1S), 42(XREF 1n1.3), 42(XREF 1K), 42(XREF 1n69.2)
RTPL	.01(XREF 10K)
SCMSG	IDWRITE+1~*
SDLA	1912+1*, 1917OF9.2+1!
SDX	2(XREF 1n1.1)
>> SDZ0	1912+1*
>> SDZ1	1912+1*
U	IDWRITE+1, .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2n89.2), .01(XREF 12S), .01(XREF 12n1.3), .01(XREF 12n1.4), .01(XREF 12n89.2), 2(XREF 1S) , 2(XREF 1n1.4), 42(XREF 1S), 42(XREF 1n1.4), 42(XREF 1K), 42(XREF 1n2.4), 42(XREF 1n69.2), 1912+1, 2502(XREF 1S), 2502(XREF 1n1.4)
X	IXACSTSL+1, IXACSTKL+1, IXASTSL+1, IXASTKL+1, IXATMP1SCC+1, IXPBSPSL+1, IXPBSPKL+1, .01+1!, .01TPL+1, .01(XREF 1S) , .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 4S), .01(XREF 10K), .01(XREF 12S), .01(XREF 12n1.3), .01(XREF 12n1.4), 1+1! , 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2.1+1!, 2.1(XREF 1S), 2.1(XREF 1K), 5+1! , 7+1!, 8+1!, 8.1+1!, 10+1!, 11+1!, 12+1!, 15+1!, 16+1!, 29+1!, 31+1! , 31(XREF 1S), 31(XREF 1K), 42+1!, 42(XREF 1S), 42(XREF 1n1.1), 42(XREF 1n1.3), 42(XREF 1n1.4), 42(XREF 1K), 42(XREF 1n2.4), 42(XREF 1n69.2) , 50.01(XREF 1S), 50.01(XREF 1K), 60+1!, 99+1!, 99.1+1!, 200+1!, 1912+1!, 1914+1!, 1915+1!, 1916+1! , 1917OF9.2+1!, 1918+1!, 1919+1!, 1920.9+1!, 2001+1!, 2002+1!, 2003+1!, 2005+1!, 2007+1!, 2008+1! , 2011+1!, 2502(XREF 1S), 2502(XREF 1n1.4), 2503+1!, 2503.1+1!, 2505+1!, 2506+1!, 2507+1!, 2508+1!, 2508(XREF 1S) , 2508(XREF 1K), 2509+1!, 2509(XREF 1S), 2509(XREF 1K), 2510+1!, 2510(XREF 1S), 2510(XREF 1K), 2511+1!, 2511(XREF 1S), 2511(XREF 1K) , 2802(XREF 1S), 2802(XREF 1K), 2900+1!, 2901+1!
X(1	IXAGSL+1, IXAGKL+1
X(2	IXAGSL+1, IXAGKL+1
>> X1(1	IXATMP1SCC+1
>> X1(2	IXATMP1SCC+1
>> X1(3	IXATMP1SCC+1
>> X1(4	IXATMP1SCC+1
>> X1(5	IXATMP1SCC+1
>> X1(6	IXATMP1SCC+1
>> X1(7	IXATMP1SCC+1
>> X1(8	IXATMP1SCC+1
>> X1(9	IXATMP1SCC+1
Y	IDWRITE+1, .01(XREF 2S), .01(XREF 12S), 2(XREF 1S), 8+1, 16+1, 31+1, 42(XREF 1S), 42(XREF 1n1.3), 42(XREF 1K) , 1916+1, 1920.9+1, 2502(XREF 1S), 2503+1, 2505+1, 2506+1, 2507+1, 2508+1, 2509+1, 2510+1 , 2511+1, 2901+1
Y(0	.01(XREF 2n1.3), .01(XREF 12n1.3), 42(XREF 1n1.3), 42(XREF 1n69.2)
Y(1	.01(XREF 2n1.3), .01(XREF 2n89.2), .01(XREF 12n1.3), .01(XREF 12n89.2), 2(XREF 1S), 42(XREF 1n1.3), 42(XREF 1n69.2), 2502(XREF 1S)
Y(101	.01(XREF 2S), .01(XREF 2n89.2), .01(XREF 12S), .01(XREF 12n89.2), 42(XREF 1S), 42(XREF 1K), 42(XREF 1n69.2)
ZSI	1917OF9.2+1!

Customize PDF page

Package: Scheduling

Global: ^SC

Information

Description

Directly Accessed By Routines, Total: 1315

Accessed By FileMan Db Calls, Total: 516

Pointed To By FileMan Files, Total: 171

Pointer To FileMan Files, Total: 22

Fields, Total: 101

Found Entries, Total: 2

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^("SL"	1912+1, 2003+1
^(0	IDWRITE+1, .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2n89.2), .01(XREF 12n1.3), .01(XREF 12n1.4), .01(XREF 12n89.2), 2(XREF 1S), 2(XREF 1n1.4), 2.1+1 , 2.1(XREF 1S), 2.1(XREF 1K), 42(XREF 1n1.4), 42(XREF 1n2.4), 2502(XREF 1S), 2502(XREF 1n1.4)
^(42	.01(XREF 2n1.3), .01(XREF 2n89.2)
^(44	42+1, 42(XREF 1S), 42(XREF 1n1.4), 42(XREF 1K), 42(XREF 1n2.4), 42(XREF 1n69.2)