Global: ^DIC(42

FileMan FileNo	FileMan Filename	Package
42	WARD LOCATION	Registration

Package	Total	Routines
Registration	121	AUTHORIZED BEDS DATE DESCRIPTION (VERSIONED) DG FEMALE HISTORICAL DG53181P DGABUL DGAINP0 DGAINP1 DGANHD1 DGBLRV DGDEATH DGMTDOM DGMTOFA DGMTR DGODMT DGODNP1 DGOERNOT DGOIL DGOIL2 DGOINPT1 DGOINS1 DGOPATM DGOREL1 DGOVBC DGOVBC1 DGPASS DGPMBSAR DGPMBSG DGPMBSG1 DGPMBSP1 DGPMBSP6 DGPMBSR1 DGPMBSR2 DGPMBSR3 DGPMDDCF DGPMDDCN DGPMDDLD DGPMDDOS DGPMDDRB DGPMEVT DGPMEX DGPMGL DGPMGL1 DGPMGLC DGPMGLG2 DGPMGLG3 DGPMGLG4 DGPMGLP DGPMRB DGPMRBA1 DGPMTSI1 DGPMV22 DGPMV31 DGPMV33 DGPMVBUR DGPMVDD DGPMX2 DGPMXA DGPMXX1 DGPTFM7 DGQPTQ2 DGSCHAD2 ^DIC(42 DGPMOLD1 DGPMUTL DGPMV10 DGPMV20 DGPMV32 DGPMVBM DGPMVBUL DGPMX1 DGPMX4 DGPMXAS DGPT WORKFILE DGPTAPA3 DGPTC1 DGPTCO1 DGPTDD DGPTF DGPTLMU6 DGPTMSG DGPTMSG1 DGPTTS1 DGPTTS3 DGPTUTL DGPWB DGQPT DGQPT1 DGQPTQ5 DGRP12 DGRPD DGRRLU0 DGRRLU3 DGRRPSAD DGRUG DGRUG16 DGRUGBGJ DGRUGC DGRUGDS DGRUGIX DGRUGPI DGRUGPP DGRUGPP1 DGRUGS DGRUGSA DGSATX DGSCHAD DGSCHAD3 DGWARDWHEN DGWIN DGWPT OUT-OF-SERVICE DATE ^DGPM ^DPT DGYMBSRX SYNONYM VADPT30 VADPT31 VAFCMS01 VAFHAPV1 VAFHCPV ^DGS(41.1
Inpatient Medications	57	IV PBM DA PHARM LOC MAPPINGS PSGAMS PSGAP0 PSGBRJ PSGCAP0 PSGDCT1 PSGDS0 PSGEUDD PSGFILD0 PSGFILED PSGL PSGL0 PSGMAR0 PSGMMAR0 PSGPL1 PSGPLF PSGPLUP0 PSGPR PSGSCT PSGTCTD PSGTCTD0 PSGVBW PSGVBWU PSIVAMIS PSIVAOR PSIVARH PSIVARH1 PSIVDCR PSIVHYPL PSIVHYPR PSIVORC PSIVRDC PSIVRP PSIVST2 PSIVWCR1 PSIVWRP PSJADT ^PS(59.6 PSIVSTAT PSJADT2 PSJCLOR4 PSJEXP PSJGMRA PSJMEDS PSJPADE PSJPADSI PSJPDAPP PSJPDCL PSJPDCLA PSJPDCLU PSJPDV0 PSJPR PSJQUTIL PSJSV0 PSJUTL WARD
Order Entry Results Reporting	31	ORB3FN ORB3USER OREV1 OREVNT ORKCHK ORKPS ORKRA ORKUTL ORLA1 ORMEVNT ORMEVNT1 ORPR03 ORPRS05 ORPRS06 ORPRS08 ORPRS12 ORQOR2 ORQPT ORQPT1 ORQPTQ2 ORQPTQ3 ORQPTQ5 ORQQLR ORQQPX ORQQRA ORUDPA ORWCV ORWDX1 ORWPT ORWPT16 ORWTPT
Integrated Billing	28	IB20PT81 IB20PT82 IB20PT84 IB20PT85 IB20PT86 IB20PT8B IBAECI IBAMTBU2 IBARX IBARXEL IBCONS2 IBCRBG IBCU71 IBECEA31 IBECEA5 IBJD1 IBJDF2 IBJDI21 IBOUNP5 IBRBUL IBTOUR1 IBTRE20 IBTRKR0 IBTRKRBA IBTRKRBD IBTRKRBR IBTRPR01 REPORT
Radiology Nuclear Medicine	24	RA WARD BY PRINT DATE RACDR RACPT RADLQ1 RADLY RAHLQ1 RAHLR RAHLRPT RALIST RAMAG RAMIS RAO7UTL RAORD1A RAORDC RAPRC RAPRINT1 RARTFLDS RARTST2 RASERV RASTED RAUTL1 RAUTL10 RAUTL13 RAWKL1
General Medical Record - Vitals	19	GMRVBP1 GMRVED0 GMRVGR1 GMRVLBP2 GMRVLPO2 GMRVLWT3 GMRVORDG GMRVSC0 GMRVVS2 GMRVWT1 GMVDS1 GMVFIXHL GMVGETD GMVRPCHL GMVRPCP GMVSC0 GMVSR0 GMVUTL1 GMVUTL2
DSS Extracts	15	ECXADM ECXEC ECXMOV ECXPHAA ECXPIVD ECXQSR ECXRAD ECXSETU1 ECXSETUP ECXSURG ECXTRYIT ECXUD ECXUTL2 ECXUTLA ECXWRD
Dietetics	15	DRUG CLASSIFICATIONS FHADM2 FHASE FHASE3 FHASN71 FHDPA FHMADM2 FHMASE FHMMNADM FHPATM FHPRW FHWADM FHWOR61 FHWOR8 FHWORR
Nursing Service	13	NURAAU5 NURCRL0 NURCRL2 NURCROP0 NURCVED0 NURCVPR0 NURCYED0 NURSACE0 NURSAL0 NURSALED NURSAWCK NURSCPL NURSCPLU
Adverse Reaction Tracking	12	GMRACMR1 GMRACMR3 GMRADGMV GMRAEAB GMRAMCB1 GMRAPET0 GMRAPFT GMRAPL GMRAPTB GMRAPU GMRASEND GMRAVAB
Barcode Medication Administration	12	ALPBIN ALPBIND ALPBINP ALPBUTL1 PSBMD PSBML PSBOSF PSBPARIV PSBPXFL PSBRPC PSBSAGG PSBVITFL
Scheduling	12	SCRPW41 SDAM1 SDAM2 SDAMA308 SDCIAL SDEC50 SDOPC1 SDOPC4 ^SC SDECPTCX SDSTAT TEAM POSITIONS
Incomplete Records Tracking	8	DGJBGJ DGJPDEF1 DGJSUM DGJTEE DGJTEE3 DGJTEVT DGJTUTL DGJXE
Lab Service	8	LR7OB0 LRBLJPP1 LRBLPC1 LRDPA1 LRJSMLA1 LRMIUT LRVER3A LRWU
Controlled Substances	7	PSDEN PSDFT PSDFT1 PSDLBLB PSDLBLP PSDPSTK1 PSDWL
Virtual Patient Record	7	VPRDJ04 VPRDJ04A VPRDPT VPRDSDAM VPRDVSIT VPRSDAP VPRSDAV
Record Tracking	6	RTNQ3 RTNQ41 RTRPT5 RTSM RTUTL TEAM POSITIONS
Text Integration Utility	6	GMRPNOR1 TIULV TIUMOVE TIUPNCV3 TIUPRPN4 TIUUTL2
Clinical Procedures	5	MDCPVDEF MDCSPV1 MDRPCOP MDRPCU MDSTATU
Enterprise Health Management Platform	5	HMPDJ00 HMPDSDAM HMPDVSIT HMPEF1 HMPROS8
General Medical Record - IO	5	GMRYED0 GMRYFLW2 GMRYRP3 GMRYRP5 GMRYUT0
Occurrence Screen	5	QAOSPHDR QAOSPRS0 QAOSPSM0 QAOSPSS0 QAOSSFR0
Pharmacy Data Management	5	PSSDDUT2 PSSFIL PSSFILED PSSUTLA1 ^APSPQA(32.5
Auto Replenishment Ward Stock	4	PSGWCHG PSGWPSI1 PSGWVW PSGWWRD
Incident Reporting	4	QANBENE0 QANCNV1 QANQTOT QANUTL1
Outpatient Pharmacy	4	IV PSO480P PSOMGMN4 PSOMGRP4
Drug Accountability	3	PSADA PSALOCO PSAWARD
Methicillin Resistant Staph Aurerus Initiative Reports	3	MMRSCRE4 MMRSISL MMRSORD
Clinical Reminders	2	PXRMINPL PXRMXAP
Consult Request Tracking	2	GMRCPOR GMRCSLM
Health Summary	2	GMTSPD GMTSPL
Mental Health	2	YSDGDEM0 ^YSG("SUB"
National Health Information Network	2	NHINVPT NHINVSIT
Surgery	2	SROERR SROUTL0
VBECS	2	VBECLU0 VBECLU3
Accounts Receivable	1	RCXVDC5
Automated Lab Instruments	1	LAMIVTKD
Automated Medical Information Exchange	1	DVBAVDPT
HINQ	1	DVBHT2
Imaging	1	MAGDHLSV
Income Verification Match	1	IVMCMZ
Interim Management Support	1	ECTSIN
Oncology	1	ONCOCFP
PAID	1	PRSN9A
PCE Patient Care Encounter	1	VSITCK1
Pharmacy Benefits Management	1	PSUCS3

Package	Total	Routines
Registration	19	DGFFP03 DGFFPLM1 DGOTHFS4 DGPMDDOS DGPMRBA DGRPC2 DGRRLU3 DGRUDYN DGRUGA01 DGRUGA11 DGRUGDS DGRUGMFU DGRUGPP DGRUGPRP DGRURB DGRUUTL DGRUUTL1 DGWIN VAUTOMA
Inpatient Medications	16	PSGCAP PSGL PSGMAR PSGMMAR PSGSCT PSGTCTD PSGVBW PSIVORC PSIVRNL PSIVRQ1 PSJEXP PSJHL4 PSJHL4A PSJMDIR1 PSJPADE PSJPDIR
Barcode Medication Administration	7	PSBML PSBMLLKU PSBOST PSBPARIV PSBPOIV PSBRPC PSBVAR
Radiology Nuclear Medicine	7	RAKRDIT RAMAG03A RAMAGU07 RARTST1 RARTST2 RARTST2A RASERV
Integrated Billing	6	IBOHLS1 IBTRH1A IBTRH1B IBTRH5 IBTRH7 IBTUBO2
DSS Extracts	5	ECXPHAA ECXTRT ECXUTL6 ECXWRD ECXWRDX
Methicillin Resistant Staph Aurerus Initiative Reports	4	MMRSCRE MMRSCRE2 MMRSCRE3 MMRSCRE4
Clinical Case Registries	3	RORHL07 RORHL071 RORHL15
Enterprise Health Management Platform	3	HMPACT HMPDJ04 HMPDJ04A
Nursing Service	3	NURSAFLL NURSALE0 NURSUT5
Auto Replenishment Ward Stock	2	PSGWCHG PSGWWRD
General Medical Record - Vitals	2	GMRVED0 GMVGETD
Mental Health	2	YSCLHLGT YSCLTST5
Order Entry Results Reporting	2	ORLP01 ORQ20
Scheduling	2	SDCIAL SDEC48
General Medical Record - IO	1	GMRYRP5
Lab Service	1	LRVRPOC
National Health Information Network	1	NHINVPT
Pharmacy Data Management	1	PSSGSGUI
Surgery	1	SROERR
Virtual Patient Record	1	VPRDPT
Wounded Injured and Ill Warriors	1	WIIACT4

Package	Total	FileMan Files
Registration	9	ROOM-BED(#405.4)[#405.41(.01)] CENSUS(#41.9)[.01] MAS PARAMETERS(#43)[3] CENSUS WORKFILE(#45.85)[.06] PAF(#45.9)[70] PATIENT MOVEMENT(#405)[.06] PTF(#45)[#45.0535(6)] RAI MDS WARD TRANSLATION(#46.12)[.01] SCHEDULED ADMISSION(#41.1)[8]
Inpatient Medications	6	IV STATS(#50.8)[#50.802(5), #50.804(.01), #50.804(4), #50.804(8), #50.806(4), #50.808(.01)] NON-VERIFIED ORDERS(#53.1)[50, 52] WARD GROUP(#57.5)[#57.51(.01)] UNIT DOSE PICK LIST STATS(#57.6)[#57.61(.01)] MEDICATION ADMINISTERING TEAM(#57.7)[.01] INPATIENT WARD PARAMETERS(#59.6)[.01]
Auto Replenishment Ward Stock	5	PADE INVENTORY SYSTEM(#58.601)[#58.6014(.01)] PADE DISPENSING DEVICE(#58.63)[#58.636(.01)] PADE SYSTEM SETUP(#58.7)[#58.747(.01)] PADE OUTBOUND MESSAGES(#58.72)[7] PHARMACY AOU STOCK(#58.1)[#58.26(.01)]
Mental Health	4	MENTAL HEALTH CENSUS(#618)[.01] MENTAL HEALTH INPT(#618.4)[20] MENTAL HEALTH TEAM(#618.2)[.5] MH WAIT LIST(#617)[1]
Order Entry Results Reporting	4	OE/RR LIST(#100.21)[#100.213(.01)] OE/RR PT SEL COMBO(#100.24)[#100.241(.01)] OE/RR RELEASE EVENTS(#100.5)[#100.511(.01)] OE/RR PATIENT EVENT(#100.2)[#100.25(7)]
Barcode Medication Administration	3	BCMA IV PARAMETERS(#53.66)[.01] BCMA MISSING DOSE REQUEST(#53.68)[.12] BCMA MEDICATION VARIANCE LOG(#53.78)[.09]
Pharmacy Data Management	3	MEDICATION INSTRUCTION(#51)[#51.01(.01)] PHARMACY PATIENT(#55)[#55.01(9), #55.06(9), #55.06(68), #55.0611(.07)] PHARMACY SYSTEM(#59.7)[#59.701(.01), #59.722(.01), #59.7221(.01)]
Clinical Procedures	2	CP_MOVEMENT_AUDIT(#704.005)[.04] CP_PROTOCOL_LOCATION(#704.006)[.03]
DSS Extracts	2	DSS WARD(#727.4)[.01] UNIT DOSE EXTRACT DATA(#728.904)[5]
Integrated Billing	2	IB SITE PARAMETERS(#350.9)[#350.964(.01)] HCS REVIEW TRANSMISSION(#356.22)[.05]
Radiology Nuclear Medicine	2	REPORT DISTRIBUTION(#74.4)[6] RAD/NUC MED PATIENT(#70)[#70.03(6)]
Scheduling	2	HOSPITAL LOCATION(#44)[42] TEAM AUTOLINK(#404.56)[.02]
Consult Request Tracking	1	REQUEST SERVICES(#123.5)[#123.54(.01)]
Dietetics	1	NUTRITION LOCATION(#119.6)[102, #119.63(.01)]
Drug Accountability	1	DRUG ACCOUNTABILITY STATS(#58.8)[#58.800115(.01), #58.842(.01)]
Enterprise Health Management Platform	1	HMP ROSTER(#800001.2)[#800001.21(.02)]
Methicillin Resistant Staph Aurerus Initiative Reports	1	MDRO WARD MAPPINGS(#104.3)[#104.302(.01)]
Nursing Service	1	NURS LOCATION(#211.4)[#211.41(.01)]
Outpatient Pharmacy	1	ADMINISTRATION SCHEDULE(#51.1)[#51.11(.01)]
Prosthetics	1	PROSTHETIC 2529-3(#664.1)[12]
Record Tracking	1	BORROWERS/FILE AREAS(#195.9)[.01]

Package	Total	FileMan Files
Registration	3	MEDICAL CENTER DIVISION(#40.8)[.015] MAS OUT-OF-SERVICE(#405.5)[#42.08(.02)] SPECIALTY(#42.4)[.017]
Scheduling	1	HOSPITAL LOCATION(#44)[44]

Fields, Total: 25

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: `SEP 30, 2013` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: `Enter in this field the name of the ward location as selectable using bed control options in MAS. Mixing ward names that are pure numbers (4,5,6...) with ward names that are alphabetic (A,B,C...) or` `with ward names that combine numbers with alphas (4A, 4B, 5C...) may yield unexpected results when printing output sorted by ward.` AUDIT: `YES, ALWAYS` DELETE TEST: `1,0)= I 1 W 7,7,!,"Wards cannot be deleted!!!!"` NOTES: `TRIGGERED by the NAME field of the HOSPITAL LOCATION File` CROSS-REFERENCE: `42^B` `1)= S ^DIC(42,"B",$E(X,1,30),DA)=""` `2)= K ^DIC(42,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `42^AWU^MUMPS` `1)= Q` `2)= S %=$P(^DIC(42,DA,0),"^",1) F J="ACN","CN" F I=0:0 S I=$N(^DPT(J,X,I)) Q:I'>0 S DGWU=^DPT(J,X,I) K ^DPT(J,X,I) K:J="CN" ^DGPM(J,X,DGWU) I %]"" S ^DPT(J,%,I)=DGWU S:J="CN" ^DGPM(J,%,DGWU)="" K DGWU I $D(^DPT(I,.1)),^(.` `1)=X S ^(.1)=%` CROSS-REFERENCE: `^^TRIGGER^44^.01` `1)= X ^DD(42,.01,1,3,1.3) I X S X=DIV X ^DD(42,.01,1,3,9.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(42,.01,1,3,1.4)` `1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(42,D0,44)):^(44),1:"") S X=$P(Y(1),U,1)'=DIV` `1.4)= S DIH=$S($D(^SC(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=44,DIG=.01 D ^DICR` `2)= Q` `9.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DIC(42,D0,44)):^(44),1:""),D0=$P(Y(1),U,1) S:'$D(^SC(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^SC(D0,0)):^(0),1:"")` `CREATE CONDITION)= HOSPITAL LOCATION FILE'=NAME` `CREATE VALUE)= NAME` `DELETE VALUE)= NO EFFECT` `FIELD)= HOSPITAL LOCATION:NAME` CROSS-REFERENCE: `^^TRIGGER^46.11^.02` `1)= Q` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,"HL7")),U,4)=1 I X S X=DIV X ^DD(42,.01,1,4,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X=DIV S X=X X ^DD(42` `,.01,1,4,2.4)` `2.4)= S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,2)=DIV,DIH=46.11,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DIC(42,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC="^DGRU(46.11,",DIC(0)="NMFL",X=""""_X_"""" D ^DIC S (D,D0,DIV(0))=+Y` `CREATE VALUE)= NO EFFECT` `DELETE CONDITION)= S X=$P($G(^DG(43,1,"HL7")),U,4)=1` `DELETE VALUE)= OLD NAME` `DIC)= LOOKUP` `FIELD)= NAME:RAI MDS MONITOR:#.02` `Trigger Ward name prior to change to the RAI MDS MONITOR file whenever the Ward name is changed or added. The trigger cross-reference has a condition whereby it should only occur if the MAS Parameter file, field CREATE` `MFU FOR RAI MDS (#391.7014) is equal to a "1".` CROSS-REFERENCE: `^^TRIGGER^46.11^.03` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,"HL7")),U,4)=1 I X S X=DIV X ^DD(42,.01,1,5,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"") S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y S X=DIV S X=42 X ^DD(4` `2,.01,1,5,1.4)` `1.4)= S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,3)=DIV,DIH=46.11,DIG=.03 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(^DIC(42,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC="^DGRU(46.11,",DIC(0)="NMFL" D ^DIC S (D,D0,DIV(0))=+Y` `CREATE CONDITION)= S X=$P($G(^DG(43,1,"HL7")),U,4)=1` `CREATE VALUE)= S X=42` `DELETE VALUE)= NO EFFECT` `DIC)= LOOKUP` `FIELD)= NAME:RAI MDS MONITOR:#.03` `Trigger the Ward file number (#42) into the RAI MDS MONITOR file whenever a ward name is changed or added. This trigger is also conditional and will only occur if the CREATE MFU FOR RAI MDS field (#391.7014) in the MAS` `PARAMETER file (#43) is equal to "1".` CROSS-REFERENCE: `^^TRIGGER^46.11^.04` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,"HL7")),U,4)=1 I X S X=DIV X ^DD(42,.01,1,6,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"") S X=$P(Y(101),U,4) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DA X ^DD(4` `2,.01,1,6,1.4)` `1.4)= S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,4)=DIV,DIH=46.11,DIG=.04 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(^DIC(42,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC="^DGRU(46.11,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y` `CREATE CONDITION)= S X=$P($G(^DG(43,1,"HL7")),U,4)=1` `CREATE VALUE)= S X=DA` `DELETE VALUE)= NO EFFECT` `DIC)= LOOKUP` `FIELD)= NAME:RAI MDS MONITOR:#.04` `Trigger the internal entry number of the Ward entry that was changed or added into the RAI MDS MONITOR file. There is a conditional trigger event. It will only occur if the CREATE MFU FOR RAI MDS field (#391.7014) in the` `MAS PARAMETER File (#43) is equal to a "1". The IEN is used in the creation of the MFU and is part of the identifier for the receiving system.`
.015	DIVISION	0;11	POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)	MEDICAL CENTER DIVISION(#40.8) 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: `SEP 30, 2013` HELP-PROMPT: `Enter the institution that this ward is in if you are a multifacility hospital.` DESCRIPTION: `Enter the division at which this ward is located.` SCREEN: `S DIC("S")="I '$P(^(0),U,3)"` EXPLANATION: `Only inpatient Divisions` AUDIT: `YES, ALWAYS`
.017	SPECIALTY	0;12	POINTER TO SPECIALTY FILE (#42.4)	**********************REQUIRED FIELD********************** SPECIALTY(#42.4) INPUT TRANSFORM: `S DIC("S")="I $G(Y)=80!$$ACTIVE^DGACT(42.4,Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 07, 2006` HELP-PROMPT: `Enter this ward's PTF bedsection. This must be an active treating specialty.` DESCRIPTION: `Enter the PTF specialty that this ward is assign to. The specialty and its MPCR number will be transmitted to Austin as part of the N501 and N535 transactions. This information is sent in the physcial specialty and` `physcial MPCR elements of those transactions.` SCREEN: `S DIC("S")="I $G(Y)=80!$$ACTIVE^DGACT(42.4,Y)"` EXPLANATION: `Allows only active treating specialties.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.02	BEDSECTION	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` HELP-PROMPT: `ANSWER MUST BE 2-10 CHARACTERS IN LENGTH` DESCRIPTION: `Enter 2-10 characters describing the bedsection of this ward.`
.03	SERVICE	0;3	SET	**********************REQUIRED FIELD********************** 'M' FOR MEDICINE; 'S' FOR SURGERY; 'P' FOR PSYCHIATRY; 'NH' FOR NHCU; 'NE' FOR NEUROLOGY; 'I' FOR INTERMEDIATE MED; 'R' FOR REHAB MEDICINE; 'SCI' FOR SPINAL CORD INJURY; 'D' FOR DOMICILIARY; 'B' FOR BLIND REHAB; 'NC' FOR NON-COUNT; LAST EDITED: `APR 24, 1990` HELP-PROMPT: `Enter the appropriate AMIS service for this ward location.` DESCRIPTION: `Enter the service of the ward. Choose from the available list. This service is used by various MAS reports to determine how inpatient stays on this ward should be counted. This should be answered carefully.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `42^D` `1)= S ^DIC(42,"D",X,DA)=""` `2)= K ^DIC(42,"D",X,DA)`
.035	RAI/MDS WARD	0;16	SET	'1' FOR Yes; '0' FOR No; LAST EDITED: `NOV 18, 1999` HELP-PROMPT: `Enter 'YES' if this ward is required to send patient information to the RAI/MDS system` DESCRIPTION: `This field provides a parameter to determine whether HL7 messages should be generated and sent for patients in this ward to the RAI/MDS COTS system.`
.04	PRINT WARD ON WRISTBAND	0;4	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 01, 1995` HELP-PROMPT: `Enter NO if you do not wish to have the ward location printed on the patient's wristband.` DESCRIPTION: `This field determines if the ward location is printed on the patient's wristband. If it is answered 'NO', it will not print, otherwise it will.`
.07	FY TARGET	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999` DESCRIPTION: `Enter the target number of patients to be deen during a particular fiscal year.`
.09	SERIOUSLY ILL	0;14	SET	'1' FOR INCLUDE ON SERIOUSLY ILL LIST; LAST EDITED: `MAR 29, 1985` HELP-PROMPT: `Enter 1 if patients entering this ward should be placed on the seriously ill list` DESCRIPTION: `If patients seen on this ward are typically seriously ill, enter yes here. When admitting or transferring patients to this ward their status will be changed to seriously ill (unless the users chooses otherwise).`
.1	TERMINAL	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>142)!(X<64)!(X?.E1"."1N.N) X` HELP-PROMPT: `THE DEVICE NUMBER ($I) FOR REPORTS ON PATIENTS ON THIS WARD` DESCRIPTION: `Enter the device number ($I value) on which inpatient reports for this ward should print.`
.15	PRIMARY LOCATION	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<2) X` LAST EDITED: `APR 15, 1990` HELP-PROMPT: `Answer with 2-7 characters and group wards together to create a 'MINI' Bed Status Report. If left blank it will appear as 'UNKNOWN' under the TOTALS BY PRIMARY WARD LOCATION section of the BSR.` DESCRIPTION: `If this field is left blank, the primary location on the Bed Status Report will be 'UNKNOWN'. You may group different wards together for a 'mini' Bed Status Report, examples of what you might want to group are wards in` `the same physical location or wards of the same treating specialty, etc.`
.17	INTERMEDIATE MEDICINE - LTC	0;17	SET	'1' FOR Yes; '0' FOR No; LAST EDITED: `FEB 27, 2002` HELP-PROMPT: `Answer 'Yes' if this is IMC long term care ward.` DESCRIPTION: `Intermediate Medicine Service can provide both acute care and long term care. The long term care wards must utilize the RAI/MDS tool. Therefore, this field is needed to distinguish between the acute care and long term` `care wards. This field only applies to those wards that have a service of "INTERMEDIATE MED". When this field contains a "1" representing "Yes", the business rules that apply to a nursing home patient will be followed` `for patients in this ward. For example, a patient in this ward requiring acute care will need to be sent Absent Sick In Hospital (ASIH) for no longer than 30 days. Patient will be discharged from this ward if he exceeds` `the 30 day timeframe.` SCREEN: `S DIC("S")="I $D(X) K:$P(^DIC(42,DA,0),U,3)'=""I"" X"` EXPLANATION: `Only allows flagging wards having a service of Intermediate Medicine`
.2	CURRENTLY OUT-OF-SERVICE?		COMPUTED	MUMPS CODE: `D WIN^DGPMDDCF` ALGORITHM: `D WIN^DGPMDDCF` LAST EDITED: `DEC 22, 1991` DESCRIPTION: `This is a computed field to determine whether this ward is currently out of service. A 1 will be returned if it is, otherwise, 0 will be returned.`
.21	BEDS OUT-OF-SERVICE		COMPUTED	MUMPS CODE: `D BOS^DGPMDDCF` ALGORITHM: `D BOS^DGPMDDCF` DESCRIPTION: `This computed field will display the number of beds on this ward that are currently listed as out-of-service.`
.22	AUTHORIZED BEDS		COMPUTED	MUMPS CODE: `D AUTH^DGPMDDCF` ALGORITHM: `D AUTH^DGPMDDCF` DESCRIPTION: `This computed field will display the number of beds that are currently authorized by CO to be utilized on this ward.`
.23	OPERATING BEDS		COMPUTED	MUMPS CODE: `D OPER^DGPMDDCF` ALGORITHM: `D OPER^DGPMDDCF` DESCRIPTION: `This computed field will display the number of operating beds currently existing on this ward. Operating beds = Authorized beds - Out-of-service beds.`
1	SYNONYM	.01;0	Multiple #42.01	42.01 DESCRIPTION: `This multiple contains all alternate names by which this ward location is known. At any WARD LOCATION prompt, either the name of the ward or one of the synonyms can be entered.`
44	HOSPITAL LOCATION FILE POINTER	44;1	POINTER TO HOSPITAL LOCATION FILE (#44)	**********************REQUIRED FIELD********************** HOSPITAL LOCATION(#44) INPUT TRANSFORM: `I $D(^SC(+X,42)),+^(42),+^(42)'=DA W !?20,"This Hospital location points to ",$P(^DIC(42,+^SC(+X,42),0),"^",1) K X` LAST EDITED: `SEP 30, 2013` DESCRIPTION: `Enter the entry in the hospital location which this ward is associated with. This is defined automatically when setting up a ward through the 'Ward Definition' option. It MUST NOT BE EDITED!!` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the WARD LOCATION FILE POINTER field of the HOSPITAL LOCATION File` CROSS-REFERENCE: `^^TRIGGER^44^42` `1)= X ^DD(42,44,1,1,1.3) I X S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^SC(D0,42)):^(42),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(42,44,1,1,1.1) X` `^DD(42,44,1,1,1.4)` `1.1)= S X=DIV S X=$S('$D(D0):"",D0<0:"",1:D0),X=X` `1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(42,44,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(^SC(DIV(0),42)):^(42),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(42)=DIV_$S(%]"":U_%,1:""),DIH=44,DIG=42 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(^SC(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^SC(D0,42)):^(42),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(42,44,1,1,2.` `4)` `2.4)= S DIH=$S($D(^SC(DIV(0),42)):^(42),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(42)=DIV_$S(%]"":U_%,1:""),DIH=44,DIG=42 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(^SC(+D0,0)) D0=-1 S Y(101)=$S($D(^SC(D0,42)):^(42),1:"") S X=$P(Y(101),U,1)` `CREATE CONDITION)= NUMBER'=INTERNAL(HOSPITAL LOCATION FILE:WARD LOCATION FILE POINTER)` `CREATE VALUE)= INTERNAL(NUMBER)` `DELETE VALUE)= @` `FIELD)= HOSPITAL LOCATION FILE POINTER:WARD LOCATION FILE POINTER`
100	AUTHORIZED BEDS DATE	AUTH;0	DATE Multiple #42.09	42.09 DESCRIPTION: `This multiple contains a history of the number of CO-authorized beds for this ward broken down by date. Each time a new number is assigned, the date and the number of beds must be entered here. This data is utilized by` `the gains and lossed and bed status reports.`
200	OUT-OF-SERVICE DATE	OOS;0	DATE Multiple #42.08	42.08 DESCRIPTION: `This multiple contains data on when a ward was placed out-of-service and returned to service. This multiple also contains information on the number of beds that are placed out-of-service at any given time.`
400	G&L ORDER	ORDER;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<.01)!(X?.E1"."4N.N)!($D(^DIC(42,"AGL",X))&($O(^DIC(42,"AGL",X,0))'=DA)) X` LAST EDITED: `MAY 17, 1995` HELP-PROMPT: `TYPE A UNIQUE NUMBER BETWEEN .01 AND 99999` DESCRIPTION: `This field indicates the G&L Order that this Ward will print and subsequently, the Totals on the Bed Status Report, (e.g. Ward with a G&L Order of 1.5 would be placed after a Ward with a G&L Order of 1.49 or earlier and` `would be before a Ward with a G&L Order of 1.51 or greater). This G&L Order placement has a direct impact on the way the totals calculate on the Bed Status Report.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `42^AGL` `1)= S ^DIC(42,"AGL",$E(X,1,30),DA)=""` `2)= K ^DIC(42,"AGL",$E(X,1,30),DA)`
401	TOTALS	1;0	Multiple #42.05	42.05 DESCRIPTION: `This field is a multiple and is directly related to the G&L Order field. The information contained in this multiple is utilized on the Bed Status Report.`
804	G&L HEADER	HEADER;E1,89	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>89!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-89 CHARACTERS IN LENGTH` DESCRIPTION: `This field is free text (1 to 89 characters in length) and contains the name that you want to print for this ward on the Bed Status Report.`
1490	*ACUITY CLASS		COMPUTED	MUMPS CODE: `S X=$P(^DIC(42,D0,0),U,2),X=$S(X["CU":1,X["GA":2,1:3)` ALGORITHM: `NAME+LO` LAST EDITED: `JAN 23, 1992` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1491	*NSERV	0;7	SET	**********************REQUIRED FIELD********************** '1' FOR MED; '2' FOR SUR; '3' FOR ICU; '4' FOR PSY; LAST EDITED: `JAN 23, 1992` DESCRIPTION: `Enter the nursing service associated with this ward.` CROSS-REFERENCE: `42^E` `1)= S ^DIC(42,"E",X,DA)=""` `2)= K ^DIC(42,"E",X,DA)`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #31	Auto Replenishment Ward Stock	NAME (.01). Access: Read w/Fileman SERVICE (.03). Access: Read w/Fileman HOSPITAL LOCATION FILE POINTER (44). Access: Read w/Fileman
ICR #33	Auto Replenishment Ward Stock
ICR #36	Order Entry Results Reporting
ICR #652	Integrated Billing
ICR #723	PCE Patient Care Encounter Enrollment Application System Incomplete Records Tracking Order Entry Results Reporting Scheduling Virtual Patient Record
ICR #734	Automated Medical Information Exchange
ICR #828	DISCHARGE SUMMARY
ICR #1051	Lab Service		Using the X-reference to determine if the ordering location is in the WardLocation File #42.
ICR #1377	Nursing Service General Medical Record - Vitals Inpatient Medications Barcode Medication Administration Scheduling Clinical Reminders Lab Service	SERVICE (.03). Access: Direct Global Read & w/Fileman DIVISION (.015). Access: Direct Global Read & w/Fileman	Direct global access on the "B" cross-reference of theWard Location (42) file is supported by this DBIA.
ICR #1481	Adverse Reaction Tracking	IS ENTIRE WARD OUT OF SERVICE? (.06). Access: Direct Global Read & w/Fileman RETURN TO SERVICE DATE (.04). Access: Direct Global Read & w/Fileman	This global reference is for the AINV cross referencewhich is set by the OUT-OF-SERVICE DATE(S) field. In this global reference:D0 = ward location internal entry number (ien)D1 = inverse value of the date being checkedD2 = the ien of the OUT-OF-SERVICE DATE(S) multiple
ICR #1848	DSS - DECISION SUPPORT SYSTEM EXTRACTS Dietetics Pharmacy Benefits Management	OUT-OF-SERVICE DATE(S) (.01). Access: Direct Global Read & w/Fileman RETURN TO SERVICE DATE (.04). Access: Direct Global Read & w/Fileman IS ENTIRE WARD OUT OF SERVICE? (.06). Access: Direct Global Read & w/Fileman G&L ORDER (400). Access: Direct Global Read & w/Fileman DIVISION (.015). Access: Direct Global Read & w/Fileman (DIC(42,'B',). Access: Direct Global Read & w/Fileman TOTAL (.01). Access: Direct Global Read & w/Fileman	DSS examines the OUT-OF-SERVICE DATE multiple (#200).The entire zero node is read into a local variable. The fields above are used.This file contains all the facility ward locations andtheir related data, i.e., Operating Beds, Bedsection, etc. The wards arecreated/edited using the WARD DEFINITION option of the ADT module.
ICR #2440	Pharmacy Benefits Management Incomplete Records Tracking Barcode Medication Administration	DIVISION (.015). Access: Read w/Fileman
ICR #3445	Radiology Nuclear Medicine	SERVICE (.03). Access: Read w/Fileman	The Service (#.03) field is the third piece located onthe zero node (0;3) of the file record.
ICR #3790	Order Entry Results Reporting	SERVICE (.03). Access: Direct Global Read & w/Fileman
ICR #6609	VistA Integration Adapter	NAME (.01). Access: Read w/Fileman SPECIALTY (0.17). Access: Read w/Fileman CURRENTLY OUT-OF-SERVICE? (.2). Access: Read w/Fileman
ICR #10039		NAME (.01). Access: Direct Global Read & w/Fileman DIVISION (.015). Access: Direct Global Read & w/Fileman HOSPITAL LOCATION FILE POINTER (44). Access: Direct Global Read & w/Fileman

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 4n2.4), .01(XREF 5n1.4), .01(XREF 6n1.4), 44(XREF 1n1.4), 44(XREF 1n2.4)
^DD(42	.01(XREF 3S), .01(XREF 4K), .01(XREF 5S), .01(XREF 6S), 44(XREF 1S), 44(XREF 1n1.3), 44(XREF 1K)
^DG(43 - [#43]	.01(XREF 4K), .01(XREF 5S), .01(XREF 6S)
^DGPM - [#405]	.01(XREF 2K)
^DGRU(46.11 - [#46.11]	.01(XREF 4K), .01(XREF 4n2.4), .01(XREF 5S), .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6n1.4)
^DIC(42 - [#42]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 3n1.3), .01(XREF 3n9.2), .01(XREF 4n89.2), .01(XREF 5n89.2), .01(XREF 6n89.2), .03(XREF 1S), .03(XREF 1K) , 44+1, 400+1, 400(XREF 1S), 400(XREF 1K), 1490+1, 1491(XREF 1S), 1491(XREF 1K)
^DPT - [#2]	.01(XREF 2K)
^SC - [#44]	.01(XREF 3n1.4), .01(XREF 3n9.2), 44+1, 44(XREF 1S), 44(XREF 1n1.4), 44(XREF 1K), 44(XREF 1n2.4), 44(XREF 1n69.2)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	.01(XREF 2K), .01(XREF 3n1.4), 44(XREF 1n1.4), 44(XREF 1n2.4)
>> D	.01(XREF 4n89.2), .01(XREF 5n89.2), .01(XREF 6n89.2)
D0	ID400+1~*, .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n9.2), .01(XREF 4K), .01(XREF 4n89.2), .01(XREF 5S), .01(XREF 5n89.2), .01(XREF 6S), .01(XREF 6n89.2) , 44(XREF 1S), 44(XREF 1n1.1), 44(XREF 1n1.3), 44(XREF 1K), 44(XREF 1n69.2), 1490+1
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 3n1.3), .01(XREF 4K), .01(XREF 5S), .01(XREF 6S), .03(XREF 1S), .03(XREF 1K), 44+1 , 44(XREF 1n1.3), 44(XREF 1K), 400+1, 400(XREF 1S), 400(XREF 1K), 1491(XREF 1S), 1491(XREF 1K)
DGWU	.01(XREF 2K)
DIC	.01(XREF 4n89.2), .01(XREF 5n89.2), .01(XREF 6n89.2), .015+1!, .017+1!
DIC("S"	.015+1, .015SCR+1, .017+1, .017SCR+1, .17SCR+1*
DIC(0	.01(XREF 4n89.2), .01(XREF 5n89.2), .01(XREF 6n89.2)
>> DIE	.015+1, .017+1
>> DIG	.01(XREF 3n1.4), .01(XREF 4n2.4), .01(XREF 5n1.4), .01(XREF 6n1.4), 44(XREF 1n1.4), 44(XREF 1n2.4)
>> DIH	.01(XREF 3n1.4), .01(XREF 4n2.4), .01(XREF 5n1.4), .01(XREF 6n1.4), 44(XREF 1n1.4), 44(XREF 1n2.4)
>> DIU	.01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4K), .01(XREF 5S), .01(XREF 6S), 44(XREF 1S), 44(XREF 1n1.4), 44(XREF 1K), 44(XREF 1n2.4)
DIV	.01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 4K), .01(XREF 4n2.4), .01(XREF 5S), .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6n1.4), 44(XREF 1S) , 44(XREF 1n1.1), 44(XREF 1n1.3), 44(XREF 1n1.4), 44(XREF 1K), 44(XREF 1n2.4)
DIV(0	.01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n9.2), .01(XREF 4K), .01(XREF 4n2.4), .01(XREF 4n89.2), .01(XREF 5S), .01(XREF 5n1.4), .01(XREF 5n89.2), .01(XREF 6S) , .01(XREF 6n1.4), .01(XREF 6n89.2), 44(XREF 1S), 44(XREF 1n1.3), 44(XREF 1n1.4), 44(XREF 1K), 44(XREF 1n2.4)
>> I	.01(XREF 2K)
>> I(0	.01(XREF 3S), .01(XREF 3n9.2), .01(XREF 4K), .01(XREF 4n89.2), .01(XREF 5S), .01(XREF 5n89.2), .01(XREF 6S), .01(XREF 6n89.2), 44(XREF 1S), 44(XREF 1n1.3) , 44(XREF 1K), 44(XREF 1n69.2)
>> J	.01(XREF 2K)
U	.01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n9.2), .01(XREF 4K), .01(XREF 4n2.4), .01(XREF 4n89.2), .01(XREF 5S), .01(XREF 5n1.4), .01(XREF 5n89.2) , .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6n89.2), 44(XREF 1S), 44(XREF 1n1.4), 44(XREF 1K), 44(XREF 1n2.4), 44(XREF 1n69.2), 1490+1
X	ID400+1~, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 4K), .01(XREF 4n2.4) , .01(XREF 4n89.2), .01(XREF 5S), .01(XREF 5n1.4), .01(XREF 5n89.2), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6n89.2), .015+1!, .017+1!, .02+1! , .03(XREF 1S), .03(XREF 1K), .07+1!, .1+1!, .15+1!, 44+1!, 44(XREF 1S), 44(XREF 1n1.1), 44(XREF 1n1.3), 44(XREF 1n1.4) , 44(XREF 1K), 44(XREF 1n2.4), 44(XREF 1n69.2), 400+1!, 400(XREF 1S), 400(XREF 1K), 804+1!, 1490+1*, 1491(XREF 1S), 1491(XREF 1K)
Y	ID400+1, .01(XREF 3S), .01(XREF 4K), .01(XREF 4n89.2), .01(XREF 5S), .01(XREF 5n89.2), .01(XREF 6S), .01(XREF 6n89.2), .015+1, .017+1 , 44(XREF 1S), 44(XREF 1n1.3), 44(XREF 1K)
Y(0	.01(XREF 3n1.3), .01(XREF 4K), .01(XREF 5S), .01(XREF 6S), 44(XREF 1n1.3), 44(XREF 1n69.2)
Y(1	.01(XREF 3n1.3), .01(XREF 3n9.2), .01(XREF 4n89.2), .01(XREF 5n89.2), .01(XREF 6n89.2), 44(XREF 1n1.3), 44(XREF 1n69.2)
Y(101	.01(XREF 3S), .01(XREF 3n9.2), .01(XREF 4K), .01(XREF 5S), .01(XREF 6S), 44(XREF 1S), 44(XREF 1K), 44(XREF 1n69.2)

Customize PDF page

Package: Registration

Global: ^DIC(42

Information

Description

Directly Accessed By Routines, Total: 473

Accessed By FileMan Db Calls, Total: 90

Pointed To By FileMan Files, Total: 53

Pointer To FileMan Files, Total: 4

Fields, Total: 25

ICR, Total: 16

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
AUTH^DGPMDDCF	.22+1
BOS^DGPMDDCF	.21+1
OPER^DGPMDDCF	.23+1
WIN^DGPMDDCF	ID400+1, .2+1
^DIC	.01(XREF 4n89.2), .01(XREF 5n89.2), .01(XREF 6n89.2), .015+1, .017+1
^DICR	.01(XREF 3n1.4), .01(XREF 4n2.4), .01(XREF 5n1.4), .01(XREF 6n1.4), 44(XREF 1n1.4), 44(XREF 1n2.4)

Name	Field # of Occurrence
^(	.01(XREF 2K)
^(0	.01(XREF 3n1.4), .01(XREF 3n9.2), .01(XREF 4K), .01(XREF 4n2.4), .01(XREF 4n89.2), .01(XREF 5S), .01(XREF 5n1.4), .01(XREF 5n89.2), .01(XREF 6S), .01(XREF 6n1.4) , .01(XREF 6n89.2), 44(XREF 1n1.4), 44(XREF 1n2.4)
^(42	44+1, 44(XREF 1S), 44(XREF 1n1.4), 44(XREF 1K), 44(XREF 1n2.4), 44(XREF 1n69.2)
^(44	.01(XREF 3n1.3), .01(XREF 3n9.2)