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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^DG(405.4

Package: Registration

Global: ^DG(405.4


Information

FileMan FileNo FileMan Filename Package
405.4 ROOM-BED Registration

Description

Directly Accessed By Routines, Total: 72

Package Total Routines
Dietetics 27 FHASN5    FHASN6    FHBIR    FHDCR1A    FHDMP1    FHNO2    FHNO31    FHOMCBRP
FHOMELT    FHOMGC1    FHOMGP1    FHOMRL1    FHOMRR1    FHOMSP1    FHOMSS1    FHOMSS2
FHOMTK2    FHORD13    FHORD81    FHORT5A    FHORX1C    FHORX3    FHPATM    FHPRW
FHSP1    FHWOR61    FHWORR    
Registration 27 DGPMBSP1    ^DG(405.4    DGFI    DGOERNOT    DGOPATM    DGPMDDCF    DGPMDDCN    DGPMDDLD
DGPMDDOS    DGPMDDRB    DGPMOLD1    DGPMRB    DGPMRBA1    DGPMV10    DGPMV20    DGPMVBM
DGPMVBUR    DGPMVDD    DGRUGMFU    DGRUGPRP    DGRUGSEE    DGRURB    OUT-OF-SERVICE DATE    VADPT30
VADPT31    VAFHAPV1    WARD(S) WHICH CAN ASSIGN    
Integrated Billing 6 IB20PT8B    IBTRE20    IBTRKR0    IBTRKRBA    IBTRKRBD    IBTRKRBR    
General Medical Record - Vitals 3 GMRVED0    GMRVED6    GMVGETD    
Lab Service 3 LRJSML4    LRJSMLA    LRJSMLA1    
General Medical Record - IO 2 GMRYRP5    GMRYUT4    
Inpatient Medications 1 PSJPDCL    
Nursing Service 1 NURCUT0    
Order Entry Results Reporting 1 ORLPAUT0    
Scheduling 1 SCMCPM    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
Registration 4 DGPMDDOS    DGRUGA01    DGRUGPRP    DGRURB    
Dietetics 1 FHOMUTL    
Inpatient Medications 1 PSGFILD3    

Pointed To By FileMan Files, Total: 11

Package Total FileMan Files
Registration 3 PATIENT MOVEMENT(#405)[.07]    RAI MDS ROOM-BED TRANSLATION(#46.13)[.01]    PATIENT(#2)[.108]    
Dietetics 2 NUTRITION LOCATION(#119.6)[#119.62(.01)]    NUTRITION PERSON(#115)[#115.01(14)#115.016(2.5)#115.017(2.5)#115.018(4.5)]    
Auto Replenishment Ward Stock 1 PADE SYSTEM SETUP(#58.7)[#58.7411(.01)]    
Barcode Medication Administration 1 BCMA MISSING DOSE REQUEST(#53.68)[.18]    
Clinical Procedures 1 CP_MOVEMENT_AUDIT(#704.005)[.05]    
Order Entry Results Reporting 1 OE/RR LIST(#100.21)[#100.213(.01)]    
Scheduling 1 TEAM AUTOLINK(#404.56)[.02]    
Toolkit 1 PARAMETERS(#8989.5)[.01]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Registration 3 MAS OUT-OF-SERVICE(#405.5)[#405.42(.02)]    ROOM-BED DESCRIPTION(#405.6)[.02]    WARD LOCATION(#42)[#405.41(.01)]    

Fields, Total: 5

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3)!'(X?.UN1"-"1UN.UN!(X?.UN1"-".UN1"-"1UN.UN)) X
  • LAST EDITED:  SEP 30, 2013
  • HELP-PROMPT:  Enter a ROOM-BED designation in 'ROOM-BED' format. If building must be included in designation it should be appended to the end, i.e., 'D101-A-6'. [3-15 CHARACTERS ONLY]
  • DESCRIPTION:  
    Enter the name of the room-bed you are adding. Should be in the format ROOM-BED.
  • AUDIT:  YES, ALWAYS
  • DELETE TEST:  1,0)= I 1 W !?5,*7,"Deletion of room-beds is not allowed!"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  405.4^B
    1)= S ^DG(405.4,"B",$E(X,1,30),DA)=""
    2)= K ^DG(405.4,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  405.4^BD^MUMPS
    1)= S DGPMDD=$P($P(X,"-",2),"-",1) S:DGPMDD]"" ^DG(405.4,"BD",DGPMDD,DA)="" K DGPMDD
    2)= S DGPMDD=$P($P(X,"-",2),"-",1) K ^DG(405.4,"BD",DGPMDD,DA),DGPMDD
  • CROSS-REFERENCE:  405.4^ARBU^MUMPS
    1)= Q
    2)= N DFN,% S %=$P(^DG(405.4,DA,0),"^",1) F DFN=0:0 S DFN=$O(^DPT("RM",X,DFN)) Q:'DFN I $G(^DPT(DFN,.108))=DA K ^DPT("RM",X,DFN) S ^DPT("RM",%,DFN)="",^DPT(DFN,.101)=%
    3)= This cross-reference should not be deleted.
    This cross-reference will reset the RM cross-reference in the PATIENT file any time the name of a ROOM-BED is changed.
  • 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(405.4,.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
    (405.4,.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(^DG(405.4,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 the Room-Bed name before it is changed into the RAI MDS MONITOR file. This is a conditional trigger. This will only occur if the CREATE MFU FOR RAI MDS field (#391.7014) in the MAS PARAMETER file (#43) is equal
    to a "1". This trigger will force an entry into the RAI MDS MONITOR file. Entries in that file will be used to create Master File Update HL7 messages to keep certain Vista and vendor files in syncronization.
  • 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(405.4,.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=405.4 X
    ^DD(405.4,.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(^DG(405.4,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=405.4
    DELETE VALUE)= NO EFFECT
    DIC)= LOOKUP
    FIELD)= NAME:RAI MDS MONITOR:#.03
    Trigger the file number (#405.4) of the Room-Bed file into the RAI MDS MONITOR file whenever the Room-Bed name is changed or added. This is a conditional trigger. 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". This data in the RAI MDS MONITOR file is used to determine the type of Master File Update to be created. For example, if the file number is 42 or 405.4, then
    a "LOC" type (LOCATION) is created.
  • 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(405.4,.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 ^D
    D(405.4,.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(^DG(405.4,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 Room-Bed entry which was changed or added inti the RAI MDS MONITOR file. This is a conditional trigger. 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".
.02 DESCRIPTION 0;2 POINTER TO ROOM-BED DESCRIPTION FILE (#405.6)
************************REQUIRED FIELD************************
ROOM-BED DESCRIPTION(#405.6)

  • LAST EDITED:  NOV 27, 1989
  • HELP-PROMPT:  If you wish you may choose, from the available listing, a description which best describes the use of this room-bed.
  • DESCRIPTION:  
    Enter a description for this bed. It will show when entering 2 question marks at the ROOM-BED prompt in bed control or when displaying bed availability. An example would be PRIVATE ROOM.
.2 CURRENTLY OUT-OF-SERVICE? COMPUTED

  • MUMPS CODE:  D RIN^DGPMDDCF
  • ALGORITHM:  D RIN^DGPMDDCF
  • DESCRIPTION:  
    Is this bed currently unavailable? This field is computed based on data in the OUT-OF-SERVICE DATE multiple.
100 WARD(S) WHICH CAN ASSIGN W;0 POINTER Multiple #405.41 405.41

  • DESCRIPTION:  
    Enter the list of wards which can assign this bed.
200 OUT-OF-SERVICE DATE I;0 DATE Multiple #405.42 405.42

  • DESCRIPTION:  
    This multiple contains information on when this bed has been placed out- of-service.

ICR, Total: 4

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #722
  • Event Driven Reporting
  • ICR #1380
  • Nursing Service
  • General Medical Record - Vitals
  • INTAKE/OUTPUT
  • Spinal Cord Dysfunction
  • Dietetics
  • Lab Service
  • Automated Lab Instruments
  • Inpatient Medications
  • NAME (.01).
    Access: Direct Global Read & w/Fileman

    Direct global reference of this node to check forexistence of Room-Bed (405.4) file.Direct global read on the "W" cross-reference.
    ICR #4016
  • Order Entry Results Reporting
  • ICR #6612
  • VistA Integration Adapter
  • NAME (.01).
    Access: Read w/Fileman

    CURRENTLY OUT-OF-SERVICE? (.2).
    Access: Read w/Fileman

    WARD(S) WHICH CAN ASSIGN (.01).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    RIN^DGPMDDCF .2+1
    ID^DGPMDDRB IDWRITE+1
    ^DIC .01(XREF 4n89.2), .01(XREF 5n89.2), .01(XREF 6n89.2)
    ^DICR .01(XREF 4n2.4), .01(XREF 5n1.4), .01(XREF 6n1.4)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .01(XREF 4n2.4), .01(XREF 5n1.4), .01(XREF 6n1.4)
    ^DD(405.4 .01(XREF 4K), .01(XREF 5S), .01(XREF 6S)
    ^DG(405.4 - [#405.4] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .01(XREF 4n89.2), .01(XREF 5n89.2), .01(XREF 6n89.2)
    ^DG(43 - [#43] .01(XREF 4K), .01(XREF 5S), .01(XREF 6S)
    ^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)
    ^DPT - [#2] .01(XREF 3K)
    ^DPT("RM" .01(XREF 3K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 .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)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % .01(XREF 3K)
    >> D .01(XREF 4n89.2), .01(XREF 5n89.2), .01(XREF 6n89.2)
    >> D0 .01(XREF 4K), .01(XREF 4n89.2), .01(XREF 5S), .01(XREF 5n89.2), .01(XREF 6S), .01(XREF 6n89.2)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .01(XREF 4K), .01(XREF 5S), .01(XREF 6S)
    DFN .01(XREF 3K)
    DGPMDD .01(XREF 2S), .01(XREF 2K)
    >> DGPMT IDWRITE+1
    DIC .01(XREF 4n89.2), .01(XREF 5n89.2), .01(XREF 6n89.2)
    DIC(0 .01(XREF 4n89.2), .01(XREF 5n89.2), .01(XREF 6n89.2)
    >> DIG .01(XREF 4n2.4), .01(XREF 5n1.4), .01(XREF 6n1.4)
    >> DIH .01(XREF 4n2.4), .01(XREF 5n1.4), .01(XREF 6n1.4)
    >> DIU .01(XREF 4K), .01(XREF 5S), .01(XREF 6S)
    DIV .01(XREF 4K), .01(XREF 4n2.4), .01(XREF 5S), .01(XREF 5n1.4), .01(XREF 6S), .01(XREF 6n1.4)
    DIV(0 .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)
    >> I(0 .01(XREF 4K), .01(XREF 4n89.2), .01(XREF 5S), .01(XREF 5n89.2), .01(XREF 6S), .01(XREF 6n89.2)
    U .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)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3K), .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)
    Y .01(XREF 4K), .01(XREF 4n89.2), .01(XREF 5S), .01(XREF 5n89.2), .01(XREF 6S), .01(XREF 6n89.2)
    Y(0 .01(XREF 4K), .01(XREF 5S), .01(XREF 6S)
    Y(1 .01(XREF 4n89.2), .01(XREF 5n89.2), .01(XREF 6n89.2)
    Y(101 .01(XREF 4K), .01(XREF 5S), .01(XREF 6S)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All