Global: ^DG(405.4

FileMan FileNo	FileMan Filename	Package
405.4	ROOM-BED	Registration

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 DGPMDDCF ^DG(405.4 DGFI DGOERNOT DGOPATM 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)

Customize PDF page

Package: Registration

Global: ^DG(405.4

Information

Description

Directly Accessed By Routines, Total: 72

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 11

Pointer To FileMan Files, Total: 3

Fields, Total: 5

ICR, Total: 4

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: