Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | 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

This file contains all room-beds found at your site as well as data about our-of-service periods for those beds. This file is maintained by the site.

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 11

Pointer To FileMan Files, Total: 3

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

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | All