Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^DIC(42

Package: Registration

Global: ^DIC(42


Information

FileMan FileNo FileMan Filename Package
42 WARD LOCATION Registration

Description

Directly Accessed By Routines, Total: 457

Package Total Routines
Registration 116 AUTHORIZED BEDS DATE    DG FEMALE HISTORICAL    DG53181P    DGANHD1    DGMTDOM    DGMTR    DGOERNOT    DGOIL
DGOIL2    DGOINS1    DGOREL1    DGPMBSG1    DGPMBSP1    DGPMBSP6    DGPMBSR1    DGPMBSR2
DGPMBSR3    DGPMDDCF    DGPMDDCN    DGPMDDRB    DGPMEX    DGPMGL1    DGPMGLC    DGPMGLG2
DGPMGLP    DGPMRB    DGPMV10    DGPMV20    DGPMV22    DGPMVDD    DGPMX1    DGPMX2
DGPMX4    DGPMXA    DGPMXAS    DGPMXX1    DGPTAPA3    DGPTF    DGPTLMU6    DGPTTS1
DGPTTS3    DGQPT1    DGQPTQ2    DGQPTQ5    DGRPD    DGRUG16    DGRUGC    DGRUGPP
DGRUGS    DGRUGSA    DGSCHAD2    DGSCHAD3    DGWPT    DGYMBSRX    SYNONYM    VAFCMS01
VAFHAPV1    ^DGPM    ^DGS(41.1    DGABUL    DGAINP0    DGAINP1    DGBLRV    DGDEATH
DGMTOFA    DGODMT    DGODNP1    DGOINPT1    DGOPATM    DGOVBC    DGOVBC1    DGPASS
DGPMBSAR    DGPMBSG    DGPMDDLD    DGPMDDOS    DGPMEVT    DGPMGL    DGPMGLG3    DGPMGLG4
DGPMOLD1    DGPMRBA1    DGPMTSI1    DGPMUTL    DGPMV31    DGPMV32    DGPMV33    DGPMVBM
DGPMVBUL    DGPMVBUR    DGPT WORKFILE    DGPTC1    DGPTCO1    DGPTFM7    DGPTMSG    DGPTMSG1
DGPTUTL    DGPWB    DGQPT    DGRP12    DGRRLU0    DGRRLU3    DGRRPSAD    DGRUG
DGRUGBGJ    DGRUGDS    DGRUGIX    DGRUGPI    DGRUGPP1    DGSCHAD    DGWIN    OUT-OF-SERVICE DATE
^DIC(42    VADPT30    VADPT31    VAFHCPV    
Inpatient Medications 55 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    PSIVSTAT    PSIVWCR1    PSIVWRP    PSJADT    PSJADT2    PSJCLOR4    PSJEXP
PSJGMRA    PSJMEDS    PSJPADE    PSJPADSI    PSJPDAPP    PSJPDCL    PSJPDCLA    PSJPDCLU
PSJPDV0    PSJPR    PSJQUTIL    ^PS(59.6    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 27 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    
Radiology Nuclear Medicine 23 RA WARD BY PRINT DATE    RACDR    RACPT    RADLQ1    RADLY    RAHLQ1    RAHLR    RAHLRPT
RALIST    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 14 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 10 SCRPW41    SDAM1    SDAM2    SDAMA308    SDCIAL    SDECPTCX    SDOPC1    SDOPC4
SDSTAT    ^SC    
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    
Text Integration Utility 6 GMRPNOR1    TIULV    TIUMOVE    TIUPNCV3    TIUPRPN4    TIUUTL2    
Virtual Patient Record 6 VPRDJ04    VPRDJ04A    VPRDPT    VPRDSDAM    VPRDVSIT    VPRSDA    
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    
Record Tracking 5 RTNQ3    RTNQ41    RTRPT5    RTSM    RTUTL    
Auto Replenishment Ward Stock 4 PSGWCHG    PSGWPSI1    PSGWVW    PSGWWRD    
Incident Reporting 4 QANBENE0    QANCNV1    QANQTOT    QANUTL1    
Pharmacy Data Management 4 IV    PSSDDUT2    PSSFIL    PSSFILED    
Clinical Reminders 3 PXRMCVRL    PXRMINPL    PXRMXAP    
Drug Accountability 3 PSADA    PSALOCO    PSAWARD    
Methicillin Resistant Staph Aurerus Initiative Reports 3 MMRSCRE4    MMRSISL    MMRSORD    
Outpatient Pharmacy 3 PSO480P    PSOMGMN4    PSOMGRP4    
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    
VA FileMan 1 ITEM    

Accessed By FileMan Db Calls, Total: 88

Package Total Routines
Registration 18 DGFFP03    DGFFPLM1    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    
Order Entry Results Reporting 2 ORLP01    ORQ20    
Scheduling 2 SDCIAL    SDEC48    
General Medical Record - IO 1 GMRYRP5    
Lab Service 1 LRVRPOC    
Mental Health 1 YTQAPI15    
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    

Pointed To By FileMan Files, Total: 54

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)[5052]    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]    
Social Work 1 SOCIAL WORK SITE PARAMETERS(#650.1)[#650.11(.01)]    

Pointer To FileMan Files, Total: 4

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, Total: 16

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 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

    External References

    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)

    Global Variables Directly Accessed

    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)

    Naked Globals

    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)

    Local Variables

    Legend:

    >> 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)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All