Global: ^DG(405.4

FileMan FileNo	FileMan Filename	Package
405.4	ROOM-BED	Registration

Directly Accessed By Routines, Total: 74

Package	Total	Routines
Dietetics	28	FHASN5 FHASN6 FHBIR FHDCR1A FHDMP1 FHIPST2 FHNO2 FHNO31 FHOMCBRP FHOMELT FHOMGC1 FHOMGP1 FHOMRL1 FHOMRR1 FHOMSP1 FHOMSS1 FHOMSS2 FHOMTK2 FHORD13 FHORD81 FHORT5A FHORX1C FHORX3 FHPATM FHPRW FHSP1 FHWOR61 FHWORR
Registration	28	DGFI DGOERNOT DGOPATM DGPMBSP1 DGPMDDCF DGPMDDCN DGPMDDLD DGPMDDOS DGPMDDRB DGPMOLD1 DGPMRB DGPMRBA1 DGPMTSP1 DGPMV10 DGPMV20 DGPMVBM DGPMVBUR DGPMVDD DGRUGMFU DGRUGPRP DGRUGSEE DGRURB OUT-OF-SERVICE DATE WARD(S) WHICH CAN ASSIGN ^DG(405.4 VADPT30 VADPT31 VAFHAPV1
IHS Changes To ADT	5	ADGPM1 ADGPTLC BDGIPL31 BDGOPL BDGSYS4
General Medical Record - Vitals	3	GMRVED0 GMRVED6 GMVGETD
IHS Changes To Lab	3	BLRAG04 BLRDPT30 BLRDPT31
General Medical Record - IO	2	GMRYRP5 GMRYUT4
Integrated Billing	2	IB20PT8B IBTRE20
Nursing Service	1	NURCUT0
Order Entry Results Reporting	1	ORLPAUT0
Scheduling	1	SCMCPM

Accessed By FileMan Db Calls, Total: 11

Package	Total	Routines
Registration	5	DGPMDDOS DGPMV10 DGRUGA01 DGRUGPRP DGRURB
IHS Changes To ADT	4	BDGIPL31 BDGOPL BDGPI BDGSYS4
Dietetics	1	FHOMUTL
Inpatient Medications	1	PSGFILD3

Pointed To By FileMan Files, Total: 9

Package	Total	FileMan Files
Registration	3	MAS V5 CONVERSION [TEMPORARY](#405.9)[#405.9003(4)] PATIENT MOVEMENT(#405)[.07] VA 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)]
Barcode Medication Administration	1	BCMA MISSING DOSE REQUEST(#53.68)[.18]
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: 6

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: `OCT 18, 1999` 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. 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.
9999999.01	BED PHONE	IHS;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<4) X` LAST EDITED: `MAR 08, 2001` HELP-PROMPT: `Answer must be 4-8 characters in length`

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), 9999999.01+1!
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: 74

Accessed By FileMan Db Calls, Total: 11

Pointed To By FileMan Files, Total: 9

Pointer To FileMan Files, Total: 3

Fields, Total: 6

ICR, Total: 4

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: